|
@@ -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
|
|
@@ -1311,4 +1314,4 @@ end.
|
|
Revision 1.2 2000/07/13 11:32:50 michael
|
|
Revision 1.2 2000/07/13 11:32:50 michael
|
|
+ removed logs
|
|
+ removed logs
|
|
|
|
|
|
-}
|
|
|
|
|
|
+}
|