paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-11-03 20:49:35 +01:00
Code Issues Packages Projects Releases Wiki Activity

* fix win32 small array parameters

Browse Source
This commit is contained in:
peter 2005-02-03 17:10:21 +00:00
parent 86c8e46d5d
commit 8f2a768124
2 changed files with 13 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
compiler/defutil.pas
View File

@ -871,14 +871,14 @@ implementation
if is_ansistring(def) or is_widestring(def) then
result := OS_ADDR
else
result := OS_NO;
result:=int_cgsize(def.size);
end;
objectdef :
begin
if is_class_or_interface(def) then
result := OS_ADDR
else
result := OS_NO;
result:=int_cgsize(def.size);
end;
floatdef:
result := tfloat2tcgsize[tfloatdef(def).typ];
@ -908,7 +908,10 @@ implementation
end.
{
$Log$
Revision 1.22 2005-01-10 22:10:26 peter
Revision 1.23 2005-02-03 17:10:21 peter
* fix win32 small array parameters
Revision 1.22 2005/01/10 22:10:26 peter
* widestring patches from Alexey Barkovoy
Revision 1.21 2004/11/01 23:30:11 peter

11
compiler/i386/cgcpu.pas
View File

@ -164,10 +164,8 @@ unit cgcpu;
{ cgpara.size=OS_NO requires a copy on the stack }
if use_push(cgpara) then
begin
if tcgsize2size[cgpara.size]<>tcgsize2size[size] then
internalerror(200501161);
{ Record copy? }
if (cgpara.size=OS_NO) then
if (cgpara.size=OS_NO) or (size=OS_NO) then
begin
cgpara.check_simple_location;
len:=align(cgpara.intsize,cgpara.alignment);
@ -177,6 +175,8 @@ unit cgcpu;
end
else
begin
if tcgsize2size[cgpara.size]<>tcgsize2size[size] then
internalerror(200501161);
{ We need to push the data in reverse order,
therefor we use a recursive algorithm }
pushdata(cgpara.location,0);
@ -743,7 +743,10 @@ begin
end.
{
$Log$
Revision 1.64 2005-01-24 22:08:32 peter
Revision 1.65 2005-02-03 17:10:21 peter
* fix win32 small array parameters
Revision 1.64 2005/01/24 22:08:32 peter
* interface wrapper generation moved to cgobj
* generate interface wrappers after the module is parsed