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

- remove unused variables

Browse Source
This commit is contained in:
Sven/Sarah Barth 2024-12-07 22:07:43 +01:00
parent 9d10123b0d
commit b9a198b1a8
1 changed files with 0 additions and 20 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

20
rtl/z80/z80.inc
View File

@ -159,8 +159,6 @@ Function Sptr : pointer;assembler;nostackframe;
function InterLockedDecrement (var Target: longint) : longint;
var
temp_sreg : byte;
begin
{ block interrupts }
asm
@ -178,8 +176,6 @@ function InterLockedDecrement (var Target: longint) : longint;
function InterLockedIncrement (var Target: longint) : longint;
var
temp_sreg : byte;
begin
{ block interrupts }
asm
@ -197,8 +193,6 @@ function InterLockedIncrement (var Target: longint) : longint;
function InterLockedExchange (var Target: longint;Source : longint) : longint;
var
temp_sreg : byte;
begin
{ block interrupts }
asm
@ -216,8 +210,6 @@ function InterLockedExchange (var Target: longint;Source : longint) : longint;
function InterlockedCompareExchange(var Target: longint; NewValue: longint; Comperand: longint): longint;
var
temp_sreg : byte;
begin
{ block interrupts }
asm
@ -236,8 +228,6 @@ function InterlockedCompareExchange(var Target: longint; NewValue: longint; Comp
function InterLockedExchangeAdd (var Target: longint;Source : longint) : longint;
var
temp_sreg : byte;
begin
{ block interrupts }
asm
@ -255,8 +245,6 @@ function InterLockedExchangeAdd (var Target: longint;Source : longint) : longint
function InterLockedDecrement (var Target: smallint) : smallint;
var
temp_sreg : byte;
begin
{ block interrupts }
asm
@ -274,8 +262,6 @@ function InterLockedDecrement (var Target: smallint) : smallint;
function InterLockedIncrement (var Target: smallint) : smallint;
var
temp_sreg : byte;
begin
{ block interrupts }
asm
@ -293,8 +279,6 @@ function InterLockedIncrement (var Target: smallint) : smallint;
function InterLockedExchange (var Target: smallint;Source : smallint) : smallint;
var
temp_sreg : byte;
begin
{ block interrupts }
asm
@ -312,8 +296,6 @@ function InterLockedExchange (var Target: smallint;Source : smallint) : smallint
function InterlockedCompareExchange(var Target: smallint; NewValue: smallint; Comperand: smallint): smallint;
var
temp_sreg : byte;
begin
{ block interrupts }
asm
@ -332,8 +314,6 @@ function InterlockedCompareExchange(var Target: smallint; NewValue: smallint; Co
function InterLockedExchangeAdd (var Target: smallint;Source : smallint) : smallint;
var
temp_sreg : byte;
begin
{ block interrupts }
asm