Return to call.p CVS log

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

Annotation of 43BSDTahoe/ucb/dbx/tests/pc/call.p, revision 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.