Return to call.mod CVS log

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

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

1.1       root        1: (*
                      2:  * Test program for dbx call command.
                      3:  *)
                      4: 
                      5: module main;
                      6: from io import writef, output;
                      7: 
                      8: var global : integer;
                      9: 
                     10: procedure startup ;
                     11: var
                     12:     mainlocal : integer;
                     13: begin
                     14:     global := 2;
                     15:     mainlocal := 19;
                     16:     p1();
                     17:     p2(mainlocal);
                     18:     p3("test", 3);
                     19: end startup;
                     20: 
                     21: procedure p1 ();
                     22: begin
                     23:     writef(output, "in p1\n");
                     24:     global := 4;
                     25: end p1;
                     26: 
                     27: procedure p2 (frommain : integer);
                     28: begin
                     29:     writef(output, "in p2(%d)\n", frommain);
                     30:     global := 9;
                     31: end p2;
                     32: 
                     33: procedure p3 (s : array of char; i : integer);
                     34: begin
                     35:     writef(output, "in p3(%s, %d)\n", s, i);
                     36:     global := 10;
                     37: end p3;
                     38: 
                     39: begin
                     40:     startup;
                     41: end main.

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