Repository URL to install this package:
|
Version:
3.2.0 ▾
|
{ %skiptarget=android }
{ 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.