paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-11-03 14:29:26 +01:00
Code Issues Packages Projects Releases Wiki Activity

* fixed a crash under Linux. Why doesn't have the damned Windows DPMI nil pointer

Browse Source 
protection???
This commit is contained in:
florian 1999-09-12 21:35:38 +00:00
parent 062f4e5991
commit e8f6d4e836
1 changed files with 9 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
compiler/symtable.pas
View File

@ -1536,7 +1536,10 @@ implementation
if (symtabletype=parasymtable) and
assigned(procinfo._class) and
{ but not in nested procedures !}
(not(assigned(procinfo.parent^._class))) and
(not(assigned(procinfo.parent)) or
(assigned(procinfo.parent) and
not(assigned(procinfo.parent^._class)))
) and
{ funcretsym is allowed !! }
(sym^.typ <> funcretsym) then
begin
@ -2407,7 +2410,11 @@ implementation
end.
{
$Log$
Revision 1.47 1999-09-12 08:48:09 florian
Revision 1.48 1999-09-12 21:35:38 florian
* fixed a crash under Linux. Why doesn't have the damned Windows DPMI nil pointer
protection???
Revision 1.47 1999/09/12 08:48:09 florian
* bugs 593 and 607 fixed
* some other potential bugs with array constructors fixed
* for classes compiled in $M+ and it's childs, the default access method