mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-06-20 05:38:42 +02:00
45 lines
1.3 KiB
PHP
45 lines
1.3 KiB
PHP
{$define FPC_SYSTEM_HAS_GET_FRAME}
|
|
function get_frame:pointer;{assembler;}
|
|
begin{asm}
|
|
{$warning FIX ME!}
|
|
// !!!!!!! depends on ABI !!!!!!!!
|
|
end;
|
|
{$define FPC_SYSTEM_HAS_GET_CALLER_ADDR}
|
|
function get_caller_addr(framebp:pointer):pointer;{assembler;}
|
|
begin{asm}
|
|
{$warning FIX ME!}
|
|
// !!!!!!! depends on ABI !!!!!!!!
|
|
end;
|
|
{$define FPC_SYSTEM_HAS_GET_CALLER_FRAME}
|
|
function get_caller_frame(framebp:pointer):pointer;{assembler;}
|
|
begin{asm}
|
|
{$warning FIX ME!}
|
|
// !!!!!!! depends on ABI !!!!!!!!
|
|
end;
|
|
{$define FPC_SYSTEM_HAS_SPTR}
|
|
function Sptr:Longint;{assembler;}
|
|
begin{asm}
|
|
{$warning FIX ME!}
|
|
end;
|
|
{$define FPC_SYSTEM_HAS_FPC_HELP_FAIL_CLASS}
|
|
function fpc_help_fail_class(_vmt:pointer;_self:pointer):pointer;{assembler;}[public,alias:'FPC_HELP_FAIL_CLASS']; {$ifdef hascompilerproc} compilerproc; {$endif}
|
|
{ a non zero class must allways be disposed
|
|
VMT is allways at pos 0 }
|
|
begin{asm}
|
|
{$warning FIX ME!}
|
|
// !!!!!!!!!!!
|
|
end;
|
|
{
|
|
$Log$
|
|
Revision 1.3 2003-03-17 14:30:11 peter
|
|
* changed address parameter/return values to pointer instead
|
|
of longint
|
|
|
|
Revision 1.2 2003/02/05 21:48:34 mazen
|
|
* fixing run time errors related to unimplemented abstract methods in CG
|
|
+ giving empty emplementations for some RTL functions
|
|
|
|
Revision 1.1 2002/11/16 20:10:31 florian
|
|
+ sparc specific rtl skeleton added
|
|
}
|