* internalerror with mod/div fixed

compiler/cg386mat.pas

@@ -123,7 +123,7 @@ implementation
                 begin
                    if not(R_EDX in unused) then
                      begin
-                              exprasmlist^.concat(new(pai386,op_reg(A_PUSH,S_L,R_EDX)));
+                        exprasmlist^.concat(new(pai386,op_reg(A_PUSH,S_L,R_EDX)));
                         popedx:=true;
                      end;
                    if hreg1<>R_EAX then
@@ -148,7 +148,7 @@ implementation
                         emit_reg_reg(A_MOV,S_L,R_EAX,hreg1)
                      end
                    else
-                          if hreg1<>R_EAX then
+                     if hreg1<>R_EAX then
                        emit_reg_reg(A_MOV,S_L,R_EAX,hreg1);
                 end
               else
@@ -549,7 +549,10 @@ implementation
 end.
 {
   $Log$
-  Revision 1.4  1998-08-18 09:24:38  pierre
+  Revision 1.5  1998-08-23 16:07:20  florian
+    * internalerror with mod/div fixed
+
+  Revision 1.4  1998/08/18 09:24:38  pierre
     * small warning position bug fixed
     * support_mmx switches splitting was missing
     * rhide error and warning output corrected

compiler/mppc386.bat

@@ -1,4 +1,4 @@
-ppc386 -Ch8000000 -dI386 -dGDB -a -Sg -OG5az pp.pas %1 %2 %3 %4 %5 %6 %7 %8 %9
+ppc386 -Ch8000000 -dI386 -dGDB -O2p5 -a -Sg pp.pas %1 %2 %3 %4 %5 %6 %7 %8 %9
 if errorlevel 0 goto success
 goto failed
 :success

compiler/pass_1.pas

@@ -1506,6 +1506,9 @@ unit pass_1;
            exit;
 
          left_right_max(p);
+         if p^.left^.registers32<=p^.right^.registers32 then
+           inc(p^.registers32);
+
          p^.resulttype:=s32bitdef;
          p^.location.loc:=LOC_REGISTER;
       end;
@@ -5234,7 +5237,10 @@ unit pass_1;
 end.
 {
   $Log$
-  Revision 1.61  1998-08-21 14:08:47  pierre
+  Revision 1.62  1998-08-23 16:07:22  florian
+    * internalerror with mod/div fixed
+
+  Revision 1.61  1998/08/21 14:08:47  pierre
     + TEST_FUNCRET now default (old code removed)
       works also for m68k (at least compiles)
 

compiler/pexpr.pas

@@ -685,7 +685,7 @@ unit pexpr;
             begin
                { is this an access to a function result ? }
                if assigned(p^.funcretsym) and
-                  ((sym=p^.funcretsym) or
+                  ((pfuncretsym(sym)=p^.funcretsym) or
                   ((pvarsym(sym)=opsym) and
                   ((p^.flags and pi_operator)<>0))) and
                   (p^.retdef<>pdef(voiddef)) and
@@ -1856,7 +1856,10 @@ unit pexpr;
 end.
 {
   $Log$
-  Revision 1.42  1998-08-21 14:08:50  pierre
+  Revision 1.43  1998-08-23 16:07:24  florian
+    * internalerror with mod/div fixed
+
+  Revision 1.42  1998/08/21 14:08:50  pierre
     + TEST_FUNCRET now default (old code removed)
       works also for m68k (at least compiles)