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

- internal errors rmoved from a_loar_reg_reg when reg sizes differs from 32

Browse Source
This commit is contained in:
mazen 2003-01-22 22:30:03 +00:00
parent 07a21319b9
commit 0de4838d36
2 changed files with 15 additions and 17 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

15
compiler/sparc/cgcpu.pas
View File

@ -373,15 +373,7 @@ procedure TCgSparc.a_load_reg_reg(list:TAasmOutput;fromsize,tosize:tcgsize;reg1,
then
with list do
case fromsize of
OS_8:
InternalError(2002100800);{concat(taicpu.op_reg_reg_const_const_const(A_RLWINM,reg2,reg1,0,31-8+1,31));}
OS_S8:
InternalError(2002100801);{concat(taicpu.op_reg_reg(A_EXTSB,reg2,reg1));}
OS_16:
InternalError(2002100802);{concat(taicpu.op_reg_reg_const_const_const(A_RLWINM,reg2,reg1,0,31-16+1,31));}
OS_S16:
InternalError(2002100803);{concat(taicpu.op_reg_reg(A_EXTSH,reg2,reg1));}
OS_32,OS_S32:
OS_8,OS_S8,OS_16,OS_S16,OS_32,OS_S32:
concat(taicpu.op_reg_reg_reg(A_OR,r,reg1,reg2));
else internalerror(2002090901);
end;
@ -1418,7 +1410,10 @@ BEGIN
END.
{
$Log$
Revision 1.35 2003-01-20 22:21:36 mazen
Revision 1.36 2003-01-22 22:30:03 mazen
- internal errors rmoved from a_loar_reg_reg when reg sizes differs from 32
Revision 1.35 2003/01/20 22:21:36 mazen
* many stuff related to RTL fixed
Revision 1.34 2003/01/08 18:43:58 daniel

17
compiler/sparc/ncpucall.pas
View File

@ -52,13 +52,13 @@ function TSparcCallNode.pass_1:TNode;
exit;
if ProcDefinition is TProcDef
then
begin
if TProcDef(procdefinition).parast.datasize>TSparcProcInfo(procinfo).maxpushedparasize
with TProcDef(procdefinition).parast do
if datasize>TSparcProcInfo(procinfo).maxpushedparasize
then
TSparcProcInfo(procinfo).maxpushedparasize:=TProcdef(procdefinition).parast.datasize
end
else
InternalError(2002101001);
TSparcProcInfo(procinfo).maxpushedparasize:=datasize
else
else
InternalError(2002101001);
end;
procedure TSparcCallNode.load_framepointer;
begin
@ -69,7 +69,10 @@ begin
end.
{
$Log$
Revision 1.5 2002-11-14 21:42:08 mazen
Revision 1.6 2003-01-22 22:30:03 mazen
- internal errors rmoved from a_loar_reg_reg when reg sizes differs from 32
Revision 1.5 2002/11/14 21:42:08 mazen
* fixing return value variable address
Revision 1.4 2002/10/10 19:57:52 mazen