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

* fix for the ie9999 under Linux (patch from Peter)

Browse Source
This commit is contained in:
Jonas Maebe 2002-04-10 08:07:55 +00:00
parent c8b3a5b3db
commit 3566880766
2 changed files with 20 additions and 14 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
compiler/assemble.pas
View File

@ -1094,10 +1094,10 @@ Implementation
end;
ait_symbol_end :
begin
if target_info.target=target_i386_linux then
if target_info.target in [target_i386_linux,target_i386_beos] then
begin
Tai_symbol(hp).sym.size:=objectalloc.sectionsize-Tai_symbol(hp).sym.address;
UsedAsmSymbolListInsert(Tai_symbol(hp).sym);
Tai_symbol_end(hp).sym.size:=objectalloc.sectionsize-Tai_symbol_end(hp).sym.address;
UsedAsmSymbolListInsert(Tai_symbol_end(hp).sym);
end;
end;
ait_label :
@ -1581,7 +1581,10 @@ Implementation
end.
{
$Log$
Revision 1.32 2002-04-07 13:19:14 carl
Revision 1.33 2002-04-10 08:07:55 jonas
* fix for the ie9999 under Linux (patch from Peter)
Revision 1.32 2002/04/07 13:19:14 carl
+ more documentation
Revision 1.31 2002/04/04 19:05:54 peter

9
compiler/i386/ag386att.pas
View File

@ -676,9 +676,9 @@ interface
inc(symendcount);
AsmWriteLn(s+':');
AsmWrite(#9'.size'#9);
AsmWrite(tai_symbol(hp).sym.name);
AsmWrite(tai_symbol_end(hp).sym.name);
AsmWrite(', '+s+' - ');
AsmWriteLn(tai_symbol(hp).sym.name);
AsmWriteLn(tai_symbol_end(hp).sym.name);
end;
end;
@ -966,7 +966,10 @@ initialization
end.
{
$Log$
Revision 1.15 2002-04-04 19:06:06 peter
Revision 1.16 2002-04-10 08:07:55 jonas
* fix for the ie9999 under Linux (patch from Peter)
Revision 1.15 2002/04/04 19:06:06 peter
* removed unused units
* use tlocation.size in cg.a_*loc*() routines