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

* Fix bug #21607

Browse Source 
git-svn-id: trunk@20696 -
This commit is contained in:
pierre 2012-04-03 07:27:55 +00:00
parent 2a57a6a307
commit 24ba8e2dca
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/fppu.pas
View File

@ -1629,7 +1629,7 @@ var
break;
pu:=tused_unit(pu.next);
end;
if assigned(pu) then
if assigned(pu) and assigned(pu.unitsym) then
MessagePos2(pu.unitsym.fileinfo,unit_f_cant_find_ppu,realmodulename^,loaded_from.realmodulename^)
else
Message2(unit_f_cant_find_ppu,realmodulename^,loaded_from.realmodulename^);