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

* bug fix for empty sets (nil pd was dereferenced )

Browse Source
This commit is contained in:
pierre 1998-05-26 07:53:59 +00:00
parent af65f86213
commit 804a6a36dc
1 changed files with 5 additions and 2 deletions

7
compiler/pexpr.pas
View File

@ -1503,7 +1503,7 @@ unit pexpr;
{ use smallset if emudef with max < 32
but allow sets for enumdefs with more than
256 elements like tasmop !! }
if (pd^.deftype=enumdef) and (penumdef(pd)^.max<=255) then
if assigned(pd) and (pd^.deftype=enumdef) and (penumdef(pd)^.max<=255) then
p1^.resulttype:=new(psetdef,init(pd,penumdef(pd)^.max))
else
p1^.resulttype:=new(psetdef,init(pd,255));
@ -1745,7 +1745,10 @@ unit pexpr;
end.
{
$Log$
Revision 1.19 1998-05-25 17:11:43 pierre
Revision 1.20 1998-05-26 07:53:59 pierre
* bug fix for empty sets (nil pd was dereferenced )
Revision 1.19 1998/05/25 17:11:43 pierre
* firstpasscount bug fixed
now all is already set correctly the first time
under EXTDEBUG try -gp to skip all other firstpasses