|
|
@@ -69,7 +69,7 @@ implementation
|
|
|
constants (-> excludes terminating #0) and pchars (-> includes
|
|
|
terminating #0). The resultdef excludes the #0 while the data
|
|
|
includes it -> insert typecast from datadef to resultdef }
|
|
|
- datadef:=getarraydef(cansichartype,len+2);
|
|
|
+ datadef:=getarraydef(cansichartype,len+1);
|
|
|
cst_shortstring:
|
|
|
{ the resultdef of the string constant is the type of the
|
|
|
string to which it is assigned, which can be longer or shorter
|
Jonas Maebe