paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-24 22:10:42 +02:00
Code Issues Packages Projects Releases Wiki Activity

* fixed crash with smallset -> normalset conversion (merged)

Browse Source
This commit is contained in:
peter 2000-09-10 20:19:23 +00:00
parent 24d5c13456
commit 01d857d65b
1 changed files with 7 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
compiler/tcadd.pas
View File

@ -640,11 +640,11 @@ implementation
(rt=setelementn) and (rt=setelementn) and
assigned(p^.right^.right) then assigned(p^.right^.right) then
begin begin
{ generate a temporary normset def } { generate a temporary normset def, it'll be destroyed
when the symtable is unloaded }
tempdef:=new(psetdef,init(psetdef(ld)^.elementtype.def,255)); tempdef:=new(psetdef,init(psetdef(ld)^.elementtype.def,255));
p^.left:=gentypeconvnode(p^.left,tempdef); p^.left:=gentypeconvnode(p^.left,tempdef);
firstpass(p^.left); firstpass(p^.left);
dispose(tempdef,done);
ld:=p^.left^.resulttype; ld:=p^.left^.resulttype;
end; end;
@ -1291,7 +1291,10 @@ implementation
end. end.
{ {
$Log$ $Log$
Revision 1.7 2000-08-29 08:24:45 jonas Revision 1.8 2000-09-10 20:19:23 peter
* fixed crash with smallset -> normalset conversion (merged)
Revision 1.7 2000/08/29 08:24:45 jonas
* some modifications to -dcardinalmulfix code * some modifications to -dcardinalmulfix code
Revision 1.6 2000/08/27 16:11:54 peter Revision 1.6 2000/08/27 16:11:54 peter