mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-11-02 06:49:34 +01:00
50d2fa7134
depend on the modeswitch that was just changed (so that e.g. changing
the nested procvars setting has no effect on the state of $h+/$h-)
(mantis #21951)
git-svn-id: trunk@21247 -
12 lines
140 B
ObjectPascal
12 lines
140 B
ObjectPascal
{ %opt=-Mobjfpc -Sh }
|
|
|
|
{$modeswitch exceptions}
|
|
|
|
var
|
|
S: string;
|
|
begin
|
|
SetLength(S, 1000);
|
|
if (length(s)<>1000) then
|
|
halt(1);
|
|
end.
|