* handle offsetfixup

compiler/ag386int.pas

@@ -122,7 +122,7 @@ unit ag386int;
          comp2str:=double2str(dd^);
       end;
 
-    function getreferencestring(const ref : treference) : string;
+    function getreferencestring(var ref : treference) : string;
     var
       s     : string;
       first : boolean;
@@ -136,6 +136,8 @@ unit ag386int;
       with ref do
         begin
           first:=true;
+          inc(offset,offsetfixup);
+          offsetfixup:=0;
           if ref.segment<>R_NO then
            s:=int_reg2str[segment]+':['
           else
@@ -631,7 +633,10 @@ ait_stab_function_name : ;
 end.
 {
   $Log$
-  Revision 1.59  2000-02-09 13:22:43  peter
+  Revision 1.60  2000-04-06 07:05:57  pierre
+   * handle offsetfixup
+
+  Revision 1.59  2000/02/09 13:22:43  peter
     * log truncated
 
   Revision 1.58  2000/01/07 01:14:18  peter
@@ -665,4 +670,4 @@ end.
     + resourcestring implemented
     + start of longstring support
 
-}
+}