mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2026-01-20 14:08:12 +01:00
22aacd2a60
multi-platform version of patch in r12461, which caused the i386 version
of fpc_pchar_length to return 0 in all cases, which used tabs, and did
not include a test case)
git-svn-id: trunk@12464 -
13 lines
166 B
ObjectPascal
13 lines
166 B
ObjectPascal
procedure test(p: pchar; len: longint);
|
|
begin
|
|
if (length(p)<>len) then
|
|
halt(1);
|
|
end;
|
|
|
|
begin
|
|
test(nil,0);
|
|
test(#0,0);
|
|
test('a',1);
|
|
test('hello',5);
|
|
end.
|