mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-04-09 07:08:29 +02:00
a1bcc1c8d2
(mantis #14940 and #14941) * only turn var/our shortstring parameters with a length of 255 into openstring parameters with {$p+} (new tbf/tb0217.pp) git-svn-id: trunk@14602 -
18 lines
202 B
ObjectPascal
18 lines
202 B
ObjectPascal
{ %fail }
|
|
|
|
{$p+}
|
|
{$v+}
|
|
type
|
|
tstr = string[8];
|
|
|
|
{ FPC used to convert the following parameter into an openstring }
|
|
procedure test(var str: tstr);
|
|
begin
|
|
end;
|
|
|
|
var
|
|
s: string[20];
|
|
begin
|
|
test(s);
|
|
end.
|