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

* fixed incompatibility between -gt and openstring (and faked open strings

Browse Source 
like the result of fpc_ansistr_to_shortstr)

git-svn-id: trunk@5140 -
This commit is contained in:
Jonas Maebe 2006-11-01 01:03:10 +00:00
parent 05183ac829
commit aa65525fff
1 changed files with 18 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

21
compiler/ncgutil.pas
View File

@ -987,8 +987,17 @@ implementation
{$endif} {$endif}
LOC_REFERENCE : LOC_REFERENCE :
begin begin
trash_reference(list,tabstractnormalvarsym(p).initialloc.reference, if ((tsym(p).typ=localvarsym) and
tlocalvarsym(p).getsize); not(vo_is_funcret in tabstractvarsym(p).varoptions)) or
not is_shortstring(tabstractnormalvarsym(p).vardef) then
trash_reference(list,tabstractnormalvarsym(p).initialloc.reference,
tlocalvarsym(p).getsize)
else
{ may be an open string, even if is_open_string() returns }
{ false for some helpers in the system unit }
{ an open string has at least size 2 }
trash_reference(list,tabstractnormalvarsym(p).initialloc.reference,
2);
end; end;
LOC_CMMREGISTER : LOC_CMMREGISTER :
; ;
@ -1196,7 +1205,13 @@ implementation
tmpreg:=cg.getaddressregister(list); tmpreg:=cg.getaddressregister(list);
cg.a_load_loc_reg(list,OS_ADDR,tparavarsym(p).initialloc,tmpreg); cg.a_load_loc_reg(list,OS_ADDR,tparavarsym(p).initialloc,tmpreg);
reference_reset_base(href,tmpreg,0); reference_reset_base(href,tmpreg,0);
trash_reference(list,href,tparavarsym(p).vardef.size); { may be an open string, even if is_open_string() returns }
{ false for some helpers in the system unit }
if not is_shortstring(tparavarsym(p).vardef) then
trash_reference(list,href,tparavarsym(p).vardef.size)
else
{ an open string has at least size 2 }
trash_reference(list,href,2);
end end
end; end;
end; end;