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

Merged revisions 2856 via svnmerge from

Browse Source 
svn+ssh://jonas@svn.freepascal.org/FPC/svn/fpc/trunk

........
r2856 | jonas | 2006-03-11 15:16:11 +0100 (Sat, 11 Mar 2006) | 3 lines

  * fixed assembler version of fpc_AnsiStr_Decr_Ref (based on remark
    from Martin Schreiber)

........

git-svn-id: branches/fixes_2_0@3006 -
This commit is contained in:
Jonas Maebe 2006-03-21 16:50:10 +00:00
parent 715a88dca2
commit 139aa14a2b
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
rtl/i386/i386.inc
View File

@ -984,7 +984,7 @@ end;
****************************************************************************}
{ do a thread save inc/dec }
{ do a thread-safe inc/dec }
{$define FPC_SYSTEM_HAS_DECLOCKED_LONGINT}
function cpudeclocked(var l : longint) : boolean;assembler;nostackframe;
@ -1090,7 +1090,7 @@ asm
.Lj3610:
movl %edx,%eax
call cpudeclocked
movb %al,%al
testb %al,%al
je .Lj3605
.Lj3620:
movl (%esp),%eax