Browse Source

+ Patch from peter

michael 22 years ago
parent
commit
a762ddbdc2
1 changed files with 6 additions and 2 deletions
  1. 6 2
      compiler/i386/cpupara.pas

+ 6 - 2
compiler/i386/cpupara.pas

@@ -156,7 +156,8 @@ unit cpupara;
          if not assigned(hsym) then
          if not assigned(hsym) then
            internalerror(200305251);
            internalerror(200305251);
          getselflocation.loc:=LOC_REFERENCE;
          getselflocation.loc:=LOC_REFERENCE;
-         getselflocation.reference.index:=current_procinfo.framepointer;
+         getselflocation.reference.index.enum:=R_INTREGISTER;
+         getselflocation.reference.index.number:=NR_FRAME_POINTER_REG;
          getselflocation.reference.offset:=hsym.adjusted_address;
          getselflocation.reference.offset:=hsym.adjusted_address;
       end;
       end;
 
 
@@ -165,7 +166,10 @@ begin
 end.
 end.
 {
 {
   $Log$
   $Log$
-  Revision 1.13  2003-06-05 20:58:05  peter
+  Revision 1.14  2003-06-06 07:34:11  michael
+  + Patch from peter
+
+  Revision 1.13  2003/06/05 20:58:05  peter
     * updated
     * updated
 
 
   Revision 1.12  2003/05/30 23:57:08  peter
   Revision 1.12  2003/05/30 23:57:08  peter