Ver código fonte

* fixed uninitialised function result in getfinaldestination() when
maximum recursion reached

Jonas Maebe 20 anos atrás
pai
commit
04b1263e7f
2 arquivos alterados com 12 adições e 4 exclusões
  1. 6 2
      compiler/aoptobj.pas
  2. 6 2
      compiler/i386/popt386.pas

+ 6 - 2
compiler/aoptobj.pas

@@ -908,9 +908,9 @@ Unit AoptObj;
           l: tasmlabel;
 
       begin
+        GetfinalDestination := false;
         if level > 20 then
           exit;
-        GetfinalDestination := false;
         p1 := getlabelwithsym(tasmlabel(hp.oper[0]^.ref^.symbol));
         if assigned(p1) then
           begin
@@ -1085,7 +1085,11 @@ End.
 
 {
  $Log$
- Revision 1.15  2005-02-14 17:13:06  peter
+ Revision 1.16  2005-02-25 20:50:53  jonas
+   * fixed uninitialised function result in getfinaldestination() when
+     maximum recursion reached
+
+ Revision 1.15  2005/02/14 17:13:06  peter
    * truncate log
 
 }

+ 6 - 2
compiler/i386/popt386.pas

@@ -466,9 +466,9 @@ var
     end;
 
   begin
+    GetfinalDestination := false;
     if level > 20 then
       exit;
-    GetfinalDestination := false;
     p1 := dfa.getlabelwithsym(tasmlabel(hp.oper[0]^.ref^.symbol));
     if assigned(p1) then
       begin
@@ -2003,7 +2003,11 @@ end.
 
 {
   $Log$
-  Revision 1.67  2005-02-14 17:13:10  peter
+  Revision 1.68  2005-02-25 20:50:53  jonas
+    * fixed uninitialised function result in getfinaldestination() when
+      maximum recursion reached
+
+  Revision 1.67  2005/02/14 17:13:10  peter
     * truncate log
 
 }