paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-14 17:21:20 +02:00
Code Issues Packages Projects Releases Wiki Activity

* refactored thlcgwasm.a_jmp_always. No functional changes.

Browse Source
This commit is contained in:
Nikolay Nikolov 2023-10-22 04:03:04 +03:00
parent cf21365a21
commit 064172d65a
1 changed files with 4 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
compiler/wasm32/hlcgcpu.pas
View File

@ -1919,13 +1919,10 @@ implementation
procedure thlcgwasm.a_jmp_always(list: TAsmList; l: tasmlabel);
begin
if l=current_procinfo.CurrBreakLabel then
list.concat(taicpu.op_sym(a_br,l))
else if l=current_procinfo.CurrContinueLabel then
list.concat(taicpu.op_sym(a_br,l))
else if l=current_procinfo.CurrExitLabel then
list.concat(taicpu.op_sym(a_br,l))
else if tcpuprocinfo(current_procinfo).is_goto_target(l) then
if (l=current_procinfo.CurrBreakLabel) or
(l=current_procinfo.CurrContinueLabel) or
(l=current_procinfo.CurrExitLabel) or
tcpuprocinfo(current_procinfo).is_goto_target(l) then
list.concat(taicpu.op_sym(a_br,l))
else
begin