DEADSOFTWARE
GIT
/
REPO
/
FRED-BOY
Projects
/
dsw-obn.git
/ blob
a704f0db4d56d3206461fc18065a9afa32220c0e
[dsw-obn.git]
/
Test.obn
1
MODULE
Test
;
2
3
TYPE
4
CPinfo
=
RECORD
5
tag
:
INTEGER
;
6
index
:
ARRAY
2
OF
LONGINT
;
7
int
:
LONGINT
;
8
float
:
REAL
;
9
long
:
HUGEINT
;
10
double
:
LONGREAL
;
11
utf8
:
POINTER
TO ARRAY OF
CHAR
;
12
END
;
13
14
CPool
=
POINTER
TO ARRAY OF
CPinfo
;
15
16
VAR
17
i
:
HUGEINT
;
18
cpool
:
CPool
;
19
20
BEGIN
21
i
:=
16
;
22
NEW
(
cpool
,
i
);
23
END
Test
.