annotate doc/disas_examples/x86.stdcall.disas @ 471:4e84d6faed54

- "
author Tassilo Philipp
date Mon, 07 Feb 2022 23:29:24 +0100
parents
children cb19b2fe2422
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
rev   line source
471
Tassilo Philipp
parents:
diff changeset
1 ; #include <stdlib.h>
Tassilo Philipp
parents:
diff changeset
2 ;
Tassilo Philipp
parents:
diff changeset
3 ; void __stdcall leaf_call(int b, int c, int d, int e, int f, int g, int h)
Tassilo Philipp
parents:
diff changeset
4 ; {
Tassilo Philipp
parents:
diff changeset
5 ; }
Tassilo Philipp
parents:
diff changeset
6 ;
Tassilo Philipp
parents:
diff changeset
7 ; void __stdcall nonleaf_call(int a, int b, int c, int d, int e, int f, int g, int h)
Tassilo Philipp
parents:
diff changeset
8 ; {
Tassilo Philipp
parents:
diff changeset
9 ; /* use some local data */
Tassilo Philipp
parents:
diff changeset
10 ; *(char*)alloca(220) = 'L';
Tassilo Philipp
parents:
diff changeset
11 ; leaf_call(b, c, d, e, f, g, h);
Tassilo Philipp
parents:
diff changeset
12 ; }
Tassilo Philipp
parents:
diff changeset
13 ;
Tassilo Philipp
parents:
diff changeset
14 ; int main()
Tassilo Philipp
parents:
diff changeset
15 ; {
Tassilo Philipp
parents:
diff changeset
16 ; nonleaf_call(0, 1, 2, 3, 4, 5, 6, 7);
Tassilo Philipp
parents:
diff changeset
17 ; return 0;
Tassilo Philipp
parents:
diff changeset
18 ; }
Tassilo Philipp
parents:
diff changeset
19
Tassilo Philipp
parents:
diff changeset
20
Tassilo Philipp
parents:
diff changeset
21
Tassilo Philipp
parents:
diff changeset
22 ; output from godbolt compiler explorer w/ msvc 19.14 (w/ /GS- for simplicity)
Tassilo Philipp
parents:
diff changeset
23
Tassilo Philipp
parents:
diff changeset
24 _leaf_call@28 PROC
Tassilo Philipp
parents:
diff changeset
25 push ebp
Tassilo Philipp
parents:
diff changeset
26 mov ebp, esp
Tassilo Philipp
parents:
diff changeset
27 pop ebp
Tassilo Philipp
parents:
diff changeset
28 ret 28
Tassilo Philipp
parents:
diff changeset
29 _leaf_call@28 ENDP
Tassilo Philipp
parents:
diff changeset
30
Tassilo Philipp
parents:
diff changeset
31 _b$ = 12
Tassilo Philipp
parents:
diff changeset
32 _c$ = 16
Tassilo Philipp
parents:
diff changeset
33 _d$ = 20
Tassilo Philipp
parents:
diff changeset
34 _e$ = 24
Tassilo Philipp
parents:
diff changeset
35 _f$ = 28
Tassilo Philipp
parents:
diff changeset
36 _g$ = 32
Tassilo Philipp
parents:
diff changeset
37 _h$ = 36
Tassilo Philipp
parents:
diff changeset
38 _nonleaf_call@32 PROC
Tassilo Philipp
parents:
diff changeset
39 push ebp
Tassilo Philipp
parents:
diff changeset
40 mov ebp, esp
Tassilo Philipp
parents:
diff changeset
41 push 220
Tassilo Philipp
parents:
diff changeset
42 call _alloca
Tassilo Philipp
parents:
diff changeset
43 add esp, 4
Tassilo Philipp
parents:
diff changeset
44 mov BYTE PTR [eax], 76
Tassilo Philipp
parents:
diff changeset
45 mov eax, DWORD PTR _h$[ebp]
Tassilo Philipp
parents:
diff changeset
46 push eax
Tassilo Philipp
parents:
diff changeset
47 mov ecx, DWORD PTR _g$[ebp]
Tassilo Philipp
parents:
diff changeset
48 push ecx
Tassilo Philipp
parents:
diff changeset
49 mov edx, DWORD PTR _f$[ebp]
Tassilo Philipp
parents:
diff changeset
50 push edx
Tassilo Philipp
parents:
diff changeset
51 mov eax, DWORD PTR _e$[ebp]
Tassilo Philipp
parents:
diff changeset
52 push eax
Tassilo Philipp
parents:
diff changeset
53 mov ecx, DWORD PTR _d$[ebp]
Tassilo Philipp
parents:
diff changeset
54 push ecx
Tassilo Philipp
parents:
diff changeset
55 mov edx, DWORD PTR _c$[ebp]
Tassilo Philipp
parents:
diff changeset
56 push edx
Tassilo Philipp
parents:
diff changeset
57 mov eax, DWORD PTR _b$[ebp]
Tassilo Philipp
parents:
diff changeset
58 push eax
Tassilo Philipp
parents:
diff changeset
59 call _leaf_call@28
Tassilo Philipp
parents:
diff changeset
60 pop ebp
Tassilo Philipp
parents:
diff changeset
61 ret 32
Tassilo Philipp
parents:
diff changeset
62 _nonleaf_call@32 ENDP
Tassilo Philipp
parents:
diff changeset
63
Tassilo Philipp
parents:
diff changeset
64 _main PROC
Tassilo Philipp
parents:
diff changeset
65 push ebp
Tassilo Philipp
parents:
diff changeset
66 mov ebp, esp
Tassilo Philipp
parents:
diff changeset
67 push 7
Tassilo Philipp
parents:
diff changeset
68 push 6
Tassilo Philipp
parents:
diff changeset
69 push 5
Tassilo Philipp
parents:
diff changeset
70 push 4
Tassilo Philipp
parents:
diff changeset
71 push 3
Tassilo Philipp
parents:
diff changeset
72 push 2
Tassilo Philipp
parents:
diff changeset
73 push 1
Tassilo Philipp
parents:
diff changeset
74 push 0
Tassilo Philipp
parents:
diff changeset
75 call _nonleaf_call@32
Tassilo Philipp
parents:
diff changeset
76 xor eax, eax
Tassilo Philipp
parents:
diff changeset
77 pop ebp
Tassilo Philipp
parents:
diff changeset
78 ret 0
Tassilo Philipp
parents:
diff changeset
79 _main ENDP
Tassilo Philipp
parents:
diff changeset
80
Tassilo Philipp
parents:
diff changeset
81
Tassilo Philipp
parents:
diff changeset
82
Tassilo Philipp
parents:
diff changeset
83 ; ---------- structs by value, struct in first call on reg arg boundary ---------->
Tassilo Philipp
parents:
diff changeset
84 ;
Tassilo Philipp
parents:
diff changeset
85 ; struct A { int x; short y; char z; long long t; };
Tassilo Philipp
parents:
diff changeset
86 ;
Tassilo Philipp
parents:
diff changeset
87 ; struct A __stdcall leaf_call(struct A a, short b, long long c, char d, int e, int f, int g, long long h)
Tassilo Philipp
parents:
diff changeset
88 ; {
Tassilo Philipp
parents:
diff changeset
89 ; a.x += 1;
Tassilo Philipp
parents:
diff changeset
90 ; return a;
Tassilo Philipp
parents:
diff changeset
91 ; }
Tassilo Philipp
parents:
diff changeset
92 ;
Tassilo Philipp
parents:
diff changeset
93 ; int main()
Tassilo Philipp
parents:
diff changeset
94 ; {
Tassilo Philipp
parents:
diff changeset
95 ; struct A a = {9, 99, 23, 12LL};
Tassilo Philipp
parents:
diff changeset
96 ; leaf_call(a, 1, 2, 3, 4, 5, 6, 7LL);
Tassilo Philipp
parents:
diff changeset
97 ; return 0;
Tassilo Philipp
parents:
diff changeset
98 ; }
Tassilo Philipp
parents:
diff changeset
99
Tassilo Philipp
parents:
diff changeset
100
Tassilo Philipp
parents:
diff changeset
101
Tassilo Philipp
parents:
diff changeset
102 ; output from godbolt compiler explorer w/ msvc 19.14 (w/ /GS- for simplicity)
Tassilo Philipp
parents:
diff changeset
103
Tassilo Philipp
parents:
diff changeset
104 $T1 = 8
Tassilo Philipp
parents:
diff changeset
105 _a$ = 12
Tassilo Philipp
parents:
diff changeset
106 _leaf_call@52 PROC
Tassilo Philipp
parents:
diff changeset
107 push ebp ; | prolog
Tassilo Philipp
parents:
diff changeset
108 mov ebp, esp ; /
Tassilo Philipp
parents:
diff changeset
109 mov eax, DWORD PTR _a$[ebp] ; \
Tassilo Philipp
parents:
diff changeset
110 add eax, 1 ; | get struct's x (from stack args), add 1 and write back
Tassilo Philipp
parents:
diff changeset
111 mov DWORD PTR _a$[ebp], eax ; /
Tassilo Philipp
parents:
diff changeset
112 mov ecx, DWORD PTR $T1[ebp] ; get ptr to retval struct passed as hidden arg (+8 to skip retval and saved ebp)
Tassilo Philipp
parents:
diff changeset
113 mov edx, DWORD PTR _a$[ebp] ; |
Tassilo Philipp
parents:
diff changeset
114 mov DWORD PTR [ecx], edx ; |
Tassilo Philipp
parents:
diff changeset
115 mov eax, DWORD PTR _a$[ebp+4] ; |
Tassilo Philipp
parents:
diff changeset
116 mov DWORD PTR [ecx+4], eax ; | copy modified (b/c of x+=1) struct arg to space of retval
Tassilo Philipp
parents:
diff changeset
117 mov edx, DWORD PTR _a$[ebp+8] ; |
Tassilo Philipp
parents:
diff changeset
118 mov DWORD PTR [ecx+8], edx ; |
Tassilo Philipp
parents:
diff changeset
119 mov eax, DWORD PTR _a$[ebp+12] ; |
Tassilo Philipp
parents:
diff changeset
120 mov DWORD PTR [ecx+12], eax ; |
Tassilo Philipp
parents:
diff changeset
121 mov eax, DWORD PTR $T1[ebp] ; return value (= ptr to struct that was passed-in as hidden arg)
Tassilo Philipp
parents:
diff changeset
122 pop ebp ; |
Tassilo Philipp
parents:
diff changeset
123 ret 56 ; | epilog (56 = stack cleanup of stdcall)
Tassilo Philipp
parents:
diff changeset
124 _leaf_call@52 ENDP
Tassilo Philipp
parents:
diff changeset
125
Tassilo Philipp
parents:
diff changeset
126 $T1 = -32
Tassilo Philipp
parents:
diff changeset
127 _a$ = -16
Tassilo Philipp
parents:
diff changeset
128 _main PROC
Tassilo Philipp
parents:
diff changeset
129 push ebp ; |
Tassilo Philipp
parents:
diff changeset
130 mov ebp, esp ; | prolog
Tassilo Philipp
parents:
diff changeset
131 sub esp, 32 ; / 32 = 16b local area for struct + 16b space used for retval struct
Tassilo Philipp
parents:
diff changeset
132 mov DWORD PTR _a$[ebp], 9 ; \ int x
Tassilo Philipp
parents:
diff changeset
133 mov eax, 99 ; | |
Tassilo Philipp
parents:
diff changeset
134 mov WORD PTR _a$[ebp+4], ax ; | struct values (local area) | short y
Tassilo Philipp
parents:
diff changeset
135 mov BYTE PTR _a$[ebp+6], 23 ; | char z
Tassilo Philipp
parents:
diff changeset
136 mov DWORD PTR _a$[ebp+8], 12 ; | |
Tassilo Philipp
parents:
diff changeset
137 mov DWORD PTR _a$[ebp+12], 0 ; / | long long t
Tassilo Philipp
parents:
diff changeset
138 push 0 ; \
Tassilo Philipp
parents:
diff changeset
139 push 7 ; | arg 7
Tassilo Philipp
parents:
diff changeset
140 push 6 ; arg 6
Tassilo Philipp
parents:
diff changeset
141 push 5 ; arg 5
Tassilo Philipp
parents:
diff changeset
142 push 4 ; arg 4
Tassilo Philipp
parents:
diff changeset
143 push 3 ; arg 3
Tassilo Philipp
parents:
diff changeset
144 push 0 ; |
Tassilo Philipp
parents:
diff changeset
145 push 2 ; arg 2
Tassilo Philipp
parents:
diff changeset
146 push 1 ; arg 1
Tassilo Philipp
parents:
diff changeset
147 sub esp, 16 ; |
Tassilo Philipp
parents:
diff changeset
148 mov ecx, esp ; |
Tassilo Philipp
parents:
diff changeset
149 mov edx, DWORD PTR _a$[ebp] ; |
Tassilo Philipp
parents:
diff changeset
150 mov DWORD PTR [ecx], edx ; |
Tassilo Philipp
parents:
diff changeset
151 mov eax, DWORD PTR _a$[ebp+4] ; |
Tassilo Philipp
parents:
diff changeset
152 mov DWORD PTR [ecx+4], eax ; | arg 0 (struct), "pushed" onto stack (fetched from local area)
Tassilo Philipp
parents:
diff changeset
153 mov edx, DWORD PTR _a$[ebp+8] ; |
Tassilo Philipp
parents:
diff changeset
154 mov DWORD PTR [ecx+8], edx ; |
Tassilo Philipp
parents:
diff changeset
155 mov eax, DWORD PTR _a$[ebp+12] ; |
Tassilo Philipp
parents:
diff changeset
156 mov DWORD PTR [ecx+12], eax ; /
Tassilo Philipp
parents:
diff changeset
157 lea ecx, DWORD PTR $T1[ebp] ; \ ptr to space used for struct retval (pushed as hidden first arg)
Tassilo Philipp
parents:
diff changeset
158 push ecx ; |
Tassilo Philipp
parents:
diff changeset
159 call _leaf_call@52 ; push return address and call
Tassilo Philipp
parents:
diff changeset
160 ; (note: cdecl would clean up stack, here)
Tassilo Philipp
parents:
diff changeset
161 xor eax, eax ; return value
Tassilo Philipp
parents:
diff changeset
162 mov esp, ebp ; |
Tassilo Philipp
parents:
diff changeset
163 pop ebp ; | epilog
Tassilo Philipp
parents:
diff changeset
164 ret 0 ; |
Tassilo Philipp
parents:
diff changeset
165 _main ENDP
Tassilo Philipp
parents:
diff changeset
166
Tassilo Philipp
parents:
diff changeset
167
Tassilo Philipp
parents:
diff changeset
168
Tassilo Philipp
parents:
diff changeset
169 ; vim: ft=asm
Tassilo Philipp
parents:
diff changeset
170