Files
harbour-core/tests/memory.prg
2013-10-09 20:08:24 +02:00

24 lines
890 B
Plaintext

// ; Donated to the public domain by
// Viktor Szakats (vszakats.net/harbour)
#include "hbmemory.ch"
PROCEDURE Main()
? "HB_MEM_CHAR ", Memory( HB_MEM_CHAR )
? "HB_MEM_BLOCK ", Memory( HB_MEM_BLOCK )
? "HB_MEM_RUN ", Memory( HB_MEM_RUN )
? "HB_MEM_VM ", Memory( HB_MEM_VM )
? "HB_MEM_EMS ", Memory( HB_MEM_EMS )
? "HB_MEM_FM ", Memory( HB_MEM_FM )
? "HB_MEM_FMSEGS ", Memory( HB_MEM_FMSEGS )
? "HB_MEM_SWAP ", Memory( HB_MEM_SWAP )
? "HB_MEM_CONV ", Memory( HB_MEM_CONV )
? "HB_MEM_EMSUSED ", Memory( HB_MEM_EMSUSED )
? "HB_MEM_USED ", Memory( HB_MEM_USED )
? "HB_MEM_USEDMAX ", Memory( HB_MEM_USEDMAX )
? "HB_MEM_STACKITEMS", Memory( HB_MEM_STACKITEMS )
? "HB_MEM_STACK ", Memory( HB_MEM_STACK )
RETURN