paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-16 00:09:17 +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 case asmsymtype of
1 : 1 :
ppufile.putstring(s.name); ppufile.putstring(s.name);
2 : 2..4 :
ppufile.putlongint(tasmlabel(s).labelnr); ppufile.putlongint(tasmlabel(s).labelnr);
end; end;
ppufile.putbyte(byte(s.defbind)); ppufile.putbyte(byte(s.defbind));
@ -813,9 +813,9 @@ uses
2 : 2 :
librarydata.asmsymbolidx^[i-1]:=librarydata.newasmlabel(labelnr,false,false); librarydata.asmsymbolidx^[i-1]:=librarydata.newasmlabel(labelnr,false,false);
3 : 3 :
librarydata.asmsymbolidx^[i-1]:=librarydata.newasmlabel(labelnr,true,false);
4 :
librarydata.asmsymbolidx^[i-1]:=librarydata.newasmlabel(labelnr,false,true); librarydata.asmsymbolidx^[i-1]:=librarydata.newasmlabel(labelnr,false,true);
4 :
librarydata.asmsymbolidx^[i-1]:=librarydata.newasmlabel(labelnr,true,false);
end; end;
end; end;
end; end;
@ -1514,7 +1514,10 @@ uses
end. end.
{ {
$Log$ $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* * big transformation of Tai_[const_]Symbol.Create[data]name*
Revision 1.52 2004/02/03 16:14:13 peter Revision 1.52 2004/02/03 16:14:13 peter