X-Git-Url: https://deadsoftware.ru/gitweb?a=blobdiff_plain;f=Test.obn;h=6fae5299c4ceb508ddf3708622d39e419e562a12;hb=0a98f4783fa8f0a7c1aaaf3dbeaf0aec8f4652b9;hp=b80d7a15c3a490308c7b343ab2843e710f22efde;hpb=49ad3c76fc9656759aab23d9034ebc33f8d8bd9d;p=dsw-obn.git 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.