Преглед на файлове

- disabled "result := value; exit;" -> exit(value) optimization because
a) it was wrong
b) exit(value) works now exactly the same as that
(it was only activated with -Or)

Jonas Maebe преди 22 години
родител
ревизия
820302b098
променени са 1 файла, в които са добавени 9 реда и са изтрити 1 реда
  1. 9 1
      compiler/nbas.pas

+ 9 - 1
compiler/nbas.pas

@@ -376,6 +376,7 @@ implementation
          hp:=tstatementnode(left);
          hp:=tstatementnode(left);
          while assigned(hp) do
          while assigned(hp) do
            begin
            begin
+(*
               if cs_regalloc in aktglobalswitches then
               if cs_regalloc in aktglobalswitches then
                 begin
                 begin
                    { node transformations }
                    { node transformations }
@@ -422,6 +423,7 @@ implementation
                         aktfilepos:=hp.left.fileinfo;
                         aktfilepos:=hp.left.fileinfo;
                      end;
                      end;
                 end;
                 end;
+*)
               if assigned(hp.left) then
               if assigned(hp.left) then
                 begin
                 begin
                    codegenerror:=false;
                    codegenerror:=false;
@@ -800,7 +802,13 @@ begin
 end.
 end.
 {
 {
   $Log$
   $Log$
-  Revision 1.52  2003-05-23 14:27:35  peter
+  Revision 1.53  2003-05-30 21:01:44  jonas
+    - disabled "result := value; exit;" -> exit(value) optimization because
+      a) it was wrong
+      b) exit(value) works now exactly the same as that
+     (it was only activated with -Or)
+
+  Revision 1.52  2003/05/23 14:27:35  peter
     * remove some unit dependencies
     * remove some unit dependencies
     * current_procinfo changes to store more info
     * current_procinfo changes to store more info