Subversion Repositories Kolibri OS

Rev

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

  1. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  2. ;;                                                              ;;
  3. ;; Copyright (C) KolibriOS team 2004-2015. All rights reserved. ;;
  4. ;; Distributed under terms of the GNU General Public License    ;;
  5. ;;                                                              ;;
  6. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  7.  
  8. $Revision: 5363 $
  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-OS_BASE) , 1
  21.     dd count,count,(addresses-OS_BASE),(names-OS_BASE),(ordinal-OS_BASE)
  22.     addresses:
  23.    forward
  24.     dd (label-OS_BASE)
  25.    common
  26.     names:
  27.    forward
  28.     local name
  29.     dd (name-OS_BASE)
  30.    common
  31.     ordinal:
  32.              count = 0
  33.    forward
  34.     dw count
  35.     count = count+1
  36.    common
  37.     module db dllname,0
  38.    forward
  39.     name db string,0
  40.  }
  41.