jscript: Pass global object as this if 'this' argument is null or undefined in Functi...
[wine/multimedia.git] / dlls / msvcrt / misc.c
blob082c38bacc42bbcb59e3cbdfbb2cb15d7a39c82d
1 /*
2 * msvcrt.dll misc functions
4 * Copyright 2000 Jon Griffiths
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
21 #include "config.h"
22 #include "wine/port.h"
24 #include <stdlib.h>
26 #include "msvcrt.h"
27 #include "wine/debug.h"
29 WINE_DEFAULT_DEBUG_CHANNEL(msvcrt);
32 /*********************************************************************
33 * _beep (MSVCRT.@)
35 void CDECL _beep( unsigned int freq, unsigned int duration)
37 TRACE(":Freq %d, Duration %d\n",freq,duration);
38 Beep(freq, duration);
41 /*********************************************************************
42 * srand (MSVCRT.@)
44 void CDECL MSVCRT_srand( unsigned int seed )
46 thread_data_t *data = msvcrt_get_thread_data();
47 data->random_seed = seed;
50 /*********************************************************************
51 * rand (MSVCRT.@)
53 int CDECL MSVCRT_rand(void)
55 thread_data_t *data = msvcrt_get_thread_data();
57 /* this is the algorithm used by MSVC, according to
58 * http://en.wikipedia.org/wiki/List_of_pseudorandom_number_generators */
59 data->random_seed = data->random_seed * 214013 + 2531011;
60 return (data->random_seed >> 16) & MSVCRT_RAND_MAX;
63 /*********************************************************************
64 * _sleep (MSVCRT.@)
66 void CDECL MSVCRT__sleep(MSVCRT_ulong timeout)
68 TRACE("_sleep for %d milliseconds\n",timeout);
69 Sleep((timeout)?timeout:1);
72 /*********************************************************************
73 * _lfind (MSVCRT.@)
75 void* CDECL _lfind(const void* match, const void* start,
76 unsigned int* array_size, unsigned int elem_size,
77 int (*cf)(const void*,const void*) )
79 unsigned int size = *array_size;
80 if (size)
83 if (cf(match, start) == 0)
84 return (void *)start; /* found */
85 start = (const char *)start + elem_size;
86 } while (--size);
87 return NULL;
90 /*********************************************************************
91 * _lsearch (MSVCRT.@)
93 void* CDECL _lsearch(const void* match, void* start,
94 unsigned int* array_size, unsigned int elem_size,
95 int (*cf)(const void*,const void*) )
97 unsigned int size = *array_size;
98 if (size)
101 if (cf(match, start) == 0)
102 return start; /* found */
103 start = (char*)start + elem_size;
104 } while (--size);
106 /* not found, add to end */
107 memcpy(start, match, elem_size);
108 array_size[0]++;
109 return start;
112 /*********************************************************************
113 * _chkesp (MSVCRT.@)
115 * Trap to a debugger if the value of the stack pointer has changed.
117 * PARAMS
118 * None.
120 * RETURNS
121 * Does not return.
123 * NOTES
124 * This function is available for iX86 only.
126 * When VC++ generates debug code, it stores the value of the stack pointer
127 * before calling any external function, and checks the value following
128 * the call. It then calls this function, which will trap if the values are
129 * not the same. Usually this means that the prototype used to call
130 * the function is incorrect. It can also mean that the .spec entry has
131 * the wrong calling convention or parameters.
133 #ifdef __i386__
135 # ifdef __GNUC__
137 __ASM_GLOBAL_FUNC(_chkesp,
138 "jnz 1f\n\t"
139 "ret\n"
140 "1:\tpushl %ebp\n\t"
141 __ASM_CFI(".cfi_adjust_cfa_offset 4\n\t")
142 __ASM_CFI(".cfi_rel_offset %ebp,0\n\t")
143 "movl %esp,%ebp\n\t"
144 __ASM_CFI(".cfi_def_cfa_register %ebp\n\t")
145 "subl $12,%esp\n\t"
146 "pushl %eax\n\t"
147 "pushl %ecx\n\t"
148 "pushl %edx\n\t"
149 "call " __ASM_NAME("MSVCRT_chkesp_fail") "\n\t"
150 "popl %edx\n\t"
151 "popl %ecx\n\t"
152 "popl %eax\n\t"
153 "leave\n\t"
154 __ASM_CFI(".cfi_def_cfa %esp,4\n\t")
155 __ASM_CFI(".cfi_same_value %ebp\n\t")
156 "ret")
158 void CDECL MSVCRT_chkesp_fail(void)
160 ERR("Stack pointer incorrect after last function call - Bad prototype/spec entry?\n");
161 DebugBreak();
164 # else /* __GNUC__ */
166 /**********************************************************************/
168 void CDECL _chkesp(void)
172 # endif /* __GNUC__ */
174 #endif /* __i386__ */