extra/tools/image-analyzer/vm/32/32.factor

   1 USING: alien.c-types classes.struct vm ;
   2 IN: tools.image-analyzer.vm.32
   3
   4 STRUCT: boxed-float
   5     { header cell_t }
   6     { padding cell_t }
   7     { n double } ;
   8
   9 STRUCT: byte-array
  10     { header cell_t }
  11     { capacity cell_t }
  12     { padding0 cell_t }
  13     { padding1 cell_t } ;