浏览代码

- 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);
          while assigned(hp) do
            begin
+(*
               if cs_regalloc in aktglobalswitches then
                 begin
                    { node transformations }
@@ -422,6 +423,7 @@ implementation
                         aktfilepos:=hp.left.fileinfo;
                      end;
                 end;
+*)
               if assigned(hp.left) then
                 begin
                    codegenerror:=false;
@@ -800,7 +802,13 @@ begin
 end.
 {
   $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
     * current_procinfo changes to store more info