← Back to branch summary

~ubuntu-branches/debian/lenny/fpc/lenny

« back to all changes in this revision

Viewing changes to fpcsrc/tests/test/tset5.pp

  • Committer: Bazaar Package Importer
  • Author(s): Mazen Neifer, Torsten Werner, Mazen Neifer
  • Date: 2008-05-17 17:12:11 UTC
  • mfrom: (3.1.9 intrepid)
  • Revision ID: james.westby@ubuntu.com-20080517171211-9qi33xhd9evfa0kg
Tags: 2.2.0-dfsg1-9
http://bugs.debian.org/477743
[ Torsten Werner ]
* Add Mazen Neifer to Uploaders field.

[ Mazen Neifer ]
* Moved FPC sources into a version dependent directory from /usr/share/fpcsrc
  to /usr/share/fpcsrc/${FPCVERSION}. This allow installing more than on FPC
  release.
* Fixed far call issue in compiler preventing building huge binearies.
  (closes: #477743)
* Updated building dependencies, recomennded and suggested packages.
* Moved fppkg to fp-utils as it is just a helper tool and is not required by
  compiler.

Show diffs side-by-side

added added

removed removed

Lines of Context:
fpcsrc/tests/test/tset5.pp
 
1
{ %opt=-Ooregvar }
 
2
 
 
3
{$ifdef fpc}
 
4
{$packset 1}
 
5
{$endif fpc}
 
6
{$z1}
 
7
 
 
8
type
 
9
  ta = set of 0..7;
 
10
  tb = set of 0..15;
 
11
  tc = set of 0..23;
 
12
  td = set of 0..31;
 
13
  te = set of 0..127;
 
14
 
 
15
var
 
16
  ve: te;
 
17
  vd: td;
 
18
  vc: tc;
 
19
  vb: tb;
 
20
  va: ta;
 
21
  b1,b2,b3: byte;
 
22
begin
 
23
  b1 := $ff;
 
24
  b2 := $ff;
 
25
  b3 := $ff;
 
26
  va := [];
 
27
  vb := [];
 
28
  vc := [];
 
29
  vd := [];
 
30
  ve := [];
 
31
 
 
32
  va := [3..4];
 
33
  vb := va;
 
34
  if b1 <> $ff then
 
35
    halt(1);
 
36
  if va <> [3..4] then
 
37
    halt(1);
 
38
  if vb <> [3..4] then
 
39
    halt(1);
 
40
  if vc <> [] then
 
41
    halt(1);
 
42
  if vd <> [] then
 
43
    halt(1);
 
44
  if ve <> [] then
 
45
    halt(1);
 
46
  vc := va;
 
47
  if b1 <> $ff then
 
48
    halt(1);
 
49
  if va <> [3..4] then
 
50
    halt(1);
 
51
  if vb <> [3..4] then
 
52
    halt(1);
 
53
  if vc <> [3..4] then
 
54
    halt(1);
 
55
  if vd <> [] then
 
56
    halt(1);
 
57
  if ve <> [] then
 
58
    halt(1);
 
59
  vd := va;
 
60
  if b1 <> $ff then
 
61
    halt(1);
 
62
  if va <> [3..4] then
 
63
    halt(1);
 
64
  if vb <> [3..4] then
 
65
    halt(1);
 
66
  if vc <> [3..4] then
 
67
    halt(1);
 
68
  if vd <> [3..4] then
 
69
    halt(1);
 
70
  if ve <> [] then
 
71
    halt(1);
 
72
  ve := va;
 
73
  if b1 <> $ff then
 
74
    halt(1);
 
75
  if va <> [3..4] then
 
76
    halt(1);
 
77
  if vb <> [3..4] then
 
78
    halt(1);
 
79
  if vc <> [3..4] then
 
80
    halt(1);
 
81
  if vd <> [3..4] then
 
82
    halt(1);
 
83
  if ve <> [3..4] then
 
84
    halt(1);
 
85
 
 
86
  b1 := $ff;
 
87
  b2 := $ff;
 
88
  b3 := $ff;
 
89
  va := [];
 
90
  vb := [];
 
91
  vc := [];
 
92
  vd := [];
 
93
  ve := [];
 
94
 
 
95
  vb := [0,2,3];
 
96
  va := vb;
 
97
  if b1 <> $ff then
 
98
    halt(2);
 
99
  if va <> [0,2,3] then
 
100
    halt(2);
 
101
  if vb <> [0,2,3] then
 
102
    halt(2);
 
103
  if vc <> [] then
 
104
    halt(2);
 
105
  if vd <> [] then
 
106
    halt(2);
 
107
  if ve <> [] then
 
108
    halt(2);
 
109
  vc := vb;
 
110
  if b1 <> $ff then
 
111
    halt(2);
 
112
  if va <> [0,2,3] then
 
113
    halt(2);
 
114
  if vb <> [0,2,3] then
 
115
    halt(2);
 
116
  if vc <> [0,2,3] then
 
117
    halt(2);
 
118
  if vd <> [] then
 
119
    halt(2);
 
120
  if ve <> [] then
 
121
    halt(2);
 
122
  vd := vb;
 
123
  if b1 <> $ff then
 
124
    halt(2);
 
125
  if va <> [0,2,3] then
 
126
    halt(2);
 
127
  if vb <> [0,2,3] then
 
128
    halt(2);
 
129
  if vc <> [0,2,3] then
 
130
    halt(2);
 
131
  if vd <> [0,2,3] then
 
132
    halt(2);
 
133
  if ve <> [] then
 
134
    halt(2);
 
135
  ve := vb;
 
136
  if va <> [0,2,3] then
 
137
    halt(2);
 
138
  if vb <> [0,2,3] then
 
139
    halt(2);
 
140
  if vc <> [0,2,3] then
 
141
    halt(2);
 
142
  if vd <> [0,2,3] then
 
143
    halt(2);
 
144
  if ve <> [0,2,3] then
 
145
    halt(2);
 
146
 
 
147
 
 
148
  b1 := $ff;
 
149
  b2 := $ff;
 
150
  b3 := $ff;
 
151
  va := [];
 
152
  vb := [];
 
153
  vc := [];
 
154
  vd := [];
 
155
  ve := [];
 
156
 
 
157
  vc := [5,6,7];
 
158
  va := vc;
 
159
  if b1 <> $ff then
 
160
    halt(3);
 
161
  if va <> [5,6,7] then
 
162
    halt(3);
 
163
  if vc <> [5,6,7] then
 
164
    halt(3);
 
165
  if vb <> [] then
 
166
    halt(3);
 
167
  if vd <> [] then
 
168
    halt(3);
 
169
  if ve <> [] then
 
170
    halt(3);
 
171
  vb := vc;
 
172
  if b1 <> $ff then
 
173
    halt(3);
 
174
  if va <> [5,6,7] then
 
175
    halt(3);
 
176
  if vb <> [5,6,7] then
 
177
    halt(3);
 
178
  if vc <> [5,6,7] then
 
179
    halt(3);
 
180
  if vd <> [] then
 
181
    halt(3);
 
182
  if ve <> [] then
 
183
    halt(3);
 
184
  vd := vc;
 
185
  if b1 <> $ff then
 
186
    halt(3);
 
187
  if va <> [5,6,7] then
 
188
    halt(3);
 
189
  if vb <> [5,6,7] then
 
190
    halt(3);
 
191
  if vc <> [5,6,7] then
 
192
    halt(3);
 
193
  if vd <> [5,6,7] then
 
194
    halt(3);
 
195
  if ve <> [] then
 
196
    halt(3);
 
197
  ve := vc;
 
198
  if b1 <> $ff then
 
199
    halt(3);
 
200
  if va <> [5,6,7] then
 
201
    halt(3);
 
202
  if vb <> [5,6,7] then
 
203
    halt(3);
 
204
  if vc <> [5,6,7] then
 
205
    halt(3);
 
206
  if vd <> [5,6,7] then
 
207
    halt(3);
 
208
  if ve <> [5,6,7] then
 
209
    halt(3);
 
210
 
 
211
 
 
212
  b1 := $ff;
 
213
  b2 := $ff;
 
214
  b3 := $ff;
 
215
  va := [];
 
216
  vb := [];
 
217
  vc := [];
 
218
  vd := [];
 
219
  ve := [];
 
220
 
 
221
  vd := [1,3,5];
 
222
  va := vd;
 
223
  if b1 <> $ff then
 
224
    halt(4);
 
225
  if va <> [1,3,5] then
 
226
    halt(4);
 
227
  if vd <> [1,3,5] then
 
228
    halt(4);
 
229
  if vc <> [] then
 
230
    halt(4);
 
231
  if vb <> [] then
 
232
    halt(4);
 
233
  if ve <> [] then
 
234
    halt(4);
 
235
  vb := vd;
 
236
  if b1 <> $ff then
 
237
    halt(4);
 
238
  if va <> [1,3,5] then
 
239
    halt(4);
 
240
  if vb <> [1,3,5] then
 
241
    halt(4);
 
242
  if vd <> [1,3,5] then
 
243
    halt(4);
 
244
  if vc <> [] then
 
245
    halt(4);
 
246
  if ve <> [] then
 
247
    halt(4);
 
248
  vc := vd;
 
249
  if b1 <> $ff then
 
250
    halt(4);
 
251
  if va <> [1,3,5] then
 
252
    halt(4);
 
253
  if vb <> [1,3,5] then
 
254
    halt(4);
 
255
  if vc <> [1,3,5] then
 
256
    halt(4);
 
257
  if vd <> [1,3,5] then
 
258
    halt(4);
 
259
  if ve <> [] then
 
260
    halt(4);
 
261
  ve := vd;
 
262
  if b1 <> $ff then
 
263
    halt(4);
 
264
  if va <> [1,3,5] then
 
265
    halt(4);
 
266
  if vb <> [1,3,5] then
 
267
    halt(4);
 
268
  if vc <> [1,3,5] then
 
269
    halt(4);
 
270
  if vd <> [1,3,5] then
 
271
    halt(4);
 
272
  if ve <> [1,3,5] then
 
273
    halt(4);
 
274
 
 
275
 
 
276
  b1 := $ff;
 
277
  b2 := $ff;
 
278
  b3 := $ff;
 
279
  va := [];
 
280
  vb := [];
 
281
  vc := [];
 
282
  vd := [];
 
283
  ve := [];
 
284
 
 
285
  ve := [0,7];
 
286
  va := ve;
 
287
  if b1 <> $ff then
 
288
    halt(5);
 
289
  if va <> [0,7] then
 
290
    halt(5);
 
291
  if ve <> [0,7] then
 
292
    halt(5);
 
293
  if vc <> [] then
 
294
    halt(5);
 
295
  if vd <> [] then
 
296
    halt(5);
 
297
  if vb <> [] then
 
298
    halt(5);
 
299
  vb := ve;
 
300
  if b1 <> $ff then
 
301
    halt(5);
 
302
  if va <> [0,7] then
 
303
    halt(5);
 
304
  if vb <> [0,7] then
 
305
    halt(5);
 
306
  if ve <> [0,7] then
 
307
    halt(5);
 
308
  if vd <> [] then
 
309
    halt(5);
 
310
  if vc <> [] then
 
311
    halt(5);
 
312
  vc := ve;
 
313
  if b1 <> $ff then
 
314
    halt(5);
 
315
  if va <> [0,7] then
 
316
    halt(5);
 
317
  if vb <> [0,7] then
 
318
    halt(5);
 
319
  if vc <> [0,7] then
 
320
    halt(5);
 
321
  if ve <> [0,7] then
 
322
    halt(5);
 
323
  if vd <> [] then
 
324
    halt(5);
 
325
  vd := ve;
 
326
  if b1 <> $ff then
 
327
    halt(5);
 
328
  if va <> [0,7] then
 
329
    halt(5);
 
330
  if vb <> [0,7] then
 
331
    halt(5);
 
332
  if vc <> [0,7] then
 
333
    halt(5);
 
334
  if vd <> [0,7] then
 
335
    halt(5);
 
336
  if ve <> [0,7] then
 
337
    halt(5);
 
338
 
 
339
end.