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

* little cleanup of the previous commit

Browse Source
This commit is contained in:
Károly Balogh 2004-04-29 14:36:42 +00:00
parent 3c785c3405
commit 94c6cdb21a
1 changed files with 5 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
compiler/powerpc/nppccal.pas
View File

@ -92,9 +92,7 @@ implementation
exprasmlist.concat(taicpu.op_reg_const(A_LI,NR_R3,tprocdef(procdefinition).extnumber)); exprasmlist.concat(taicpu.op_reg_const(A_LI,NR_R3,tprocdef(procdefinition).extnumber));
{ prepare LR, and call function } { prepare LR, and call function }
reference_reset(tmpref); reference_reset_base(tmpref,NR_R2,100); { 100 ($64) is EmulDirectCallOS offset }
tmpref.base := NR_R2;
tmpref.offset := 100; { EmulDirectCallOS offset }
exprasmlist.concat(taicpu.op_reg_ref(A_LWZ,NR_R0,tmpref)); exprasmlist.concat(taicpu.op_reg_ref(A_LWZ,NR_R0,tmpref));
exprasmlist.concat(taicpu.op_reg(A_MTLR,NR_R0)); exprasmlist.concat(taicpu.op_reg(A_MTLR,NR_R0));
exprasmlist.concat(taicpu.op_none(A_BLRL)); exprasmlist.concat(taicpu.op_none(A_BLRL));
@ -121,7 +119,10 @@ begin
end. end.
{ {
$Log$ $Log$
Revision 1.24 2004-04-29 14:01:23 karoly Revision 1.25 2004-04-29 14:36:42 karoly
* little cleanup of the previous commit
Revision 1.24 2004/04/29 14:01:23 karoly
+ first implementation of PowerPC/MorphOS do_syscall + first implementation of PowerPC/MorphOS do_syscall
Revision 1.23 2003/12/28 22:09:12 florian Revision 1.23 2003/12/28 22:09:12 florian