paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-12 14:09: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]);
toaddr :
begin
Write(['Address : ',getlongint]);
Write(['Address : ',getaword]);
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;
else
Writeln (['!! Invalid unit format : Invalid absolute type encountered: ',b]);