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

__fpc_valgrind symbol: use correct size when inserting definition

Browse Source
This commit is contained in:
Jonas Maebe 2022-07-02 14:46:14 +02:00
parent 27a1acdc7d
commit 6a485065ba
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
compiler/ngenutil.pas
View File

@ -1611,7 +1611,7 @@ implementation
tcb.emit_ord_const(byte(cs_gdb_valgrind in current_settings.globalswitches),u8inttype); tcb.emit_ord_const(byte(cs_gdb_valgrind in current_settings.globalswitches),u8inttype);
sym:=current_asmdata.DefineAsmSymbol('__fpc_valgrind',AB_GLOBAL,AT_DATA,u8inttype); sym:=current_asmdata.DefineAsmSymbol('__fpc_valgrind',AB_GLOBAL,AT_DATA,u8inttype);
current_asmdata.asmlists[al_globals].concatlist( current_asmdata.asmlists[al_globals].concatlist(
tcb.get_final_asmlist(sym,ptruinttype,sec_data,'__fpc_valgrind',const_align(sizeof(pint))) tcb.get_final_asmlist(sym,u8inttype,sec_data,'__fpc_valgrind',const_align(sizeof(pint)))
); );
tcb.free; tcb.free;
end; end;