Rev 8972 | Go to most recent revision | Show entire file | Regard whitespace | Details | Blame | Last modification | View Log | RSS feed
Rev 8972 | Rev 8978 | ||
---|---|---|---|
Line 78... | Line 78... | ||
78 | \{ define@proc name, |
78 | \{ define@proc name, |
79 | 79 | ||
Line 80... | Line 80... | ||
80 | prologue@proc equ prologuedef |
80 | prologue@proc equ prologuedef |
Line -... | Line 81... | ||
- | 81 | ||
81 | 82 | ; @dont_give_a_doxygen |
|
82 | macro prologuedef procname,flag,parmbytes,localbytes,reglist |
83 | macro prologuedef procname,flag,parmbytes,localbytes,reglist |
83 | { local loc |
84 | { local loc |
84 | loc = (localbytes+3) and (not 3) |
85 | loc = (localbytes+3) and (not 3) |
85 | parmbase@proc equ ebp+8 |
86 | parmbase@proc equ ebp+8 |
Line 94... | Line 95... | ||
94 | irps reg, reglist \{ push reg \} } |
95 | irps reg, reglist \{ push reg \} } |
95 | 96 | ||
Line 96... | Line 97... | ||
96 | epilogue@proc equ epiloguedef |
97 | epilogue@proc equ epiloguedef |
Line -... | Line 98... | ||
- | 98 | ||
97 | 99 | ; @dont_give_a_doxygen |
|
98 | macro epiloguedef procname,flag,parmbytes,localbytes,reglist |
100 | macro epiloguedef procname,flag,parmbytes,localbytes,reglist |
99 | { irps reg, reglist \{ reverse pop reg \} |
101 | { irps reg, reglist \{ reverse pop reg \} |
100 | if parmbytes | localbytes |
102 | if parmbytes | localbytes |
101 | leave |
103 | leave |
Line 107... | Line 109... | ||
107 | end if } |
109 | end if } |
108 | 110 | ||
Line 109... | Line 111... | ||
109 | close@proc equ |
111 | close@proc equ |
Line -... | Line 112... | ||
- | 112 | ||
110 | 113 | ; @dont_give_a_doxygen |
|
111 | macro define@proc name,statement |
114 | macro define@proc name,statement |
112 | { local params,flag,regs,parmbytes,localbytes,current |
115 | { local params,flag,regs,parmbytes,localbytes,current |
113 | if used name |
116 | if used name |
114 | name: |
117 | name: |
Line 165... | Line 168... | ||
165 | \{ localbytes = current |
168 | \{ localbytes = current |
166 | match close:reglist, close@proc: |
169 | match close:reglist, close@proc: |
167 | end if \} } |
170 | end if \} } |
168 | 171 | ||
Line -... | Line 172... | ||
- | 172 | ; @dont_give_a_doxygen |
|
169 | macro defargs@proc [arg] |
173 | macro defargs@proc [arg] |
170 | { common |
174 | { common |
171 | if ~ arg eq |
175 | if ~ arg eq |
172 | forward |
176 | forward |
173 | local ..arg,current@arg |
177 | local ..arg,current@arg |
Line 194... | Line 198... | ||
194 | restore current@arg |
198 | restore current@arg |
195 | common |
199 | common |
196 | end if } |
200 | end if } |
197 | 201 | ||
Line -... | Line 202... | ||
- | 202 | ; @dont_give_a_doxygen |
|
198 | macro deflocal@proc name,def,[val] { name def val } |
203 | macro deflocal@proc name,def,[val] { name def val } |
Line -... | Line 204... | ||
- | 204 | ||
199 | 205 | ; @dont_give_a_doxygen |
|
200 | macro deflocal@proc name,def,[val] |
206 | macro deflocal@proc name,def,[val] |
201 | { common |
207 | { common |
202 | match vars, all@vars \{ all@vars equ all@vars, \} |
208 | match vars, all@vars \{ all@vars equ all@vars, \} |
203 | all@vars equ all@vars name |
209 | all@vars equ all@vars name |
Line 216... | Line 222... | ||
216 | match first rest, ..var, \{ name equ first \} } |
222 | match first rest, ..var, \{ name equ first \} } |
217 | 223 | ||
Line 218... | Line 224... | ||
218 | struc label type { label . type } |
224 | struc label type { label . type } |
Line -... | Line 225... | ||
- | 225 | ||
219 | 226 | ; @dont_give_a_doxygen |
|
220 | macro initlocal@proc name,def |
227 | macro initlocal@proc name,def |
221 | { virtual at name |
228 | { virtual at name |
222 | def |
229 | def |
223 | size@initlocal = $ - name |
230 | size@initlocal = $ - name |