Mercurial > projects > ldc
view tests/mini/callingconv1.d @ 1563:b0a691de8cc7
Fixed bug #349 , now emits error.
author | Tomas Lindquist Olsen <tomas.l.olsen gmail com> |
---|---|
date | Sun, 02 Aug 2009 17:56:30 +0200 |
parents | e92e14690a4f |
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); }