paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-25 16:29:20 +02:00
Code Issues Packages Projects Releases Wiki Activity

* fixed crash with invalid ppu version detected

Browse Source
This commit is contained in:
peter 2001-05-19 13:22:47 +00:00
parent 060b6d6d8e
commit fb16b1c012
1 changed files with 5 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
compiler/fppu.pas
View File

@ -163,9 +163,9 @@ uses
{ check for allowed PPU versions } { check for allowed PPU versions }
if not (ppufile.GetPPUVersion = CurrentPPUVersion) then if not (ppufile.GetPPUVersion = CurrentPPUVersion) then
begin begin
Message1(unit_u_ppu_invalid_version,tostr(ppufile.GetPPUVersion));
ppufile.free; ppufile.free;
ppufile:=nil; ppufile:=nil;
Message1(unit_u_ppu_invalid_version,tostr(ppufile.GetPPUVersion));
exit; exit;
end; end;
{ check the target processor } { check the target processor }
@ -1143,7 +1143,10 @@ uses
end. end.
{ {
$Log$ $Log$
Revision 1.4 2001-05-09 14:11:10 jonas Revision 1.5 2001-05-19 13:22:47 peter
* fixed crash with invalid ppu version detected
Revision 1.4 2001/05/09 14:11:10 jonas
* range check error fixes from Peter * range check error fixes from Peter
Revision 1.3 2001/05/08 21:06:30 florian Revision 1.3 2001/05/08 21:06:30 florian