blob: 47c6e38d3e2952e1bf40b6e58fc4597aa2315f2c (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
|
{ Source provided for Free Pascal Bug Report 1996 }
{ Submitted by "Louis Jean-Richard" on 2002-06-03 }
{ e-mail: Ljean_richard@compuserve.com }
PROGRAM RangeDefinition;
TYPE
codeIndex = 5 .. 287;
CONST
noCodeIndex = HIGH(codeIndex) + 1;
valuereal = 14.5 + 13.4;
CONST
noCodeIndexBis = SUCC(HIGH(codeIndex));
TYPE
codePointer = 0 + LOW(codeIndex) .. noCodeIndex;
TYPE
codePointerBis = LOW(codeIndex) .. noCodeIndex;
var
Code : CodeIndex;
BEGIN
code := 1 + LOW(codeIndex);
END
.
|
