fivedev/harbour-core
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

2006-06-22 19:43 UTC+0100 Viktor Szakats (viktor.szakats syenar.hu)

Browse Source 
* harbour/source/rtl/errorsys.prg
     ! Fixed to use OutErr() instead of QOut() for CA-Cl*pper
       compatibility. (Thanks Chen)
     ! Fixed to set ErrorLevel to 1 in case of a RT error.
       (this was once removed by me as a fix about 7 years ago,
       but I can't remember what was the reason. It looks to be
       a wrong fix back then.)

   * harbour/utils/hbtest/rt_array.prg
     * Removed one codeblock unused var warning.
This commit is contained in:
Viktor Szakats
2006-06-22 17:56:45 +00:00
parent 3d17df8f03
commit 8e526ae4c7
3 changed files with 27 additions and 9 deletions
Download Patch File Download Diff File Expand all files Collapse all files

16
harbour/ChangeLog
View File

@@ -8,9 +8,21 @@
2002-12-01 13:30 UTC+0100 Foo Bar <foo.bar@foobar.org>
*/
2006-06-22 21:41 UTC+0100 Viktor Szakats (viktor.szakats syenar.hu)
! Fixed to use OutErr() instead of QOut() for CA-Cl*pper
* Fix to prev.
(this was once removed by me as a fix about 7 years ago,
but I can't remember what was the reason. It looks to be
! Fixed to use OutErr() instead of QOut() for CA-Cl*pper
compatibility. (Thanks Chen)
! Fixed to set ErrorLevel to 1 in case of a RT error.
(this was once removed by me as a fix about 7 years ago,
but I can't remember what was the reason. It looks to be
a wrong fix back then.)
* harbour/makefile.bc
* Updated for latest changes.
* harbour/utils/hbtest/rt_array.prg
* Removed one codeblock unused var warning.
2006-06-22 17:28 UTC+0100 Viktor Szakats (viktor.szakats syenar.hu)

18
harbour/source/rtl/errorsys.prg
View File

@@ -138,17 +138,23 @@ STATIC FUNCTION DefError( oError )
cMessage += " " + cDOSError
ENDIF
QOut() /// dgh - Temporary to keep DOS prompt from overwriting message.
QOut( cMessage )
OutErr( hb_OSNewLine() )
OutErr( cMessage )
n := 1
WHILE ! Empty( ProcName( ++n ) )
OutErr( hb_OSNewLine() )
OutErr( "Called from " + ProcName( n ) + ;
"(" + LTrim( Str( ProcLine( n ) ) ) + ") " )
n := 2
WHILE ! Empty( ProcName( n ) )
QOut("Called from " + ProcName( n ) + ;
"(" + AllTrim( Str( ProcLine( n++ ) ) ) + ")")
ENDDO
/// For some strange reason, the DOS prompt gets written on the first line
/// *of* the message instead of on the first line *after* the message after
/// the program quits, unless the screen has scrolled. - dgh
ErrorLevel( 1 )
QUIT
RETURN .F.

2
harbour/utils/hbtest/rt_array.prg
View File

@@ -319,7 +319,7 @@ FUNCTION Main_ARRAY()
#endif
TEST_LINE( aScan( "A", "A" ) , 0 )
TEST_LINE( aScan( "A", {|| .F. } ) , 0 )
TEST_LINE( aScan( {1,2,3}, {|x| NIL } ) , 0 )
TEST_LINE( aScan( {1,2,3}, {|| NIL } ) , 0 )
TEST_LINE( aScan( saAllTypes, scString ) , 1 )
#ifdef __HARBOUR__
TEST_LINE( aScan( @saAllTypes, scString ) , 1 ) /* Bug in CA-Cl*pper, it will return 0 */