Subversion Repositories Kolibri OS

Rev

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

Rev 1635 Rev 2130
Line 7... Line 7...
7 
    end if
 7 
    end if
8 
  \}
 8 
  \}
9 
}
 9 
}
10 
 
 10 
 
Line 11... Line 11...
11 
$Revision: 1055 $
 11 
$Revision: 2130 $
Line 12... Line 12...
12 
 
 12 
 
13 
 
 13 
 
14 
; structure definition helper
 14 
; structure definition helper
15 
macro struct name, [arg]
 15 
macro struct name, [arg]
16 
 {
 16 
 {
17 
  common
 17 
  common
18 
   name@struct equ name
 18 
   name@struct equ name
Line -... Line 19...
- 
 
 19 
   struc name arg {
- 
 
 20 
 }
- 
 
 21 
 
19 
   struc name arg {
 22 
macro declare_sizeof xname,value
20 
 }
 23 
{ sizeof.#xname = value }
21 
 
 24 
 
22 
macro struct_helper name
 25 
macro struct_helper name
23 
 {
 26 
 {
24 
  match xname,name
 27 
  match xname,name
25 
  \{
 28 
  \{
26 
   virtual at 0
 29 
   virtual at 0
27 
   xname xname
 30 
   xname xname
28 
   sizeof.#xname = $ - xname
 31 
   declare_sizeof xname, $ - xname
29 
   name equ sizeof.#xname
 32 
   name equ sizeof.#xname