Delphi/pascalscript
Delphi/pascalscript
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Patch by Martin Friebe for PowerPC: allow passing self

Browse Source
This commit is contained in:
Carlo Kok 2012-12-10 09:38:17 +01:00
parent 557cf0038d
commit b0f3b0e8f2
1 changed files with 5 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
Source/powerpc.inc
View File

@ -86,7 +86,7 @@ rfloat_loop:
{ build up the stack here } { build up the stack here }
mr r3, r31 { counter } mr r3, r31 { counter }
subic. r3, r3, 24 { don't write first 24 } subic. r3, r3, 24 { don't write first 24 }
blt cr0, load_regs { don't fill in stack if there is none } ble cr0, load_regs { don't fill in stack if there is none }
lwz r2, 60(r12) { pointer to stack } lwz r2, 60(r12) { pointer to stack }
addi r2, r2, 24 { start of params } addi r2, r2, 24 { start of params }
@ -240,6 +240,10 @@ begin
setlength(st, stindex); setlength(st, stindex);
Result := False; Result := False;
if assigned(_Self) then begin
addgen(dword(_Self));
end;
{ the pointer of the result needs to be passed first in the case of some result types } { the pointer of the result needs to be passed first in the case of some result types }
if assigned(res) if assigned(res)
then begin then begin