Return to bitfields.mod CVS log

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

Annotation of 43BSDTahoe/ucb/dbx/tests/mod/bitfields.mod, revision 1.1

1.1     ! root        1: module main;
        !             2: 
        !             3: import io;
        !             4: 
        !             5: type
        !             6:     uint = @align 1 cardinal;
        !             7:     dotrecord = record
        !             8:        cost : @size 24 uint;
        !             9:        dtype : @size 3 uint;
        !            10:        dirToCenter : @size 3 uint;
        !            11:        pad : @size 1 uint;
        !            12:        pin : @size 1 uint;
        !            13:        traceback : @size 3 uint;
        !            14:        traceforward : @size 3 uint;
        !            15:        expanded : @size 1 uint;
        !            16:        underDir : @size 3 uint;
        !            17:        underOffset : @size 4 uint;
        !            18:        start : @size 1 uint;
        !            19:        target : @size 1 uint;
        !            20:        owner : @size 6 uint;
        !            21:        segment : @size 7 uint;
        !            22:        intrinsicCost : @size 3 uint;
        !            23:     end;
        !            24: 
        !            25: procedure p1 ();
        !            26: var junk : dotrecord;
        !            27: begin
        !            28:     junk.owner := 63;
        !            29:     junk.segment := 1;
        !            30:     junk.intrinsicCost := 1;
        !            31:     io.Writef(io.output, "owner = %d, segment = %d, intrinsicCost = %d\n",
        !            32:        junk.owner, junk.segment, junk.intrinsicCost);
        !            33:     p2();
        !            34: end p1;
        !            35: 
        !            36: procedure p2 ();
        !            37: var x : record
        !            38:        first : integer;
        !            39:        second : integer;
        !            40:        a : @size 8 @align 1 integer;
        !            41:        b : @size 8 @align 1 integer;
        !            42:        c : integer;
        !            43:     end;
        !            44: begin
        !            45:     x.first := 0;
        !            46:     x.second := 0;
        !            47:     x.a := 2;
        !            48:     x.b := 10;
        !            49:     x.c := 1;
        !            50:     io.Writef(io.output, "done\n");
        !            51: end p2;
        !            52: 
        !            53: begin
        !            54:     p1();
        !            55: end main.

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