paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-13 18:24:19 +02:00
Code Issues Packages Projects Releases Wiki Activity

* handle offsetfixup

Browse Source
This commit is contained in:
pierre 2000-04-06 07:05:57 +00:00
parent b1f00f942d
commit 8f1708b14a
1 changed files with 8 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
compiler/ag386int.pas
View File

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