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

* write the segment of aitconst_farptr on a separate line to avoid long symbol truncation, due to line length limit; this fixes compilation of sysutils in the medium memory model

Browse Source 
git-svn-id: trunk@24879 -
This commit is contained in:
nickysn 2013-06-12 01:32:18 +00:00
parent 70cd05caa8
commit 511b1f37c1
1 changed files with 9 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

15
compiler/x86/agx86nsm.pas
View File

@ -677,15 +677,18 @@ interface
begin begin
if SmartAsm then if SmartAsm then
AddSymbol(tai_const(hp).sym.name,false); AddSymbol(tai_const(hp).sym.name,false);
s:=tai_const(hp).sym.name; AsmWrite(tai_const(hp).sym.name);
if tai_const(hp).value<>0 then if tai_const(hp).value<>0 then
s:=s+tostr_with_plus(tai_const(hp).value); AsmWrite(tostr_with_plus(tai_const(hp).value));
s:=s+',SEG '+tai_const(hp).sym.name; AsmLn;
AsmWrite(ait_const2str[aitconst_16bit]);
AsmWrite('SEG ');
AsmWrite(tai_const(hp).sym.name);
end end
else else
s:=tostr(lo(longint(tai_const(hp).value)))+','+ AsmWrite(tostr(lo(longint(tai_const(hp).value)))+','+
tostr(hi(longint(tai_const(hp).value))); tostr(hi(longint(tai_const(hp).value))));
AsmWriteLn(s); AsmLn;
end; end;
{$endif i8086} {$endif i8086}
aitconst_32bit, aitconst_32bit,