develooper Front page | perl.cvs.parrot | Postings from December 2008

[svn:parrot] r34355 - trunk/languages/lua/src

From:
fperrad
Date:
December 25, 2008 12:17
Subject:
[svn:parrot] r34355 - trunk/languages/lua/src
Message ID:
20081225201603.49E9CCBA12@x12.develooper.com
Author: fperrad
Date: Thu Dec 25 12:16:02 2008
New Revision: 34355

Modified:
   trunk/languages/lua/src/POSTGrammar.tg

Log:
[Lua]
- use the attribute 'hll' of POST::Sub

Modified: trunk/languages/lua/src/POSTGrammar.tg
==============================================================================
--- trunk/languages/lua/src/POSTGrammar.tg	(original)
+++ trunk/languages/lua/src/POSTGrammar.tg	Thu Dec 25 12:16:02 2008
@@ -87,7 +87,7 @@
   L4:
     .local pmc start
     $P0 = get_hll_global ['Lua'; 'POST'], 'Sub'
-    start = $P0.'new'('name'=>'&start', 'pirflags'=>':anon :main')
+    start = $P0.'new'('name'=>'&start', 'pirflags'=>':anon :main', 'hll'=>'lua')
     $S0 = post.'subid'()
     start.'push_pirop'('inline', $S0, 'inline'=><<'PIRCODE')
     .param pmc args :optional
@@ -111,7 +111,6 @@
     $P0 = get_hll_global ['Lua'; 'POST'], 'Chunk'
     .tailcall $P0.'new'(start, 'node'=>node, 'prologue'=><<'PIRCODE')
 .include "interpinfo.pasm"
-.HLL "lua"
 .loadlib "lua_group"
 PIRCODE
 }



nntp.perl.org: Perl Programming lists via nntp and http.
Comments to Ask Bjørn Hansen at ask@perl.org | Group listing | About