Author: coke
Date: Thu Nov 6 14:56:30 2008
New Revision: 32408
Modified:
trunk/compilers/pct/src/POST/Compiler.pir
Log:
[PCT] default our NAMESPACE to the parrot representation of the top level NS so
we don't have to do a fixup later.
Modified: trunk/compilers/pct/src/POST/Compiler.pir
==============================================================================
--- trunk/compilers/pct/src/POST/Compiler.pir (original)
+++ trunk/compilers/pct/src/POST/Compiler.pir Thu Nov 6 14:56:30 2008
@@ -27,6 +27,7 @@
set_global '@!subcode', $P0
$P0 = new 'String'
+ $P0 = '[]'
set_global '$?NAMESPACE', $P0
.return ()
.end
@@ -260,9 +261,6 @@
goto subpir_done
subpir_post:
- if nskey != '' goto have_nskey
- nskey = '[]'
- have_nskey:
code.'emit'("\n.namespace %0", nskey)
$S0 = code.'escape'(name)
code.'emit'(".sub %0 %1", $S0, pirflags)
