[perl #15334] PATCH: Little imcc patch

[via RT]

# New Ticket Created by  Leon Brocard 
# Please include the string:  [perl #15334]
# in the subject line of all future correspondence about this issue. 
# <URL: http://rt.perl.org/rt2/Ticket/Display.html?id=15334 >


The following patch makes imcc use the saveall and restoreall 
ops (now that they're implemented).

Leon, at oscon
-- 
Leon Brocard.............................http://www.astray.com/
scribot.................................http://www.scribot.com/

...... #include <witty.f>


-- attachment  1 ------------------------------------------------------
url: http://rt.perl.org/rt2/attach/30965/25951/866b55/imcc.y.patch


Index: imcc.y
===================================================================
RCS file: /cvs/public/parrot/languages/imcc/imcc.y,v
retrieving revision 1.8
diff -u -r1.8 imcc.y
--- imcc.y      11 Jul 2002 21:09:12 -0000      1.8
+++ imcc.y      22 Jul 2002 14:29:11 -0000
@@ -168,12 +168,12 @@
 }
 
 SymReg * iSAVEALL() {
-    emitb(mk_instruction("pushs\npushi\npushn\npushp", NULL, NULL, NULL, NULL, 0));
+    emitb(mk_instruction("saveall", NULL, NULL, NULL, NULL, 0));
     return 0;
 }
 
 SymReg * iRESTOREALL() {
-    emitb(mk_instruction("popp\npopn\npopi\npops", NULL, NULL, NULL, NULL, 0));
+    emitb(mk_instruction("restoreall", NULL, NULL, NULL, NULL, 0));
     return 0;
 }