mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-04-06 21:07:58 +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 -
25 lines
392 B
ObjectPascal
25 lines
392 B
ObjectPascal
program StringTest5;
|
|
{$ifdef fpc}
|
|
{$mode delphi}
|
|
{$endif}
|
|
{$V+}
|
|
var
|
|
s :String;
|
|
|
|
procedure P( s: OpenString);
|
|
begin
|
|
writeln(s);
|
|
if (high(s)<>255) or
|
|
(s<>'12345') then
|
|
halt(1);
|
|
end;
|
|
|
|
begin
|
|
P('12345');
|
|
s:='12345';
|
|
p(s);
|
|
{Won't compile.
|
|
FPC or Turbo Pascal mode: Internal error 200405241
|
|
Delphi mode: Signal 291. Save files and restart IDE. (Can't save.)}
|
|
end.
|