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

+ implemented get_frame()

Browse Source 
* fixed bug in IndexDWord()
This commit is contained in:
Jonas Maebe 2003-03-12 19:21:29 +00:00
parent 55cb77350b
commit 400baab806
1 changed files with 8 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
rtl/powerpc/powerpc.inc
View File

@ -491,7 +491,7 @@ asm
li r3,-1 li r3,-1
ble LIndexDWordDone ble LIndexDWordDone
LIndexDWordLoop: LIndexDWordLoop:
lwzu r9,4(r30) lwzu r9,4(r10)
cmplw r9,r5 cmplw r9,r5
bdnzf cr0*4+eq, LIndexDWordLoop bdnzf cr0*4+eq, LIndexDWordLoop
{ r3 still contains -1 here } { r3 still contains -1 here }
@ -854,8 +854,8 @@ function fpc_pchar_length(p:pchar):longint;assembler;[public,alias:'FPC_PCHAR_LE
{$define FPC_SYSTEM_HAS_GET_FRAME} {$define FPC_SYSTEM_HAS_GET_FRAME}
function get_frame:longint;assembler; function get_frame:longint;assembler;
asm asm
{$warning FIX ME!} { all abi's I know use r1 as stack pointer }
// !!!!!!! depends on ABI !!!!!!!! mr r3, r1
end ['R3']; end ['R3'];
@ -948,7 +948,11 @@ end ['R3','R10'];
{ {
$Log$ $Log$
Revision 1.29 2003-01-09 20:14:35 florian Revision 1.30 2003-03-12 19:21:29 jonas
+ implemented get_frame()
* fixed bug in IndexDWord()
Revision 1.29 2003/01/09 20:14:35 florian
* fixed helper declarations * fixed helper declarations
Revision 1.28 2003/01/09 13:38:56 florian Revision 1.28 2003/01/09 13:38:56 florian