view tests/mini/callingconv1.d @ 1638:0de4525a9ed6

Apply workaround for #395 by klickverbot.
author Christian Kamm <kamm incasoftware de>
date Mon, 08 Mar 2010 20:06:08 +0100
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);
}