Browse Source

* fixed one regvar problem, but regvars are still broken since the dwarf
merge...

Jonas Maebe 21 years ago
parent
commit
1f990337c3
1 changed files with 6 additions and 2 deletions
  1. 6 2
      compiler/ncgutil.pas

+ 6 - 2
compiler/ncgutil.pas

@@ -1000,7 +1000,7 @@ implementation
             case ressym.localloc.loc of
             case ressym.localloc.loc of
               LOC_FPUREGISTER:
               LOC_FPUREGISTER:
                 begin
                 begin
-                  location_reset(resloc,LOC_CREGISTER,resultloc.size);
+                  location_reset(resloc,LOC_CFPUREGISTER,resultloc.size);
                   resloc.register:=ressym.localloc.register;
                   resloc.register:=ressym.localloc.register;
                 end;
                 end;
 
 
@@ -2067,7 +2067,11 @@ implementation
 end.
 end.
 {
 {
   $Log$
   $Log$
-  Revision 1.209  2004-06-29 20:57:21  peter
+  Revision 1.210  2004-07-04 12:24:59  jonas
+    * fixed one regvar problem, but regvars are still broken since the dwarf
+      merge...
+
+  Revision 1.209  2004/06/29 20:57:21  peter
     * fixed size of exceptbuf
     * fixed size of exceptbuf
 
 
   Revision 1.208  2004/06/20 08:55:29  florian
   Revision 1.208  2004/06/20 08:55:29  florian