cvs commit: parrot basic_opcodes.c

[simon]

simon       01/09/03 09:42:29

  Modified:    .        basic_opcodes.c
  Log:
  Coupl'a logic bugs. (I think)
  
  Revision  Changes    Path
  1.2       +3 -3      parrot/basic_opcodes.c
  
  Index: basic_opcodes.c
  ===================================================================
  RCS file: /home/perlcvs/parrot/basic_opcodes.c,v
  retrieving revision 1.1
  retrieving revision 1.2
  diff -u -w -r1.1 -r1.2
  --- basic_opcodes.c   2001/08/29 12:07:01     1.1
  +++ basic_opcodes.c   2001/09/03 16:42:29     1.2
  @@ -94,13 +94,13 @@
   
   // DEC Ix
   IV *dec_i(IV cur_opcode[], struct Perl_Interp *interpreter) {
  -  INT_REG(cur_opcode[1]);
  +  INT_REG(cur_opcode[1])--;
     return cur_opcode + 2;
   }
   
   // DEC Ix, nnn
   IV *dec_i_ic(IV cur_opcode[], struct Perl_Interp *interpreter) {
  -  INT_REG(cur_opcode[1]) += cur_opcode[2];
  +  INT_REG(cur_opcode[1]) -= cur_opcode[2];
     return cur_opcode + 3;
   }
   
  @@ -189,7 +189,7 @@
   
   // DEC Nx
   IV *dec_n(IV cur_opcode[], struct Perl_Interp *interpreter) {
  -  NUM_REG(cur_opcode[1]);
  +  NUM_REG(cur_opcode[1]) -= 1;
     return cur_opcode + 2;
   }