Author: fperrad
Date: Tue Aug 19 05:24:18 2008
New Revision: 30327
Modified:
trunk/languages/lua/src/lua51.pir
Log:
[Lua]
- fix compiler (broken by r30297 : PCT/POST)
Modified: trunk/languages/lua/src/lua51.pir
==============================================================================
--- trunk/languages/lua/src/lua51.pir (original)
+++ trunk/languages/lua/src/lua51.pir Tue Aug 19 05:24:18 2008
@@ -198,15 +198,20 @@
.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'
code.'emit'($S0)
- $P0 = self.'code'()
+ $P0 = pop subcode
code .= $P0
- self.'code'(code)
+ $P0 = subcode[-1]
+ $P0 .= code
L1:
.return (code)
.end
