[svn:parrot] r29855 - trunk/languages/tcl/runtime/builtin

[coke@xxxxxxxxxxxx]

Author: coke
Date: Tue Jul 29 11:22:09 2008
New Revision: 29855

Modified:
   trunk/languages/tcl/runtime/builtin/join.pir
   trunk/languages/tcl/runtime/builtin/time.pir
   trunk/languages/tcl/runtime/builtin/while.pir

Log:
[tcl] add in missing namespace/HLL directives ; depending on how 
runtime/builtins.pir gets generated, these could have broken the runtime. 
(infinoid++)



Modified: trunk/languages/tcl/runtime/builtin/join.pir
==============================================================================
--- trunk/languages/tcl/runtime/builtin/join.pir        (original)
+++ trunk/languages/tcl/runtime/builtin/join.pir        Tue Jul 29 11:22:09 2008
@@ -1,3 +1,6 @@
+.HLL 'Tcl', 'tcl_group'
+.namespace []
+
 .sub '&join'
   .param pmc argv :slurpy
 

Modified: trunk/languages/tcl/runtime/builtin/time.pir
==============================================================================
--- trunk/languages/tcl/runtime/builtin/time.pir        (original)
+++ trunk/languages/tcl/runtime/builtin/time.pir        Tue Jul 29 11:22:09 2008
@@ -1,3 +1,6 @@
+.HLL 'Tcl', 'tcl_group'
+.namespace []
+
 .sub '&time'
   .param pmc argv :slurpy
 

Modified: trunk/languages/tcl/runtime/builtin/while.pir
==============================================================================
--- trunk/languages/tcl/runtime/builtin/while.pir       (original)
+++ trunk/languages/tcl/runtime/builtin/while.pir       Tue Jul 29 11:22:09 2008
@@ -1,3 +1,6 @@
+.HLL 'Tcl', 'tcl_group'
+.namespace []
+
 .sub '&while'
   .param pmc argv :slurpy