paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-10-18 13:51:35 +02:00
Code Issues Packages Projects Releases Wiki Activity

* fpc_ansistring_decr improved

Browse Source 
git-svn-id: trunk@2629 -
This commit is contained in:
florian 2006-02-19 14:38:06 +00:00
parent e2e51d6757
commit 0d61229d63
1 changed files with 14 additions and 20 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

34
rtl/i386/i386.inc
View File

@ -1151,44 +1151,38 @@ 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;
asm
cmpl $0,(%eax)
jne .Ldecr_ref_continue
ret
cmpl $0,(%eax)
jne .Ldecr_ref_continue
ret
.Ldecr_ref_continue:
// Temps allocated between ebp-24 and ebp+0
subl $4,%esp
// Var S located in register
// Var l located in register
movl %eax,(%esp)
.Lj3599:
// [101] l:=@PAnsiRec(S-FirstOff)^.Ref;
movl (%esp),%edx
movl (%edx),%edx
movl (%eax),%edx
subl $8,%edx
// [102] If l^<0 then exit;
movl (%edx),%eax
testl %eax,%eax
cmpl $0,(%edx)
jl .Lj3596
.Lj3603:
// [104] If declocked(l^) then
movb ismultithread,%al
testb %al,%al
jne .Lj3610
// [104] If declocked(l^) then
cmpb $0,ismultithread
jne .Lj3610
decl (%edx)
je .Lj3620
addl $4,%esp
je .Lj3620
addl $4,%esp
ret
.Lj3610:
movl %edx,%eax
call cpudeclocked
movb %al,%cl
.Lj3613:
testb %cl,%cl
je .Lj3605
movb %al,%al
je .Lj3605
.Lj3620:
movl (%esp),%eax
movl (%eax),%eax
subl $8,%eax
subl $8,%eax
call FPC_FREEMEM_X
movl (%esp),%eax
movl $0,(%eax)
@ -1196,7 +1190,7 @@ asm
.Lj3605:
.Lj3596:
// [107] end;
addl $4,%esp
addl $4,%esp
end;
function fpc_truely_ansistr_unique(Var S : Pointer): Pointer; forward;