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

* Xtensa: fix crash in TCpuAsmOptimizer.RegLoadedWithNewValue

Browse Source 
git-svn-id: trunk@49132 -
This commit is contained in:
florian 2021-04-07 13:54:58 +00:00
parent 103599ede0
commit 9a39124118
1 changed files with 1 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
compiler/xtensa/aoptcpu.pas
View File

@ -145,10 +145,7 @@ Implementation
begin begin
p := taicpu(hp); p := taicpu(hp);
Result := false; Result := false;
if not ((assigned(hp)) and (hp.typ = ait_instruction)) then if not(assigned(hp) and (hp.typ = ait_instruction) and (p.ops > 0)) then
exit;
if Result then
exit; exit;
case p.opcode of case p.opcode of