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

cresstr: fix length specified for resource strings to typed const builder

Browse Source 
Copy/paste error
This commit is contained in:
Jonas Maebe 2022-06-27 21:02:26 +02:00
parent 1f328cf362
commit 27a1acdc7d
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/cresstr.pas
View File

@ -176,7 +176,7 @@ uses
end;
}
tcb.maybe_begin_aggregate(resstrdef);
tcb.emit_string_offset(namelab,length(current_module.localsymtable.name^),st_ansistring,false,charpointertype);
tcb.emit_string_offset(namelab,length(R.name),st_ansistring,false,charpointertype);
tcb.emit_string_offset(valuelab,R.Len,st_ansistring,false,charpointertype);
tcb.emit_string_offset(valuelab,R.Len,st_ansistring,false,charpointertype);
tcb.emit_ord_const(R.hash,u32inttype);