mirror of
				https://github.com/ruby/ruby.git
				synced 2022-11-09 12:17:21 -05:00 
			
		
		
		
	 4ff3f20540
			
		
	
	
		4ff3f20540
		
	
	
	
	
		
			
			According to MSVC manual (*1), cl.exe can skip including a header file when that: - contains #pragma once, or - starts with #ifndef, or - starts with #if ! defined. GCC has a similar trick (*2), but it acts more stricter (e. g. there must be _no tokens_ outside of #ifndef...#endif). Sun C lacked #pragma once for a looong time. Oracle Developer Studio 12.5 finally implemented it, but we cannot assume such recent version. This changeset modifies header files so that each of them include strictly one #ifndef...#endif. I believe this is the most portable way to trigger compiler optimizations. [Bug #16770] *1: https://docs.microsoft.com/en-us/cpp/preprocessor/once *2: https://gcc.gnu.org/onlinedocs/cppinternals/Guard-Macros.html
		
			
				
	
	
		
			29 lines
		
	
	
	
		
			1 KiB
		
	
	
	
		
			C
		
	
	
	
	
	
			
		
		
	
	
			29 lines
		
	
	
	
		
			1 KiB
		
	
	
	
		
			C
		
	
	
	
	
	
| #ifndef INTERNAL_COMPLEX_H                               /*-*-C-*-vi:se ft=c:*/
 | |
| #define INTERNAL_COMPLEX_H
 | |
| /**
 | |
|  * @file
 | |
|  * @author     Ruby developers <ruby-core@ruby-lang.org>
 | |
|  * @copyright  This  file  is   a  part  of  the   programming  language  Ruby.
 | |
|  *             Permission  is hereby  granted,  to  either redistribute  and/or
 | |
|  *             modify this file, provided that  the conditions mentioned in the
 | |
|  *             file COPYING are met.  Consult the file for details.
 | |
|  * @brief      Internal header for Complex.
 | |
|  */
 | |
| #include "ruby/3/value.h"          /* for struct RBasic */
 | |
| 
 | |
| struct RComplex {
 | |
|     struct RBasic basic;
 | |
|     VALUE real;
 | |
|     VALUE imag;
 | |
| };
 | |
| 
 | |
| #define RCOMPLEX(obj) (R_CAST(RComplex)(obj))
 | |
| 
 | |
| /* shortcut macro for internal only */
 | |
| #define RCOMPLEX_SET_REAL(cmp, r) RB_OBJ_WRITE((cmp), &RCOMPLEX(cmp)->real, (r))
 | |
| #define RCOMPLEX_SET_IMAG(cmp, i) RB_OBJ_WRITE((cmp), &RCOMPLEX(cmp)->imag, (i))
 | |
| 
 | |
| /* complex.c */
 | |
| VALUE rb_dbl_complex_new_polar_pi(double abs, double ang);
 | |
| 
 | |
| #endif /* INTERNAL_COMPLEX_H */
 |