| 
									
										
										
										
											2009-02-06 05:38:31 -05:00
										 |  |  | ! Copyright (C) 2009 Slava Pestov. | 
					
						
							|  |  |  | ! See http://factorcode.org/license.txt for BSD license. | 
					
						
							| 
									
										
										
										
											2009-09-15 18:38:49 -04:00
										 |  |  | USING: alien.c-types alien.complex.functor accessors | 
					
						
							| 
									
										
										
										
											2009-02-12 09:10:21 -05:00
										 |  |  | sequences kernel ;
 | 
					
						
							| 
									
										
										
										
											2009-02-06 05:38:31 -05:00
										 |  |  | IN: alien.complex | 
					
						
							|  |  |  | 
 | 
					
						
							| 
									
										
										
										
											2009-02-12 09:10:21 -05:00
										 |  |  | << | 
					
						
							|  |  |  | { "float" "double" } [ dup "complex-" prepend define-complex-type ] each
 | 
					
						
							| 
									
										
										
										
											2010-02-21 13:28:42 -05:00
										 |  |  | >> | 
					
						
							| 
									
										
										
										
											2009-02-12 09:10:21 -05:00
										 |  |  | 
 | 
					
						
							| 
									
										
										
										
											2010-02-21 13:28:42 -05:00
										 |  |  | << | 
					
						
							| 
									
										
										
										
											2009-02-12 09:10:21 -05:00
										 |  |  | ! This overrides the fact that small structures are never returned | 
					
						
							|  |  |  | ! in registers on NetBSD, Linux and Solaris running on 32-bit x86. | 
					
						
							| 
									
										
										
										
											2010-02-21 13:28:42 -05:00
										 |  |  | \ complex-float c-type t >>return-in-registers? drop
 | 
					
						
							| 
									
										
										
										
											2009-08-13 20:21:44 -04:00
										 |  |  | >> |