From 264684f356e1558b85e965a321871acf305280be Mon Sep 17 00:00:00 2001
From: Przemyslaw Czerpak <druzus@priv.onet.pl>
Date: Mon, 16 Nov 2009 18:53:05 +0000
Subject: [PATCH] 2009-11-16 19:52 UTC+0100 Przemyslaw Czerpak
 (druzus/at/priv.onet.pl)   * harbour/src/nortl/nortl.c     ! fixed left by
 mistake ULONG ulIntCode in non HVM hb_errInternal()

---
 harbour/ChangeLog         | 4 ++++
 harbour/src/nortl/nortl.c | 6 +++---
 2 files changed, 7 insertions(+), 3 deletions(-)

diff --git a/harbour/ChangeLog b/harbour/ChangeLog
index 7de73e37a0..8b55959060 100644
--- a/harbour/ChangeLog
+++ b/harbour/ChangeLog
@@ -17,6 +17,10 @@
    past entries belonging to author(s): Viktor Szakats.
 */
 
+2009-11-16 19:52 UTC+0100 Przemyslaw Czerpak (druzus/at/priv.onet.pl)
+  * harbour/src/nortl/nortl.c
+    ! fixed left by mistake ULONG ulIntCode in non HVM hb_errInternal()
+
 2009-11-16 17:44 UTC+0100 Przemyslaw Czerpak (druzus/at/priv.onet.pl)
   * harbour/src/rtl/errapi.c
   * harbour/include/hbapierr.h
diff --git a/harbour/src/nortl/nortl.c b/harbour/src/nortl/nortl.c
index 5a0a34b5c7..4c6f4ead40 100644
--- a/harbour/src/nortl/nortl.c
+++ b/harbour/src/nortl/nortl.c
@@ -325,14 +325,14 @@ void hb_xexit( void )
 
 /* NOTE: Use as minimal calls from here, as possible.
          Don't allocate memory from this function. [vszakats] */
-void hb_errInternal( ULONG ulIntCode, const char * szText, const char * szPar1, const char * szPar2 )
+void hb_errInternal( HB_ERRCODE errCode, const char * szText, const char * szPar1, const char * szPar2 )
 {
    char buffer[ 1024 ];
 
-   HB_TRACE(HB_TR_DEBUG, ("hb_errInternal(%lu, %s, %s, %s)", ulIntCode, szText, szPar1, szPar2));
+   HB_TRACE(HB_TR_DEBUG, ("hb_errInternal(%d, %s, %s, %s)", errCode, szText, szPar1, szPar2));
 
    hb_conOutErr( hb_conNewLine(), 0 );
-   hb_snprintf( buffer, sizeof( buffer ), "Unrecoverable error %lu: ", ulIntCode );
+   hb_snprintf( buffer, sizeof( buffer ), "Unrecoverable error %d: ", errCode );
    hb_conOutErr( buffer, 0 );
    if( szText )
    {