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

* FPC_VERSION => FPC_FULLVERSION

Browse Source 
git-svn-id: trunk@48547 -
This commit is contained in:
florian 2021-02-08 21:41:04 +00:00
parent 59a16914f3
commit 3a0eb110ec
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
rtl/linux/arm/sighnd.inc
View File

@ -40,7 +40,7 @@ asm
end; end;
{$endif not CPUTHUMB} {$endif not CPUTHUMB}
{$if FPC_VERSION >= 30200} {$if FPC_FULLVERSION >= 30200}
Procedure SignalToHandleErrorAddrFrame_Thumb(Errno : longint;addr : CodePointer; frame : Pointer); nostackframe; assembler; Procedure SignalToHandleErrorAddrFrame_Thumb(Errno : longint;addr : CodePointer; frame : Pointer); nostackframe; assembler;
asm asm
.thumb_func .thumb_func
@ -98,7 +98,7 @@ begin
ucontext^.uc_mcontext.arm_r0:=res; ucontext^.uc_mcontext.arm_r0:=res;
ucontext^.uc_mcontext.arm_r1:=uContext^.uc_mcontext.arm_pc; ucontext^.uc_mcontext.arm_r1:=uContext^.uc_mcontext.arm_pc;
ucontext^.uc_mcontext.arm_r2:=uContext^.uc_mcontext.arm_fp; ucontext^.uc_mcontext.arm_r2:=uContext^.uc_mcontext.arm_fp;
{$if FPC_VERSION >= 30200} {$if FPC_FULLVERSION >= 30200}
{$ifndef CPUTHUMB} {$ifndef CPUTHUMB}
if (ucontext^.uc_mcontext.arm_cpsr and (1 shl 5))=0 then if (ucontext^.uc_mcontext.arm_cpsr and (1 shl 5))=0 then
begin begin