paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-06 03:07:51 +02:00
Code Issues Packages Projects Releases Wiki Activity

* check CurrentPPULongVersion in ppumove

Browse Source 
git-svn-id: trunk@41866 -
This commit is contained in:
Jonas Maebe 2019-04-13 15:12:09 +00:00
parent 927fbc4387
commit 349bb2ff38
1 changed files with 14 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

15
compiler/utils/ppumove.pp
View File

@ -247,7 +247,8 @@ Var
f : file;
ext,
s : string;
ppuversion : dword;
ppuversion,
ppulongversion: dword;
begin
DoPPU:=false;
If Not Quiet then
@ -328,6 +329,18 @@ begin
end;
if b<>untilb then
begin
if b=ibextraheader then
begin
ppulongversion:=cardinal(inppu.getlongint);
if ppulongversion<>CurrentPPULongVersion then
begin
inppu.free;
outppu.free;
Error('Error: Wrong PPU Long Version '+tostr(ppulongversion)+' in '+PPUFn,false);
Exit;
end;
outppu.putlongint(longint(ppulongversion));
end;
repeat
inppu.getdatabuf(buffer^,bufsize,l);
outppu.putdata(buffer^,l);