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

* fix for wrongly chosen conditional define name

Browse Source 
git-svn-id: trunk@49335 -
This commit is contained in:
Tomas Hajny 2021-05-03 22:56:59 +00:00
parent cb2c0ae594
commit a652506254
1 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
tests/test/units/system/ttxtflsh.pp
View File

@ -2,7 +2,7 @@
{ $DEFINE DEBUG}
(* Define the following if the test will be run manually in a console *)
(* (no output redirection) - otherwise the test will fail for some targets. *)
{ $DEFINE CONSOLE}
{ $DEFINE TESTINCONSOLE}
{$I-}
uses
Dos;
@ -24,10 +24,10 @@ const
{$DEFINE TESTCONSOLEOK}
{$ELSE}
*)
{$IFDEF CONSOLE}
{$IFDEF TESTINCONSOLE}
ConsoleDeviceName = '';
{$DEFINE TESTCONSOLEOK}
{$ENDIF CONSOLE}
{$ENDIF TESTINCONSOLE}
{ $ENDIF}
{$ENDIF}