mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-04-05 12:18:30 +02:00
58381ff7b6
and 4080. The compatibility differences are:
a) writing a chararray which is zero-based but not zero-
terminated does not cause a buffer overflow
b) non-zero-based chararrays can also be read
The difference was that previously, all chararrays were treated
as pchars. In TP/Delphi (and now also in FPC), this is only done
for zero-based chararrays. For non-zero-based ones, the entire
contents of the array should always be used (including #0's).
The default parameters in the system unit for the chararray
helpers are to avoid having to use a define for bootstrapping.
git-svn-id: trunk@2152 -
23 lines
429 B
ObjectPascal
23 lines
429 B
ObjectPascal
Type Char2=Array[1..2] of char;
|
|
|
|
var C1,C2:Char2;
|
|
st:string;
|
|
|
|
Procedure WriteLength(s:string; shouldbe: longint);
|
|
begin
|
|
WriteLn(s+' ',Length(s));
|
|
if length(s) <> shouldbe then
|
|
halt(1);
|
|
end;
|
|
|
|
begin
|
|
C1:=#0#65;
|
|
C2:=#66#0;
|
|
st:=C1+C2;
|
|
WriteLength(st,4); {BP:4; FP:1}
|
|
WriteLength(C1,2); {BP:2; FP:0}
|
|
WriteLength(C2,2); {BP:2; FP:1}
|
|
WriteLength(C1+C2,4); {BP:4; FP:1}
|
|
WriteLength(C2+C1,4); {BP:4; FP:1}
|
|
end.
|