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

* InterlockedIncrement/Decrement must return the modified value, not the initial one. Fixes a number of interface memory leaks in MIPS test suite. The functions remain not thread-safe yet.

Browse Source 
git-svn-id: trunk@23393 -
This commit is contained in:
sergei 2013-01-15 19:17:57 +00:00
parent b35d04ffa8
commit 4c84febfae
1 changed files with 6 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
rtl/mips/mips.inc
View File

@ -543,18 +543,20 @@ end;
function InterLockedDecrement (var Target: longint) : longint; assembler; nostackframe;
asm
{$warning FIXME: This implementation of InterLockedDecrement in not yet ThreadSafe }
// must return value after decrement
lw $v0,($a0)
addi $v1,$v0,-1
sw $v1,($a0)
addi $v0,$v0,-1
sw $v0,($a0)
end;
function InterLockedIncrement (var Target: longint) : longint; assembler; nostackframe;
asm
{$warning FIXME: This implementation of InterLockedIncrement in not yet ThreadSafe }
// must return value after increment
lw $v0,($a0)
addi $v1,$v0,1
sw $v1,($a0)
addi $v0,$v0,1
sw $v0,($a0)
end;