Fixes wayward copy and paste for register save ops:


RCS file: /home/perlcvs/parrot/core.ops,v
retrieving revision 1.4
diff -u -r1.4 core.ops
--- core.ops    2001/10/15 21:18:42     1.4
+++ core.ops    2001/10/16 01:40:34
@@ -1745,15 +1745,15 @@
 }
 
 AUTO_OP restore(n) {
-  pop_generic_entry(interpreter, &($1), STACK_ENTRY_INT);
+  pop_generic_entry(interpreter, &($1), STACK_ENTRY_NUM);
 }
 
 AUTO_OP restore(p) {
-  pop_generic_entry(interpreter, &($1), STACK_ENTRY_INT);
+  pop_generic_entry(interpreter, &($1), STACK_ENTRY_PMC);
 }
 
 AUTO_OP restore(s) {
-  pop_generic_entry(interpreter, &($1), STACK_ENTRY_INT);
+  pop_generic_entry(interpreter, &($1), STACK_ENTRY_STR);
 }

Reply via email to