Browse Source

* released setconstnot (changed to {$ifndef nosetconstnot})
* released shlmul (changed to {$ifndef no shlmul})

Jonas Maebe 26 years ago
parent
commit
9c262d21fc
1 changed files with 11 additions and 7 deletions
  1. 11 7
      compiler/cg386add.pas

+ 11 - 7
compiler/cg386add.pas

@@ -935,11 +935,11 @@ implementation
                                   op:=A_AND;
                                   op:=A_AND;
                                   mboverflow:=false;
                                   mboverflow:=false;
                                   unsigned:=false;
                                   unsigned:=false;
-{$IfDef setConstNot}
+{$IfNDef NoSetConstNot}
                                   If (p^.right^.treetype = setconstn) then
                                   If (p^.right^.treetype = setconstn) then
                                     p^.right^.location.reference.offset := not(p^.right^.location.reference.offset)
                                     p^.right^.location.reference.offset := not(p^.right^.location.reference.offset)
                                   Else
                                   Else
-{$EndIf setConstNot}
+{$EndIf NoNosetConstNot}
                                     extra_not:=true;
                                     extra_not:=true;
                                 end
                                 end
                                else
                                else
@@ -1017,7 +1017,7 @@ implementation
                        clear_location(p^.location);
                        clear_location(p^.location);
                        p^.location.register:=getregister32;
                        p^.location.register:=getregister32;
                        p^.location.loc:=LOC_REGISTER;
                        p^.location.loc:=LOC_REGISTER;
-{$IfDef ShlMul}
+{$IfNDef NoShlMul}
                        if p^.right^.treetype=ordconstn then
                        if p^.right^.treetype=ordconstn then
                         swaptree(p);
                         swaptree(p);
                        If (p^.left^.treetype = ordconstn) and
                        If (p^.left^.treetype = ordconstn) and
@@ -1029,7 +1029,7 @@ implementation
                          End
                          End
                        Else
                        Else
                         Begin
                         Begin
-{$EndIf ShlMul}
+{$EndIf NoShlMul}
                          if not(R_EAX in unused) and (p^.location.register<>R_EAX) then
                          if not(R_EAX in unused) and (p^.location.register<>R_EAX) then
                           begin
                           begin
                            exprasmlist^.concat(new(pai386,op_reg(A_PUSH,S_L,R_EAX)));
                            exprasmlist^.concat(new(pai386,op_reg(A_PUSH,S_L,R_EAX)));
@@ -1049,9 +1049,9 @@ implementation
                           exprasmlist^.concat(new(pai386,op_reg(A_POP,S_L,R_EDX)));
                           exprasmlist^.concat(new(pai386,op_reg(A_POP,S_L,R_EDX)));
                          if popeax then
                          if popeax then
                           exprasmlist^.concat(new(pai386,op_reg(A_POP,S_L,R_EAX)));
                           exprasmlist^.concat(new(pai386,op_reg(A_POP,S_L,R_EAX)));
-{$IfDef ShlMul}
+{$IfNDef NoShlMul}
                         End;
                         End;
-{$endif ShlMul}
+{$endif NoShlMul}
                        SetResultLocation(false,true,p);
                        SetResultLocation(false,true,p);
                        exit;
                        exit;
                      end;
                      end;
@@ -2091,7 +2091,11 @@ implementation
 end.
 end.
 {
 {
   $Log$
   $Log$
-  Revision 1.67  1999-06-14 17:47:45  peter
+  Revision 1.68  1999-07-02 12:18:46  jonas
+    * released setconstnot (changed to {$ifndef nosetconstnot})
+    * released shlmul (changed to {$ifndef no shlmul})
+
+  Revision 1.67  1999/06/14 17:47:45  peter
     * merged
     * merged
 
 
   Revision 1.66.2.1  1999/06/14 17:24:40  peter
   Revision 1.66.2.1  1999/06/14 17:24:40  peter