paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-15 21:49:06 +02:00
Code Issues Packages Projects Releases Wiki Activity

* fix for wrong nested comments resulting in wrong results under *nix, etc., with redirected output

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

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

@ -1,5 +1,5 @@
{$DEFINE VERBOSE} { $DEFINE VERBOSE}
{$DEFINE DEBUG} { $DEFINE DEBUG}
(* Define the following if the test will be run manually in a console *) (* Define the following if the test will be run manually in a console *)
(* (no output redirection) - otherwise the test will fail for some targets. *) (* (no output redirection) - otherwise the test will fail for some targets. *)
{ $DEFINE CONSOLE} { $DEFINE CONSOLE}
@ -18,12 +18,12 @@ const
ConsoleDeviceName = 'CON'; ConsoleDeviceName = 'CON';
{$DEFINE TESTCONSOLEOK} {$DEFINE TESTCONSOLEOK}
{$ELSE} {$ELSE}
{ {$IF DEFINED(UNIX)} (* {$IF DEFINED(UNIX)}
(* I don't know whether there's a device on Unix allowing to enforce output to console even if standard output is redirected for the given process... *) { I don't know whether there's a device on Unix allowing to enforce output to console even if standard output is redirected for the given process... }
ConsoleDeviceName = '/dev/tty'; ConsoleDeviceName = '/dev/tty';
{$DEFINE TESTCONSOLEOK} {$DEFINE TESTCONSOLEOK}
{$ELSE} {$ELSE}
} *)
{$IFDEF CONSOLE} {$IFDEF CONSOLE}
ConsoleDeviceName = ''; ConsoleDeviceName = '';
{$DEFINE TESTCONSOLEOK} {$DEFINE TESTCONSOLEOK}