* turn openstring value parameters into regular shortstring parameters

    (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: http://svn.freepascal.org/svn/fpc/trunk@14602 3ad0048d-3df7-0310-abae-a5850022a9f2

1 files changed, 17 insertions, 0 deletions

diff --git a/tests/tbf/tb0217.pp b/tests/tbf/tb0217.pp
new file mode 100644
index 0000000000..7f4a578e94
--- /dev/null
+++ b/tests/tbf/tb0217.pp
@@ -0,0 +1,17 @@
+{ %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.