Author: coke
Date: Thu Feb 8 14:30:11 2007
New Revision: 16931
Added:
trunk/languages/tcl/runtime/builtin/close.pir
Removed:
trunk/languages/tcl/src/builtin/close.pir
Modified:
trunk/ (props changed)
trunk/MANIFEST
trunk/languages/tcl/config/makefiles/root.in
Log:
[tcl] Make the [close] stub runtime, not compile-time.
Modified: trunk/MANIFEST
==============================================================================
--- trunk/MANIFEST (original)
+++ trunk/MANIFEST Thu Feb 8 14:30:11 2007
@@ -1928,6 +1928,7 @@
languages/tcl/runtime/builtin/binary.pir [tcl]
languages/tcl/runtime/builtin/catch.pir [tcl]
languages/tcl/runtime/builtin/clock.pir [tcl]
+languages/tcl/runtime/builtin/close.pir [tcl]
languages/tcl/runtime/builtin/concat.pir [tcl]
languages/tcl/runtime/builtin/dict.pir [tcl]
languages/tcl/runtime/builtin/encoding.pir [tcl]
@@ -1988,7 +1989,6 @@
languages/tcl/src/builtin/auto_load.pir [tcl]
languages/tcl/src/builtin/break.tmt [tcl]
languages/tcl/src/builtin/cd.pir [tcl]
-languages/tcl/src/builtin/close.pir [tcl]
languages/tcl/src/builtin/continue.tmt [tcl]
languages/tcl/src/builtin/eof.tmt [tcl]
languages/tcl/src/builtin/exec.pir [tcl]
Modified: trunk/languages/tcl/config/makefiles/root.in
==============================================================================
--- trunk/languages/tcl/config/makefiles/root.in (original)
+++ trunk/languages/tcl/config/makefiles/root.in Thu Feb 8 14:30:11 2007
@@ -55,7 +55,6 @@
$(C_BUILTIN)/auto_execok.pir \
$(C_BUILTIN)/auto_load.pir \
$(C_BUILTIN)/cd.pir \
-$(C_BUILTIN)/close.pir \
$(C_BUILTIN)/exec.pir \
$(C_BUILTIN)/expr.pir \
$(C_BUILTIN)/fconfigure.pir \
Added: trunk/languages/tcl/runtime/builtin/close.pir
==============================================================================
--- (empty file)
+++ trunk/languages/tcl/runtime/builtin/close.pir Thu Feb 8 14:30:11 2007
@@ -0,0 +1,14 @@
+###
+# [close]
+
+.HLL 'Tcl', 'tcl_group'
+.namespace
+
+.sub '&close'
+ .param pmc argv :slurpy
+
+ .local int argc
+ argc = elements argv
+
+ .return('')
+.end
