From 8a978246661b461b3cf4871dadd1e9b187856a1e Mon Sep 17 00:00:00 2001 From: Viktor Szakats Date: Wed, 16 May 2007 22:38:16 +0000 Subject: [PATCH] 2007-05-17 00:36 UTC+0100 Viktor Szakats (harbour.01 syenar.hu) * harbour/utils/hbtest/rt_misc.prg ! SET EOLs guarded with __HARBOUR__ to make it compile on other platforms. --- harbour/ChangeLog | 5 +++++ harbour/utils/hbtest/rt_misc.prg | 14 +++++++++++--- 2 files changed, 16 insertions(+), 3 deletions(-) diff --git a/harbour/ChangeLog b/harbour/ChangeLog index 734815e7c2..67d164de49 100644 --- a/harbour/ChangeLog +++ b/harbour/ChangeLog @@ -8,6 +8,11 @@ 2002-12-01 13:30 UTC+0100 Foo Bar */ +2007-05-17 00:36 UTC+0100 Viktor Szakats (harbour.01 syenar.hu) + * harbour/utils/hbtest/rt_misc.prg + ! SET EOLs guarded with __HARBOUR__ to make it compile on + other platforms. + 2007-05-17 00:20 UTC+0200 Przemyslaw Czerpak (druzus/at/priv.onet.pl) * harbour/TODO * removed some not longer necessary TODO/TOFIX diff --git a/harbour/utils/hbtest/rt_misc.prg b/harbour/utils/hbtest/rt_misc.prg index 04d4a45145..8736aaa6a0 100644 --- a/harbour/utils/hbtest/rt_misc.prg +++ b/harbour/utils/hbtest/rt_misc.prg @@ -58,7 +58,10 @@ #include "rt_vars.ch" FUNCTION Main_MISC() - LOCAL oError, cEOL + LOCAL oError +#ifdef __HARBOUR__ + LOCAL cEOL +#endif /* Some random error object tests taken from the separate test source */ @@ -715,7 +718,10 @@ FUNCTION Main_MISC() #endif /* MLCTOPOS() */ - cEOL := SET( _SET_EOL, CHR(13) + CHR( 10 ) ) + +#ifdef __HARBOUR__ + cEOL := Set( _SET_EOL, CHR(13) + CHR( 10 ) ) +#endif TEST_LINE( MLCTOPOS( 'A message from me', 10, 2, 0 ) , 11 ) TEST_LINE( MLCTOPOS( 'A message from me', 5, 2, 0, 4, .F. ) , 6 ) @@ -763,7 +769,9 @@ FUNCTION Main_MISC() TEST_LINE( MLCTOPOS( , , , ) , 1 ) TEST_LINE( MLCTOPOS( , .T., , ) , 1 ) - SET( _SET_EOL, cEOL ) +#ifdef __HARBOUR__ + Set( _SET_EOL, cEOL ) +#endif RETURN NIL