develooper Front page | perl.cvs.parrot | Postings from January 2009

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

From:
fperrad
Date:
January 7, 2009 05:59
Subject:
[svn:parrot] r35121 - trunk/languages/m4/src
Message ID:
20090107135851.AC18CCB9F9@x12.develooper.com
Author: fperrad
Date: Wed Jan  7 05:58:50 2009
New Revision: 35121

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

Log:
[m4]
- fix deprecated opcodes : store/find_global

Modified: trunk/languages/m4/src/builtin.pir
==============================================================================
--- trunk/languages/m4/src/builtin.pir	(original)
+++ trunk/languages/m4/src/builtin.pir	Wed Jan  7 05:58:50 2009
@@ -814,7 +814,7 @@
   .local pmc exit_status_as_pmc
   exit_status_as_pmc = new 'Integer'
   exit_status_as_pmc  = exit_status
-  store_global 'exit_status', exit_status_as_pmc
+  set_global 'exit_status', exit_status_as_pmc
 
   .return ( '' )
 .end
@@ -832,7 +832,7 @@
 
   # Retrieve it as a global set by m4_sysval
   .local pmc exit_status_as_pmc
-  find_global exit_status_as_pmc, 'exit_status'
+  exit_status_as_pmc = get_global 'exit_status'
 
   .local string ret
   ret = exit_status_as_pmc



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