paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-13 04:09:33 +02:00
Code Issues Packages Projects Releases Wiki Activity

+ add tests to check for correct definition of the FPC_* mode defines

Browse Source 
git-svn-id: trunk@43115 -
This commit is contained in:
svenbarth 2019-10-03 12:34:42 +00:00
parent 562d345060
commit b4e998b3f8
8 changed files with 182 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
.gitattributes vendored
View File

@ -12955,6 +12955,13 @@ tests/tbs/tb0655.pp svneol=native#text/pascal
tests/tbs/tb0656.pp svneol=native#text/pascal
tests/tbs/tb0657.pp svneol=native#text/pascal
tests/tbs/tb0658.pp svneol=native#text/plain
tests/tbs/tb0659a.pp svneol=native#text/pascal
tests/tbs/tb0659b.pp svneol=native#text/pascal
tests/tbs/tb0659c.pp svneol=native#text/pascal
tests/tbs/tb0659d.pp svneol=native#text/pascal
tests/tbs/tb0659e.pp svneol=native#text/pascal
tests/tbs/tb0659f.pp svneol=native#text/pascal
tests/tbs/tb0659g.pp svneol=native#text/pascal
tests/tbs/tb205.pp svneol=native#text/plain
tests/tbs/tb610.pp svneol=native#text/pascal
tests/tbs/tb613.pp svneol=native#text/plain

25
tests/tbs/tb0659a.pp Normal file
View File

@ -0,0 +1,25 @@
program tb0659a;
{$mode fpc}
{$ifdef FPC_TP}
{$fatal FPC_TP defined}
{$endif}
{$ifdef FPC_OBJFPC}
{$fatal FPC_OBJFPC defined}
{$endif}
{$ifdef FPC_DELPHI}
{$fatal FPC_DELPHI defined}
{$endif}
{$ifdef FPC_MACPAS}
{$fatal FPC_MACPAS defined}
{$endif}
{$ifdef FPC_ISO}
{$fatal FPC_ISO defined}
{$endif}
{$ifdef FPC_EXTENDEDPASCAL}
{$fatal FPC_EXTENDEDPASCAL defined}
{$endif}
begin
end.

25
tests/tbs/tb0659b.pp Normal file
View File

@ -0,0 +1,25 @@
program tb0659b;
{$mode tp}
{$ifndef FPC_TP}
{$fatal FPC_TP not defined}
{$endif}
{$ifdef FPC_OBJFPC}
{$fatal FPC_OBJFPC defined}
{$endif}
{$ifdef FPC_DELPHI}
{$fatal FPC_DELPHI defined}
{$endif}
{$ifdef FPC_MACPAS}
{$fatal FPC_MACPAS defined}
{$endif}
{$ifdef FPC_ISO}
{$fatal FPC_ISO defined}
{$endif}
{$ifdef FPC_EXTENDEDPASCAL}
{$fatal FPC_EXTENDEDPASCAL defined}
{$endif}
begin
end.

25
tests/tbs/tb0659c.pp Normal file
View File

@ -0,0 +1,25 @@
program tb0659c;
{$mode objfpc}
{$ifdef FPC_TP}
{$fatal FPC_TP defined}
{$endif}
{$ifndef FPC_OBJFPC}
{$fatal FPC_OBJFPC not defined}
{$endif}
{$ifdef FPC_DELPHI}
{$fatal FPC_DELPHI defined}
{$endif}
{$ifdef FPC_MACPAS}
{$fatal FPC_MACPAS defined}
{$endif}
{$ifdef FPC_ISO}
{$fatal FPC_ISO defined}
{$endif}
{$ifdef FPC_EXTENDEDPASCAL}
{$fatal FPC_EXTENDEDPASCAL defined}
{$endif}
begin
end.

25
tests/tbs/tb0659d.pp Normal file
View File

@ -0,0 +1,25 @@
program tb0659d;
{$mode delphi}
{$ifdef FPC_TP}
{$fatal FPC_TP defined}
{$endif}
{$ifdef FPC_OBJFPC}
{$fatal FPC_OBJFPC defined}
{$endif}
{$ifndef FPC_DELPHI}
{$fatal FPC_DELPHI not defined}
{$endif}
{$ifdef FPC_MACPAS}
{$fatal FPC_MACPAS defined}
{$endif}
{$ifdef FPC_ISO}
{$fatal FPC_ISO defined}
{$endif}
{$ifdef FPC_EXTENDEDPASCAL}
{$fatal FPC_EXTENDEDPASCAL defined}
{$endif}
begin
end.

25
tests/tbs/tb0659e.pp Normal file
View File

@ -0,0 +1,25 @@
program tb0659e;
{$mode macpas}
{$ifdef FPC_TP}
{$fatal FPC_TP defined}
{$endif}
{$ifdef FPC_OBJFPC}
{$fatal FPC_OBJFPC defined}
{$endif}
{$ifdef FPC_DELPHI}
{$fatal FPC_DELPHI defined}
{$endif}
{$ifndef FPC_MACPAS}
{$fatal FPC_MACPAS not defined}
{$endif}
{$ifdef FPC_ISO}
{$fatal FPC_ISO defined}
{$endif}
{$ifdef FPC_EXTENDEDPASCAL}
{$fatal FPC_EXTENDEDPASCAL defined}
{$endif}
begin
end.

25
tests/tbs/tb0659f.pp Normal file
View File

@ -0,0 +1,25 @@
program tb0659f;
{$mode iso}
{$ifdef FPC_TP}
{$fatal FPC_TP defined}
{$endif}
{$ifdef FPC_OBJFPC}
{$fatal FPC_OBJFPC defined}
{$endif}
{$ifdef FPC_DELPHI}
{$fatal FPC_DELPHI defined}
{$endif}
{$ifdef FPC_MACPAS}
{$fatal FPC_MACPAS defined}
{$endif}
{$ifndef FPC_ISO}
{$fatal FPC_ISO not defined}
{$endif}
{$ifdef FPC_EXTENDEDPASCAL}
{$fatal FPC_EXTENDEDPASCAL defined}
{$endif}
begin
end.

25
tests/tbs/tb0659g.pp Normal file
View File

@ -0,0 +1,25 @@
program tb0659g;
{$mode extendedpascal}
{$ifdef FPC_TP}
{$fatal FPC_TP defined}
{$endif}
{$ifdef FPC_OBJFPC}
{$fatal FPC_OBJFPC defined}
{$endif}
{$ifdef FPC_DELPHI}
{$fatal FPC_DELPHI defined}
{$endif}
{$ifdef FPC_MACPAS}
{$fatal FPC_MACPAS defined}
{$endif}
{$ifdef FPC_ISO}
{$fatal FPC_ISO defined}
{$endif}
{$ifndef FPC_EXTENDEDPASCAL}
{$fatal FPC_EXTENDEDPASCAL not defined}
{$endif}
begin
end.