2016-03-08 08:38:48 -05:00 
										
									 
								 
							 
							
								
									
										 
									 
								
							 
							
								 
							 
							
							
								USING:  byte-arrays  classes.tuple.private  compiler.cfg  compiler.tree 
							 
						 
					
						
							
								
							 
							
								
							 
							
								 
							 
							
							
								help.markup help.syntax ;
 
							 
						 
					
						
							
								
									
										
										
										
											2015-04-08 02:20:55 -04:00 
										
									 
								 
							 
							
								
							 
							
								 
							 
							
							
								IN:  compiler.cfg.intrinsics.allot 
							 
						 
					
						
							
								
							 
							
								
							 
							
								 
							 
							
							
								
							 
						 
					
						
							
								
									
										
										
										
											2015-09-20 05:35:05 -04:00 
										
									 
								 
							 
							
								
									
										 
									 
								
							 
							
								 
							 
							
							
								HELP:  emit-<byte-array> 
							 
						 
					
						
							
								
									
										
										
										
											2016-03-08 08:38:48 -05:00 
										
									 
								 
							 
							
								
									
										 
									 
								
							 
							
								 
							 
							
							
								{ $values
							 
						 
					
						
							
								
							 
							
								
							 
							
								 
							 
							
							
								  { "block"  "current "  { $link basic-block } }
							 
						 
					
						
							
								
							 
							
								
							 
							
								 
							 
							
							
								  { "#call"  node }
							 
						 
					
						
							
								
							 
							
								
							 
							
								 
							 
							
							
								  { "block'"  basic-block }
							 
						 
					
						
							
								
							 
							
								
							 
							
								 
							 
							
							
								}
							 
						 
					
						
							
								
									
										
										
										
											2015-09-20 05:35:05 -04:00 
										
									 
								 
							 
							
								
									
										 
									 
								
							 
							
								 
							 
							
							
								{ $description "Emits optimized cfg instructions for allocating a "  { $link byte-array } "."  } ;
 
							 
						 
					
						
							
								
							 
							
								
							 
							
								 
							 
							
							
								
							 
						 
					
						
							
								
									
										
										
										
											2015-04-08 02:20:55 -04:00 
										
									 
								 
							 
							
								
							 
							
								 
							 
							
							
								HELP:  emit-<tuple-boa> 
							 
						 
					
						
							
								
									
										
										
										
											2016-03-08 08:38:48 -05:00 
										
									 
								 
							 
							
								
									
										 
									 
								
							 
							
								 
							 
							
							
								{ $values
							 
						 
					
						
							
								
							 
							
								
							 
							
								 
							 
							
							
								  { "block"  "current "  { $link basic-block } }
							 
						 
					
						
							
								
							 
							
								
							 
							
								 
							 
							
							
								  { "#call"  #call }
							 
						 
					
						
							
								
							 
							
								
							 
							
								 
							 
							
							
								  { "block'"  basic-block }
							 
						 
					
						
							
								
							 
							
								
							 
							
								 
							 
							
							
								}
							 
						 
					
						
							
								
							 
							
								
							 
							
								 
							 
							
							
								{ $description "Emits intrinsic cfg instructions for building and allocating tuples. The intrinsic condition is that the tuple layout given to "  { $link <tuple-boa> } " must be a literal."  }
							 
						 
					
						
							
								
							 
							
								
							 
							
								 
							 
							
							
								{ $see-also <tuple-boa> } ;
 
							 
						 
					
						
							
								
									
										
										
										
											2015-04-08 02:20:55 -04:00 
										
									 
								 
							 
							
								
							 
							
								 
							 
							
							
								
							 
						 
					
						
							
								
							 
							
								
							 
							
								 
							 
							
							
								ARTICLE: "compiler.cfg.intrinsics.allot"  "Generating instructions for inline memory allocation" 
							 
						 
					
						
							
								
									
										
										
										
											2015-09-20 05:35:05 -04:00 
										
									 
								 
							 
							
								
									
										 
									 
								
							 
							
								 
							 
							
							
								"Generating instructions for inline memory allocation" 
							 
						 
					
						
							
								
							 
							
								
							 
							
								 
							 
							
							
								$nl
							 
						 
					
						
							
								
							 
							
								
							 
							
								 
							 
							
							
								"Emitters:" 
							 
						 
					
						
							
								
									
										
										
										
											2016-03-08 08:38:48 -05:00 
										
									 
								 
							 
							
								
									
										 
									 
								
							 
							
								 
							 
							
							
								{ $subsections
							 
						 
					
						
							
								
							 
							
								
							 
							
								 
							 
							
							
								  emit-(byte-array)
							 
						 
					
						
							
								
							 
							
								
							 
							
								 
							 
							
							
								  emit-<array>
							 
						 
					
						
							
								
							 
							
								
							 
							
								 
							 
							
							
								  emit-<byte-array>
							 
						 
					
						
							
								
							 
							
								
							 
							
								 
							 
							
							
								  emit-<tuple-boa>
							 
						 
					
						
							
								
							 
							
								
							 
							
								 
							 
							
							
								} ;
 
							 
						 
					
						
							
								
									
										
										
										
											2015-04-08 02:20:55 -04:00 
										
									 
								 
							 
							
								
							 
							
								 
							 
							
							
								
							 
						 
					
						
							
								
							 
							
								
							 
							
								 
							 
							
							
								ABOUT: "compiler.cfg.intrinsics.allot"