* part of r15171 (merged r13813)

git-svn-id: branches/fixes_2_4@15172 -

.gitattributes

@@ -7720,6 +7720,7 @@ tests/tbs/tb0560.pp svneol=native#text/plain
 tests/tbs/tb0561a.pp svneol=native#text/plain
 tests/tbs/tb0561b.pp svneol=native#text/plain
 tests/tbs/tb0564.pp svneol=native#text/plain
+tests/tbs/tb0565.pp svneol=native#text/plain
 tests/tbs/tb205.pp svneol=native#text/plain
 tests/tbs/ub0060.pp svneol=native#text/plain
 tests/tbs/ub0069.pp svneol=native#text/plain

tests/tbs/tb0565.pp

@@ -0,0 +1,48 @@
+{ %opt=-g }
+{ %interactive }
+
+{ test to see whether parameters are properly visible in debugger }
+
+PROGRAM Test;
+
+
+{ when this routine is entered, the debugger should show:
+"WRITELN2 (STR='Hello, World!', A=5, B=10) at tb0565.pp:17"
+}
+ PROCEDURE WriteLn2(str: STRING; a: longint; var b: longint);
+
+ VAR   ptr: ^INTEGER;
+
+ BEGIN
+   WriteLn(str);
+   ptr:= NIL;
+//   IF ptr^ = 0 THEN
+//     HALT;
+   WriteLn(str)
+ END;
+
+{ when this routine is entered, the debugger should show:
+"WRITELN3 (STR='Hello, World 3') at tb0565.pp:32"
+}
+ PROCEDURE WriteLn3(var str: STRING);
+
+ VAR   ptr: ^INTEGER;
+
+ BEGIN
+   WriteLn(str);
+   ptr:= NIL;
+//   IF ptr^ = 0 THEN
+//     HALT;
+   WriteLn(str)
+ END;
+
+var
+  s: string;
+  b: longint;
+BEGIN
+ b:=10;
+ WriteLn2('Hello, World!',5,b);
+ s:='Hello, World 3';
+ Writeln3(s);
+END.
+