3ad13ee5e1
* contrib/hbmemio/tests/test.prg
* contrib/hbmemio/memio.c
* Internal name also renamed to HB_MEMIO (from HB_IODMEM).
* source/vm/dynlibhb.c
+ cast.
21 lines
332 B
Plaintext
21 lines
332 B
Plaintext
/*
|
|
* $Id$
|
|
*/
|
|
|
|
REQUEST HB_MEMIO
|
|
|
|
PROC Main()
|
|
LOCAL nI
|
|
FIELD F1
|
|
|
|
DBCREATE("mem:test", {{"F1", "N", 9, 0}},, .T., "memarea")
|
|
FOR nI := 1 TO 1000
|
|
DBAPPEND(); F1 := HB_RANDOM() * 1000000
|
|
NEXT
|
|
INDEX ON F1 TAG f1
|
|
DBEVAL({|| QOUT(F1)})
|
|
DBCLOSEAREA()
|
|
DBDROP("mem:test") // Free memory resource
|
|
|
|
RETURN
|