|
|
@@ -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
|
peter