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