paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-21 12:49:33 +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
if SmartAsm then
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
s:=s+tostr_with_plus(tai_const(hp).value);
s:=s+',SEG '+tai_const(hp).sym.name;
AsmWrite(tostr_with_plus(tai_const(hp).value));
AsmLn;
AsmWrite(ait_const2str[aitconst_16bit]);
AsmWrite('SEG ');
AsmWrite(tai_const(hp).sym.name);
end
else
s:=tostr(lo(longint(tai_const(hp).value)))+','+
tostr(hi(longint(tai_const(hp).value)));
AsmWriteLn(s);
AsmWrite(tostr(lo(longint(tai_const(hp).value)))+','+
tostr(hi(longint(tai_const(hp).value))));
AsmLn;
end;
{$endif i8086}
aitconst_32bit,