19991203-15:18 GMT+1

harbour/ChangeLog

@@ -1,3 +1,15 @@
+19991203-15:18 GMT+1 Jose Lalin <dezac@corevia.com>
+  * source/pp/hbpp.c
+    ! Bug fixed in #error directive.
+      Changed 'F' for 'E' type in hb_compGenError call.
+      Now Harbour continues compilig when this directive is
+      found like CA-Cl*pper.
+    (Uploaded by Victor Szel)
+
+19991203-15:18 GMT+1 Victor Szel <info@szelvesz.hu>
+  * doc/hdr_tpl.txt
+    + $PLATFORMS$ entry added.
+
 19991203-15:11 GMT+1 Victor Szel <info@szelvesz.hu>
   * tests/regress/*
     + Added functionality to test database/field stuff. Alias is w_TEST

harbour/doc/hdr_tpl.txt

@@ -80,6 +80,8 @@ FUNCTION HEADER TEMPLATE
  *
  *  $COMPLIANCE$
  *
+ *  $PLATFORMS$
+ *
  *  $SEEALSO$
  *
  *  $END$
@@ -126,6 +128,8 @@ FUNCTION HEADER EXAMPLE
  *      IsLeapYr() works exactly like CA-Clipper's IsLeapYr(), if your
  *      CA-Clipper doesn't have such a function you're probably in a
  *      different universe from the author of this function.
+ *  $PLATFORMS$
+ *      All
  *  $SEEALSO$
  *      Date() IsWeekend() IsHarbourFinished() IsApocalypse()
  *  $END$
@@ -136,6 +140,7 @@ FUNCTION HEADER EXAMPLE
 /*
  * ChangeLog:
  *
+ * V 1.10   Victor Szel                 $PLATFORMS$ added.
  * V 1.9    Victor Szel                 Small format changes.
  * V 1.8    Victor Szel                 licence -> license
  * V 1.7    Victor Szel                 History separated from the file header

harbour/source/pp/hbpp.c

@@ -262,7 +262,7 @@ int hb_pp_ParseDirective( char * sLine )
 
       else if( i == 5 && memcmp( sDirective, "ERROR", 5 ) == 0 )
         /* --- #error  --- */
-        hb_compGenError( hb_pp_szErrors, 'F', ERR_EXPLICIT, sLine, NULL );
+        hb_compGenError( hb_pp_szErrors, 'E', ERR_EXPLICIT, sLine, NULL );
 
       else if( i == 4 && memcmp( sDirective, "LINE", 4 ) == 0 )
         return -1;