diff run/a/asm_fdivp_01_A.d @ 715:a35e4f0a9049

partial iasm FPU review
author thomask
date Fri, 28 Oct 2005 21:22:25 +0000
parents
children 7b2c5a101190
line wrap: on
line diff
--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/run/a/asm_fdivp_01_A.d	Fri Oct 28 21:22:25 2005 +0000
@@ -0,0 +1,34 @@
+// $HeadURL: svn://127.0.0.1/run/a/asm_fcos_01.d $
+// $Date: 2005-10-04 11:25:00 +0200 (星期二, 04 十月 2005) $
+// $Author: thomask $
+
+// __DSTRESS_DFLAGS__ addon/cpuinfo.d
+
+module dstress.run.a.asm_fdivp_01_A;
+import addon.cpuinfo;
+
+int main(){
+	version(D_InlineAsm){
+		haveFPU();
+		
+		double a = 12.0;
+		double b = -3.0;
+		
+		asm{
+			fld a;
+			fldz;	
+			fld b;
+			fdivp ST(2),ST;
+			fstp a;
+			fstp b;
+		}
+		
+		assert(a == 0.0);
+		assert(b == -4.0);
+		
+		return 0;
+	}else{
+		pragma(msg, "no inline asm support");
+		static assert(0);
+	}
+}
\ No newline at end of file