paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-14 06:29:16 +02: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; pd:=nil;
constsetlo:=0; constsetlo:=0;
constsethi:=0; constsethi:=0;
constp:=csetconstnode.create(nil,nil); constp:=gensetconstnode(nil,nil);
constp.value_set:=constset; constp.value_set:=constset;
buildp:=constp; buildp:=constp;
if assigned(p.left) then if assigned(p.left) then
@ -331,6 +331,7 @@ implementation
end; end;
{ set the initial set type } { set the initial set type }
constp.resulttype:=new(psetdef,init(pd,constsethi)); constp.resulttype:=new(psetdef,init(pd,constsethi));
firstpass(buildp);
{ set the new tree } { set the new tree }
p:=tarrayconstructornode(buildp); p:=tarrayconstructornode(buildp);
end; end;
@ -1200,7 +1201,10 @@ begin
end. end.
{ {
$Log$ $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') * evaluate typecasts of const pointers to ordinals inline ('merged')
Revision 1.19 2001/02/20 18:37:10 peter Revision 1.19 2001/02/20 18:37:10 peter