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

* small fix with crc in newppu

Browse Source
This commit is contained in:
peter 1998-06-14 18:25:41 +00:00
parent a9f30325b6
commit cb936cddb2
1 changed files with 6 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
compiler/files.pas
View File

@ -407,7 +407,9 @@ unit files;
Message1(unit_d_ppu_invalid_version,tostr(ppufile^.GetPPUVersion)); Message1(unit_d_ppu_invalid_version,tostr(ppufile^.GetPPUVersion));
exit; exit;
end; end;
{ Load values to be access easier }
flags:=ppufile^.header.flags; flags:=ppufile^.header.flags;
crc:=ppufile^.header.checksum;
{ Show Debug info } { Show Debug info }
Message1(unit_d_ppu_time,filetimestring(ppufiletime)); Message1(unit_d_ppu_time,filetimestring(ppufiletime));
Message1(unit_d_ppu_flags,tostr(flags)); Message1(unit_d_ppu_flags,tostr(flags));
@ -945,7 +947,10 @@ unit files;
end. end.
{ {
$Log$ $Log$
Revision 1.21 1998-06-13 00:10:05 peter Revision 1.22 1998-06-14 18:25:41 peter
* small fix with crc in newppu
Revision 1.21 1998/06/13 00:10:05 peter
* working browser and newppu * working browser and newppu
* some small fixes against crashes which occured in bp7 (but not in * some small fixes against crashes which occured in bp7 (but not in
fpc?!) fpc?!)