Mercurial > projects > ldc
view tests/mini/callingconv1.d @ 1646:a8fc855f156e
Don't remove an old .o with -output-{bc,ll,s}.
author | Matti Niemenmaa <matti.niemenmaa+hg@iki.fi> |
---|---|
date | Tue, 09 Mar 2010 23:21:48 +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); }