duktape 0.11.0.0
Sign up to get free protection for your applications and to get access to all the features.
- checksums.yaml +7 -0
- data/ext/duktape/duktape.c +65023 -0
- data/ext/duktape/duktape.h +3668 -0
- data/ext/duktape/duktape_ext.c +184 -0
- data/ext/duktape/extconf.rb +6 -0
- data/lib/duktape.rb +6 -0
- data/lib/duktape/version.rb +4 -0
- metadata +50 -0
@@ -0,0 +1,3668 @@
|
|
1
|
+
/*
|
2
|
+
* Duktape public API for Duktape 0.11.0.
|
3
|
+
* See the API reference for documentation on call semantics.
|
4
|
+
* The exposed API is inside the DUK_API_PUBLIC_H_INCLUDED
|
5
|
+
* include guard. Other parts of the header are Duktape
|
6
|
+
* internal and related to platform/compiler/feature detection.
|
7
|
+
*
|
8
|
+
* Git commit 621b545c474dd7a3def7aefed0557b1a825a4578 (v0.10.0-827-g621b545).
|
9
|
+
*
|
10
|
+
* See Duktape AUTHORS.txt and LICENSE.txt for copyright and
|
11
|
+
* licensing information.
|
12
|
+
*/
|
13
|
+
|
14
|
+
/* LICENSE.txt */
|
15
|
+
/*
|
16
|
+
* ===============
|
17
|
+
* Duktape license
|
18
|
+
* ===============
|
19
|
+
*
|
20
|
+
* (http://opensource.org/licenses/MIT)
|
21
|
+
*
|
22
|
+
* Copyright (c) 2013-2014 by Duktape authors (see AUTHORS.txt)
|
23
|
+
*
|
24
|
+
* Permission is hereby granted, free of charge, to any person obtaining a copy
|
25
|
+
* of this software and associated documentation files (the "Software"), to deal
|
26
|
+
* in the Software without restriction, including without limitation the rights
|
27
|
+
* to use, copy, modify, merge, publish, distribute, sublicense, and/or sell
|
28
|
+
* copies of the Software, and to permit persons to whom the Software is
|
29
|
+
* furnished to do so, subject to the following conditions:
|
30
|
+
*
|
31
|
+
* The above copyright notice and this permission notice shall be included in
|
32
|
+
* all copies or substantial portions of the Software.
|
33
|
+
*
|
34
|
+
* THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR
|
35
|
+
* IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY,
|
36
|
+
* FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE
|
37
|
+
* AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER
|
38
|
+
* LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM,
|
39
|
+
* OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN
|
40
|
+
* THE SOFTWARE.
|
41
|
+
*
|
42
|
+
*/
|
43
|
+
|
44
|
+
/* AUTHORS.txt */
|
45
|
+
/*
|
46
|
+
* ===============
|
47
|
+
* Duktape authors
|
48
|
+
* ===============
|
49
|
+
*
|
50
|
+
* Copyright
|
51
|
+
* =========
|
52
|
+
*
|
53
|
+
* Duktape copyrights are held by its authors. Each author has a copyright
|
54
|
+
* to their contribution, and agrees to irrevocably license the contribution
|
55
|
+
* under the Duktape ``LICENSE.txt``.
|
56
|
+
*
|
57
|
+
* Authors
|
58
|
+
* =======
|
59
|
+
*
|
60
|
+
* Please include an e-mail address, a link to your GitHub profile, or something
|
61
|
+
* similar to allow your contribution to be identified accurately.
|
62
|
+
*
|
63
|
+
* The following people have contributed code and agreed to irrevocably license
|
64
|
+
* their contributions under the Duktape ``LICENSE.txt`` (in order of appearance):
|
65
|
+
*
|
66
|
+
* * Sami Vaarala <sami.vaarala@iki.fi>
|
67
|
+
* * Niki Dobrev
|
68
|
+
* * Andreas \u00d6man <andreas@lonelycoder.com>
|
69
|
+
*
|
70
|
+
* Other contributions
|
71
|
+
* ===================
|
72
|
+
*
|
73
|
+
* The following people have contributed something other than code (e.g. reported
|
74
|
+
* bugs, provided ideas, etc; in order of appearance):
|
75
|
+
*
|
76
|
+
* * Greg Burns
|
77
|
+
* * Anthony Rabine
|
78
|
+
* * Carlos Costa
|
79
|
+
* * Aur\u00e9lien Bouilland
|
80
|
+
* * Preet Desai (Pris Matic)
|
81
|
+
* * judofyr (http://www.reddit.com/user/judofyr)
|
82
|
+
* * Jason Woofenden
|
83
|
+
* * Micha\u0142 Przyby\u015b
|
84
|
+
* * Anthony Howe
|
85
|
+
* * Conrad Pankoff
|
86
|
+
* * Jim Schimpf
|
87
|
+
* * Rajaran Gaunker (https://github.com/zimbabao)
|
88
|
+
* * Andreas \u00d6man
|
89
|
+
* * Doug Sanden
|
90
|
+
* * Remo Eichenberger (https://github.com/remoe)
|
91
|
+
*/
|
92
|
+
|
93
|
+
#ifndef DUKTAPE_H_INCLUDED
|
94
|
+
#define DUKTAPE_H_INCLUDED
|
95
|
+
|
96
|
+
/*
|
97
|
+
* Determine platform features, select feature selection defines
|
98
|
+
* (e.g. _XOPEN_SOURCE), include system headers, and define DUK_USE_XXX
|
99
|
+
* defines which are (only) checked in Duktape internal code for
|
100
|
+
* activated features. Duktape feature selection is based on automatic
|
101
|
+
* feature detection, user supplied DUK_OPT_xxx defines, and optionally
|
102
|
+
* a "duk_custom.h" user header (if DUK_OPT_HAVE_CUSTOM_H is defined).
|
103
|
+
*
|
104
|
+
* When compiling Duktape, DUK_COMPILING_DUKTAPE is set, and this file
|
105
|
+
* is included before any system headers are included. Feature selection
|
106
|
+
* defines (e.g. _XOPEN_SOURCE) are defined here before any system headers
|
107
|
+
* are included (which is a requirement for system headers to work correctly).
|
108
|
+
* This file is responsible for including all system headers and contains
|
109
|
+
* all platform dependent cruft in general. When compiling user code,
|
110
|
+
* DUK_COMPILING_DUKTAPE is not defined, and we must avoid e.g. defining
|
111
|
+
* unnecessary feature selection defines.
|
112
|
+
*
|
113
|
+
* The general order of handling:
|
114
|
+
* - Compiler feature detection (require no includes)
|
115
|
+
* - Intermediate platform detection (-> easier platform defines)
|
116
|
+
* - Platform detection, system includes, byte order detection, etc
|
117
|
+
* - ANSI C wrappers (e.g. DUK_MEMCMP), wrappers for constants, etc
|
118
|
+
* - DUK_USE_xxx defines are resolved based on input defines
|
119
|
+
* - Duktape Date provider settings
|
120
|
+
* - Final sanity checks
|
121
|
+
*
|
122
|
+
* DUK_F_XXX are internal feature detection macros which should not be
|
123
|
+
* used outside this header.
|
124
|
+
*
|
125
|
+
* Useful resources:
|
126
|
+
*
|
127
|
+
* http://sourceforge.net/p/predef/wiki/Home/
|
128
|
+
* http://sourceforge.net/p/predef/wiki/Architectures/
|
129
|
+
* http://stackoverflow.com/questions/5919996/how-to-detect-reliably-mac-os-x-ios-linux-windows-in-c-preprocessor
|
130
|
+
* http://en.wikipedia.org/wiki/C_data_types#Fixed-width_integer_types
|
131
|
+
*
|
132
|
+
* Preprocessor defines available in a particular GCC:
|
133
|
+
*
|
134
|
+
* gcc -dM -E - </dev/null # http://www.brain-dump.org/blog/entry/107
|
135
|
+
*/
|
136
|
+
|
137
|
+
#ifndef DUK_FEATURES_H_INCLUDED
|
138
|
+
#define DUK_FEATURES_H_INCLUDED
|
139
|
+
|
140
|
+
/*
|
141
|
+
* Compiler features
|
142
|
+
*/
|
143
|
+
|
144
|
+
#undef DUK_F_C99
|
145
|
+
#if defined(__STDC_VERSION__) && (__STDC_VERSION__ >= 199901L)
|
146
|
+
#define DUK_F_C99
|
147
|
+
#endif
|
148
|
+
|
149
|
+
#undef DUK_F_CPP
|
150
|
+
#if defined(__cplusplus)
|
151
|
+
#define DUK_F_CPP
|
152
|
+
#endif
|
153
|
+
|
154
|
+
#undef DUK_F_CPP11
|
155
|
+
#if defined(__cplusplus) && (__cplusplus >= 201103L)
|
156
|
+
#define DUK_F_CPP11
|
157
|
+
#endif
|
158
|
+
|
159
|
+
/*
|
160
|
+
* Provides the duk_rdtsc() inline function (if available), limited to
|
161
|
+
* GCC C99.
|
162
|
+
*
|
163
|
+
* See: http://www.mcs.anl.gov/~kazutomo/rdtsc.html
|
164
|
+
*/
|
165
|
+
|
166
|
+
/* XXX: more accurate detection of what gcc versions work; more inline
|
167
|
+
* asm versions for other compilers.
|
168
|
+
*/
|
169
|
+
#if defined(__GNUC__) && defined(__i386__) && defined(DUK_F_C99) && \
|
170
|
+
!defined(__cplusplus) /* unsigned long long not standard */
|
171
|
+
static __inline__ unsigned long long duk_rdtsc(void) {
|
172
|
+
unsigned long long int x;
|
173
|
+
__asm__ volatile (".byte 0x0f, 0x31" : "=A" (x));
|
174
|
+
return x;
|
175
|
+
}
|
176
|
+
#define DUK_RDTSC_AVAILABLE 1
|
177
|
+
#elif defined(__GNUC__) && defined(__x86_64__) && defined(DUK_F_C99) && \
|
178
|
+
!defined(__cplusplus) /* unsigned long long not standard */
|
179
|
+
static __inline__ unsigned long long duk_rdtsc(void) {
|
180
|
+
unsigned hi, lo;
|
181
|
+
__asm__ __volatile__ ("rdtsc" : "=a"(lo), "=d"(hi));
|
182
|
+
return ((unsigned long long) lo) | (((unsigned long long) hi) << 32);
|
183
|
+
}
|
184
|
+
#define DUK_RDTSC_AVAILABLE 1
|
185
|
+
#else
|
186
|
+
/* not available */
|
187
|
+
#undef DUK_RDTSC_AVAILABLE
|
188
|
+
#endif
|
189
|
+
|
190
|
+
/*
|
191
|
+
* Intermediate platform, architecture, and compiler detection. These are
|
192
|
+
* hopelessly intertwined - e.g. architecture defines depend on compiler etc.
|
193
|
+
*
|
194
|
+
* Provide easier defines for platforms and compilers which are often tricky
|
195
|
+
* or verbose to detect. The intent is not to provide intermediate defines for
|
196
|
+
* all features; only if existing feature defines are inconvenient.
|
197
|
+
*/
|
198
|
+
|
199
|
+
/* Intel x86 (32-bit) */
|
200
|
+
#if defined(i386) || defined(__i386) || defined(__i386__) || \
|
201
|
+
defined(__i486__) || defined(__i586__) || defined(__i686__) || \
|
202
|
+
defined(__IA32__) || defined(_M_IX86) || defined(__X86__) || \
|
203
|
+
defined(_X86_) || defined(__THW_INTEL__) || defined(__I86__)
|
204
|
+
#define DUK_F_X86
|
205
|
+
#endif
|
206
|
+
|
207
|
+
/* AMD64 (64-bit) */
|
208
|
+
#if defined(__amd64__) || defined(__amd64) || \
|
209
|
+
defined(__x86_64__) || defined(__x86_64) || \
|
210
|
+
defined(_M_X64) || defined(_M_AMD64)
|
211
|
+
#define DUK_F_X64
|
212
|
+
#endif
|
213
|
+
|
214
|
+
/* X32: 64-bit with 32-bit pointers (allows packed tvals). X32 support is
|
215
|
+
* not very mature yet.
|
216
|
+
*
|
217
|
+
* https://sites.google.com/site/x32abi/
|
218
|
+
*/
|
219
|
+
#if defined(DUK_F_X64) && \
|
220
|
+
(defined(_ILP32) || defined(__ILP32__))
|
221
|
+
#define DUK_F_X32
|
222
|
+
/* define only one of: DUK_F_X86, DUK_F_X32, or DUK_F_X64 */
|
223
|
+
#undef DUK_F_X64
|
224
|
+
#undef DUK_F_X86
|
225
|
+
#endif
|
226
|
+
|
227
|
+
/* ARM */
|
228
|
+
#if defined(__arm__) || defined(__thumb__) || defined(_ARM) || defined(_M_ARM)
|
229
|
+
#define DUK_F_ARM
|
230
|
+
#endif
|
231
|
+
|
232
|
+
/* MIPS */
|
233
|
+
/* FIXME: 32-bit vs. 64-bit MIPS */
|
234
|
+
#if defined(__mips__) || defined(mips) || defined(_MIPS_ISA) || \
|
235
|
+
defined(_R3000) || defined(_R4000) || defined(_R5900) || \
|
236
|
+
defined(_MIPS_ISA_MIPS1) || defined(_MIPS_ISA_MIPS2) || \
|
237
|
+
defined(_MIPS_ISA_MIPS3) || defined(_MIPS_ISA_MIPS4) || \
|
238
|
+
defined(__mips) || defined(__MIPS__)
|
239
|
+
#define DUK_F_MIPS
|
240
|
+
#endif
|
241
|
+
|
242
|
+
/* Motorola 68K. Not defined by VBCC, so user must define one of these
|
243
|
+
* manually when using VBCC.
|
244
|
+
*/
|
245
|
+
#if defined(__m68k__) || defined(M68000) || defined(__MC68K__)
|
246
|
+
#define DUK_F_M68K
|
247
|
+
#endif
|
248
|
+
|
249
|
+
/* Linux */
|
250
|
+
#if defined(__linux) || defined(__linux__) || defined(linux)
|
251
|
+
#define DUK_F_LINUX
|
252
|
+
#endif
|
253
|
+
|
254
|
+
/* FreeBSD */
|
255
|
+
#if defined(__FreeBSD__) || defined(__FreeBSD)
|
256
|
+
#define DUK_F_FREEBSD
|
257
|
+
#endif
|
258
|
+
|
259
|
+
/* NetBSD */
|
260
|
+
#if defined(__NetBSD__) || defined(__NetBSD)
|
261
|
+
#define DUK_F_NETBSD
|
262
|
+
#endif
|
263
|
+
|
264
|
+
/* OpenBSD */
|
265
|
+
#if defined(__OpenBSD__) || defined(__OpenBSD)
|
266
|
+
#define DUK_F_OPENBSD
|
267
|
+
#endif
|
268
|
+
|
269
|
+
/* BSD variant */
|
270
|
+
#if defined(DUK_F_FREEBSD) || defined(DUK_F_NETBSD) || defined(DUK_F_OPENBSD) || \
|
271
|
+
defined(__bsdi__) || defined(__DragonFly__)
|
272
|
+
#define DUK_F_BSD
|
273
|
+
#endif
|
274
|
+
|
275
|
+
/* Generic Unix */
|
276
|
+
#if defined(__unix) || defined(__unix__) || defined(unix) || \
|
277
|
+
defined(DUK_F_LINUX) || defined(DUK_F_BSD)
|
278
|
+
#define DUK_F_UNIX
|
279
|
+
#endif
|
280
|
+
|
281
|
+
/* Windows (32-bit or above) */
|
282
|
+
#if defined(_WIN32) || defined(WIN32) || defined(_WIN64) || defined(WIN64) || \
|
283
|
+
defined(__WIN32__) || defined(__TOS_WIN__) || defined(__WINDOWS__)
|
284
|
+
#define DUK_F_WINDOWS
|
285
|
+
#endif
|
286
|
+
|
287
|
+
/* Atari ST TOS. __TOS__ defined by PureC (which doesn't work as a target now
|
288
|
+
* because int is 16-bit, to be fixed). No platform define in VBCC apparently,
|
289
|
+
* so to use with VBCC, user must define '__TOS__' manually.
|
290
|
+
*/
|
291
|
+
#if defined(__TOS__)
|
292
|
+
#define DUK_F_TOS
|
293
|
+
#endif
|
294
|
+
|
295
|
+
/* AmigaOS. Neither AMIGA nor __amigaos__ is defined on VBCC, so user must
|
296
|
+
* define 'AMIGA' manually.
|
297
|
+
*/
|
298
|
+
#if defined(AMIGA) || defined(__amigaos__)
|
299
|
+
#define DUK_F_AMIGAOS
|
300
|
+
#endif
|
301
|
+
|
302
|
+
/* Flash player (e.g. Crossbridge) */
|
303
|
+
#if defined(__FLASHPLAYER__)
|
304
|
+
#define DUK_F_FLASHPLAYER
|
305
|
+
#endif
|
306
|
+
|
307
|
+
/* Emscripten (provided explicitly by user), improve if possible */
|
308
|
+
#if defined(EMSCRIPTEN)
|
309
|
+
#define DUK_F_EMSCRIPTEN
|
310
|
+
#endif
|
311
|
+
|
312
|
+
/* QNX */
|
313
|
+
#if defined(__QNX__)
|
314
|
+
#define DUK_F_QNX
|
315
|
+
#endif
|
316
|
+
|
317
|
+
/* GCC and GCC version convenience define. */
|
318
|
+
#if defined(__GNUC__)
|
319
|
+
#define DUK_F_GCC
|
320
|
+
#if defined(__GNUC__) && defined(__GNUC_MINOR__) && defined(__GNUC_PATCHLEVEL__)
|
321
|
+
/* Convenience, e.g. gcc 4.5.1 == 40501; http://stackoverflow.com/questions/6031819/emulating-gccs-builtin-unreachable */
|
322
|
+
#define DUK_F_GCC_VERSION (__GNUC__ * 10000L + __GNUC_MINOR__ * 100L + __GNUC_PATCHLEVEL__)
|
323
|
+
#else
|
324
|
+
#error cannot figure out gcc version
|
325
|
+
#endif
|
326
|
+
#endif
|
327
|
+
|
328
|
+
/* Clang */
|
329
|
+
#if defined(__clang__)
|
330
|
+
#define DUK_F_CLANG
|
331
|
+
#endif
|
332
|
+
|
333
|
+
/* MSVC */
|
334
|
+
#if defined(_MSC_VER)
|
335
|
+
/* MSVC preprocessor defines: http://msdn.microsoft.com/en-us/library/b0084kay.aspx
|
336
|
+
* _MSC_FULL_VER includes the build number, but it has at least two formats, see e.g.
|
337
|
+
* BOOST_MSVC_FULL_VER in http://www.boost.org/doc/libs/1_52_0/boost/config/compiler/visualc.hpp
|
338
|
+
*/
|
339
|
+
#define DUK_F_MSVC
|
340
|
+
#endif
|
341
|
+
|
342
|
+
/* MinGW */
|
343
|
+
#if defined(__MINGW32__) || defined(__MINGW64__)
|
344
|
+
#define DUK_F_MINGW
|
345
|
+
#endif
|
346
|
+
|
347
|
+
/* BCC (Bruce's C compiler): this is a "torture target" for compilation */
|
348
|
+
#if defined(__BCC__) || defined(__BCC_VERSION__)
|
349
|
+
#define DUK_F_BCC
|
350
|
+
#endif
|
351
|
+
|
352
|
+
#if defined(__VBCC__)
|
353
|
+
#define DUK_F_VBCC
|
354
|
+
#endif
|
355
|
+
|
356
|
+
#if (defined(DUK_F_C99) || defined(DUK_F_CPP11)) && \
|
357
|
+
!defined(DUK_F_BCC)
|
358
|
+
/* ULL / LL preprocessor constants should be avoided because they're not
|
359
|
+
* always available. With suitable options, some compilers will support
|
360
|
+
* 64-bit integer types but won't support ULL / LL preprocessor constants.
|
361
|
+
* Assume C99/C++11 environments have these. However, BCC is nominally
|
362
|
+
* C99 but doesn't support these constants.
|
363
|
+
*/
|
364
|
+
#define DUK_F_ULL_CONSTS
|
365
|
+
#endif
|
366
|
+
|
367
|
+
/*
|
368
|
+
* Platform detection, system includes, Date provider selection.
|
369
|
+
*
|
370
|
+
* Feature selection (e.g. _XOPEN_SOURCE) must happen before any system
|
371
|
+
* headers are included. This header should avoid providing any feature
|
372
|
+
* selection defines when compiling user code (only when compiling Duktape
|
373
|
+
* itself). If a feature selection option is required for user code to
|
374
|
+
* compile correctly (e.g. it is needed for type detection), it should
|
375
|
+
* probably be -checked- here, not defined here.
|
376
|
+
*
|
377
|
+
* Date provider selection seems a bit out-of-place here, but since
|
378
|
+
* the date headers and provider functions are heavily platform
|
379
|
+
* specific, there's little point in duplicating the platform if-else
|
380
|
+
* ladder. All platform specific Date provider functions are in
|
381
|
+
* duk_bi_date.c; here we provide appropriate #defines to enable them,
|
382
|
+
* and include all the necessary system headers so that duk_bi_date.c
|
383
|
+
* compiles. Date "providers" are:
|
384
|
+
*
|
385
|
+
* NOW = getting current time (required)
|
386
|
+
* TZO = getting local time offset (required)
|
387
|
+
* PRS = parse datetime (optional)
|
388
|
+
* FMT = format datetime (optional)
|
389
|
+
*
|
390
|
+
* There's a lot of duplication here, unfortunately, because many
|
391
|
+
* platforms have similar (but not identical) headers, Date providers,
|
392
|
+
* etc. The duplication could be removed by more complicated nested
|
393
|
+
* #ifdefs, but it would then be more difficult to make fixes which
|
394
|
+
* affect only a specific platform.
|
395
|
+
*
|
396
|
+
* FIXME: add a way to provide custom functions to provide the critical
|
397
|
+
* primitives; this would be convenient when porting to unknown platforms
|
398
|
+
* (rather than muck with Duktape internals).
|
399
|
+
*/
|
400
|
+
|
401
|
+
#if defined(DUK_COMPILING_DUKTAPE) && \
|
402
|
+
(defined(DUK_F_LINUX) || defined(DUK_F_EMSCRIPTEN))
|
403
|
+
/* A more recent Emscripten (2014-05) seems to lack "linux" environment
|
404
|
+
* defines, so check for Emscripten explicitly.
|
405
|
+
*/
|
406
|
+
#ifndef _POSIX_C_SOURCE
|
407
|
+
#define _POSIX_C_SOURCE 200809L
|
408
|
+
#endif
|
409
|
+
#ifndef _GNU_SOURCE
|
410
|
+
#define _GNU_SOURCE /* e.g. getdate_r */
|
411
|
+
#endif
|
412
|
+
#ifndef _XOPEN_SOURCE
|
413
|
+
#define _XOPEN_SOURCE /* e.g. strptime */
|
414
|
+
#endif
|
415
|
+
#endif
|
416
|
+
|
417
|
+
#if defined(DUK_F_QNX) && defined(DUK_COMPILING_DUKTAPE)
|
418
|
+
/* See: /opt/qnx650/target/qnx6/usr/include/sys/platform.h */
|
419
|
+
#define _XOPEN_SOURCE 600
|
420
|
+
#define _POSIX_C_SOURCE 200112L
|
421
|
+
#endif
|
422
|
+
|
423
|
+
#undef DUK_F_MSVC_CRT_SECURE
|
424
|
+
#if defined(DUK_F_WINDOWS) && defined(_MSC_VER)
|
425
|
+
/* http://msdn.microsoft.com/en-us/library/8ef0s5kh.aspx
|
426
|
+
* http://msdn.microsoft.com/en-us/library/wd3wzwts.aspx
|
427
|
+
* Seem to be available since VS2005.
|
428
|
+
*/
|
429
|
+
#if (_MSC_VER >= 1400)
|
430
|
+
/* VS2005+, secure CRT functions are preferred. Windows Store applications
|
431
|
+
* (and probably others) should use these.
|
432
|
+
*/
|
433
|
+
#define DUK_F_MSVC_CRT_SECURE
|
434
|
+
#endif
|
435
|
+
#if (_MSC_VER < 1700)
|
436
|
+
/* VS2012+ has stdint.h, < VS2012 does not (but it's available for download). */
|
437
|
+
#define DUK_F_NO_STDINT_H
|
438
|
+
#endif
|
439
|
+
/* Initial fix: disable secure CRT related warnings when compiling Duktape
|
440
|
+
* itself (must be defined before including Windows headers). Don't define
|
441
|
+
* for user code including duktape.h.
|
442
|
+
*/
|
443
|
+
#if defined(DUK_COMPILING_DUKTAPE) && !defined(_CRT_SECURE_NO_WARNINGS)
|
444
|
+
#define _CRT_SECURE_NO_WARNINGS
|
445
|
+
#endif
|
446
|
+
#endif /* DUK_F_WINDOWS && _MSC_VER */
|
447
|
+
|
448
|
+
#if defined(DUK_F_TOS) || defined(DUK_F_BCC)
|
449
|
+
#define DUK_F_NO_STDINT_H
|
450
|
+
#endif
|
451
|
+
|
452
|
+
#if defined(__APPLE__)
|
453
|
+
/* Mac OSX, iPhone, Darwin */
|
454
|
+
#define DUK_USE_DATE_NOW_GETTIMEOFDAY
|
455
|
+
#define DUK_USE_DATE_TZO_GMTIME_R
|
456
|
+
#define DUK_USE_DATE_PRS_STRPTIME
|
457
|
+
#define DUK_USE_DATE_FMT_STRFTIME
|
458
|
+
#include <architecture/byte_order.h>
|
459
|
+
#include <limits.h>
|
460
|
+
#include <sys/param.h>
|
461
|
+
#include <sys/time.h>
|
462
|
+
#include <time.h>
|
463
|
+
#elif defined(DUK_F_OPENBSD)
|
464
|
+
/* http://www.monkey.org/openbsd/archive/ports/0401/msg00089.html */
|
465
|
+
#define DUK_USE_DATE_NOW_GETTIMEOFDAY
|
466
|
+
#define DUK_USE_DATE_TZO_GMTIME_R
|
467
|
+
#define DUK_USE_DATE_PRS_STRPTIME
|
468
|
+
#define DUK_USE_DATE_FMT_STRFTIME
|
469
|
+
#include <sys/types.h>
|
470
|
+
#include <sys/endian.h>
|
471
|
+
#include <limits.h>
|
472
|
+
#include <sys/param.h>
|
473
|
+
#include <sys/time.h>
|
474
|
+
#include <time.h>
|
475
|
+
#elif defined(DUK_F_BSD)
|
476
|
+
/* other BSD */
|
477
|
+
#define DUK_USE_DATE_NOW_GETTIMEOFDAY
|
478
|
+
#define DUK_USE_DATE_TZO_GMTIME_R
|
479
|
+
#define DUK_USE_DATE_PRS_STRPTIME
|
480
|
+
#define DUK_USE_DATE_FMT_STRFTIME
|
481
|
+
#include <sys/types.h>
|
482
|
+
#include <sys/endian.h>
|
483
|
+
#include <limits.h>
|
484
|
+
#include <sys/param.h>
|
485
|
+
#include <sys/time.h>
|
486
|
+
#include <time.h>
|
487
|
+
#elif defined(DUK_F_TOS)
|
488
|
+
/* Atari ST TOS */
|
489
|
+
#define DUK_USE_DATE_NOW_TIME
|
490
|
+
#define DUK_USE_DATE_TZO_GMTIME
|
491
|
+
/* no parsing (not an error) */
|
492
|
+
#define DUK_USE_DATE_FMT_STRFTIME
|
493
|
+
#include <limits.h>
|
494
|
+
#include <time.h>
|
495
|
+
#elif defined(DUK_F_AMIGAOS)
|
496
|
+
#if defined(DUK_F_M68K)
|
497
|
+
/* AmigaOS on M68k */
|
498
|
+
#define DUK_USE_DATE_NOW_TIME
|
499
|
+
#define DUK_USE_DATE_TZO_GMTIME
|
500
|
+
/* no parsing (not an error) */
|
501
|
+
#define DUK_USE_DATE_FMT_STRFTIME
|
502
|
+
#include <limits.h>
|
503
|
+
#include <time.h>
|
504
|
+
#else
|
505
|
+
#error AmigaOS but not M68K, not supported now
|
506
|
+
#endif
|
507
|
+
#elif defined(DUK_F_WINDOWS)
|
508
|
+
/* Windows 32-bit and 64-bit are currently the same. */
|
509
|
+
/* MSVC does not have sys/param.h */
|
510
|
+
#define DUK_USE_DATE_NOW_WINDOWS
|
511
|
+
#define DUK_USE_DATE_TZO_WINDOWS
|
512
|
+
/* Note: PRS and FMT are intentionally left undefined for now. This means
|
513
|
+
* there is no platform specific date parsing/formatting but there is still
|
514
|
+
* the ISO 8601 standard format.
|
515
|
+
*/
|
516
|
+
#include <windows.h>
|
517
|
+
#include <limits.h>
|
518
|
+
#elif defined(DUK_F_FLASHPLAYER)
|
519
|
+
/* Crossbridge */
|
520
|
+
#define DUK_USE_DATE_NOW_GETTIMEOFDAY
|
521
|
+
#define DUK_USE_DATE_TZO_GMTIME_R
|
522
|
+
#define DUK_USE_DATE_PRS_STRPTIME
|
523
|
+
#define DUK_USE_DATE_FMT_STRFTIME
|
524
|
+
#include <endian.h>
|
525
|
+
#include <limits.h>
|
526
|
+
#include <sys/param.h>
|
527
|
+
#include <sys/time.h>
|
528
|
+
#include <time.h>
|
529
|
+
#elif defined(DUK_F_QNX)
|
530
|
+
#define DUK_USE_DATE_NOW_GETTIMEOFDAY
|
531
|
+
#define DUK_USE_DATE_TZO_GMTIME_R
|
532
|
+
#define DUK_USE_DATE_PRS_STRPTIME
|
533
|
+
#define DUK_USE_DATE_FMT_STRFTIME
|
534
|
+
#include <sys/types.h>
|
535
|
+
#include <limits.h>
|
536
|
+
#include <sys/param.h>
|
537
|
+
#include <sys/time.h>
|
538
|
+
#include <time.h>
|
539
|
+
#elif defined(DUK_F_LINUX)
|
540
|
+
#define DUK_USE_DATE_NOW_GETTIMEOFDAY
|
541
|
+
#define DUK_USE_DATE_TZO_GMTIME_R
|
542
|
+
#define DUK_USE_DATE_PRS_STRPTIME
|
543
|
+
#define DUK_USE_DATE_FMT_STRFTIME
|
544
|
+
#include <sys/types.h>
|
545
|
+
#if defined(DUK_F_BCC)
|
546
|
+
/* no endian.h */
|
547
|
+
#else
|
548
|
+
#include <endian.h>
|
549
|
+
#endif /* DUK_F_BCC */
|
550
|
+
#include <limits.h>
|
551
|
+
#include <sys/param.h>
|
552
|
+
#include <sys/time.h>
|
553
|
+
#include <time.h>
|
554
|
+
#elif defined(__posix)
|
555
|
+
/* POSIX */
|
556
|
+
#define DUK_USE_DATE_NOW_GETTIMEOFDAY
|
557
|
+
#define DUK_USE_DATE_TZO_GMTIME_R
|
558
|
+
#define DUK_USE_DATE_PRS_STRPTIME
|
559
|
+
#define DUK_USE_DATE_FMT_STRFTIME
|
560
|
+
#include <sys/types.h>
|
561
|
+
#include <endian.h>
|
562
|
+
#include <limits.h>
|
563
|
+
#include <sys/param.h>
|
564
|
+
#include <sys/time.h>
|
565
|
+
#include <time.h>
|
566
|
+
#else
|
567
|
+
/* Other UNIX, hopefully others */
|
568
|
+
#define DUK_USE_DATE_NOW_GETTIMEOFDAY
|
569
|
+
#define DUK_USE_DATE_TZO_GMTIME_R
|
570
|
+
#define DUK_USE_DATE_PRS_STRPTIME
|
571
|
+
#define DUK_USE_DATE_FMT_STRFTIME
|
572
|
+
#include <sys/types.h>
|
573
|
+
#if defined(DUK_F_BCC)
|
574
|
+
/* no endian.h */
|
575
|
+
#else
|
576
|
+
#include <endian.h>
|
577
|
+
#endif /* DUK_F_BCC */
|
578
|
+
#include <limits.h>
|
579
|
+
#include <sys/param.h>
|
580
|
+
#include <sys/time.h>
|
581
|
+
#include <time.h>
|
582
|
+
#endif
|
583
|
+
|
584
|
+
/* Shared includes */
|
585
|
+
#include <stdio.h>
|
586
|
+
#include <stdlib.h>
|
587
|
+
#include <string.h>
|
588
|
+
#include <stdarg.h> /* varargs */
|
589
|
+
#include <setjmp.h>
|
590
|
+
#include <stddef.h> /* e.g. ptrdiff_t */
|
591
|
+
#if defined(DUK_F_NO_STDINT_H)
|
592
|
+
/* stdint.h not available */
|
593
|
+
#else
|
594
|
+
/* technically C99 (C++11) but found in many systems */
|
595
|
+
#include <stdint.h>
|
596
|
+
#endif
|
597
|
+
#include <math.h>
|
598
|
+
|
599
|
+
/*
|
600
|
+
* Detection for specific libc variants (like uclibc) and other libc specific
|
601
|
+
* features. Potentially depends on the #includes above.
|
602
|
+
*/
|
603
|
+
|
604
|
+
#if defined(__UCLIBC__)
|
605
|
+
#define DUK_F_UCLIBC
|
606
|
+
#endif
|
607
|
+
|
608
|
+
/*
|
609
|
+
* Wrapper typedefs and constants for integer types, also sanity check types.
|
610
|
+
*
|
611
|
+
* C99 typedefs are quite good but not always available, and we want to avoid
|
612
|
+
* forcibly redefining the C99 typedefs. So, there are Duktape wrappers for
|
613
|
+
* all C99 typedefs and Duktape code should only use these typedefs. Type
|
614
|
+
* detection when C99 is not supported is best effort and may end up detecting
|
615
|
+
* some types incorrectly.
|
616
|
+
*
|
617
|
+
* Pointer sizes are a portability problem: pointers to different types may
|
618
|
+
* have a different size and function pointers are very difficult to manage
|
619
|
+
* portably.
|
620
|
+
*
|
621
|
+
* http://en.wikipedia.org/wiki/C_data_types#Fixed-width_integer_types
|
622
|
+
*
|
623
|
+
* Note: there's an interesting corner case when trying to define minimum
|
624
|
+
* signed integer value constants which leads to the current workaround of
|
625
|
+
* defining e.g. -0x80000000 as (-0x7fffffffL - 1L). See doc/code-issues.txt
|
626
|
+
* for a longer discussion.
|
627
|
+
*
|
628
|
+
* Note: avoid typecasts and computations in macro integer constants as they
|
629
|
+
* can then no longer be used in macro relational expressions (such as
|
630
|
+
* #if DUK_SIZE_MAX < 0xffffffffUL). There is internal code which relies on
|
631
|
+
* being able to compare DUK_SIZE_MAX against a limit.
|
632
|
+
*/
|
633
|
+
|
634
|
+
/* FIXME: add feature options to force basic types from outside? */
|
635
|
+
|
636
|
+
#if !defined(INT_MAX)
|
637
|
+
#error INT_MAX not defined
|
638
|
+
#endif
|
639
|
+
|
640
|
+
/* Check that architecture is two's complement, standard C allows e.g.
|
641
|
+
* INT_MIN to be -2**31+1 (instead of -2**31).
|
642
|
+
*/
|
643
|
+
#if defined(INT_MAX) && defined(INT_MIN)
|
644
|
+
#if INT_MAX != -(INT_MIN + 1)
|
645
|
+
#error platform does not seem complement of two
|
646
|
+
#endif
|
647
|
+
#else
|
648
|
+
#error cannot check complement of two
|
649
|
+
#endif
|
650
|
+
|
651
|
+
/* Pointer size determination based on architecture.
|
652
|
+
* XXX: unsure about BCC correctness.
|
653
|
+
*/
|
654
|
+
#if defined(DUK_F_X86) || defined(DUK_F_X32) || \
|
655
|
+
defined(DUK_F_BCC) || \
|
656
|
+
(defined(__WORDSIZE) && (__WORDSIZE == 32))
|
657
|
+
#define DUK_F_32BIT_PTRS
|
658
|
+
#elif defined(DUK_F_X64) || \
|
659
|
+
(defined(__WORDSIZE) && (__WORDSIZE == 64))
|
660
|
+
#define DUK_F_64BIT_PTRS
|
661
|
+
#else
|
662
|
+
/* not sure, not needed with C99 anyway */
|
663
|
+
#endif
|
664
|
+
|
665
|
+
/* Intermediate define for 'have inttypes.h' */
|
666
|
+
#undef DUK_F_HAVE_INTTYPES
|
667
|
+
#if defined(__STDC_VERSION__) && (__STDC_VERSION__ >= 199901L) && \
|
668
|
+
!(defined(DUK_F_AMIGAOS) && defined(DUK_F_VBCC))
|
669
|
+
/* vbcc + AmigaOS has C99 but no inttypes.h */
|
670
|
+
#define DUK_F_HAVE_INTTYPES
|
671
|
+
#elif defined(__cplusplus) && (__cplusplus >= 201103L)
|
672
|
+
/* C++11 apparently ratified stdint.h */
|
673
|
+
#define DUK_F_HAVE_INTTYPES
|
674
|
+
#endif
|
675
|
+
|
676
|
+
/* Basic integer typedefs and limits, preferably from inttypes.h, otherwise
|
677
|
+
* through automatic detection.
|
678
|
+
*/
|
679
|
+
#if defined(DUK_F_HAVE_INTTYPES)
|
680
|
+
/* C99 */
|
681
|
+
#define DUK_F_HAVE_64BIT
|
682
|
+
#include <inttypes.h>
|
683
|
+
|
684
|
+
typedef uint8_t duk_uint8_t;
|
685
|
+
typedef int8_t duk_int8_t;
|
686
|
+
typedef uint16_t duk_uint16_t;
|
687
|
+
typedef int16_t duk_int16_t;
|
688
|
+
typedef uint32_t duk_uint32_t;
|
689
|
+
typedef int32_t duk_int32_t;
|
690
|
+
typedef uint64_t duk_uint64_t;
|
691
|
+
typedef int64_t duk_int64_t;
|
692
|
+
typedef uint_least8_t duk_uint_least8_t;
|
693
|
+
typedef int_least8_t duk_int_least8_t;
|
694
|
+
typedef uint_least16_t duk_uint_least16_t;
|
695
|
+
typedef int_least16_t duk_int_least16_t;
|
696
|
+
typedef uint_least32_t duk_uint_least32_t;
|
697
|
+
typedef int_least32_t duk_int_least32_t;
|
698
|
+
typedef uint_least64_t duk_uint_least64_t;
|
699
|
+
typedef int_least64_t duk_int_least64_t;
|
700
|
+
typedef uint_fast8_t duk_uint_fast8_t;
|
701
|
+
typedef int_fast8_t duk_int_fast8_t;
|
702
|
+
typedef uint_fast16_t duk_uint_fast16_t;
|
703
|
+
typedef int_fast16_t duk_int_fast16_t;
|
704
|
+
typedef uint_fast32_t duk_uint_fast32_t;
|
705
|
+
typedef int_fast32_t duk_int_fast32_t;
|
706
|
+
typedef uint_fast64_t duk_uint_fast64_t;
|
707
|
+
typedef int_fast64_t duk_int_fast64_t;
|
708
|
+
typedef uintptr_t duk_uintptr_t;
|
709
|
+
typedef intptr_t duk_intptr_t;
|
710
|
+
typedef uintmax_t duk_uintmax_t;
|
711
|
+
typedef intmax_t duk_intmax_t;
|
712
|
+
|
713
|
+
#define DUK_UINT8_MIN 0
|
714
|
+
#define DUK_UINT8_MAX UINT8_MAX
|
715
|
+
#define DUK_INT8_MIN INT8_MIN
|
716
|
+
#define DUK_INT8_MAX INT8_MAX
|
717
|
+
#define DUK_UINT_LEAST8_MIN 0
|
718
|
+
#define DUK_UINT_LEAST8_MAX UINT_LEAST8_MAX
|
719
|
+
#define DUK_INT_LEAST8_MIN INT_LEAST8_MIN
|
720
|
+
#define DUK_INT_LEAST8_MAX INT_LEAST8_MAX
|
721
|
+
#define DUK_UINT_FAST8_MIN 0
|
722
|
+
#define DUK_UINT_FAST8_MAX UINT_FAST8_MAX
|
723
|
+
#define DUK_INT_FAST8_MIN INT_FAST8_MIN
|
724
|
+
#define DUK_INT_FAST8_MAX INT_FAST8_MAX
|
725
|
+
#define DUK_UINT16_MIN 0
|
726
|
+
#define DUK_UINT16_MAX UINT16_MAX
|
727
|
+
#define DUK_INT16_MIN INT16_MIN
|
728
|
+
#define DUK_INT16_MAX INT16_MAX
|
729
|
+
#define DUK_UINT_LEAST16_MIN 0
|
730
|
+
#define DUK_UINT_LEAST16_MAX UINT_LEAST16_MAX
|
731
|
+
#define DUK_INT_LEAST16_MIN INT_LEAST16_MIN
|
732
|
+
#define DUK_INT_LEAST16_MAX INT_LEAST16_MAX
|
733
|
+
#define DUK_UINT_FAST16_MIN 0
|
734
|
+
#define DUK_UINT_FAST16_MAX UINT_FAST16_MAX
|
735
|
+
#define DUK_INT_FAST16_MIN INT_FAST16_MIN
|
736
|
+
#define DUK_INT_FAST16_MAX INT_FAST16_MAX
|
737
|
+
#define DUK_UINT32_MIN 0
|
738
|
+
#define DUK_UINT32_MAX UINT32_MAX
|
739
|
+
#define DUK_INT32_MIN INT32_MIN
|
740
|
+
#define DUK_INT32_MAX INT32_MAX
|
741
|
+
#define DUK_UINT_LEAST32_MIN 0
|
742
|
+
#define DUK_UINT_LEAST32_MAX UINT_LEAST32_MAX
|
743
|
+
#define DUK_INT_LEAST32_MIN INT_LEAST32_MIN
|
744
|
+
#define DUK_INT_LEAST32_MAX INT_LEAST32_MAX
|
745
|
+
#define DUK_UINT_FAST32_MIN 0
|
746
|
+
#define DUK_UINT_FAST32_MAX UINT_FAST32_MAX
|
747
|
+
#define DUK_INT_FAST32_MIN INT_FAST32_MIN
|
748
|
+
#define DUK_INT_FAST32_MAX INT_FAST32_MAX
|
749
|
+
#define DUK_UINT64_MIN 0
|
750
|
+
#define DUK_UINT64_MAX UINT64_MAX
|
751
|
+
#define DUK_INT64_MIN INT64_MIN
|
752
|
+
#define DUK_INT64_MAX INT64_MAX
|
753
|
+
#define DUK_UINT_LEAST64_MIN 0
|
754
|
+
#define DUK_UINT_LEAST64_MAX UINT_LEAST64_MAX
|
755
|
+
#define DUK_INT_LEAST64_MIN INT_LEAST64_MIN
|
756
|
+
#define DUK_INT_LEAST64_MAX INT_LEAST64_MAX
|
757
|
+
#define DUK_UINT_FAST64_MIN 0
|
758
|
+
#define DUK_UINT_FAST64_MAX UINT_FAST64_MAX
|
759
|
+
#define DUK_INT_FAST64_MIN INT_FAST64_MIN
|
760
|
+
#define DUK_INT_FAST64_MAX INT_FAST64_MAX
|
761
|
+
|
762
|
+
#define DUK_UINTPTR_MIN 0
|
763
|
+
#define DUK_UINTPTR_MAX UINTPTR_MAX
|
764
|
+
#define DUK_INTPTR_MIN INTPTR_MIN
|
765
|
+
#define DUK_INTPTR_MAX INTPTR_MAX
|
766
|
+
|
767
|
+
#define DUK_UINTMAX_MIN 0
|
768
|
+
#define DUK_UINTMAX_MAX UINTMAX_MAX
|
769
|
+
#define DUK_INTMAX_MIN INTMAX_MIN
|
770
|
+
#define DUK_INTMAX_MAX INTMAX_MAX
|
771
|
+
|
772
|
+
#define DUK_SIZE_MIN 0
|
773
|
+
#define DUK_SIZE_MAX SIZE_MAX
|
774
|
+
|
775
|
+
#else /* C99 types */
|
776
|
+
|
777
|
+
/* When C99 types are not available, we use heuristic detection to get
|
778
|
+
* the basic 8, 16, 32, and (possibly) 64 bit types. The fast/least
|
779
|
+
* types are then assumed to be exactly the same for now: these could
|
780
|
+
* be improved per platform but C99 types are very often now available.
|
781
|
+
* 64-bit types are not available on all platforms; this is OK at least
|
782
|
+
* on 32-bit platforms.
|
783
|
+
*
|
784
|
+
* This detection code is necessarily a bit hacky and can provide typedefs
|
785
|
+
* and defines that won't work correctly on some exotic platform.
|
786
|
+
*/
|
787
|
+
|
788
|
+
#if (defined(CHAR_BIT) && (CHAR_BIT == 8)) || \
|
789
|
+
(defined(UCHAR_MAX) && (UCHAR_MAX == 255))
|
790
|
+
typedef unsigned char duk_uint8_t;
|
791
|
+
typedef signed char duk_int8_t;
|
792
|
+
#else
|
793
|
+
#error cannot detect 8-bit type
|
794
|
+
#endif
|
795
|
+
|
796
|
+
#if defined(USHRT_MAX) && (USHRT_MAX == 65535UL)
|
797
|
+
typedef unsigned short duk_uint16_t;
|
798
|
+
typedef signed short duk_int16_t;
|
799
|
+
#elif defined(UINT_MAX) && (UINT_MAX == 65535UL)
|
800
|
+
/* On some platforms int is 16-bit but long is 32-bit (e.g. PureC) */
|
801
|
+
typedef unsigned int duk_uint16_t;
|
802
|
+
typedef signed int duk_int16_t;
|
803
|
+
#else
|
804
|
+
#error cannot detect 16-bit type
|
805
|
+
#endif
|
806
|
+
|
807
|
+
#if defined(UINT_MAX) && (UINT_MAX == 4294967295UL)
|
808
|
+
typedef unsigned int duk_uint32_t;
|
809
|
+
typedef signed int duk_int32_t;
|
810
|
+
#elif defined(ULONG_MAX) && (ULONG_MAX == 4294967295UL)
|
811
|
+
/* On some platforms int is 16-bit but long is 32-bit (e.g. PureC) */
|
812
|
+
typedef unsigned long duk_uint32_t;
|
813
|
+
typedef signed long duk_int32_t;
|
814
|
+
#else
|
815
|
+
#error cannot detect 32-bit type
|
816
|
+
#endif
|
817
|
+
|
818
|
+
/* 64-bit type detection is a bit tricky.
|
819
|
+
*
|
820
|
+
* ULLONG_MAX is a standard define. __LONG_LONG_MAX__ and __ULONG_LONG_MAX__
|
821
|
+
* are used by at least GCC (even if system headers don't provide ULLONG_MAX).
|
822
|
+
* Some GCC variants may provide __LONG_LONG_MAX__ but not __ULONG_LONG_MAX__.
|
823
|
+
*
|
824
|
+
* ULL / LL constants are rejected / warned about by some compilers, even if
|
825
|
+
* the compiler has a 64-bit type and the compiler/system headers provide an
|
826
|
+
* unsupported constant (ULL/LL)! Try to avoid using ULL / LL constants.
|
827
|
+
* As a side effect we can only check that e.g. ULONG_MAX is larger than 32
|
828
|
+
* bits but can't be sure it is exactly 64 bits. Self tests will catch such
|
829
|
+
* cases.
|
830
|
+
*/
|
831
|
+
#undef DUK_F_HAVE_64BIT
|
832
|
+
#if !defined(DUK_F_HAVE_64BIT) && defined(ULONG_MAX)
|
833
|
+
#if (ULONG_MAX > 4294967295UL)
|
834
|
+
#define DUK_F_HAVE_64BIT
|
835
|
+
typedef unsigned long duk_uint64_t;
|
836
|
+
typedef signed long duk_int64_t;
|
837
|
+
#endif
|
838
|
+
#endif
|
839
|
+
#if !defined(DUK_F_HAVE_64BIT) && defined(ULLONG_MAX)
|
840
|
+
#if (ULLONG_MAX > 4294967295UL)
|
841
|
+
#define DUK_F_HAVE_64BIT
|
842
|
+
typedef unsigned long long duk_uint64_t;
|
843
|
+
typedef signed long long duk_int64_t;
|
844
|
+
#endif
|
845
|
+
#endif
|
846
|
+
#if !defined(DUK_F_HAVE_64BIT) && defined(__ULONG_LONG_MAX__)
|
847
|
+
#if (__ULONG_LONG_MAX__ > 4294967295UL)
|
848
|
+
#define DUK_F_HAVE_64BIT
|
849
|
+
typedef unsigned long long duk_uint64_t;
|
850
|
+
typedef signed long long duk_int64_t;
|
851
|
+
#endif
|
852
|
+
#endif
|
853
|
+
#if !defined(DUK_F_HAVE_64BIT) && defined(__LONG_LONG_MAX__)
|
854
|
+
#if (__LONG_LONG_MAX__ > 2147483647L)
|
855
|
+
#define DUK_F_HAVE_64BIT
|
856
|
+
typedef unsigned long long duk_uint64_t;
|
857
|
+
typedef signed long long duk_int64_t;
|
858
|
+
#endif
|
859
|
+
#endif
|
860
|
+
#if !defined(DUK_F_HAVE_64BIT) && \
|
861
|
+
(defined(DUK_F_MINGW) || defined(DUK_F_MSVC))
|
862
|
+
/* Both MinGW and MSVC have a 64-bit type. */
|
863
|
+
#define DUK_F_HAVE_64BIT
|
864
|
+
typedef unsigned long duk_uint64_t;
|
865
|
+
typedef signed long duk_int64_t;
|
866
|
+
#endif
|
867
|
+
#if !defined(DUK_F_HAVE64BIT)
|
868
|
+
/* cannot detect 64-bit type, not always needed so don't error */
|
869
|
+
#endif
|
870
|
+
|
871
|
+
typedef duk_uint8_t duk_uint_least8_t;
|
872
|
+
typedef duk_int8_t duk_int_least8_t;
|
873
|
+
typedef duk_uint16_t duk_uint_least16_t;
|
874
|
+
typedef duk_int16_t duk_int_least16_t;
|
875
|
+
typedef duk_uint32_t duk_uint_least32_t;
|
876
|
+
typedef duk_int32_t duk_int_least32_t;
|
877
|
+
typedef duk_uint8_t duk_uint_fast8_t;
|
878
|
+
typedef duk_int8_t duk_int_fast8_t;
|
879
|
+
typedef duk_uint16_t duk_uint_fast16_t;
|
880
|
+
typedef duk_int16_t duk_int_fast16_t;
|
881
|
+
typedef duk_uint32_t duk_uint_fast32_t;
|
882
|
+
typedef duk_int32_t duk_int_fast32_t;
|
883
|
+
#if defined(DUK_F_HAVE_64BIT)
|
884
|
+
typedef duk_uint64_t duk_uint_least64_t;
|
885
|
+
typedef duk_int64_t duk_int_least64_t;
|
886
|
+
typedef duk_uint64_t duk_uint_fast64_t;
|
887
|
+
typedef duk_int64_t duk_int_fast64_t;
|
888
|
+
#endif
|
889
|
+
#if defined(DUK_F_HAVE_64BIT)
|
890
|
+
typedef duk_uint64_t duk_uintmax_t;
|
891
|
+
typedef duk_int64_t duk_intmax_t;
|
892
|
+
#else
|
893
|
+
typedef duk_uint32_t duk_uintmax_t;
|
894
|
+
typedef duk_int32_t duk_intmax_t;
|
895
|
+
#endif
|
896
|
+
|
897
|
+
/* Note: the funny looking computations for signed minimum 16-bit, 32-bit, and
|
898
|
+
* 64-bit values are intentional as the obvious forms (e.g. -0x80000000L) are
|
899
|
+
* -not- portable. See code-issues.txt for a detailed discussion.
|
900
|
+
*/
|
901
|
+
#define DUK_UINT8_MIN 0UL
|
902
|
+
#define DUK_UINT8_MAX 0xffUL
|
903
|
+
#define DUK_INT8_MIN (-0x80L)
|
904
|
+
#define DUK_INT8_MAX 0x7fL
|
905
|
+
#define DUK_UINT_LEAST8_MIN 0UL
|
906
|
+
#define DUK_UINT_LEAST8_MAX 0xffUL
|
907
|
+
#define DUK_INT_LEAST8_MIN (-0x80L)
|
908
|
+
#define DUK_INT_LEAST8_MAX 0x7fL
|
909
|
+
#define DUK_UINT_FAST8_MIN 0UL
|
910
|
+
#define DUK_UINT_FAST8_MAX 0xffUL
|
911
|
+
#define DUK_INT_FAST8_MIN (-0x80L)
|
912
|
+
#define DUK_INT_FAST8_MAX 0x7fL
|
913
|
+
#define DUK_UINT16_MIN 0UL
|
914
|
+
#define DUK_UINT16_MAX 0xffffUL
|
915
|
+
#define DUK_INT16_MIN (-0x7fffL - 1L)
|
916
|
+
#define DUK_INT16_MAX 0x7fffL
|
917
|
+
#define DUK_UINT_LEAST16_MIN 0UL
|
918
|
+
#define DUK_UINT_LEAST16_MAX 0xffffUL
|
919
|
+
#define DUK_INT_LEAST16_MIN (-0x7fffL - 1L)
|
920
|
+
#define DUK_INT_LEAST16_MAX 0x7fffL
|
921
|
+
#define DUK_UINT_FAST16_MIN 0UL
|
922
|
+
#define DUK_UINT_FAST16_MAX 0xffffUL
|
923
|
+
#define DUK_INT_FAST16_MIN (-0x7fffL - 1L)
|
924
|
+
#define DUK_INT_FAST16_MAX 0x7fffL
|
925
|
+
#define DUK_UINT32_MIN 0UL
|
926
|
+
#define DUK_UINT32_MAX 0xffffffffUL
|
927
|
+
#define DUK_INT32_MIN (-0x7fffffffL - 1L)
|
928
|
+
#define DUK_INT32_MAX 0x7fffffffL
|
929
|
+
#define DUK_UINT_LEAST32_MIN 0UL
|
930
|
+
#define DUK_UINT_LEAST32_MAX 0xffffffffUL
|
931
|
+
#define DUK_INT_LEAST32_MIN (-0x7fffffffL - 1L)
|
932
|
+
#define DUK_INT_LEAST32_MAX 0x7fffffffL
|
933
|
+
#define DUK_UINT_FAST32_MIN 0UL
|
934
|
+
#define DUK_UINT_FAST32_MAX 0xffffffffUL
|
935
|
+
#define DUK_INT_FAST32_MIN (-0x7fffffffL - 1L)
|
936
|
+
#define DUK_INT_FAST32_MAX 0x7fffffffL
|
937
|
+
|
938
|
+
/* 64-bit constants. Since LL / ULL constants are not always available,
|
939
|
+
* use computed values. These values can't be used in preprocessor
|
940
|
+
* comparisons; flag them as such.
|
941
|
+
*/
|
942
|
+
#if defined(DUK_F_HAVE_64BIT)
|
943
|
+
#define DUK_UINT64_MIN ((duk_uint64_t) 0)
|
944
|
+
#define DUK_UINT64_MAX ((duk_uint64_t) -1)
|
945
|
+
#define DUK_INT64_MIN ((duk_int64_t) (~(DUK_UINT64_MAX >> 1)))
|
946
|
+
#define DUK_INT64_MAX ((duk_int64_t) (DUK_UINT64_MAX >> 1))
|
947
|
+
#define DUK_UINT_LEAST64_MIN DUK_UINT64_MIN
|
948
|
+
#define DUK_UINT_LEAST64_MAX DUK_UINT64_MAX
|
949
|
+
#define DUK_INT_LEAST64_MIN DUK_INT64_MIN
|
950
|
+
#define DUK_INT_LEAST64_MAX DUK_INT64_MAX
|
951
|
+
#define DUK_UINT_FAST64_MIN DUK_UINT64_MIN
|
952
|
+
#define DUK_UINT_FAST64_MAX DUK_UINT64_MAX
|
953
|
+
#define DUK_INT_FAST64_MIN DUK_INT64_MIN
|
954
|
+
#define DUK_INT_FAST64_MAX DUK_INT64_MAX
|
955
|
+
#define DUK_UINT64_MIN_COMPUTED
|
956
|
+
#define DUK_UINT64_MAX_COMPUTED
|
957
|
+
#define DUK_INT64_MIN_COMPUTED
|
958
|
+
#define DUK_INT64_MAX_COMPUTED
|
959
|
+
#define DUK_UINT_LEAST64_MIN_COMPUTED
|
960
|
+
#define DUK_UINT_LEAST64_MAX_COMPUTED
|
961
|
+
#define DUK_INT_LEAST64_MIN_COMPUTED
|
962
|
+
#define DUK_INT_LEAST64_MAX_COMPUTED
|
963
|
+
#define DUK_UINT_FAST64_MIN_COMPUTED
|
964
|
+
#define DUK_UINT_FAST64_MAX_COMPUTED
|
965
|
+
#define DUK_INT_FAST64_MIN_COMPUTED
|
966
|
+
#define DUK_INT_FAST64_MAX_COMPUTED
|
967
|
+
#endif
|
968
|
+
|
969
|
+
#if defined(DUK_F_HAVE_64BIT)
|
970
|
+
#define DUK_UINTMAX_MIN DUK_UINT64_MIN
|
971
|
+
#define DUK_UINTMAX_MAX DUK_UINT64_MAX
|
972
|
+
#define DUK_INTMAX_MIN DUK_INT64_MIN
|
973
|
+
#define DUK_INTMAX_MAX DUK_INT64_MAX
|
974
|
+
#define DUK_UINTMAX_MIN_COMPUTED
|
975
|
+
#define DUK_UINTMAX_MAX_COMPUTED
|
976
|
+
#define DUK_INTMAX_MIN_COMPUTED
|
977
|
+
#define DUK_INTMAX_MAX_COMPUTED
|
978
|
+
#else
|
979
|
+
#define DUK_UINTMAX_MIN 0UL
|
980
|
+
#define DUK_UINTMAX_MAX 0xffffffffUL
|
981
|
+
#define DUK_INTMAX_MIN (-0x7fffffffL - 1L)
|
982
|
+
#define DUK_INTMAX_MAX 0x7fffffffL
|
983
|
+
#endif
|
984
|
+
|
985
|
+
/* This detection is not very reliable. */
|
986
|
+
#if defined(DUK_F_32BIT_PTRS)
|
987
|
+
typedef duk_int32_t duk_intptr_t;
|
988
|
+
typedef duk_uint32_t duk_uintptr_t;
|
989
|
+
#define DUK_UINTPTR_MIN DUK_UINT32_MIN
|
990
|
+
#define DUK_UINTPTR_MAX DUK_UINT32_MAX
|
991
|
+
#define DUK_INTPTR_MIN DUK_INT32_MIN
|
992
|
+
#define DUK_INTPTR_MAX DUK_INT32_MAX
|
993
|
+
#elif defined(DUK_F_64BIT_PTRS) && defined(DUK_F_HAVE_64BIT)
|
994
|
+
typedef duk_int64_t duk_intptr_t;
|
995
|
+
typedef duk_uint64_t duk_uintptr_t;
|
996
|
+
#define DUK_UINTPTR_MIN DUK_UINT64_MIN
|
997
|
+
#define DUK_UINTPTR_MAX DUK_UINT64_MAX
|
998
|
+
#define DUK_INTPTR_MIN DUK_INT64_MIN
|
999
|
+
#define DUK_INTPTR_MAX DUK_INT64_MAX
|
1000
|
+
#define DUK_UINTPTR_MIN_COMPUTED
|
1001
|
+
#define DUK_UINTPTR_MAX_COMPUTED
|
1002
|
+
#define DUK_INTPTR_MIN_COMPUTED
|
1003
|
+
#define DUK_INTPTR_MAX_COMPUTED
|
1004
|
+
#else
|
1005
|
+
#error cannot determine intptr type
|
1006
|
+
#endif
|
1007
|
+
|
1008
|
+
/* SIZE_MAX may be missing so use an approximate value for it. */
|
1009
|
+
#undef DUK_SIZE_MAX_COMPUTED
|
1010
|
+
#if !defined(SIZE_MAX)
|
1011
|
+
#define DUK_SIZE_MAX_COMPUTED
|
1012
|
+
#define SIZE_MAX ((size_t) (-1))
|
1013
|
+
#endif
|
1014
|
+
#define DUK_SIZE_MIN 0
|
1015
|
+
#define DUK_SIZE_MAX SIZE_MAX
|
1016
|
+
|
1017
|
+
#endif /* C99 types */
|
1018
|
+
|
1019
|
+
/* A few types are assumed to always exist. */
|
1020
|
+
typedef size_t duk_size_t;
|
1021
|
+
typedef ptrdiff_t duk_ptrdiff_t;
|
1022
|
+
|
1023
|
+
/* The best type for an "all around int" in Duktape internals is "at least
|
1024
|
+
* 32 bit signed integer" which is most convenient. Same for unsigned type.
|
1025
|
+
* Prefer 'int' when large enough, as it is almost always a convenient type.
|
1026
|
+
*/
|
1027
|
+
#if defined(UINT_MAX) && (UINT_MAX >= 0xffffffffUL)
|
1028
|
+
typedef int duk_int_t;
|
1029
|
+
typedef unsigned int duk_uint_t;
|
1030
|
+
#define DUK_INT_MIN INT_MIN
|
1031
|
+
#define DUK_INT_MAX INT_MAX
|
1032
|
+
#define DUK_UINT_MIN 0
|
1033
|
+
#define DUK_UINT_MAX UINT_MAX
|
1034
|
+
#else
|
1035
|
+
typedef duk_int_fast32_t duk_int_t;
|
1036
|
+
typedef duk_uint_fast32_t duk_uint_t;
|
1037
|
+
#define DUK_INT_MIN DUK_INT_FAST32_MIN
|
1038
|
+
#define DUK_INT_MAX DUK_INT_FAST32_MAX
|
1039
|
+
#define DUK_UINT_MIN DUK_UINT_FAST32_MIN
|
1040
|
+
#define DUK_UINT_MAX DUK_UINT_FAST32_MAX
|
1041
|
+
#endif
|
1042
|
+
|
1043
|
+
/* Same as 'duk_int_t' but guaranteed to be a 'fast' variant if this
|
1044
|
+
* distinction matters for the CPU. These types are used mainly in the
|
1045
|
+
* executor where it might really matter.
|
1046
|
+
*/
|
1047
|
+
typedef duk_int_fast32_t duk_int_fast_t;
|
1048
|
+
typedef duk_uint_fast32_t duk_uint_fast_t;
|
1049
|
+
#define DUK_INT_FAST_MIN DUK_INT_FAST32_MIN
|
1050
|
+
#define DUK_INT_FAST_MAX DUK_INT_FAST32_MAX
|
1051
|
+
#define DUK_UINT_FAST_MIN DUK_UINT_FAST32_MIN
|
1052
|
+
#define DUK_UINT_FAST_MAX DUK_UINT_FAST32_MAX
|
1053
|
+
|
1054
|
+
/* Small integers (16 bits or more) can fall back to the 'int' type, but
|
1055
|
+
* have a typedef so they are marked "small" explicitly.
|
1056
|
+
*/
|
1057
|
+
typedef int duk_small_int_t;
|
1058
|
+
typedef unsigned int duk_small_uint_t;
|
1059
|
+
#define DUK_SMALL_INT_MIN INT_MIN
|
1060
|
+
#define DUK_SMALL_INT_MAX INT_MAX
|
1061
|
+
#define DUK_SMALL_UINT_MIN 0
|
1062
|
+
#define DUK_SMALL_UINT_MAX UINT_MAX
|
1063
|
+
|
1064
|
+
/* Fast variants of small integers, again for really fast paths like the
|
1065
|
+
* executor.
|
1066
|
+
*/
|
1067
|
+
typedef duk_int_fast16_t duk_small_int_fast_t;
|
1068
|
+
typedef duk_uint_fast16_t duk_small_uint_fast_t;
|
1069
|
+
#define DUK_SMALL_INT_FAST_MIN DUK_INT_FAST16_MIN
|
1070
|
+
#define DUK_SMALL_INT_FAST_MAX DUK_INT_FAST16_MAX
|
1071
|
+
#define DUK_SMALL_UINT_FAST_MIN DUK_UINT_FAST16_MIN
|
1072
|
+
#define DUK_SMALL_UINT_FAST_MAX DUK_UINT_FAST16_MAX
|
1073
|
+
|
1074
|
+
/* Boolean values are represented with the platform 'int'. */
|
1075
|
+
typedef duk_small_int_t duk_bool_t;
|
1076
|
+
#define DUK_BOOL_MIN DUK_SMALL_INT_MIN
|
1077
|
+
#define DUK_BOOL_MAX DUK_SMALL_INT_MAX
|
1078
|
+
|
1079
|
+
/* Index values must have at least 32-bit signed range. */
|
1080
|
+
typedef duk_int_t duk_idx_t;
|
1081
|
+
#define DUK_IDX_MIN DUK_INT_MIN
|
1082
|
+
#define DUK_IDX_MAX DUK_INT_MAX
|
1083
|
+
|
1084
|
+
/* Array index values, could be exact 32 bits.
|
1085
|
+
* Currently no need for signed duk_arridx_t.
|
1086
|
+
*/
|
1087
|
+
typedef duk_uint_t duk_uarridx_t;
|
1088
|
+
#define DUK_UARRIDX_MIN DUK_UINT_MIN
|
1089
|
+
#define DUK_UARRIDX_MAX DUK_UINT_MAX
|
1090
|
+
|
1091
|
+
/* Duktape/C function return value, platform int is enough for now to
|
1092
|
+
* represent 0, 1, or negative error code. Must be compatible with
|
1093
|
+
* assigning truth values (e.g. duk_ret_t rc = (foo == bar);).
|
1094
|
+
*/
|
1095
|
+
typedef duk_small_int_t duk_ret_t;
|
1096
|
+
#define DUK_RET_MIN DUK_SMALL_INT_MIN
|
1097
|
+
#define DUK_RET_MAX DUK_SMALL_INT_MAX
|
1098
|
+
|
1099
|
+
/* Error codes are represented with platform int. High bits are used
|
1100
|
+
* for flags and such, so 32 bits are needed.
|
1101
|
+
*/
|
1102
|
+
typedef duk_int_t duk_errcode_t;
|
1103
|
+
#define DUK_ERRCODE_MIN DUK_INT_MIN
|
1104
|
+
#define DUK_ERRCODE_MAX DUK_INT_MAX
|
1105
|
+
|
1106
|
+
/* Codepoint type. Must be 32 bits or more because it is used also for
|
1107
|
+
* internal codepoints. The type is signed because negative codepoints
|
1108
|
+
* are used as internal markers (e.g. to mark EOF or missing argument).
|
1109
|
+
* (X)UTF-8/CESU-8 encode/decode take and return an unsigned variant to
|
1110
|
+
* ensure duk_uint32_t casts back and forth nicely. Almost everything
|
1111
|
+
* else uses the signed one.
|
1112
|
+
*/
|
1113
|
+
typedef duk_int_t duk_codepoint_t;
|
1114
|
+
typedef duk_uint_t duk_ucodepoint_t;
|
1115
|
+
#define DUK_CODEPOINT_MIN DUK_INT_MIN
|
1116
|
+
#define DUK_CODEPOINT_MAX DUK_INT_MAX
|
1117
|
+
#define DUK_UCODEPOINT_MIN DUK_UINT_MIN
|
1118
|
+
#define DUK_UCODEPOINT_MAX DUK_UINT_MAX
|
1119
|
+
|
1120
|
+
/* IEEE double typedef. */
|
1121
|
+
typedef double duk_double_t;
|
1122
|
+
|
1123
|
+
/* We're generally assuming that we're working on a platform with a 32-bit
|
1124
|
+
* address space. If DUK_SIZE_MAX is a typecast value (which is necessary
|
1125
|
+
* if SIZE_MAX is missing), the check must be avoided because the
|
1126
|
+
* preprocessor can't do a comparison.
|
1127
|
+
*/
|
1128
|
+
#if !defined(DUK_SIZE_MAX)
|
1129
|
+
#error DUK_SIZE_MAX is undefined, probably missing SIZE_MAX
|
1130
|
+
#elif !defined(DUK_SIZE_MAX_COMPUTED)
|
1131
|
+
#if DUK_SIZE_MAX < 0xffffffffUL
|
1132
|
+
/* XXX: compare against a lower value; can SIZE_MAX realistically be
|
1133
|
+
* e.g. 0x7fffffffUL on a 32-bit system?
|
1134
|
+
*/
|
1135
|
+
#error size_t is too small
|
1136
|
+
#endif
|
1137
|
+
#endif
|
1138
|
+
|
1139
|
+
/* Convenience define: 32-bit pointers. 32-bit platforms are an important
|
1140
|
+
* footprint optimization target, and this define allows e.g. struct sizes
|
1141
|
+
* to be organized for compactness.
|
1142
|
+
*/
|
1143
|
+
|
1144
|
+
#undef DUK_USE_32BIT_PTRS
|
1145
|
+
#if defined(DUK_UINTPTR_MAX) && !defined(DUK_UINTPTR_MAX_COMPUTED)
|
1146
|
+
#if DUK_UINTPTR_MAX <= 0xffffffffUL
|
1147
|
+
#define DUK_USE_32BIT_PTRS
|
1148
|
+
#endif
|
1149
|
+
#endif
|
1150
|
+
|
1151
|
+
/*
|
1152
|
+
* Check whether we should use 64-bit integers
|
1153
|
+
*/
|
1154
|
+
|
1155
|
+
/* Quite incomplete now. Use 64-bit types if detected (C99 or other detection)
|
1156
|
+
* unless they are known to be unreliable. For instance, 64-bit types are
|
1157
|
+
* available on VBCC but seem to misbehave.
|
1158
|
+
*/
|
1159
|
+
#if defined(DUK_F_HAVE_64BIT) && !defined(DUK_F_VBCC)
|
1160
|
+
#define DUK_USE_64BIT_OPS
|
1161
|
+
#else
|
1162
|
+
#undef DUK_USE_64BIT_OPS
|
1163
|
+
#endif
|
1164
|
+
|
1165
|
+
/*
|
1166
|
+
* Alignment requirement and support for unaligned accesses
|
1167
|
+
*
|
1168
|
+
* Assume unaligned accesses are not supported unless specifically allowed
|
1169
|
+
* in the target platform. Some platforms may support unaligned accesses
|
1170
|
+
* but alignment to 4 or 8 may still be desirable.
|
1171
|
+
*/
|
1172
|
+
|
1173
|
+
#undef DUK_USE_UNALIGNED_ACCESSES_POSSIBLE
|
1174
|
+
#undef DUK_USE_ALIGN_4
|
1175
|
+
#undef DUK_USE_ALIGN_8
|
1176
|
+
|
1177
|
+
#if defined(DUK_F_EMSCRIPTEN)
|
1178
|
+
/* Required on at least some targets, so use whenever Emscripten used,
|
1179
|
+
* regardless of compilation target.
|
1180
|
+
*/
|
1181
|
+
#define DUK_USE_ALIGN_8
|
1182
|
+
#elif defined(DUK_F_ARM)
|
1183
|
+
#define DUK_USE_ALIGN_4
|
1184
|
+
#elif defined(DUK_F_MIPS)
|
1185
|
+
#define DUK_USE_ALIGN_4
|
1186
|
+
#elif defined(DUK_F_X86) || defined(DUK_F_X32) || defined(DUK_F_X64) || \
|
1187
|
+
defined(DUK_F_BCC)
|
1188
|
+
#define DUK_USE_UNALIGNED_ACCESSES_POSSIBLE
|
1189
|
+
#else
|
1190
|
+
/* unknown, use safe default */
|
1191
|
+
#define DUK_USE_ALIGN_8
|
1192
|
+
#endif
|
1193
|
+
|
1194
|
+
/* User forced alignment to 4 or 8. */
|
1195
|
+
#if defined(DUK_OPT_FORCE_ALIGN)
|
1196
|
+
#undef DUK_USE_UNALIGNED_ACCESSES_POSSIBLE
|
1197
|
+
#undef DUK_USE_ALIGN_4
|
1198
|
+
#undef DUK_USE_ALIGN_8
|
1199
|
+
#if (DUK_OPT_FORCE_ALIGN == 4)
|
1200
|
+
#define DUK_USE_ALIGN_4
|
1201
|
+
#elif (DUK_OPT_FORCE_ALIGN == 8)
|
1202
|
+
#define DUK_USE_ALIGN_8
|
1203
|
+
#else
|
1204
|
+
#error invalid DUK_OPT_FORCE_ALIGN value
|
1205
|
+
#endif
|
1206
|
+
#endif
|
1207
|
+
|
1208
|
+
/* Compiler specific hackery needed to force struct size to match aligment,
|
1209
|
+
* see e.g. duk_hbuffer.h.
|
1210
|
+
*
|
1211
|
+
* http://stackoverflow.com/questions/11130109/c-struct-size-alignment
|
1212
|
+
* http://stackoverflow.com/questions/10951039/specifying-64-bit-alignment
|
1213
|
+
*/
|
1214
|
+
#if defined(DUK_F_MSVC)
|
1215
|
+
#define DUK_USE_PACK_MSVC_PRAGMA
|
1216
|
+
#elif defined(DUK_F_GCC)
|
1217
|
+
#define DUK_USE_PACK_GCC_ATTR
|
1218
|
+
#elif defined(DUK_F_CLANG)
|
1219
|
+
#define DUK_USE_PACK_CLANG_ATTR
|
1220
|
+
#else
|
1221
|
+
#define DUK_USE_PACK_DUMMY_MEMBER
|
1222
|
+
#endif
|
1223
|
+
|
1224
|
+
#ifdef DUK_USE_UNALIGNED_ACCESSES_POSSIBLE
|
1225
|
+
#define DUK_USE_HASHBYTES_UNALIGNED_U32_ACCESS
|
1226
|
+
#else
|
1227
|
+
#undef DUK_USE_HASHBYTES_UNALIGNED_U32_ACCESS
|
1228
|
+
#endif
|
1229
|
+
|
1230
|
+
/* Object property allocation layout has implications for memory and code
|
1231
|
+
* footprint and generated code size/speed. The best layout also depends
|
1232
|
+
* on whether the platform has alignment requirements or benefits from
|
1233
|
+
* having mostly aligned accesses.
|
1234
|
+
*/
|
1235
|
+
#undef DUK_USE_HOBJECT_LAYOUT_1
|
1236
|
+
#undef DUK_USE_HOBJECT_LAYOUT_2
|
1237
|
+
#undef DUK_USE_HOBJECT_LAYOUT_3
|
1238
|
+
#if defined(DUK_USE_UNALIGNED_ACCESSES_POSSIBLE) && \
|
1239
|
+
!defined(DUK_USE_ALIGN_4) && !defined(DUK_USE_ALIGN_8)
|
1240
|
+
/* On platforms without any alignment issues, layout 1 is preferable
|
1241
|
+
* because it compiles to slightly less code and provides direct access
|
1242
|
+
* to property keys.
|
1243
|
+
*/
|
1244
|
+
#define DUK_USE_HOBJECT_LAYOUT_1
|
1245
|
+
#else
|
1246
|
+
/* On other platforms use layout 2, which requires some padding but
|
1247
|
+
* is a bit more natural than layout 3 in ordering the entries. Layout
|
1248
|
+
* 3 is currently not used.
|
1249
|
+
*/
|
1250
|
+
#define DUK_USE_HOBJECT_LAYOUT_2
|
1251
|
+
#endif
|
1252
|
+
|
1253
|
+
/*
|
1254
|
+
* Byte order and double memory layout detection
|
1255
|
+
*
|
1256
|
+
* Endianness detection is a major portability hassle because the macros
|
1257
|
+
* and headers are not standardized. There's even variance across UNIX
|
1258
|
+
* platforms. Even with "standard" headers, details like underscore count
|
1259
|
+
* varies between platforms, e.g. both __BYTE_ORDER and _BYTE_ORDER are used
|
1260
|
+
* (Crossbridge has a single underscore, for instance).
|
1261
|
+
*
|
1262
|
+
* The checks below are structured with this in mind: several approaches are
|
1263
|
+
* used, and at the end we check if any of them worked. This allows generic
|
1264
|
+
* approaches to be tried first, and platform/compiler specific hacks tried
|
1265
|
+
* last. As a last resort, the user can force a specific endianness, as it's
|
1266
|
+
* not likely that automatic detection will work on the most exotic platforms.
|
1267
|
+
*
|
1268
|
+
* Duktape supports little and big endian machines. There's also support
|
1269
|
+
* for a hybrid used by some ARM machines where integers are little endian
|
1270
|
+
* but IEEE double values use a mixed order (12345678 -> 43218765). This
|
1271
|
+
* byte order for doubles is referred to as "mixed endian".
|
1272
|
+
*/
|
1273
|
+
|
1274
|
+
#undef DUK_F_BYTEORDER
|
1275
|
+
#undef DUK_USE_BYTEORDER_FORCED
|
1276
|
+
|
1277
|
+
/* DUK_F_BYTEORDER is set as an intermediate value when detection
|
1278
|
+
* succeeds, to one of:
|
1279
|
+
* 1 = little endian
|
1280
|
+
* 2 = mixed (arm hybrid) endian
|
1281
|
+
* 3 = big endian
|
1282
|
+
*/
|
1283
|
+
|
1284
|
+
/* For custom platforms allow user to define byteorder explicitly.
|
1285
|
+
* Since endianness headers are not standardized, this is a useful
|
1286
|
+
* workaround for custom platforms for which endianness detection
|
1287
|
+
* is not directly supported. Perhaps custom hardware is used and
|
1288
|
+
* user cannot submit upstream patches.
|
1289
|
+
*/
|
1290
|
+
#if defined(DUK_OPT_FORCE_BYTEORDER)
|
1291
|
+
#if (DUK_OPT_FORCE_BYTEORDER == 1)
|
1292
|
+
#define DUK_F_BYTEORDER 1
|
1293
|
+
#elif (DUK_OPT_FORCE_BYTEORDER == 2)
|
1294
|
+
#define DUK_F_BYTEORDER 2
|
1295
|
+
#elif (DUK_OPT_FORCE_BYTEORDER == 3)
|
1296
|
+
#define DUK_F_BYTEORDER 3
|
1297
|
+
#else
|
1298
|
+
#error invalid DUK_OPT_FORCE_BYTEORDER value
|
1299
|
+
#endif
|
1300
|
+
#define DUK_USE_BYTEORDER_FORCED
|
1301
|
+
#endif /* DUK_OPT_FORCE_BYTEORDER */
|
1302
|
+
|
1303
|
+
/* More or less standard endianness predefines provided by header files.
|
1304
|
+
* The ARM hybrid case is detected by assuming that __FLOAT_WORD_ORDER
|
1305
|
+
* will be big endian, see: http://lists.mysql.com/internals/443.
|
1306
|
+
*/
|
1307
|
+
#if !defined(DUK_F_BYTEORDER)
|
1308
|
+
#if defined(__BYTE_ORDER) && defined(__LITTLE_ENDIAN) && (__BYTE_ORDER == __LITTLE_ENDIAN) || \
|
1309
|
+
defined(_BYTE_ORDER) && defined(_LITTLE_ENDIAN) && (_BYTE_ORDER == _LITTLE_ENDIAN) || \
|
1310
|
+
defined(__LITTLE_ENDIAN__)
|
1311
|
+
/* Integer little endian */
|
1312
|
+
#if defined(__FLOAT_WORD_ORDER) && defined(__LITTLE_ENDIAN) && (__FLOAT_WORD_ORDER == __LITTLE_ENDIAN) || \
|
1313
|
+
defined(_FLOAT_WORD_ORDER) && defined(_LITTLE_ENDIAN) && (_FLOAT_WORD_ORDER == _LITTLE_ENDIAN)
|
1314
|
+
#define DUK_F_BYTEORDER 1
|
1315
|
+
#elif defined(__FLOAT_WORD_ORDER) && defined(__BIG_ENDIAN) && (__FLOAT_WORD_ORDER == __BIG_ENDIAN) || \
|
1316
|
+
defined(_FLOAT_WORD_ORDER) && defined(_BIG_ENDIAN) && (_FLOAT_WORD_ORDER == _BIG_ENDIAN)
|
1317
|
+
#define DUK_F_BYTEORDER 2
|
1318
|
+
#elif !defined(__FLOAT_WORD_ORDER) && !defined(_FLOAT_WORD_ORDER)
|
1319
|
+
/* Float word order not known, assume not a hybrid. */
|
1320
|
+
#define DUK_F_BYTEORDER 1
|
1321
|
+
#else
|
1322
|
+
/* byte order is little endian but cannot determine IEEE double word order */
|
1323
|
+
#endif /* float word order */
|
1324
|
+
#elif defined(__BYTE_ORDER) && defined(__BIG_ENDIAN) && (__BYTE_ORDER == __BIG_ENDIAN) || \
|
1325
|
+
defined(_BYTE_ORDER) && defined(_BIG_ENDIAN) && (_BYTE_ORDER == _BIG_ENDIAN) || \
|
1326
|
+
defined(__BIG_ENDIAN__)
|
1327
|
+
/* Integer big endian */
|
1328
|
+
#if defined(__FLOAT_WORD_ORDER) && defined(__BIG_ENDIAN) && (__FLOAT_WORD_ORDER == __BIG_ENDIAN) || \
|
1329
|
+
defined(_FLOAT_WORD_ORDER) && defined(_BIG_ENDIAN) && (_FLOAT_WORD_ORDER == _BIG_ENDIAN)
|
1330
|
+
#define DUK_F_BYTEORDER 3
|
1331
|
+
#elif !defined(__FLOAT_WORD_ORDER) && !defined(_FLOAT_WORD_ORDER)
|
1332
|
+
/* Float word order not known, assume not a hybrid. */
|
1333
|
+
#define DUK_F_BYTEORDER 3
|
1334
|
+
#else
|
1335
|
+
/* byte order is big endian but cannot determine IEEE double word order */
|
1336
|
+
#endif /* float word order */
|
1337
|
+
#else
|
1338
|
+
/* cannot determine byte order */
|
1339
|
+
#endif /* integer byte order */
|
1340
|
+
#endif /* !defined(DUK_F_BYTEORDER) */
|
1341
|
+
|
1342
|
+
/* GCC and Clang provide endianness defines as built-in predefines, with
|
1343
|
+
* leading and trailing double underscores (e.g. __BYTE_ORDER__). See
|
1344
|
+
* output of "make gccpredefs" and "make clangpredefs". Clang doesn't
|
1345
|
+
* seem to provide __FLOAT_WORD_ORDER__.
|
1346
|
+
* http://gcc.gnu.org/onlinedocs/cpp/Common-Predefined-Macros.html
|
1347
|
+
*/
|
1348
|
+
#if !defined(DUK_F_BYTEORDER) && defined(__BYTE_ORDER__)
|
1349
|
+
#if defined(__ORDER_LITTLE_ENDIAN__) && (__BYTE_ORDER__ == __ORDER_LITTLE_ENDIAN__)
|
1350
|
+
/* Integer little endian */
|
1351
|
+
#if defined(__FLOAT_WORD_ORDER__) && defined(__ORDER_LITTLE_ENDIAN__) && \
|
1352
|
+
(__FLOAT_WORD_ORDER__ == __ORDER_LITTLE_ENDIAN__)
|
1353
|
+
#define DUK_F_BYTEORDER 1
|
1354
|
+
#elif defined(__FLOAT_WORD_ORDER__) && defined(__ORDER_BIG_ENDIAN__) && \
|
1355
|
+
(__FLOAT_WORD_ORDER__ == __ORDER_BIG_ENDIAN__)
|
1356
|
+
#define DUK_F_BYTEORDER 2
|
1357
|
+
#elif !defined(__FLOAT_WORD_ORDER__)
|
1358
|
+
/* Float word order not known, assume not a hybrid. */
|
1359
|
+
#define DUK_F_BYTEORDER 1
|
1360
|
+
#else
|
1361
|
+
/* byte order is little endian but cannot determine IEEE double word order */
|
1362
|
+
#endif /* float word order */
|
1363
|
+
#elif defined(__ORDER_BIG_ENDIAN__) && (__BYTE_ORDER__ == __ORDER_BIG_ENDIAN__)
|
1364
|
+
/* Integer big endian */
|
1365
|
+
#if defined(__FLOAT_WORD_ORDER__) && defined(__ORDER_BIG_ENDIAN__) && \
|
1366
|
+
(__FLOAT_WORD_ORDER__ == __ORDER_BIG_ENDIAN__)
|
1367
|
+
#define DUK_F_BYTEORDER 3
|
1368
|
+
#elif !defined(__FLOAT_WORD_ORDER__)
|
1369
|
+
/* Float word order not known, assume not a hybrid. */
|
1370
|
+
#define DUK_F_BYTEORDER 3
|
1371
|
+
#else
|
1372
|
+
/* byte order is big endian but cannot determine IEEE double word order */
|
1373
|
+
#endif /* float word order */
|
1374
|
+
#else
|
1375
|
+
/* cannot determine byte order; __ORDER_PDP_ENDIAN__ is related to 32-bit
|
1376
|
+
* integer ordering and is not relevant
|
1377
|
+
*/
|
1378
|
+
#endif /* integer byte order */
|
1379
|
+
#endif /* !defined(DUK_F_BYTEORDER) && defined(__BYTE_ORDER__) */
|
1380
|
+
|
1381
|
+
/* Atari ST TOS */
|
1382
|
+
#if !defined(DUK_F_BYTEORDER) && defined(DUK_F_TOS)
|
1383
|
+
#define DUK_F_BYTEORDER 3
|
1384
|
+
#endif
|
1385
|
+
|
1386
|
+
/* AmigaOS on M68k */
|
1387
|
+
#if !defined(DUK_F_BYTEORDER) && defined(DUK_F_AMIGAOS)
|
1388
|
+
#if defined(DUK_F_M68K)
|
1389
|
+
#define DUK_F_BYTEORDER 3
|
1390
|
+
#endif
|
1391
|
+
#endif
|
1392
|
+
|
1393
|
+
/* On Windows, assume we're little endian. Even Itanium which has a
|
1394
|
+
* configurable endianness runs little endian in Windows.
|
1395
|
+
*/
|
1396
|
+
#if !defined(DUK_F_BYTEORDER) && defined(DUK_F_WINDOWS)
|
1397
|
+
/* XXX: verify that Windows on ARM is little endian for floating point
|
1398
|
+
* values too.
|
1399
|
+
*/
|
1400
|
+
#define DUK_F_BYTEORDER 1
|
1401
|
+
#endif /* Windows */
|
1402
|
+
|
1403
|
+
/* Crossbridge should work with the standard byteorder #ifdefs. It doesn't
|
1404
|
+
* provide _FLOAT_WORD_ORDER but the standard approach now covers that case
|
1405
|
+
* too. This has been left here just in case.
|
1406
|
+
*/
|
1407
|
+
#if !defined(DUK_F_BYTEORDER) && defined(DUK_F_FLASHPLAYER)
|
1408
|
+
#define DUK_F_BYTEORDER 1
|
1409
|
+
#endif
|
1410
|
+
|
1411
|
+
/* QNX gcc cross compiler seems to define e.g. __LITTLEENDIAN__ or __BIGENDIAN__:
|
1412
|
+
* $ /opt/qnx650/host/linux/x86/usr/bin/i486-pc-nto-qnx6.5.0-gcc -dM -E - </dev/null | grep -ni endian
|
1413
|
+
* 67:#define __LITTLEENDIAN__ 1
|
1414
|
+
* $ /opt/qnx650/host/linux/x86/usr/bin/mips-unknown-nto-qnx6.5.0-gcc -dM -E - </dev/null | grep -ni endian
|
1415
|
+
* 81:#define __BIGENDIAN__ 1
|
1416
|
+
* $ /opt/qnx650/host/linux/x86/usr/bin/arm-unknown-nto-qnx6.5.0-gcc -dM -E - </dev/null | grep -ni endian
|
1417
|
+
* 70:#define __LITTLEENDIAN__ 1
|
1418
|
+
*/
|
1419
|
+
#if !defined(DUK_F_BYTEORDER) && defined(DUK_F_QNX)
|
1420
|
+
/* XXX: ARM hybrid? */
|
1421
|
+
#if defined(__LITTLEENDIAN__)
|
1422
|
+
#define DUK_F_BYTEORDER 1
|
1423
|
+
#elif defined(__BIGENDIAN__)
|
1424
|
+
#define DUK_F_BYTEORDER 3
|
1425
|
+
#endif
|
1426
|
+
#endif
|
1427
|
+
|
1428
|
+
/* Bruce's C Compiler (BCC), assume we're on x86. */
|
1429
|
+
#if !defined(DUK_F_BYTEORDER) && defined(DUK_F_BCC)
|
1430
|
+
#define DUK_F_BYTEORDER 1
|
1431
|
+
#endif
|
1432
|
+
|
1433
|
+
/* Check whether or not byte order detection worked based on the intermediate
|
1434
|
+
* define, and define final values. If detection failed, #error out.
|
1435
|
+
*/
|
1436
|
+
#if defined(DUK_F_BYTEORDER)
|
1437
|
+
#if (DUK_F_BYTEORDER == 1)
|
1438
|
+
#define DUK_USE_INTEGER_LE
|
1439
|
+
#define DUK_USE_DOUBLE_LE
|
1440
|
+
#elif (DUK_F_BYTEORDER == 2)
|
1441
|
+
#define DUK_USE_INTEGER_LE /* integer endianness is little on purpose */
|
1442
|
+
#define DUK_USE_DOUBLE_ME
|
1443
|
+
#elif (DUK_F_BYTEORDER == 3)
|
1444
|
+
#define DUK_USE_INTEGER_BE
|
1445
|
+
#define DUK_USE_DOUBLE_BE
|
1446
|
+
#else
|
1447
|
+
#error unsupported: byte order detection failed (internal error, should not happen)
|
1448
|
+
#endif /* byte order */
|
1449
|
+
#else
|
1450
|
+
#error unsupported: byte order detection failed
|
1451
|
+
#endif /* defined(DUK_F_BYTEORDER) */
|
1452
|
+
|
1453
|
+
/*
|
1454
|
+
* Check whether or not a packed duk_tval representation is possible.
|
1455
|
+
* What's basically required is that pointers are 32-bit values
|
1456
|
+
* (sizeof(void *) == 4). Best effort check, not always accurate.
|
1457
|
+
* If guess goes wrong, crashes may result; self tests also verify
|
1458
|
+
* the guess.
|
1459
|
+
*/
|
1460
|
+
|
1461
|
+
#undef DUK_USE_PACKED_TVAL_POSSIBLE
|
1462
|
+
|
1463
|
+
/* Strict C99 case: DUK_UINTPTR_MAX (= UINTPTR_MAX) should be very reliable */
|
1464
|
+
#if !defined(DUK_USE_PACKED_TVAL_POSSIBLE) && defined(DUK_F_HAVE_INTTYPES) && defined(DUK_UINTPTR_MAX)
|
1465
|
+
#if (DUK_UINTPTR_MAX <= 0xffffffffUL)
|
1466
|
+
#define DUK_USE_PACKED_TVAL_POSSIBLE
|
1467
|
+
#endif
|
1468
|
+
#endif
|
1469
|
+
|
1470
|
+
/* Non-C99 case, still relying on DUK_UINTPTR_MAX, as long as it is not a computed value */
|
1471
|
+
#if !defined(DUK_USE_PACKED_TVAL_POSSIBLE) && defined(DUK_UINTPTR_MAX) && !defined(DUK_UINTPTR_MAX_COMPUTED)
|
1472
|
+
#if (DUK_UINTPTR_MAX <= 0xffffffffUL)
|
1473
|
+
#define DUK_USE_PACKED_TVAL_POSSIBLE
|
1474
|
+
#endif
|
1475
|
+
#endif
|
1476
|
+
|
1477
|
+
/* DUK_SIZE_MAX (= SIZE_MAX) is often reliable */
|
1478
|
+
#if !defined(DUK_USE_PACKED_TVAL_POSSIBLE) && defined(DUK_SIZE_MAX) && !defined(DUK_SIZE_MAX_COMPUTED)
|
1479
|
+
#if DUK_SIZE_MAX <= 0xffffffffUL
|
1480
|
+
#define DUK_USE_PACKED_TVAL_POSSIBLE
|
1481
|
+
#endif
|
1482
|
+
#endif
|
1483
|
+
|
1484
|
+
/* M68K: packed always possible */
|
1485
|
+
#if !defined(DUK_USE_PACKED_TVAL_POSSIBLE) && defined(DUK_F_M68K)
|
1486
|
+
#define DUK_USE_PACKED_TVAL_POSSIBLE
|
1487
|
+
#endif
|
1488
|
+
|
1489
|
+
/* With Emscripten, force unpacked duk_tval just to be safe, as it seems to
|
1490
|
+
* break at least on Firefox (probably IEEE double arithmetic is not 100%
|
1491
|
+
* supported, especially for NaNs).
|
1492
|
+
*/
|
1493
|
+
#if defined(DUK_USE_PACKED_TVAL_POSSIBLE) && defined(DUK_F_EMSCRIPTEN)
|
1494
|
+
#undef DUK_USE_PACKED_TVAL_POSSIBLE
|
1495
|
+
#endif
|
1496
|
+
|
1497
|
+
/* Microsoft Visual Studio 2010 on x64 fails the above rules and tries to
|
1498
|
+
* use a packed type. Force unpacked on x64 in general.
|
1499
|
+
*/
|
1500
|
+
#if defined(DUK_USE_PACKED_TVAL_POSSIBLE) && defined(DUK_F_X64)
|
1501
|
+
#undef DUK_USE_PACKED_TVAL_POSSIBLE
|
1502
|
+
#endif
|
1503
|
+
|
1504
|
+
/* GCC/clang inaccurate math would break compliance and probably duk_tval,
|
1505
|
+
* so refuse to compile. Relax this if -ffast-math is tested to work.
|
1506
|
+
*/
|
1507
|
+
#if defined(__FAST_MATH__)
|
1508
|
+
#error __FAST_MATH__ defined, refusing to compile
|
1509
|
+
#endif
|
1510
|
+
|
1511
|
+
/*
|
1512
|
+
* Detection of double constants and math related functions. Availability
|
1513
|
+
* of constants and math functions is a significant porting concern.
|
1514
|
+
*
|
1515
|
+
* INFINITY/HUGE_VAL is problematic on GCC-3.3: it causes an overflow warning
|
1516
|
+
* and there is no pragma in GCC-3.3 to disable it. Using __builtin_inf()
|
1517
|
+
* avoids this problem for some reason.
|
1518
|
+
*/
|
1519
|
+
|
1520
|
+
#define DUK_DOUBLE_2TO32 4294967296.0
|
1521
|
+
#define DUK_DOUBLE_2TO31 2147483648.0
|
1522
|
+
|
1523
|
+
#undef DUK_USE_COMPUTED_INFINITY
|
1524
|
+
#if defined(DUK_F_GCC_VERSION) && (DUK_F_GCC_VERSION < 40600)
|
1525
|
+
/* GCC older than 4.6: avoid overflow warnings related to using INFINITY */
|
1526
|
+
#define DUK_DOUBLE_INFINITY (__builtin_inf())
|
1527
|
+
#elif defined(INFINITY)
|
1528
|
+
#define DUK_DOUBLE_INFINITY ((double) INFINITY)
|
1529
|
+
#elif !defined(DUK_F_VBCC) && !defined(DUK_F_MSVC) && !defined(DUK_F_BCC)
|
1530
|
+
#define DUK_DOUBLE_INFINITY (1.0 / 0.0)
|
1531
|
+
#else
|
1532
|
+
/* In VBCC (1.0 / 0.0) results in a warning and 0.0 instead of infinity.
|
1533
|
+
* Use a computed infinity (initialized when a heap is created at the
|
1534
|
+
* latest).
|
1535
|
+
*/
|
1536
|
+
extern double duk_computed_infinity;
|
1537
|
+
#define DUK_USE_COMPUTED_INFINITY
|
1538
|
+
#define DUK_DOUBLE_INFINITY duk_computed_infinity
|
1539
|
+
#endif
|
1540
|
+
|
1541
|
+
#undef DUK_USE_COMPUTED_NAN
|
1542
|
+
#if defined(NAN)
|
1543
|
+
#define DUK_DOUBLE_NAN NAN
|
1544
|
+
#elif !defined(DUK_F_VBCC) && !defined(DUK_F_MSVC) && !defined(DUK_F_BCC)
|
1545
|
+
#define DUK_DOUBLE_NAN (0.0 / 0.0)
|
1546
|
+
#else
|
1547
|
+
/* In VBCC (0.0 / 0.0) results in a warning and 0.0 instead of NaN.
|
1548
|
+
* In MSVC (VS2010 Express) (0.0 / 0.0) results in a compile error.
|
1549
|
+
* Use a computed NaN (initialized when a heap is created at the
|
1550
|
+
* latest).
|
1551
|
+
*/
|
1552
|
+
extern double duk_computed_nan;
|
1553
|
+
#define DUK_USE_COMPUTED_NAN
|
1554
|
+
#define DUK_DOUBLE_NAN duk_computed_nan
|
1555
|
+
#endif
|
1556
|
+
|
1557
|
+
/* Many platforms are missing fpclassify() and friends, so use replacements
|
1558
|
+
* if necessary. The replacement constants (FP_NAN etc) can be anything but
|
1559
|
+
* match Linux constants now.
|
1560
|
+
*/
|
1561
|
+
#undef DUK_USE_REPL_FPCLASSIFY
|
1562
|
+
#undef DUK_USE_REPL_SIGNBIT
|
1563
|
+
#undef DUK_USE_REPL_ISFINITE
|
1564
|
+
#undef DUK_USE_REPL_ISNAN
|
1565
|
+
#undef DUK_USE_REPL_ISINF
|
1566
|
+
|
1567
|
+
/* Complex condition broken into separate parts. */
|
1568
|
+
#undef DUK_F_USE_REPL_ALL
|
1569
|
+
#if !(defined(FP_NAN) && defined(FP_INFINITE) && defined(FP_ZERO) && \
|
1570
|
+
defined(FP_SUBNORMAL) && defined(FP_NORMAL))
|
1571
|
+
/* Missing some obvious constants. */
|
1572
|
+
#define DUK_F_USE_REPL_ALL
|
1573
|
+
#elif defined(DUK_F_AMIGAOS) && defined(DUK_F_VBCC)
|
1574
|
+
/* VBCC is missing the built-ins even in C99 mode (perhaps a header issue) */
|
1575
|
+
#define DUK_F_USE_REPL_ALL
|
1576
|
+
#elif defined(DUK_F_FREEBSD) && defined(DUK_F_CLANG)
|
1577
|
+
/* Placeholder fix for (detection is wider than necessary):
|
1578
|
+
* http://llvm.org/bugs/show_bug.cgi?id=17788
|
1579
|
+
*/
|
1580
|
+
#define DUK_F_USE_REPL_ALL
|
1581
|
+
#elif defined(DUK_F_UCLIBC)
|
1582
|
+
/* At least some uclibc versions have broken floating point math. For
|
1583
|
+
* example, fpclassify() can incorrectly classify certain NaN formats.
|
1584
|
+
* To be safe, use replacements.
|
1585
|
+
*/
|
1586
|
+
#define DUK_F_USE_REPL_ALL
|
1587
|
+
#endif
|
1588
|
+
|
1589
|
+
#if defined(DUK_F_USE_REPL_ALL)
|
1590
|
+
#define DUK_USE_REPL_FPCLASSIFY
|
1591
|
+
#define DUK_USE_REPL_SIGNBIT
|
1592
|
+
#define DUK_USE_REPL_ISFINITE
|
1593
|
+
#define DUK_USE_REPL_ISNAN
|
1594
|
+
#define DUK_USE_REPL_ISINF
|
1595
|
+
#define DUK_FPCLASSIFY duk_repl_fpclassify
|
1596
|
+
#define DUK_SIGNBIT duk_repl_signbit
|
1597
|
+
#define DUK_ISFINITE duk_repl_isfinite
|
1598
|
+
#define DUK_ISNAN duk_repl_isnan
|
1599
|
+
#define DUK_ISINF duk_repl_isinf
|
1600
|
+
#define DUK_FP_NAN 0
|
1601
|
+
#define DUK_FP_INFINITE 1
|
1602
|
+
#define DUK_FP_ZERO 2
|
1603
|
+
#define DUK_FP_SUBNORMAL 3
|
1604
|
+
#define DUK_FP_NORMAL 4
|
1605
|
+
#else
|
1606
|
+
#define DUK_FPCLASSIFY fpclassify
|
1607
|
+
#define DUK_SIGNBIT signbit
|
1608
|
+
#define DUK_ISFINITE isfinite
|
1609
|
+
#define DUK_ISNAN isnan
|
1610
|
+
#define DUK_ISINF isinf
|
1611
|
+
#define DUK_FP_NAN FP_NAN
|
1612
|
+
#define DUK_FP_INFINITE FP_INFINITE
|
1613
|
+
#define DUK_FP_ZERO FP_ZERO
|
1614
|
+
#define DUK_FP_SUBNORMAL FP_SUBNORMAL
|
1615
|
+
#define DUK_FP_NORMAL FP_NORMAL
|
1616
|
+
#endif
|
1617
|
+
|
1618
|
+
#if defined(DUK_F_USE_REPL_ALL)
|
1619
|
+
#undef DUK_F_USE_REPL_ALL
|
1620
|
+
#endif
|
1621
|
+
|
1622
|
+
/* Some math functions are C99 only. This is also an issue with some
|
1623
|
+
* embedded environments using uclibc where uclibc has been configured
|
1624
|
+
* not to provide some functions. For now, use replacements whenever
|
1625
|
+
* using uclibc.
|
1626
|
+
*/
|
1627
|
+
#undef DUK_USE_MATH_FMIN
|
1628
|
+
#undef DUK_USE_MATH_FMAX
|
1629
|
+
#undef DUK_USE_MATH_ROUND
|
1630
|
+
#if defined(DUK_F_UCLIBC)
|
1631
|
+
/* uclibc may be missing these */
|
1632
|
+
#elif defined(DUK_F_AMIGAOS) && defined(DUK_F_VBCC)
|
1633
|
+
/* vbcc + AmigaOS may be missing these */
|
1634
|
+
#elif !defined(DUK_F_C99) && !defined(DUK_F_CPP11)
|
1635
|
+
/* build is not C99 or C++11, play it safe */
|
1636
|
+
#else
|
1637
|
+
/* C99 or C++11, no known issues */
|
1638
|
+
#define DUK_USE_MATH_FMIN
|
1639
|
+
#define DUK_USE_MATH_FMAX
|
1640
|
+
#define DUK_USE_MATH_ROUND
|
1641
|
+
#endif
|
1642
|
+
|
1643
|
+
/* These functions don't currently need replacement but are wrapped for
|
1644
|
+
* completeness. Because these are used as function pointers, they need
|
1645
|
+
* to be defined as concrete C functions (not macros).
|
1646
|
+
*/
|
1647
|
+
#define DUK_FABS fabs
|
1648
|
+
#define DUK_FMIN fmin
|
1649
|
+
#define DUK_FMAX fmax
|
1650
|
+
#define DUK_FLOOR floor
|
1651
|
+
#define DUK_CEIL ceil
|
1652
|
+
#define DUK_FMOD fmod
|
1653
|
+
#define DUK_POW pow
|
1654
|
+
#define DUK_ACOS acos
|
1655
|
+
#define DUK_ASIN asin
|
1656
|
+
#define DUK_ATAN atan
|
1657
|
+
#define DUK_ATAN2 atan2
|
1658
|
+
#define DUK_SIN sin
|
1659
|
+
#define DUK_COS cos
|
1660
|
+
#define DUK_TAN tan
|
1661
|
+
#define DUK_EXP exp
|
1662
|
+
#define DUK_LOG log
|
1663
|
+
#define DUK_SQRT sqrt
|
1664
|
+
|
1665
|
+
/* NetBSD 6.0 x86 (at least) has a few problems with pow() semantics,
|
1666
|
+
* see test-bug-netbsd-math-pow.js. Use NetBSD specific workaround.
|
1667
|
+
* (This might be a wider problem; if so, generalize the define name.)
|
1668
|
+
*/
|
1669
|
+
#undef DUK_USE_POW_NETBSD_WORKAROUND
|
1670
|
+
#if defined(DUK_F_NETBSD)
|
1671
|
+
#define DUK_USE_POW_NETBSD_WORKAROUND
|
1672
|
+
#endif
|
1673
|
+
|
1674
|
+
/* Rely as little as possible on compiler behavior for NaN comparison,
|
1675
|
+
* signed zero handling, etc. Currently never activated but may be needed
|
1676
|
+
* for broken compilers.
|
1677
|
+
*/
|
1678
|
+
#undef DUK_USE_PARANOID_MATH
|
1679
|
+
|
1680
|
+
/* There was a curious bug where test-bi-date-canceling.js would fail e.g.
|
1681
|
+
* on 64-bit Ubuntu, gcc-4.8.1, -m32, and no -std=c99. Some date computations
|
1682
|
+
* using doubles would be optimized which then broke some corner case tests.
|
1683
|
+
* The problem goes away by adding 'volatile' to the datetime computations.
|
1684
|
+
* Not sure what the actual triggering conditions are, but using this on
|
1685
|
+
* non-C99 systems solves the known issues and has relatively little cost
|
1686
|
+
* on other platforms. See bugs/issue-2e9d9c2d761dabaf8136c0897b91a270d1a47147.yaml.
|
1687
|
+
*/
|
1688
|
+
#undef DUK_USE_PARANOID_DATE_COMPUTATION
|
1689
|
+
#if !defined(DUK_F_C99)
|
1690
|
+
#define DUK_USE_PARANOID_DATE_COMPUTATION
|
1691
|
+
#endif
|
1692
|
+
|
1693
|
+
/*
|
1694
|
+
* ANSI C string/memory function wrapper defines to allow easier workarounds.
|
1695
|
+
* Also convenience macros like DUK_MEMZERO which may be mapped to existing
|
1696
|
+
* platform function to zero memory (like the deprecated bzero).
|
1697
|
+
*
|
1698
|
+
* For instance, some platforms don't support zero-size memcpy correctly,
|
1699
|
+
* some arcane uclibc versions have a buggy memcpy (but working memmove)
|
1700
|
+
* and so on. Such broken platforms can be dealt with here.
|
1701
|
+
*
|
1702
|
+
* NOTE: ANSI C (various versions) and some implementations require that the
|
1703
|
+
* pointer arguments to memset(), memcpy(), and memmove() be valid values
|
1704
|
+
* even when byte size is 0 (even a NULL pointer is considered invalid in
|
1705
|
+
* this context). Zero-size operations as such are allowed, as long as their
|
1706
|
+
* pointer arguments point to a valid memory area. The DUK_MEMSET(),
|
1707
|
+
* DUK_MEMCPY(), and DUK_MEMMOVE() macros require this same behavior, i.e.:
|
1708
|
+
* (1) pointers must be valid and non-NULL, (2) zero size must otherwise be
|
1709
|
+
* allowed. If these are not fulfilled, a macro wrapper is needed.
|
1710
|
+
*
|
1711
|
+
* http://stackoverflow.com/questions/5243012/is-it-guaranteed-to-be-safe-to-perform-memcpy0-0-0
|
1712
|
+
* http://lists.cs.uiuc.edu/pipermail/llvmdev/2007-October/011065.html
|
1713
|
+
*
|
1714
|
+
* Not sure what's the required behavior when a pointer points just past the
|
1715
|
+
* end of a buffer, which often happens in practice (e.g. zero size memmoves).
|
1716
|
+
* For example, if allocation size is 3, the following pointer would not
|
1717
|
+
* technically point to a valid memory byte:
|
1718
|
+
*
|
1719
|
+
* <-- alloc -->
|
1720
|
+
* | 0 | 1 | 2 | .....
|
1721
|
+
* ^-- p=3, points after last valid byte (2)
|
1722
|
+
*
|
1723
|
+
* If this is a practical issue, wrappers are again needed.
|
1724
|
+
*/
|
1725
|
+
|
1726
|
+
typedef FILE duk_file;
|
1727
|
+
#define DUK_STDIN stdin
|
1728
|
+
#define DUK_STDOUT stdout
|
1729
|
+
#define DUK_STDERR stderr
|
1730
|
+
|
1731
|
+
/* Special naming to avoid conflict with e.g. DUK_FREE() in duk_heap.h
|
1732
|
+
* (which is unfortunately named).
|
1733
|
+
*/
|
1734
|
+
#define DUK_ANSI_MALLOC malloc
|
1735
|
+
#define DUK_ANSI_REALLOC realloc
|
1736
|
+
#define DUK_ANSI_CALLOC calloc
|
1737
|
+
#define DUK_ANSI_FREE free
|
1738
|
+
|
1739
|
+
/* Old uclibcs have a broken memcpy so use memmove instead (this is overly
|
1740
|
+
* wide now on purpose):
|
1741
|
+
* http://lists.uclibc.org/pipermail/uclibc-cvs/2008-October/025511.html
|
1742
|
+
*/
|
1743
|
+
#if defined(DUK_F_UCLIBC)
|
1744
|
+
#define DUK_MEMCPY memmove
|
1745
|
+
#else
|
1746
|
+
#define DUK_MEMCPY memcpy
|
1747
|
+
#endif
|
1748
|
+
|
1749
|
+
#define DUK_MEMMOVE memmove
|
1750
|
+
#define DUK_MEMCMP memcmp
|
1751
|
+
#define DUK_MEMSET memset
|
1752
|
+
#define DUK_STRLEN strlen
|
1753
|
+
#define DUK_STRCMP strcmp
|
1754
|
+
#define DUK_STRNCMP strncmp
|
1755
|
+
#define DUK_PRINTF printf
|
1756
|
+
#define DUK_FPRINTF fprintf
|
1757
|
+
#define DUK_SPRINTF sprintf
|
1758
|
+
|
1759
|
+
#if defined(DUK_F_MSVC)
|
1760
|
+
/* _snprintf() does NOT NUL terminate on truncation, but Duktape code never
|
1761
|
+
* assumes that.
|
1762
|
+
* http://stackoverflow.com/questions/2915672/snprintf-and-visual-studio-2010
|
1763
|
+
*/
|
1764
|
+
#define DUK_SNPRINTF _snprintf
|
1765
|
+
#else
|
1766
|
+
#define DUK_SNPRINTF snprintf
|
1767
|
+
#endif
|
1768
|
+
|
1769
|
+
#define DUK_VSPRINTF vsprintf
|
1770
|
+
|
1771
|
+
#if defined(DUK_F_MSVC)
|
1772
|
+
#if (_MSC_VER < 1600)
|
1773
|
+
/* Older MSVC version are missing vsnprintf() but have _vsnprintf(). */
|
1774
|
+
#define DUK_VSNPRINTF _vsnprintf
|
1775
|
+
#else
|
1776
|
+
#define DUK_VSNPRINTF vsnprintf
|
1777
|
+
#endif
|
1778
|
+
#else
|
1779
|
+
#define DUK_VSNPRINTF vsnprintf
|
1780
|
+
#endif /* DUK_F_MSVC */
|
1781
|
+
|
1782
|
+
#define DUK_SSCANF sscanf
|
1783
|
+
#define DUK_VSSCANF vsscanf
|
1784
|
+
#define DUK_FOPEN fopen
|
1785
|
+
#define DUK_FCLOSE fclose
|
1786
|
+
#define DUK_FREAD fread
|
1787
|
+
#define DUK_FWRITE fwrite
|
1788
|
+
#define DUK_FSEEK fseek
|
1789
|
+
#define DUK_FTELL ftell
|
1790
|
+
#define DUK_FFLUSH fflush
|
1791
|
+
#define DUK_FPUTC fputc
|
1792
|
+
|
1793
|
+
#define DUK_MEMZERO(p,n) \
|
1794
|
+
DUK_MEMSET((p), 0, (n))
|
1795
|
+
|
1796
|
+
/*
|
1797
|
+
* Avoiding platform function pointers.
|
1798
|
+
*
|
1799
|
+
* On some platforms built-in functions may be implemented as macros or
|
1800
|
+
* inline functions, so they can't be necessarily addressed by function
|
1801
|
+
* pointers. This is certainly the case with some platform "polyfills"
|
1802
|
+
* which provide missing C99/C++11 functions through macros, and may be
|
1803
|
+
* the case with VS2013 (see GH-17).
|
1804
|
+
*/
|
1805
|
+
|
1806
|
+
/* This is now the default: the cost in footprint is negligible. */
|
1807
|
+
#define DUK_USE_AVOID_PLATFORM_FUNCPTRS
|
1808
|
+
|
1809
|
+
/*
|
1810
|
+
* Vararg macro wrappers. We need va_copy() which is defined in C99 / C++11,
|
1811
|
+
* so an awkward replacement is needed for pre-C99 / pre-C++11 environments.
|
1812
|
+
* This will quite likely need portability hacks for some non-C99 environments.
|
1813
|
+
*/
|
1814
|
+
|
1815
|
+
#if defined(DUK_F_C99) || defined(DUK_F_CPP11)
|
1816
|
+
/* C99 / C++11 and above: rely on va_copy() which is required.
|
1817
|
+
* Omit parenthesis on macro right side on purpose to minimize differences
|
1818
|
+
* to direct use.
|
1819
|
+
*/
|
1820
|
+
#define DUK_VA_COPY(dest,src) va_copy(dest,src)
|
1821
|
+
#elif defined(DUK_F_GCC) || defined(DUK_F_CLANG)
|
1822
|
+
/* GCC: assume we have __va_copy() in non-C99 mode, which should be correct
|
1823
|
+
* for even quite old GCC versions. Clang matches GCC behavior.
|
1824
|
+
*/
|
1825
|
+
#define DUK_VA_COPY(dest,src) __va_copy(dest,src)
|
1826
|
+
#else
|
1827
|
+
/* Pre-C99: va_list type is implementation dependent. This replacement
|
1828
|
+
* assumes it is a plain value so that a simple assignment will work.
|
1829
|
+
* This is not the case on all platforms (it may be a single-array element,
|
1830
|
+
* for instance).
|
1831
|
+
*/
|
1832
|
+
#define DUK_VA_COPY(dest,src) do { (dest) = (src); } while (0)
|
1833
|
+
#endif
|
1834
|
+
|
1835
|
+
/*
|
1836
|
+
* Miscellaneous ANSI C or other platform wrappers.
|
1837
|
+
*/
|
1838
|
+
|
1839
|
+
#define DUK_ABORT abort
|
1840
|
+
#define DUK_EXIT exit
|
1841
|
+
#define DUK_SETJMP setjmp
|
1842
|
+
#define DUK_LONGJMP longjmp
|
1843
|
+
|
1844
|
+
/*
|
1845
|
+
* Macro hackery to convert e.g. __LINE__ to a string without formatting,
|
1846
|
+
* see: http://stackoverflow.com/questions/240353/convert-a-preprocessor-token-to-a-string
|
1847
|
+
*/
|
1848
|
+
|
1849
|
+
#define DUK_F_STRINGIFY_HELPER(x) #x
|
1850
|
+
#define DUK_MACRO_STRINGIFY(x) DUK_F_STRINGIFY_HELPER(x)
|
1851
|
+
|
1852
|
+
/*
|
1853
|
+
* Cause segfault macro.
|
1854
|
+
*
|
1855
|
+
* This is optionally used by panic handling to cause the program to segfault
|
1856
|
+
* (instead of e.g. abort()) on panic. Valgrind will then indicate the C
|
1857
|
+
* call stack leading to the panic.
|
1858
|
+
*/
|
1859
|
+
|
1860
|
+
#define DUK_CAUSE_SEGFAULT() do { \
|
1861
|
+
*((duk_uint32_t *) NULL) = (duk_uint32_t) 0xdeadbeefUL; \
|
1862
|
+
} while (0)
|
1863
|
+
|
1864
|
+
/*
|
1865
|
+
* Macro for suppressing warnings for potentially unreferenced variables.
|
1866
|
+
* The variables can be actually unreferenced or unreferenced in some
|
1867
|
+
* specific cases only; for instance, if a variable is only debug printed,
|
1868
|
+
* it is unreferenced when debug printing is disabled.
|
1869
|
+
*
|
1870
|
+
* (Introduced here because it's potentially compiler specific.)
|
1871
|
+
*/
|
1872
|
+
|
1873
|
+
#define DUK_UNREF(x) do { \
|
1874
|
+
(void) (x); \
|
1875
|
+
} while (0)
|
1876
|
+
|
1877
|
+
/*
|
1878
|
+
* DUK_NORETURN: macro for declaring a 'noreturn' function.
|
1879
|
+
* Unfortunately the noreturn declaration may appear in various
|
1880
|
+
* places of a function declaration, so the solution is to wrap
|
1881
|
+
* the entire declaration inside the macro. Compiler support
|
1882
|
+
* for using a noreturn declaration on function pointers varies;
|
1883
|
+
* this macro must only be used for actual function declarations.
|
1884
|
+
*
|
1885
|
+
* http://gcc.gnu.org/onlinedocs/gcc-4.3.2//gcc/Function-Attributes.html
|
1886
|
+
* http://clang.llvm.org/docs/LanguageExtensions.html
|
1887
|
+
*/
|
1888
|
+
|
1889
|
+
#if defined(DUK_F_GCC_VERSION) && (DUK_F_GCC_VERSION >= 20500L)
|
1890
|
+
/* since gcc-2.5 */
|
1891
|
+
#define DUK_NORETURN(decl) decl __attribute__((noreturn))
|
1892
|
+
#elif defined(__clang__)
|
1893
|
+
/* syntax same as gcc */
|
1894
|
+
#define DUK_NORETURN(decl) decl __attribute__((noreturn))
|
1895
|
+
#elif defined(DUK_F_MSVC)
|
1896
|
+
/* http://msdn.microsoft.com/en-us/library/aa235362(VS.60).aspx */
|
1897
|
+
#define DUK_NORETURN(decl) __declspec(noreturn) decl
|
1898
|
+
#else
|
1899
|
+
/* Don't know how to declare a noreturn function, so don't do it; this
|
1900
|
+
* may cause some spurious compilation warnings (e.g. "variable used
|
1901
|
+
* uninitialized").
|
1902
|
+
*/
|
1903
|
+
#define DUK_NORETURN(decl) decl
|
1904
|
+
#endif
|
1905
|
+
|
1906
|
+
/*
|
1907
|
+
* Macro for stating that a certain line cannot be reached.
|
1908
|
+
*
|
1909
|
+
* http://gcc.gnu.org/onlinedocs/gcc-4.5.0/gcc/Other-Builtins.html#Other-Builtins
|
1910
|
+
* http://clang.llvm.org/docs/LanguageExtensions.html
|
1911
|
+
*/
|
1912
|
+
|
1913
|
+
#if defined(DUK_F_GCC_VERSION) && (DUK_F_GCC_VERSION >= 40500L)
|
1914
|
+
/* since gcc-4.5 */
|
1915
|
+
#define DUK_UNREACHABLE() do { __builtin_unreachable(); } while(0)
|
1916
|
+
#elif defined(__clang__) && defined(__has_builtin)
|
1917
|
+
#if __has_builtin(__builtin_unreachable)
|
1918
|
+
/* same as gcc */
|
1919
|
+
#define DUK_UNREACHABLE() do { __builtin_unreachable(); } while(0)
|
1920
|
+
#endif
|
1921
|
+
#else
|
1922
|
+
/* unknown */
|
1923
|
+
#endif
|
1924
|
+
|
1925
|
+
#if !defined(DUK_UNREACHABLE)
|
1926
|
+
/* Don't know how to declare unreachable point, so don't do it; this
|
1927
|
+
* may cause some spurious compilation warnings (e.g. "variable used
|
1928
|
+
* uninitialized").
|
1929
|
+
*/
|
1930
|
+
#define DUK_UNREACHABLE() /* unreachable */
|
1931
|
+
#endif
|
1932
|
+
|
1933
|
+
/*
|
1934
|
+
* Likely and unlikely branches. Using these is not at all a clear cut case,
|
1935
|
+
* so the selection is a two-step process: (1) DUK_USE_BRANCH_HINTS is set
|
1936
|
+
* if the architecture, compiler etc make it useful to use the hints, and (2)
|
1937
|
+
* a separate check determines how to do them.
|
1938
|
+
*
|
1939
|
+
* These macros expect the argument to be a relational expression with an
|
1940
|
+
* integer value. If used with pointers, you should use an explicit check
|
1941
|
+
* like:
|
1942
|
+
*
|
1943
|
+
* if (DUK_LIKELY(ptr != NULL)) { ... }
|
1944
|
+
*
|
1945
|
+
* instead of:
|
1946
|
+
*
|
1947
|
+
* if (DUK_LIKELY(ptr)) { ... }
|
1948
|
+
*
|
1949
|
+
* http://gcc.gnu.org/onlinedocs/gcc/Other-Builtins.html (__builtin_expect)
|
1950
|
+
*/
|
1951
|
+
|
1952
|
+
/* pretty much a placeholder now */
|
1953
|
+
#if defined(DUK_F_GCC)
|
1954
|
+
#define DUK_USE_BRANCH_HINTS
|
1955
|
+
#elif defined(DUK_F_CLANG)
|
1956
|
+
#define DUK_USE_BRANCH_HINTS
|
1957
|
+
#else
|
1958
|
+
#undef DUK_USE_BRANCH_HINTS
|
1959
|
+
#endif
|
1960
|
+
|
1961
|
+
#if defined(DUK_USE_BRANCH_HINTS)
|
1962
|
+
#if defined(DUK_F_GCC_VERSION) && (DUK_F_GCC_VERISON >= 40500L)
|
1963
|
+
/* GCC: test not very accurate; enable only in relatively recent builds
|
1964
|
+
* because of bugs in gcc-4.4 (http://lists.debian.org/debian-gcc/2010/04/msg00000.html)
|
1965
|
+
*/
|
1966
|
+
#define DUK_LIKELY(x) __builtin_expect((x), 1)
|
1967
|
+
#define DUK_UNLIKELY(x) __builtin_expect((x), 0)
|
1968
|
+
#elif defined(DUK_F_CLANG)
|
1969
|
+
#define DUK_LIKELY(x) __builtin_expect((x), 1)
|
1970
|
+
#define DUK_UNLIKELY(x) __builtin_expect((x), 0)
|
1971
|
+
#endif
|
1972
|
+
#endif /* DUK_USE_BRANCH_HINTS */
|
1973
|
+
|
1974
|
+
#if !defined(DUK_LIKELY)
|
1975
|
+
#define DUK_LIKELY(x) (x)
|
1976
|
+
#endif
|
1977
|
+
#if !defined(DUK_UNLIKELY)
|
1978
|
+
#define DUK_UNLIKELY(x) (x)
|
1979
|
+
#endif
|
1980
|
+
|
1981
|
+
/*
|
1982
|
+
* __FILE__, __LINE__, __func__ are wrapped. Especially __func__ is a
|
1983
|
+
* problem because it is not available even in some compilers which try
|
1984
|
+
* to be C99 compatible (e.g. VBCC with -c99 option).
|
1985
|
+
*/
|
1986
|
+
|
1987
|
+
#define DUK_FILE_MACRO __FILE__
|
1988
|
+
|
1989
|
+
#define DUK_LINE_MACRO __LINE__
|
1990
|
+
|
1991
|
+
#if !defined(DUK_F_VBCC) && !defined(DUK_F_MSVC)
|
1992
|
+
#define DUK_FUNC_MACRO __func__
|
1993
|
+
#else
|
1994
|
+
#define DUK_FUNC_MACRO "unknown"
|
1995
|
+
#endif
|
1996
|
+
|
1997
|
+
/*
|
1998
|
+
* Architecture string, human readable value exposed in Duktape.env
|
1999
|
+
*/
|
2000
|
+
|
2001
|
+
#if defined(DUK_F_X86)
|
2002
|
+
#define DUK_USE_ARCH_STRING "x86"
|
2003
|
+
#elif defined(DUK_F_X32)
|
2004
|
+
#define DUK_USE_ARCH_STRING "x32"
|
2005
|
+
#elif defined(DUK_F_X64)
|
2006
|
+
#define DUK_USE_ARCH_STRING "x64"
|
2007
|
+
#elif defined(DUK_F_ARM)
|
2008
|
+
#define DUK_USE_ARCH_STRING "arm"
|
2009
|
+
#elif defined(DUK_F_MIPS)
|
2010
|
+
#define DUK_USE_ARCH_STRING "mips"
|
2011
|
+
#elif defined(DUK_F_M68K)
|
2012
|
+
#define DUK_USE_ARCH_STRING "m68k"
|
2013
|
+
#elif defined(DUK_F_FLASHPLAYER)
|
2014
|
+
#define DUK_USE_ARCH_STRING "flashplayer"
|
2015
|
+
#elif defined(DUK_F_EMSCRIPTEN)
|
2016
|
+
#define DUK_USE_ARCH_STRING "emscripten"
|
2017
|
+
#else
|
2018
|
+
#define DUK_USE_ARCH_STRING "unknown"
|
2019
|
+
#endif
|
2020
|
+
|
2021
|
+
/*
|
2022
|
+
* Tagged type representation (duk_tval)
|
2023
|
+
*/
|
2024
|
+
|
2025
|
+
#undef DUK_USE_PACKED_TVAL
|
2026
|
+
#undef DUK_USE_FULL_TVAL
|
2027
|
+
|
2028
|
+
#if defined(DUK_USE_PACKED_TVAL_POSSIBLE) && !defined(DUK_OPT_NO_PACKED_TVAL)
|
2029
|
+
#define DUK_USE_PACKED_TVAL
|
2030
|
+
#undef DUK_USE_FULL_TVAL
|
2031
|
+
#endif
|
2032
|
+
|
2033
|
+
/*
|
2034
|
+
* Memory management options
|
2035
|
+
*/
|
2036
|
+
|
2037
|
+
#define DUK_USE_REFERENCE_COUNTING
|
2038
|
+
#define DUK_USE_DOUBLE_LINKED_HEAP
|
2039
|
+
#define DUK_USE_MARK_AND_SWEEP
|
2040
|
+
#define DUK_USE_MS_STRINGTABLE_RESIZE
|
2041
|
+
#undef DUK_USE_GC_TORTURE
|
2042
|
+
|
2043
|
+
#if defined(DUK_OPT_NO_REFERENCE_COUNTING)
|
2044
|
+
#undef DUK_USE_REFERENCE_COUNTING
|
2045
|
+
#undef DUK_USE_DOUBLE_LINKED_HEAP
|
2046
|
+
/* XXX: undef DUK_USE_MS_STRINGTABLE_RESIZE as it is more expensive
|
2047
|
+
* with more frequent mark-and-sweeps?
|
2048
|
+
*/
|
2049
|
+
#endif
|
2050
|
+
|
2051
|
+
#if defined(DUK_OPT_NO_MARK_AND_SWEEP)
|
2052
|
+
#undef DUK_USE_MARK_AND_SWEEP
|
2053
|
+
#endif
|
2054
|
+
|
2055
|
+
#if defined(DUK_USE_MARK_AND_SWEEP)
|
2056
|
+
#define DUK_USE_VOLUNTARY_GC
|
2057
|
+
#if defined(DUK_OPT_NO_VOLUNTARY_GC)
|
2058
|
+
#undef DUK_USE_VOLUNTARY_GC
|
2059
|
+
#endif
|
2060
|
+
#endif
|
2061
|
+
|
2062
|
+
#if !defined(DUK_USE_MARK_AND_SWEEP) && !defined(DUK_USE_REFERENCE_COUNTING)
|
2063
|
+
#error must have either mark-and-sweep or reference counting enabled
|
2064
|
+
#endif
|
2065
|
+
|
2066
|
+
#if defined(DUK_OPT_NO_MS_STRINGTABLE_RESIZE)
|
2067
|
+
#undef DUK_USE_MS_STRINGTABLE_RESIZE
|
2068
|
+
#endif
|
2069
|
+
|
2070
|
+
#if defined(DUK_OPT_GC_TORTURE)
|
2071
|
+
#define DUK_USE_GC_TORTURE
|
2072
|
+
#endif
|
2073
|
+
|
2074
|
+
/*
|
2075
|
+
* Error handling options
|
2076
|
+
*/
|
2077
|
+
|
2078
|
+
#define DUK_USE_AUGMENT_ERROR_CREATE
|
2079
|
+
#define DUK_USE_AUGMENT_ERROR_THROW
|
2080
|
+
#define DUK_USE_TRACEBACKS
|
2081
|
+
#define DUK_USE_ERRCREATE
|
2082
|
+
#define DUK_USE_ERRTHROW
|
2083
|
+
|
2084
|
+
#define DUK_USE_VERBOSE_ERRORS
|
2085
|
+
|
2086
|
+
#if defined(DUK_OPT_NO_AUGMENT_ERRORS)
|
2087
|
+
#undef DUK_USE_AUGMENT_ERROR_CREATE
|
2088
|
+
#undef DUK_USE_AUGMENT_ERROR_THROW
|
2089
|
+
#undef DUK_USE_TRACEBACKS
|
2090
|
+
#undef DUK_USE_ERRCREATE
|
2091
|
+
#undef DUK_USE_ERRTHROW
|
2092
|
+
#elif defined(DUK_OPT_NO_TRACEBACKS)
|
2093
|
+
#undef DUK_USE_TRACEBACKS
|
2094
|
+
#endif
|
2095
|
+
|
2096
|
+
#if defined(DUK_OPT_NO_VERBOSE_ERRORS)
|
2097
|
+
#undef DUK_USE_VERBOSE_ERRORS
|
2098
|
+
#endif
|
2099
|
+
|
2100
|
+
#if defined(DUK_USE_TRACEBACKS)
|
2101
|
+
#if defined(DUK_OPT_TRACEBACK_DEPTH)
|
2102
|
+
#define DUK_USE_TRACEBACK_DEPTH DUK_OPT_TRACEBACK_DEPTH
|
2103
|
+
#else
|
2104
|
+
#define DUK_USE_TRACEBACK_DEPTH 10
|
2105
|
+
#endif
|
2106
|
+
#endif
|
2107
|
+
|
2108
|
+
/* Include messages in executor internal errors. */
|
2109
|
+
#define DUK_USE_VERBOSE_EXECUTOR_ERRORS
|
2110
|
+
|
2111
|
+
/*
|
2112
|
+
* Execution and debugger options
|
2113
|
+
*/
|
2114
|
+
|
2115
|
+
#define DUK_USE_INTERRUPT_COUNTER
|
2116
|
+
#if defined(DUK_OPT_NO_INTERRUPT_COUNTER)
|
2117
|
+
#undef DUK_USE_INTERRUPT_COUNTER
|
2118
|
+
#endif
|
2119
|
+
|
2120
|
+
/* For opcodes with indirect indices, check final index against stack size.
|
2121
|
+
* This should not be necessary because the compiler is trusted, and we don't
|
2122
|
+
* bound check non-indirect indices either.
|
2123
|
+
*/
|
2124
|
+
#undef DUK_USE_EXEC_INDIRECT_BOUND_CHECK
|
2125
|
+
#if defined(DUK_OPT_DEBUG) || defined(DUK_OPT_ASSERTIONS)
|
2126
|
+
/* Enabled with debug/assertions just so that any issues can be caught. */
|
2127
|
+
#define DUK_USE_EXEC_INDIRECT_BOUND_CHECK
|
2128
|
+
#endif
|
2129
|
+
|
2130
|
+
/*
|
2131
|
+
* Debug printing and assertion options
|
2132
|
+
*/
|
2133
|
+
|
2134
|
+
#undef DUK_USE_DEBUG
|
2135
|
+
#undef DUK_USE_DPRINT
|
2136
|
+
#undef DUK_USE_DDPRINT
|
2137
|
+
#undef DUK_USE_DDDPRINT
|
2138
|
+
#undef DUK_USE_DPRINT_RDTSC
|
2139
|
+
#undef DUK_USE_ASSERTIONS
|
2140
|
+
|
2141
|
+
/* Global debug enable. Compile must be clean on C99 regardless of whether or
|
2142
|
+
* not debugging is enabled. On non-C99 platforms compile should be clean with
|
2143
|
+
* debugging disabled but may produce warnings with debugging enabled (related
|
2144
|
+
* to debug macro hackery and such).
|
2145
|
+
*/
|
2146
|
+
#if defined(DUK_OPT_DEBUG)
|
2147
|
+
#define DUK_USE_DEBUG
|
2148
|
+
#endif
|
2149
|
+
|
2150
|
+
#if defined(DUK_OPT_DEBUG) && defined(DUK_OPT_DPRINT)
|
2151
|
+
#define DUK_USE_DPRINT
|
2152
|
+
#endif
|
2153
|
+
#if defined(DUK_OPT_DEBUG) && defined(DUK_OPT_DDPRINT)
|
2154
|
+
#define DUK_USE_DDPRINT
|
2155
|
+
#endif
|
2156
|
+
#if defined(DUK_OPT_DEBUG) && defined(DUK_OPT_DDDPRINT)
|
2157
|
+
#define DUK_USE_DDDPRINT
|
2158
|
+
#endif
|
2159
|
+
|
2160
|
+
#undef DUK_USE_DPRINT_COLORS
|
2161
|
+
#if defined(DUK_OPT_DPRINT_COLORS)
|
2162
|
+
#define DUK_USE_DPRINT_COLORS
|
2163
|
+
#endif
|
2164
|
+
|
2165
|
+
#if defined(DUK_RDTSC_AVAILABLE) && defined(DUK_OPT_DPRINT_RDTSC)
|
2166
|
+
#define DUK_USE_DPRINT_RDTSC
|
2167
|
+
#else
|
2168
|
+
#undef DUK_USE_DPRINT_RDTSC
|
2169
|
+
#endif
|
2170
|
+
|
2171
|
+
#if defined(DUK_OPT_ASSERTIONS)
|
2172
|
+
#define DUK_USE_ASSERTIONS
|
2173
|
+
#endif
|
2174
|
+
|
2175
|
+
/* The static buffer for debug printing is quite large by default, so there
|
2176
|
+
* is an option to shrink it manually for constrained builds.
|
2177
|
+
*/
|
2178
|
+
#if defined(DUK_OPT_DEBUG_BUFSIZE)
|
2179
|
+
#define DUK_USE_DEBUG_BUFSIZE DUK_OPT_DEBUG_BUFSIZE
|
2180
|
+
#else
|
2181
|
+
#define DUK_USE_DEBUG_BUFSIZE 65536L
|
2182
|
+
#endif
|
2183
|
+
|
2184
|
+
/*
|
2185
|
+
* Ecmascript features / compliance options
|
2186
|
+
*/
|
2187
|
+
|
2188
|
+
#if defined(DUK_F_BCC)
|
2189
|
+
/* Math built-in is stubbed out on BCC to allow compiler torture testing. */
|
2190
|
+
#else
|
2191
|
+
#define DUK_USE_MATH_BUILTIN
|
2192
|
+
#endif
|
2193
|
+
|
2194
|
+
#define DUK_USE_REGEXP_SUPPORT
|
2195
|
+
#if defined(DUK_OPT_NO_REGEXP_SUPPORT)
|
2196
|
+
#undef DUK_USE_REGEXP_SUPPORT
|
2197
|
+
#endif
|
2198
|
+
|
2199
|
+
#undef DUK_USE_STRICT_UTF8_SOURCE
|
2200
|
+
#if defined(DUK_OPT_STRICT_UTF8_SOURCE)
|
2201
|
+
#define DUK_USE_STRICT_UTF8_SOURCE
|
2202
|
+
#endif
|
2203
|
+
|
2204
|
+
#define DUK_USE_OCTAL_SUPPORT
|
2205
|
+
#if defined(DUK_OPT_NO_OCTAL_SUPPORT)
|
2206
|
+
#undef DUK_USE_OCTAL_SUPPORT
|
2207
|
+
#endif
|
2208
|
+
|
2209
|
+
#define DUK_USE_SOURCE_NONBMP
|
2210
|
+
#if defined(DUK_OPT_NO_SOURCE_NONBMP)
|
2211
|
+
#undef DUK_USE_SOURCE_NONBMP
|
2212
|
+
#endif
|
2213
|
+
|
2214
|
+
#define DUK_USE_BROWSER_LIKE
|
2215
|
+
#if defined(DUK_OPT_NO_BROWSER_LIKE)
|
2216
|
+
#undef DUK_USE_BROWSER_LIKE
|
2217
|
+
#endif
|
2218
|
+
|
2219
|
+
/* E5/E5.1 Section B features. */
|
2220
|
+
#define DUK_USE_SECTION_B
|
2221
|
+
#if defined(DUK_OPT_NO_SECTION_B)
|
2222
|
+
#undef DUK_USE_SECTION_B
|
2223
|
+
#endif
|
2224
|
+
|
2225
|
+
/* Non-standard regexp parsing features. */
|
2226
|
+
#define DUK_USE_NONSTD_REGEXP_DOLLAR_ESCAPE
|
2227
|
+
|
2228
|
+
/* Treat function statements (function declarations outside top level of
|
2229
|
+
* Program or FunctionBody) same as normal function declarations. This is
|
2230
|
+
* also V8 behavior. See test-dev-func-decl-outside-top.js.
|
2231
|
+
*/
|
2232
|
+
#define DUK_USE_NONSTD_FUNC_STMT
|
2233
|
+
#if defined(DUK_OPT_NO_NONSTD_FUNC_STMT)
|
2234
|
+
#undef DUK_USE_NONSTD_FUNC_STMT
|
2235
|
+
#endif
|
2236
|
+
|
2237
|
+
/* Array.prototype.splice() non-standard but real world compatible behavior
|
2238
|
+
* when deleteCount is omitted.
|
2239
|
+
*/
|
2240
|
+
#define DUK_USE_NONSTD_ARRAY_SPLICE_DELCOUNT
|
2241
|
+
#if defined(DUK_OPT_NO_NONSTD_ARRAY_SPLICE_DELCOUNT)
|
2242
|
+
#undef DUK_USE_NONSTD_ARRAY_SPLICE_DELCOUNT
|
2243
|
+
#endif
|
2244
|
+
|
2245
|
+
/* Non-standard 'caller' property for function instances, see
|
2246
|
+
* test-bi-function-nonstd-caller-prop.js.
|
2247
|
+
*/
|
2248
|
+
#undef DUK_USE_NONSTD_FUNC_CALLER_PROPERTY
|
2249
|
+
#if defined(DUK_OPT_NONSTD_FUNC_CALLER_PROPERTY)
|
2250
|
+
#define DUK_USE_NONSTD_FUNC_CALLER_PROPERTY
|
2251
|
+
#endif
|
2252
|
+
|
2253
|
+
/* Non-standard Object.prototype.__proto__ (ES6 draft), see
|
2254
|
+
* test-bi-object-proto-__proto__.js.
|
2255
|
+
*/
|
2256
|
+
#define DUK_USE_ES6_OBJECT_PROTO_PROPERTY
|
2257
|
+
#if defined(DUK_OPT_NO_ES6_OBJECT_PROTO_PROPERTY)
|
2258
|
+
#undef DUK_USE_ES6_OBJECT_PROTO_PROPERTY
|
2259
|
+
#endif
|
2260
|
+
|
2261
|
+
/* Non-standard Object.setPrototypeOf (ES6 draft), see
|
2262
|
+
* test-bi-object-setprototypeof.js.
|
2263
|
+
*/
|
2264
|
+
#define DUK_USE_ES6_OBJECT_SETPROTOTYPEOF
|
2265
|
+
#if defined(DUK_OPT_NO_ES6_OBJECT_SETPROTOTYPEOF)
|
2266
|
+
#undef DUK_USE_ES6_OBJECT_SETPROTOTYPEOF
|
2267
|
+
#endif
|
2268
|
+
|
2269
|
+
/* ES6 Proxy object (subset for now). */
|
2270
|
+
#define DUK_USE_ES6_PROXY
|
2271
|
+
#if defined(DUK_OPT_NO_ES6_PROXY)
|
2272
|
+
#undef DUK_USE_ES6_PROXY
|
2273
|
+
#endif
|
2274
|
+
|
2275
|
+
/* Record pc-to-line information. */
|
2276
|
+
#define DUK_USE_PC2LINE
|
2277
|
+
#if defined(DUK_OPT_NO_PC2LINE)
|
2278
|
+
#undef DUK_USE_PC2LINE
|
2279
|
+
#endif
|
2280
|
+
|
2281
|
+
/* Non-standard function 'source' property. */
|
2282
|
+
#undef DUK_USE_NONSTD_FUNC_SOURCE_PROPERTY
|
2283
|
+
#if defined(DUK_OPT_NONSTD_FUNC_SOURCE_PROPERTY)
|
2284
|
+
#define DUK_USE_NONSTD_FUNC_SOURCE_PROPERTY
|
2285
|
+
#endif
|
2286
|
+
|
2287
|
+
/* CommonJS modules */
|
2288
|
+
#define DUK_USE_COMMONJS_MODULES
|
2289
|
+
#if defined(DUK_OPT_NO_COMMONJS_MODULES)
|
2290
|
+
#undef DUK_USE_COMMONJS_MODULES
|
2291
|
+
#endif
|
2292
|
+
|
2293
|
+
/* Additional key argument to setter/getter calls when triggered by property
|
2294
|
+
* accesses.
|
2295
|
+
*/
|
2296
|
+
|
2297
|
+
#define DUK_USE_NONSTD_GETTER_KEY_ARGUMENT
|
2298
|
+
#define DUK_USE_NONSTD_SETTER_KEY_ARGUMENT
|
2299
|
+
#if defined(DUK_OPT_NO_NONSTD_ACCESSOR_KEY_ARGUMENT)
|
2300
|
+
#undef DUK_USE_NONSTD_GETTER_KEY_ARGUMENT
|
2301
|
+
#undef DUK_USE_NONSTD_SETTER_KEY_ARGUMENT
|
2302
|
+
#endif
|
2303
|
+
|
2304
|
+
/*
|
2305
|
+
* Tailcalls
|
2306
|
+
*/
|
2307
|
+
|
2308
|
+
/* Tailcalls are enabled by default. The non-standard function 'caller'
|
2309
|
+
* property feature conflicts with tailcalls quite severely so tailcalls
|
2310
|
+
* are disabled if the 'caller' property is enabled.
|
2311
|
+
*/
|
2312
|
+
#define DUK_USE_TAILCALL
|
2313
|
+
#if defined(DUK_USE_NONSTD_FUNC_CALLER_PROPERTY)
|
2314
|
+
#undef DUK_USE_TAILCALL
|
2315
|
+
#endif
|
2316
|
+
|
2317
|
+
/*
|
2318
|
+
* Deep vs. shallow stack.
|
2319
|
+
*
|
2320
|
+
* Some embedded platforms have very shallow stack (e.g. 64kB); default to
|
2321
|
+
* a shallow stack on unknown platforms or known embedded platforms.
|
2322
|
+
*/
|
2323
|
+
|
2324
|
+
#if defined(DUK_F_LINUX) || defined(DUK_F_BSD) || defined(DUK_F_WINDOWS) || \
|
2325
|
+
defined(DUK_OPT_DEEP_C_STACK)
|
2326
|
+
#define DUK_USE_DEEP_C_STACK
|
2327
|
+
#else
|
2328
|
+
#undef DUK_USE_DEEP_C_STACK
|
2329
|
+
#endif
|
2330
|
+
|
2331
|
+
/*
|
2332
|
+
* Ecmascript compiler
|
2333
|
+
*/
|
2334
|
+
|
2335
|
+
/* Ensure final bytecode never exceeds a certain byte size and never uses
|
2336
|
+
* line numbers above a certain limit. This ensures that there is no need
|
2337
|
+
* to deal with unbounded ranges in e.g. pc2line data structures. For now,
|
2338
|
+
* limits are set so that signed 32-bit values can represent line number
|
2339
|
+
* and byte offset with room to spare.
|
2340
|
+
*/
|
2341
|
+
#define DUK_USE_ESBC_LIMITS
|
2342
|
+
#define DUK_USE_ESBC_MAX_LINENUMBER 0x7fff0000L
|
2343
|
+
#define DUK_USE_ESBC_MAX_BYTES 0x7fff0000L
|
2344
|
+
|
2345
|
+
/*
|
2346
|
+
* User panic handler, panic exit behavior for default panic handler
|
2347
|
+
*/
|
2348
|
+
|
2349
|
+
#undef DUK_USE_PANIC_HANDLER
|
2350
|
+
#if defined(DUK_OPT_PANIC_HANDLER)
|
2351
|
+
#define DUK_USE_PANIC_HANDLER(code,msg) DUK_OPT_PANIC_HANDLER((code),(msg))
|
2352
|
+
#endif
|
2353
|
+
|
2354
|
+
#undef DUK_USE_PANIC_ABORT
|
2355
|
+
#undef DUK_USE_PANIC_EXIT
|
2356
|
+
#undef DUK_USE_PANIC_SEGFAULT
|
2357
|
+
|
2358
|
+
#if defined(DUK_OPT_SEGFAULT_ON_PANIC)
|
2359
|
+
#define DUK_USE_PANIC_SEGFAULT
|
2360
|
+
#else
|
2361
|
+
#define DUK_USE_PANIC_ABORT
|
2362
|
+
#endif
|
2363
|
+
|
2364
|
+
/*
|
2365
|
+
* File I/O support. This is now used in a few API calls to e.g. push
|
2366
|
+
* a string from file contents or eval a file. For portability it must
|
2367
|
+
* be possible to disable I/O altogether.
|
2368
|
+
*/
|
2369
|
+
|
2370
|
+
#undef DUK_USE_FILE_IO
|
2371
|
+
#if !defined(DUK_OPT_NO_FILE_IO)
|
2372
|
+
#define DUK_USE_FILE_IO
|
2373
|
+
#endif
|
2374
|
+
|
2375
|
+
/*
|
2376
|
+
* Optional run-time self tests executed when a heap is created. Some
|
2377
|
+
* platform/compiler issues cannot be determined at compile time. One
|
2378
|
+
* particular example is the bug described in misc/clang_aliasing.c.
|
2379
|
+
*/
|
2380
|
+
|
2381
|
+
#undef DUK_USE_SELF_TESTS
|
2382
|
+
#if defined(DUK_OPT_SELF_TESTS)
|
2383
|
+
#define DUK_USE_SELF_TESTS
|
2384
|
+
#endif
|
2385
|
+
|
2386
|
+
/* Double aliasing testcase fails when Emscripten-generated code is run
|
2387
|
+
* on Firefox. This is not fatal because it only affects packed duk_tval
|
2388
|
+
* which we avoid with Emscripten.
|
2389
|
+
*/
|
2390
|
+
#undef DUK_USE_NO_DOUBLE_ALIASING_SELFTEST
|
2391
|
+
#if defined(DUK_F_EMSCRIPTEN)
|
2392
|
+
#define DUK_USE_NO_DOUBLE_ALIASING_SELFTEST
|
2393
|
+
#endif
|
2394
|
+
|
2395
|
+
/*
|
2396
|
+
* Codecs
|
2397
|
+
*/
|
2398
|
+
|
2399
|
+
#define DUK_USE_JX
|
2400
|
+
#if defined(DUK_OPT_NO_JX)
|
2401
|
+
#undef DUK_USE_JX
|
2402
|
+
#endif
|
2403
|
+
|
2404
|
+
#define DUK_USE_JC
|
2405
|
+
#if defined(DUK_OPT_NO_JC)
|
2406
|
+
#undef DUK_USE_JC
|
2407
|
+
#endif
|
2408
|
+
|
2409
|
+
/*
|
2410
|
+
* InitJS code
|
2411
|
+
*/
|
2412
|
+
|
2413
|
+
/* Always use the built-in InitJS code for now. */
|
2414
|
+
#define DUK_USE_BUILTIN_INITJS
|
2415
|
+
|
2416
|
+
/* User provided InitJS. */
|
2417
|
+
#undef DUK_USE_USER_INITJS
|
2418
|
+
#if defined(DUK_OPT_USER_INITJS)
|
2419
|
+
#define DUK_USE_USER_INITJS (DUK_OPT_USER_INITJS)
|
2420
|
+
#endif
|
2421
|
+
|
2422
|
+
/*
|
2423
|
+
* Miscellaneous
|
2424
|
+
*/
|
2425
|
+
|
2426
|
+
#define DUK_USE_PROVIDE_DEFAULT_ALLOC_FUNCTIONS
|
2427
|
+
#undef DUK_USE_EXPLICIT_NULL_INIT
|
2428
|
+
|
2429
|
+
#if !defined(DUK_USE_PACKED_TVAL)
|
2430
|
+
#define DUK_USE_EXPLICIT_NULL_INIT
|
2431
|
+
#endif
|
2432
|
+
|
2433
|
+
#define DUK_USE_ZERO_BUFFER_DATA
|
2434
|
+
#if defined(DUK_OPT_NO_ZERO_BUFFER_DATA)
|
2435
|
+
#undef DUK_USE_ZERO_BUFFER_DATA
|
2436
|
+
#endif
|
2437
|
+
|
2438
|
+
#if defined(DUK_F_C99) || (defined(DUK_F_CPP11) && defined(__GNUC__))
|
2439
|
+
#define DUK_USE_VARIADIC_MACROS
|
2440
|
+
#else
|
2441
|
+
#undef DUK_USE_VARIADIC_MACROS
|
2442
|
+
#endif
|
2443
|
+
|
2444
|
+
/*
|
2445
|
+
* Variable size array initialization.
|
2446
|
+
*
|
2447
|
+
* Variable size array at the end of a structure is nonportable.
|
2448
|
+
* There are three alternatives:
|
2449
|
+
*
|
2450
|
+
* 1) C99 (flexible array member): char buf[]
|
2451
|
+
* 2) Compiler specific (e.g. GCC): char buf[0]
|
2452
|
+
* 3) Portable but wastes memory / complicates allocation: char buf[1]
|
2453
|
+
*/
|
2454
|
+
|
2455
|
+
/* XXX: Currently unused, only hbuffer.h needed this at some point. */
|
2456
|
+
#undef DUK_USE_FLEX_C99
|
2457
|
+
#undef DUK_USE_FLEX_ZEROSIZE
|
2458
|
+
#undef DUK_USE_FLEX_ONESIZE
|
2459
|
+
#if defined(DUK_F_C99)
|
2460
|
+
#define DUK_USE_FLEX_C99
|
2461
|
+
#elif defined(__GNUC__)
|
2462
|
+
#define DUK_USE_FLEX_ZEROSIZE
|
2463
|
+
#else
|
2464
|
+
#define DUK_USE_FLEX_ONESIZE
|
2465
|
+
#endif
|
2466
|
+
|
2467
|
+
/*
|
2468
|
+
* GCC pragmas
|
2469
|
+
*/
|
2470
|
+
|
2471
|
+
/* XXX: GCC pragma inside a function fails in some earlier GCC versions (e.g. gcc 4.5).
|
2472
|
+
* This is very approximate but allows clean builds for development right now.
|
2473
|
+
*/
|
2474
|
+
/* http://gcc.gnu.org/onlinedocs/cpp/Common-Predefined-Macros.html */
|
2475
|
+
#if defined(__GNUC__) && defined(__GNUC_MINOR__) && (__GNUC__ == 4) && (__GNUC_MINOR__ >= 6)
|
2476
|
+
#define DUK_USE_GCC_PRAGMAS
|
2477
|
+
#else
|
2478
|
+
#undef DUK_USE_GCC_PRAGMAS
|
2479
|
+
#endif
|
2480
|
+
|
2481
|
+
/*
|
2482
|
+
* User declarations
|
2483
|
+
*/
|
2484
|
+
|
2485
|
+
#if defined(DUK_OPT_DECLARE)
|
2486
|
+
#define DUK_USE_USER_DECLARE() DUK_OPT_DECLARE
|
2487
|
+
#else
|
2488
|
+
#define DUK_USE_USER_DECLARE() /* no user declarations */
|
2489
|
+
#endif
|
2490
|
+
|
2491
|
+
/*
|
2492
|
+
* Alternative customization header
|
2493
|
+
*
|
2494
|
+
* If you want to modify the final DUK_USE_xxx flags directly (without
|
2495
|
+
* using the available DUK_OPT_Xxx flags), define DUK_OPT_HAVE_CUSTOM_H
|
2496
|
+
* and tweak the final flags there.
|
2497
|
+
*/
|
2498
|
+
|
2499
|
+
#if defined(DUK_OPT_HAVE_CUSTOM_H)
|
2500
|
+
#include "duk_custom.h"
|
2501
|
+
#endif
|
2502
|
+
|
2503
|
+
#endif /* DUK_FEATURES_H_INCLUDED */
|
2504
|
+
|
2505
|
+
/*
|
2506
|
+
* BEGIN PUBLIC API
|
2507
|
+
*/
|
2508
|
+
|
2509
|
+
#ifndef DUK_API_PUBLIC_H_INCLUDED
|
2510
|
+
#define DUK_API_PUBLIC_H_INCLUDED
|
2511
|
+
|
2512
|
+
/*
|
2513
|
+
* Avoid C++ name mangling
|
2514
|
+
*/
|
2515
|
+
|
2516
|
+
#ifdef __cplusplus
|
2517
|
+
extern "C" {
|
2518
|
+
#endif
|
2519
|
+
|
2520
|
+
/*
|
2521
|
+
* Some defines forwarded from feature detection
|
2522
|
+
*/
|
2523
|
+
|
2524
|
+
#undef DUK_API_VARIADIC_MACROS
|
2525
|
+
#ifdef DUK_USE_VARIADIC_MACROS
|
2526
|
+
#define DUK_API_VARIADIC_MACROS
|
2527
|
+
#endif
|
2528
|
+
|
2529
|
+
#define DUK_API_NORETURN(decl) DUK_NORETURN(decl)
|
2530
|
+
|
2531
|
+
/*
|
2532
|
+
* Public API specific typedefs
|
2533
|
+
*
|
2534
|
+
* (duk_context *) maps directly to internal type (duk_hthread *).
|
2535
|
+
* Currently only primitive typedefs have a '_t' suffix.
|
2536
|
+
*
|
2537
|
+
* Many types are wrapped by Duktape for portability to rare platforms
|
2538
|
+
* where e.g. 'int' is a 16-bit type. See practical typing discussion
|
2539
|
+
* in Duktape web documentation.
|
2540
|
+
*/
|
2541
|
+
|
2542
|
+
struct duk_memory_functions;
|
2543
|
+
struct duk_function_list_entry;
|
2544
|
+
struct duk_number_list_entry;
|
2545
|
+
|
2546
|
+
typedef void duk_context;
|
2547
|
+
typedef struct duk_memory_functions duk_memory_functions;
|
2548
|
+
typedef struct duk_function_list_entry duk_function_list_entry;
|
2549
|
+
typedef struct duk_number_list_entry duk_number_list_entry;
|
2550
|
+
|
2551
|
+
typedef duk_ret_t (*duk_c_function)(duk_context *ctx);
|
2552
|
+
typedef void *(*duk_alloc_function) (void *udata, duk_size_t size);
|
2553
|
+
typedef void *(*duk_realloc_function) (void *udata, void *ptr, duk_size_t size);
|
2554
|
+
typedef void (*duk_free_function) (void *udata, void *ptr);
|
2555
|
+
typedef void (*duk_fatal_function) (duk_context *ctx, duk_errcode_t code, const char *msg);
|
2556
|
+
typedef void (*duk_decode_char_function) (void *udata, duk_codepoint_t codepoint);
|
2557
|
+
typedef duk_codepoint_t (*duk_map_char_function) (void *udata, duk_codepoint_t codepoint);
|
2558
|
+
typedef duk_ret_t (*duk_safe_call_function) (duk_context *ctx);
|
2559
|
+
|
2560
|
+
struct duk_memory_functions {
|
2561
|
+
duk_alloc_function alloc;
|
2562
|
+
duk_realloc_function realloc;
|
2563
|
+
duk_free_function free;
|
2564
|
+
void *udata;
|
2565
|
+
};
|
2566
|
+
|
2567
|
+
struct duk_function_list_entry {
|
2568
|
+
const char *key;
|
2569
|
+
duk_c_function value;
|
2570
|
+
duk_int_t nargs;
|
2571
|
+
};
|
2572
|
+
|
2573
|
+
struct duk_number_list_entry {
|
2574
|
+
const char *key;
|
2575
|
+
duk_double_t value;
|
2576
|
+
};
|
2577
|
+
|
2578
|
+
/*
|
2579
|
+
* Constants
|
2580
|
+
*/
|
2581
|
+
|
2582
|
+
/* Duktape version, (major * 10000) + (minor * 100) + patch. Allows C code
|
2583
|
+
* to #ifdef against Duktape API version. The same value is also available
|
2584
|
+
* to Ecmascript code in Duktape.version. Unofficial development snapshots
|
2585
|
+
* have 99 for patch level (e.g. 0.10.99 would be a development version
|
2586
|
+
* after 0.10.0 but before the next official release).
|
2587
|
+
*/
|
2588
|
+
#define DUK_VERSION 1100L
|
2589
|
+
|
2590
|
+
/* Used to represent invalid index; if caller uses this without checking,
|
2591
|
+
* this index will map to a non-existent stack entry. Also used in some
|
2592
|
+
* API calls as a marker to denote "no value".
|
2593
|
+
*/
|
2594
|
+
#define DUK_INVALID_INDEX INT_MIN
|
2595
|
+
|
2596
|
+
/* Indicates that a native function does not have a fixed number of args,
|
2597
|
+
* and the argument stack should not be capped/extended at all.
|
2598
|
+
*/
|
2599
|
+
#define DUK_VARARGS ((duk_int_t) (-1))
|
2600
|
+
|
2601
|
+
/* Number of value stack entries (in addition to actual call arguments)
|
2602
|
+
* guaranteed to be allocated on entry to a Duktape/C function.
|
2603
|
+
*/
|
2604
|
+
#define DUK_API_ENTRY_STACK 64
|
2605
|
+
|
2606
|
+
/* Value types, used by e.g. duk_get_type() */
|
2607
|
+
#define DUK_TYPE_NONE 0 /* no value, e.g. invalid index */
|
2608
|
+
#define DUK_TYPE_UNDEFINED 1 /* Ecmascript undefined */
|
2609
|
+
#define DUK_TYPE_NULL 2 /* Ecmascript null */
|
2610
|
+
#define DUK_TYPE_BOOLEAN 3 /* Ecmascript boolean: 0 or 1 */
|
2611
|
+
#define DUK_TYPE_NUMBER 4 /* Ecmascript number: double */
|
2612
|
+
#define DUK_TYPE_STRING 5 /* Ecmascript string: CESU-8 / extended UTF-8 encoded */
|
2613
|
+
#define DUK_TYPE_OBJECT 6 /* Ecmascript object: includes objects, arrays, functions, threads */
|
2614
|
+
#define DUK_TYPE_BUFFER 7 /* fixed or dynamic, garbage collected byte buffer */
|
2615
|
+
#define DUK_TYPE_POINTER 8 /* raw void pointer */
|
2616
|
+
|
2617
|
+
/* Value mask types, used by e.g. duk_get_type_mask() */
|
2618
|
+
#define DUK_TYPE_MASK_NONE (1 << DUK_TYPE_NONE)
|
2619
|
+
#define DUK_TYPE_MASK_UNDEFINED (1 << DUK_TYPE_UNDEFINED)
|
2620
|
+
#define DUK_TYPE_MASK_NULL (1 << DUK_TYPE_NULL)
|
2621
|
+
#define DUK_TYPE_MASK_BOOLEAN (1 << DUK_TYPE_BOOLEAN)
|
2622
|
+
#define DUK_TYPE_MASK_NUMBER (1 << DUK_TYPE_NUMBER)
|
2623
|
+
#define DUK_TYPE_MASK_STRING (1 << DUK_TYPE_STRING)
|
2624
|
+
#define DUK_TYPE_MASK_OBJECT (1 << DUK_TYPE_OBJECT)
|
2625
|
+
#define DUK_TYPE_MASK_BUFFER (1 << DUK_TYPE_BUFFER)
|
2626
|
+
#define DUK_TYPE_MASK_POINTER (1 << DUK_TYPE_POINTER)
|
2627
|
+
#define DUK_TYPE_MASK_THROW (1 << 10) /* internal flag value: throw if mask doesn't match */
|
2628
|
+
|
2629
|
+
/* Coercion hints */
|
2630
|
+
#define DUK_HINT_NONE 0 /* prefer number, unless input is a Date, in which
|
2631
|
+
* case prefer string (E5 Section 8.12.8)
|
2632
|
+
*/
|
2633
|
+
#define DUK_HINT_STRING 1 /* prefer string */
|
2634
|
+
#define DUK_HINT_NUMBER 2 /* prefer number */
|
2635
|
+
|
2636
|
+
/* Enumeration flags for duk_enum() */
|
2637
|
+
#define DUK_ENUM_INCLUDE_NONENUMERABLE (1 << 0) /* enumerate non-numerable properties in addition to enumerable */
|
2638
|
+
#define DUK_ENUM_INCLUDE_INTERNAL (1 << 1) /* enumerate internal properties (regardless of enumerability) */
|
2639
|
+
#define DUK_ENUM_OWN_PROPERTIES_ONLY (1 << 2) /* don't walk prototype chain, only check own properties */
|
2640
|
+
#define DUK_ENUM_ARRAY_INDICES_ONLY (1 << 3) /* only enumerate array indices */
|
2641
|
+
#define DUK_ENUM_SORT_ARRAY_INDICES (1 << 4) /* sort array indices, use with DUK_ENUM_ARRAY_INDICES_ONLY */
|
2642
|
+
#define DUK_ENUM_NO_PROXY_BEHAVIOR (1 << 5) /* enumerate a proxy object itself without invoking proxy behavior */
|
2643
|
+
|
2644
|
+
/* Compilation flags for duk_compile() and duk_eval() */
|
2645
|
+
#define DUK_COMPILE_EVAL (1 << 0) /* compile eval code (instead of program) */
|
2646
|
+
#define DUK_COMPILE_FUNCTION (1 << 1) /* compile function code (instead of program) */
|
2647
|
+
#define DUK_COMPILE_STRICT (1 << 2) /* use strict (outer) context for program, eval, or function */
|
2648
|
+
#define DUK_COMPILE_SAFE (1 << 3) /* (internal) catch compilation errors */
|
2649
|
+
#define DUK_COMPILE_NORESULT (1 << 4) /* (internal) omit eval result */
|
2650
|
+
#define DUK_COMPILE_NOSOURCE (1 << 5) /* (internal) no source string on stack */
|
2651
|
+
#define DUK_COMPILE_STRLEN (1 << 6) /* (internal) take strlen() of src_buffer (avoids double evaluation in macro) */
|
2652
|
+
|
2653
|
+
/* Flags for duk_push_thread_raw() */
|
2654
|
+
#define DUK_THREAD_NEW_GLOBAL_ENV (1 << 0) /* create a new global environment */
|
2655
|
+
|
2656
|
+
/* Duktape specific error codes */
|
2657
|
+
#define DUK_ERR_UNIMPLEMENTED_ERROR 50 /* UnimplementedError */
|
2658
|
+
#define DUK_ERR_UNSUPPORTED_ERROR 51 /* UnsupportedError */
|
2659
|
+
#define DUK_ERR_INTERNAL_ERROR 52 /* InternalError */
|
2660
|
+
#define DUK_ERR_ALLOC_ERROR 53 /* AllocError */
|
2661
|
+
#define DUK_ERR_ASSERTION_ERROR 54 /* AssertionError */
|
2662
|
+
#define DUK_ERR_API_ERROR 55 /* APIError */
|
2663
|
+
#define DUK_ERR_UNCAUGHT_ERROR 56 /* UncaughtError */
|
2664
|
+
|
2665
|
+
/* Ecmascript E5 specification error codes */
|
2666
|
+
#define DUK_ERR_ERROR 100 /* Error */
|
2667
|
+
#define DUK_ERR_EVAL_ERROR 101 /* EvalError */
|
2668
|
+
#define DUK_ERR_RANGE_ERROR 102 /* RangeError */
|
2669
|
+
#define DUK_ERR_REFERENCE_ERROR 103 /* ReferenceError */
|
2670
|
+
#define DUK_ERR_SYNTAX_ERROR 104 /* SyntaxError */
|
2671
|
+
#define DUK_ERR_TYPE_ERROR 105 /* TypeError */
|
2672
|
+
#define DUK_ERR_URI_ERROR 106 /* URIError */
|
2673
|
+
|
2674
|
+
/* Return codes for C functions (shortcut for throwing an error) */
|
2675
|
+
#define DUK_RET_UNIMPLEMENTED_ERROR (-DUK_ERR_UNIMPLEMENTED_ERROR)
|
2676
|
+
#define DUK_RET_UNSUPPORTED_ERROR (-DUK_ERR_UNSUPPORTED_ERROR)
|
2677
|
+
#define DUK_RET_INTERNAL_ERROR (-DUK_ERR_INTERNAL_ERROR)
|
2678
|
+
#define DUK_RET_ALLOC_ERROR (-DUK_ERR_ALLOC_ERROR)
|
2679
|
+
#define DUK_RET_ASSERTION_ERROR (-DUK_ERR_ASSERTION_ERROR)
|
2680
|
+
#define DUK_RET_API_ERROR (-DUK_ERR_API_ERROR)
|
2681
|
+
#define DUK_RET_UNCAUGHT_ERROR (-DUK_ERR_UNCAUGHT_ERROR)
|
2682
|
+
#define DUK_RET_ERROR (-DUK_ERR_ERROR)
|
2683
|
+
#define DUK_RET_EVAL_ERROR (-DUK_ERR_EVAL_ERROR)
|
2684
|
+
#define DUK_RET_RANGE_ERROR (-DUK_ERR_RANGE_ERROR)
|
2685
|
+
#define DUK_RET_REFERENCE_ERROR (-DUK_ERR_REFERENCE_ERROR)
|
2686
|
+
#define DUK_RET_SYNTAX_ERROR (-DUK_ERR_SYNTAX_ERROR)
|
2687
|
+
#define DUK_RET_TYPE_ERROR (-DUK_ERR_TYPE_ERROR)
|
2688
|
+
#define DUK_RET_URI_ERROR (-DUK_ERR_URI_ERROR)
|
2689
|
+
|
2690
|
+
/* Return codes for protected calls (duk_safe_call(), duk_pcall()). */
|
2691
|
+
#define DUK_EXEC_SUCCESS 0
|
2692
|
+
#define DUK_EXEC_ERROR 1
|
2693
|
+
|
2694
|
+
/* Log levels */
|
2695
|
+
#define DUK_LOG_TRACE 0
|
2696
|
+
#define DUK_LOG_DEBUG 1
|
2697
|
+
#define DUK_LOG_INFO 2
|
2698
|
+
#define DUK_LOG_WARN 3
|
2699
|
+
#define DUK_LOG_ERROR 4
|
2700
|
+
#define DUK_LOG_FATAL 5
|
2701
|
+
|
2702
|
+
/*
|
2703
|
+
* If no variadic macros, __FILE__ and __LINE__ are passed through globals
|
2704
|
+
* which is ugly and not thread safe.
|
2705
|
+
*/
|
2706
|
+
|
2707
|
+
#ifndef DUK_API_VARIADIC_MACROS
|
2708
|
+
extern const char *duk_api_global_filename;
|
2709
|
+
extern duk_int_t duk_api_global_line;
|
2710
|
+
#endif
|
2711
|
+
|
2712
|
+
/*
|
2713
|
+
* Context management
|
2714
|
+
*/
|
2715
|
+
|
2716
|
+
duk_context *duk_create_heap(duk_alloc_function alloc_func,
|
2717
|
+
duk_realloc_function realloc_func,
|
2718
|
+
duk_free_function free_func,
|
2719
|
+
void *alloc_udata,
|
2720
|
+
duk_fatal_function fatal_handler);
|
2721
|
+
void duk_destroy_heap(duk_context *ctx);
|
2722
|
+
|
2723
|
+
#define duk_create_heap_default() \
|
2724
|
+
duk_create_heap(NULL, NULL, NULL, NULL, NULL)
|
2725
|
+
|
2726
|
+
/*
|
2727
|
+
* Memory management
|
2728
|
+
*
|
2729
|
+
* Raw functions have no side effects (cannot trigger GC).
|
2730
|
+
*/
|
2731
|
+
|
2732
|
+
void *duk_alloc_raw(duk_context *ctx, duk_size_t size);
|
2733
|
+
void duk_free_raw(duk_context *ctx, void *ptr);
|
2734
|
+
void *duk_realloc_raw(duk_context *ctx, void *ptr, duk_size_t size);
|
2735
|
+
void *duk_alloc(duk_context *ctx, duk_size_t size);
|
2736
|
+
void duk_free(duk_context *ctx, void *ptr);
|
2737
|
+
void *duk_realloc(duk_context *ctx, void *ptr, duk_size_t size);
|
2738
|
+
void duk_get_memory_functions(duk_context *ctx, duk_memory_functions *out_funcs);
|
2739
|
+
void duk_gc(duk_context *ctx, duk_uint_t flags);
|
2740
|
+
|
2741
|
+
/*
|
2742
|
+
* Error handling
|
2743
|
+
*/
|
2744
|
+
|
2745
|
+
DUK_API_NORETURN(void duk_throw(duk_context *ctx));
|
2746
|
+
|
2747
|
+
DUK_API_NORETURN(void duk_error_raw(duk_context *ctx, duk_errcode_t err_code, const char *filename, duk_int_t line, const char *fmt, ...));
|
2748
|
+
#ifdef DUK_API_VARIADIC_MACROS
|
2749
|
+
#define duk_error(ctx,err_code,...) \
|
2750
|
+
duk_error_raw((ctx), (duk_errcode_t) (err_code), __FILE__, (duk_int_t) __LINE__, __VA_ARGS__)
|
2751
|
+
#else
|
2752
|
+
DUK_API_NORETURN(void duk_error_stash(duk_context *ctx, duk_errcode_t err_code, const char *fmt, ...));
|
2753
|
+
#define duk_error \
|
2754
|
+
duk_api_global_filename = __FILE__, \
|
2755
|
+
duk_api_global_line = (duk_int_t) __LINE__, \
|
2756
|
+
duk_error_stash /* arguments follow */
|
2757
|
+
#endif
|
2758
|
+
|
2759
|
+
DUK_API_NORETURN(void duk_fatal(duk_context *ctx, duk_errcode_t err_code, const char *err_msg));
|
2760
|
+
|
2761
|
+
/*
|
2762
|
+
* Other state related functions
|
2763
|
+
*/
|
2764
|
+
|
2765
|
+
duk_bool_t duk_is_strict_call(duk_context *ctx);
|
2766
|
+
duk_bool_t duk_is_constructor_call(duk_context *ctx);
|
2767
|
+
duk_int_t duk_get_magic(duk_context *ctx);
|
2768
|
+
|
2769
|
+
/*
|
2770
|
+
* Stack management
|
2771
|
+
*/
|
2772
|
+
|
2773
|
+
duk_idx_t duk_normalize_index(duk_context *ctx, duk_idx_t index);
|
2774
|
+
duk_idx_t duk_require_normalize_index(duk_context *ctx, duk_idx_t index);
|
2775
|
+
duk_bool_t duk_is_valid_index(duk_context *ctx, duk_idx_t index);
|
2776
|
+
void duk_require_valid_index(duk_context *ctx, duk_idx_t index);
|
2777
|
+
|
2778
|
+
duk_idx_t duk_get_top(duk_context *ctx);
|
2779
|
+
void duk_set_top(duk_context *ctx, duk_idx_t index);
|
2780
|
+
duk_idx_t duk_get_top_index(duk_context *ctx);
|
2781
|
+
duk_idx_t duk_require_top_index(duk_context *ctx);
|
2782
|
+
|
2783
|
+
/* Although extra/top could be an unsigned type here, using a signed type
|
2784
|
+
* makes the API more robust to calling code calculation errors or corner
|
2785
|
+
* cases (where caller might occasionally come up with negative values).
|
2786
|
+
* Negative values are treated as zero, which is better than casting them
|
2787
|
+
* to a large unsigned number. (This principle is used elsewhere in the
|
2788
|
+
* API too.)
|
2789
|
+
*/
|
2790
|
+
duk_bool_t duk_check_stack(duk_context *ctx, duk_idx_t extra);
|
2791
|
+
void duk_require_stack(duk_context *ctx, duk_idx_t extra);
|
2792
|
+
duk_bool_t duk_check_stack_top(duk_context *ctx, duk_idx_t top);
|
2793
|
+
void duk_require_stack_top(duk_context *ctx, duk_idx_t top);
|
2794
|
+
|
2795
|
+
/*
|
2796
|
+
* Stack manipulation (other than push/pop)
|
2797
|
+
*/
|
2798
|
+
|
2799
|
+
void duk_swap(duk_context *ctx, duk_idx_t index1, duk_idx_t index2);
|
2800
|
+
void duk_swap_top(duk_context *ctx, duk_idx_t index);
|
2801
|
+
void duk_dup(duk_context *ctx, duk_idx_t from_index);
|
2802
|
+
void duk_dup_top(duk_context *ctx);
|
2803
|
+
void duk_insert(duk_context *ctx, duk_idx_t to_index);
|
2804
|
+
void duk_replace(duk_context *ctx, duk_idx_t to_index);
|
2805
|
+
void duk_copy(duk_context *ctx, duk_idx_t from_index, duk_idx_t to_index);
|
2806
|
+
void duk_remove(duk_context *ctx, duk_idx_t index);
|
2807
|
+
/* FIXME: undocumented */
|
2808
|
+
void duk_xmove(duk_context *from_ctx, duk_context *to_ctx, duk_idx_t count);
|
2809
|
+
|
2810
|
+
/*
|
2811
|
+
* Push operations
|
2812
|
+
*
|
2813
|
+
* Push functions return the absolute (relative to bottom of frame)
|
2814
|
+
* position of the pushed value for convenience.
|
2815
|
+
*
|
2816
|
+
* Note: duk_dup() is technically a push.
|
2817
|
+
*/
|
2818
|
+
|
2819
|
+
void duk_push_undefined(duk_context *ctx);
|
2820
|
+
void duk_push_null(duk_context *ctx);
|
2821
|
+
void duk_push_boolean(duk_context *ctx, duk_bool_t val);
|
2822
|
+
void duk_push_true(duk_context *ctx);
|
2823
|
+
void duk_push_false(duk_context *ctx);
|
2824
|
+
void duk_push_number(duk_context *ctx, duk_double_t val);
|
2825
|
+
void duk_push_nan(duk_context *ctx);
|
2826
|
+
void duk_push_int(duk_context *ctx, duk_int_t val);
|
2827
|
+
void duk_push_uint(duk_context *ctx, duk_uint_t val);
|
2828
|
+
const char *duk_push_string(duk_context *ctx, const char *str);
|
2829
|
+
const char *duk_push_string_file(duk_context *ctx, const char *path);
|
2830
|
+
const char *duk_push_lstring(duk_context *ctx, const char *str, duk_size_t len);
|
2831
|
+
void duk_push_pointer(duk_context *ctx, void *p);
|
2832
|
+
const char *duk_push_sprintf(duk_context *ctx, const char *fmt, ...);
|
2833
|
+
const char *duk_push_vsprintf(duk_context *ctx, const char *fmt, va_list ap);
|
2834
|
+
|
2835
|
+
void duk_push_this(duk_context *ctx);
|
2836
|
+
void duk_push_current_function(duk_context *ctx);
|
2837
|
+
void duk_push_current_thread(duk_context *ctx);
|
2838
|
+
void duk_push_global_object(duk_context *ctx);
|
2839
|
+
void duk_push_heap_stash(duk_context *ctx);
|
2840
|
+
void duk_push_global_stash(duk_context *ctx);
|
2841
|
+
void duk_push_thread_stash(duk_context *ctx, duk_context *target_ctx);
|
2842
|
+
|
2843
|
+
duk_idx_t duk_push_object(duk_context *ctx);
|
2844
|
+
duk_idx_t duk_push_array(duk_context *ctx);
|
2845
|
+
duk_idx_t duk_push_c_function(duk_context *ctx, duk_c_function func, duk_idx_t nargs);
|
2846
|
+
duk_idx_t duk_push_thread_raw(duk_context *ctx, duk_uint_t flags);
|
2847
|
+
|
2848
|
+
#define duk_push_thread(ctx) \
|
2849
|
+
duk_push_thread_raw((ctx), 0 /*flags*/)
|
2850
|
+
|
2851
|
+
#define duk_push_thread_new_globalenv(ctx) \
|
2852
|
+
duk_push_thread_raw((ctx), DUK_THREAD_NEW_GLOBAL_ENV /*flags*/)
|
2853
|
+
|
2854
|
+
duk_idx_t duk_push_error_object_raw(duk_context *ctx, duk_errcode_t err_code, const char *filename, duk_int_t line, const char *fmt, ...);
|
2855
|
+
#ifdef DUK_API_VARIADIC_MACROS
|
2856
|
+
#define duk_push_error_object(ctx,err_code,...) \
|
2857
|
+
duk_push_error_object_raw((ctx),(err_code),__FILE__,__LINE__,__VA_ARGS__)
|
2858
|
+
#else
|
2859
|
+
duk_idx_t duk_push_error_object_stash(duk_context *ctx, duk_errcode_t err_code, const char *fmt, ...);
|
2860
|
+
#define duk_push_error_object \
|
2861
|
+
duk_api_global_filename = __FILE__, \
|
2862
|
+
duk_api_global_line = __LINE__, \
|
2863
|
+
duk_push_error_object_stash /* arguments follow */
|
2864
|
+
#endif
|
2865
|
+
|
2866
|
+
void *duk_push_buffer(duk_context *ctx, duk_size_t size, duk_bool_t dynamic);
|
2867
|
+
void *duk_push_fixed_buffer(duk_context *ctx, duk_size_t size);
|
2868
|
+
void *duk_push_dynamic_buffer(duk_context *ctx, duk_size_t size);
|
2869
|
+
|
2870
|
+
/*
|
2871
|
+
* Pop operations
|
2872
|
+
*/
|
2873
|
+
|
2874
|
+
void duk_pop(duk_context *ctx);
|
2875
|
+
void duk_pop_n(duk_context *ctx, duk_idx_t count);
|
2876
|
+
void duk_pop_2(duk_context *ctx);
|
2877
|
+
void duk_pop_3(duk_context *ctx);
|
2878
|
+
|
2879
|
+
/*
|
2880
|
+
* Type checks
|
2881
|
+
*
|
2882
|
+
* duk_is_none(), which would indicate whether index it outside of stack,
|
2883
|
+
* is not needed; duk_is_valid_index() gives the same information.
|
2884
|
+
*/
|
2885
|
+
|
2886
|
+
/* FIXME: a duk_small_int_t suffices to represent type and type mask (at least now). */
|
2887
|
+
duk_int_t duk_get_type(duk_context *ctx, duk_idx_t index);
|
2888
|
+
duk_bool_t duk_check_type(duk_context *ctx, duk_idx_t index, duk_int_t type);
|
2889
|
+
duk_uint_t duk_get_type_mask(duk_context *ctx, duk_idx_t index);
|
2890
|
+
duk_bool_t duk_check_type_mask(duk_context *ctx, duk_idx_t index, duk_uint_t mask);
|
2891
|
+
|
2892
|
+
duk_bool_t duk_is_undefined(duk_context *ctx, duk_idx_t index);
|
2893
|
+
duk_bool_t duk_is_null(duk_context *ctx, duk_idx_t index);
|
2894
|
+
duk_bool_t duk_is_null_or_undefined(duk_context *ctx, duk_idx_t index);
|
2895
|
+
duk_bool_t duk_is_boolean(duk_context *ctx, duk_idx_t index);
|
2896
|
+
duk_bool_t duk_is_number(duk_context *ctx, duk_idx_t index);
|
2897
|
+
duk_bool_t duk_is_nan(duk_context *ctx, duk_idx_t index);
|
2898
|
+
duk_bool_t duk_is_string(duk_context *ctx, duk_idx_t index);
|
2899
|
+
duk_bool_t duk_is_object(duk_context *ctx, duk_idx_t index);
|
2900
|
+
duk_bool_t duk_is_buffer(duk_context *ctx, duk_idx_t index);
|
2901
|
+
duk_bool_t duk_is_pointer(duk_context *ctx, duk_idx_t index);
|
2902
|
+
|
2903
|
+
duk_bool_t duk_is_array(duk_context *ctx, duk_idx_t index);
|
2904
|
+
duk_bool_t duk_is_function(duk_context *ctx, duk_idx_t index);
|
2905
|
+
duk_bool_t duk_is_c_function(duk_context *ctx, duk_idx_t index);
|
2906
|
+
duk_bool_t duk_is_ecmascript_function(duk_context *ctx, duk_idx_t index);
|
2907
|
+
duk_bool_t duk_is_bound_function(duk_context *ctx, duk_idx_t index);
|
2908
|
+
duk_bool_t duk_is_thread(duk_context *ctx, duk_idx_t index);
|
2909
|
+
|
2910
|
+
duk_bool_t duk_is_callable(duk_context *ctx, duk_idx_t index);
|
2911
|
+
duk_bool_t duk_is_dynamic(duk_context *ctx, duk_idx_t index);
|
2912
|
+
duk_bool_t duk_is_fixed(duk_context *ctx, duk_idx_t index);
|
2913
|
+
|
2914
|
+
duk_bool_t duk_is_primitive(duk_context *ctx, duk_idx_t index);
|
2915
|
+
#define duk_is_object_coercible(ctx,index) \
|
2916
|
+
duk_check_type_mask((ctx), (index), DUK_TYPE_MASK_BOOLEAN | \
|
2917
|
+
DUK_TYPE_MASK_NUMBER | \
|
2918
|
+
DUK_TYPE_MASK_STRING | \
|
2919
|
+
DUK_TYPE_MASK_OBJECT | \
|
2920
|
+
DUK_TYPE_MASK_BUFFER | \
|
2921
|
+
DUK_TYPE_MASK_POINTER)
|
2922
|
+
|
2923
|
+
/*
|
2924
|
+
* Get operations: no coercion, returns default value for invalid
|
2925
|
+
* indices and invalid value types.
|
2926
|
+
*
|
2927
|
+
* duk_get_undefined() and duk_get_null() would be pointless and
|
2928
|
+
* are not included.
|
2929
|
+
*/
|
2930
|
+
|
2931
|
+
duk_bool_t duk_get_boolean(duk_context *ctx, duk_idx_t index);
|
2932
|
+
duk_double_t duk_get_number(duk_context *ctx, duk_idx_t index);
|
2933
|
+
duk_int_t duk_get_int(duk_context *ctx, duk_idx_t index);
|
2934
|
+
duk_uint_t duk_get_uint(duk_context *ctx, duk_idx_t index);
|
2935
|
+
const char *duk_get_string(duk_context *ctx, duk_idx_t index);
|
2936
|
+
const char *duk_get_lstring(duk_context *ctx, duk_idx_t index, duk_size_t *out_len);
|
2937
|
+
void *duk_get_buffer(duk_context *ctx, duk_idx_t index, duk_size_t *out_size);
|
2938
|
+
void *duk_get_pointer(duk_context *ctx, duk_idx_t index);
|
2939
|
+
duk_c_function duk_get_c_function(duk_context *ctx, duk_idx_t index);
|
2940
|
+
duk_context *duk_get_context(duk_context *ctx, duk_idx_t index);
|
2941
|
+
duk_size_t duk_get_length(duk_context *ctx, duk_idx_t index);
|
2942
|
+
|
2943
|
+
/*
|
2944
|
+
* Require operations: no coercion, throw error if index or type
|
2945
|
+
* is incorrect. No defaulting.
|
2946
|
+
*/
|
2947
|
+
|
2948
|
+
#define duk_require_type_mask(ctx,index,mask) \
|
2949
|
+
((void) duk_check_type_mask((ctx), (index), (mask) | DUK_TYPE_MASK_THROW))
|
2950
|
+
|
2951
|
+
void duk_require_undefined(duk_context *ctx, duk_idx_t index);
|
2952
|
+
void duk_require_null(duk_context *ctx, duk_idx_t index);
|
2953
|
+
duk_bool_t duk_require_boolean(duk_context *ctx, duk_idx_t index);
|
2954
|
+
duk_double_t duk_require_number(duk_context *ctx, duk_idx_t index);
|
2955
|
+
duk_int_t duk_require_int(duk_context *ctx, duk_idx_t index);
|
2956
|
+
duk_uint_t duk_require_uint(duk_context *ctx, duk_idx_t index);
|
2957
|
+
const char *duk_require_string(duk_context *ctx, duk_idx_t index);
|
2958
|
+
const char *duk_require_lstring(duk_context *ctx, duk_idx_t index, duk_size_t *out_len);
|
2959
|
+
void *duk_require_buffer(duk_context *ctx, duk_idx_t index, duk_size_t *out_size);
|
2960
|
+
void *duk_require_pointer(duk_context *ctx, duk_idx_t index);
|
2961
|
+
duk_c_function duk_require_c_function(duk_context *ctx, duk_idx_t index);
|
2962
|
+
duk_context *duk_require_context(duk_context *ctx, duk_idx_t index);
|
2963
|
+
|
2964
|
+
#define duk_require_object_coercible(ctx,index) \
|
2965
|
+
((void) duk_check_type_mask((ctx), (index), DUK_TYPE_MASK_BOOLEAN | \
|
2966
|
+
DUK_TYPE_MASK_NUMBER | \
|
2967
|
+
DUK_TYPE_MASK_STRING | \
|
2968
|
+
DUK_TYPE_MASK_OBJECT | \
|
2969
|
+
DUK_TYPE_MASK_BUFFER | \
|
2970
|
+
DUK_TYPE_MASK_POINTER | \
|
2971
|
+
DUK_TYPE_MASK_THROW))
|
2972
|
+
|
2973
|
+
/*
|
2974
|
+
* Coercion operations: in-place coercion, return coerced value where
|
2975
|
+
* applicable. If index is invalid, throw error. Some coercions may
|
2976
|
+
* throw an expected error (e.g. from a toString() or valueOf() call)
|
2977
|
+
* or an internal error (e.g. from out of memory).
|
2978
|
+
*/
|
2979
|
+
|
2980
|
+
void duk_to_undefined(duk_context *ctx, duk_idx_t index);
|
2981
|
+
void duk_to_null(duk_context *ctx, duk_idx_t index);
|
2982
|
+
duk_bool_t duk_to_boolean(duk_context *ctx, duk_idx_t index);
|
2983
|
+
duk_double_t duk_to_number(duk_context *ctx, duk_idx_t index);
|
2984
|
+
duk_int_t duk_to_int(duk_context *ctx, duk_idx_t index);
|
2985
|
+
duk_uint_t duk_to_uint(duk_context *ctx, duk_idx_t index);
|
2986
|
+
duk_int32_t duk_to_int32(duk_context *ctx, duk_idx_t index);
|
2987
|
+
duk_uint32_t duk_to_uint32(duk_context *ctx, duk_idx_t index);
|
2988
|
+
duk_uint16_t duk_to_uint16(duk_context *ctx, duk_idx_t index);
|
2989
|
+
const char *duk_to_string(duk_context *ctx, duk_idx_t index);
|
2990
|
+
const char *duk_to_lstring(duk_context *ctx, duk_idx_t index, duk_size_t *out_len);
|
2991
|
+
void *duk_to_buffer(duk_context *ctx, duk_idx_t index, duk_size_t *out_size);
|
2992
|
+
void *duk_to_fixed_buffer(duk_context *ctx, duk_idx_t index, duk_size_t *out_size);
|
2993
|
+
void *duk_to_dynamic_buffer(duk_context *ctx, duk_idx_t index, duk_size_t *out_size);
|
2994
|
+
void *duk_to_pointer(duk_context *ctx, duk_idx_t index);
|
2995
|
+
void duk_to_object(duk_context *ctx, duk_idx_t index);
|
2996
|
+
void duk_to_defaultvalue(duk_context *ctx, duk_idx_t index, duk_int_t hint); /* FIXME: small int? */
|
2997
|
+
void duk_to_primitive(duk_context *ctx, duk_idx_t index, duk_int_t hint); /* FIXME: small int? */
|
2998
|
+
|
2999
|
+
/* safe variants of a few coercion operations */
|
3000
|
+
const char *duk_safe_to_lstring(duk_context *ctx, duk_idx_t index, duk_size_t *out_len);
|
3001
|
+
#define duk_safe_to_string(ctx,index) \
|
3002
|
+
duk_safe_to_lstring((ctx), (index), NULL)
|
3003
|
+
|
3004
|
+
/*
|
3005
|
+
* Misc conversion
|
3006
|
+
*/
|
3007
|
+
|
3008
|
+
const char *duk_base64_encode(duk_context *ctx, duk_idx_t index);
|
3009
|
+
void duk_base64_decode(duk_context *ctx, duk_idx_t index);
|
3010
|
+
const char *duk_hex_encode(duk_context *ctx, duk_idx_t index);
|
3011
|
+
void duk_hex_decode(duk_context *ctx, duk_idx_t index);
|
3012
|
+
const char *duk_json_encode(duk_context *ctx, duk_idx_t index);
|
3013
|
+
void duk_json_decode(duk_context *ctx, duk_idx_t index);
|
3014
|
+
|
3015
|
+
/*
|
3016
|
+
* Buffer
|
3017
|
+
*/
|
3018
|
+
|
3019
|
+
void *duk_resize_buffer(duk_context *ctx, duk_idx_t index, duk_size_t new_size);
|
3020
|
+
|
3021
|
+
/*
|
3022
|
+
* Property access
|
3023
|
+
*
|
3024
|
+
* The basic function assumes key is on stack. The _string variant takes
|
3025
|
+
* a C string as a property name, while the _index variant takes an array
|
3026
|
+
* index as a property name (e.g. 123 is equivalent to the key "123").
|
3027
|
+
*/
|
3028
|
+
|
3029
|
+
duk_bool_t duk_get_prop(duk_context *ctx, duk_idx_t obj_index);
|
3030
|
+
duk_bool_t duk_get_prop_string(duk_context *ctx, duk_idx_t obj_index, const char *key);
|
3031
|
+
duk_bool_t duk_get_prop_index(duk_context *ctx, duk_idx_t obj_index, duk_uarridx_t arr_index);
|
3032
|
+
duk_bool_t duk_put_prop(duk_context *ctx, duk_idx_t obj_index);
|
3033
|
+
duk_bool_t duk_put_prop_string(duk_context *ctx, duk_idx_t obj_index, const char *key);
|
3034
|
+
duk_bool_t duk_put_prop_index(duk_context *ctx, duk_idx_t obj_index, duk_uarridx_t arr_index);
|
3035
|
+
duk_bool_t duk_del_prop(duk_context *ctx, duk_idx_t obj_index);
|
3036
|
+
duk_bool_t duk_del_prop_string(duk_context *ctx, duk_idx_t obj_index, const char *key);
|
3037
|
+
duk_bool_t duk_del_prop_index(duk_context *ctx, duk_idx_t obj_index, duk_uarridx_t arr_index);
|
3038
|
+
duk_bool_t duk_has_prop(duk_context *ctx, duk_idx_t obj_index);
|
3039
|
+
duk_bool_t duk_has_prop_string(duk_context *ctx, duk_idx_t obj_index, const char *key);
|
3040
|
+
duk_bool_t duk_has_prop_index(duk_context *ctx, duk_idx_t obj_index, duk_uarridx_t arr_index);
|
3041
|
+
|
3042
|
+
duk_bool_t duk_get_global_string(duk_context *ctx, const char *key);
|
3043
|
+
|
3044
|
+
/*
|
3045
|
+
* Module helpers: put multiple function or constant properties
|
3046
|
+
*/
|
3047
|
+
|
3048
|
+
void duk_put_function_list(duk_context *ctx, duk_idx_t obj_index, const duk_function_list_entry *funcs);
|
3049
|
+
void duk_put_number_list(duk_context *ctx, duk_idx_t obj_index, const duk_number_list_entry *numbers);
|
3050
|
+
|
3051
|
+
/*
|
3052
|
+
* Variable access
|
3053
|
+
*/
|
3054
|
+
|
3055
|
+
/* FIXME: incomplete, not usable now */
|
3056
|
+
void duk_get_var(duk_context *ctx);
|
3057
|
+
void duk_put_var(duk_context *ctx);
|
3058
|
+
duk_bool_t duk_del_var(duk_context *ctx);
|
3059
|
+
duk_bool_t duk_has_var(duk_context *ctx);
|
3060
|
+
|
3061
|
+
/*
|
3062
|
+
* Object operations
|
3063
|
+
*/
|
3064
|
+
|
3065
|
+
void duk_compact(duk_context *ctx, duk_idx_t obj_index);
|
3066
|
+
void duk_enum(duk_context *ctx, duk_idx_t obj_index, duk_uint_t enum_flags);
|
3067
|
+
duk_bool_t duk_next(duk_context *ctx, duk_idx_t enum_index, duk_bool_t get_value);
|
3068
|
+
|
3069
|
+
/*
|
3070
|
+
* String manipulation
|
3071
|
+
*/
|
3072
|
+
|
3073
|
+
void duk_concat(duk_context *ctx, duk_idx_t count);
|
3074
|
+
void duk_join(duk_context *ctx, duk_idx_t count);
|
3075
|
+
void duk_decode_string(duk_context *ctx, duk_idx_t index, duk_decode_char_function callback, void *udata);
|
3076
|
+
void duk_map_string(duk_context *ctx, duk_idx_t index, duk_map_char_function callback, void *udata);
|
3077
|
+
void duk_substring(duk_context *ctx, duk_idx_t index, duk_size_t start_char_offset, duk_size_t end_char_offset);
|
3078
|
+
void duk_trim(duk_context *ctx, duk_idx_t index);
|
3079
|
+
duk_codepoint_t duk_char_code_at(duk_context *ctx, duk_idx_t index, duk_size_t char_offset);
|
3080
|
+
|
3081
|
+
/*
|
3082
|
+
* Ecmascript operators
|
3083
|
+
*/
|
3084
|
+
|
3085
|
+
duk_bool_t duk_equals(duk_context *ctx, duk_idx_t index1, duk_idx_t index2);
|
3086
|
+
duk_bool_t duk_strict_equals(duk_context *ctx, duk_idx_t index1, duk_idx_t index2);
|
3087
|
+
|
3088
|
+
/*
|
3089
|
+
* Function (method) calls
|
3090
|
+
*/
|
3091
|
+
|
3092
|
+
void duk_call(duk_context *ctx, duk_idx_t nargs);
|
3093
|
+
void duk_call_method(duk_context *ctx, duk_idx_t nargs);
|
3094
|
+
void duk_call_prop(duk_context *ctx, duk_idx_t obj_index, duk_idx_t nargs);
|
3095
|
+
duk_int_t duk_pcall(duk_context *ctx, duk_idx_t nargs);
|
3096
|
+
duk_int_t duk_pcall_method(duk_context *ctx, duk_idx_t nargs);
|
3097
|
+
duk_int_t duk_pcall_prop(duk_context *ctx, duk_idx_t obj_index, duk_idx_t nargs);
|
3098
|
+
void duk_new(duk_context *ctx, duk_idx_t nargs);
|
3099
|
+
duk_int_t duk_safe_call(duk_context *ctx, duk_safe_call_function func, duk_idx_t nargs, duk_idx_t nrets);
|
3100
|
+
|
3101
|
+
/*
|
3102
|
+
* Thread management
|
3103
|
+
*/
|
3104
|
+
|
3105
|
+
/* There are currently no native functions to yield/resume, due to the internal
|
3106
|
+
* limitations on coroutine handling. These will be added later.
|
3107
|
+
*/
|
3108
|
+
|
3109
|
+
/*
|
3110
|
+
* Compilation and evaluation
|
3111
|
+
*/
|
3112
|
+
|
3113
|
+
duk_int_t duk_eval_raw(duk_context *ctx, const char *src_buffer, duk_size_t src_length, duk_uint_t flags);
|
3114
|
+
duk_int_t duk_compile_raw(duk_context *ctx, const char *src_buffer, duk_size_t src_length, duk_uint_t flags);
|
3115
|
+
|
3116
|
+
/* plain */
|
3117
|
+
#define duk_eval(ctx) \
|
3118
|
+
((void) duk_push_string((ctx), __FILE__), \
|
3119
|
+
(void) duk_eval_raw((ctx), NULL, 0, DUK_COMPILE_EVAL))
|
3120
|
+
|
3121
|
+
#define duk_eval_noresult(ctx) \
|
3122
|
+
((void) duk_push_string((ctx), __FILE__), \
|
3123
|
+
(void) duk_eval_raw((ctx), NULL, 0, DUK_COMPILE_EVAL | DUK_COMPILE_NORESULT))
|
3124
|
+
|
3125
|
+
#define duk_peval(ctx) \
|
3126
|
+
((void) duk_push_string((ctx), __FILE__), \
|
3127
|
+
duk_eval_raw((ctx), NULL, 0, DUK_COMPILE_EVAL | DUK_COMPILE_SAFE))
|
3128
|
+
|
3129
|
+
#define duk_peval_noresult(ctx) \
|
3130
|
+
((void) duk_push_string((ctx), __FILE__), \
|
3131
|
+
duk_eval_raw((ctx), NULL, 0, DUK_COMPILE_EVAL | DUK_COMPILE_SAFE | DUK_COMPILE_NORESULT))
|
3132
|
+
|
3133
|
+
#define duk_compile(ctx,flags) \
|
3134
|
+
((void) duk_compile_raw((ctx), NULL, 0, (flags)))
|
3135
|
+
|
3136
|
+
#define duk_pcompile(ctx,flags) \
|
3137
|
+
(duk_compile_raw((ctx), NULL, 0, (flags) | DUK_COMPILE_SAFE))
|
3138
|
+
|
3139
|
+
/* string */
|
3140
|
+
#define duk_eval_string(ctx,src) \
|
3141
|
+
((void) duk_push_string((ctx), __FILE__), \
|
3142
|
+
(void) duk_eval_raw((ctx), (src), 0, DUK_COMPILE_EVAL | DUK_COMPILE_NOSOURCE | DUK_COMPILE_STRLEN))
|
3143
|
+
|
3144
|
+
#define duk_eval_string_noresult(ctx,src) \
|
3145
|
+
((void) duk_push_string((ctx), __FILE__), \
|
3146
|
+
(void) duk_eval_raw((ctx), (src), 0, DUK_COMPILE_EVAL | DUK_COMPILE_NOSOURCE | DUK_COMPILE_STRLEN | DUK_COMPILE_NORESULT))
|
3147
|
+
|
3148
|
+
#define duk_peval_string(ctx,src) \
|
3149
|
+
((void) duk_push_string((ctx), __FILE__), \
|
3150
|
+
duk_eval_raw((ctx), (src), 0, DUK_COMPILE_EVAL | DUK_COMPILE_SAFE | DUK_COMPILE_NOSOURCE | DUK_COMPILE_STRLEN))
|
3151
|
+
|
3152
|
+
#define duk_peval_string_noresult(ctx,src) \
|
3153
|
+
((void) duk_push_string((ctx), __FILE__), \
|
3154
|
+
duk_eval_raw((ctx), (src), 0, DUK_COMPILE_EVAL | DUK_COMPILE_SAFE | DUK_COMPILE_NOSOURCE | DUK_COMPILE_STRLEN | DUK_COMPILE_NORESULT))
|
3155
|
+
|
3156
|
+
#define duk_compile_string(ctx,flags,src) \
|
3157
|
+
((void) duk_push_string((ctx), __FILE__), \
|
3158
|
+
(void) duk_compile_raw((ctx), (src), 0, (flags) | DUK_COMPILE_NOSOURCE | DUK_COMPILE_STRLEN))
|
3159
|
+
|
3160
|
+
#define duk_compile_string_filename(ctx,flags,src) \
|
3161
|
+
((void) duk_compile_raw((ctx), (src), 0, (flags) | DUK_COMPILE_NOSOURCE | DUK_COMPILE_STRLEN))
|
3162
|
+
|
3163
|
+
#define duk_pcompile_string(ctx,flags,src) \
|
3164
|
+
((void) duk_push_string((ctx), __FILE__), \
|
3165
|
+
duk_compile_raw((ctx), (src), 0, (flags) | DUK_COMPILE_SAFE | DUK_COMPILE_NOSOURCE | DUK_COMPILE_STRLEN))
|
3166
|
+
|
3167
|
+
#define duk_pcompile_string_filename(ctx,flags,src) \
|
3168
|
+
(duk_compile_raw((ctx), (src), 0, (flags) | DUK_COMPILE_SAFE | DUK_COMPILE_NOSOURCE | DUK_COMPILE_STRLEN))
|
3169
|
+
|
3170
|
+
/* lstring */
|
3171
|
+
#define duk_eval_lstring(ctx,buf,len) \
|
3172
|
+
((void) duk_push_string((ctx), __FILE__), \
|
3173
|
+
(void) duk_eval_raw((ctx), buf, len, DUK_COMPILE_EVAL | DUK_COMPILE_NOSOURCE))
|
3174
|
+
|
3175
|
+
#define duk_eval_lstring_noresult(ctx,buf,len) \
|
3176
|
+
((void) duk_push_string((ctx), __FILE__), \
|
3177
|
+
(void) duk_eval_raw((ctx), buf, len, DUK_COMPILE_EVAL | DUK_COMPILE_NOSOURCE | DUK_COMPILE_NORESULT))
|
3178
|
+
|
3179
|
+
#define duk_peval_lstring(ctx,buf,len) \
|
3180
|
+
((void) duk_push_string((ctx), __FILE__), \
|
3181
|
+
duk_eval_raw((ctx), buf, len, DUK_COMPILE_EVAL | DUK_COMPILE_NOSOURCE | DUK_COMPILE_SAFE))
|
3182
|
+
|
3183
|
+
#define duk_peval_lstring_noresult(ctx,buf,len) \
|
3184
|
+
((void) duk_push_string((ctx), __FILE__), \
|
3185
|
+
duk_eval_raw((ctx), buf, len, DUK_COMPILE_EVAL | DUK_COMPILE_SAFE | DUK_COMPILE_NOSOURCE | DUK_COMPILE_NORESULT))
|
3186
|
+
|
3187
|
+
#define duk_compile_lstring(ctx,flags,buf,len) \
|
3188
|
+
((void) duk_push_string((ctx), __FILE__), \
|
3189
|
+
(void) duk_compile_raw((ctx), buf, len, (flags) | DUK_COMPILE_NOSOURCE))
|
3190
|
+
|
3191
|
+
#define duk_compile_lstring_filename(ctx,flags,buf,len) \
|
3192
|
+
((void) duk_compile_raw((ctx), buf, len, (flags) | DUK_COMPILE_NOSOURCE))
|
3193
|
+
|
3194
|
+
#define duk_pcompile_lstring(ctx,flags,buf,len) \
|
3195
|
+
((void) duk_push_string((ctx), __FILE__), \
|
3196
|
+
duk_compile_raw((ctx), buf, len, (flags) | DUK_COMPILE_SAFE | DUK_COMPILE_NOSOURCE))
|
3197
|
+
|
3198
|
+
#define duk_pcompile_lstring_filename(ctx,flags,buf,len) \
|
3199
|
+
(duk_compile_raw((ctx), buf, len, (flags) | DUK_COMPILE_SAFE | DUK_COMPILE_NOSOURCE))
|
3200
|
+
|
3201
|
+
/* file */
|
3202
|
+
#define duk_eval_file(ctx,path) \
|
3203
|
+
((void) duk_push_string_file((ctx), (path)), \
|
3204
|
+
(void) duk_push_string((ctx), (path)), \
|
3205
|
+
(void) duk_eval_raw((ctx), NULL, 0, DUK_COMPILE_EVAL))
|
3206
|
+
|
3207
|
+
#define duk_eval_file_noresult(ctx,path) \
|
3208
|
+
((void) duk_push_string_file((ctx), (path)), \
|
3209
|
+
(void) duk_push_string((ctx), (path)), \
|
3210
|
+
(void) duk_eval_raw((ctx), NULL, 0, DUK_COMPILE_EVAL | DUK_COMPILE_NORESULT))
|
3211
|
+
|
3212
|
+
#define duk_peval_file(ctx,path) \
|
3213
|
+
((void) duk_push_string_file((ctx), (path)), \
|
3214
|
+
(void) duk_push_string((ctx), (path)), \
|
3215
|
+
duk_eval_raw((ctx), NULL, 0, DUK_COMPILE_EVAL | DUK_COMPILE_SAFE))
|
3216
|
+
|
3217
|
+
#define duk_peval_file_noresult(ctx,path) \
|
3218
|
+
((void) duk_push_string_file((ctx), (path)), \
|
3219
|
+
(void) duk_push_string((ctx), (path)), \
|
3220
|
+
duk_eval_raw((ctx), NULL, 0, DUK_COMPILE_EVAL | DUK_COMPILE_SAFE | DUK_COMPILE_NORESULT))
|
3221
|
+
|
3222
|
+
#define duk_compile_file(ctx,flags,path) \
|
3223
|
+
((void) duk_push_string_file((ctx), (path)), \
|
3224
|
+
(void) duk_push_string((ctx), (path)), \
|
3225
|
+
(void) duk_compile_raw((ctx), NULL, 0, (flags)))
|
3226
|
+
|
3227
|
+
#define duk_pcompile_file(ctx,flags,path) \
|
3228
|
+
((void) duk_push_string_file((ctx), (path)), \
|
3229
|
+
(void) duk_push_string((ctx), (path)), \
|
3230
|
+
duk_compile_raw((ctx), NULL, 0, (flags) | DUK_COMPILE_SAFE))
|
3231
|
+
|
3232
|
+
/*
|
3233
|
+
* Logging
|
3234
|
+
*/
|
3235
|
+
|
3236
|
+
/* FIXME: here a small integer type would be proper */
|
3237
|
+
void duk_log(duk_context *ctx, duk_int_t level, const char *fmt, ...);
|
3238
|
+
|
3239
|
+
/*
|
3240
|
+
* Debugging
|
3241
|
+
*/
|
3242
|
+
|
3243
|
+
void duk_push_context_dump(duk_context *ctx);
|
3244
|
+
|
3245
|
+
#if defined(DUK_USE_FILE_IO)
|
3246
|
+
/* internal use */
|
3247
|
+
#define duk_dump_context_filehandle(ctx,fh) \
|
3248
|
+
do { \
|
3249
|
+
duk_push_context_dump((ctx)); \
|
3250
|
+
fprintf(stdout, "%s\n", duk_safe_to_string(ctx, -1)); \
|
3251
|
+
duk_pop(ctx); \
|
3252
|
+
} while (0)
|
3253
|
+
|
3254
|
+
/* external use */
|
3255
|
+
#define duk_dump_context_stdout(ctx) \
|
3256
|
+
duk_dump_context_filehandle(ctx,stdout)
|
3257
|
+
#define duk_dump_context_stderr(ctx) \
|
3258
|
+
duk_dump_context_filehandle(ctx,stderr)
|
3259
|
+
#else /* DUK_USE_FILE_IO */
|
3260
|
+
#define duk_dump_context_stdout(ctx) do {} while (0)
|
3261
|
+
#define duk_dump_context_stderr(ctx) do {} while (0)
|
3262
|
+
#endif /* DUK_USE_FILE_IO */
|
3263
|
+
|
3264
|
+
/*
|
3265
|
+
* C++ name mangling
|
3266
|
+
*/
|
3267
|
+
|
3268
|
+
#ifdef __cplusplus
|
3269
|
+
/* end 'extern "C"' wrapper */
|
3270
|
+
}
|
3271
|
+
#endif
|
3272
|
+
|
3273
|
+
#endif /* DUK_API_PUBLIC_H_INCLUDED */
|
3274
|
+
|
3275
|
+
/*
|
3276
|
+
* END PUBLIC API
|
3277
|
+
*/
|
3278
|
+
|
3279
|
+
/*
|
3280
|
+
* Sanity check for the final effective internal defines. This file also
|
3281
|
+
* double checks user tweaks made by an optional duk_custom.h header.
|
3282
|
+
*/
|
3283
|
+
|
3284
|
+
#ifndef DUK_FEATURES_SANITY_H_INCLUDED
|
3285
|
+
#define DUK_FEATURES_SANITY_H_INCLUDED
|
3286
|
+
|
3287
|
+
/*
|
3288
|
+
* Deprecated feature options.
|
3289
|
+
*
|
3290
|
+
* Catch so that user more easily notices and updates build.
|
3291
|
+
*/
|
3292
|
+
|
3293
|
+
#if defined(DUK_OPT_NO_FUNC_STMT)
|
3294
|
+
#error DUK_OPT_NO_FUNC_STMT is deprecated, use DUK_OPT_NO_NONSTD_FUNC_STMT
|
3295
|
+
#endif
|
3296
|
+
|
3297
|
+
#if defined(DUK_OPT_FUNC_NONSTD_CALLER_PROPERTY)
|
3298
|
+
#error DUK_OPT_FUNC_NONSTD_CALLER_PROPERTY is deprecated, use DUK_OPT_NONSTD_FUNC_CALLER_PROPERTY
|
3299
|
+
#endif
|
3300
|
+
|
3301
|
+
#if defined(DUK_OPT_FUNC_NONSTD_SOURCE_PROPERTY)
|
3302
|
+
#error DUK_OPT_FUNC_NONSTD_SOURCE_PROPERTY is deprecated, use DUK_OPT_NONSTD_FUNC_SOURCE_PROPERTY
|
3303
|
+
#endif
|
3304
|
+
|
3305
|
+
#if defined(DUK_OPT_NO_ARRAY_SPLICE_NONSTD_DELCOUNT)
|
3306
|
+
#error DUK_OPT_NO_ARRAY_SPLICE_NONSTD_DELCOUNT is deprecated, use DUK_OPT_NO_NONSTD_ARRAY_SPLICE_DELCOUNT
|
3307
|
+
#endif
|
3308
|
+
|
3309
|
+
#if defined(DUK_OPT_NO_OBJECT_ES6_PROTO_PROPERTY)
|
3310
|
+
#error DUK_OPT_NO_OBJECT_ES6_PROTO_PROPERTY is deprecated, use DUK_OPT_NO_ES6_OBJECT_PROTO_PROPERTY
|
3311
|
+
#endif
|
3312
|
+
|
3313
|
+
#if defined(DUK_OPT_NO_OBJECT_ES6_SETPROTOTYPEOF)
|
3314
|
+
#error DUK_OPT_NO_OBJECT_ES6_SETPROTOTYPEOF is deprecated, use DUK_OPT_NO_ES6_OBJECT_SETPROTOTYPEOF
|
3315
|
+
#endif
|
3316
|
+
|
3317
|
+
#if defined(DUK_OPT_NO_JSONX)
|
3318
|
+
#error DUK_OPT_NO_JSONX is deprecated, use DUK_OPT_NO_JX
|
3319
|
+
#endif
|
3320
|
+
|
3321
|
+
#if defined(DUK_OPT_NO_JSONC)
|
3322
|
+
#error DUK_OPT_NO_JSONC is deprecated, use DUK_OPT_NO_JC
|
3323
|
+
#endif
|
3324
|
+
|
3325
|
+
/*
|
3326
|
+
* Debug print consistency
|
3327
|
+
*/
|
3328
|
+
|
3329
|
+
#if defined(DUK_USE_DPRINT) && !defined(DUK_USE_DEBUG)
|
3330
|
+
#error DUK_USE_DPRINT without DUK_USE_DEBUG
|
3331
|
+
#endif
|
3332
|
+
|
3333
|
+
#if defined(DUK_USE_DDPRINT) && !defined(DUK_USE_DEBUG)
|
3334
|
+
#error DUK_USE_DDPRINT without DUK_USE_DEBUG
|
3335
|
+
#endif
|
3336
|
+
|
3337
|
+
#if defined(DUK_USE_DDDPRINT) && !defined(DUK_USE_DEBUG)
|
3338
|
+
#error DUK_USE_DDDPRINT without DUK_USE_DEBUG
|
3339
|
+
#endif
|
3340
|
+
|
3341
|
+
/*
|
3342
|
+
* Garbage collection consistency
|
3343
|
+
*/
|
3344
|
+
|
3345
|
+
#if defined(DUK_USE_REFERENCE_COUNTING) && !defined(DUK_USE_DOUBLE_LINKED_HEAP)
|
3346
|
+
#error DUK_USE_REFERENCE_COUNTING defined without DUK_USE_DOUBLE_LINKED_HEAP
|
3347
|
+
#endif
|
3348
|
+
|
3349
|
+
#if defined(DUK_USE_GC_TORTURE) && !defined(DUK_USE_MARK_AND_SWEEP)
|
3350
|
+
#error DUK_USE_GC_TORTURE defined without DUK_USE_MARK_AND_SWEEP
|
3351
|
+
#endif
|
3352
|
+
|
3353
|
+
#endif /* DUK_FEATURES_SANITY_H_INCLUDED */
|
3354
|
+
|
3355
|
+
/*
|
3356
|
+
* Union to access IEEE double memory representation, indexes for double
|
3357
|
+
* memory representation, and some macros for double manipulation.
|
3358
|
+
*
|
3359
|
+
* Also used by packed duk_tval. Use a union for bit manipulation to
|
3360
|
+
* minimize aliasing issues in practice. The C99 standard does not
|
3361
|
+
* guarantee that this should work, but it's a very widely supported
|
3362
|
+
* practice for low level manipulation.
|
3363
|
+
*
|
3364
|
+
* IEEE double format summary:
|
3365
|
+
*
|
3366
|
+
* seeeeeee eeeeffff ffffffff ffffffff ffffffff ffffffff ffffffff ffffffff
|
3367
|
+
* A B C D E F G H
|
3368
|
+
*
|
3369
|
+
* s sign bit
|
3370
|
+
* eee... exponent field
|
3371
|
+
* fff... fraction
|
3372
|
+
*
|
3373
|
+
* See http://en.wikipedia.org/wiki/Double_precision_floating-point_format.
|
3374
|
+
*
|
3375
|
+
* NaNs are represented as exponent 0x7ff and mantissa != 0. The NaN is a
|
3376
|
+
* signaling NaN when the highest bit of the mantissa is zero, and a quiet
|
3377
|
+
* NaN when the highest bit is set.
|
3378
|
+
*
|
3379
|
+
* At least three memory layouts are relevant here:
|
3380
|
+
*
|
3381
|
+
* A B C D E F G H Big endian (e.g. 68k) DUK_USE_DOUBLE_BE
|
3382
|
+
* H G F E D C B A Little endian (e.g. x86) DUK_USE_DOUBLE_LE
|
3383
|
+
* D C B A H G F E Mixed/cross endian (e.g. ARM) DUK_USE_DOUBLE_ME
|
3384
|
+
*
|
3385
|
+
* ARM is a special case: ARM double values are in mixed/cross endian
|
3386
|
+
* format while ARM duk_uint64_t values are in standard little endian
|
3387
|
+
* format (H G F E D C B A). When a double is read as a duk_uint64_t
|
3388
|
+
* from memory, the register will contain the (logical) value
|
3389
|
+
* E F G H A B C D. This requires some special handling below.
|
3390
|
+
*
|
3391
|
+
* Indexes of various types (8-bit, 16-bit, 32-bit) in memory relative to
|
3392
|
+
* the logical (big endian) order:
|
3393
|
+
*
|
3394
|
+
* byte order duk_uint8_t duk_uint16_t duk_uint32_t
|
3395
|
+
* BE 01234567 0123 01
|
3396
|
+
* LE 76543210 3210 10
|
3397
|
+
* ME (ARM) 32107654 1032 01
|
3398
|
+
*
|
3399
|
+
* Some processors may alter NaN values in a floating point load+store.
|
3400
|
+
* For instance, on X86 a FLD + FSTP may convert a signaling NaN to a
|
3401
|
+
* quiet one. This is catastrophic when NaN space is used in packed
|
3402
|
+
* duk_tval values. See: misc/clang_aliasing.c.
|
3403
|
+
*/
|
3404
|
+
|
3405
|
+
#ifndef DUK_DBLUNION_H_INCLUDED
|
3406
|
+
#define DUK_DBLUNION_H_INCLUDED
|
3407
|
+
|
3408
|
+
/*
|
3409
|
+
* Union for accessing double parts, also serves as packed duk_tval
|
3410
|
+
*/
|
3411
|
+
|
3412
|
+
union duk_double_union {
|
3413
|
+
double d;
|
3414
|
+
#ifdef DUK_USE_64BIT_OPS
|
3415
|
+
duk_uint64_t ull[1];
|
3416
|
+
#endif
|
3417
|
+
duk_uint32_t ui[2];
|
3418
|
+
duk_uint16_t us[4];
|
3419
|
+
duk_uint8_t uc[8];
|
3420
|
+
#ifdef DUK_USE_PACKED_TVAL_POSSIBLE
|
3421
|
+
void *vp[2]; /* used by packed duk_tval, assumes sizeof(void *) == 4 */
|
3422
|
+
#endif
|
3423
|
+
};
|
3424
|
+
|
3425
|
+
typedef union duk_double_union duk_double_union;
|
3426
|
+
|
3427
|
+
/*
|
3428
|
+
* Indexes of various types with respect to big endian (logical) layout
|
3429
|
+
*/
|
3430
|
+
|
3431
|
+
#if defined(DUK_USE_DOUBLE_LE)
|
3432
|
+
#ifdef DUK_USE_64BIT_OPS
|
3433
|
+
#define DUK_DBL_IDX_ULL0 0
|
3434
|
+
#endif
|
3435
|
+
#define DUK_DBL_IDX_UI0 1
|
3436
|
+
#define DUK_DBL_IDX_UI1 0
|
3437
|
+
#define DUK_DBL_IDX_US0 3
|
3438
|
+
#define DUK_DBL_IDX_US1 2
|
3439
|
+
#define DUK_DBL_IDX_US2 1
|
3440
|
+
#define DUK_DBL_IDX_US3 0
|
3441
|
+
#define DUK_DBL_IDX_UC0 7
|
3442
|
+
#define DUK_DBL_IDX_UC1 6
|
3443
|
+
#define DUK_DBL_IDX_UC2 5
|
3444
|
+
#define DUK_DBL_IDX_UC3 4
|
3445
|
+
#define DUK_DBL_IDX_UC4 3
|
3446
|
+
#define DUK_DBL_IDX_UC5 2
|
3447
|
+
#define DUK_DBL_IDX_UC6 1
|
3448
|
+
#define DUK_DBL_IDX_UC7 0
|
3449
|
+
#define DUK_DBL_IDX_VP0 DUK_DBL_IDX_UI0 /* packed tval */
|
3450
|
+
#define DUK_DBL_IDX_VP1 DUK_DBL_IDX_UI1 /* packed tval */
|
3451
|
+
#elif defined(DUK_USE_DOUBLE_BE)
|
3452
|
+
#ifdef DUK_USE_64BIT_OPS
|
3453
|
+
#define DUK_DBL_IDX_ULL0 0
|
3454
|
+
#endif
|
3455
|
+
#define DUK_DBL_IDX_UI0 0
|
3456
|
+
#define DUK_DBL_IDX_UI1 1
|
3457
|
+
#define DUK_DBL_IDX_US0 0
|
3458
|
+
#define DUK_DBL_IDX_US1 1
|
3459
|
+
#define DUK_DBL_IDX_US2 2
|
3460
|
+
#define DUK_DBL_IDX_US3 3
|
3461
|
+
#define DUK_DBL_IDX_UC0 0
|
3462
|
+
#define DUK_DBL_IDX_UC1 1
|
3463
|
+
#define DUK_DBL_IDX_UC2 2
|
3464
|
+
#define DUK_DBL_IDX_UC3 3
|
3465
|
+
#define DUK_DBL_IDX_UC4 4
|
3466
|
+
#define DUK_DBL_IDX_UC5 5
|
3467
|
+
#define DUK_DBL_IDX_UC6 6
|
3468
|
+
#define DUK_DBL_IDX_UC7 7
|
3469
|
+
#define DUK_DBL_IDX_VP0 DUK_DBL_IDX_UI0 /* packed tval */
|
3470
|
+
#define DUK_DBL_IDX_VP1 DUK_DBL_IDX_UI1 /* packed tval */
|
3471
|
+
#elif defined(DUK_USE_DOUBLE_ME)
|
3472
|
+
#ifdef DUK_USE_64BIT_OPS
|
3473
|
+
#define DUK_DBL_IDX_ULL0 0 /* not directly applicable, byte order differs from a double */
|
3474
|
+
#endif
|
3475
|
+
#define DUK_DBL_IDX_UI0 0
|
3476
|
+
#define DUK_DBL_IDX_UI1 1
|
3477
|
+
#define DUK_DBL_IDX_US0 1
|
3478
|
+
#define DUK_DBL_IDX_US1 0
|
3479
|
+
#define DUK_DBL_IDX_US2 3
|
3480
|
+
#define DUK_DBL_IDX_US3 2
|
3481
|
+
#define DUK_DBL_IDX_UC0 3
|
3482
|
+
#define DUK_DBL_IDX_UC1 2
|
3483
|
+
#define DUK_DBL_IDX_UC2 1
|
3484
|
+
#define DUK_DBL_IDX_UC3 0
|
3485
|
+
#define DUK_DBL_IDX_UC4 7
|
3486
|
+
#define DUK_DBL_IDX_UC5 6
|
3487
|
+
#define DUK_DBL_IDX_UC6 5
|
3488
|
+
#define DUK_DBL_IDX_UC7 4
|
3489
|
+
#define DUK_DBL_IDX_VP0 DUK_DBL_IDX_UI0 /* packed tval */
|
3490
|
+
#define DUK_DBL_IDX_VP1 DUK_DBL_IDX_UI1 /* packed tval */
|
3491
|
+
#else
|
3492
|
+
#error internal error
|
3493
|
+
#endif
|
3494
|
+
|
3495
|
+
/*
|
3496
|
+
* Helper macros for reading/writing memory representation parts, used
|
3497
|
+
* by duk_numconv.c and duk_tval.h.
|
3498
|
+
*/
|
3499
|
+
|
3500
|
+
#define DUK_DBLUNION_SET_DOUBLE(u,v) do { \
|
3501
|
+
(u)->d = (v); \
|
3502
|
+
} while (0)
|
3503
|
+
|
3504
|
+
#define DUK_DBLUNION_SET_HIGH32(u,v) do { \
|
3505
|
+
(u)->ui[DUK_DBL_IDX_UI0] = (duk_uint32_t) (v); \
|
3506
|
+
} while (0)
|
3507
|
+
|
3508
|
+
#ifdef DUK_USE_64BIT_OPS
|
3509
|
+
#ifdef DUK_USE_DOUBLE_ME
|
3510
|
+
#define DUK_DBLUNION_SET_HIGH32_ZERO_LOW32(u,v) do { \
|
3511
|
+
(u)->ull[DUK_DBL_IDX_ULL0] = (duk_uint64_t) (v); \
|
3512
|
+
} while (0)
|
3513
|
+
#else
|
3514
|
+
#define DUK_DBLUNION_SET_HIGH32_ZERO_LOW32(u,v) do { \
|
3515
|
+
(u)->ull[DUK_DBL_IDX_ULL0] = ((duk_uint64_t) (v)) << 32; \
|
3516
|
+
} while (0)
|
3517
|
+
#endif
|
3518
|
+
#else /* DUK_USE_64BIT_OPS */
|
3519
|
+
#define DUK_DBLUNION_SET_HIGH32_ZERO_LOW32(u,v) do { \
|
3520
|
+
(u)->ui[DUK_DBL_IDX_UI0] = (duk_uint32_t) (v); \
|
3521
|
+
(u)->ui[DUK_DBL_IDX_UI1] = (duk_uint32_t) 0; \
|
3522
|
+
} while (0)
|
3523
|
+
#endif /* DUK_USE_64BIT_OPS */
|
3524
|
+
|
3525
|
+
#define DUK_DBLUNION_SET_LOW32(u,v) do { \
|
3526
|
+
(u)->ui[DUK_DBL_IDX_UI1] = (duk_uint32_t) (v); \
|
3527
|
+
} while (0)
|
3528
|
+
|
3529
|
+
#define DUK_DBLUNION_GET_DOUBLE(u) ((u)->d)
|
3530
|
+
#define DUK_DBLUNION_GET_HIGH32(u) ((u)->ui[DUK_DBL_IDX_UI0])
|
3531
|
+
#define DUK_DBLUNION_GET_LOW32(u) ((u)->ui[DUK_DBL_IDX_UI1])
|
3532
|
+
|
3533
|
+
/*
|
3534
|
+
* Double NaN manipulation macros related to NaN normalization needed when
|
3535
|
+
* using the packed duk_tval representation. NaN normalization is necessary
|
3536
|
+
* to keep double values compatible with the duk_tval format.
|
3537
|
+
*
|
3538
|
+
* When packed duk_tval is used, the NaN space is used to store pointers
|
3539
|
+
* and other tagged values in addition to NaNs. Actual NaNs are normalized
|
3540
|
+
* to a specific format. The macros below are used by the implementation
|
3541
|
+
* to check and normalize NaN values when they might be created. The macros
|
3542
|
+
* are essentially NOPs when the non-packed duk_tval representation is used.
|
3543
|
+
*
|
3544
|
+
* A FULL check is exact and checks all bits. A NOTFULL check is used by
|
3545
|
+
* the packed duk_tval and works correctly for all NaNs except those that
|
3546
|
+
* begin with 0x7ff0. Since the 'normalized NaN' values used with packed
|
3547
|
+
* duk_tval begin with 0x7ff8, the partial check is reliable when packed
|
3548
|
+
* duk_tval is used.
|
3549
|
+
*
|
3550
|
+
* The ME variant below is specifically for ARM byte order, which has the
|
3551
|
+
* feature that while doubles have a mixed byte order (32107654), unsigned
|
3552
|
+
* long long values has a little endian byte order (76543210). When writing
|
3553
|
+
* a logical double value through a ULL pointer, the 32-bit words need to be
|
3554
|
+
* swapped; hence the #ifdefs below for ULL writes with DUK_USE_DOUBLE_ME.
|
3555
|
+
* This is not full ARM support but suffices for some environments.
|
3556
|
+
*/
|
3557
|
+
|
3558
|
+
#ifdef DUK_USE_64BIT_OPS
|
3559
|
+
#ifdef DUK_USE_DOUBLE_ME
|
3560
|
+
#define DUK__DBLUNION_SET_NAN_FULL(u) do { \
|
3561
|
+
(u)->ull[DUK_DBL_IDX_ULL0] = 0x000000007ff80000ULL; \
|
3562
|
+
} while (0)
|
3563
|
+
#else
|
3564
|
+
#define DUK__DBLUNION_SET_NAN_FULL(u) do { \
|
3565
|
+
(u)->ull[DUK_DBL_IDX_ULL0] = 0x7ff8000000000000ULL; \
|
3566
|
+
} while (0)
|
3567
|
+
#endif
|
3568
|
+
#else /* DUK_USE_64BIT_OPS */
|
3569
|
+
#define DUK__DBLUNION_SET_NAN_FULL(u) do { \
|
3570
|
+
(u)->ui[DUK_DBL_IDX_UI0] = (duk_uint32_t) 0x7ff80000UL; \
|
3571
|
+
(u)->ui[DUK_DBL_IDX_UI1] = (duk_uint32_t) 0x00000000UL; \
|
3572
|
+
} while (0)
|
3573
|
+
#endif /* DUK_USE_64BIT_OPS */
|
3574
|
+
|
3575
|
+
#define DUK__DBLUNION_SET_NAN_NOTFULL(u) do { \
|
3576
|
+
(u)->us[DUK_DBL_IDX_US0] = 0x7ff8UL; \
|
3577
|
+
} while (0)
|
3578
|
+
|
3579
|
+
#ifdef DUK_USE_64BIT_OPS
|
3580
|
+
#ifdef DUK_USE_DOUBLE_ME
|
3581
|
+
#define DUK__DBLUNION_IS_NAN_FULL(u) \
|
3582
|
+
/* E == 0x7ff, F != 0 => NaN */ \
|
3583
|
+
((((u)->us[DUK_DBL_IDX_US0] & 0x7ff0UL) == 0x7ff0UL) && \
|
3584
|
+
((((u)->ull[DUK_DBL_IDX_ULL0]) & 0xffffffff000fffffULL) != 0))
|
3585
|
+
#else
|
3586
|
+
#define DUK__DBLUNION_IS_NAN_FULL(u) \
|
3587
|
+
/* E == 0x7ff, F != 0 => NaN */ \
|
3588
|
+
((((u)->us[DUK_DBL_IDX_US0] & 0x7ff0UL) == 0x7ff0UL) && \
|
3589
|
+
((((u)->ull[DUK_DBL_IDX_ULL0]) & 0x000fffffffffffffULL) != 0))
|
3590
|
+
#endif
|
3591
|
+
#else /* DUK_USE_64BIT_OPS */
|
3592
|
+
#define DUK__DBLUNION_IS_NAN_FULL(u) \
|
3593
|
+
/* E == 0x7ff, F != 0 => NaN */ \
|
3594
|
+
((((u)->ui[DUK_DBL_IDX_UI0] & 0x7ff00000UL) == 0x7ff00000UL) && \
|
3595
|
+
(((u)->ui[DUK_DBL_IDX_UI0] & 0x000fffffUL) != 0 || \
|
3596
|
+
(u)->ui[DUK_DBL_IDX_UI1] != 0))
|
3597
|
+
#endif /* DUK_USE_64BIT_OPS */
|
3598
|
+
|
3599
|
+
#define DUK__DBLUNION_IS_NAN_NOTFULL(u) \
|
3600
|
+
/* E == 0x7ff, topmost four bits of F != 0 => assume NaN */ \
|
3601
|
+
((((u)->us[DUK_DBL_IDX_US0] & 0x7ff0UL) == 0x7ff0UL) && \
|
3602
|
+
(((u)->us[DUK_DBL_IDX_US0] & 0x000fUL) != 0x0000UL))
|
3603
|
+
|
3604
|
+
#ifdef DUK_USE_64BIT_OPS
|
3605
|
+
#ifdef DUK_USE_DOUBLE_ME
|
3606
|
+
#define DUK__DBLUNION_IS_NORMALIZED_NAN_FULL(u) \
|
3607
|
+
((u)->ull[DUK_DBL_IDX_ULL0] == 0x000000007ff80000ULL)
|
3608
|
+
#else
|
3609
|
+
#define DUK__DBLUNION_IS_NORMALIZED_NAN_FULL(u) \
|
3610
|
+
((u)->ull[DUK_DBL_IDX_ULL0] == 0x7ff8000000000000ULL)
|
3611
|
+
#endif
|
3612
|
+
#else /* DUK_USE_64BIT_OPS */
|
3613
|
+
#define DUK__DBLUNION_IS_NORMALIZED_NAN_FULL(u) \
|
3614
|
+
(((u)->ui[DUK_DBL_IDX_UI0] == 0x7ff80000UL) && \
|
3615
|
+
((u)->ui[DUK_DBL_IDX_UI1] == 0x00000000UL))
|
3616
|
+
#endif /* DUK_USE_64BIT_OPS */
|
3617
|
+
|
3618
|
+
#define DUK__DBLUNION_IS_NORMALIZED_NAN_NOTFULL(u) \
|
3619
|
+
/* E == 0x7ff, F == 8 => normalized NaN */ \
|
3620
|
+
((u)->us[DUK_DBL_IDX_US0] == 0x7ff8UL)
|
3621
|
+
|
3622
|
+
#define DUK__DBLUNION_NORMALIZE_NAN_CHECK_FULL(u) do { \
|
3623
|
+
if (DUK__DBLUNION_IS_NAN_FULL((u))) { \
|
3624
|
+
DUK__DBLUNION_SET_NAN_FULL((u)); \
|
3625
|
+
} \
|
3626
|
+
} while (0)
|
3627
|
+
|
3628
|
+
#define DUK__DBLUNION_NORMALIZE_NAN_CHECK_NOTFULL(u) do { \
|
3629
|
+
if (DUK__DBLUNION_IS_NAN_NOTFULL((u))) { \
|
3630
|
+
DUK__DBLUNION_SET_NAN_NOTFULL((u)); \
|
3631
|
+
} \
|
3632
|
+
} while (0)
|
3633
|
+
|
3634
|
+
/* Concrete macros for NaN handling used by the implementation internals.
|
3635
|
+
* Chosen so that they match the duk_tval representation: with a packed
|
3636
|
+
* duk_tval, ensure NaNs are properly normalized; with a non-packed duk_tval
|
3637
|
+
* these are essentially NOPs.
|
3638
|
+
*/
|
3639
|
+
|
3640
|
+
#if defined(DUK_USE_PACKED_TVAL)
|
3641
|
+
#if defined(DUK_USE_FULL_TVAL)
|
3642
|
+
#define DUK_DBLUNION_NORMALIZE_NAN_CHECK(u) DUK__DBLUNION_NORMALIZE_NAN_CHECK_FULL((u))
|
3643
|
+
#define DUK_DBLUNION_IS_NAN(u) DUK__DBLUNION_IS_NAN_FULL((u))
|
3644
|
+
#define DUK_DBLUNION_IS_NORMALIZED_NAN(u) DUK__DBLUNION_IS_NORMALIZED_NAN_FULL((u))
|
3645
|
+
#define DUK_DBLUNION_SET_NAN(d) DUK__DBLUNION_SET_NAN_FULL((d))
|
3646
|
+
#else
|
3647
|
+
#define DUK_DBLUNION_NORMALIZE_NAN_CHECK(u) DUK__DBLUNION_NORMALIZE_NAN_CHECK_NOTFULL((u))
|
3648
|
+
#define DUK_DBLUNION_IS_NAN(u) DUK__DBLUNION_IS_NAN_NOTFULL((u))
|
3649
|
+
#define DUK_DBLUNION_IS_NORMALIZED_NAN(u) DUK__DBLUNION_IS_NORMALIZED_NAN_NOTFULL((u))
|
3650
|
+
#define DUK_DBLUNION_SET_NAN(d) DUK__DBLUNION_SET_NAN_NOTFULL((d))
|
3651
|
+
#endif
|
3652
|
+
#define DUK_DBLUNION_IS_NORMALIZED(u) \
|
3653
|
+
(!DUK_DBLUNION_IS_NAN((u)) || /* either not a NaN */ \
|
3654
|
+
DUK_DBLUNION_IS_NORMALIZED_NAN((u))) /* or is a normalized NaN */
|
3655
|
+
#else /* DUK_USE_PACKED_TVAL */
|
3656
|
+
#define DUK_DBLUNION_NORMALIZE_NAN_CHECK(u) /* nop: no need to normalize */
|
3657
|
+
#define DUK_DBLUNION_IS_NAN(u) (DUK_ISNAN((u)->d))
|
3658
|
+
#define DUK_DBLUNION_IS_NORMALIZED_NAN(u) (DUK_ISNAN((u)->d))
|
3659
|
+
#define DUK_DBLUNION_IS_NORMALIZED(u) 1 /* all doubles are considered normalized */
|
3660
|
+
#define DUK_DBLUNION_SET_NAN(u) do { \
|
3661
|
+
/* in non-packed representation we don't care about which NaN is used */ \
|
3662
|
+
(u)->d = DUK_DOUBLE_NAN; \
|
3663
|
+
} while (0)
|
3664
|
+
#endif /* DUK_USE_PACKED_TVAL */
|
3665
|
+
|
3666
|
+
#endif /* DUK_DBLUNION_H_INCLUDED */
|
3667
|
+
|
3668
|
+
#endif /* DUKTAPE_H_INCLUDED */
|