Subversion Repositories Kolibri OS

Rev

Rev 837 | Blame | Compare with Previous | Last modification | View Log | Download | RSS feed

  1. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  2. ;;                                                              ;;
  3. ;; Copyright (C) KolibriOS team 2004-2007. All rights reserved. ;;
  4. ;; Distributed under terms of the GNU General Public License    ;;
  5. ;;                                                              ;;
  6. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  7.  
  8. $Revision: 854 $
  9.  
  10. ; Macroinstruction for making export section
  11.  
  12.  
  13. macro export dllname,[label,string]
  14.  { common
  15.     local module,addresses,names,ordinal,count
  16.     count = 0
  17.    forward
  18.     count = count+1
  19.    common
  20.     dd 0,0,0, (module+(0x100000000-OS_BASE)) , 1
  21.     dd count,count,(addresses+(0x100000000-OS_BASE)),(names+(0x100000000-OS_BASE)),(ordinal+(0x100000000-OS_BASE))
  22.     addresses:
  23.    forward
  24.     dd (label+(0x100000000-OS_BASE))
  25.    common
  26.     names:
  27.    forward
  28.     local name
  29.     dd (name+(0x100000000-OS_BASE))
  30.    common
  31.     ordinal: count = 0
  32.    forward
  33.     dw count
  34.     count = count+1
  35.    common
  36.     module db dllname,0
  37.    forward
  38.     name db string,0
  39.  }
  40.