49 lines
		
	
	
		
			892 B
		
	
	
	
		
			Factor
		
	
	
			
		
		
	
	
			49 lines
		
	
	
		
			892 B
		
	
	
	
		
			Factor
		
	
	
USING: compiler.cfg.scheduling compiler.cfg.instructions
 | 
						|
vocabs.loader namespaces tools.test arrays kernel random
 | 
						|
words compiler.units ;
 | 
						|
IN: compiler.cfg.scheduling.tests
 | 
						|
 | 
						|
! Test split-3-ways
 | 
						|
[
 | 
						|
    { }
 | 
						|
    { }
 | 
						|
    { T{ ##test-branch } }
 | 
						|
] [
 | 
						|
    V{ T{ ##test-branch } }
 | 
						|
    split-3-ways
 | 
						|
    [ >array ] tri@
 | 
						|
] unit-test
 | 
						|
 | 
						|
[
 | 
						|
    { T{ ##inc-d } T{ ##inc-r } T{ ##callback-inputs } }
 | 
						|
    { T{ ##add } T{ ##sub } T{ ##mul } }
 | 
						|
    { T{ ##test-branch } }
 | 
						|
] [
 | 
						|
    V{
 | 
						|
        T{ ##inc-d }
 | 
						|
        T{ ##inc-r }
 | 
						|
        T{ ##callback-inputs }
 | 
						|
        T{ ##add }
 | 
						|
        T{ ##sub }
 | 
						|
        T{ ##mul }
 | 
						|
        T{ ##test-branch }
 | 
						|
    }
 | 
						|
    split-3-ways
 | 
						|
    [ >array ] tri@
 | 
						|
] unit-test
 | 
						|
 | 
						|
[
 | 
						|
    { }
 | 
						|
    { T{ ##add } T{ ##sub } T{ ##mul } }
 | 
						|
    { T{ ##dispatch } }
 | 
						|
] [
 | 
						|
    V{
 | 
						|
        T{ ##add }
 | 
						|
        T{ ##sub }
 | 
						|
        T{ ##mul }
 | 
						|
        T{ ##dispatch }
 | 
						|
    }
 | 
						|
    split-3-ways
 | 
						|
    [ >array ] tri@
 | 
						|
] unit-test
 |