view run/i/ieee_754_flt2int_C.d @ 1630:d0efa3ae5522 default tip

run/mini/naked_asm5: New x86_64 ABI passes the arguments in reverse order.
author David Nadlinger <code@klickverbot.at>
date Sat, 23 Apr 2011 22:57:32 +0200
parents 9dcac8d4e97f
children
line wrap: on
line source

// $HeadURL$
// $Date$
// $Author$

module dstress.run.i.ieee_754_flt2int_C;

int main(){
	size_t border;

	if((long.sizeof * 8) - 1 < float.dig * 3){
		border = (long.sizeof * 8) - 1;
	}else{
		border = float.dig * 3;
	}

	for(size_t i = 0; i < border; i++){
		float a = 1.0;
		for(size_t j = i; j > 0; j--){
			a *= 2.0;
		}
		long b = cast(long) a;
		float c = a;

		if(c != a){
			assert(0);
		}
	}

	for(size_t i = 0; i < border; i++){
		float a = -1.0;
		for(size_t j = i; j > 0; j--){
			a *= 2.0;
		}
		long b = cast(long) a;
		float c = a;

		if(c != a){
			assert(0);
		}
	}

	return 0;
}