Mercurial > projects > ldc
view tests/mini/naked_asm6.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
extern(C) int printf(char*, ...); ulong retval() { version (X86) asm { naked; mov EAX, 0xff; mov EDX, 0xaa; ret; } else version (X86_64) asm { naked; mov RAX, 0xaa000000ff; ret; } } ulong retval2() { return (cast(ulong)0xaa << 32) | 0xff; } void main() { auto a = retval(); auto b = retval2(); printf("%llu\n%llu\n", retval(), retval2()); assert(a == 0xaa000000ff); assert(a == b); }