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

* fixed compile

Browse Source 
git-svn-id: branches/fixes_2_0@1525 -
This commit is contained in:
peter 2005-10-19 08:55:34 +00:00
parent d269ccd524
commit 8ba6c255b9
1 changed files with 0 additions and 11 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
compiler/nmem.pas
View File

@ -641,17 +641,6 @@ implementation
resulttypepass(left);
resulttypepass(right);
{ implicitly convert stringconstant to stringdef,
see tbs/tb0476.pp for a test }
if (left.nodetype=stringconstn) and
(tstringconstnode(left).st_type=st_conststring) then
begin
if tstringconstnode(left).len>255 then
inserttypeconv(left,cansistringtype)
else
inserttypeconv(left,cshortstringtype);
end;
{ In p[1] p is always valid, it is not possible to
declared a shortstring or normal array that has
undefined number of elements. Dynamic array and