Now, works with Parrot r37968 (PCT/POST refactor)

COMPATIBILITY BREAK
fperrad · Apr 9, 2009 · 4b2e14e · 4b2e14e
1 parent 5600806
commit 4b2e14e
Show file tree

Hide file tree

Showing 2 changed files with 4 additions and 13 deletions.
diff --git a/src/POSTGrammar.tg b/src/POSTGrammar.tg
@@ -87,9 +87,9 @@ PIRCODE
     .local pmc start
     $P0 = get_hll_global ['Lua'; 'POST'], 'Sub'
     start = $P0.'new'('name'=>'&start', 'pirflags'=>':anon :main')
+    start.'add_param'('args', 'optional'=>1)
     $S0 = post.'subid'()
     start.'push_pirop'('inline', $S0, 'inline'=><<'PIRCODE')
-    .param pmc args :optional
 #    print "start\n"
     load_bytecode "languages/lua/lua.pbc"
     lua_openlibs()

diff --git a/src/lua51.pir b/src/lua51.pir
@@ -198,22 +198,13 @@ used in F<languages/lua/src/POSTGrammar.tg>
 
 .sub 'pir' :method :multi(_, ['Lua';'POST';'Chunk'])
     .param pmc node
-    .local pmc subcode
-    subcode = get_global '@!subcode'
-    $P0 = new 'CodeString'
-    push subcode, $P0
-    .local pmc code
-    code = self.'pir_children'(node)
     $S0 = node.'prologue'()
     if $S0 == '' goto L1
-    new code, 'CodeString'
+    .local pmc code
+    code = find_caller_lex '$CODE'
     code.'emit'($S0)
-    $P0 = pop subcode
-    code .= $P0
-    $P0 = subcode[-1]
-    $P0 .= code
   L1:
-    .return (code)
+    .tailcall self.'pir_children'(node)
 .end