1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
|
unit ModeMacPas;
{$mode macpas}{$H+}
interface
uses
Classes, SysUtils;
{$DEFINE test3}
{$DEFINE bogus4}
{$ifc defined test1}
type mmp1 = integer;
{$elifc defined test2}
type mmp2 = integer;
{$elifc defined test3}
type mmp3 = integer;
{$ifc defined bogus1}
type bogus1 = integer;
{$elifc defined bogus2}
type bogus2 = integer;
{$elifc defined bogus3}
type bogus3 = integer;
{$elsec}
type bogusELSE = integer;
{$error Neither bogus1 nor bogus2 nor bogus3 are defined.}
{$endc}
{$elsec}
type mmpELSE = integer;
{$error Neither test1 nor test2 nor test3 are defined.}
{$endc}
implementation
end.
|
