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

Move explicit typecast to after check to avoid RTE when compiled with -CR

Browse Source 
git-svn-id: trunk@47367 -
This commit is contained in:
pierre 2020-11-09 21:19:40 +00:00
parent 9dc92e1c36
commit 3d374727dd
2 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
compiler/aarch64/aoptcpu.pas
View File

@ -85,11 +85,11 @@ Implementation
var
p: taicpu;
begin
p := taicpu(hp);
Result := false;
if not ((assigned(hp)) and (hp.typ = ait_instruction)) then
exit;
p := taicpu(hp);
case p.opcode of
{ These operands do not write into a register at all }
A_CMP, A_CMN, A_TST, A_B, A_BL, A_MSR, A_FCMP:

2
compiler/arm/aoptcpu.pas
View File

@ -220,11 +220,11 @@ Implementation
var
p: taicpu;
begin
p := taicpu(hp);
Result := false;
if not ((assigned(hp)) and (hp.typ = ait_instruction)) then
exit;
p := taicpu(hp);
case p.opcode of
{ These operands do not write into a register at all }
A_CMP, A_CMN, A_TST, A_TEQ, A_B, A_BL, A_BX, A_BLX, A_SWI, A_MSR, A_PLD,