gcc/testsuite/gm2/base-lang/pass/opaquefield.mod


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19

IMPLEMENTATION MODULE opaquefield ;  (*!m2pim*)

FROM opaquestr IMPORT String, initString ;

TYPE
   Content = POINTER TO RECORD
                           next: String ;
                        END ;

PROCEDURE create () : Content ;
VAR
   c: Content ;
BEGIN
   c^.next := initString () ;
   RETURN c
END create ;


END opaquefield.