compiler.cfg.linear-scan.allocation: using slurp-heap
							parent
							
								
									84f8f26ce8
								
							
						
					
					
						commit
						d6c1c075ff
					
				| 
						 | 
					@ -59,11 +59,8 @@ M: sync-point handle ( sync-point -- )
 | 
				
			||||||
    [ n>> [ deactivate-intervals ] [ activate-intervals ] bi ]
 | 
					    [ n>> [ deactivate-intervals ] [ activate-intervals ] bi ]
 | 
				
			||||||
    [ handle-sync-point ] bi ;
 | 
					    [ handle-sync-point ] bi ;
 | 
				
			||||||
 | 
					
 | 
				
			||||||
! TODO: use slurp-heap
 | 
					 | 
				
			||||||
: (allocate-registers) ( unhandled-min-heap -- )
 | 
					: (allocate-registers) ( unhandled-min-heap -- )
 | 
				
			||||||
    dup heap-empty? [ drop ] [
 | 
					    [ drop handle ] slurp-heap ;
 | 
				
			||||||
        [ heap-pop drop handle ] keep (allocate-registers)
 | 
					 | 
				
			||||||
    ] if ;
 | 
					 | 
				
			||||||
 | 
					
 | 
				
			||||||
: finish-allocation ( -- )
 | 
					: finish-allocation ( -- )
 | 
				
			||||||
    active-intervals inactive-intervals
 | 
					    active-intervals inactive-intervals
 | 
				
			||||||
| 
						 | 
					
 | 
				
			||||||
		Loading…
	
		Reference in New Issue