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

* functions headers modified in generic.inc to make it possible compiling sparc

Browse Source 
RTL based on generic code
This commit is contained in:
mazen 2003-01-06 23:04:21 +00:00
parent 675f2770da
commit a5e2afbbb3
2 changed files with 38 additions and 15 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

18
rtl/inc/compproc.inc
View File

@ -215,13 +215,13 @@ Function fpc_Catches(Objtype : TClass) : TObject; compilerproc;
{$ifndef i386} {$ifndef i386}
Procedure fpc_DestroyException(o : TObject); compilerproc; Procedure fpc_DestroyException(o : TObject); compilerproc;
procedure fpc_help_constructor; compilerproc; procedure fpc_help_constructor; compilerproc;
procedure fpc_help_fail; compilerproc; procedure fpc_help_fail(var _self:pointer;var vmt:pointer;vmt_pos:cardinal);safecall;compilerproc;
procedure fpc_help_destructor(var _self : pointer; vmt : pointer; vmt_pos : cardinal);saveregisters;compilerproc; procedure fpc_help_destructor(var _self : pointer; vmt : pointer; vmt_pos : cardinal);saveregisters;compilerproc;
procedure fpc_new_class; compilerproc; function fpc_new_class(_vmt:pointer;_self:pointer):pointer;saveregisters;compilerproc;
procedure fpc_dispose_class; compilerproc; procedure fpc_dispose_class(_self: tobject; flag : longint);saveregisters;compilerproc;
procedure fpc_help_fail_class; compilerproc; function fpc_help_fail_class(_vmt:pointer;_self:pointer):pointer;saveregisters;compilerproc;
procedure fpc_check_object(obj : pointer); compilerproc; procedure fpc_check_object(obj:pointer); compilerproc;
procedure fpc_check_object_ext; compilerproc; procedure fpc_check_object_ext(vmt,expvmt:pointer);saveregisters;compilerproc;
{$endif i386} {$endif i386}
Procedure fpc_Initialize (Data,TypeInfo : pointer); compilerproc; Procedure fpc_Initialize (Data,TypeInfo : pointer); compilerproc;
Procedure fpc_finalize (Data,TypeInfo: Pointer); compilerproc; Procedure fpc_finalize (Data,TypeInfo: Pointer); compilerproc;
@ -285,7 +285,11 @@ function fpc_qword_to_double(q: qword): double; compilerproc;
{ {
$Log$ $Log$
Revision 1.32 2003-01-06 08:25:47 michael Revision 1.33 2003-01-06 23:04:21 mazen
* functions headers modified in generic.inc to make it possible compiling sparc
RTL based on generic code
Revision 1.32 2003/01/06 08:25:47 michael
+ PAtch from peter fixing daily build + PAtch from peter fixing daily build
Revision 1.31 2003/01/05 21:32:35 mazen Revision 1.31 2003/01/05 21:32:35 mazen

35
rtl/inc/generic.inc
View File

@ -394,7 +394,7 @@ end;
{$endif FPC_SYSTEM_HAS_FPC_HELP_DESTRUCTOR} {$endif FPC_SYSTEM_HAS_FPC_HELP_DESTRUCTOR}
{$ifndef FPC_SYSTEM_HAS_FPC_HELP_FAIL} {$ifndef FPC_SYSTEM_HAS_FPC_HELP_FAIL}
procedure fpc_help_fail(var _self : pointer; var vmt : pointer; vmt_pos : cardinal);safecall; [public,alias:'FPC_HELP_FAIL']; procedure fpc_help_fail(var _self:pointer;var vmt:pointer;vmt_pos:cardinal);safecall;[public,alias:'FPC_HELP_FAIL'];compilerproc;
type type
ppointer = ^pointer; ppointer = ^pointer;
pvmt = ^tvmt; pvmt = ^tvmt;
@ -431,7 +431,7 @@ end;
{ RETURNS SELF } { RETURNS SELF }
{ IMPORTANT: SELF REGISTER should be pre-loaded before call to } { IMPORTANT: SELF REGISTER should be pre-loaded before call to }
{ constructor for this to work! } { constructor for this to work! }
function fpc_new_class(_vmt: pointer; _self : pointer):pointer;saveregisters;[public,alias:'FPC_NEW_CLASS']; {$ifdef hascompilerproc} compilerproc; {$endif} function fpc_new_class(_vmt:pointer;_self:pointer):pointer;saveregisters;[public,alias:'FPC_NEW_CLASS']; {$ifdef hascompilerproc} compilerproc; {$endif}
begin begin
if _vmt <> nil then if _vmt <> nil then
begin begin
@ -447,7 +447,7 @@ function fpc_new_class(_vmt: pointer; _self : pointer):pointer;saveregisters;[pu
{$endif FPC_SYSTEM_HAS_FPC_NEW_CLASS} {$endif FPC_SYSTEM_HAS_FPC_NEW_CLASS}
{$ifndef FPC_SYSTEM_HAS_FPC_DISPOSE_CLASS} {$ifndef FPC_SYSTEM_HAS_FPC_DISPOSE_CLASS}
procedure fpc_dispose_class(_self: tobject; flag : longint);saveregisters;[public,alias:'FPC_DISPOSE_CLASS']; procedure fpc_dispose_class(_self: tobject; flag : longint);saveregisters;[public,alias:'FPC_DISPOSE_CLASS'];compilerproc;
begin begin
if (_self <> nil) and (flag = 1) then if (_self <> nil) and (flag = 1) then
_self.FreeInstance; _self.FreeInstance;
@ -766,15 +766,15 @@ end;
****************************************************************************} ****************************************************************************}
{$ifndef FPC_SYSTEM_HAS_GET_FRAME} {$ifndef FPC_SYSTEM_HAS_GET_FRAME}
{$error Get_frame must be defined for each processor } {_$error Get_frame must be defined for each processor }
{$endif ndef FPC_SYSTEM_HAS_GET_FRAME} {$endif ndef FPC_SYSTEM_HAS_GET_FRAME}
{$ifndef FPC_SYSTEM_HAS_GET_CALLER_ADDR} {$ifndef FPC_SYSTEM_HAS_GET_CALLER_ADDR}
{$error Get_caller_addr must be defined for each processor } {_$error Get_caller_addr must be defined for each processor }
{$endif ndef FPC_SYSTEM_HAS_GET_CALLER_ADDR} {$endif ndef FPC_SYSTEM_HAS_GET_CALLER_ADDR}
{$ifndef FPC_SYSTEM_HAS_GET_CALLER_FRAME} {$ifndef FPC_SYSTEM_HAS_GET_CALLER_FRAME}
{$error Get_caller_frame must be defined for each processor } {_$error Get_caller_frame must be defined for each processor }
{$endif ndef FPC_SYSTEM_HAS_GET_CALLER_FRAME} {$endif ndef FPC_SYSTEM_HAS_GET_CALLER_FRAME}
{**************************************************************************** {****************************************************************************
@ -871,8 +871,23 @@ end;
{$endif ndef FPC_SYSTEM_HAS_SQR_INT64} {$endif ndef FPC_SYSTEM_HAS_SQR_INT64}
{$ifndef FPC_SYSTEM_HAS_DECLOCKED}
function declocked(var l:longint):boolean;
begin
Dec(l);
declocked:=(l=0);
end;
{$endif FPC_SYSTEM_HAS_DECLOCKED}
{$ifndef FPC_SYSTEM_HAS_INCLOCKED}
procedure inclocked(var l:longint);
begin
Inc(l);
end;
{$endif FPC_SYSTEM_HAS_INCLOCKED}
{$ifndef FPC_SYSTEM_HAS_SPTR} {$ifndef FPC_SYSTEM_HAS_SPTR}
{$error Sptr must be defined for each processor } {_$error Sptr must be defined for each processor }
{$endif ndef FPC_SYSTEM_HAS_SPTR} {$endif ndef FPC_SYSTEM_HAS_SPTR}
{**************************************************************************** {****************************************************************************
@ -950,7 +965,11 @@ end;
{ {
$Log$ $Log$
Revision 1.45 2003-01-05 21:32:35 mazen Revision 1.46 2003-01-06 23:04:21 mazen
* functions headers modified in generic.inc to make it possible compiling sparc
RTL based on generic code
Revision 1.45 2003/01/05 21:32:35 mazen
* fixing several bugs compiling the RTL * fixing several bugs compiling the RTL
Revision 1.44 2002/12/23 21:27:13 peter Revision 1.44 2002/12/23 21:27:13 peter