Index: core.ops
===================================================================
RCS file: /home/perlcvs/parrot/core.ops,v
retrieving revision 1.147
diff -u -r1.147 core.ops
--- core.ops 5 Jun 2002 01:56:08 -0000 1.147
+++ core.ops 5 Jun 2002 20:27:41 -0000
@@ -2731,6 +2731,38 @@
=cut
+########################################
+
+=item B<saveall>()
+
+Save all the registers.
+
+=item B<restoreall>()
+
+Restore all the registers.
+
+=cut
+
+inline op saveall() {
+ Parrot_push_i(interpreter);
+ Parrot_push_n(interpreter);
+ Parrot_push_s(interpreter);
+ Parrot_push_p(interpreter);
+ goto NEXT();
+}
+
+inline op restoreall() {
+ Parrot_pop_i(interpreter);
+ Parrot_pop_n(interpreter);
+ Parrot_pop_s(interpreter);
+ Parrot_pop_p(interpreter);
+ goto NEXT();
+}
+
+=back
+
+=cut
+
###############################################################################
=head2 Register stack operations
