1 ! Copyright (C) 2010 Doug Coleman.
2 ! See http://factorcode.org/license.txt for BSD license.
3 USING: accessors alien.c-types classes.struct kernel
4 tools.memory system vm ;
9 { data-room data-heap-room }
10 { code-room mark-sweep-sizes }
11 { callback-room mark-sweep-sizes } ;
13 STRUCT: benchmark-data-pair
14 { start benchmark-data }
15 { stop benchmark-data } ;
17 : <benchmark-data> ( -- benchmark-data )
18 benchmark-data <struct>
22 callback-room >>callback-room ; inline
24 : <benchmark-data-pair> ( start stop -- benchmark-data-pair )
25 benchmark-data-pair <struct>
29 : with-benchmarking ( ... quot -- ... benchmark-data-pair )
32 <benchmark-data> <benchmark-data-pair> ; inline