blob: df0394e25989ca0372195ef4ed22f30174778f29 (
plain)
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
|
{ This test checks whether the 'extradefines' from compiler/system/i_*.pas }
{ are defined before the configuration file is parsed, together with tw9450a }
{$i+}
var
t: text;
begin
assign(t,'tw9450a.cfg');
rewrite(t);
writeln(t,'-vw');
{$ifdef unix}
writeln(t,'#ifndef unix');
writeln(t,'#error Unix not defined in config file');
writeln(t,'#endif');
{$else}
{$ifdef windows}
writeln(t,'#ifndef windows');
writeln(t,'#error Windows not defined in config file');
writeln(t,'#endif');
{$else}
{$ifdef dpmi}
writeln(t,'#ifndef dpmi');
writeln(t,'#error DPMI not defined in config file');
writeln(t,'#endif');
{$endif}
{$endif}
{$endif}
close(t);
end.
|
