paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-16 00:09:17 +02:00
Code Issues Packages Projects Releases Wiki Activity

* fixed to my previous patch: the hightree must always be converted to a

Browse Source 
longint
This commit is contained in:
Jonas Maebe 2001-12-11 13:21:36 +00:00
parent 1d0f4deffe
commit 479f1a5ce9
1 changed files with 8 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

15
compiler/ncal.pas
View File

@ -585,11 +585,6 @@ implementation
begin begin
hightree:=caddnode.create(subn,geninlinenode(in_length_x,false,left.getcopy), hightree:=caddnode.create(subn,geninlinenode(in_length_x,false,left.getcopy),
cordconstnode.create(1,s32bittype)); cordconstnode.create(1,s32bittype));
{
not necessary (JM)
firstpass(hightree);
}
hightree:=ctypeconvnode.create(hightree,s32bittype);
loadconst:=false; loadconst:=false;
end; end;
end; end;
@ -598,7 +593,9 @@ implementation
len:=0; len:=0;
end; end;
if loadconst then if loadconst then
hightree:=cordconstnode.create(len,s32bittype); hightree:=cordconstnode.create(len,s32bittype)
else
hightree:=ctypeconvnode.create(hightree,s32bittype);
firstpass(hightree); firstpass(hightree);
end; end;
@ -1758,7 +1755,11 @@ begin
end. end.
{ {
$Log$ $Log$
Revision 1.59 2001-12-10 14:28:47 jonas Revision 1.60 2001-12-11 13:21:36 jonas
* fixed to my previous patch: the hightree must always be converted to a
longint
Revision 1.59 2001/12/10 14:28:47 jonas
* gen_high_tree now uses an inline node of type in_high_x in most cases * gen_high_tree now uses an inline node of type in_high_x in most cases
so that it doesn't duplicate any code anymore from ninl.pas (and so that it doesn't duplicate any code anymore from ninl.pas (and
dynamic array support was still missing) dynamic array support was still missing)