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

[svn:parrot] r33600 - trunk/languages/m4/src

From:
bernhard
Date:
December 7, 2008 04:49
Subject:
[svn:parrot] r33600 - trunk/languages/m4/src
Message ID:
20081207124947.11001CB9AF@x12.develooper.com
Author: bernhard
Date: Sun Dec  7 04:49:46 2008
New Revision: 33600

Modified:
   trunk/languages/m4/src/macro.pir

Log:
[m4] Make m4 work again, by using the simple syntax for calling indirect functions


Modified: trunk/languages/m4/src/macro.pir
==============================================================================
--- trunk/languages/m4/src/macro.pir	(original)
+++ trunk/languages/m4/src/macro.pir	Sun Dec  7 04:49:46 2008
@@ -178,14 +178,7 @@
 TOKEN_FUNC:
   .local pmc func
   func = symbol['func']
-  # indirect call of subs, seems to need elaborate PIR syntax
-  .begin_call
-    .set_arg state
-    .set_arg arguments
-  .call func
-    ret_func_1:
-    .result text
-  .end_call
+  (text) = func( state, arguments )
 
 FINISH_CALL_MACRO:
   .return ( text )



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