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

* fixed passing of flaot parameters. The general size is still float,

Browse Source 
only the size of the locations is now OS_32
This commit is contained in:
peter 2004-09-27 21:24:17 +00:00
parent 25b0dc04d7
commit 6da9996dba
2 changed files with 13 additions and 31 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

26
compiler/sparc/cgcpu.pas
View File

@ -698,16 +698,6 @@ implementation
FpuLoadInstr : Array[OS_F32..OS_F64] of TAsmOp = FpuLoadInstr : Array[OS_F32..OS_F64] of TAsmOp =
(A_LDF,A_LDDF); (A_LDF,A_LDDF);
begin begin
{ several functions call this procedure with OS_32 or OS_64 }
{ so this makes life easier (FK) }
case size of
OS_32,OS_F32:
size:=OS_F32;
OS_64,OS_F64,OS_C64:
size:=OS_F64;
else
internalerror(200201121);
end;
handle_load_store(list,false,fpuloadinstr[size],reg,ref); handle_load_store(list,false,fpuloadinstr[size],reg,ref);
end; end;
@ -717,16 +707,6 @@ implementation
FpuLoadInstr : Array[OS_F32..OS_F64] of TAsmOp = FpuLoadInstr : Array[OS_F32..OS_F64] of TAsmOp =
(A_STF,A_STDF); (A_STF,A_STDF);
begin begin
{ several functions call this procedure with OS_32 or OS_64 }
{ so this makes life easier (FK) }
case size of
OS_32,OS_F32:
size:=OS_F32;
OS_64,OS_F64,OS_C64:
size:=OS_F64;
else
internalerror(200201121);
end;
handle_load_store(list,true,fpuloadinstr[size],reg,ref); handle_load_store(list,true,fpuloadinstr[size],reg,ref);
end; end;
@ -1256,7 +1236,11 @@ begin
end. end.
{ {
$Log$ $Log$
Revision 1.91 2004-09-26 21:04:35 florian Revision 1.92 2004-09-27 21:24:17 peter
* fixed passing of flaot parameters. The general size is still float,
only the size of the locations is now OS_32
Revision 1.91 2004/09/26 21:04:35 florian
+ partial overflow checking on sparc; multiplication still missing + partial overflow checking on sparc; multiplication still missing
Revision 1.90 2004/09/26 17:36:12 florian Revision 1.90 2004/09/26 17:36:12 florian

18
compiler/sparc/cpupara.pas
View File

@ -243,13 +243,6 @@ implementation
if paracgsize=OS_NO then if paracgsize=OS_NO then
paracgsize:=OS_ADDR; paracgsize:=OS_ADDR;
end; end;
{ Floats are passed in int registers }
case paracgsize of
OS_F32 :
paracgsize:=OS_32;
OS_F64 :
paracgsize:=OS_64;
end;
hp.paraloc[side].reset; hp.paraloc[side].reset;
hp.paraloc[side].size:=paracgsize; hp.paraloc[side].size:=paracgsize;
hp.paraloc[side].Alignment:=std_param_align; hp.paraloc[side].Alignment:=std_param_align;
@ -257,8 +250,9 @@ implementation
while (paralen>0) do while (paralen>0) do
begin begin
paraloc:=hp.paraloc[side].add_location; paraloc:=hp.paraloc[side].add_location;
{ We can allocate at maximum 32 bits per register } { Floats are passed in int registers,
if paracgsize in [OS_64,OS_S64] then We can allocate at maximum 32 bits per register }
if paracgsize in [OS_64,OS_S64,OS_F32,OS_F64] then
paraloc^.size:=OS_32 paraloc^.size:=OS_32
else else
paraloc^.size:=paracgsize; paraloc^.size:=paracgsize;
@ -322,7 +316,11 @@ begin
end. end.
{ {
$Log$ $Log$
Revision 1.42 2004-09-25 20:28:39 florian Revision 1.43 2004-09-27 21:24:17 peter
* fixed passing of flaot parameters. The general size is still float,
only the size of the locations is now OS_32
Revision 1.42 2004/09/25 20:28:39 florian
* handling of C styled varargs fixed * handling of C styled varargs fixed
Revision 1.41 2004/09/21 17:25:13 peter Revision 1.41 2004/09/21 17:25:13 peter