diff options
| author | svenbarth <svenbarth@3ad0048d-3df7-0310-abae-a5850022a9f2> | 2013-01-17 21:19:27 +0000 |
|---|---|---|
| committer | svenbarth <svenbarth@3ad0048d-3df7-0310-abae-a5850022a9f2> | 2013-01-17 21:19:27 +0000 |
| commit | 52749d10724ba3b25a977f6a0a8a021ea940f63f (patch) | |
| tree | 6ded74282bb0641204cfac849675c21d60dab52a /rtl/m68k | |
| parent | c482574d1365fe20f4ce7c79a9183f37b2224198 (diff) | |
| download | fpc-52749d10724ba3b25a977f6a0a8a021ea940f63f.tar.gz | |
rtl/m68k/m68k.inc:
* InterlockedIncrement & InterlockedDecrement: return the modified value, not the original one
git-svn-id: http://svn.freepascal.org/svn/fpc/trunk@23432 3ad0048d-3df7-0310-abae-a5850022a9f2
Diffstat (limited to 'rtl/m68k')
| -rw-r--r-- | rtl/m68k/m68k.inc | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/rtl/m68k/m68k.inc b/rtl/m68k/m68k.inc index 87ef38c225..4e6052d997 100644 --- a/rtl/m68k/m68k.inc +++ b/rtl/m68k/m68k.inc @@ -354,16 +354,16 @@ function abs(l : longint) : longint; function InterLockedDecrement (var Target: longint) : longint; begin {$warning FIX ME} - Result := Target; Dec(Target); + Result := Target; end; function InterLockedIncrement (var Target: longint) : longint; begin {$warning FIX ME} - Result := Target; Inc(Target); + Result := Target; end; |