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

* updated ppudump after r25672

Browse Source 
git-svn-id: trunk@25673 -
This commit is contained in:
nickysn 2013-10-06 00:45:03 +00:00
parent f165cee058
commit 9ed0d6d40d
1 changed files with 8 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
compiler/utils/ppuutils/ppudump.pp
View File

@ -2401,9 +2401,15 @@ begin
Writeln(['Assembler name : ',getstring]); Writeln(['Assembler name : ',getstring]);
toaddr : toaddr :
begin begin
Write(['Address : ',getlongint]); Write(['Address : ',getaword]);
if tsystemcpu(ppufile.header.cpu)=cpu_i386 then if tsystemcpu(ppufile.header.cpu)=cpu_i386 then
WriteLn([' (Far: ',getbyte<>0,')']); Write([' (Far: ',getbyte<>0,')']);
if tsystemcpu(ppufile.header.cpu)=cpu_i8086 then
if getbyte<>0 then
Write([' (Far: TRUE, Segment=',getaword,')'])
else
Write([' (Far: FALSE)']);
Writeln;
end; end;
else else
Writeln (['!! Invalid unit format : Invalid absolute type encountered: ',b]); Writeln (['!! Invalid unit format : Invalid absolute type encountered: ',b]);