blob: 5f0f61312ba4d704915875110190678470e1a7e5 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
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.
|
