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

* fixed crash in previous commit

Browse Source
This commit is contained in:
peter 1999-07-23 12:02:20 +00:00
parent f380e3bd68
commit ca1ccd9221
1 changed files with 6 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
compiler/symtable.pas
View File

@ -521,7 +521,8 @@ implementation
hp1:=pmodule(loaded_units.first);
while assigned(hp1) do
begin
psymtable(hp1^.globalsymtable)^.unitid:=-1;
if assigned(hp1^.globalsymtable) then
psymtable(hp1^.globalsymtable)^.unitid:=-1;
hp1:=pmodule(hp1^.next);
end;
{ number units }
@ -2333,7 +2334,10 @@ implementation
end.
{
$Log$
Revision 1.27 1999-07-23 11:37:50 peter
Revision 1.28 1999-07-23 12:02:20 peter
* fixed crash in previous commit
Revision 1.27 1999/07/23 11:37:50 peter
* error for illegal type reference, instead of 10998
Revision 1.26 1999/07/22 09:37:58 florian