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);
}