paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-09 02:28:14 +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:03:06 +01:00
parent 7f4b2f63b3
commit 9d10123b0d
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/xtensa/xtensa.inc
View File

@ -128,8 +128,6 @@ Function Sptr : pointer;assembler;
function InterLockedDecrement (var Target: longint) : longint;
var
temp_sreg : byte;
begin
Result:=Target-1;
Target:=Result;
@ -137,8 +135,6 @@ function InterLockedDecrement (var Target: longint) : longint;
function InterLockedIncrement (var Target: longint) : longint;
var
temp_sreg : byte;
begin
Result:=Target+1;
Target:=Result;
@ -146,8 +142,6 @@ function InterLockedIncrement (var Target: longint) : longint;
function InterLockedExchange (var Target: longint;Source : longint) : longint;
var
temp_sreg : byte;
begin
Result:=Target;
Target:=Source;
@ -155,8 +149,6 @@ function InterLockedExchange (var Target: longint;Source : longint) : longint;
function InterlockedCompareExchange(var Target: longint; NewValue: longint; Comperand: longint): longint;
var
temp_sreg : byte;
begin
Result:=Target;
if Result=Comperand then
@ -165,8 +157,6 @@ function InterlockedCompareExchange(var Target: longint; NewValue: longint; Comp
function InterLockedExchangeAdd (var Target: longint;Source : longint) : longint;
var
temp_sreg : byte;
begin
Result:=Target;
Target:=Result+Source;
@ -174,8 +164,6 @@ function InterLockedExchangeAdd (var Target: longint;Source : longint) : longint
function InterLockedDecrement (var Target: smallint) : smallint;
var
temp_sreg : byte;
begin
Result:=Target-1;
Target:=Result;
@ -183,8 +171,6 @@ function InterLockedDecrement (var Target: smallint) : smallint;
function InterLockedIncrement (var Target: smallint) : smallint;
var
temp_sreg : byte;
begin
Result:=Target+1;
Target:=Result;
@ -192,8 +178,6 @@ function InterLockedIncrement (var Target: smallint) : smallint;
function InterLockedExchange (var Target: smallint;Source : smallint) : smallint;
var
temp_sreg : byte;
begin
Result:=Target;
Target:=Source;
@ -201,8 +185,6 @@ function InterLockedExchange (var Target: smallint;Source : smallint) : smallint
function InterlockedCompareExchange(var Target: smallint; NewValue: smallint; Comperand: smallint): smallint;
var
temp_sreg : byte;
begin
Result:=Target;
if Result=Comperand then
@ -211,8 +193,6 @@ function InterlockedCompareExchange(var Target: smallint; NewValue: smallint; Co
function InterLockedExchangeAdd (var Target: smallint;Source : smallint) : smallint;
var
temp_sreg : byte;
begin
Result:=Target;
Target:=Result+Source;