diff --git a/compiler/ag386int.pas b/compiler/ag386int.pas index bc3f3dcf88..c73c9f552a 100644 --- a/compiler/ag386int.pas +++ b/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 -} +} \ No newline at end of file