paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-20 16:09:31 +02:00
Code Issues Packages Projects Releases Wiki Activity

* bugfix in [read|write]asmsymbols for data and address labels

Browse Source
This commit is contained in:
olle 2004-03-17 12:12:59 +00:00
parent ea51b18d9b
commit b0b02f0d09
1 changed files with 7 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
compiler/fppu.pas
View File

@ -569,7 +569,7 @@ uses
case asmsymtype of
1 :
ppufile.putstring(s.name);
2 :
2..4 :
ppufile.putlongint(tasmlabel(s).labelnr);
end;
ppufile.putbyte(byte(s.defbind));
@ -813,9 +813,9 @@ uses
2 :
librarydata.asmsymbolidx^[i-1]:=librarydata.newasmlabel(labelnr,false,false);
3 :
librarydata.asmsymbolidx^[i-1]:=librarydata.newasmlabel(labelnr,true,false);
4 :
librarydata.asmsymbolidx^[i-1]:=librarydata.newasmlabel(labelnr,false,true);
4 :
librarydata.asmsymbolidx^[i-1]:=librarydata.newasmlabel(labelnr,true,false);
end;
end;
end;
@ -1514,7 +1514,10 @@ uses
end.
{
$Log$
Revision 1.53 2004-03-02 00:36:33 olle
Revision 1.54 2004-03-17 12:12:59 olle
* bugfix in [read|write]asmsymbols for data and address labels
Revision 1.53 2004/03/02 00:36:33 olle
* big transformation of Tai_[const_]Symbol.Create[data]name*
Revision 1.52 2004/02/03 16:14:13 peter