mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-04-14 23:39:28 +02:00
30 lines
679 B
ObjectPascal
30 lines
679 B
ObjectPascal
{ 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.
|