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

- removed remnants of old ppu file support (ppudump does not support any

Browse Source 
other ppu version than the current one anyway)

git-svn-id: trunk@42313 -
This commit is contained in:
Jonas Maebe 2019-06-30 16:24:48 +00:00
parent cc9f8b7f56
commit 40f6a4ea3c
1 changed files with 9 additions and 21 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -854,10 +854,7 @@ begin
for j:=0 to extsymcnt-1 do for j:=0 to extsymcnt-1 do
begin begin
extsymname:=ppufile.getstring; extsymname:=ppufile.getstring;
if ppuversion>130 then extsymmangledname:=ppufile.getstring;
extsymmangledname:=ppufile.getstring
else
extsymmangledname:=extsymname;
extsymordnr:=ppufile.getlongint; extsymordnr:=ppufile.getlongint;
extsymisvar:=ppufile.getbyte<>0; extsymisvar:=ppufile.getbyte<>0;
writeln([' ',extsymname,' as ',extsymmangledname, writeln([' ',extsymname,' as ',extsymmangledname,
@ -4260,9 +4257,6 @@ end;
function parseextraheader(module: TPpuModuleDef; ppufile: tppufile): boolean; function parseextraheader(module: TPpuModuleDef; ppufile: tppufile): boolean;
var var
b: byte; b: byte;
begin
result:=true;
if ppuversion>=207 then
begin begin
result:=false; result:=false;
b:=ppufile.readentry; b:=ppufile.readentry;
@ -4273,7 +4267,6 @@ begin
ppufile.getsmallset(CurUnit.ModuleFlags); ppufile.getsmallset(CurUnit.ModuleFlags);
result:=ppufile.EndOfEntry; result:=ppufile.EndOfEntry;
end; end;
end;
procedure dofile (filename : string); procedure dofile (filename : string);
begin begin
@ -4298,11 +4291,6 @@ begin
ppuversion:=ppufile.getversion; ppuversion:=ppufile.getversion;
Writeln(['Analyzing ',filename,' (v',PPUVersion,')']); Writeln(['Analyzing ',filename,' (v',PPUVersion,')']);
if PPUVersion<16 then
begin
WriteError(Filename+' : Old PPU Formats (<v16) are not supported, Skipping');
exit;
end;
if not SkipVersionCheck and (PPUVersion <> CurrentPPUVersion) then if not SkipVersionCheck and (PPUVersion <> CurrentPPUVersion) then
begin begin