paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-16 04:49:19 +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
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
compiler/pexpr.pas
View File

@ -1503,7 +1503,7 @@ unit pexpr;
{ use smallset if emudef with max < 32 { use smallset if emudef with max < 32
but allow sets for enumdefs with more than but allow sets for enumdefs with more than
256 elements like tasmop !! } 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)) p1^.resulttype:=new(psetdef,init(pd,penumdef(pd)^.max))
else else
p1^.resulttype:=new(psetdef,init(pd,255)); p1^.resulttype:=new(psetdef,init(pd,255));
@ -1745,7 +1745,10 @@ unit pexpr;
end. end.
{ {
$Log$ $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 * firstpasscount bug fixed
now all is already set correctly the first time now all is already set correctly the first time
under EXTDEBUG try -gp to skip all other firstpasses under EXTDEBUG try -gp to skip all other firstpasses