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

* fixed range errors

Browse Source
This commit is contained in:
Jonas Maebe 2002-07-26 11:19:57 +00:00
parent ed2bdb31a6
commit e2c5923e97
2 changed files with 24 additions and 18 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

35
compiler/powerpc/aasmcpu.pas
View File

@ -120,7 +120,7 @@ implementation
begin
inherited create(op);
ops:=1;
loadconst(0,_op1);
loadconst(0,cardinal(_op1));
end;
@ -137,14 +137,14 @@ implementation
inherited create(op);
ops:=2;
loadreg(0,_op1);
loadconst(1,_op2);
loadconst(1,cardinal(_op2));
end;
constructor taicpu.op_const_reg(op:tasmop; _op1: longint; _op2: tregister);
begin
inherited create(op);
ops:=2;
loadconst(0,_op1);
loadconst(0,cardinal(_op1));
loadreg(1,_op2);
end;
@ -162,8 +162,8 @@ implementation
begin
inherited create(op);
ops:=2;
loadconst(0,_op1);
loadconst(1,_op2);
loadconst(0,cardinal(_op1));
loadconst(1,cardinal(_op2));
end;
@ -182,7 +182,7 @@ implementation
ops:=3;
loadreg(0,_op1);
loadreg(1,_op2);
loadconst(2,_op3);
loadconst(2,cardinal(_op3));
end;
constructor taicpu.op_reg_reg_sym_ofs(op : tasmop;_op1,_op2 : tregister; _op3: tasmsymbol;_op3ofs: longint);
@ -207,7 +207,7 @@ implementation
begin
inherited create(op);
ops:=3;
loadconst(0,_op1);
loadconst(0,cardinal(_op1));
loadreg(1,_op2);
loadreg(2,_op3);
end;
@ -216,9 +216,9 @@ implementation
begin
inherited create(op);
ops:=3;
loadconst(0,_op1);
loadconst(0,cardinal(_op1));
loadreg(1,_op2);
loadconst(2,_op3);
loadconst(2,cardinal(_op3));
end;
@ -249,7 +249,7 @@ implementation
loadreg(0,_op1);
loadbool(0,_op2);
loadreg(0,_op3);
loadconst(0,_op4);
loadconst(0,cardinal(_op4));
end;
constructor taicpu.op_reg_reg_const_const_const(op : tasmop;_op1,_op2 : tregister;_op3,_op4,_op5 : Longint);
@ -258,9 +258,9 @@ implementation
ops:=5;
loadreg(0,_op1);
loadreg(1,_op2);
loadconst(2,_op3);
loadconst(3,_op4);
loadconst(4,_op5);
loadconst(2,cardinal(_op3));
loadconst(3,cardinal(_op4));
loadconst(4,cardinal(_op5));
end;
constructor taicpu.op_cond_sym(op : tasmop;cond:TAsmCond;_op1 : tasmsymbol);
@ -275,8 +275,8 @@ implementation
begin
inherited create(op);
ops:=3;
loadconst(0,_op1);
loadconst(1,_op2);
loadconst(0,cardinal(_op1));
loadconst(1,cardinal(_op2));
loadsymbol(2,_op3,0);
end;
@ -337,7 +337,10 @@ implementation
end.
{
$Log$
Revision 1.1 2002-07-07 09:44:31 florian
Revision 1.2 2002-07-26 11:19:57 jonas
* fixed range errors
Revision 1.1 2002/07/07 09:44:31 florian
* powerpc target fixed, very simple units can be compiled
Revision 1.8 2002/05/18 13:34:26 peter

7
compiler/powerpc/agppcgas.pas
View File

@ -217,7 +217,7 @@ unit agppcgas;
getopstr:=reg2str[o.reg];
{ no top_ref jumping for powerpc }
top_const:
getopstr:=tostr(o.val);
getopstr:=tostr(longint(o.val));
top_ref:
getopstr:=getreferencestring(o.ref^);
top_symbol:
@ -340,7 +340,10 @@ begin
end.
{
$Log$
Revision 1.6 2002-07-21 16:56:20 jonas
Revision 1.7 2002-07-26 11:19:57 jonas
* fixed range errors
Revision 1.6 2002/07/21 16:56:20 jonas
* fixed bugs with writing out unconditinal jumps
Revision 1.5 2002/07/12 10:10:01 jonas