Subversion Repositories Kolibri OS

Rev

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

  1. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  2. ;;                                                              ;;
  3. ;; Copyright (C) KolibriOS team 2004-2024. All rights reserved. ;;
  4. ;; Distributed under terms of the GNU General Public License    ;;
  5. ;;                                                              ;;
  6. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  7.  
  8.  
  9. ; Macroinstruction for making export section
  10.  
  11.  
  12. macro export dllname,[label,string]
  13.  { common
  14.     local module,addresses,names,ordinal,count
  15.     count = 0
  16.    forward
  17.     count = count+1
  18.    common
  19.     dd 0,0,0, (module - OS_BASE) , 1
  20.     dd count,count,(addresses - OS_BASE),(names - OS_BASE),(ordinal - OS_BASE)
  21.     addresses:
  22.    forward
  23.     dd (label - OS_BASE)
  24.    common
  25.     names:
  26.    forward
  27.     local name
  28.     dd (name - OS_BASE)
  29.    common
  30.     ordinal:
  31.              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.