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

- RTL: cleaned out FPC_FREEMEM_X. We now have a dedicated compilerproc 'fpc_freemem' for this purpose.

Browse Source 
git-svn-id: trunk@27232 -
This commit is contained in:
sergei 2014-03-23 02:11:38 +00:00
parent c376210946
commit 8ad5e6fb26
3 changed files with 3 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
rtl/arm/arm.inc
View File

@ -505,8 +505,6 @@ end;
{$ifndef darwin} {$ifndef darwin}
{$define FPC_SYSTEM_HAS_ANSISTR_DECR_REF} {$define FPC_SYSTEM_HAS_ANSISTR_DECR_REF}
function fpc_freemem_x(p:pointer):ptrint; [external name 'FPC_FREEMEM_X'];
Procedure fpc_ansistr_decr_ref (Var S : Pointer); [Public,Alias:'FPC_ANSISTR_DECR_REF'];assembler;nostackframe; compilerproc; Procedure fpc_ansistr_decr_ref (Var S : Pointer); [Public,Alias:'FPC_ANSISTR_DECR_REF'];assembler;nostackframe; compilerproc;
asm asm
ldr r1, [r0] ldr r1, [r0]
@ -545,7 +543,7 @@ asm
// but we need to stay backward compatible with 2.6 // but we need to stay backward compatible with 2.6
sub r0, r0, #12 sub r0, r0, #12
// Jump without a link, so freemem directly returns to our caller // Jump without a link, so freemem directly returns to our caller
b FPC_FREEMEM_X b FPC_FREEMEM
end; end;
{$endif not darwin} {$endif not darwin}

4
rtl/i386/i386.inc
View File

@ -1446,8 +1446,6 @@ procedure fpc_cpucodeinit;
{$ifdef FPC_HAS_FEATURE_ANSISTRINGS} {$ifdef FPC_HAS_FEATURE_ANSISTRINGS}
{$define FPC_SYSTEM_HAS_ANSISTR_DECR_REF} {$define FPC_SYSTEM_HAS_ANSISTR_DECR_REF}
function fpc_freemem_x(p:pointer):ptrint; [external name 'FPC_FREEMEM_X'];
Procedure fpc_AnsiStr_Decr_Ref (Var S : Pointer); [Public,Alias:'FPC_ANSISTR_DECR_REF']; compilerproc; nostackframe; assembler; Procedure fpc_AnsiStr_Decr_Ref (Var S : Pointer); [Public,Alias:'FPC_ANSISTR_DECR_REF']; compilerproc; nostackframe; assembler;
asm asm
cmpl $0,(%eax) cmpl $0,(%eax)
@ -1480,7 +1478,7 @@ asm
je .Lj3596 je .Lj3596
.Lj3620: .Lj3620:
movl %esi,%eax movl %esi,%eax
call FPC_FREEMEM_X call FPC_FREEMEM
.Lj3596: .Lj3596:
popl %esi popl %esi
.Lquit: .Lquit:

2
rtl/inc/heap.inc
View File

@ -311,7 +311,7 @@ end;
{ Delphi style } { Delphi style }
function FreeMem(p:pointer):ptruint;[Public,Alias:'FPC_FREEMEM_X']; function FreeMem(p:pointer):ptruint;
begin begin
FreeMem := MemoryManager.FreeMem(p); FreeMem := MemoryManager.FreeMem(p);
end; end;