2 * Kernel initialization code
4 * Copyright 2000 Alexandre Julliard
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.
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.
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
22 #include "wine/port.h"
36 #include "wine/library.h"
37 #include "kernel_private.h"
38 #include "console_private.h"
39 #include "wine/debug.h"
41 WINE_DEFAULT_DEBUG_CHANNEL(process
);
43 extern int CDECL
__wine_set_signal_handler(unsigned, int (*)(unsigned));
45 static ULONGLONG server_start_time
;
47 /***********************************************************************
50 static void set_entry_point( HMODULE module
, const char *name
, DWORD rva
)
52 IMAGE_EXPORT_DIRECTORY
*exports
;
55 if ((exports
= RtlImageDirectoryEntryToData( module
, TRUE
,
56 IMAGE_DIRECTORY_ENTRY_EXPORT
, &exp_size
)))
58 DWORD
*functions
= (DWORD
*)((char *)module
+ exports
->AddressOfFunctions
);
59 const WORD
*ordinals
= (const WORD
*)((const char *)module
+ exports
->AddressOfNameOrdinals
);
60 const DWORD
*names
= (const DWORD
*)((const char *)module
+ exports
->AddressOfNames
);
61 int min
= 0, max
= exports
->NumberOfNames
- 1;
65 int res
, pos
= (min
+ max
) / 2;
66 const char *ename
= (const char *)module
+ names
[pos
];
67 if (!(res
= strcmp( ename
, name
)))
69 WORD ordinal
= ordinals
[pos
];
70 assert( ordinal
< exports
->NumberOfFunctions
);
71 TRACE( "setting %s at %p to %08x\n", name
, &functions
[ordinal
], rva
);
72 functions
[ordinal
] = rva
;
75 if (res
> 0) max
= pos
- 1;
82 /***********************************************************************
83 * KERNEL process initialisation routine
85 static BOOL
process_attach( HMODULE module
)
87 SYSTEM_TIMEOFDAY_INFORMATION ti
;
88 RTL_USER_PROCESS_PARAMETERS
*params
= NtCurrentTeb()->Peb
->ProcessParameters
;
90 NtQuerySystemInformation( SystemTimeOfDayInformation
, &ti
, sizeof(ti
), NULL
);
91 server_start_time
= ti
.liKeBootTime
.QuadPart
;
93 /* Setup registry locale information */
94 LOCALE_InitRegistry();
96 /* Setup computer name */
101 /* copy process information from ntdll */
102 ENV_CopyStartupInformation();
104 if (!(GetVersion() & 0x80000000))
106 /* Securom checks for this one when version is NT */
107 set_entry_point( module
, "FT_Thunk", 0 );
109 else LoadLibraryA( "krnl386.exe16" );
111 /* finish the process initialisation for console bits, if needed */
112 __wine_set_signal_handler(SIGINT
, CONSOLE_HandleCtrlC
);
114 if (params
->ConsoleHandle
== KERNEL32_CONSOLE_ALLOC
)
116 HMODULE mod
= GetModuleHandleA(0);
117 if (RtlImageNtHeader(mod
)->OptionalHeader
.Subsystem
== IMAGE_SUBSYSTEM_WINDOWS_CUI
)
120 /* else TODO for DETACHED_PROCESS:
121 * 1/ inherit console + handles
122 * 2/ create std handles, if handles are not inherited
123 * TBD when not using wineserver handles for console handles
129 /***********************************************************************
130 * KERNEL initialisation routine
132 BOOL WINAPI
DllMain( HINSTANCE hinst
, DWORD reason
, LPVOID reserved
)
136 case DLL_PROCESS_ATTACH
:
137 DisableThreadLibraryCalls( hinst
);
138 return process_attach( hinst
);
139 case DLL_PROCESS_DETACH
:
140 WritePrivateProfileSectionW( NULL
, NULL
, NULL
);
147 /***********************************************************************
148 * MulDiv (KERNEL32.@)
150 * Result of multiplication and division
151 * -1: Overflow occurred or Divisor was 0
153 INT WINAPI
MulDiv( INT nMultiplicand
, INT nMultiplier
, INT nDivisor
)
157 if (!nDivisor
) return -1;
159 /* We want to deal with a positive divisor to simplify the logic. */
162 nMultiplicand
= - nMultiplicand
;
163 nDivisor
= -nDivisor
;
166 /* If the result is positive, we "add" to round. else, we subtract to round. */
167 if ( ( (nMultiplicand
< 0) && (nMultiplier
< 0) ) ||
168 ( (nMultiplicand
>= 0) && (nMultiplier
>= 0) ) )
169 ret
= (((LONGLONG
)nMultiplicand
* nMultiplier
) + (nDivisor
/2)) / nDivisor
;
171 ret
= (((LONGLONG
)nMultiplicand
* nMultiplier
) - (nDivisor
/2)) / nDivisor
;
173 if ((ret
> 2147483647) || (ret
< -2147483647)) return -1;
178 /******************************************************************************
179 * GetTickCount64 (KERNEL32.@)
181 ULONGLONG WINAPI
GetTickCount64(void)
185 NtQuerySystemTime( &now
);
186 return (now
.QuadPart
- server_start_time
) / 10000;
190 /***********************************************************************
191 * GetTickCount (KERNEL32.@)
193 * Get the number of milliseconds the system has been running.
199 * The current tick count.
202 * The value returned will wrap around every 2^32 milliseconds.
203 * Under Windows, tick 0 is the moment at which the system is rebooted.
204 * Under Wine, tick 0 begins at the moment the wineserver process is started.
206 DWORD WINAPI
GetTickCount(void)
208 return GetTickCount64();