paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-21 22:29:24 +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
ble LIndexDWordDone
LIndexDWordLoop:
lwzu r9,4(r30)
lwzu r9,4(r10)
cmplw r9,r5
bdnzf cr0*4+eq, LIndexDWordLoop
{ 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}
function get_frame:longint;assembler;
asm
{$warning FIX ME!}
// !!!!!!! depends on ABI !!!!!!!!
{ all abi's I know use r1 as stack pointer }
mr r3, r1
end ['R3'];
@ -948,7 +948,11 @@ end ['R3','R10'];
{
$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
Revision 1.28 2003/01/09 13:38:56 florian