paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-09-04 12:10:39 +02:00
Code Issues Packages Projects Releases Wiki Activity

* fixed the reading of x86 pointer defs in ppudump after the ppuwrite_platform

Browse Source 
changes

git-svn-id: trunk@27557 -
This commit is contained in:
nickysn 2014-04-13 11:40:20 +00:00
parent 9ab2aa7463
commit 0ef858a6ca
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -2650,6 +2650,7 @@ begin
readcommondef('Pointer definition',defoptions,def);
write ([space,' Pointed Type : ']);
readderef('',TPpuPointerDef(def).Ptr);
writeln([space,' Has Pointer Math : ',(getbyte<>0)]);
if tsystemcpu(ppufile.header.cpu) in [cpu_i8086,cpu_i386,cpu_x86_64] then
begin
write([space,' X86 Pointer Type : ']);
@ -2668,7 +2669,6 @@ begin
WriteWarning('Invalid x86 pointer type: ' + IntToStr(b));
end;
end;
writeln([space,' Has Pointer Math : ',(getbyte<>0)]);
end;
iborddef :