paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-10-31 14:31:38 +01:00
Code Issues Packages Projects Releases Wiki Activity

* Tarrayconstructornode sets pi_do_call if a call is possible

Browse Source
This commit is contained in:
daniel 2004-02-20 20:21:16 +00:00
parent 38328193f6
commit cfd870ed59
1 changed files with 19 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

19
compiler/nld.pas
View File

@ -1051,7 +1051,9 @@ implementation
function tarrayconstructornode.pass_1 : tnode;
var
hp : tarrayconstructornode;
do_variant:boolean;
begin
do_variant:=(nf_forcevaria in flags) or tarraydef(resulttype.def).isvariant;
result:=nil;
{ Insert required type convs, this must be
done in pass 1, because the call must be
@ -1063,7 +1065,15 @@ implementation
hp:=self;
while assigned(hp) do
begin
if hp.left<>nil then
begin
{This check is pessimistic; a call will happen depending
on the location in which the elements will be found in
pass 2.}
if not do_variant then
include(procinfo.flags,pi_do_call);
firstpass(hp.left);
end;
hp:=tarrayconstructornode(hp.right);
end;
end;
@ -1073,9 +1083,9 @@ implementation
function tarrayconstructornode.docompare(p: tnode): boolean;
begin
docompare :=
inherited docompare(p);
docompare:=inherited docompare(p);
end;
@ -1246,7 +1256,10 @@ begin
end.
{
$Log$
Revision 1.121 2004-02-03 22:32:54 peter
Revision 1.122 2004-02-20 20:21:16 daniel
* Tarrayconstructornode sets pi_do_call if a call is possible
Revision 1.121 2004/02/03 22:32:54 peter
* renamed xNNbittype to xNNinttype
* renamed registers32 to registersint
* replace some s32bit,u32bit with torddef([su]inttype).def.typ