OpenCascade/occt
1
0
Fork 0
mirror of https://git.dev.opencascade.org/repos/occt.git synced 2025-04-05 18:16:23 +03:00
Code Packages Releases Activity

0029247: Tests, CheckCommands.tcl - Tcl exception "expected integer but got 3dviewer" in test cases on macOS

Browse Source 
Test cases on macOS (using native tcl from /usr/lib) fail when $lst starts with numeral, because upvar guesses that its first parameter is level rather than otherVar.
The fix is to explicitly supply level to 1 (default value if uplevel is omitted) to avoid tcl exception "expected integer but got 3dviewer".
This commit is contained in:
apn 2017-10-19 12:08:05 +03:00 committed by bugmaster
parent 47a2717138
commit 72bcf3c7be
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
src/DrawResources/CheckCommands.tcl
View File

@ -473,7 +473,7 @@ proc _check_args { args {options {}} {command_name ""}} {
set get_value [lindex ${option} 2]
set local_value ""
if { [_check_arg ${option_name} local_value ${get_value}] } {
upvar ${variable_to_save_value} ${variable_to_save_value}
upvar 1 ${variable_to_save_value} ${variable_to_save_value}
set ${variable_to_save_value} ${local_value}
set toContinue 1
}