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

+ disable interrupts as a form of 'locking' in InterLockedDecrement and

Browse Source 
InterLockedIncrement

git-svn-id: trunk@27401 -
This commit is contained in:
nickysn 2014-03-30 22:41:48 +00:00
parent 2dd9a36bdc
commit 14ecc118ec
1 changed files with 6 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
rtl/i8086/i8086.inc
View File

@ -213,10 +213,13 @@ function InterLockedDecrement (var Target: longint) : longint;nostackframe;assem
asm asm
mov si, sp mov si, sp
mov bx, ss:[si + 2 + extra_param_offset] // Target mov bx, ss:[si + 2 + extra_param_offset] // Target
pushf
cli
sub word [bx], 1 sub word [bx], 1
sbb word [bx+2], 0 sbb word [bx+2], 0
mov ax, [bx] mov ax, [bx]
mov dx, [bx+2] mov dx, [bx+2]
popf
end; end;
{TODO: fix, use smallint?} {TODO: fix, use smallint?}
@ -224,10 +227,13 @@ function InterLockedIncrement (var Target: longint) : longint;nostackframe;assem
asm asm
mov si, sp mov si, sp
mov bx, ss:[si + 2 + extra_param_offset] // Target mov bx, ss:[si + 2 + extra_param_offset] // Target
pushf
cli
add word [bx], 1 add word [bx], 1
adc word [bx+2], 0 adc word [bx+2], 0
mov ax, [bx] mov ax, [bx]
mov dx, [bx+2] mov dx, [bx+2]
popf
end; end;
{TODO: fix, use smallint?} {TODO: fix, use smallint?}