Return to procvars.mod CVS log

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

Annotation of 43BSDReno/pgrm/dbx/tests/mod/procvars.mod, revision 1.1.1.1

1.1       root        1: (*
                      2:  * Test of procedure variables.
                      3:  *)
                      4: 
                      5: module main;
                      6: 
                      7: procedure p (var i : integer);
                      8: begin
                      9:     i := 3;
                     10: end p;
                     11: 
                     12: procedure q ;
                     13: var
                     14:     t : procedure(var integer);
                     15:     j : integer;
                     16: begin
                     17:     t := p;
                     18:     t(j);
                     19:     j := j + 1;
                     20: end q;
                     21: 
                     22: begin
                     23:     q;
                     24: end main.

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