Mercurial > projects > ldc
view tests/mini/callingconv1.d @ 1651:cb960b882ca3 default tip
bindings were moved to dsource.org/projects/bindings/
author | Moritz Warning <moritzwarning@web.de> |
---|---|
date | Thu, 20 May 2010 20:05:03 +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); }