paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2026-01-04 01:12:04 +01:00
Code Issues Packages Projects Releases Wiki Activity

* check set types when doing constant set evaluation

Browse Source
This commit is contained in:
peter 2001-05-19 12:53:52 +00:00
parent be05f2b65b
commit bcbace78d2
1 changed files with 13 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

14
compiler/nadd.pas
View File

@ -355,6 +355,15 @@ implementation
(left.nodetype=setconstn) and
not assigned(tsetconstnode(left).left) then
begin
{ check types }
inserttypeconv(left,right.resulttype);
if codegenerror then
begin
{ recover by only returning the left part }
result:=left;
left:=nil;
exit;
end;
new(resultset);
case nodetype of
addn :
@ -1208,7 +1217,10 @@ begin
end.
{
$Log$
Revision 1.25 2001-04-13 01:22:08 peter
Revision 1.26 2001-05-19 12:53:52 peter
* check set types when doing constant set evaluation
Revision 1.25 2001/04/13 01:22:08 peter
* symtable change to classes
* range check generation and errors fixed, make cycle DEBUG=1 works
* memory leaks fixed