Subversion Repositories Kolibri OS

Rev

Rev 41 | Rev 73 | Go to most recent revision | Show entire file | Regard whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 41 Rev 43
Line 12... Line 12...
12 
 
 12 
 
13 
; structure definition helper
 13 
; structure definition helper
14 
macro struct name, [arg]
 14 
macro struct name, [arg]
15 
 {
 15 
 {
16 
  common
 16 
  common
17 
   name@struct fix name
 17 
   name@struct equ name
18 
   struc name arg {
 18 
   struc name arg {
Line 19... Line 19...
19 
 }
 19 
 }
20 
 
 20 
 
- 
 
 21 
macro struct_helper name
- 
 
 22 
 {
21 
macro struct_helper name
 23 
  match xname,name
22 
 {
 24 
  \{
23 
   virtual at 0
 25 
   virtual at 0
24 
   name name
 26 
   xname xname
25 
   sizeof.#name = $ - name
 27 
   sizeof.#xname = $ - xname
- 
 
 28 
   name equ sizeof.#xname
26 
   name equ sizeof.#name
 29 
   end virtual
Line 27... Line 30...
27 
   end virtual
 30 
  \}
Line 28... Line 31...
28 
 }
 31 
 }