19990916-05:50 GMT+1

harbour/ChangeLog

@@ -1,3 +1,10 @@
+19990916-05:50 GMT+1 Victor Szel <info@szelvesz.hu>
+  * source/rtl/itemapi.c
+    + Added NOTE why pItemArg1 is needed.
+  * tests/working/transdef.prg
+    tests/broken/parexpr.prg
+    - Removed (now for sure)
+
 19990915-23:35 EDT Paul Tucker <ptucker@sympatico.ca>
   * source/rtl/gt/gtos2.c
     source/rtl/gt/gtwin.c
@@ -24,6 +31,7 @@
     tests/working/transdef.prg (removed)
     tests/working/Makefile
     * Tests from transdef.prg moved to rtl_test.prg (2 failures more now)
+    tests/working/transdef.prg (removed)
   * tests/broken/parexpr.prg
     - Removed, since it's in working now.
   ; The bugs above were reported by Jose Lalin.

harbour/source/rtl/itemapi.c

@@ -166,7 +166,9 @@ BOOL hb_evalRelease( PEVALINFO pEvalInfo )
          enough to initiate a call, the number of parameters is not limited.
 
    NOTE: When calling hb_itemDo() with no arguments for the Harbour item being
-         evaluated, you must use '(PHB_ITEM *) 0' as the third parameter. */
+         evaluated, you must use '(PHB_ITEM *) 0' as the third parameter. 
+
+   NOTE: pItemArg1 is needed to workaround a bug in OS2/GCC. */
 
 PHB_ITEM hb_itemDo( PHB_ITEM pItem, USHORT uiPCount, PHB_ITEM pItemArg1, ... )
 {
@@ -243,7 +245,9 @@ PHB_ITEM hb_itemDo( PHB_ITEM pItem, USHORT uiPCount, PHB_ITEM pItemArg1, ... )
          directly passed as a zero terminated string.
 
    NOTE: When calling hb_itemDoC() with no arguments for the Harbour function
-         being called, you must use '(PHB_ITEM *) 0' as the third parameter. */
+         being called, you must use '(PHB_ITEM *) 0' as the third parameter.
+
+   NOTE: pItemArg1 is needed to workaround a bug in OS2/GCC. */
 
 PHB_ITEM hb_itemDoC( char * szFunc, USHORT uiPCount, PHB_ITEM pItemArg1, ... )
 {

harbour/tests/broken/parexpr.prg

@@ -1,71 +0,0 @@
-//
-// $Id$
-//
-
-// The following code tests harbour's ability to cope with parenthesized
-// expressions.
-
-// These tests were written by Dave Pearson <davep@hagbard.demon.co.uk> and
-// are placed into the public domain.
-
-Function Main()
-Local x
-Local y
-
-   // Simple one to start with.
-   x := ( 1 )
-   ? x
-
-   // Now with a little more complex:
-   x := ( 1, 2 )
-   ? x
-   
-   // And a little more, this is really the same as the previous one.
-   x := ( 1, 2, 3 )
-   ? x
-   
-   // Expression within expression
-   x := ( ( 1, 2, 3 ) )
-   ? x
-   
-   // And a little more:
-   x := ( ( 1, 2, 3 ), ( 1, 2, 3 ) )
-   ? x
-   
-   // Some inline assignments
-   x := ( y := 10, y )
-   ? x
-   
-   x := ( ( y := ( 1, 2, 3) ), y * ( 10, 20, 30 ) )
-   ? x
-   
-   // Now mix with statements and functions
-   ? ( 1, 2, 3 )
-
-   If ( y := .t. )
-      ? "Working"
-   Else
-      ? "Borken"
-   EndIf
-   
-   If ( x := 10, y := ( x == 10 ) )
-      ? "Working"
-   Else
-      ? "Broken"
-   EndIf
-   
-   If ( Something( 1, 2, 3 ), .T. )
-      ? "Working"
-   Else
-      ? "Broken"
-   EndIf
-   
-   ?
-   
-Return( NIL )
-
-Static Function Something( x, y, z )
-
-  // This does something and it does it well/
-  
-Return( NIL )

harbour/tests/working/transdef.prg

@@ -1,10 +0,0 @@
-/*
- * $Id$
- */
-
-procedure main
-local a := 1, b := 5.22
-   qout( "[" + transform( 1, "@B" ) + "]" )
-   qout( "[" + transform( 1.0, "@B" ) + "]" )
-   qout( "[" + transform( day( ctod("1/1/2000") ), "@B" ) + "]" )
-quit