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

+ Removed NOSAVEREGISTERS define

Browse Source 
git-svn-id: trunk@307 -
This commit is contained in:
michael 2005-06-09 17:58:20 +00:00
parent 06ab2d2ee6
commit 5cafc069b5
10 changed files with 32 additions and 32 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
rtl/inc/aliases.inc
View File

@ -25,8 +25,8 @@
{ export for internal usage } { export for internal usage }
Procedure int_Finalize (Data,TypeInfo: Pointer); [external name 'FPC_FINALIZE']; Procedure int_Finalize (Data,TypeInfo: Pointer); [external name 'FPC_FINALIZE'];
Procedure int_Addref (Data,TypeInfo : Pointer);{$ifndef NOSAVEREGISTERS}saveregisters;{$endif} [external name 'FPC_ADDREF']; Procedure int_Addref (Data,TypeInfo : Pointer); [external name 'FPC_ADDREF'];
Procedure int_DecRef (Data, TypeInfo : Pointer);{$ifndef NOSAVEREGISTERS}saveregisters;{$endif} [external name 'FPC_DECREF']; Procedure int_DecRef (Data, TypeInfo : Pointer); [external name 'FPC_DECREF'];
Procedure int_Initialize (Data,TypeInfo: Pointer); [external name 'FPC_INITIALIZE']; Procedure int_Initialize (Data,TypeInfo: Pointer); [external name 'FPC_INITIALIZE'];
procedure int_FinalizeArray(data,typeinfo : pointer;count,size : longint); [external name 'FPC_FINALIZEARRAY']; procedure int_FinalizeArray(data,typeinfo : pointer;count,size : longint); [external name 'FPC_FINALIZEARRAY'];

8
rtl/inc/astrings.inc
View File

@ -86,7 +86,7 @@ begin
end; end;
Procedure fpc_AnsiStr_Decr_Ref (Var S : Pointer);{$ifndef NOSAVEREGISTERS}saveregisters;{$endif}[Public,Alias:'FPC_ANSISTR_DECR_REF']; compilerproc; Procedure fpc_AnsiStr_Decr_Ref (Var S : Pointer); [Public,Alias:'FPC_ANSISTR_DECR_REF']; compilerproc;
{ {
Decreases the ReferenceCount of a non constant ansistring; Decreases the ReferenceCount of a non constant ansistring;
If the reference count is zero, deallocate the string; If the reference count is zero, deallocate the string;
@ -109,9 +109,9 @@ Begin
end; end;
{ also define alias for internal use in the system unit } { also define alias for internal use in the system unit }
Procedure fpc_AnsiStr_Decr_Ref (Var S : Pointer);{$ifndef NOSAVEREGISTERS}saveregisters;{$endif} [external name 'FPC_ANSISTR_DECR_REF']; Procedure fpc_AnsiStr_Decr_Ref (Var S : Pointer); [external name 'FPC_ANSISTR_DECR_REF'];
Procedure fpc_AnsiStr_Incr_Ref (S : Pointer);{$ifndef NOSAVEREGISTERS}saveregisters;{$endif}[Public,Alias:'FPC_ANSISTR_INCR_REF']; compilerproc; Procedure fpc_AnsiStr_Incr_Ref (S : Pointer); [Public,Alias:'FPC_ANSISTR_INCR_REF']; compilerproc;
Begin Begin
If S=Nil then If S=Nil then
exit; exit;
@ -121,7 +121,7 @@ Begin
end; end;
{ also define alias which can be used inside the system unit } { also define alias which can be used inside the system unit }
Procedure fpc_AnsiStr_Incr_Ref (S : Pointer);{$ifndef NOSAVEREGISTERS}saveregisters;{$endif}[external name 'FPC_ANSISTR_INCR_REF']; Procedure fpc_AnsiStr_Incr_Ref (S : Pointer); [external name 'FPC_ANSISTR_INCR_REF'];
Procedure fpc_AnsiStr_Assign (Var S1 : Pointer;S2 : Pointer);[Public,Alias:'FPC_ANSISTR_ASSIGN']; compilerproc; Procedure fpc_AnsiStr_Assign (Var S1 : Pointer;S2 : Pointer);[Public,Alias:'FPC_ANSISTR_ASSIGN']; compilerproc;
{ {

8
rtl/inc/dynarr.inc
View File

@ -110,7 +110,7 @@ procedure fpc_dynarray_clear(var p : pointer;ti : pointer); [Public,Alias:'FPC_D
Procedure fpc_dynarray_clear (var p : pointer;ti : pointer);[external name 'FPC_DYNARRAY_CLEAR']; Procedure fpc_dynarray_clear (var p : pointer;ti : pointer);[external name 'FPC_DYNARRAY_CLEAR'];
procedure fpc_dynarray_decr_ref(var p : pointer;ti : pointer);{$ifndef NOSAVEREGISTERS}saveregisters;{$endif}[Public,Alias:'FPC_DYNARRAY_DECR_REF']; compilerproc; procedure fpc_dynarray_decr_ref(var p : pointer;ti : pointer); [Public,Alias:'FPC_DYNARRAY_DECR_REF']; compilerproc;
var var
realp : pdynarray; realp : pdynarray;
begin begin
@ -129,9 +129,9 @@ procedure fpc_dynarray_decr_ref(var p : pointer;ti : pointer);{$ifndef NOSAVEREG
end; end;
{ provide local access to dynarr_decr_ref for dynarr_setlength } { provide local access to dynarr_decr_ref for dynarr_setlength }
procedure fpc_dynarray_decr_ref(var p : pointer;ti : pointer);{$ifndef NOSAVEREGISTERS}saveregisters;{$endif} [external name 'FPC_DYNARRAY_DECR_REF']; procedure fpc_dynarray_decr_ref(var p : pointer;ti : pointer); [external name 'FPC_DYNARRAY_DECR_REF'];
procedure fpc_dynarray_incr_ref(p : pointer);{$ifndef NOSAVEREGISTERS}saveregisters;{$endif}[Public,Alias:'FPC_DYNARRAY_INCR_REF']; compilerproc; procedure fpc_dynarray_incr_ref(p : pointer);[Public,Alias:'FPC_DYNARRAY_INCR_REF']; compilerproc;
var var
realp : pdynarray; realp : pdynarray;
begin begin
@ -146,7 +146,7 @@ procedure fpc_dynarray_incr_ref(p : pointer);{$ifndef NOSAVEREGISTERS}saveregist
end; end;
{ provide local access to dynarr_decr_ref for dynarr_setlength } { provide local access to dynarr_decr_ref for dynarr_setlength }
procedure fpc_dynarray_incr_ref(p : pointer);{$ifndef NOSAVEREGISTERS}saveregisters;{$endif}[external name 'FPC_DYNARRAY_INCR_REF']; procedure fpc_dynarray_incr_ref(p : pointer); [external name 'FPC_DYNARRAY_INCR_REF'];
{ provide local access to dynarr_setlength } { provide local access to dynarr_setlength }
procedure int_dynarray_setlength(var p : pointer;pti : pointer; procedure int_dynarray_setlength(var p : pointer;pti : pointer;

4
rtl/inc/except.inc
View File

@ -70,7 +70,7 @@ end;
end; end;
Function fpc_PushExceptAddr (Ft: Longint;_buf,_newaddr : pointer): PJmp_buf ; Function fpc_PushExceptAddr (Ft: Longint;_buf,_newaddr : pointer): PJmp_buf ;
[Public, Alias : 'FPC_PUSHEXCEPTADDR'];{$ifndef NOSAVEREGISTERS}saveregisters;{$endif}compilerproc; [Public, Alias : 'FPC_PUSHEXCEPTADDR'];compilerproc;
var var
Buf : PJmp_buf; Buf : PJmp_buf;
@ -98,7 +98,7 @@ end;
Procedure fpc_PushExceptObj (Obj : TObject; AnAddr,AFrame : Pointer); Procedure fpc_PushExceptObj (Obj : TObject; AnAddr,AFrame : Pointer);
[Public, Alias : 'FPC_PUSHEXCEPTOBJECT'];{$ifndef NOSAVEREGISTERS}saveregisters;{$endif}compilerproc; [Public, Alias : 'FPC_PUSHEXCEPTOBJECT']; compilerproc;
var var
Newobj : PExceptObject; Newobj : PExceptObject;
framebufsize, framebufsize,

4
rtl/inc/generic.inc
View File

@ -454,7 +454,7 @@ end;
{$endif FPC_SYSTEM_HAS_FPC_HELP_FAIL} {$endif FPC_SYSTEM_HAS_FPC_HELP_FAIL}
{$ifndef FPC_SYSTEM_HAS_FPC_CHECK_OBJECT} {$ifndef FPC_SYSTEM_HAS_FPC_CHECK_OBJECT}
procedure fpc_check_object(_vmt : pointer);{$ifndef NOSAVEREGISTERS}saveregisters;{$endif}[public,alias:'FPC_CHECK_OBJECT']; compilerproc; procedure fpc_check_object(_vmt : pointer); [public,alias:'FPC_CHECK_OBJECT']; compilerproc;
type type
pvmt = ^tvmt; pvmt = ^tvmt;
tvmt = packed record tvmt = packed record
@ -475,7 +475,7 @@ end;
{ checks for a correct vmt pointer } { checks for a correct vmt pointer }
{ deeper check to see if the current object is } { deeper check to see if the current object is }
{ really related to the true } { really related to the true }
procedure fpc_check_object_ext(vmt, expvmt : pointer);{$ifndef NOSAVEREGISTERS}saveregisters;{$endif}[public,alias:'FPC_CHECK_OBJECT_EXT']; compilerproc; procedure fpc_check_object_ext(vmt, expvmt : pointer); [public,alias:'FPC_CHECK_OBJECT_EXT']; compilerproc;
type type
pvmt = ^tvmt; pvmt = ^tvmt;
tvmt = packed record tvmt = packed record

2
rtl/inc/heaptrc.pp
View File

@ -734,7 +734,7 @@ var
{$endif} {$endif}
procedure CheckPointer(p : pointer);{$ifndef NOSAVEREGISTERS}saveregisters;{$endif}[public, alias : 'FPC_CHECKPOINTER']; procedure CheckPointer(p : pointer); [public, alias : 'FPC_CHECKPOINTER'];
var var
i : ptrint; i : ptrint;
pp : pheap_mem_info; pp : pheap_mem_info;

8
rtl/inc/objpas.inc
View File

@ -34,7 +34,7 @@
end; end;
{ interface helpers } { interface helpers }
procedure fpc_intf_decr_ref(var i: pointer);{$ifndef NOSAVEREGISTERS}saveregisters;{$endif}[public,alias: 'FPC_INTF_DECR_REF']; compilerproc; procedure fpc_intf_decr_ref(var i: pointer);[public,alias: 'FPC_INTF_DECR_REF']; compilerproc;
begin begin
if assigned(i) then if assigned(i) then
IUnknown(i)._Release; IUnknown(i)._Release;
@ -42,17 +42,17 @@
end; end;
{ local declaration for intf_decr_ref for local access } { local declaration for intf_decr_ref for local access }
procedure intf_decr_ref(var i: pointer);{$ifndef NOSAVEREGISTERS}saveregisters;{$endif} [external name 'FPC_INTF_DECR_REF']; procedure intf_decr_ref(var i: pointer); [external name 'FPC_INTF_DECR_REF'];
procedure fpc_intf_incr_ref(i: pointer);{$ifndef NOSAVEREGISTERS}saveregisters;{$endif}[public,alias: 'FPC_INTF_INCR_REF']; compilerproc; procedure fpc_intf_incr_ref(i: pointer);[public,alias: 'FPC_INTF_INCR_REF']; compilerproc;
begin begin
if assigned(i) then if assigned(i) then
IUnknown(i)._AddRef; IUnknown(i)._AddRef;
end; end;
{ local declaration of intf_incr_ref for local access } { local declaration of intf_incr_ref for local access }
procedure intf_incr_ref(i: pointer);{$ifndef NOSAVEREGISTERS}saveregisters;{$endif} [external name 'FPC_INTF_INCR_REF']; procedure intf_incr_ref(i: pointer); [external name 'FPC_INTF_INCR_REF'];
procedure fpc_intf_assign(var D: pointer; const S: pointer);[public,alias: 'FPC_INTF_ASSIGN']; compilerproc; procedure fpc_intf_assign(var D: pointer; const S: pointer);[public,alias: 'FPC_INTF_ASSIGN']; compilerproc;
begin begin

10
rtl/inc/rtti.inc
View File

@ -126,7 +126,7 @@ end;
Procedure fpc_Initialize (Data,TypeInfo : pointer);{$ifndef NOSAVEREGISTERS}saveregisters;{$endif}[Public,Alias : 'FPC_INITIALIZE']; compilerproc; Procedure fpc_Initialize (Data,TypeInfo : pointer);[Public,Alias : 'FPC_INITIALIZE']; compilerproc;
begin begin
case PByte(TypeInfo)^ of case PByte(TypeInfo)^ of
tkAstring,tkWstring,tkInterface,tkDynArray: tkAstring,tkWstring,tkInterface,tkDynArray:
@ -142,7 +142,7 @@ begin
end; end;
Procedure fpc_finalize (Data,TypeInfo: Pointer);{$ifndef NOSAVEREGISTERS}saveregisters;{$endif}[Public,Alias : 'FPC_FINALIZE']; compilerproc; Procedure fpc_finalize (Data,TypeInfo: Pointer);[Public,Alias : 'FPC_FINALIZE']; compilerproc;
begin begin
case PByte(TypeInfo)^ of case PByte(TypeInfo)^ of
tkAstring : tkAstring :
@ -173,7 +173,7 @@ begin
end; end;
Procedure fpc_Addref (Data,TypeInfo : Pointer);{$ifndef NOSAVEREGISTERS}saveregisters;{$endif} [Public,alias : 'FPC_ADDREF']; compilerproc; Procedure fpc_Addref (Data,TypeInfo : Pointer); [Public,alias : 'FPC_ADDREF']; compilerproc;
begin begin
case PByte(TypeInfo)^ of case PByte(TypeInfo)^ of
tkAstring : tkAstring :
@ -197,9 +197,9 @@ end;
{ alias for internal use } { alias for internal use }
{ we use another name else the compiler gets puzzled because of the wrong forward def } { we use another name else the compiler gets puzzled because of the wrong forward def }
procedure fpc_systemDecRef (Data, TypeInfo : Pointer);{$ifndef NOSAVEREGISTERS}saveregisters;{$endif}[external name 'FPC_DECREF']; procedure fpc_systemDecRef (Data, TypeInfo : Pointer);[external name 'FPC_DECREF'];
Procedure fpc_DecRef (Data, TypeInfo : Pointer);{$ifndef NOSAVEREGISTERS}saveregisters;{$endif}[Public,alias : 'FPC_DECREF']; compilerproc; Procedure fpc_DecRef (Data, TypeInfo : Pointer);[Public,alias : 'FPC_DECREF']; compilerproc;
begin begin
case PByte(TypeInfo)^ of case PByte(TypeInfo)^ of
{ see AddRef for comment about below construct (JM) } { see AddRef for comment about below construct (JM) }

8
rtl/inc/system.inc
View File

@ -502,7 +502,7 @@ begin
end; end;
procedure fpc_iocheck;{$ifndef NOSAVEREGISTERS}saveregisters;{$endif}[public,alias:'FPC_IOCHECK']; compilerproc; procedure fpc_iocheck;[public,alias:'FPC_IOCHECK']; compilerproc;
var var
l : longint; l : longint;
begin begin
@ -538,7 +538,7 @@ end;
{$DEFINE STACKCHECK} {$DEFINE STACKCHECK}
{$ENDIF} {$ENDIF}
{$S-} {$S-}
procedure fpc_stackcheck(stack_size:Cardinal);{$ifndef NOSAVEREGISTERS}saveregisters;{$endif}[public,alias:'FPC_STACKCHECK']; procedure fpc_stackcheck(stack_size:Cardinal);[public,alias:'FPC_STACKCHECK'];
var var
c : Pointer; c : Pointer;
begin begin
@ -652,7 +652,7 @@ begin
end; end;
Procedure lib_exit;{$ifndef NOSAVEREGISTERS}saveregisters;{$endif}[Public,Alias:'FPC_LIB_EXIT']; Procedure lib_exit;[Public,Alias:'FPC_LIB_EXIT'];
begin begin
InternalExit; InternalExit;
end; end;
@ -916,7 +916,7 @@ begin
end; end;
Procedure fpc_assert(Const Msg,FName:Shortstring;LineNo:Longint;ErrorAddr:Pointer);{$ifndef NOSAVEREGISTERS}saveregisters;{$endif} [Public,Alias : 'FPC_ASSERT']; compilerproc; Procedure fpc_assert(Const Msg,FName:Shortstring;LineNo:Longint;ErrorAddr:Pointer); [Public,Alias : 'FPC_ASSERT']; compilerproc;
begin begin
if pointer(AssertErrorProc)<>nil then if pointer(AssertErrorProc)<>nil then
AssertErrorProc(Msg,FName,LineNo,ErrorAddr) AssertErrorProc(Msg,FName,LineNo,ErrorAddr)

8
rtl/inc/wstrings.inc
View File

@ -168,7 +168,7 @@ begin
end; end;
Procedure fpc_WideStr_Decr_Ref (Var S : Pointer);{$ifndef NOSAVEREGISTERS}saveregisters;{$endif}[Public,Alias:'FPC_WIDESTR_DECR_REF']; compilerproc; Procedure fpc_WideStr_Decr_Ref (Var S : Pointer);[Public,Alias:'FPC_WIDESTR_DECR_REF']; compilerproc;
{ {
Decreases the ReferenceCount of a non constant widestring; Decreases the ReferenceCount of a non constant widestring;
If the reference count is zero, deallocate the string; If the reference count is zero, deallocate the string;
@ -191,9 +191,9 @@ Begin
end; end;
{ alias for internal use } { alias for internal use }
Procedure fpc_WideStr_Decr_Ref (Var S : Pointer);{$ifndef NOSAVEREGISTERS}saveregisters;{$endif}[external name 'FPC_WIDESTR_DECR_REF']; Procedure fpc_WideStr_Decr_Ref (Var S : Pointer);[external name 'FPC_WIDESTR_DECR_REF'];
Procedure fpc_WideStr_Incr_Ref (S : Pointer);{$ifndef NOSAVEREGISTERS}saveregisters;{$endif}[Public,Alias:'FPC_WIDESTR_INCR_REF']; compilerproc; Procedure fpc_WideStr_Incr_Ref (S : Pointer);[Public,Alias:'FPC_WIDESTR_INCR_REF']; compilerproc;
Begin Begin
If S=Nil then If S=Nil then
exit; exit;
@ -203,7 +203,7 @@ Begin
end; end;
{ alias for internal use } { alias for internal use }
Procedure fpc_WideStr_Incr_Ref (S : Pointer);{$ifndef NOSAVEREGISTERS}saveregisters;{$endif}[external name 'FPC_WIDESTR_INCR_REF']; Procedure fpc_WideStr_Incr_Ref (S : Pointer);[external name 'FPC_WIDESTR_INCR_REF'];
function fpc_WideStr_To_ShortStr (high_of_res: SizeInt;const S2 : WideString): shortstring;[Public, alias: 'FPC_WIDESTR_TO_SHORTSTR']; compilerproc; function fpc_WideStr_To_ShortStr (high_of_res: SizeInt;const S2 : WideString): shortstring;[Public, alias: 'FPC_WIDESTR_TO_SHORTSTR']; compilerproc;
{ {