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

* fixed web bug #1430

Browse Source
This commit is contained in:
Jonas Maebe 2001-03-08 17:44:47 +00:00
parent aab27143a3
commit 044e307ab3
1 changed files with 6 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
compiler/ncnv.pas
View File

@ -174,7 +174,7 @@ implementation
pd:=nil;
constsetlo:=0;
constsethi:=0;
constp:=csetconstnode.create(nil,nil);
constp:=gensetconstnode(nil,nil);
constp.value_set:=constset;
buildp:=constp;
if assigned(p.left) then
@ -331,6 +331,7 @@ implementation
end;
{ set the initial set type }
constp.resulttype:=new(psetdef,init(pd,constsethi));
firstpass(buildp);
{ set the new tree }
p:=tarrayconstructornode(buildp);
end;
@ -1200,7 +1201,10 @@ begin
end.
{
$Log$
Revision 1.20 2001-02-21 11:49:50 jonas
Revision 1.21 2001-03-08 17:44:47 jonas
* fixed web bug 1430
Revision 1.20 2001/02/21 11:49:50 jonas
* evaluate typecasts of const pointers to ordinals inline ('merged')
Revision 1.19 2001/02/20 18:37:10 peter