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

* fix by Michael Vadymovitch Denisenko for r13712

Browse Source 
git-svn-id: trunk@13718 -
This commit is contained in:
florian 2009-09-15 21:06:29 +00:00
parent be6322be9e
commit daa5984212
1 changed files with 6 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
compiler/ncon.pas
View File

@ -244,7 +244,6 @@ implementation
pWideStringVal: pcompilerwidestring;
ordValRecord: TConstExprInt;
begin
get_string_value := '';
if is_conststring_or_constcharnode(p) then
begin
if is_constcharnode(p) or is_constwidecharnode(p) then
@ -303,7 +302,7 @@ implementation
else
begin
getmem(pCharVal, tstringconstnode(p).len + 1);
strcopy(pCharVal, tstringconstnode(p).value_str);
move(pCharVal^, tstringconstnode(p).value_str^, tstringconstnode(p).len);
pCharVal[tstringconstnode(p).len] := #0;
get_string_value := pCharVal;
end;
@ -311,7 +310,11 @@ implementation
end;
end
else
Message(type_e_string_expr_expected);
begin
Message(type_e_string_expr_expected);
getmem(get_string_value, 1);
get_string_value[0] := #0;
end;
end;
function is_constresourcestringnode(p : tnode) : boolean;