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

* fixed assembling

Browse Source
This commit is contained in:
florian 2003-04-24 11:50:50 +00:00
parent 82b65b962c
commit 0e8ad9d236
1 changed files with 5 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
rtl/powerpc/typinfo.inc
View File

@ -40,7 +40,7 @@ Function CallIntegerFunc(s: Pointer; Address: Pointer; Index, IValue: LongInt):
mtlr r30
end;
Function CallIntegerProc(s : Pointer;Address : Pointer;Value : Integer; INdex,IValue : Longint) : Integer;assembler;
Function CallIntegerProc(s : Pointer;Address : Pointer;Value : Integer; Index,IValue : Longint) : Integer;assembler;
{ input: }
{ r3: s }
{ r4: address }
@ -132,11 +132,7 @@ Function CallExtendedProc(s : Pointer;Address : Pointer;Value : Extended; Index,
asm
{ save current return address }
mflr r30
cmpli r7,0
mtctr r4
beq LNoIndex
fmr fr2,fr3
LNoIndex:
{ always pass ivalue as second parameter, it doesn't matter if it }
{ isn't used }
mr r4,r8
@ -211,7 +207,10 @@ Procedure CallSStringProc(s : Pointer;Address : Pointer;Const Value : ShortStrin
{
$Log$
Revision 1.5 2003-04-24 11:47:21 florian
Revision 1.6 2003-04-24 11:50:50 florian
* fixed assembling
Revision 1.5 2003/04/24 11:47:21 florian
* fixed wrong newlines
Revision 1.4 2003/04/23 22:47:13 florian