git.oblomov.eu Git - wine/blob - dlls/msvcr90/msvcr90.c

   1 /*
   2  * msvcr90 specific functions
   3  *
   4  * Copyright 2010 Detlef Riekenberg
   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., 51 Franklin St, Fifth Floor, Boston, MA 02110-1301, USA
  19  */
  20
  21 #include <stdarg.h>
  22
  23 #include "stdlib.h"
  24 #include "windef.h"
  25 #include "winbase.h"
  26 #include "wine/debug.h"
  27
  28 WINE_DEFAULT_DEBUG_CHANNEL(msvcr90);
  29
  30 typedef int (CDECL *_INITTERM_E_FN)(void);
  31
  32 /*********************************************************************
  33  *  DllMain (MSVCR90.@)
  34  */
  35 BOOL WINAPI DllMain(HINSTANCE hdll, DWORD reason, LPVOID reserved)
  36 {
  37     switch (reason)
  38     {
  39     case DLL_WINE_PREATTACH:
  40         return FALSE;  /* prefer native version */
  41
  42     case DLL_PROCESS_ATTACH:
  43         DisableThreadLibraryCalls(hdll);
  44     }
  45     return TRUE;
  46 }
  47
  48 /*********************************************************************
  49  *  _decode_pointer (MSVCR90.@)
  50  *
  51  * cdecl version of DecodePointer
  52  *
  53  */
  54 void * CDECL MSVCR90_decode_pointer(void * ptr)
  55 {
  56     return DecodePointer(ptr);
  57 }
  58
  59 /*********************************************************************
  60  *  _encode_pointer (MSVCR90.@)
  61  *
  62  * cdecl version of EncodePointer
  63  *
  64  */
  65 void * CDECL MSVCR90_encode_pointer(void * ptr)
  66 {
  67     return EncodePointer(ptr);
  68 }
  69
  70 /*********************************************************************
  71  *  _encoded_null (MSVCR90.@)
  72  */
  73 void * CDECL _encoded_null(void)
  74 {
  75     TRACE("\n");
  76
  77     return MSVCR90_encode_pointer(NULL);
  78 }
  79
  80 /*********************************************************************
  81  *  _initterm_e (MSVCR90.@)
  82  *
  83  * call an array of application initialization functions and report the return value
  84  */
  85 int CDECL _initterm_e(_INITTERM_E_FN *table, _INITTERM_E_FN *end)
  86 {
  87     int res = 0;
  88
  89     TRACE("(%p, %p)\n", table, end);
  90
  91     while (!res && table < end) {
  92         if (*table) {
  93             res = (**table)();
  94             if (res)
  95                 TRACE("function %p failed: 0x%x\n", *table, res);
  96
  97         }
  98         table++;
  99     }
 100     return res;
 101 }
 102
 103 /*********************************************************************
 104  * _invalid_parameter_noinfo (MSVCR90.@)
 105  */
 106 void CDECL _invalid_parameter_noinfo(void)
 107 {
 108     _invalid_parameter( NULL, NULL, NULL, 0, 0 );
 109 }
 110
 111 /*********************************************************************
 112  * __sys_nerr (MSVCR90.@)
 113  */
 114 int* CDECL __sys_nerr(void)
 115 {
 116         return (int*)GetProcAddress(GetModuleHandleA("msvcrt.dll"), "_sys_nerr");
 117 }
 118
 119 /*********************************************************************
 120  *  __sys_errlist (MSVCR90.@)
 121  */
 122 char** CDECL __sys_errlist(void)
 123 {
 124     return (char**)GetProcAddress(GetModuleHandleA("msvcrt.dll"), "_sys_errlist");
 125 }
 126
 127 /*********************************************************************
 128  * __clean_type_info_names_internal (MSVCR90.@)
 129  */
 130 void CDECL __clean_type_info_names_internal(void *p)
 131 {
 132     FIXME("(%p) stub\n", p);
 133 }