Author: mdiep Date: Tue Aug 9 08:31:05 2005 New Revision: 8888 Modified: trunk/languages/tcl/lib/commands/array.pir Log: tcl: Create a new array in [array set] if the existing variable is something else.
Modified: trunk/languages/tcl/lib/commands/array.pir ============================================================================== --- trunk/languages/tcl/lib/commands/array.pir (original) +++ trunk/languages/tcl/lib/commands/array.pir Tue Aug 9 08:31:05 2005 @@ -166,6 +166,7 @@ pre_loop: .local string key .local string val + if is_array == 0 goto new_array isnull the_array, new_array goto set_loop
