paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-16 01:39:27 +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
st_shortstring :
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;
hlcg.g_ptrtypecast_ref(current_asmdata.CurrAsmList,
cpointerdef.getreusable(cshortstringtype),
cpointerdef.getreusable(resultdef),
cpointerdef.getreusable(left.resultdef),tmpref);
hlcg.a_load_loc_ref(current_asmdata.CurrAsmList,left.resultdef,left.resultdef,left.location,
tmpref);