Mercurial > projects > ldc
view tests/mini/callingconv1.d @ 1448:e92e14690a4f
change mingw32 versioning to version(Windows)
author | Kelly Wilson <wilsonk cpsc.ucalgary.ca> |
---|---|
date | Sun, 31 May 2009 11:20:26 -0600 |
parents | a400b1dd657f |
children |
line wrap: on
line source
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); }