loader/module.c

   1 /*
   2  * Modules
   3  *
   4  * Copyright 1995 Alexandre Julliard
   5  *
   6  * This library is free software; you can redistribute it and/or
   7  * modify it under the terms of the GNU Lesser General Public
   8  * License as published by the Free Software Foundation; either
   9  * version 2.1 of the License, or (at your option) any later version.
  10  *
  11  * This library is distributed in the hope that it will be useful,
  12  * but WITHOUT ANY WARRANTY; without even the implied warranty of
  13  * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
  14  * Lesser General Public License for more details.
  15  *
  16  * You should have received a copy of the GNU Lesser General Public
  17  * License along with this library; if not, write to the Free Software
  18  * Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA  02111-1307  USA
  19  */
  20
  21 #include "config.h"
  22 #include "wine/port.h"
  23
  24 #include <assert.h>
  25 #include <fcntl.h>
  26 #include <stdlib.h>
  27 #include <stdarg.h>
  28 #include <stdio.h>
  29 #include <string.h>
  30 #include <sys/types.h>
  31 #ifdef HAVE_UNISTD_H
  32 # include <unistd.h>
  33 #endif
  34 #include "wine/winbase16.h"
  35 #include "winerror.h"
  36 #include "ntstatus.h"
  37 #include "windef.h"
  38 #include "winbase.h"
  39 #include "winreg.h"
  40 #include "winternl.h"
  41 #include "heap.h"
  42 #include "thread.h"
  43 #include "file.h"
  44 #include "module.h"
  45
  46 #include "wine/debug.h"
  47 #include "wine/unicode.h"
  48 #include "wine/server.h"
  49
  50 WINE_DEFAULT_DEBUG_CHANNEL(module);
  51 WINE_DECLARE_DEBUG_CHANNEL(win32);
  52 WINE_DECLARE_DEBUG_CHANNEL(loaddll);
  53
  54
  55 /****************************************************************************
  56  *              DisableThreadLibraryCalls (KERNEL32.@)
  57  *
  58  * Don't call DllEntryPoint for DLL_THREAD_{ATTACH,DETACH} if set.
  59  */
  60 BOOL WINAPI DisableThreadLibraryCalls( HMODULE hModule )
  61 {
  62     NTSTATUS    nts = LdrDisableThreadCalloutsForDll( hModule );
  63     if (nts == STATUS_SUCCESS) return TRUE;
  64
  65     SetLastError( RtlNtStatusToDosError( nts ) );
  66     return FALSE;
  67 }
  68
  69
  70 /* Check whether a file is an OS/2 or a very old Windows executable
  71  * by testing on import of KERNEL.
  72  *
  73  * FIXME: is reading the module imports the only way of discerning
  74  *        old Windows binaries from OS/2 ones ? At least it seems so...
  75  */
  76 static enum binary_type MODULE_Decide_OS2_OldWin(HANDLE hfile, const IMAGE_DOS_HEADER *mz,
  77                                                  const IMAGE_OS2_HEADER *ne)
  78 {
  79     DWORD currpos = SetFilePointer( hfile, 0, NULL, SEEK_CUR);
  80     enum binary_type ret = BINARY_OS216;
  81     LPWORD modtab = NULL;
  82     LPSTR nametab = NULL;
  83     DWORD len;
  84     int i;
  85
  86     /* read modref table */
  87     if ( (SetFilePointer( hfile, mz->e_lfanew + ne->ne_modtab, NULL, SEEK_SET ) == -1)
  88       || (!(modtab = HeapAlloc( GetProcessHeap(), 0, ne->ne_cmod*sizeof(WORD))))
  89       || (!(ReadFile(hfile, modtab, ne->ne_cmod*sizeof(WORD), &len, NULL)))
  90       || (len != ne->ne_cmod*sizeof(WORD)) )
  91         goto broken;
  92
  93     /* read imported names table */
  94     if ( (SetFilePointer( hfile, mz->e_lfanew + ne->ne_imptab, NULL, SEEK_SET ) == -1)
  95       || (!(nametab = HeapAlloc( GetProcessHeap(), 0, ne->ne_enttab - ne->ne_imptab)))
  96       || (!(ReadFile(hfile, nametab, ne->ne_enttab - ne->ne_imptab, &len, NULL)))
  97       || (len != ne->ne_enttab - ne->ne_imptab) )
  98         goto broken;
  99
 100     for (i=0; i < ne->ne_cmod; i++)
 101     {
 102         LPSTR module = &nametab[modtab[i]];
 103         TRACE("modref: %.*s\n", module[0], &module[1]);
 104         if (!(strncmp(&module[1], "KERNEL", module[0])))
 105         { /* very old Windows file */
 106             MESSAGE("This seems to be a very old (pre-3.0) Windows executable. Expect crashes, especially if this is a real-mode binary !\n");
 107             ret = BINARY_WIN16;
 108             goto good;
 109         }
 110     }
 111
 112 broken:
 113     ERR("Hmm, an error occurred. Is this binary file broken ?\n");
 114
 115 good:
 116     HeapFree( GetProcessHeap(), 0, modtab);
 117     HeapFree( GetProcessHeap(), 0, nametab);
 118     SetFilePointer( hfile, currpos, NULL, SEEK_SET); /* restore filepos */
 119     return ret;
 120 }
 121
 122 /***********************************************************************
 123  *           MODULE_GetBinaryType
 124  */
 125 enum binary_type MODULE_GetBinaryType( HANDLE hfile )
 126 {
 127     union
 128     {
 129         struct
 130         {
 131             unsigned char magic[4];
 132             unsigned char ignored[12];
 133             unsigned short type;
 134         } elf;
 135         struct
 136         {
 137             unsigned long magic;
 138             unsigned long cputype;
 139             unsigned long cpusubtype;
 140             unsigned long filetype;
 141         } macho;
 142         IMAGE_DOS_HEADER mz;
 143     } header;
 144
 145     char magic[4];
 146     DWORD len;
 147
 148     /* Seek to the start of the file and read the header information. */
 149     if (SetFilePointer( hfile, 0, NULL, SEEK_SET ) == -1)
 150         return BINARY_UNKNOWN;
 151     if (!ReadFile( hfile, &header, sizeof(header), &len, NULL ) || len != sizeof(header))
 152         return BINARY_UNKNOWN;
 153
 154     if (!memcmp( header.elf.magic, "\177ELF", 4 ))
 155     {
 156         /* FIXME: we don't bother to check byte order, architecture, etc. */
 157         switch(header.elf.type)
 158         {
 159         case 2: return BINARY_UNIX_EXE;
 160         case 3: return BINARY_UNIX_LIB;
 161         }
 162         return BINARY_UNKNOWN;
 163     }
 164
 165     /* Mach-o File with Endian set to Big Endian  or Little Endian*/
 166     if (header.macho.magic == 0xfeedface || header.macho.magic == 0xecafdeef)
 167     {
 168         switch(header.macho.filetype)
 169         {
 170             case 0x8: /* MH_BUNDLE */ return BINARY_UNIX_LIB;
 171         }
 172         return BINARY_UNKNOWN;
 173     }
 174
 175     /* Not ELF, try DOS */
 176
 177     if (header.mz.e_magic == IMAGE_DOS_SIGNATURE)
 178     {
 179         /* We do have a DOS image so we will now try to seek into
 180          * the file by the amount indicated by the field
 181          * "Offset to extended header" and read in the
 182          * "magic" field information at that location.
 183          * This will tell us if there is more header information
 184          * to read or not.
 185          */
 186         /* But before we do we will make sure that header
 187          * structure encompasses the "Offset to extended header"
 188          * field.
 189          */
 190         if (header.mz.e_lfanew < sizeof(IMAGE_DOS_HEADER))
 191             return BINARY_DOS;
 192         if (SetFilePointer( hfile, header.mz.e_lfanew, NULL, SEEK_SET ) == -1)
 193             return BINARY_DOS;
 194         if (!ReadFile( hfile, magic, sizeof(magic), &len, NULL ) || len != sizeof(magic))
 195             return BINARY_DOS;
 196
 197         /* Reading the magic field succeeded so
 198          * we will try to determine what type it is.
 199          */
 200         if (!memcmp( magic, "PE\0\0", 4 ))
 201         {
 202             IMAGE_FILE_HEADER FileHeader;
 203
 204             if (ReadFile( hfile, &FileHeader, sizeof(FileHeader), &len, NULL ) && len == sizeof(FileHeader))
 205             {
 206                 if (FileHeader.Characteristics & IMAGE_FILE_DLL) return BINARY_PE_DLL;
 207                 return BINARY_PE_EXE;
 208             }
 209             return BINARY_DOS;
 210         }
 211
 212         if (!memcmp( magic, "NE", 2 ))
 213         {
 214             /* This is a Windows executable (NE) header.  This can
 215              * mean either a 16-bit OS/2 or a 16-bit Windows or even a
 216              * DOS program (running under a DOS extender).  To decide
 217              * which, we'll have to read the NE header.
 218              */
 219             IMAGE_OS2_HEADER ne;
 220             if (    SetFilePointer( hfile, header.mz.e_lfanew, NULL, SEEK_SET ) != -1
 221                     && ReadFile( hfile, &ne, sizeof(ne), &len, NULL )
 222                     && len == sizeof(ne) )
 223             {
 224                 switch ( ne.ne_exetyp )
 225                 {
 226                 case 2:  return BINARY_WIN16;
 227                 case 5:  return BINARY_DOS;
 228                 default: return MODULE_Decide_OS2_OldWin(hfile, &header.mz, &ne);
 229                 }
 230             }
 231             /* Couldn't read header, so abort. */
 232             return BINARY_DOS;
 233         }
 234
 235         /* Unknown extended header, but this file is nonetheless DOS-executable. */
 236         return BINARY_DOS;
 237     }
 238
 239     return BINARY_UNKNOWN;
 240 }
 241
 242 /***********************************************************************
 243  *             GetBinaryTypeA                     [KERNEL32.@]
 244  *             GetBinaryType                      [KERNEL32.@]
 245  *
 246  * The GetBinaryType function determines whether a file is executable
 247  * or not and if it is it returns what type of executable it is.
 248  * The type of executable is a property that determines in which
 249  * subsystem an executable file runs under.
 250  *
 251  * Binary types returned:
 252  * SCS_32BIT_BINARY: A Win32 based application
 253  * SCS_DOS_BINARY: An MS-Dos based application
 254  * SCS_WOW_BINARY: A Win16 based application
 255  * SCS_PIF_BINARY: A PIF file that executes an MS-Dos based app
 256  * SCS_POSIX_BINARY: A POSIX based application ( Not implemented )
 257  * SCS_OS216_BINARY: A 16bit OS/2 based application
 258  *
 259  * Returns TRUE if the file is an executable in which case
 260  * the value pointed by lpBinaryType is set.
 261  * Returns FALSE if the file is not an executable or if the function fails.
 262  *
 263  * To do so it opens the file and reads in the header information
 264  * if the extended header information is not present it will
 265  * assume that the file is a DOS executable.
 266  * If the extended header information is present it will
 267  * determine if the file is a 16 or 32 bit Windows executable
 268  * by check the flags in the header.
 269  *
 270  * Note that .COM and .PIF files are only recognized by their
 271  * file name extension; but Windows does it the same way ...
 272  */
 273 BOOL WINAPI GetBinaryTypeA( LPCSTR lpApplicationName, LPDWORD lpBinaryType )
 274 {
 275     BOOL ret = FALSE;
 276     HANDLE hfile;
 277     char *ptr;
 278
 279     TRACE_(win32)("%s\n", lpApplicationName );
 280
 281     /* Sanity check.
 282      */
 283     if ( lpApplicationName == NULL || lpBinaryType == NULL )
 284         return FALSE;
 285
 286     /* Open the file indicated by lpApplicationName for reading.
 287      */
 288     hfile = CreateFileA( lpApplicationName, GENERIC_READ, FILE_SHARE_READ,
 289                          NULL, OPEN_EXISTING, 0, 0 );
 290     if ( hfile == INVALID_HANDLE_VALUE )
 291         return FALSE;
 292
 293     /* Check binary type
 294      */
 295     switch(MODULE_GetBinaryType( hfile ))
 296     {
 297     case BINARY_UNKNOWN:
 298         /* try to determine from file name */
 299         ptr = strrchr( lpApplicationName, '.' );
 300         if (!ptr) break;
 301         if (!FILE_strcasecmp( ptr, ".COM" ))
 302         {
 303             *lpBinaryType = SCS_DOS_BINARY;
 304             ret = TRUE;
 305         }
 306         else if (!FILE_strcasecmp( ptr, ".PIF" ))
 307         {
 308             *lpBinaryType = SCS_PIF_BINARY;
 309             ret = TRUE;
 310         }
 311         break;
 312     case BINARY_PE_EXE:
 313     case BINARY_PE_DLL:
 314         *lpBinaryType = SCS_32BIT_BINARY;
 315         ret = TRUE;
 316         break;
 317     case BINARY_WIN16:
 318         *lpBinaryType = SCS_WOW_BINARY;
 319         ret = TRUE;
 320         break;
 321     case BINARY_OS216:
 322         *lpBinaryType = SCS_OS216_BINARY;
 323         ret = TRUE;
 324         break;
 325     case BINARY_DOS:
 326         *lpBinaryType = SCS_DOS_BINARY;
 327         ret = TRUE;
 328         break;
 329     case BINARY_UNIX_EXE:
 330     case BINARY_UNIX_LIB:
 331         ret = FALSE;
 332         break;
 333     }
 334
 335     CloseHandle( hfile );
 336     return ret;
 337 }
 338
 339 /***********************************************************************
 340  *             GetBinaryTypeW                      [KERNEL32.@]
 341  */
 342 BOOL WINAPI GetBinaryTypeW( LPCWSTR lpApplicationName, LPDWORD lpBinaryType )
 343 {
 344     BOOL ret = FALSE;
 345     LPSTR strNew = NULL;
 346
 347     TRACE_(win32)("%s\n", debugstr_w(lpApplicationName) );
 348
 349     /* Sanity check.
 350      */
 351     if ( lpApplicationName == NULL || lpBinaryType == NULL )
 352         return FALSE;
 353
 354     /* Convert the wide string to a ascii string.
 355      */
 356     strNew = HEAP_strdupWtoA( GetProcessHeap(), 0, lpApplicationName );
 357
 358     if ( strNew != NULL )
 359     {
 360         ret = GetBinaryTypeA( strNew, lpBinaryType );
 361
 362         /* Free the allocated string.
 363          */
 364         HeapFree( GetProcessHeap(), 0, strNew );
 365     }
 366
 367     return ret;
 368 }
 369
 370
 371 /***********************************************************************
 372  *              GetModuleHandleA         (KERNEL32.@)
 373  *              GetModuleHandle32        (KERNEL.488)
 374  */
 375 HMODULE WINAPI GetModuleHandleA(LPCSTR module)
 376 {
 377     NTSTATUS            nts;
 378     HMODULE             ret;
 379     UNICODE_STRING      wstr;
 380
 381     if (!module) return NtCurrentTeb()->Peb->ImageBaseAddress;
 382
 383     RtlCreateUnicodeStringFromAsciiz(&wstr, module);
 384     nts = LdrGetDllHandle(0, 0, &wstr, &ret);
 385     RtlFreeUnicodeString( &wstr );
 386     if (nts != STATUS_SUCCESS)
 387     {
 388         ret = 0;
 389         SetLastError( RtlNtStatusToDosError( nts ) );
 390     }
 391     return ret;
 392 }
 393
 394 /***********************************************************************
 395  *              GetModuleHandleW (KERNEL32.@)
 396  */
 397 HMODULE WINAPI GetModuleHandleW(LPCWSTR module)
 398 {
 399     NTSTATUS            nts;
 400     HMODULE             ret;
 401     UNICODE_STRING      wstr;
 402
 403     if (!module) return NtCurrentTeb()->Peb->ImageBaseAddress;
 404
 405     RtlInitUnicodeString( &wstr, module );
 406     nts = LdrGetDllHandle( 0, 0, &wstr, &ret);
 407     if (nts != STATUS_SUCCESS)
 408     {
 409         SetLastError( RtlNtStatusToDosError( nts ) );
 410         ret = 0;
 411     }
 412     return ret;
 413 }
 414
 415
 416 /***********************************************************************
 417  *              GetModuleFileNameA      (KERNEL32.@)
 418  *              GetModuleFileName32     (KERNEL.487)
 419  *
 420  * GetModuleFileNameA seems to *always* return the long path;
 421  * it's only GetModuleFileName16 that decides between short/long path
 422  * by checking if exe version >= 4.0.
 423  * (SDK docu doesn't mention this)
 424  */
 425 DWORD WINAPI GetModuleFileNameA(
 426         HMODULE hModule,        /* [in] module handle (32bit) */
 427         LPSTR lpFileName,       /* [out] filenamebuffer */
 428         DWORD size )            /* [in] size of filenamebuffer */
 429 {
 430     LPWSTR filenameW = HeapAlloc( GetProcessHeap(), 0, size * sizeof(WCHAR) );
 431
 432     if (!filenameW)
 433     {
 434         SetLastError( ERROR_NOT_ENOUGH_MEMORY );
 435         return 0;
 436     }
 437     GetModuleFileNameW( hModule, filenameW, size );
 438     WideCharToMultiByte( CP_ACP, 0, filenameW, -1, lpFileName, size, NULL, NULL );
 439     HeapFree( GetProcessHeap(), 0, filenameW );
 440     return strlen( lpFileName );
 441 }
 442
 443 /***********************************************************************
 444  *              GetModuleFileNameW      (KERNEL32.@)
 445  */
 446 DWORD WINAPI GetModuleFileNameW( HMODULE hModule, LPWSTR lpFileName, DWORD size )
 447 {
 448     ULONG magic;
 449
 450     lpFileName[0] = 0;
 451
 452     LdrLockLoaderLock( 0, NULL, &magic );
 453     if (!hModule && !(NtCurrentTeb()->tibflags & TEBF_WIN32))
 454     {
 455         /* 16-bit task - get current NE module name */
 456         NE_MODULE *pModule = NE_GetPtr( GetCurrentTask() );
 457         if (pModule)
 458         {
 459             WCHAR    path[MAX_PATH];
 460
 461             MultiByteToWideChar( CP_ACP, 0, NE_MODULE_NAME(pModule), -1, path, MAX_PATH );
 462             GetLongPathNameW(path, lpFileName, size);
 463         }
 464     }
 465     else
 466     {
 467         LDR_MODULE* pldr;
 468         NTSTATUS    nts;
 469
 470         if (!hModule) hModule = NtCurrentTeb()->Peb->ImageBaseAddress;
 471         nts = LdrFindEntryForAddress( hModule, &pldr );
 472         if (nts == STATUS_SUCCESS) lstrcpynW(lpFileName, pldr->FullDllName.Buffer, size);
 473         else SetLastError( RtlNtStatusToDosError( nts ) );
 474
 475     }
 476     LdrUnlockLoaderLock( 0, magic );
 477
 478     TRACE( "%s\n", debugstr_w(lpFileName) );
 479     return strlenW(lpFileName);
 480 }
 481
 482 /******************************************************************
 483  *              load_library_as_datafile
 484  */
 485 static BOOL load_library_as_datafile( LPCWSTR name, HMODULE* hmod)
 486 {
 487     static const WCHAR dotDLL[] = {'.','d','l','l',0};
 488
 489     WCHAR filenameW[MAX_PATH];
 490     HANDLE hFile = INVALID_HANDLE_VALUE;
 491     HANDLE mapping;
 492
 493     *hmod = 0;
 494
 495     if (SearchPathW( NULL, (LPCWSTR)name, dotDLL, sizeof(filenameW) / sizeof(filenameW[0]),
 496                      filenameW, NULL ))
 497     {
 498         hFile = CreateFileW( filenameW, GENERIC_READ, FILE_SHARE_READ,
 499                              NULL, OPEN_EXISTING, 0, 0 );
 500     }
 501     if (hFile == INVALID_HANDLE_VALUE) return FALSE;
 502     switch (MODULE_GetBinaryType( hFile ))
 503     {
 504     case BINARY_PE_EXE:
 505     case BINARY_PE_DLL:
 506         mapping = CreateFileMappingW( hFile, NULL, PAGE_READONLY, 0, 0, NULL );
 507         if (mapping)
 508         {
 509             *hmod = MapViewOfFile( mapping, FILE_MAP_READ, 0, 0, 0 );
 510             CloseHandle( mapping );
 511         }
 512         break;
 513     default:
 514         break;
 515     }
 516     CloseHandle( hFile );
 517
 518     return *hmod != 0;
 519 }
 520
 521 /******************************************************************
 522  *              LoadLibraryExA          (KERNEL32.@)
 523  *
 524  * The HFILE parameter is not used and marked reserved in the SDK. I can
 525  * only guess that it should force a file to be mapped, but I rather
 526  * ignore the parameter because it would be extremely difficult to
 527  * integrate this with different types of module representations.
 528  *
 529  */
 530 HMODULE WINAPI LoadLibraryExA(LPCSTR libname, HANDLE hfile, DWORD flags)
 531 {
 532     UNICODE_STRING      wstr;
 533     NTSTATUS            nts;
 534     HMODULE             hModule;
 535
 536     if (!libname)
 537     {
 538         SetLastError(ERROR_INVALID_PARAMETER);
 539         return 0;
 540     }
 541     RtlCreateUnicodeStringFromAsciiz( &wstr, libname );
 542
 543     if (flags & LOAD_LIBRARY_AS_DATAFILE)
 544     {
 545         /* The method in load_library_as_datafile allows searching for the
 546          * 'native' libraries only
 547          */
 548         if (load_library_as_datafile( wstr.Buffer, &hModule))
 549         {
 550             RtlFreeUnicodeString( &wstr );
 551             return (HMODULE)((ULONG_PTR)hModule + 1);
 552         }
 553         flags |= DONT_RESOLVE_DLL_REFERENCES; /* Just in case */
 554         /* Fallback to normal behaviour */
 555     }
 556
 557     nts = LdrLoadDll(NULL, flags, &wstr, &hModule);
 558     if (nts != STATUS_SUCCESS)
 559     {
 560         hModule = 0;
 561         SetLastError( RtlNtStatusToDosError( nts ) );
 562     }
 563     RtlFreeUnicodeString( &wstr );
 564
 565     return hModule;
 566 }
 567
 568 /***********************************************************************
 569  *           LoadLibraryExW       (KERNEL32.@)
 570  */
 571 HMODULE WINAPI LoadLibraryExW(LPCWSTR libnameW, HANDLE hfile, DWORD flags)
 572 {
 573     UNICODE_STRING      wstr;
 574     NTSTATUS            nts;
 575     HMODULE             hModule;
 576
 577     if (!libnameW)
 578     {
 579         SetLastError(ERROR_INVALID_PARAMETER);
 580         return 0;
 581     }
 582
 583     if (flags & LOAD_LIBRARY_AS_DATAFILE)
 584     {
 585         /* The method in load_library_as_datafile allows searching for the
 586          * 'native' libraries only
 587          */
 588         if (load_library_as_datafile(libnameW, &hModule))
 589             return (HMODULE)((ULONG_PTR)hModule + 1);
 590         flags |= DONT_RESOLVE_DLL_REFERENCES; /* Just in case */
 591         /* Fallback to normal behaviour */
 592     }
 593
 594     RtlInitUnicodeString( &wstr, libnameW );
 595     nts = LdrLoadDll(NULL, flags, &wstr, &hModule);
 596     if (nts != STATUS_SUCCESS)
 597     {
 598         hModule = 0;
 599         SetLastError( RtlNtStatusToDosError( nts ) );
 600     }
 601     return hModule;
 602 }
 603
 604 /***********************************************************************
 605  *           LoadLibraryA         (KERNEL32.@)
 606  */
 607 HMODULE WINAPI LoadLibraryA(LPCSTR libname)
 608 {
 609     return LoadLibraryExA(libname, 0, 0);
 610 }
 611
 612 /***********************************************************************
 613  *           LoadLibraryW         (KERNEL32.@)
 614  */
 615 HMODULE WINAPI LoadLibraryW(LPCWSTR libnameW)
 616 {
 617     return LoadLibraryExW(libnameW, 0, 0);
 618 }
 619
 620 /***********************************************************************
 621  *           FreeLibrary   (KERNEL32.@)
 622  *           FreeLibrary32 (KERNEL.486)
 623  */
 624 BOOL WINAPI FreeLibrary(HINSTANCE hLibModule)
 625 {
 626     BOOL                retv = FALSE;
 627     NTSTATUS            nts;
 628
 629     if (!hLibModule)
 630     {
 631         SetLastError( ERROR_INVALID_HANDLE );
 632         return FALSE;
 633     }
 634
 635     if ((ULONG_PTR)hLibModule & 1)
 636     {
 637         /* this is a LOAD_LIBRARY_AS_DATAFILE module */
 638         char *ptr = (char *)hLibModule - 1;
 639         UnmapViewOfFile( ptr );
 640         return TRUE;
 641     }
 642
 643     if ((nts = LdrUnloadDll( hLibModule )) == STATUS_SUCCESS) retv = TRUE;
 644     else SetLastError( RtlNtStatusToDosError( nts ) );
 645
 646     return retv;
 647 }
 648
 649 /***********************************************************************
 650  *           GetProcAddress             (KERNEL32.@)
 651  */
 652 FARPROC WINAPI GetProcAddress( HMODULE hModule, LPCSTR function )
 653 {
 654     NTSTATUS    nts;
 655     FARPROC     fp;
 656
 657     if (HIWORD(function))
 658     {
 659         ANSI_STRING     str;
 660
 661         RtlInitAnsiString( &str, function );
 662         nts = LdrGetProcedureAddress( hModule, &str, 0, (void**)&fp );
 663     }
 664     else
 665         nts = LdrGetProcedureAddress( hModule, NULL, (DWORD)function, (void**)&fp );
 666     if (nts != STATUS_SUCCESS)
 667     {
 668         SetLastError( RtlNtStatusToDosError( nts ) );
 669         fp = NULL;
 670     }
 671     return fp;
 672 }
 673
 674 /***********************************************************************
 675  *           GetProcAddress32                   (KERNEL.453)
 676  */
 677 FARPROC WINAPI GetProcAddress32_16( HMODULE hModule, LPCSTR function )
 678 {
 679     /* FIXME: we used to disable snoop when returning proc for Win16 subsystem */
 680     return GetProcAddress( hModule, function );
 681 }