! Copyright (C) 2010 Doug Coleman.
! See http://factorcode.org/license.txt for BSD license.
-USING: accessors alien.c-types classes.struct kernel memory
+USING: accessors alien.c-types classes.struct kernel
tools.memory system vm ;
IN: tools.time.struct
{ stop benchmark-data } ;
: <benchmark-data> ( -- benchmark-data )
- \ benchmark-data new
+ benchmark-data <struct>
nano-count >>time
data-room >>data-room
code-room >>code-room
callback-room >>callback-room ; inline
: <benchmark-data-pair> ( start stop -- benchmark-data-pair )
- \ benchmark-data-pair new
+ benchmark-data-pair <struct>
swap >>stop
swap >>start ; inline