|
|
Author: coke
Date: Wed Jul 30 13:21:07 2008
New Revision: 29887
Modified:
trunk/languages/tcl/runtime/builtin/after.pir
trunk/languages/tcl/runtime/builtin/append.pir
trunk/languages/tcl/runtime/builtin/apply.pir
trunk/languages/tcl/runtime/builtin/array.pir
trunk/languages/tcl/runtime/builtin/auto_execok.pir
trunk/languages/tcl/runtime/builtin/auto_load.pir
trunk/languages/tcl/runtime/builtin/binary.pir
trunk/languages/tcl/runtime/builtin/break.pir
trunk/languages/tcl/runtime/builtin/catch.pir
trunk/languages/tcl/runtime/builtin/cd.pir
trunk/languages/tcl/runtime/builtin/clock.pir
trunk/languages/tcl/runtime/builtin/close.pir
trunk/languages/tcl/runtime/builtin/concat.pir
trunk/languages/tcl/runtime/builtin/continue.pir
trunk/languages/tcl/runtime/builtin/dict.pir
trunk/languages/tcl/runtime/builtin/encoding.pir
trunk/languages/tcl/runtime/builtin/eof.pir
trunk/languages/tcl/runtime/builtin/error.pir
trunk/languages/tcl/runtime/builtin/eval.pir
trunk/languages/tcl/runtime/builtin/exec.pir
trunk/languages/tcl/runtime/builtin/exit.pir
trunk/languages/tcl/runtime/builtin/expr.pir
trunk/languages/tcl/runtime/builtin/fconfigure.pir
trunk/languages/tcl/runtime/builtin/file.pir
trunk/languages/tcl/runtime/builtin/fileevent.pir
trunk/languages/tcl/runtime/builtin/flush.pir
trunk/languages/tcl/runtime/builtin/for.pir
trunk/languages/tcl/runtime/builtin/foreach.pir
trunk/languages/tcl/runtime/builtin/format.pir
trunk/languages/tcl/runtime/builtin/gets.pir
trunk/languages/tcl/runtime/builtin/glob.pir
trunk/languages/tcl/runtime/builtin/global.pir
trunk/languages/tcl/runtime/builtin/if.pir
trunk/languages/tcl/runtime/builtin/incr.pir
trunk/languages/tcl/runtime/builtin/info.pir
trunk/languages/tcl/runtime/builtin/inline.pir
trunk/languages/tcl/runtime/builtin/interp.pir
trunk/languages/tcl/runtime/builtin/join.pir
trunk/languages/tcl/runtime/builtin/lappend.pir
trunk/languages/tcl/runtime/builtin/lassign.pir
trunk/languages/tcl/runtime/builtin/lindex.pir
trunk/languages/tcl/runtime/builtin/linsert.pir
trunk/languages/tcl/runtime/builtin/list.pir
trunk/languages/tcl/runtime/builtin/llength.pir
trunk/languages/tcl/runtime/builtin/lrange.pir
trunk/languages/tcl/runtime/builtin/lrepeat.pir
trunk/languages/tcl/runtime/builtin/lreplace.pir
trunk/languages/tcl/runtime/builtin/lreverse.pir
trunk/languages/tcl/runtime/builtin/lsearch.pir
trunk/languages/tcl/runtime/builtin/lset.pir
trunk/languages/tcl/runtime/builtin/lsort.pir
trunk/languages/tcl/runtime/builtin/namespace.pir
trunk/languages/tcl/runtime/builtin/open.pir
trunk/languages/tcl/runtime/builtin/package.pir
trunk/languages/tcl/runtime/builtin/parray.pir
trunk/languages/tcl/runtime/builtin/proc.pir
trunk/languages/tcl/runtime/builtin/puts.pir
trunk/languages/tcl/runtime/builtin/pwd.pir
trunk/languages/tcl/runtime/builtin/regexp.pir
trunk/languages/tcl/runtime/builtin/regsub.pir
trunk/languages/tcl/runtime/builtin/rename.pir
trunk/languages/tcl/runtime/builtin/return.pir
trunk/languages/tcl/runtime/builtin/scan.pir
trunk/languages/tcl/runtime/builtin/set.pir
trunk/languages/tcl/runtime/builtin/socket.pir
trunk/languages/tcl/runtime/builtin/source.pir
trunk/languages/tcl/runtime/builtin/split.pir
trunk/languages/tcl/runtime/builtin/string.pir
trunk/languages/tcl/runtime/builtin/subst.pir
trunk/languages/tcl/runtime/builtin/switch.pir
trunk/languages/tcl/runtime/builtin/time.pir
trunk/languages/tcl/runtime/builtin/trace.pir
trunk/languages/tcl/runtime/builtin/unknown.pir
trunk/languages/tcl/runtime/builtin/unset.pir
trunk/languages/tcl/runtime/builtin/update.pir
trunk/languages/tcl/runtime/builtin/uplevel.pir
trunk/languages/tcl/runtime/builtin/upvar.pir
trunk/languages/tcl/runtime/builtin/variable.pir
trunk/languages/tcl/runtime/builtin/vwait.pir
trunk/languages/tcl/runtime/builtin/while.pir
Log:
[tcl]
- s/'tcl_group'/''/ in preparation for the deprecation of this version of .HLL
- convert some (broken) stub precompiled versions to stub runtime versions
- cleanup some comments.
- use more 'elements'
Modified: trunk/languages/tcl/runtime/builtin/after.pir
==============================================================================
--- trunk/languages/tcl/runtime/builtin/after.pir (original)
+++ trunk/languages/tcl/runtime/builtin/after.pir Wed Jul 30 13:21:07 2008
@@ -1,4 +1,4 @@
-.HLL 'Tcl', 'tcl_group'
+.HLL 'Tcl', ''
.namespace []
.sub '&after'
Modified: trunk/languages/tcl/runtime/builtin/append.pir
==============================================================================
--- trunk/languages/tcl/runtime/builtin/append.pir (original)
+++ trunk/languages/tcl/runtime/builtin/append.pir Wed Jul 30 13:21:07 2008
@@ -1,17 +1,11 @@
-###
-# [append]
-
-#
-# append var [...]
-
-.HLL 'Tcl', 'tcl_group'
+.HLL 'Tcl', ''
.namespace []
.sub '&append'
.param pmc argv :slurpy
.local int argc
- argc = argv
+ argc = elements argv
.local pmc read
read = get_root_global ['_tcl'], 'readVar'
Modified: trunk/languages/tcl/runtime/builtin/apply.pir
==============================================================================
--- trunk/languages/tcl/runtime/builtin/apply.pir (original)
+++ trunk/languages/tcl/runtime/builtin/apply.pir Wed Jul 30 13:21:07 2008
@@ -1,7 +1,4 @@
-###
-# [apply]
-
-.HLL 'Tcl', 'tcl_group'
+.HLL 'Tcl', ''
.namespace []
.sub '&apply'
Modified: trunk/languages/tcl/runtime/builtin/array.pir
==============================================================================
--- trunk/languages/tcl/runtime/builtin/array.pir (original)
+++ trunk/languages/tcl/runtime/builtin/array.pir Wed Jul 30 13:21:07 2008
@@ -1,7 +1,4 @@
-###
-# [array]
-
-.HLL 'Tcl', 'tcl_group'
+.HLL 'Tcl', ''
.namespace []
#
@@ -13,7 +10,7 @@
.param pmc argv :slurpy
.local int argc
- argc = argv
+ argc = elements argv
if argc < 2 goto few_args # subcommand *and* array name
@@ -90,7 +87,7 @@
.param pmc argv
.local int argc
- argc = argv
+ argc = elements argv
if argc goto bad_args
.return (is_array)
@@ -106,7 +103,7 @@
.param pmc argv
.local int argc
- argc = argv
+ argc = elements argv
if argc goto bad_args
if is_array == 0 goto size_none
@@ -127,7 +124,7 @@
.param pmc argv
.local int argc
- argc = argv
+ argc = elements argv
if argc != 1 goto bad_args
.local pmc elems
@@ -199,7 +196,7 @@
.param pmc argv
.local int argc
- argc = argv
+ argc = elements argv
if argc > 1 goto bad_args
.local string match_str
@@ -263,7 +260,7 @@
.param pmc argv
.local int argc
- argc = argv
+ argc = elements argv
if argc > 1 goto bad_args
@@ -321,7 +318,7 @@
.local pmc retval
.local int argc
- argc = argv
+ argc = elements argv
if argc > 2 goto bad_args
.local string mode, pattern
Modified: trunk/languages/tcl/runtime/builtin/auto_execok.pir
==============================================================================
--- trunk/languages/tcl/runtime/builtin/auto_execok.pir (original)
+++ trunk/languages/tcl/runtime/builtin/auto_execok.pir Wed Jul 30 13:21:07 2008
@@ -1,14 +1,8 @@
-# RT#40700: Stub
-# help tcltest compile
-
-.HLL '_Tcl', 'tcl_group'
+.HLL 'Tcl', ''
.namespace []
-.sub 'auto_execok'
- .param string retval
- .param pmc raw_args
- .param pmc argv
-
+.sub '&auto_execok'
+ .param pmc argv :slurpy
.return('')
.end
Modified: trunk/languages/tcl/runtime/builtin/auto_load.pir
==============================================================================
--- trunk/languages/tcl/runtime/builtin/auto_load.pir (original)
+++ trunk/languages/tcl/runtime/builtin/auto_load.pir Wed Jul 30 13:21:07 2008
@@ -1,14 +1,8 @@
-# RT#40709: Stub
-# help tcltest compile
-
-.HLL '_Tcl', 'tcl_group'
+.HLL 'Tcl', ''
.namespace []
-.sub 'auto_load'
- .param string retval
- .param pmc raw_args
- .param pmc argv
-
+.sub '&auto_load'
+ .param pmc argv :slurpy
.return('')
.end
Modified: trunk/languages/tcl/runtime/builtin/binary.pir
==============================================================================
--- trunk/languages/tcl/runtime/builtin/binary.pir (original)
+++ trunk/languages/tcl/runtime/builtin/binary.pir Wed Jul 30 13:21:07 2008
@@ -1,4 +1,4 @@
-.HLL 'Tcl', 'tcl_group'
+.HLL 'Tcl', ''
.namespace []
.sub '&binary'
Modified: trunk/languages/tcl/runtime/builtin/break.pir
==============================================================================
--- trunk/languages/tcl/runtime/builtin/break.pir (original)
+++ trunk/languages/tcl/runtime/builtin/break.pir Wed Jul 30 13:21:07 2008
@@ -1,4 +1,4 @@
-.HLL 'Tcl', 'tcl_group'
+.HLL 'Tcl', ''
.namespace []
.sub '&break'
Modified: trunk/languages/tcl/runtime/builtin/catch.pir
==============================================================================
--- trunk/languages/tcl/runtime/builtin/catch.pir (original)
+++ trunk/languages/tcl/runtime/builtin/catch.pir Wed Jul 30 13:21:07 2008
@@ -1,7 +1,4 @@
-###
-# [catch]
-
-.HLL 'Tcl', 'tcl_group'
+.HLL 'Tcl', ''
.namespace []
.sub '&catch'
Modified: trunk/languages/tcl/runtime/builtin/cd.pir
==============================================================================
--- trunk/languages/tcl/runtime/builtin/cd.pir (original)
+++ trunk/languages/tcl/runtime/builtin/cd.pir Wed Jul 30 13:21:07 2008
@@ -1,4 +1,4 @@
-.HLL 'Tcl', 'tcl_group'
+.HLL 'Tcl', ''
.namespace []
.sub '&cd'
Modified: trunk/languages/tcl/runtime/builtin/clock.pir
==============================================================================
--- trunk/languages/tcl/runtime/builtin/clock.pir (original)
+++ trunk/languages/tcl/runtime/builtin/clock.pir Wed Jul 30 13:21:07 2008
@@ -1,11 +1,11 @@
-.HLL 'Tcl', 'tcl_group'
+.HLL 'Tcl', ''
.namespace []
.sub '&clock'
.param pmc argv :slurpy
.local int argc
- argc = argv
+ argc = elements argv
if argc == 0 goto few_args
Modified: trunk/languages/tcl/runtime/builtin/close.pir
==============================================================================
--- trunk/languages/tcl/runtime/builtin/close.pir (original)
+++ trunk/languages/tcl/runtime/builtin/close.pir Wed Jul 30 13:21:07 2008
@@ -1,7 +1,4 @@
-###
-# [close]
-
-.HLL 'Tcl', 'tcl_group'
+.HLL 'Tcl', ''
.namespace []
.sub '&close'
Modified: trunk/languages/tcl/runtime/builtin/concat.pir
==============================================================================
--- trunk/languages/tcl/runtime/builtin/concat.pir (original)
+++ trunk/languages/tcl/runtime/builtin/concat.pir Wed Jul 30 13:21:07 2008
@@ -1,14 +1,11 @@
-###
-# [concat]
-
-.HLL 'Tcl', 'tcl_group'
+.HLL 'Tcl', ''
.namespace []
.sub '&concat'
.param pmc argv :slurpy
.local int argc
- argc = argv
+ argc = elements argv
.local string retval
retval = ''
Modified: trunk/languages/tcl/runtime/builtin/continue.pir
==============================================================================
--- trunk/languages/tcl/runtime/builtin/continue.pir (original)
+++ trunk/languages/tcl/runtime/builtin/continue.pir Wed Jul 30 13:21:07 2008
@@ -1,4 +1,4 @@
-.HLL 'Tcl', 'tcl_group'
+.HLL 'Tcl', ''
.namespace []
.sub '&continue'
Modified: trunk/languages/tcl/runtime/builtin/dict.pir
==============================================================================
--- trunk/languages/tcl/runtime/builtin/dict.pir (original)
+++ trunk/languages/tcl/runtime/builtin/dict.pir Wed Jul 30 13:21:07 2008
@@ -1,7 +1,4 @@
-###
-# [dict]
-
-.HLL 'Tcl', 'tcl_group'
+.HLL 'Tcl', ''
.namespace []
.sub '&dict'
Modified: trunk/languages/tcl/runtime/builtin/encoding.pir
==============================================================================
--- trunk/languages/tcl/runtime/builtin/encoding.pir (original)
+++ trunk/languages/tcl/runtime/builtin/encoding.pir Wed Jul 30 13:21:07 2008
@@ -1,7 +1,4 @@
-###
-# [encoding]
-
-.HLL 'Tcl', 'tcl_group'
+.HLL 'Tcl', ''
.namespace []
.sub '&encoding'
Modified: trunk/languages/tcl/runtime/builtin/eof.pir
==============================================================================
--- trunk/languages/tcl/runtime/builtin/eof.pir (original)
+++ trunk/languages/tcl/runtime/builtin/eof.pir Wed Jul 30 13:21:07 2008
@@ -1,4 +1,4 @@
-.HLL 'Tcl', 'tcl_group'
+.HLL 'Tcl', ''
.namespace []
.sub '&eof'
Modified: trunk/languages/tcl/runtime/builtin/error.pir
==============================================================================
--- trunk/languages/tcl/runtime/builtin/error.pir (original)
+++ trunk/languages/tcl/runtime/builtin/error.pir Wed Jul 30 13:21:07 2008
@@ -1,19 +1,11 @@
-###
-# [error]
-
-# RT#40757: only handles the one arg form of error right now.
-# need global vars before setting errorInfo, and stack tracing isn't
-# ready yet.
-# (So, the usage statement lies)
-
-.HLL 'Tcl', 'tcl_group'
+.HLL 'Tcl', ''
.namespace []
.sub '&error'
.param pmc argv :slurpy
.local int argc
- argc = argv
+ argc = elements argv
if argc < 1 goto badargs
if argc > 3 goto badargs
Modified: trunk/languages/tcl/runtime/builtin/eval.pir
==============================================================================
--- trunk/languages/tcl/runtime/builtin/eval.pir (original)
+++ trunk/languages/tcl/runtime/builtin/eval.pir Wed Jul 30 13:21:07 2008
@@ -1,10 +1,4 @@
-###
-# [eval]
-
-#
-# eval arg [... arg arg]
-
-.HLL 'Tcl', 'tcl_group'
+.HLL 'Tcl', ''
.namespace []
.sub '&eval'
Modified: trunk/languages/tcl/runtime/builtin/exec.pir
==============================================================================
--- trunk/languages/tcl/runtime/builtin/exec.pir (original)
+++ trunk/languages/tcl/runtime/builtin/exec.pir Wed Jul 30 13:21:07 2008
@@ -1,14 +1,8 @@
-# RT#40698: Stub
-# help tcltest compile
-
-.HLL '_Tcl', 'tcl_group'
+.HLL 'Tcl', ''
.namespace []
-.sub 'exec'
- .param string retval
- .param pmc raw_args
- .param pmc argv
-
+.sub '&exec'
+ .param pmc argv :slurpy
.return('')
.end
Modified: trunk/languages/tcl/runtime/builtin/exit.pir
==============================================================================
--- trunk/languages/tcl/runtime/builtin/exit.pir (original)
+++ trunk/languages/tcl/runtime/builtin/exit.pir Wed Jul 30 13:21:07 2008
@@ -1,4 +1,4 @@
-.HLL 'Tcl', 'tcl_group'
+.HLL 'Tcl', ''
.namespace []
.sub '&exit'
Modified: trunk/languages/tcl/runtime/builtin/expr.pir
==============================================================================
--- trunk/languages/tcl/runtime/builtin/expr.pir (original)
+++ trunk/languages/tcl/runtime/builtin/expr.pir Wed Jul 30 13:21:07 2008
@@ -1,10 +1,4 @@
-###
-# [expr]
-
-#
-# expr arg [... arg arg]
-
-.HLL 'Tcl', 'tcl_group'
+.HLL 'Tcl', ''
.namespace []
.sub '&expr'
@@ -19,7 +13,7 @@
expr = ''
looper = 0
- argc = argv
+ argc = elements argv
unless argc goto no_args
expr = join ' ', argv
Modified: trunk/languages/tcl/runtime/builtin/fconfigure.pir
==============================================================================
--- trunk/languages/tcl/runtime/builtin/fconfigure.pir (original)
+++ trunk/languages/tcl/runtime/builtin/fconfigure.pir Wed Jul 30 13:21:07 2008
@@ -1,14 +1,8 @@
-# RT#40704: Stub
-# help tcltest compile
-
-.HLL '_Tcl', 'tcl_group'
+.HLL 'Tcl', ''
.namespace []
-.sub 'fconfigure'
- .param string retval
- .param pmc raw_args
- .param pmc argv
-
+.sub '&fconfigure'
+ .param pmc argv :slurpy
.return('')
.end
Modified: trunk/languages/tcl/runtime/builtin/file.pir
==============================================================================
--- trunk/languages/tcl/runtime/builtin/file.pir (original)
+++ trunk/languages/tcl/runtime/builtin/file.pir Wed Jul 30 13:21:07 2008
@@ -1,11 +1,11 @@
-.HLL 'Tcl', 'tcl_group'
+.HLL 'Tcl', ''
.namespace []
.sub '&file'
.param pmc argv :slurpy
.local int argc
- argc = argv
+ argc = elements argv
if argc == 0 goto few_args
@@ -81,7 +81,7 @@
.param pmc argv
.local int argc
- argc = argv
+ argc = elements argv
if argc == 0 goto bad_args
.local string dirsep
@@ -124,7 +124,7 @@
.param pmc argv
.local int argc
- argc = argv
+ argc = elements argv
if argc != 2 goto bad_args
@@ -190,7 +190,7 @@
.param pmc argv
.local int argc
- argc = argv
+ argc = elements argv
if argc != 1 goto bad_args
@@ -227,7 +227,7 @@
.param pmc argv
.local int argc
- argc = argv
+ argc = elements argv
if argc != 1 goto bad_args
@@ -264,7 +264,7 @@
.param pmc argv
.local int argc
- argc = argv
+ argc = elements argv
if argc != 1 goto bad_args
@@ -298,7 +298,7 @@
.param pmc argv
.local int argc
- argc = argv
+ argc = elements argv
if argc != 1 goto bad_args
@@ -326,7 +326,7 @@
.param pmc argv
.local int argc
- argc = argv
+ argc = elements argv
if argc != 1 goto bad_args
@@ -354,7 +354,7 @@
.param pmc argv
.local int argc
- argc = argv
+ argc = elements argv
if argc != 1 goto bad_args
Modified: trunk/languages/tcl/runtime/builtin/fileevent.pir
==============================================================================
--- trunk/languages/tcl/runtime/builtin/fileevent.pir (original)
+++ trunk/languages/tcl/runtime/builtin/fileevent.pir Wed Jul 30 13:21:07 2008
@@ -1,4 +1,4 @@
-.HLL 'Tcl', 'tcl_group'
+.HLL 'Tcl', ''
.namespace []
.sub '&fileevent'
Modified: trunk/languages/tcl/runtime/builtin/flush.pir
==============================================================================
--- trunk/languages/tcl/runtime/builtin/flush.pir (original)
+++ trunk/languages/tcl/runtime/builtin/flush.pir Wed Jul 30 13:21:07 2008
@@ -1,4 +1,4 @@
-.HLL 'Tcl', 'tcl_group'
+.HLL 'Tcl', ''
.namespace []
.sub '&flush'
Modified: trunk/languages/tcl/runtime/builtin/for.pir
==============================================================================
--- trunk/languages/tcl/runtime/builtin/for.pir (original)
+++ trunk/languages/tcl/runtime/builtin/for.pir Wed Jul 30 13:21:07 2008
@@ -1,4 +1,4 @@
-.HLL 'Tcl', 'tcl_group'
+.HLL 'Tcl', ''
.namespace []
.sub '&for'
Modified: trunk/languages/tcl/runtime/builtin/foreach.pir
==============================================================================
--- trunk/languages/tcl/runtime/builtin/foreach.pir (original)
+++ trunk/languages/tcl/runtime/builtin/foreach.pir Wed Jul 30 13:21:07 2008
@@ -1,4 +1,4 @@
-.HLL 'Tcl', 'tcl_group'
+.HLL 'Tcl', ''
.namespace []
.sub '&foreach'
Modified: trunk/languages/tcl/runtime/builtin/format.pir
==============================================================================
--- trunk/languages/tcl/runtime/builtin/format.pir (original)
+++ trunk/languages/tcl/runtime/builtin/format.pir Wed Jul 30 13:21:07 2008
@@ -1,17 +1,11 @@
-###
-# [format]
-
-#
-# format string arg arg arg
-
-.HLL 'Tcl', 'tcl_group'
+.HLL 'Tcl', ''
.namespace []
.sub '&format'
.param pmc argv :slurpy
.local int argc
- argc = argv
+ argc = elements argv
if argc == 0 goto noargs
.local string format
Modified: trunk/languages/tcl/runtime/builtin/gets.pir
==============================================================================
--- trunk/languages/tcl/runtime/builtin/gets.pir (original)
+++ trunk/languages/tcl/runtime/builtin/gets.pir Wed Jul 30 13:21:07 2008
@@ -1,10 +1,4 @@
-=head1 [gets]
-
-read a line from a channel
-
-=cut
-
-.HLL 'Tcl', 'tcl_group'
+.HLL 'Tcl', ''
.namespace []
.sub '&gets'
Modified: trunk/languages/tcl/runtime/builtin/glob.pir
==============================================================================
--- trunk/languages/tcl/runtime/builtin/glob.pir (original)
+++ trunk/languages/tcl/runtime/builtin/glob.pir Wed Jul 30 13:21:07 2008
@@ -1,14 +1,8 @@
-# RT#40702: Stub
-# help tcltest compile
-
-.HLL '_Tcl', 'tcl_group'
+.HLL 'Tcl', ''
.namespace []
-.sub 'glob'
- .param string retval
- .param pmc raw_args
- .param pmc argv
-
+.sub '&glob'
+ .param pmc argv :slurpy
.return('')
.end
Modified: trunk/languages/tcl/runtime/builtin/global.pir
==============================================================================
--- trunk/languages/tcl/runtime/builtin/global.pir (original)
+++ trunk/languages/tcl/runtime/builtin/global.pir Wed Jul 30 13:21:07 2008
@@ -1,14 +1,11 @@
-###
-# [global]
-
-.HLL 'Tcl', 'tcl_group'
+.HLL 'Tcl', ''
.namespace []
.sub '&global'
.param pmc argv :slurpy
.local int argc
- argc = argv
+ argc = elements argv
if argc == 0 goto badargs
Modified: trunk/languages/tcl/runtime/builtin/if.pir
==============================================================================
--- trunk/languages/tcl/runtime/builtin/if.pir (original)
+++ trunk/languages/tcl/runtime/builtin/if.pir Wed Jul 30 13:21:07 2008
@@ -1,7 +1,4 @@
-###
-# [if]
-
-.HLL 'Tcl', 'tcl_group'
+.HLL 'Tcl', ''
.namespace []
.sub '&if'
Modified: trunk/languages/tcl/runtime/builtin/incr.pir
==============================================================================
--- trunk/languages/tcl/runtime/builtin/incr.pir (original)
+++ trunk/languages/tcl/runtime/builtin/incr.pir Wed Jul 30 13:21:07 2008
@@ -1,4 +1,4 @@
-.HLL 'Tcl', 'tcl_group'
+.HLL 'Tcl', ''
.namespace []
.sub '&incr'
Modified: trunk/languages/tcl/runtime/builtin/info.pir
==============================================================================
--- trunk/languages/tcl/runtime/builtin/info.pir (original)
+++ trunk/languages/tcl/runtime/builtin/info.pir Wed Jul 30 13:21:07 2008
@@ -1,10 +1,4 @@
-=head2 [incr]
-
- Provide introspection about the tcl interpreter. (And by extension, parrot.)
-
-=cut
-
-.HLL 'Tcl', 'tcl_group'
+.HLL 'Tcl', ''
.namespace []
.sub '&info'
@@ -549,7 +543,7 @@
.sub 'nameofexecutable'
.param pmc argv
.local int argc
- argc = argv
+ argc = elements argv
if argc goto bad_args
$P1 = get_root_global ['_tcl'], 'nameofexecutable'
.return($P1)
Modified: trunk/languages/tcl/runtime/builtin/inline.pir
==============================================================================
--- trunk/languages/tcl/runtime/builtin/inline.pir (original)
+++ trunk/languages/tcl/runtime/builtin/inline.pir Wed Jul 30 13:21:07 2008
@@ -1,18 +1,11 @@
-#
-# [inline <language> { code }]
-#
-# a partcl only command that should probably live in a loadable lib.
-#
-# Like eval, except that you must specify a registered compiler.
-
-.HLL 'Tcl', 'tcl_group'
+.HLL 'Tcl', ''
.namespace []
.sub '&inline'
.param pmc argv :slurpy
.local int argc
- argc = argv
+ argc = elements argv
if argc != 2 goto bad_args
Modified: trunk/languages/tcl/runtime/builtin/interp.pir
==============================================================================
--- trunk/languages/tcl/runtime/builtin/interp.pir (original)
+++ trunk/languages/tcl/runtime/builtin/interp.pir Wed Jul 30 13:21:07 2008
@@ -1,14 +1,8 @@
-# RT#40701: Stub
-# help shootout compile
-
-.HLL '_Tcl', 'tcl_group'
+.HLL 'Tcl', ''
.namespace []
-.sub 'interp'
- .param string retval
- .param pmc raw_args
- .param pmc argv
-
+.sub '&interp'
+ .param pmc argv :slurpy
.return('')
.end
Modified: trunk/languages/tcl/runtime/builtin/join.pir
==============================================================================
--- trunk/languages/tcl/runtime/builtin/join.pir (original)
+++ trunk/languages/tcl/runtime/builtin/join.pir Wed Jul 30 13:21:07 2008
@@ -1,4 +1,4 @@
-.HLL 'Tcl', 'tcl_group'
+.HLL 'Tcl', ''
.namespace []
.sub '&join'
Modified: trunk/languages/tcl/runtime/builtin/lappend.pir
==============================================================================
--- trunk/languages/tcl/runtime/builtin/lappend.pir (original)
+++ trunk/languages/tcl/runtime/builtin/lappend.pir Wed Jul 30 13:21:07 2008
@@ -1,7 +1,4 @@
-##
-# [list]
-
-.HLL 'Tcl', 'tcl_group'
+.HLL 'Tcl', ''
.namespace []
.sub '&lappend'
@@ -10,7 +7,7 @@
.local pmc value, retval
.local int return_type
.local int argc
- argc = argv
+ argc = elements argv
if argc == 0 goto error
.local string listname
Modified: trunk/languages/tcl/runtime/builtin/lassign.pir
==============================================================================
--- trunk/languages/tcl/runtime/builtin/lassign.pir (original)
+++ trunk/languages/tcl/runtime/builtin/lassign.pir Wed Jul 30 13:21:07 2008
@@ -1,11 +1,11 @@
-.HLL 'Tcl', 'tcl_group'
+.HLL 'Tcl', ''
.namespace []
.sub '&lassign'
.param pmc argv :slurpy
.local int argc
- argc = argv
+ argc = elements argv
if argc < 2 goto bad_args
.local pmc retval
Modified: trunk/languages/tcl/runtime/builtin/lindex.pir
==============================================================================
--- trunk/languages/tcl/runtime/builtin/lindex.pir (original)
+++ trunk/languages/tcl/runtime/builtin/lindex.pir Wed Jul 30 13:21:07 2008
@@ -1,14 +1,11 @@
-###
-# [source]
-
-.HLL 'Tcl', 'tcl_group'
+.HLL 'Tcl', ''
.namespace []
.sub '&lindex'
.param pmc argv :slurpy
.local int argc
- argc = argv
+ argc = elements argv
if argc < 1 goto bad_args
.local pmc toList, getIndex
Modified: trunk/languages/tcl/runtime/builtin/linsert.pir
==============================================================================
--- trunk/languages/tcl/runtime/builtin/linsert.pir (original)
+++ trunk/languages/tcl/runtime/builtin/linsert.pir Wed Jul 30 13:21:07 2008
@@ -1,8 +1,4 @@
-#
-# [linsert]
-#
-
-.HLL 'Tcl', 'tcl_group'
+.HLL 'Tcl', ''
.namespace []
.sub '&linsert'
Modified: trunk/languages/tcl/runtime/builtin/list.pir
==============================================================================
--- trunk/languages/tcl/runtime/builtin/list.pir (original)
+++ trunk/languages/tcl/runtime/builtin/list.pir Wed Jul 30 13:21:07 2008
@@ -1,7 +1,4 @@
-###
-# [list]
-
-.HLL 'Tcl', 'tcl_group'
+.HLL 'Tcl', ''
.namespace []
.sub '&list'
Modified: trunk/languages/tcl/runtime/builtin/llength.pir
==============================================================================
--- trunk/languages/tcl/runtime/builtin/llength.pir (original)
+++ trunk/languages/tcl/runtime/builtin/llength.pir Wed Jul 30 13:21:07 2008
@@ -1,4 +1,4 @@
-.HLL 'Tcl', 'tcl_group'
+.HLL 'Tcl', ''
.namespace []
.sub '&llength'
Modified: trunk/languages/tcl/runtime/builtin/lrange.pir
==============================================================================
--- trunk/languages/tcl/runtime/builtin/lrange.pir (original)
+++ trunk/languages/tcl/runtime/builtin/lrange.pir Wed Jul 30 13:21:07 2008
@@ -1,4 +1,4 @@
-.HLL 'Tcl', 'tcl_group'
+.HLL 'Tcl', ''
.namespace []
.sub '&lrange'
Modified: trunk/languages/tcl/runtime/builtin/lrepeat.pir
==============================================================================
--- trunk/languages/tcl/runtime/builtin/lrepeat.pir (original)
+++ trunk/languages/tcl/runtime/builtin/lrepeat.pir Wed Jul 30 13:21:07 2008
@@ -1,7 +1,4 @@
-##
-# [lrepeat]
-
-.HLL 'Tcl', 'tcl_group'
+.HLL 'Tcl', ''
.namespace []
.sub '&lrepeat'
Modified: trunk/languages/tcl/runtime/builtin/lreplace.pir
==============================================================================
--- trunk/languages/tcl/runtime/builtin/lreplace.pir (original)
+++ trunk/languages/tcl/runtime/builtin/lreplace.pir Wed Jul 30 13:21:07 2008
@@ -1,7 +1,4 @@
-##
-# [lreplace]
-
-.HLL 'Tcl', 'tcl_group'
+.HLL 'Tcl', ''
.namespace []
.sub '&lreplace'
Modified: trunk/languages/tcl/runtime/builtin/lreverse.pir
==============================================================================
--- trunk/languages/tcl/runtime/builtin/lreverse.pir (original)
+++ trunk/languages/tcl/runtime/builtin/lreverse.pir Wed Jul 30 13:21:07 2008
@@ -1,4 +1,4 @@
-.HLL 'Tcl', 'tcl_group'
+.HLL 'Tcl', ''
.namespace []
.sub '&lreverse'
Modified: trunk/languages/tcl/runtime/builtin/lsearch.pir
==============================================================================
--- trunk/languages/tcl/runtime/builtin/lsearch.pir (original)
+++ trunk/languages/tcl/runtime/builtin/lsearch.pir Wed Jul 30 13:21:07 2008
@@ -1,8 +1,6 @@
-.HLL 'Tcl', 'tcl_group'
+.HLL 'Tcl', ''
.namespace []
-# RT#40699: this is only a stub
-
.sub '&lsearch'
.param pmc argv :slurpy
Modified: trunk/languages/tcl/runtime/builtin/lset.pir
==============================================================================
--- trunk/languages/tcl/runtime/builtin/lset.pir (original)
+++ trunk/languages/tcl/runtime/builtin/lset.pir Wed Jul 30 13:21:07 2008
@@ -1,8 +1,4 @@
-#
-# [lset]
-#
-
-.HLL 'Tcl', 'tcl_group'
+.HLL 'Tcl', ''
.namespace []
.sub '&lset'
Modified: trunk/languages/tcl/runtime/builtin/lsort.pir
==============================================================================
--- trunk/languages/tcl/runtime/builtin/lsort.pir (original)
+++ trunk/languages/tcl/runtime/builtin/lsort.pir Wed Jul 30 13:21:07 2008
@@ -1,8 +1,4 @@
-#
-# [lsort]
-#
-
-.HLL 'Tcl', 'tcl_group'
+.HLL 'Tcl', ''
.namespace []
.sub '&lsort'
@@ -13,7 +9,7 @@
.local pmc compare
.local pmc sort
- argc = argv
+ argc = elements argv
if argc == 0 goto wrong_args
compare = get_root_global ['_tcl';'helpers';'lsort'], 'ascii'
Modified: trunk/languages/tcl/runtime/builtin/namespace.pir
==============================================================================
--- trunk/languages/tcl/runtime/builtin/namespace.pir (original)
+++ trunk/languages/tcl/runtime/builtin/namespace.pir Wed Jul 30 13:21:07 2008
@@ -9,7 +9,7 @@
=cut
-.HLL 'Tcl', 'tcl_group'
+.HLL 'Tcl', ''
.namespace []
.sub '&namespace'
@@ -17,8 +17,9 @@
.local pmc retval
- $I3 = argv
- unless $I3 goto no_args
+ .local int argc
+ argc = elements argv
+ unless argc goto no_args
.local string subcommand_name
subcommand_name = shift argv
@@ -73,7 +74,7 @@
.param pmc argv
.local int argc
- argc = argv
+ argc = elements argv
if argc goto bad_args
.local pmc ns, splitNamespace
@@ -127,7 +128,7 @@
.param pmc argv
.local int argc
- argc = argv
+ argc = elements argv
if argc != 1 goto bad_args
.local pmc colons, split, name
@@ -173,7 +174,7 @@
.param pmc argv
.local int argc
- argc = argv
+ argc = elements argv
if argc != 1 goto bad_args
.local pmc p6r,match
@@ -200,7 +201,7 @@
.param pmc argv
.local int argc
- argc = argv
+ argc = elements argv
if argc != 1 goto bad_args
.local pmc p6r,match
@@ -268,7 +269,7 @@
($S0, $S1) = compileTcl($S0, 'pir_only'=>1)
$I0 = code.unique()
code.emit(<<'END_PIR', namespace, $S0, $I0, $S1)
-.HLL 'tcl', 'tcl_group'
+.HLL 'tcl', ''
.namespace %0
# src/compiler.pir :: pir_compiler (2)
.pragma n_operators 1
Modified: trunk/languages/tcl/runtime/builtin/open.pir
==============================================================================
--- trunk/languages/tcl/runtime/builtin/open.pir (original)
+++ trunk/languages/tcl/runtime/builtin/open.pir Wed Jul 30 13:21:07 2008
@@ -1,4 +1,4 @@
-.HLL 'Tcl', 'tcl_group'
+.HLL 'Tcl', ''
.namespace []
.sub '&open'
Modified: trunk/languages/tcl/runtime/builtin/package.pir
==============================================================================
--- trunk/languages/tcl/runtime/builtin/package.pir (original)
+++ trunk/languages/tcl/runtime/builtin/package.pir Wed Jul 30 13:21:07 2008
@@ -1,16 +1,8 @@
-=head1 [package]
-
-=cut
-
.HLL 'Tcl', ''
.namespace []
-# RT#40707: Stub
-# help tcltest compile
-
.sub '&package'
.param pmc args :slurpy
-
.return('')
.end
Modified: trunk/languages/tcl/runtime/builtin/parray.pir
==============================================================================
--- trunk/languages/tcl/runtime/builtin/parray.pir (original)
+++ trunk/languages/tcl/runtime/builtin/parray.pir Wed Jul 30 13:21:07 2008
@@ -1,4 +1,4 @@
-.HLL 'Tcl', 'tcl_group'
+.HLL 'Tcl', ''
.namespace []
#
Modified: trunk/languages/tcl/runtime/builtin/proc.pir
==============================================================================
--- trunk/languages/tcl/runtime/builtin/proc.pir (original)
+++ trunk/languages/tcl/runtime/builtin/proc.pir Wed Jul 30 13:21:07 2008
@@ -1,10 +1,4 @@
-=head1 [proc]
-
-Create a PIR sub on the fly for this user defined proc.
-
-=cut
-
-.HLL 'Tcl', 'tcl_group'
+.HLL 'Tcl', ''
.namespace []
.sub '&proc'
Modified: trunk/languages/tcl/runtime/builtin/puts.pir
==============================================================================
--- trunk/languages/tcl/runtime/builtin/puts.pir (original)
+++ trunk/languages/tcl/runtime/builtin/puts.pir Wed Jul 30 13:21:07 2008
@@ -1,14 +1,11 @@
-###
-# [puts]
-
-.HLL 'Tcl', 'tcl_group'
+.HLL 'Tcl', ''
.namespace []
.sub '&puts'
.param pmc argv :slurpy
.local int argc
- argc = argv
+ argc = elements argv
if argc == 0 goto error
if argc > 3 goto error
Modified: trunk/languages/tcl/runtime/builtin/pwd.pir
==============================================================================
--- trunk/languages/tcl/runtime/builtin/pwd.pir (original)
+++ trunk/languages/tcl/runtime/builtin/pwd.pir Wed Jul 30 13:21:07 2008
@@ -1,4 +1,4 @@
-.HLL 'Tcl', 'tcl_group'
+.HLL 'Tcl', ''
.namespace []
.sub '&pwd'
Modified: trunk/languages/tcl/runtime/builtin/regexp.pir
==============================================================================
--- trunk/languages/tcl/runtime/builtin/regexp.pir (original)
+++ trunk/languages/tcl/runtime/builtin/regexp.pir Wed Jul 30 13:21:07 2008
@@ -1,11 +1,11 @@
-.HLL 'Tcl', 'tcl_group'
+.HLL 'Tcl', ''
.namespace []
.sub '®exp'
.param pmc argv :slurpy
.local int argc
- argc = argv
+ argc = elements argv
if argc < 2 goto badargs
.local pmc options
Modified: trunk/languages/tcl/runtime/builtin/regsub.pir
==============================================================================
--- trunk/languages/tcl/runtime/builtin/regsub.pir (original)
+++ trunk/languages/tcl/runtime/builtin/regsub.pir Wed Jul 30 13:21:07 2008
@@ -1,4 +1,4 @@
-.HLL 'Tcl', 'tcl_group'
+.HLL 'Tcl', ''
.namespace []
.sub '®sub'
Modified: trunk/languages/tcl/runtime/builtin/rename.pir
==============================================================================
--- trunk/languages/tcl/runtime/builtin/rename.pir (original)
+++ trunk/languages/tcl/runtime/builtin/rename.pir Wed Jul 30 13:21:07 2008
@@ -1,14 +1,11 @@
-###
-# [rename]
-
-.HLL 'Tcl', 'tcl_group'
+.HLL 'Tcl', ''
.namespace []
.sub '&rename'
.param pmc argv :slurpy
.local int argc
- argc = argv
+ argc = elements argv
if argc != 2 goto bad_args
.local string oldName, newName
Modified: trunk/languages/tcl/runtime/builtin/return.pir
==============================================================================
--- trunk/languages/tcl/runtime/builtin/return.pir (original)
+++ trunk/languages/tcl/runtime/builtin/return.pir Wed Jul 30 13:21:07 2008
@@ -1,7 +1,4 @@
-###
-# [return]
-
-.HLL 'Tcl', 'tcl_group'
+.HLL 'Tcl', ''
.namespace []
.sub '&return'
Modified: trunk/languages/tcl/runtime/builtin/scan.pir
==============================================================================
--- trunk/languages/tcl/runtime/builtin/scan.pir (original)
+++ trunk/languages/tcl/runtime/builtin/scan.pir Wed Jul 30 13:21:07 2008
@@ -1,4 +1,4 @@
-.HLL 'Tcl', 'tcl_group'
+.HLL 'Tcl', ''
.namespace []
.sub '&scan'
Modified: trunk/languages/tcl/runtime/builtin/set.pir
==============================================================================
--- trunk/languages/tcl/runtime/builtin/set.pir (original)
+++ trunk/languages/tcl/runtime/builtin/set.pir Wed Jul 30 13:21:07 2008
@@ -1,4 +1,4 @@
-.HLL 'Tcl', 'tcl_group'
+.HLL 'Tcl', ''
.namespace []
.sub '&set'
Modified: trunk/languages/tcl/runtime/builtin/socket.pir
==============================================================================
--- trunk/languages/tcl/runtime/builtin/socket.pir (original)
+++ trunk/languages/tcl/runtime/builtin/socket.pir Wed Jul 30 13:21:07 2008
@@ -1,10 +1,4 @@
-=head1 [socket]
-
-Sockets!
-
-=cut
-
-.HLL 'Tcl', 'tcl_group'
+.HLL 'Tcl', ''
.namespace []
.sub '&socket'
Modified: trunk/languages/tcl/runtime/builtin/source.pir
==============================================================================
--- trunk/languages/tcl/runtime/builtin/source.pir (original)
+++ trunk/languages/tcl/runtime/builtin/source.pir Wed Jul 30 13:21:07 2008
@@ -1,7 +1,4 @@
-###
-# [source]
-
-.HLL 'Tcl', 'tcl_group'
+.HLL 'Tcl', ''
.namespace []
.sub '&source'
Modified: trunk/languages/tcl/runtime/builtin/split.pir
==============================================================================
--- trunk/languages/tcl/runtime/builtin/split.pir (original)
+++ trunk/languages/tcl/runtime/builtin/split.pir Wed Jul 30 13:21:07 2008
@@ -1,11 +1,11 @@
-.HLL 'Tcl', 'tcl_group'
+.HLL 'Tcl', ''
.namespace []
.sub '&split'
.param pmc argv :slurpy
.local int argc
- argc = argv
+ argc = elements argv
if argc == 0 goto bad_args
if argc > 2 goto bad_args
Modified: trunk/languages/tcl/runtime/builtin/string.pir
==============================================================================
--- trunk/languages/tcl/runtime/builtin/string.pir (original)
+++ trunk/languages/tcl/runtime/builtin/string.pir Wed Jul 30 13:21:07 2008
@@ -1,7 +1,4 @@
-###
-# [string]
-
-.HLL 'Tcl', 'tcl_group'
+.HLL 'Tcl', ''
.namespace []
.sub '&string'
@@ -9,8 +6,9 @@
.local pmc retval
- $I3 = argv
- unless $I3 goto no_args
+ .local int argc
+ argc = elements argv
+ unless argc goto no_args
.local string subcommand_name
subcommand_name = shift argv
@@ -71,7 +69,7 @@
.local int argc
.local pmc retval
- argc = argv
+ argc = elements argv
if argc > 3 goto bad_args
if argc < 2 goto bad_args
$S1 = argv[0]
@@ -101,7 +99,7 @@
.local int argc
.local pmc retval
- argc = argv
+ argc = elements argv
if argc > 3 goto bad_args
if argc < 2 goto bad_args
$S1 = argv[0]
@@ -179,7 +177,7 @@
.local int argc
.local pmc retval
- argc = argv
+ argc = elements argv
if argc > 3 goto bad_args
if argc < 1 goto bad_args
@@ -232,7 +230,7 @@
.local int argc
.local pmc retval
- argc = argv
+ argc = elements argv
if argc > 3 goto bad_args
if argc < 1 goto bad_args
@@ -284,7 +282,7 @@
.local int argc
.local pmc retval
- argc = argv
+ argc = elements argv
if argc > 3 goto bad_args
if argc < 1 goto bad_args
@@ -334,7 +332,7 @@
.param pmc argv
.local int argc
- argc = argv
+ argc = elements argv
if argc != 1 goto bad_length
$S0 = argv[0]
$I0 = bytelength $S0
@@ -348,7 +346,7 @@
.param pmc argv
.local int argc
- argc = argv
+ argc = elements argv
if argc != 1 goto bad_length
$S1 = argv[0]
@@ -408,7 +406,7 @@
.param pmc argv
.local int argc
- argc = argv
+ argc = elements argv
.local int nocase
nocase = 0
@@ -463,7 +461,7 @@
.param pmc argv
.local int argc
- argc = argv
+ argc = elements argv
if argc != 2 goto bad_repeat
.local string the_string
@@ -491,7 +489,7 @@
.param pmc argv
.local int argc
- argc = argv
+ argc = elements argv
if argc == 0 goto bad_args
if argc > 3 goto bad_args
.local int nocase
@@ -572,7 +570,7 @@
.sub 'equal'
.param pmc argv
.local int argc
- argc = argv
+ argc = elements argv
.local string a, b
.local int length, nocase
@@ -596,7 +594,7 @@
nocase = 1
gotten:
- argc = argv
+ argc = elements argv
if argc == 2 goto flags_done
if argc < 2 goto bad_args
branch flag_loop
@@ -635,7 +633,7 @@
.local pmc toNumber
.local int argc
- argc = argv
+ argc = elements argv
.local int strict
strict = 0
@@ -830,7 +828,7 @@
.local pmc getIndex
getIndex = get_root_global ['_tcl'], 'getIndex'
- argc = argv
+ argc = elements argv
if argc > 4 goto bad_args
if argc < 3 goto bad_args
@@ -882,7 +880,7 @@
.local int argc
.local pmc retval
- argc = argv
+ argc = elements argv
if argc > 2 goto bad_args
if argc < 1 goto bad_args
@@ -921,7 +919,7 @@
.local int argc
.local pmc retval
- argc = argv
+ argc = elements argv
if argc > 2 goto bad_args
if argc < 1 goto bad_args
@@ -961,7 +959,7 @@
.local int argc
.local pmc retval
- argc = argv
+ argc = elements argv
if argc > 2 goto bad_args
if argc < 1 goto bad_args
@@ -1012,7 +1010,7 @@
.local int size
size = -1
- argc = argv
+ argc = elements argv
if argc < 1 goto bad_args
@@ -1020,7 +1018,7 @@
$S1 = pop argv
args_processment:
- argc = argv
+ argc = elements argv
if argc == 0 goto args_processed
$S4 = shift argv
if $S4 == '-nocase' goto arg_nocase
Modified: trunk/languages/tcl/runtime/builtin/subst.pir
==============================================================================
--- trunk/languages/tcl/runtime/builtin/subst.pir (original)
+++ trunk/languages/tcl/runtime/builtin/subst.pir Wed Jul 30 13:21:07 2008
@@ -1,4 +1,4 @@
-.HLL 'Tcl', 'tcl_group'
+.HLL 'Tcl', ''
.namespace []
.sub '&subst'
Modified: trunk/languages/tcl/runtime/builtin/switch.pir
==============================================================================
--- trunk/languages/tcl/runtime/builtin/switch.pir (original)
+++ trunk/languages/tcl/runtime/builtin/switch.pir Wed Jul 30 13:21:07 2008
@@ -1,4 +1,4 @@
-.HLL 'Tcl', 'tcl_group'
+.HLL 'Tcl', ''
.namespace []
.sub '&switch'
Modified: trunk/languages/tcl/runtime/builtin/time.pir
==============================================================================
--- trunk/languages/tcl/runtime/builtin/time.pir (original)
+++ trunk/languages/tcl/runtime/builtin/time.pir Wed Jul 30 13:21:07 2008
@@ -1,4 +1,4 @@
-.HLL 'Tcl', 'tcl_group'
+.HLL 'Tcl', ''
.namespace []
.sub '&time'
Modified: trunk/languages/tcl/runtime/builtin/trace.pir
==============================================================================
--- trunk/languages/tcl/runtime/builtin/trace.pir (original)
+++ trunk/languages/tcl/runtime/builtin/trace.pir Wed Jul 30 13:21:07 2008
@@ -1,4 +1,4 @@
-.HLL 'Tcl', 'tcl_group'
+.HLL 'Tcl', ''
.namespace []
.sub '&trace'
Modified: trunk/languages/tcl/runtime/builtin/unknown.pir
==============================================================================
--- trunk/languages/tcl/runtime/builtin/unknown.pir (original)
+++ trunk/languages/tcl/runtime/builtin/unknown.pir Wed Jul 30 13:21:07 2008
@@ -1,7 +1,4 @@
-###
-# [unknown]
-
-.HLL 'Tcl', 'tcl_group'
+.HLL 'Tcl', ''
.namespace []
.sub '&unknown'
Modified: trunk/languages/tcl/runtime/builtin/unset.pir
==============================================================================
--- trunk/languages/tcl/runtime/builtin/unset.pir (original)
+++ trunk/languages/tcl/runtime/builtin/unset.pir Wed Jul 30 13:21:07 2008
@@ -1,7 +1,4 @@
-###
-# [unset]
-
-.HLL 'Tcl', 'tcl_group'
+.HLL 'Tcl', ''
.namespace []
.sub '&unset'
Modified: trunk/languages/tcl/runtime/builtin/update.pir
==============================================================================
--- trunk/languages/tcl/runtime/builtin/update.pir (original)
+++ trunk/languages/tcl/runtime/builtin/update.pir Wed Jul 30 13:21:07 2008
@@ -1,14 +1,8 @@
-# RT#40705: Stub
-# help tcltest compile
-
-.HLL '_Tcl', 'tcl_group'
+.HLL 'Tcl', ''
.namespace []
-.sub 'update'
- .param string retval
- .param pmc raw_args
- .param pmc argv
-
+.sub '&update'
+ .param pmc argv :slurpy
.return('')
.end
Modified: trunk/languages/tcl/runtime/builtin/uplevel.pir
==============================================================================
--- trunk/languages/tcl/runtime/builtin/uplevel.pir (original)
+++ trunk/languages/tcl/runtime/builtin/uplevel.pir Wed Jul 30 13:21:07 2008
@@ -1,10 +1,4 @@
-###
-# [uplevel]
-
-# Pretty much a copy of 'eval' except for the call_level...
-# needs argument checking.
-
-.HLL 'Tcl', 'tcl_group'
+.HLL 'Tcl', ''
.namespace []
.sub '&uplevel'
Modified: trunk/languages/tcl/runtime/builtin/upvar.pir
==============================================================================
--- trunk/languages/tcl/runtime/builtin/upvar.pir (original)
+++ trunk/languages/tcl/runtime/builtin/upvar.pir Wed Jul 30 13:21:07 2008
@@ -1,7 +1,4 @@
-###
-# [upvar]
-
-.HLL 'Tcl', 'tcl_group'
+.HLL 'Tcl', ''
.namespace []
.sub '&upvar'
@@ -36,7 +33,7 @@
findVar = get_root_global ['_tcl'], 'findVar'
.local int counter, argc
- argc = argv
+ argc = elements argv
counter = 0
.local int difference
difference = call_level - new_call_level
Modified: trunk/languages/tcl/runtime/builtin/variable.pir
==============================================================================
--- trunk/languages/tcl/runtime/builtin/variable.pir (original)
+++ trunk/languages/tcl/runtime/builtin/variable.pir Wed Jul 30 13:21:07 2008
@@ -1,7 +1,4 @@
-###
-# [variable]
-
-.HLL 'Tcl', 'tcl_group'
+.HLL 'Tcl', ''
.namespace []
.sub '&variable'
Modified: trunk/languages/tcl/runtime/builtin/vwait.pir
==============================================================================
--- trunk/languages/tcl/runtime/builtin/vwait.pir (original)
+++ trunk/languages/tcl/runtime/builtin/vwait.pir Wed Jul 30 13:21:07 2008
@@ -1,4 +1,4 @@
-.HLL 'Tcl', 'tcl_group'
+.HLL 'Tcl', ''
.namespace []
.sub '&vwait'
Modified: trunk/languages/tcl/runtime/builtin/while.pir
==============================================================================
--- trunk/languages/tcl/runtime/builtin/while.pir (original)
+++ trunk/languages/tcl/runtime/builtin/while.pir Wed Jul 30 13:21:07 2008
@@ -1,4 +1,4 @@
-.HLL 'Tcl', 'tcl_group'
+.HLL 'Tcl', ''
.namespace []
.sub '&while'
|
|