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

* 1.1 does not need to load esi

Browse Source
This commit is contained in:
peter 2003-07-08 21:21:33 +00:00
parent c2b929017a
commit 0460035f53
1 changed files with 21 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

22
rtl/inc/objects.pp
View File

@ -716,6 +716,13 @@ end ['EAX'];
move.l (a6),d0
end ['D0'];
{$endif}
{$ifdef sparc}
{$define FPC_PreviousFramePointer_Implemented}
{ we have first our own frame }
ld [%fp],%i0
ld [%io],%i0
end;
{$endif}
{$ifdef powerpc}
{$define FPC_PreviousFramePointer_Implemented}
{$warning FIX ME !!!! }
@ -732,6 +739,7 @@ end;
function CallPointerConstructor(Ctor: pointer; Obj: pointer; VMT: pointer; Param1: pointer): pointer;
{$undef FPC_CallPointerConstructor_Implemented}
begin
{$ifdef VER1_0}
asm
{$ifdef i386}
{$define FPC_CallPointerConstructor_Implemented}
@ -742,6 +750,10 @@ begin
move.l Obj, a5
{$endif}
end;
{$else}
{ 1.1 does not esi to be loaded }
{$define FPC_CallPointerConstructor_Implemented}
{$endif}
CallPointerConstructor := PointerConstructor(Ctor)(VMT, Obj, Param1)
end;
{$ifdef powerpc}
@ -757,6 +769,7 @@ end;
function CallPointerMethod(Method: pointer; Obj: pointer; Param1: pointer): pointer;
{$undef FPC_CallPointerMethod_Implemented}
begin
{$ifdef VER1_0}
asm
{$ifdef i386}
{$define FPC_CallPointerMethod_Implemented}
@ -772,6 +785,10 @@ begin
so self should be in a register anyways }
{$endif}
end;
{$else}
{ 1.1 does not esi to be loaded }
{$define FPC_CallPointerMethod_Implemented}
{$endif}
CallPointerMethod := PointerMethod(Method)(Obj, Param1)
end;
{$ifndef FPC_CallPointerMethod_Implemented}
@ -2910,7 +2927,10 @@ END;
END.
{
$Log$
Revision 1.19 2003-06-05 14:45:56 peter
Revision 1.20 2003-07-08 21:21:33 peter
* 1.1 does not need to load esi
Revision 1.19 2003/06/05 14:45:56 peter
* use Windows THandle
Revision 1.18 2003/01/05 16:27:05 hajny