Mercurial > projects > dstress
comparison run/a/asm_naked_01.d @ 1572:169ba9b6cb5d
[Issue 1013] Invalid code generated for naked functions with (u)long arguments
<madou@madou.org>
2007-03-01
http://d.puremagic.com/issues/show_bug.cgi?id=1013
author | thomask |
---|---|
date | Thu, 21 Feb 2008 15:18:50 +0000 |
parents | |
children |
comparison
equal
deleted
inserted
replaced
1571:b6eb7f46f42c | 1572:169ba9b6cb5d |
---|---|
1 // $HeadURL$ | |
2 // $Date$ | |
3 // $Author$ | |
4 | |
5 // @author@ <madou@madou.org> | |
6 // @date@ 2007-03-01 | |
7 // @uri@ http://d.puremagic.com/issues/show_bug.cgi?id=1013 | |
8 // @desc@ [Issue 1013] Invalid code generated for naked functions with (u)long arguments | |
9 | |
10 module dstress.run.a.asm_naked_01; | |
11 | |
12 version(D_InlineAsm_X86){ | |
13 version(GNU){ | |
14 const RET_SIZE = 0; | |
15 }else{ | |
16 const RET_SIZE = 8; | |
17 } | |
18 long test(long l){ | |
19 asm{ | |
20 naked; | |
21 mov EDX, [ESP+0x8]; | |
22 mov EAX, [ESP+0x4]; | |
23 add EAX, 0x1; | |
24 adc EDX, 0x1; | |
25 ret RET_SIZE; | |
26 } | |
27 } | |
28 | |
29 int main(){ | |
30 if(0x1234_567A_0000_0000 != test(0x1234_5678_FFFF_FFFF)){ | |
31 assert(0); | |
32 } | |
33 | |
34 return 0; | |
35 } | |
36 }else{ | |
37 pragma(msg, "DSTRESS{XFAIL}: no matching inline ASM support"); | |
38 static assert(0); | |
39 } | |
40 |