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

* fixed used resulttype of char-to-shortstring typeconversion in case the

Browse Source 
shortstring type is smaler than 255 chars

git-svn-id: trunk@40628 -
This commit is contained in:
Jonas Maebe 2018-12-24 22:09:45 +00:00
parent 765fdb7641
commit b1b559f283
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
compiler/ncgcnv.pas
View File

@ -423,10 +423,10 @@ interface
case tstringdef(resultdef).stringtype of case tstringdef(resultdef).stringtype of
st_shortstring : st_shortstring :
begin begin
tg.gethltemp(current_asmdata.CurrAsmList,cshortstringtype,256,tt_normal,location.reference); tg.gethltemp(current_asmdata.CurrAsmList,resultdef,resultdef.size,tt_normal,location.reference);
tmpref:=location.reference; tmpref:=location.reference;
hlcg.g_ptrtypecast_ref(current_asmdata.CurrAsmList, hlcg.g_ptrtypecast_ref(current_asmdata.CurrAsmList,
cpointerdef.getreusable(cshortstringtype), cpointerdef.getreusable(resultdef),
cpointerdef.getreusable(left.resultdef),tmpref); cpointerdef.getreusable(left.resultdef),tmpref);
hlcg.a_load_loc_ref(current_asmdata.CurrAsmList,left.resultdef,left.resultdef,left.location, hlcg.a_load_loc_ref(current_asmdata.CurrAsmList,left.resultdef,left.resultdef,left.location,
tmpref); tmpref);