view tests/mini/naked_asm2.d @ 1065:dc576c7e4b1e

Fix to make sure to create gen/ in build dir and unbreak build with older perl
author Frits van Bommel <fvbommel wxs.nl>
date Sun, 08 Mar 2009 16:37:55 +0100
parents 855889b7b268
children
line wrap: on
line source

int foo()
{
    static size_t fourty2 = 42;
    version(X86)
    asm
    {
        naked;
        mov EAX, fourty2;
        ret;
    }
    else version (X86_64)
    {
      asm
      {
	naked;
	movq RAX,fourty2;
	ret;
      }
    }
    else static assert(0, "todo");
}

void main()
{
    int i = foo();
    printf("i == %d\n", i);
    assert(i == 42);
}

extern(C) int printf(char*, ...);