compiler: rt-safepoint and rel-safepoint words
							parent
							
								
									e1465308cd
								
							
						
					
					
						commit
						98fa51f0e0
					
				| 
						 | 
					@ -102,6 +102,9 @@ MEMO: cached-string>symbol ( symbol -- obj ) string>symbol ;
 | 
				
			||||||
: rel-inline-cache-miss ( class -- )
 | 
					: rel-inline-cache-miss ( class -- )
 | 
				
			||||||
    rt-inline-cache-miss add-relocation ;
 | 
					    rt-inline-cache-miss add-relocation ;
 | 
				
			||||||
 | 
					
 | 
				
			||||||
 | 
					: rel-safepoint ( class -- )
 | 
				
			||||||
 | 
					    rt-safepoint add-relocation ;
 | 
				
			||||||
 | 
					
 | 
				
			||||||
: init-relocation ( -- )
 | 
					: init-relocation ( -- )
 | 
				
			||||||
    V{ } clone parameter-table set
 | 
					    V{ } clone parameter-table set
 | 
				
			||||||
    V{ } clone literal-table set
 | 
					    V{ } clone literal-table set
 | 
				
			||||||
| 
						 | 
					
 | 
				
			||||||
| 
						 | 
					@ -70,6 +70,7 @@ CONSTANT: rt-decks-offset 11
 | 
				
			||||||
CONSTANT: rt-exception-handler 12
 | 
					CONSTANT: rt-exception-handler 12
 | 
				
			||||||
CONSTANT: rt-dlsym-toc 13
 | 
					CONSTANT: rt-dlsym-toc 13
 | 
				
			||||||
CONSTANT: rt-inline-cache-miss 14
 | 
					CONSTANT: rt-inline-cache-miss 14
 | 
				
			||||||
 | 
					CONSTANT: rt-safepoint 15
 | 
				
			||||||
 | 
					
 | 
				
			||||||
: rc-absolute? ( n -- ? )
 | 
					: rc-absolute? ( n -- ? )
 | 
				
			||||||
    ${
 | 
					    ${
 | 
				
			||||||
| 
						 | 
					
 | 
				
			||||||
		Loading…
	
		Reference in New Issue