This repository is a mirror!

Artifact 5ec3b30a10ea341660eae1544328ccfdd125d753:

• File freshlib/macros/Win32/_executable.inc — part of check-in [320c5d7116] at 2018-01-08 14:48:22 on branch FreshLibDev — Probably fixed the problem with the disp macro and relocatible labels (_display.inc). Improved the Linux GetFineTimestamp procedure (Linux/debug.asm). Fixed (partially) the generation of fixup section for DLLs. This feature (and generally DLL support) needs more work to be done. (user: johnfound size: 2829) [more...]

; _______________________________________________________________________________________
;|                                                                                       |
;| ..::FreshLib::..  Free, open source. Licensed under "BSD 2-clause" license."          |
;|_______________________________________________________________________________________|
;
;  Description: Executable file formating macro library.
;
;  Target OS: Win32
;
;  Dependencies:
;
;  Notes:
;_________________________________________________________________________________________

TargetOS equ Win32
strTargetOS equ 'Win32'

; model can be "compact", "default", "manual"

macro @BinaryType type, model {
  if type eq GUI
    format PE GUI 4.0
    entry start
  end if

  if type eq console
    format PE Console 4.0
    entry start
  end if

  if type eq DLL
    format PE GUI 4.0 DLL
    entry EntryPoint
  end if


  postpone \{
    ?FAKE_COMPILE = 0
    match =TRUE, ___FAKE_COMPILE \\{
      ?FAKE_COMPILE = 1
    \\}

    if ?FAKE_COMPILE = 0
  ; imports
      if model eq compact
        data import
      else
        if (model eq )|(model eq default)
          section '.idata' import readable
        else
        end if
      end if

      if ~(model eq manual)
        \__create_all_imports
      end if

      if model eq compact
        end data
      end if

  ; global data
      if (model eq )|(model eq default)
        section '.data' data readable writeable
      end if

      if ~(model eq manual)
        \IncludeAllGlobals
      end if

      if type eq DLL
        section '.reloc' fixups data readable discardable
        DispSize "fixups section", $-$$
        if $=$$
          dd 0,8          ; if there are no fixups, generate dummy entry
        end if
      end if
    end if
  \}

  section '.code' code readable writeable executable
}



macro __create_dll_list {
  DynamicLibList equ
  rept DynamicLibList@count i:1 \{
    match any, DynamicLibList \\{
      match name:filename, DynamicLibList\\#i \\\{
        DynamicLibList equ DynamicLibList, name, \\\`name\\\#'.dll'
      \\\}
    \\}

    match , DynamicLibList \\{
      match name:filename, DynamicLibList\\#i \\\{
        DynamicLibList equ name, \\\`name\\\#'.dll'
      \\\}
    \\}
  \}
}

macro __create_all_imports {
   __create_dll_list

   match liblist, DynamicLibList \{
     library liblist
   \}

  rept DynamicLibList@count i:1 \{
    match name:filename, DynamicLibList\#i \\{
      \\include filename
    \\}
  \}
}


;macro @AllImportSection {
;  section '.idata' import readable
;    __create_all_imports
;}


;macro @AllImportEmbeded {
;  data import
;    __create_all_imports
;  end data
;}