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

- removed redundant if

Browse Source
This commit is contained in:
Nikolay Nikolov 2024-09-11 00:46:58 +03:00
parent b7742def46
commit 06917784d0
1 changed files with 7 additions and 10 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

17
compiler/dbgdwarf.pas
View File

@ -2385,16 +2385,13 @@ implementation
(ts_wasm_threads in current_settings.targetswitches)) then
begin
{$ifdef wasm}
if target_info.system in systems_wasm then
begin
templist.concat(tai_const.create_8bit(ord(DW_OP_WASM_location)));
templist.concat(tai_const.create_8bit(3)); { wasm global }
templist.concat(tai_const.Create_type_name(aitconst_ptr_unaligned,TLS_BASE_SYM,AT_WASM_GLOBAL,0));
templist.concat(tai_const.create_8bit(ord(DW_OP_addr)));
templist.concat(tai_const.Create_type_name(aitconst_ptr_unaligned,sym.mangledname,0));
templist.concat(tai_const.create_8bit(ord(DW_OP_plus)));
blocksize:=3+2*sizeof(puint);
end;
templist.concat(tai_const.create_8bit(ord(DW_OP_WASM_location)));
templist.concat(tai_const.create_8bit(3)); { wasm global }
templist.concat(tai_const.Create_type_name(aitconst_ptr_unaligned,TLS_BASE_SYM,AT_WASM_GLOBAL,0));
templist.concat(tai_const.create_8bit(ord(DW_OP_addr)));
templist.concat(tai_const.Create_type_name(aitconst_ptr_unaligned,sym.mangledname,0));
templist.concat(tai_const.create_8bit(ord(DW_OP_plus)));
blocksize:=3+2*sizeof(puint);
{$else wasm}
if tf_section_threadvars in target_info.flags then
begin