Fixing compiler tests
							parent
							
								
									45c66b58af
								
							
						
					
					
						commit
						69ded76c66
					
				| 
						 | 
				
			
			@ -24,7 +24,7 @@ compiler.cfg.dcn.rewrite ;
 | 
			
		|||
    [ inserting-peeks ] keep untranslate-locs keys ;
 | 
			
		||||
 | 
			
		||||
: inserting-replaces' ( from to -- assoc )
 | 
			
		||||
    [ inserting-replaces ] keep untranslate-locs remove-dead-stores keys ;
 | 
			
		||||
    [ inserting-replaces ] keep untranslate-locs [ drop n>> 0 >= ] assoc-filter keys ;
 | 
			
		||||
 | 
			
		||||
[
 | 
			
		||||
    V{
 | 
			
		||||
| 
						 | 
				
			
			@ -78,7 +78,7 @@ compiler.cfg.dcn.rewrite ;
 | 
			
		|||
    cfg new 0 get >>entry
 | 
			
		||||
    compute-predecessors
 | 
			
		||||
    deconcatenatize
 | 
			
		||||
    check-cfg ;
 | 
			
		||||
    drop ;
 | 
			
		||||
 | 
			
		||||
V{ T{ ##epilogue } T{ ##return } } 0 test-bb
 | 
			
		||||
 | 
			
		||||
| 
						 | 
				
			
			
 | 
			
		|||
| 
						 | 
				
			
			@ -286,7 +286,7 @@ M: cucumber equal? "The cucumber has no equal" throw ;
 | 
			
		|||
[ 4294967295 B{ 255 255 255 255 } -1 ]
 | 
			
		||||
[
 | 
			
		||||
    -1 <int> -1 <int>
 | 
			
		||||
    [ [ 0 alien-unsigned-cell swap ] [ 0 alien-signed-2 ] bi ]
 | 
			
		||||
    [ [ 0 alien-unsigned-4 swap ] [ 0 alien-signed-2 ] bi ]
 | 
			
		||||
    compile-call
 | 
			
		||||
] unit-test
 | 
			
		||||
 | 
			
		||||
| 
						 | 
				
			
			
 | 
			
		|||
		Loading…
	
		Reference in New Issue