4.3BSD - /usr/src/ucb/dbx/tests/pc/call.p

   1: (*
   2:  * Test program for dbx call command.
   3:  *)
   4: 
   5: program calltest (input, output);
   6: 
   7: type String = array [1..4] of char;
   8: var global : integer;
   9: 
  10: procedure p1 ;
  11: begin
  12:     writeln(output, 'in p1');
  13:     global := 4;
  14: end;
  15: 
  16: procedure p2 (frommain : integer);
  17: begin
  18:     writeln(output, 'in p2(', frommain:1, ')');
  19:     global := 9;
  20: end;
  21: 
  22: procedure p3 (s : String; i : integer);
  23: begin
  24:     writeln(output, 'in p3(', s, ', ', i:1, ')');
  25:     global := 10;
  26: end;
  27: 
  28: procedure startup ;
  29: var
  30:     mainlocal : integer;
  31: begin
  32:     global := 2;
  33:     mainlocal := 19;
  34:     p1;
  35:     p2(mainlocal);
  36:     p3('test', 3);
  37: end;
  38: 
  39: begin
  40:     startup;
  41: end.