WebSVN – Kolibri OS – Diff – /programs/develop/oberon07/Source/REG.ob07

 CONST
+    N = 16;
     N = 16;
+    R0*  =  0;  R1*  =  1;  R2*  =  2;  R3*  =  3;
     R4*  =  4;  R5*  =  5;  R6*  =  6;  R7*  =  7;
-    R0* = 0; R1* = 1; R2* = 2;
+    R8*  =  8;  R9*  =  9;  R10* = 10;  R11* = 11;
-    R8* = 8; R9* = 9; R10* = 10; R11* = 11;
+    R12* = 12;  R13* = 13;  R14* = 14;  R15* = 15;
     NVR = 32;
 TYPE
     OP1 = PROCEDURE (arg: INTEGER);
         load, save: OP3
     END;
-PROCEDURE push (R: REGS);
+PROCEDURE push (VAR R: REGS);
 VAR
     DEC(R.top);
     INC(R.pushed)
 END push;
-PROCEDURE pop (R: REGS; reg: INTEGER);
+PROCEDURE pop (VAR R: REGS; reg: INTEGER);
 VAR
     i: INTEGER;
     RETURN i
 END GetFreeReg;
-PROCEDURE Put (R: REGS; reg: INTEGER);
+PROCEDURE Put (VAR R: REGS; reg: INTEGER);
 BEGIN
     EXCL(R.regs, reg);
     INC(R.top);
     R.stk[R.top] := reg
 END Put;
     RETURN reg
 END PopAnyReg;
-PROCEDURE GetAnyReg* (R: REGS): INTEGER;
+PROCEDURE GetAnyReg* (VAR R: REGS): INTEGER;
 VAR
     RETURN reg
 END GetAnyReg;
-PROCEDURE GetReg* (R: REGS; reg: INTEGER): BOOLEAN;
+PROCEDURE GetReg* (VAR R: REGS; reg: INTEGER): BOOLEAN;
 VAR
     free, n: INTEGER;
     res: BOOLEAN;
     RETURN res
 END GetReg;
-PROCEDURE Exchange* (R: REGS; reg1, reg2: INTEGER): BOOLEAN;
+PROCEDURE Exchange* (VAR R: REGS; reg1, reg2: INTEGER): BOOLEAN;
 VAR
     RETURN res
 END Exchange;
-PROCEDURE Drop* (R: REGS);
+PROCEDURE Drop* (VAR R: REGS);
 BEGIN
     INCL(R.regs, R.stk[R.top]);
     DEC(R.top)
 END Drop;
-PROCEDURE BinOp* (R: REGS; VAR reg1, reg2: INTEGER);
+PROCEDURE BinOp* (VAR R: REGS; VAR reg1, reg2: INTEGER);
         reg1 := PopAnyReg(R)
     END
 END BinOp;
-PROCEDURE UnOp* (R: REGS; VAR reg: INTEGER);
+PROCEDURE UnOp* (VAR R: REGS; VAR reg: INTEGER);
 BEGIN
     IF R.top >= 0 THEN
         reg := R.stk[R.top]
     ELSE
         reg := PopAnyReg(R)
     END
 END UnOp;
-PROCEDURE PushAll* (R: REGS);
+PROCEDURE PushAll* (VAR R: REGS);
 BEGIN
+    WHILE R.top >= 0 DO
+        push(R)
+    END
+END PushAll;
+PROCEDURE PushAll_1* (VAR R: REGS);
+BEGIN
-    WHILE R.top >= 0 DO
+    WHILE R.top >= 1 DO
         push(R)
     END
-END PushAll;
+END PushAll_1;
     END;
     R.size[reg] := size
 END Lock;
-PROCEDURE Release* (R: REGS; reg: INTEGER);
+PROCEDURE Release* (VAR R: REGS; reg: INTEGER);
 BEGIN
     ASSERT(reg IN R.vregs);
         END
     END
 END Restore;
-PROCEDURE Reset* (R: REGS);
+PROCEDURE Reset* (VAR R: REGS);
 VAR
     i: INTEGER;
     RETURN res
 END GetAnyVarReg;
 PROCEDURE Create* (push, pop: OP1; mov, xch: OP2; load, save: OP3; regs, vregs: SET): REGS;
-VAR
+PROCEDURE Init* (VAR R: REGS; push, pop: OP1; mov, xch: OP2; load, save: OP3; regs, vregs: SET);
-    R: REGS;
-    i: INTEGER;
 VAR
-BEGIN
+    i: INTEGER;
     NEW(R);
 BEGIN
     FOR i := 0 TO NVR - 1 DO
         R.offs[i] := 0;
         R.size[i] := 0
     END
-    RETURN R
-END Create;
+END Init;

Subversion Repositories Kolibri OS

(root)/programs/develop/oberon07/Source/REG.ob07 – Rev 7597 → 7693