Return to call.p CVS log

Up to [CSRG BSD Unix] / 43BSD / ucb / dbx / tests / pc

Annotation of 43BSD/ucb/dbx/tests/pc/call.p, revision 1.1.1.1

1.1       root        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.

This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.