basis/compiler/cfg/gc-checks/gc-checks-tests.factor

   1 USING: compiler.cfg.gc-checks compiler.cfg.debugger
   2 compiler.cfg.registers compiler.cfg.instructions compiler.cfg
   3 compiler.cfg.predecessors cpu.architecture tools.test kernel vectors
   4 namespaces accessors sequences ;
   5 IN: compiler.cfg.gc-checks.tests
   6
   7 : test-gc-checks ( -- )
   8     H{ } clone representations set
   9     cfg new 0 get >>entry
  10     insert-gc-checks
  11     drop ;
  12
  13 V{
  14     T{ ##inc-d f 3 }
  15     T{ ##replace f 0 D 1 }
  16 } 0 test-bb
  17
  18 V{
  19     T{ ##box-float f 0 1 }
  20 } 1 test-bb
  21
  22 0 1 edge
  23
  24 [ ] [ test-gc-checks ] unit-test
  25
  26 [ V{ D 0 D 2 } ] [ 1 get instructions>> first uninitialized-locs>> ] unit-test