X-Git-Url: http://deadsoftware.ru/gitweb?p=dsw-obn.git;a=blobdiff_plain;f=Test.obn;h=6fae5299c4ceb508ddf3708622d39e419e562a12;hp=b80d7a15c3a490308c7b343ab2843e710f22efde;hb=8212ec191c6700e5f0ceb7600b6d30441ca2bc88;hpb=49ad3c76fc9656759aab23d9034ebc33f8d8bd9d diff --git a/Test.obn b/Test.obn index b80d7a1..6fae529 100644 --- a/Test.obn +++ b/Test.obn @@ -1,22 +1,3 @@ MODULE Test; -TYPE - R1 = RECORD END; - R2 = RECORD (R1) END; - R3 = RECORD END; - - P1 = POINTER TO R1; - P2 = POINTER TO R2; - -VAR - a : R1; - b : R2; - c : R3; - p1 : P1; - p2 : P2; - -BEGIN - a := b; - p2 := p1(P2); - p1 := p2(P2); END Test.