mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-04-07 00:28:23 +02:00
102 lines
2.3 KiB
PHP
102 lines
2.3 KiB
PHP
{
|
|
|
|
This file is part of the Free Pascal run time library.
|
|
Copyright (c) 2008 by the Free Pascal development team.
|
|
|
|
Processor dependent implementation for the system unit for
|
|
RiscV32
|
|
|
|
See the file COPYING.FPC, included in this distribution,
|
|
for details about the copyright.
|
|
|
|
This program is distributed in the hope that it will be useful,
|
|
but WITHOUT ANY WARRANTY; without even the implied warranty of
|
|
MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.
|
|
|
|
**********************************************************************}
|
|
|
|
{ Common RiscV stuff }
|
|
{$I ../riscv/riscv.inc}
|
|
|
|
{$IFNDEF INTERNAL_BACKTRACE}
|
|
{$define FPC_SYSTEM_HAS_GET_FRAME}
|
|
function get_frame:pointer;assembler;nostackframe;
|
|
asm
|
|
end;
|
|
{$ENDIF not INTERNAL_BACKTRACE}
|
|
|
|
|
|
{$define FPC_SYSTEM_HAS_GET_CALLER_ADDR}
|
|
function get_caller_addr(framebp:pointer;addr:pointer=nil):pointer;assembler;
|
|
asm
|
|
end;
|
|
|
|
|
|
{$define FPC_SYSTEM_HAS_GET_CALLER_FRAME}
|
|
function get_caller_frame(framebp:pointer;addr:pointer=nil):pointer;assembler;
|
|
asm
|
|
end;
|
|
|
|
|
|
{$define FPC_SYSTEM_HAS_SPTR}
|
|
Function Sptr : pointer;assembler;
|
|
asm
|
|
end;
|
|
|
|
|
|
function InterLockedDecrement (var Target: longint) : longint;
|
|
begin
|
|
dec(Target);
|
|
Result:=Target;
|
|
end;
|
|
|
|
|
|
function InterLockedIncrement (var Target: longint) : longint;
|
|
begin
|
|
inc(Target);
|
|
Result:=Target;
|
|
end;
|
|
|
|
|
|
function InterLockedExchange (var Target: longint;Source : longint) : longint;
|
|
begin
|
|
Result:=Target;
|
|
Target:=Source;
|
|
end;
|
|
|
|
|
|
function InterlockedCompareExchange(var Target: longint; NewValue: longint; Comperand: longint): longint;
|
|
begin
|
|
Result:=Target;
|
|
if Target=Comperand then
|
|
Target:=NewValue;
|
|
end;
|
|
|
|
|
|
function InterLockedExchangeAdd (var Target: longint;Source : longint) : longint;
|
|
begin
|
|
Result:=Target;
|
|
inc(Target,Source);
|
|
end;
|
|
|
|
{$define FPC_SYSTEM_HAS_SYSRESETFPU}
|
|
procedure SysResetFPU;{$ifdef SYSTEMINLINE}inline;{$endif}
|
|
{$ifdef FPUFD}
|
|
var
|
|
cw: TNativeFPUControlWord;
|
|
{$endif}
|
|
begin
|
|
softfloat_exception_flags:=[];
|
|
softfloat_exception_mask:=[exPrecision,exUnderflow];
|
|
{$ifdef FPUFD}
|
|
cw:=GetNativeFPUControlWord;
|
|
{ riscv does not support triggering exceptoins when FPU exceptions happen;
|
|
it merely records which exceptions have happened until now -> clear }
|
|
cw.cw:=0;
|
|
{ round to nearest }
|
|
cw.rndmode:=0;
|
|
SetNativeFPUControlWord(cw);
|
|
{$endif}
|
|
end;
|
|
|