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

[svn:parrot] r35736 - trunk/examples/library

From:
coke
Date:
January 18, 2009 21:55
Subject:
[svn:parrot] r35736 - trunk/examples/library
Message ID:
20090119055526.80C3DCB9AE@x12.develooper.com
Author: coke
Date: Sun Jan 18 21:55:25 2009
New Revision: 35736

Modified:
   trunk/examples/library/pcre.pir

Log:
update opcode usage.



Modified: trunk/examples/library/pcre.pir
==============================================================================
--- trunk/examples/library/pcre.pir	(original)
+++ trunk/examples/library/pcre.pir	Sun Jan 18 21:55:25 2009
@@ -35,7 +35,7 @@
     .local pmc func
     .local pmc lib
 
-    func= find_global 'PCRE', 'init'
+    func= get_hll_global ['PCRE'], 'init'
     lib= func()
 
     .local string s
@@ -52,7 +52,7 @@
     .local string error
     .local int errptr
 
-    func= find_global 'PCRE', 'compile'
+    func= get_hll_global ['PCRE'], 'compile'
     ( regex, error, errptr )= func( pat, 0 )
 
     .local int is_regex_defined
@@ -62,7 +62,7 @@
     .local int ok
     .local pmc result
 
-    func= find_global 'PCRE', 'match'
+    func= get_hll_global ['PCRE'], 'match'
     ( ok, result )= func( regex, s, 0, 0 )
 
     if ok < 0 goto NOMATCH
@@ -73,7 +73,7 @@
     .local string match
 
 LP:
-    func= find_global 'PCRE', 'dollar'
+    func= get_hll_global ['PCRE'], 'dollar'
     match= func( s, ok, result, i )
     print match
     print "\n"



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