Author: coke
Date: Fri Oct 7 06:59:04 2005
New Revision: 9391
Modified:
trunk/languages/tcl/lib/builtins/for.pir
trunk/languages/tcl/lib/builtins/while.pir
trunk/languages/tcl/lib/commands/array.pir
trunk/languages/tcl/lib/commands/foreach.pir
trunk/languages/tcl/lib/commands/if.pir
trunk/languages/tcl/lib/commands/incr.pir
trunk/languages/tcl/lib/commands/info.pir
trunk/languages/tcl/lib/commands/lappend.pir
trunk/languages/tcl/lib/commands/lassign.pir
trunk/languages/tcl/lib/commands/linsert.pir
trunk/languages/tcl/lib/commands/list.pir
trunk/languages/tcl/lib/commands/lrange.pir
trunk/languages/tcl/lib/commands/lrepeat.pir
trunk/languages/tcl/lib/commands/namespace.pir
trunk/languages/tcl/lib/commands/parray.pir
trunk/languages/tcl/lib/expression.pir
trunk/languages/tcl/lib/list_to_string.pir
trunk/languages/tcl/lib/parser.pir
trunk/languages/tcl/lib/returncodes.pir
trunk/languages/tcl/lib/string_to_list.pir
trunk/languages/tcl/lib/tclbinaryops.pir
trunk/languages/tcl/lib/tclcommand.pir
trunk/languages/tcl/lib/tclconst.pir
trunk/languages/tcl/lib/tclfunc.pir
trunk/languages/tcl/lib/tclops.pir
trunk/languages/tcl/lib/variables.pir
trunk/languages/tcl/tcl.pir
trunk/languages/tcl/tcl.pir_template
Log:
tcl: Keep ahead of the DEPRECATION monster, change all "new ClassName"
references to "new .ClassName"
Modified: trunk/languages/tcl/lib/builtins/for.pir
==============================================================================
--- trunk/languages/tcl/lib/builtins/for.pir (original)
+++ trunk/languages/tcl/lib/builtins/for.pir Fri Oct 7 06:59:04 2005
@@ -48,7 +48,7 @@ $P%i=new .TclString
$P%i=\"\"
END_PIR
- $P1 = new Array
+ $P1 = new .Array
$P1 = 4
$P1[0] = cond_num
$P1[1] = loop_label
Modified: trunk/languages/tcl/lib/builtins/while.pir
==============================================================================
--- trunk/languages/tcl/lib/builtins/while.pir (original)
+++ trunk/languages/tcl/lib/builtins/while.pir Fri Oct 7 06:59:04 2005
@@ -49,7 +49,7 @@ $P%i=new .TclString
$P%i=\"\"
END_PIR
- $P1 = new Array
+ $P1 = new .Array
$P1 = 4
$P1[0] = loop_label
$P1[1] = done_label
Modified: trunk/languages/tcl/lib/commands/array.pir
==============================================================================
--- trunk/languages/tcl/lib/commands/array.pir (original)
+++ trunk/languages/tcl/lib/commands/array.pir Fri Oct 7 06:59:04 2005
@@ -217,10 +217,10 @@ no_args:
.local pmc rule
(rule, $P0, $P1) = globber(match_str)
- iter = new Iterator, the_array
+ iter = new .Iterator, the_array
iter = .ITERATE_FROM_START
- retval = new String
+ retval = new .String
.local int count
@@ -289,7 +289,7 @@ no_args:
.local pmc rule
(rule, $P0, $P1) = globber(match_str)
- iter = new Iterator, the_array
+ iter = new .Iterator, the_array
iter = .ITERATE_FROM_START
push_loop:
@@ -377,10 +377,10 @@ not_array:
.local pmc rule
(rule, $P0, $P1) = globber(pattern)
- iter = new Iterator, the_array
+ iter = new .Iterator, the_array
iter = .ITERATE_FROM_START
- retval = new String
+ retval = new .String
.local int count
count = 0
@@ -410,10 +410,10 @@ check_end:
.local pmc iter, retval
.local string name
- iter = new Iterator, the_array
+ iter = new .Iterator, the_array
iter = .ITERATE_FROM_START
- retval = new String
+ retval = new .String
retval = ""
check_loop:
Modified: trunk/languages/tcl/lib/commands/foreach.pir
==============================================================================
--- trunk/languages/tcl/lib/commands/foreach.pir (original)
+++ trunk/languages/tcl/lib/commands/foreach.pir Fri Oct 7 06:59:04 2005
@@ -28,14 +28,14 @@
# Compartmentalize our arguments
.local pmc varnames, arglists
.local string body
- varnames = new TclList
- arglists = new TclList
+ varnames = new .TclList
+ arglists = new .TclList
varnames = argc
arglists = argc
.local pmc arg_num,arg_max,index_num
- arg_num = new Integer
- arg_max = new Integer
- index_num = new Integer
+ arg_num = new .Integer
+ arg_max = new .Integer
+ index_num = new .Integer
arg_num = 0
index_num = 0
@@ -44,7 +44,7 @@
body = argv[arg_max]
dec arg_max
.local pmc max_size
- max_size = new Integer
+ max_size = new .Integer
max_size = 0
arg_loop:
if arg_num >= arg_max goto arg_done
@@ -75,7 +75,7 @@ arg_done:
register parsed
.local pmc iterator
- iterator = new Integer
+ iterator = new .Integer
iterator = 0
loop_outer:
if iterator >= max_size goto done
@@ -84,7 +84,7 @@ loop_outer:
counter = -1
end_counter = index_num
.local pmc got_one
- got_one = new Integer
+ got_one = new .Integer
got_one = 0
loop_inner:
inc counter
@@ -110,7 +110,7 @@ store_done:
got_one = 1
goto loop_inner
empty_var:
- $P0 = new TclString
+ $P0 = new .TclString
$P0 = ""
if call_level goto store_lex2
store_global "Tcl", sigil_varname, $P0
Modified: trunk/languages/tcl/lib/commands/if.pir
==============================================================================
--- trunk/languages/tcl/lib/commands/if.pir (original)
+++ trunk/languages/tcl/lib/commands/if.pir Fri Oct 7 06:59:04 2005
@@ -12,7 +12,7 @@
unless argc goto no_args
.local pmc elseifs
- elseifs = new TclList
+ elseifs = new .TclList
.local pmc retval,condition
.local string code
.local string condition
@@ -45,7 +45,7 @@ get_elseifs:
if counter >= argc goto get_final
temp_str = argv[counter]
if temp_str != "elseif" goto get_else
- $P1 = new TclList
+ $P1 = new .TclList
inc counter
if counter >= argc goto missing_elseif
$P2 = argv[counter]
Modified: trunk/languages/tcl/lib/commands/incr.pir
==============================================================================
--- trunk/languages/tcl/lib/commands/incr.pir (original)
+++ trunk/languages/tcl/lib/commands/incr.pir Fri Oct 7 06:59:04 2005
@@ -17,7 +17,7 @@
increment = 1
.local pmc argc
- argc = new Integer # XXX NEEDED? persist across function calls...
+ argc = new .Integer # XXX NEEDED? persist across function calls...
argc = argv
.local pmc original_pmc
Modified: trunk/languages/tcl/lib/commands/info.pir
==============================================================================
--- trunk/languages/tcl/lib/commands/info.pir (original)
+++ trunk/languages/tcl/lib/commands/info.pir Fri Oct 7 06:59:04 2005
@@ -103,7 +103,7 @@ bad_args:
.local pmc math_funcs,iterator,retval
math_funcs = find_global "_Tcl", "functions"
- iterator = new Iterator, math_funcs
+ iterator = new .Iterator, math_funcs
iterator = 0
retval = new .TclList
@@ -116,7 +116,7 @@ pattern_loop:
$S0 = shift iterator
match = rule($S0)
unless match goto pattern_next
- $P0 = new TclString
+ $P0 = new .TclString
$P0 = $S0
push retval, $P0
pattern_next:
@@ -125,7 +125,7 @@ pattern_next:
loop:
$S0 = shift iterator
- $P0 = new TclString
+ $P0 = new .TclString
$P0 = $S0
push retval, $P0
if iterator goto loop
Modified: trunk/languages/tcl/lib/commands/lappend.pir
==============================================================================
--- trunk/languages/tcl/lib/commands/lappend.pir (original)
+++ trunk/languages/tcl/lib/commands/lappend.pir Fri Oct 7 06:59:04 2005
@@ -28,7 +28,7 @@
goto loop
new_variable:
- value = new TclList
+ value = new .TclList
# goto loop
loop:
Modified: trunk/languages/tcl/lib/commands/lassign.pir
==============================================================================
--- trunk/languages/tcl/lib/commands/lassign.pir (original)
+++ trunk/languages/tcl/lib/commands/lassign.pir Fri Oct 7 06:59:04 2005
@@ -28,7 +28,7 @@ var_loop:
if argv goto var_loop
list_empty:
- value = new String
+ value = new .String
value = ""
null_loop:
unless argv goto var_end
Modified: trunk/languages/tcl/lib/commands/linsert.pir
==============================================================================
--- trunk/languages/tcl/lib/commands/linsert.pir (original)
+++ trunk/languages/tcl/lib/commands/linsert.pir Fri Oct 7 06:59:04 2005
@@ -42,7 +42,7 @@ convert_the_list:
cnt = 0
$I1 = the_list
.local pmc argv_list
- argv_list = new Array
+ argv_list = new .Array
argv_list = $I1
LOOP_the_list:
if cnt >= $I1 goto DONE_the_list
@@ -57,7 +57,7 @@ convert_the_args:
cnt = 0
$I1 = argv
.local pmc argv_copy
- argv_copy = new Array
+ argv_copy = new .Array
argv_copy = $I1
LOOP_the_args:
if cnt >= $I1 goto DONE_the_args
@@ -70,7 +70,7 @@ DONE_the_args:
argv_list = splice argv_copy, the_index, 0
.local pmc retval
- retval = new TclList
+ retval = new .TclList
.local int cnt
cnt = 0
Modified: trunk/languages/tcl/lib/commands/list.pir
==============================================================================
--- trunk/languages/tcl/lib/commands/list.pir (original)
+++ trunk/languages/tcl/lib/commands/list.pir Fri Oct 7 06:59:04 2005
@@ -14,7 +14,7 @@
argc = argv
.local pmc retval
- retval = new TclList
+ retval = new .TclList
.local int cnt
cnt = 0
Modified: trunk/languages/tcl/lib/commands/lrange.pir
==============================================================================
--- trunk/languages/tcl/lib/commands/lrange.pir (original)
+++ trunk/languages/tcl/lib/commands/lrange.pir Fri Oct 7 06:59:04 2005
@@ -44,7 +44,7 @@
cnt_in = first
.local pmc retval
- retval = new TclList
+ retval = new .TclList
.local int last_pos
last_pos = last
LOOP:
Modified: trunk/languages/tcl/lib/commands/lrepeat.pir
==============================================================================
--- trunk/languages/tcl/lib/commands/lrepeat.pir (original)
+++ trunk/languages/tcl/lib/commands/lrepeat.pir Fri Oct 7 06:59:04 2005
@@ -17,7 +17,7 @@
argc = argv
.local pmc retval
- retval = new TclList
+ retval = new .TclList
.local int i_cnt
.local int o_cnt
Modified: trunk/languages/tcl/lib/commands/namespace.pir
==============================================================================
--- trunk/languages/tcl/lib/commands/namespace.pir (original)
+++ trunk/languages/tcl/lib/commands/namespace.pir Fri Oct 7 06:59:04 2005
@@ -105,7 +105,7 @@ bad_args:
unless $P0 goto WHOLE
# XXX pre leo-ctx5 this requires a PMC arg, but we can switch later
- $P1 = new String
+ $P1 = new .String
$P1 = "0"
$P2 = $P0."__get_pmc_keyed"($P1)
@@ -138,7 +138,7 @@ WHOLE:
unless $P0 goto WHOLE
# XXX pre leo-ctx5 this requires a PMC arg, but we can switch later
- $P1 = new String
+ $P1 = new .String
$P1 = "0"
$P2 = $P0."__get_pmc_keyed"($P1)
Modified: trunk/languages/tcl/lib/commands/parray.pir
==============================================================================
--- trunk/languages/tcl/lib/commands/parray.pir (original)
+++ trunk/languages/tcl/lib/commands/parray.pir Fri Oct 7 06:59:04 2005
@@ -11,7 +11,7 @@
argc = argv
.local pmc retval
- retval = new String
+ retval = new .String
retval = ""
if argc == 0 goto bad_args
@@ -49,7 +49,7 @@ match_all:
# for storing the matching results, so we can sort it
.local pmc filtered
- filtered = new ResizablePMCArray
+ filtered = new .ResizablePMCArray
# for aligning the equal signs together
.local int maxsize
@@ -61,7 +61,7 @@ match_all:
.local pmc iter
- iter = new Iterator, array
+ iter = new .Iterator, array
iter = .ITERATE_FROM_START
add_loop:
Modified: trunk/languages/tcl/lib/expression.pir
==============================================================================
--- trunk/languages/tcl/lib/expression.pir (original)
+++ trunk/languages/tcl/lib/expression.pir Fri Oct 7 06:59:04 2005
@@ -47,11 +47,11 @@ syntax tree associated with this express
.local pmc retval
.local pmc undef
- undef = new Undef
+ undef = new .Undef
.local pmc chunk, chunks, program_stack
- chunks = new TclList
- program_stack = new TclList
+ chunks = new .TclList
+ program_stack = new .TclList
.local int pos
pos = 0
@@ -60,7 +60,7 @@ operand:
(retval, pos) = get_operand(expr, pos)
if_null retval, no_operand
- chunk = new TclList
+ chunk = new .TclList
chunk[0] = OPERAND
chunk[1] = retval
push chunks, chunk
@@ -314,7 +314,7 @@ op_done:
$I5 = precedences[test_op]
$I6 = ops[test_op]
- chunk = new TclList
+ chunk = new .TclList
chunk[0] = OP
chunk[1] = $I6 # op lookup
chunk[2] = $I5 # precedence
@@ -401,7 +401,7 @@ integer_done:
$S0 = substr expr, start, pos
$I0 = $S0
- value = new TclInt
+ value = new .TclInt
value = $I0
goto done
@@ -419,7 +419,7 @@ float_done:
$S0 = substr expr, start, pos
# XXX Can't we just assign this string directly to the the TclFloat - WJC
$N0 = $S0
- value = new TclFloat
+ value = new .TclFloat
value = $N0
# goto done
@@ -474,7 +474,7 @@ loop_done:
$I0 = find_type "TclFunc"
func = new $I0
- $P0 = new String
+ $P0 = new .String
$P0 = $S0
setattribute func, "TclFunc\x00name", $P0
@@ -518,7 +518,7 @@ unknown_func:
.local pmc name, operand
$S0 = substr expr, pos, 1
- name = new String
+ name = new .String
name = $S0
inc pos
Modified: trunk/languages/tcl/lib/list_to_string.pir
==============================================================================
--- trunk/languages/tcl/lib/list_to_string.pir (original)
+++ trunk/languages/tcl/lib/list_to_string.pir Fri Oct 7 06:59:04 2005
@@ -77,7 +77,7 @@ check_quotes:
goto append_elem
escape:
- $P0 = new String
+ $P0 = new .String
$P0 = $S0
$P0."replace"("\\", "\\\\")
Modified: trunk/languages/tcl/lib/parser.pir
==============================================================================
--- trunk/languages/tcl/lib/parser.pir (original)
+++ trunk/languages/tcl/lib/parser.pir Fri Oct 7 06:59:04 2005
@@ -68,7 +68,7 @@ get_commands:
pos = 0
# characters that end commands
.local pmc chars
- chars = new Hash
+ chars = new .Hash
chars[10] = 1 # \n
chars[59] = 1 # ;
@@ -154,7 +154,7 @@ or the position after the comment.
.param int pos
.local pmc chars
- chars = new Hash
+ chars = new .Hash
chars[10] = 1 # \n
.local pmc word
@@ -265,7 +265,7 @@ eat_space:
if pos >= len goto done
.local pmc dispatch
- dispatch = new Hash
+ dispatch = new .Hash
dispatch[ 34] = "get_quote" # "
dispatch[123] = "get_brace" # {
@@ -513,7 +513,7 @@ done:
$I0 = pos - start
$S0 = substr tcl_code, start, $I0
- $P0 = new String
+ $P0 = new .String
$P0 = $S0
$P0.replace("\\","\\\\")
$S0 = $P0
@@ -542,7 +542,7 @@ Parses a subcommand and returns a TclCom
.local pmc command
.local pmc chars
- chars = new Hash
+ chars = new .Hash
chars[93] = 1 # ]
chars[59] = 1 # ;
Modified: trunk/languages/tcl/lib/returncodes.pir
==============================================================================
--- trunk/languages/tcl/lib/returncodes.pir (original)
+++ trunk/languages/tcl/lib/returncodes.pir Fri Oct 7 06:59:04 2005
@@ -38,7 +38,7 @@ of sorts to the exceptions.
# Simple TCL_ERROR has occurred
.macro throw (mess)
.sym pmc e
- e = new Exception
+ e = new .Exception
e[CODE_SLOT] = TCL_ERROR
e[VALUE_SLOT] = .mess
throw e
@@ -47,7 +47,7 @@ of sorts to the exceptions.
# Specify TCL returncode and message.
.macro throw_with_code (code,mess)
.sym pmc e
- e = new Exception
+ e = new .Exception
e[CODE_SLOT] = .code
e[VALUE_SLOT] = .mess
throw e
@@ -55,7 +55,7 @@ of sorts to the exceptions.
.macro tcl_break ()
.sym pmc e
- e = new Exception
+ e = new .Exception
e[CODE_SLOT] = TCL_BREAK
e[VALUE_SLOT] = ""
throw e
@@ -63,7 +63,7 @@ of sorts to the exceptions.
.macro tcl_continue ()
.sym pmc e
- e = new Exception
+ e = new .Exception
e[CODE_SLOT] = TCL_CONTINUE
e[VALUE_SLOT] = ""
throw e
@@ -71,7 +71,7 @@ of sorts to the exceptions.
.macro tcl_return (value)
.sym pmc e
- e = new Exception
+ e = new .Exception
e[CODE_SLOT] = TCL_RETURN
e[VALUE_SLOT] = .value
throw e
Modified: trunk/languages/tcl/lib/string_to_list.pir
==============================================================================
--- trunk/languages/tcl/lib/string_to_list.pir (original)
+++ trunk/languages/tcl/lib/string_to_list.pir Fri Oct 7 06:59:04 2005
@@ -4,7 +4,7 @@
.param string str
.local pmc retval
- retval = new TclList
+ retval = new .TclList
.local int pos, len
# we're going to increment before we use it, so set it to 0-1
@@ -59,7 +59,7 @@ loop_done:
# grab the rest of the string
$I1 = len - pos
$S0 = substr str, pos, $I1
- $P0 = new String
+ $P0 = new .String
$P0 = $S0
push retval, $P0
goto done
@@ -81,7 +81,7 @@ found_quote:
$I0 = $I1 - pos
$S0 = substr str, pos, $I0
- $P0 = new String
+ $P0 = new .String
$P0 = $S0
push retval, $P0
Modified: trunk/languages/tcl/lib/tclbinaryops.pir
==============================================================================
--- trunk/languages/tcl/lib/tclbinaryops.pir (original)
+++ trunk/languages/tcl/lib/tclbinaryops.pir Fri Oct 7 06:59:04 2005
@@ -105,11 +105,11 @@ Initialize the attributes for an instanc
=cut
.sub __init :method
- $P0 = new TclInt
+ $P0 = new .TclInt
setattribute self, "TclBinaryOp\x00type", $P0
- $P0 = new TclInt
+ $P0 = new .TclInt
setattribute self, "TclBinaryOp\x00l_operand", $P0
- $P0 = new TclInt
+ $P0 = new .TclInt
setattribute self, "TclBinaryOp\x00r_operand", $P0
.end
@@ -128,7 +128,7 @@ Initialize the attributes for an instanc
pir_code=""
.local pmc retval
- retval = new TclInt
+ retval = new .TclInt
.local pmc op,l_operand, r_operand, compile
op = getattribute self, "TclBinaryOp\x00type"
Modified: trunk/languages/tcl/lib/tclcommand.pir
==============================================================================
--- trunk/languages/tcl/lib/tclcommand.pir (original)
+++ trunk/languages/tcl/lib/tclcommand.pir Fri Oct 7 06:59:04 2005
@@ -23,7 +23,7 @@ Initialize the attributes for an instanc
=cut
.sub __init :method
- #$P0 = new TclString
+ #$P0 = new .TclString
#setattribute self, "TclCommand\x00name", $P0
.end
@@ -52,7 +52,7 @@ Execute the command.
name = retval
.local pmc args
- args = new TclList
+ args = new .TclList
.local int elems, i
elems = self
i = 0
Modified: trunk/languages/tcl/lib/tclconst.pir
==============================================================================
--- trunk/languages/tcl/lib/tclconst.pir (original)
+++ trunk/languages/tcl/lib/tclconst.pir Fri Oct 7 06:59:04 2005
@@ -14,7 +14,7 @@ Define the attributes required for the c
$P0 = getclass "String"
$P1 = subclass $P0, "TclConst"
- $P0 = new Hash
+ $P0 = new .Hash
$P0[ 97] = "\a"
$P0[ 98] = "\x8" # \b
$P0[102] = "\f"
@@ -25,7 +25,7 @@ Define the attributes required for the c
store_global "_Tcl", "backslashes", $P0
- $P0 = new Hash
+ $P0 = new .Hash
$P0[ 48] = 0 # "0"
$P0[ 49] = 1
$P0[ 50] = 2
Modified: trunk/languages/tcl/lib/tclfunc.pir
==============================================================================
--- trunk/languages/tcl/lib/tclfunc.pir (original)
+++ trunk/languages/tcl/lib/tclfunc.pir Fri Oct 7 06:59:04 2005
@@ -41,9 +41,9 @@ Initialize the attributes for an instanc
=cut
.sub __init :method
- $P0 = new TclString
+ $P0 = new .TclString
setattribute self, "TclFunc\x00name", $P0
- $P0 = new TclString
+ $P0 = new .TclString
setattribute self, "TclFunc\x00argument", $P0
.end
Modified: trunk/languages/tcl/lib/tclops.pir
==============================================================================
--- trunk/languages/tcl/lib/tclops.pir (original)
+++ trunk/languages/tcl/lib/tclops.pir Fri Oct 7 06:59:04 2005
@@ -23,9 +23,9 @@ Initialize the attributes for an instanc
=cut
.sub __init :method
- $P0 = new TclString
+ $P0 = new .TclString
setattribute self, "TclUnaryOp\x00name", $P0
- $P0 = new TclString
+ $P0 = new .TclString
setattribute self, "TclUnaryOp\x00operand", $P0
.end
@@ -36,7 +36,7 @@ Initialize the attributes for an instanc
pir_code = ""
.local pmc retval
- retval = new TclInt
+ retval = new .TclInt
.local pmc name, operand, compile
name = getattribute self, "TclUnaryOp\x00name"
Modified: trunk/languages/tcl/lib/variables.pir
==============================================================================
--- trunk/languages/tcl/lib/variables.pir (original)
+++ trunk/languages/tcl/lib/variables.pir Fri Oct 7 06:59:04 2005
@@ -134,7 +134,7 @@ set_array:
.return(variable)
create_array:
- array = new TclArray
+ array = new .TclArray
array[key] = value
__store_var(var, array)
variable = clone value
Modified: trunk/languages/tcl/tcl.pir
==============================================================================
--- trunk/languages/tcl/tcl.pir (original)
+++ trunk/languages/tcl/tcl.pir Fri Oct 7 06:59:04 2005
@@ -23,7 +23,7 @@
source = find_global "Tcl", "&source"
.local pmc tcl_interactive
- tcl_interactive = new TclInt
+ tcl_interactive = new .TclInt
store_global "Tcl", "$tcl_interactive", tcl_interactive
.local pmc compiler,pir_compiler
Modified: trunk/languages/tcl/tcl.pir_template
==============================================================================
--- trunk/languages/tcl/tcl.pir_template (original)
+++ trunk/languages/tcl/tcl.pir_template Fri Oct 7 06:59:04 2005
@@ -103,7 +103,7 @@ providing a compreg-compatible method.
# XXX Should track how many args are needed for each of these.
# Keep track of math functions
- math_funcs = new TclArray
+ math_funcs = new .TclArray
math_funcs["abs"] = FUNCTION_ABS
math_funcs["acos"] = FUNCTION_ACOS
@@ -120,8 +120,8 @@ providing a compreg-compatible method.
math_funcs["tan"] = FUNCTION_TAN
math_funcs["tanh"] = FUNCTION_TANH
- operators = new TclArray
- precedence = new TclArray
+ operators = new .TclArray
+ precedence = new .TclArray
# XXX This precedence check should be shoved into [expr]. There's no need
# to make it this generic.
@@ -174,32 +174,32 @@ providing a compreg-compatible method.
# Eventually, we'll need to register MMD for the various Tcl PMCs
# (Presuming we don't do this from the .pmc definitions.)
- $P1 = new TclArray
+ $P1 = new .TclArray
store_global "_Tcl", "proc_body", $P1
- $P1 = new TclArray
+ $P1 = new .TclArray
store_global "_Tcl", "proc_parsed", $P1
- $P1 = new TclArray
+ $P1 = new .TclArray
store_global "_Tcl", "proc_args", $P1
# We need to store these ourselves, because creating dynamic
# .subroutines in PIR runs the risk of garbage collection if we're
# not careful.
# XXX - these should be removed when the procedure is then deleted.
- $P1 = new TclArray
+ $P1 = new .TclArray
store_global "_Tcl", "proc_exec", $P1
# Global variable initialization
- $P0 = new String
+ $P0 = new .String
$P0 = "0.1"
store_global "Tcl", "$tcl_patchLevel", $P0
- $P0 = new String
+ $P0 = new .String
$P0 = "0.1"
store_global "Tcl", "$tcl_version", $P0
# Setup the default channelIds
- $P1 = new TclArray
+ $P1 = new .TclArray
$P2 = getstdin
$P1["stdin"] = $P2
$P2 = getstdout
@@ -209,12 +209,12 @@ providing a compreg-compatible method.
store_global "_Tcl", "channels", $P1
# Setup the id # for channels..
- $P1 = new Integer
+ $P1 = new .Integer
$P1 = 1
store_global "_Tcl", "next_channel_id", $P1
# Setup the calling level (for upvar, uplevel, interpreter)
- $P1 = new Integer
+ $P1 = new .Integer
$P1 = 0
store_global "_Tcl", "call_level", $P1
@@ -223,7 +223,7 @@ providing a compreg-compatible method.
compreg "TCL", $P1
# Setup a global to keep a unique id for compiled subs.
- $P1 = new Integer
+ $P1 = new .Integer
$P1 = 0
store_global "_Tcl", "compiled_num", $P1
