DEADSOFTWARE
GIT
/
REPO
/
FRED-BOY
Projects
/
dsw-obn.git
/ blob
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
history
|
raw
|
HEAD
Исправлено обращение к полям при использовании каста. Процедуры INC/DEC больше не...
[dsw-obn.git]
/
tests
/
Test25.obn
1
MODULE
Test25
;
2
3
TYPE
4
X
=
POINTER
TO
XDesc
;
5
XDesc
=
RECORD END
;
6
7
Y
=
POINTER
TO RECORD
(
XDesc
)
x
:
INTEGER
END
;
8
9
VAR
10
x
:
X
;
11
y
:
Y
;
12
i
:
INTEGER
;
13
14
BEGIN
15
NEW
(
y
);
16
x
:=
y
;
17
i
:=
y
.
x
;
18
i
:=
x
(
Y
).
x
;
19
END
Test25
.
20
21
Тест приведения типа с обращением к полю
.