From 6fe6964eba198936d8b24e7b990968e3ba8aa117 Mon Sep 17 00:00:00 2001
From: Eddie Runia <eddie@runia.com>
Date: Fri, 7 May 1999 09:23:44 +0000
Subject: [PATCH] Error handler installed

---
 harbour/source/rtl/transfrm.c | 28 ++++++++++++++++++++--------
 1 file changed, 20 insertions(+), 8 deletions(-)

diff --git a/harbour/source/rtl/transfrm.c b/harbour/source/rtl/transfrm.c
index 50cc021fed..1d620fde0e 100644
--- a/harbour/source/rtl/transfrm.c
+++ b/harbour/source/rtl/transfrm.c
@@ -187,10 +187,6 @@ char *NumPicture( char *szPic, long lPic, int iPicFlags, double dValue,
    PushInteger( iDecimals );                    /* Push decimals            */
    Function( 3 );                               /* 3 Parameters             */
    pItem = &stack.Return;
-#if 0
-   StackPop();
-   ItemCopy( pItem, &stack.Return );            /* Get return value          */
-#endif
    if( pItem->wType == IT_STRING )              /* Is it a string           */
    {
       szStr  = pItem->value.szText;
@@ -299,7 +295,6 @@ char *NumPicture( char *szPic, long lPic, int iPicFlags, double dValue,
    {
       printf( "\nThis should never happen" );   /* TODO: Serious error      */
    }
-   /* ItemRelease( pItem ); */
    return(szRet);
 }
 
@@ -615,12 +610,24 @@ HARBOUR TRANSFORM( void )
             }
             default:
             {
-               _retc( "Crash !" );              /* TODO: Crash              */
+               PITEM pError = _errNew();
+
+               _errPutDescription(pError, "Argument error: TRANSFORM");
+               _errLaunch(pError);
+               _errRelease(pError);
+               _retc("");
             }
          }
       }
       else
-         _retc( "Crash !" );                    /* TODO: Crash              */
+      {
+         PITEM pError = _errNew();
+
+         _errPutDescription(pError, "Argument error: TRANSFORM");
+         _errLaunch(pError);
+         _errRelease(pError);
+         _retc("");
+      }
    }
    else                                         /* No picture supplied      */
    {
@@ -666,7 +673,12 @@ HARBOUR TRANSFORM( void )
          }
          default:
          {
-            _retc("Crash !");
+           PITEM pError = _errNew();
+
+           _errPutDescription(pError, "Argument error: TRANSFORM");
+           _errLaunch(pError);
+           _errRelease(pError);
+           _retc("");
          }
       }
    }