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

* search dynamic string data record in correct symtable in

Browse Source 
tllvmtai_typedconstbuilder.emit_string_offset
   o fixes LLVM internalerror 2014080406 for test/tcustomattr14

git-svn-id: trunk@42464 -
This commit is contained in:
Jonas Maebe 2019-07-20 12:08:59 +00:00
parent 12e63d8a2c
commit 145f4299b4
1 changed files with 4 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
compiler/llvm/nllvmtcon.pas
View File

@ -412,13 +412,12 @@ implementation
procedure tllvmtai_typedconstbuilder.emit_string_offset(const ll: tasmlabofs; const strlength: longint; const st: tstringtype; const winlikewidestring: boolean; const charptrdef: tdef); procedure tllvmtai_typedconstbuilder.emit_string_offset(const ll: tasmlabofs; const strlength: longint; const st: tstringtype; const winlikewidestring: boolean; const charptrdef: tdef);
var var
srsym : tsym;
srsymtable: tsymtable;
strrecdef : trecorddef; strrecdef : trecorddef;
strdef: tdef; strdef: tdef;
offset: pint; offset: pint;
field: tfieldvarsym; field: tfieldvarsym;
dataptrdef: tdef; dataptrdef: tdef;
typesym: ttypesym;
begin begin
{ nil pointer? } { nil pointer? }
if not assigned(ll.lab) then if not assigned(ll.lab) then
@ -434,9 +433,10 @@ implementation
if ll.ofs<>0 then if ll.ofs<>0 then
begin begin
{ get the recorddef for this string constant } { get the recorddef for this string constant }
if not searchsym_type(ctai_typedconstbuilder.get_dynstring_rec_name(st,winlikewidestring,strlength),srsym,srsymtable) then typesym:=try_search_current_module_type(ctai_typedconstbuilder.get_dynstring_rec_name(st,winlikewidestring,strlength));
if not assigned(typesym) then
internalerror(2014080406); internalerror(2014080406);
strrecdef:=trecorddef(ttypesym(srsym).typedef); strrecdef:=trecorddef(typesym.typedef);
{ offset in the record of the the string data } { offset in the record of the the string data }
offset:=ctai_typedconstbuilder.get_string_symofs(st,winlikewidestring); offset:=ctai_typedconstbuilder.get_string_symofs(st,winlikewidestring);
{ field corresponding to this offset } { field corresponding to this offset }