Mercurial > projects > ldc
view tests/mini/naked_asm5.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 | 1b10a9c6e3e8 |
children | a400b1dd657f |
line wrap: on
line source
int foo(int op)(int a, int b) { version(X86) { const OP = (op == '+') ? "add" : "sub"; asm { naked; } mixin("asm{"~OP~" EAX, [ESP+4];}"); asm { ret 4; } } else version(X86_64) { const OP = (op == '+') ? "add" : "sub"; asm { naked; } mixin("asm{"~OP~" ESI,EDI; mov EAX, ESI;}"); asm { ret; } } else static assert(0, "todo"); } void main() { int i = foo!('+')(2, 4); assert(i == 6); i = foo!('-')(2, 4); assert(i == 2); }