Mercurial > projects > dstress
diff run/mini/callingconv1.d @ 1628:c6ef09dfba4d
add mini test set from ldc project
author | Moritz Warning <moritzwarning@web.de> |
---|---|
date | Mon, 10 Jan 2011 19:47:18 +0100 |
parents | |
children |
line wrap: on
line diff
--- /dev/null Thu Jan 01 00:00:00 1970 +0000 +++ b/run/mini/callingconv1.d Mon Jan 10 19:47:18 2011 +0100 @@ -0,0 +1,60 @@ +module mini.callingconv1; + +extern(C) int printf(char*, ...); + +float foo(float a, float b) +{ + return a + b; +} + +void main() +{ + float a = 1.5; + float b = 2.5; + float c; + + version(D_InlineAsm_X86) + { + version(Windows) + { + asm + { + movss XMM0, [a]; + movss XMM1, [b]; + movss [ESP], XMM1; + movss [ESP]+4, XMM0; + call foo; + fstp [c]-4; + movss XMM0, [c]-4; + movss [c], XMM0; + } + } else + { + + asm + { + mov EAX, [a]; + push EAX; + mov EAX, [b]; + push EAX; + call foo; + fstp c; + } + } + } + else version(D_InlineAsm_X86_64) + { + asm + { + movss XMM0, [a]; + movss XMM1, [b]; + call foo; + movss [c], XMM0; + } + } + printf("%f\n", c); + + assert(c == 4.0); + + printf("passed %f\n", c); +}