Subversion Repositories Kolibri OS

Rev

Blame | Last modification | View Log | Download | RSS feed

  1.  
  2. ; Macroinstructions for making import section
  3.  
  4. macro library [name,string]
  5.  { common
  6.      import.data:
  7.    forward
  8.      local _label
  9.      if defined name#.lookup
  10.        if name#.lookup.size
  11.          dd name#.lookup,_label
  12.        end if
  13.      end if
  14.      name#.referred = 1
  15.    common
  16.      dd 0
  17.    forward
  18.      if defined name#.lookup
  19.        if name#.lookup.size
  20.          align 4
  21.          db '/sys/lib/'
  22.          _label db string,0
  23.        end if
  24.      end if }
  25.  
  26. macro import name,[label,string]
  27.  { common
  28.     align 4
  29.     if defined name#.referred
  30.      name#.lookup:
  31.    forward
  32.      if used label
  33.       local _label
  34.       label dd _label
  35.      end if
  36.    common
  37.      if $ > name#.lookup
  38.       dd 0
  39.      end if
  40.      name#.lookup.size=$ - name#.lookup
  41.    forward
  42.      if used label
  43.       align 4
  44.       _label db string,0
  45.      end if
  46.    common
  47.     end if }
  48.  
  49. macro api [name] {}