19991022-10:41 GMT+1

harbour/ChangeLog

@@ -1,3 +1,9 @@
+19991022-10:41 GMT+1 Victor Szel <info@szelvesz.hu>
+   * source/rtl/fm.c
+     tests/memory.prg
+     + MEMORY() extended with 1003 and 1004 parameters, to retrieve stack
+       usage.
+
 19991022-10:33 GMT+1 Victor Szel <info@szelvesz.hu>
    * source/rtl/fm.c
      tests/memory.prg

harbour/source/rtl/fm.c

@@ -398,6 +398,14 @@ HARBOUR HB_MEMORY( void )
       ulResult = s_ulMemoryMaxConsumed;
       break;
 
+   case 1003:           /* Harbour extension (Total items on the stack)      */
+      ulResult = hb_stack.wItems;
+      break;
+
+   case 1004:           /* Harbour extension (Total memory size used by the stack [bytes]) */
+      ulResult = hb_stack.wItems * sizeof( HB_ITEM );
+      break;
+
    default:
       ulResult = 0;
    }

harbour/tests/memory.prg

@@ -18,5 +18,7 @@ FUNCTION Main()
    ?  105, MEMORY(  105 )
    ? 1001, MEMORY( 1001 )
    ? 1002, MEMORY( 1002 )
+   ? 1003, MEMORY( 1003 )
+   ? 1004, MEMORY( 1004 )
 
    RETURN NIL