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

Fix for Mantis #24903.

Browse Source 
ncon.pas, tstringconstnode:
  * buildderefimpl: don't build the deref if we don't need to
  * derefimpl: do not try to resolve the deref if it wasn't stored at all

git-svn-id: trunk@25329 -
This commit is contained in:
svenbarth 2013-08-22 20:18:14 +00:00
parent 528f5d1096
commit b57a587842
1 changed files with 4 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
compiler/ncon.pas
View File

@ -912,14 +912,16 @@ implementation
procedure tstringconstnode.buildderefimpl;
begin
inherited buildderefimpl;
astringdefderef.build(astringdef);
if cst_type=cst_ansistring then
astringdefderef.build(astringdef);
end;
procedure tstringconstnode.derefimpl;
begin
inherited derefimpl;
astringdef:=tdef(astringdefderef.resolve);
if cst_type=cst_ansistring then
astringdef:=tdef(astringdefderef.resolve);
end;