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

* removed obsolete nf_cargs flag

Browse Source
This commit is contained in:
peter 2003-11-23 17:39:33 +00:00
parent 474e1578a3
commit f4cffd4358
3 changed files with 13 additions and 22 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
compiler/ncgcal.pas
View File

@ -323,11 +323,6 @@ implementation
else
push_value_para;
end
{ filter array of const c styled args }
else if is_array_of_const(left.resulttype.def) and (nf_cargs in left.flags) then
begin
{ nothing, everything is already pushed }
end
{ formal def }
else if (paraitem.paratype.def.deftype=formaldef) then
begin
@ -1122,7 +1117,10 @@ begin
end.
{
$Log$
Revision 1.140 2003-11-23 17:05:15 peter
Revision 1.141 2003-11-23 17:39:33 peter
* removed obsolete nf_cargs flag
Revision 1.140 2003/11/23 17:05:15 peter
* register calling is left-right
* parameter ordering
* left-right calling inserts result parameter last

7
compiler/ncgld.pas
View File

@ -704,8 +704,6 @@ implementation
tmpreg : tregister;
paraloc : tparalocation;
begin
if nf_cargs in flags then
internalerror(200310054);
dovariant:=(nf_forcevaria in flags) or tarraydef(resulttype.def).isvariant;
if dovariant then
elesize:=8
@ -892,7 +890,10 @@ begin
end.
{
$Log$
Revision 1.98 2003-10-29 19:48:50 peter
Revision 1.99 2003-11-23 17:39:33 peter
* removed obsolete nf_cargs flag
Revision 1.98 2003/10/29 19:48:50 peter
* renamed mangeldname_prefix to make_mangledname and made it more
generic
* make_mangledname is now also used for internal threadvar/resstring

18
compiler/nld.pas
View File

@ -1024,18 +1024,7 @@ implementation
hp.left:=ctypeconvnode.create(hp.left,s32bittype);
end;
floatdef :
begin
{ C uses 64bit floats }
if nf_cargs in flags then
hp.left:=ctypeconvnode.create(hp.left,s64floattype)
else
hp.left:=ctypeconvnode.create(hp.left,pbestrealtype^);
end;
stringdef :
begin
if nf_cargs in flags then
hp.left:=ctypeconvnode.create(hp.left,charpointertype);
end;
hp.left:=ctypeconvnode.create(hp.left,pbestrealtype^);
procvardef :
hp.left:=ctypeconvnode.create(hp.left,voidpointertype);
variantdef,
@ -1251,7 +1240,10 @@ begin
end.
{
$Log$
Revision 1.116 2003-10-28 15:36:01 peter
Revision 1.117 2003-11-23 17:39:33 peter
* removed obsolete nf_cargs flag
Revision 1.116 2003/10/28 15:36:01 peter
* absolute to object field supported, fixes tb0458
Revision 1.115 2003/10/23 14:44:07 peter