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

* fixed include/exclude for big endian after r6172

Browse Source 
git-svn-id: trunk@6179 -
This commit is contained in:
Jonas Maebe 2007-01-24 21:53:05 +00:00
parent 8afec0f049
commit 63ebc2a1b8
2 changed files with 11 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
compiler/defutil.pas
View File

@ -230,6 +230,9 @@ interface
{# returns true, if the type passed is a varset }
function is_varset(p : tdef) : boolean;
{# returns true if the type passed is a normalset }
function is_normalset(p : tdef) : boolean;
{ # returns true if the procdef has no parameters and no specified return type }
function is_bareprocdef(pd : tprocdef): boolean;
@ -1023,6 +1026,12 @@ implementation
end;
function is_normalset(p : tdef) : boolean;
begin
result:=(p.typ=setdef) and (tsetdef(p).settype = normset);
end;
function is_bareprocdef(pd : tprocdef): boolean;
begin
result:=(pd.maxparacount=0) and

3
compiler/ncginl.pas
View File

@ -510,7 +510,8 @@ implementation
use_small : boolean;
href : treference;
begin
if not(is_varset(tcallparanode(left).resultdef)) then
if not(is_varset(tcallparanode(left).resultdef)) and
not(is_normalset(tcallparanode(left).resultdef)) then
opsize:=int_cgsize(tcallparanode(left).resultdef.size)
else
opsize:=OS_32;