Why Gemfury? Push, build, and install  RubyGems npm packages Python packages Maven artifacts PHP packages Go Modules Debian packages RPM packages NuGet packages

Repository URL to install this package:

Details    
fpc-src / usr / share / fpcsrc / 3.2.0 / tests / webtbs / tw9450.pp
Size: Mime:
{ %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.