jbarnette-johnson 1.0.0.200806240111 → 1.0.0.200807291507

This diff represents the content of publicly available package versions that have been released to one of the supported registries. The information contained in this diff is provided for informational purposes only and reflects changes between package versions as they appear in their respective public registries.
Files changed (269) hide show
  1. data/MANIFEST +1 -0
  2. data/Rakefile +3 -10
  3. data/bin/johnson +2 -1
  4. data/ext/spidermonkey/context.c +3 -4
  5. data/ext/spidermonkey/context.h +1 -1
  6. data/ext/spidermonkey/conversions.c +39 -33
  7. data/ext/spidermonkey/debugger.c +5 -5
  8. data/ext/spidermonkey/immutable_node.c.erb +11 -11
  9. data/ext/spidermonkey/jroot.h +4 -4
  10. data/ext/spidermonkey/js_land_proxy.c +9 -8
  11. data/ext/spidermonkey/ruby_land_proxy.c +5 -4
  12. data/ext/spidermonkey/runtime.c +1 -1
  13. data/johnson.gemspec +36 -0
  14. data/lib/hoe.rb +0 -7
  15. data/lib/johnson/cli/options.rb +10 -4
  16. data/lib/johnson/spidermonkey/runtime.rb +2 -2
  17. data/lib/johnson/version.rb +4 -2
  18. data/lib/johnson.rb +1 -0
  19. data/test/johnson/runtime_test.rb +11 -0
  20. data/test/johnson/spidermonkey/ruby_land_proxy_test.rb +6 -0
  21. data/vendor/spidermonkey/.cvsignore +9 -0
  22. data/vendor/spidermonkey/Makefile.in +462 -0
  23. data/vendor/spidermonkey/Makefile.ref +364 -0
  24. data/vendor/spidermonkey/README.html +820 -0
  25. data/vendor/spidermonkey/SpiderMonkey.rsp +12 -0
  26. data/vendor/spidermonkey/Y.js +19 -0
  27. data/vendor/spidermonkey/build.mk +43 -0
  28. data/vendor/spidermonkey/config/AIX4.1.mk +65 -0
  29. data/vendor/spidermonkey/config/AIX4.2.mk +64 -0
  30. data/vendor/spidermonkey/config/AIX4.3.mk +65 -0
  31. data/vendor/spidermonkey/config/Darwin.mk +83 -0
  32. data/vendor/spidermonkey/config/Darwin1.3.mk +81 -0
  33. data/vendor/spidermonkey/config/Darwin1.4.mk +41 -0
  34. data/vendor/spidermonkey/config/Darwin5.2.mk +81 -0
  35. data/vendor/spidermonkey/config/Darwin5.3.mk +81 -0
  36. data/vendor/spidermonkey/config/HP-UXB.10.10.mk +77 -0
  37. data/vendor/spidermonkey/config/HP-UXB.10.20.mk +77 -0
  38. data/vendor/spidermonkey/config/HP-UXB.11.00.mk +80 -0
  39. data/vendor/spidermonkey/config/IRIX.mk +87 -0
  40. data/vendor/spidermonkey/config/IRIX5.3.mk +44 -0
  41. data/vendor/spidermonkey/config/IRIX6.1.mk +44 -0
  42. data/vendor/spidermonkey/config/IRIX6.2.mk +44 -0
  43. data/vendor/spidermonkey/config/IRIX6.3.mk +44 -0
  44. data/vendor/spidermonkey/config/IRIX6.5.mk +44 -0
  45. data/vendor/spidermonkey/config/Linux_All.mk +103 -0
  46. data/vendor/spidermonkey/config/Mac_OS10.0.mk +82 -0
  47. data/vendor/spidermonkey/config/OSF1V4.0.mk +72 -0
  48. data/vendor/spidermonkey/config/OSF1V5.0.mk +69 -0
  49. data/vendor/spidermonkey/config/SunOS4.1.4.mk +101 -0
  50. data/vendor/spidermonkey/config/SunOS5.10.mk +50 -0
  51. data/vendor/spidermonkey/config/SunOS5.3.mk +91 -0
  52. data/vendor/spidermonkey/config/SunOS5.4.mk +92 -0
  53. data/vendor/spidermonkey/config/SunOS5.5.1.mk +44 -0
  54. data/vendor/spidermonkey/config/SunOS5.5.mk +87 -0
  55. data/vendor/spidermonkey/config/SunOS5.6.mk +89 -0
  56. data/vendor/spidermonkey/config/SunOS5.7.mk +44 -0
  57. data/vendor/spidermonkey/config/SunOS5.8.mk +44 -0
  58. data/vendor/spidermonkey/config/SunOS5.9.mk +44 -0
  59. data/vendor/spidermonkey/config/WINNT4.0.mk +117 -0
  60. data/vendor/spidermonkey/config/WINNT5.0.mk +117 -0
  61. data/vendor/spidermonkey/config/WINNT5.1.mk +117 -0
  62. data/vendor/spidermonkey/config/WINNT5.2.mk +117 -0
  63. data/vendor/spidermonkey/config/WINNT6.0.mk +117 -0
  64. data/vendor/spidermonkey/config/dgux.mk +64 -0
  65. data/vendor/spidermonkey/config.mk +192 -0
  66. data/vendor/spidermonkey/editline/Makefile.ref +144 -0
  67. data/vendor/spidermonkey/editline/README +83 -0
  68. data/vendor/spidermonkey/editline/editline.3 +175 -0
  69. data/vendor/spidermonkey/editline/editline.c +1369 -0
  70. data/vendor/spidermonkey/editline/editline.h +135 -0
  71. data/vendor/spidermonkey/editline/sysunix.c +182 -0
  72. data/vendor/spidermonkey/editline/unix.h +82 -0
  73. data/vendor/spidermonkey/fdlibm/.cvsignore +7 -0
  74. data/vendor/spidermonkey/fdlibm/Makefile.in +127 -0
  75. data/vendor/spidermonkey/fdlibm/Makefile.ref +192 -0
  76. data/vendor/spidermonkey/fdlibm/e_acos.c +147 -0
  77. data/vendor/spidermonkey/fdlibm/e_acosh.c +105 -0
  78. data/vendor/spidermonkey/fdlibm/e_asin.c +156 -0
  79. data/vendor/spidermonkey/fdlibm/e_atan2.c +165 -0
  80. data/vendor/spidermonkey/fdlibm/e_atanh.c +110 -0
  81. data/vendor/spidermonkey/fdlibm/e_cosh.c +133 -0
  82. data/vendor/spidermonkey/fdlibm/e_exp.c +202 -0
  83. data/vendor/spidermonkey/fdlibm/e_fmod.c +184 -0
  84. data/vendor/spidermonkey/fdlibm/e_gamma.c +71 -0
  85. data/vendor/spidermonkey/fdlibm/e_gamma_r.c +70 -0
  86. data/vendor/spidermonkey/fdlibm/e_hypot.c +173 -0
  87. data/vendor/spidermonkey/fdlibm/e_j0.c +524 -0
  88. data/vendor/spidermonkey/fdlibm/e_j1.c +523 -0
  89. data/vendor/spidermonkey/fdlibm/e_jn.c +315 -0
  90. data/vendor/spidermonkey/fdlibm/e_lgamma.c +71 -0
  91. data/vendor/spidermonkey/fdlibm/e_lgamma_r.c +347 -0
  92. data/vendor/spidermonkey/fdlibm/e_log.c +184 -0
  93. data/vendor/spidermonkey/fdlibm/e_log10.c +134 -0
  94. data/vendor/spidermonkey/fdlibm/e_pow.c +386 -0
  95. data/vendor/spidermonkey/fdlibm/e_rem_pio2.c +222 -0
  96. data/vendor/spidermonkey/fdlibm/e_remainder.c +120 -0
  97. data/vendor/spidermonkey/fdlibm/e_scalb.c +89 -0
  98. data/vendor/spidermonkey/fdlibm/e_sinh.c +122 -0
  99. data/vendor/spidermonkey/fdlibm/e_sqrt.c +497 -0
  100. data/vendor/spidermonkey/fdlibm/fdlibm.h +273 -0
  101. data/vendor/spidermonkey/fdlibm/fdlibm.mak +1453 -0
  102. data/vendor/spidermonkey/fdlibm/fdlibm.mdp +0 -0
  103. data/vendor/spidermonkey/fdlibm/k_cos.c +135 -0
  104. data/vendor/spidermonkey/fdlibm/k_rem_pio2.c +354 -0
  105. data/vendor/spidermonkey/fdlibm/k_sin.c +114 -0
  106. data/vendor/spidermonkey/fdlibm/k_standard.c +785 -0
  107. data/vendor/spidermonkey/fdlibm/k_tan.c +170 -0
  108. data/vendor/spidermonkey/fdlibm/s_asinh.c +101 -0
  109. data/vendor/spidermonkey/fdlibm/s_atan.c +175 -0
  110. data/vendor/spidermonkey/fdlibm/s_cbrt.c +133 -0
  111. data/vendor/spidermonkey/fdlibm/s_ceil.c +120 -0
  112. data/vendor/spidermonkey/fdlibm/s_copysign.c +72 -0
  113. data/vendor/spidermonkey/fdlibm/s_cos.c +118 -0
  114. data/vendor/spidermonkey/fdlibm/s_erf.c +356 -0
  115. data/vendor/spidermonkey/fdlibm/s_expm1.c +267 -0
  116. data/vendor/spidermonkey/fdlibm/s_fabs.c +70 -0
  117. data/vendor/spidermonkey/fdlibm/s_finite.c +71 -0
  118. data/vendor/spidermonkey/fdlibm/s_floor.c +121 -0
  119. data/vendor/spidermonkey/fdlibm/s_frexp.c +99 -0
  120. data/vendor/spidermonkey/fdlibm/s_ilogb.c +85 -0
  121. data/vendor/spidermonkey/fdlibm/s_isnan.c +74 -0
  122. data/vendor/spidermonkey/fdlibm/s_ldexp.c +66 -0
  123. data/vendor/spidermonkey/fdlibm/s_lib_version.c +73 -0
  124. data/vendor/spidermonkey/fdlibm/s_log1p.c +211 -0
  125. data/vendor/spidermonkey/fdlibm/s_logb.c +79 -0
  126. data/vendor/spidermonkey/fdlibm/s_matherr.c +64 -0
  127. data/vendor/spidermonkey/fdlibm/s_modf.c +132 -0
  128. data/vendor/spidermonkey/fdlibm/s_nextafter.c +124 -0
  129. data/vendor/spidermonkey/fdlibm/s_rint.c +131 -0
  130. data/vendor/spidermonkey/fdlibm/s_scalbn.c +107 -0
  131. data/vendor/spidermonkey/fdlibm/s_signgam.c +40 -0
  132. data/vendor/spidermonkey/fdlibm/s_significand.c +68 -0
  133. data/vendor/spidermonkey/fdlibm/s_sin.c +118 -0
  134. data/vendor/spidermonkey/fdlibm/s_tan.c +112 -0
  135. data/vendor/spidermonkey/fdlibm/s_tanh.c +122 -0
  136. data/vendor/spidermonkey/fdlibm/w_acos.c +78 -0
  137. data/vendor/spidermonkey/fdlibm/w_acosh.c +78 -0
  138. data/vendor/spidermonkey/fdlibm/w_asin.c +80 -0
  139. data/vendor/spidermonkey/fdlibm/w_atan2.c +79 -0
  140. data/vendor/spidermonkey/fdlibm/w_atanh.c +81 -0
  141. data/vendor/spidermonkey/fdlibm/w_cosh.c +77 -0
  142. data/vendor/spidermonkey/fdlibm/w_exp.c +88 -0
  143. data/vendor/spidermonkey/fdlibm/w_fmod.c +78 -0
  144. data/vendor/spidermonkey/fdlibm/w_gamma.c +85 -0
  145. data/vendor/spidermonkey/fdlibm/w_gamma_r.c +81 -0
  146. data/vendor/spidermonkey/fdlibm/w_hypot.c +78 -0
  147. data/vendor/spidermonkey/fdlibm/w_j0.c +105 -0
  148. data/vendor/spidermonkey/fdlibm/w_j1.c +106 -0
  149. data/vendor/spidermonkey/fdlibm/w_jn.c +128 -0
  150. data/vendor/spidermonkey/fdlibm/w_lgamma.c +85 -0
  151. data/vendor/spidermonkey/fdlibm/w_lgamma_r.c +81 -0
  152. data/vendor/spidermonkey/fdlibm/w_log.c +78 -0
  153. data/vendor/spidermonkey/fdlibm/w_log10.c +81 -0
  154. data/vendor/spidermonkey/fdlibm/w_pow.c +99 -0
  155. data/vendor/spidermonkey/fdlibm/w_remainder.c +77 -0
  156. data/vendor/spidermonkey/fdlibm/w_scalb.c +95 -0
  157. data/vendor/spidermonkey/fdlibm/w_sinh.c +77 -0
  158. data/vendor/spidermonkey/fdlibm/w_sqrt.c +77 -0
  159. data/vendor/spidermonkey/javascript-trace.d +73 -0
  160. data/vendor/spidermonkey/js.c +3951 -0
  161. data/vendor/spidermonkey/js.mak +4438 -0
  162. data/vendor/spidermonkey/js.mdp +0 -0
  163. data/vendor/spidermonkey/js.msg +307 -0
  164. data/vendor/spidermonkey/js.pkg +2 -0
  165. data/vendor/spidermonkey/js3240.rc +79 -0
  166. data/vendor/spidermonkey/jsOS240.def +654 -0
  167. data/vendor/spidermonkey/jsapi.c +5836 -0
  168. data/vendor/spidermonkey/jsapi.h +2624 -0
  169. data/vendor/spidermonkey/jsarena.c +450 -0
  170. data/vendor/spidermonkey/jsarena.h +318 -0
  171. data/vendor/spidermonkey/jsarray.c +2988 -0
  172. data/vendor/spidermonkey/jsarray.h +124 -0
  173. data/vendor/spidermonkey/jsatom.c +1045 -0
  174. data/vendor/spidermonkey/jsatom.h +442 -0
  175. data/vendor/spidermonkey/jsbit.h +253 -0
  176. data/vendor/spidermonkey/jsbool.c +176 -0
  177. data/vendor/spidermonkey/jsbool.h +73 -0
  178. data/vendor/spidermonkey/jsclist.h +139 -0
  179. data/vendor/spidermonkey/jscntxt.c +1348 -0
  180. data/vendor/spidermonkey/jscntxt.h +1120 -0
  181. data/vendor/spidermonkey/jscompat.h +57 -0
  182. data/vendor/spidermonkey/jsconfig.h +248 -0
  183. data/vendor/spidermonkey/jsconfig.mk +181 -0
  184. data/vendor/spidermonkey/jscpucfg.c +383 -0
  185. data/vendor/spidermonkey/jscpucfg.h +212 -0
  186. data/vendor/spidermonkey/jsdate.c +2398 -0
  187. data/vendor/spidermonkey/jsdate.h +124 -0
  188. data/vendor/spidermonkey/jsdbgapi.c +1799 -0
  189. data/vendor/spidermonkey/jsdbgapi.h +464 -0
  190. data/vendor/spidermonkey/jsdhash.c +868 -0
  191. data/vendor/spidermonkey/jsdhash.h +592 -0
  192. data/vendor/spidermonkey/jsdtoa.c +3167 -0
  193. data/vendor/spidermonkey/jsdtoa.h +130 -0
  194. data/vendor/spidermonkey/jsdtracef.c +317 -0
  195. data/vendor/spidermonkey/jsdtracef.h +77 -0
  196. data/vendor/spidermonkey/jsemit.c +6909 -0
  197. data/vendor/spidermonkey/jsemit.h +741 -0
  198. data/vendor/spidermonkey/jsexn.c +1371 -0
  199. data/vendor/spidermonkey/jsexn.h +96 -0
  200. data/vendor/spidermonkey/jsfile.c +2736 -0
  201. data/vendor/spidermonkey/jsfile.h +56 -0
  202. data/vendor/spidermonkey/jsfile.msg +90 -0
  203. data/vendor/spidermonkey/jsfun.c +2634 -0
  204. data/vendor/spidermonkey/jsfun.h +254 -0
  205. data/vendor/spidermonkey/jsgc.c +3554 -0
  206. data/vendor/spidermonkey/jsgc.h +403 -0
  207. data/vendor/spidermonkey/jshash.c +476 -0
  208. data/vendor/spidermonkey/jshash.h +151 -0
  209. data/vendor/spidermonkey/jsify.pl +485 -0
  210. data/vendor/spidermonkey/jsinterp.c +6981 -0
  211. data/vendor/spidermonkey/jsinterp.h +521 -0
  212. data/vendor/spidermonkey/jsinvoke.c +43 -0
  213. data/vendor/spidermonkey/jsiter.c +1067 -0
  214. data/vendor/spidermonkey/jsiter.h +122 -0
  215. data/vendor/spidermonkey/jskeyword.tbl +124 -0
  216. data/vendor/spidermonkey/jskwgen.c +460 -0
  217. data/vendor/spidermonkey/jslibmath.h +266 -0
  218. data/vendor/spidermonkey/jslock.c +1309 -0
  219. data/vendor/spidermonkey/jslock.h +313 -0
  220. data/vendor/spidermonkey/jslocko.asm +60 -0
  221. data/vendor/spidermonkey/jslog2.c +94 -0
  222. data/vendor/spidermonkey/jslong.c +264 -0
  223. data/vendor/spidermonkey/jslong.h +412 -0
  224. data/vendor/spidermonkey/jsmath.c +568 -0
  225. data/vendor/spidermonkey/jsmath.h +57 -0
  226. data/vendor/spidermonkey/jsnum.c +1228 -0
  227. data/vendor/spidermonkey/jsnum.h +283 -0
  228. data/vendor/spidermonkey/jsobj.c +5266 -0
  229. data/vendor/spidermonkey/jsobj.h +709 -0
  230. data/vendor/spidermonkey/jsopcode.c +5245 -0
  231. data/vendor/spidermonkey/jsopcode.h +394 -0
  232. data/vendor/spidermonkey/jsopcode.tbl +523 -0
  233. data/vendor/spidermonkey/jsotypes.h +202 -0
  234. data/vendor/spidermonkey/jsparse.c +6680 -0
  235. data/vendor/spidermonkey/jsparse.h +511 -0
  236. data/vendor/spidermonkey/jsprf.c +1262 -0
  237. data/vendor/spidermonkey/jsprf.h +150 -0
  238. data/vendor/spidermonkey/jsproto.tbl +128 -0
  239. data/vendor/spidermonkey/jsprvtd.h +267 -0
  240. data/vendor/spidermonkey/jspubtd.h +744 -0
  241. data/vendor/spidermonkey/jsregexp.c +4352 -0
  242. data/vendor/spidermonkey/jsregexp.h +183 -0
  243. data/vendor/spidermonkey/jsreops.tbl +145 -0
  244. data/vendor/spidermonkey/jsscan.c +2003 -0
  245. data/vendor/spidermonkey/jsscan.h +387 -0
  246. data/vendor/spidermonkey/jsscope.c +1948 -0
  247. data/vendor/spidermonkey/jsscope.h +418 -0
  248. data/vendor/spidermonkey/jsscript.c +1832 -0
  249. data/vendor/spidermonkey/jsscript.h +287 -0
  250. data/vendor/spidermonkey/jsshell.msg +50 -0
  251. data/vendor/spidermonkey/jsstddef.h +83 -0
  252. data/vendor/spidermonkey/jsstr.c +5004 -0
  253. data/vendor/spidermonkey/jsstr.h +641 -0
  254. data/vendor/spidermonkey/jstypes.h +475 -0
  255. data/vendor/spidermonkey/jsutil.c +345 -0
  256. data/vendor/spidermonkey/jsutil.h +157 -0
  257. data/vendor/spidermonkey/jsxdrapi.c +800 -0
  258. data/vendor/spidermonkey/jsxdrapi.h +218 -0
  259. data/vendor/spidermonkey/jsxml.c +8471 -0
  260. data/vendor/spidermonkey/jsxml.h +349 -0
  261. data/vendor/spidermonkey/lock_SunOS.s +119 -0
  262. data/vendor/spidermonkey/perfect.js +39 -0
  263. data/vendor/spidermonkey/plify_jsdhash.sed +36 -0
  264. data/vendor/spidermonkey/prmjtime.c +846 -0
  265. data/vendor/spidermonkey/prmjtime.h +103 -0
  266. data/vendor/spidermonkey/resource.h +15 -0
  267. data/vendor/spidermonkey/rules.mk +197 -0
  268. data/vendor/spidermonkey/win32.order +384 -0
  269. metadata +4 -3
@@ -0,0 +1,345 @@
1
+ /* -*- Mode: C; tab-width: 4; indent-tabs-mode: nil; c-basic-offset: 2 -*-
2
+ *
3
+ * ***** BEGIN LICENSE BLOCK *****
4
+ * Version: MPL 1.1/GPL 2.0/LGPL 2.1
5
+ *
6
+ * The contents of this file are subject to the Mozilla Public License Version
7
+ * 1.1 (the "License"); you may not use this file except in compliance with
8
+ * the License. You may obtain a copy of the License at
9
+ * http://www.mozilla.org/MPL/
10
+ *
11
+ * Software distributed under the License is distributed on an "AS IS" basis,
12
+ * WITHOUT WARRANTY OF ANY KIND, either express or implied. See the License
13
+ * for the specific language governing rights and limitations under the
14
+ * License.
15
+ *
16
+ * The Original Code is Mozilla Communicator client code, released
17
+ * March 31, 1998.
18
+ *
19
+ * The Initial Developer of the Original Code is
20
+ * Netscape Communications Corporation.
21
+ * Portions created by the Initial Developer are Copyright (C) 1998
22
+ * the Initial Developer. All Rights Reserved.
23
+ *
24
+ * Contributor(s):
25
+ * IBM Corp.
26
+ *
27
+ * Alternatively, the contents of this file may be used under the terms of
28
+ * either of the GNU General Public License Version 2 or later (the "GPL"),
29
+ * or the GNU Lesser General Public License Version 2.1 or later (the "LGPL"),
30
+ * in which case the provisions of the GPL or the LGPL are applicable instead
31
+ * of those above. If you wish to allow use of your version of this file only
32
+ * under the terms of either the GPL or the LGPL, and not to allow others to
33
+ * use your version of this file under the terms of the MPL, indicate your
34
+ * decision by deleting the provisions above and replace them with the notice
35
+ * and other provisions required by the GPL or the LGPL. If you do not delete
36
+ * the provisions above, a recipient may use your version of this file under
37
+ * the terms of any one of the MPL, the GPL or the LGPL.
38
+ *
39
+ * ***** END LICENSE BLOCK ***** */
40
+
41
+ /*
42
+ * PR assertion checker.
43
+ */
44
+ #include "jsstddef.h"
45
+ #include <stdio.h>
46
+ #include <stdlib.h>
47
+ #include "jstypes.h"
48
+ #include "jsutil.h"
49
+
50
+ #ifdef WIN32
51
+ # include <windows.h>
52
+ #endif
53
+
54
+ JS_PUBLIC_API(void) JS_Assert(const char *s, const char *file, JSIntn ln)
55
+ {
56
+ fprintf(stderr, "Assertion failure: %s, at %s:%d\n", s, file, ln);
57
+ #if defined(WIN32)
58
+ DebugBreak();
59
+ exit(3);
60
+ #elif defined(XP_OS2) || (defined(__GNUC__) && defined(__i386))
61
+ asm("int $3");
62
+ #endif
63
+ abort();
64
+ }
65
+
66
+ #ifdef JS_BASIC_STATS
67
+
68
+ #include <math.h>
69
+ #include <string.h>
70
+ #include "jscompat.h"
71
+ #include "jsbit.h"
72
+
73
+ /*
74
+ * Histogram bins count occurrences of values <= the bin label, as follows:
75
+ *
76
+ * linear: 0, 1, 2, 3, 4, 5, 6, 7, 8, 9, 10 or more
77
+ * 2**x: 0, 1, 2, 4, 8, 16, 32, 64, 128, 256, 512 or more
78
+ * 10**x: 0, 1, 10, 100, 1e3, 1e4, 1e5, 1e6, 1e7, 1e8, 1e9 or more
79
+ *
80
+ * We wish to count occurrences of 0 and 1 values separately, always.
81
+ */
82
+ static uint32
83
+ BinToVal(uintN logscale, uintN bin)
84
+ {
85
+ JS_ASSERT(bin <= 10);
86
+ if (bin <= 1 || logscale == 0)
87
+ return bin;
88
+ --bin;
89
+ if (logscale == 2)
90
+ return JS_BIT(bin);
91
+ JS_ASSERT(logscale == 10);
92
+ return (uint32) pow(10, (double) bin);
93
+ }
94
+
95
+ static uintN
96
+ ValToBin(uintN logscale, uint32 val)
97
+ {
98
+ uintN bin;
99
+
100
+ if (val <= 1)
101
+ return val;
102
+ bin = (logscale == 10)
103
+ ? (uintN) ceil(log10((double) val))
104
+ : (logscale == 2)
105
+ ? (uintN) JS_CeilingLog2(val)
106
+ : val;
107
+ return JS_MIN(bin, 10);
108
+ }
109
+
110
+ void
111
+ JS_BasicStatsAccum(JSBasicStats *bs, uint32 val)
112
+ {
113
+ uintN oldscale, newscale, bin;
114
+ double mean;
115
+
116
+ ++bs->num;
117
+ if (bs->max < val)
118
+ bs->max = val;
119
+ bs->sum += val;
120
+ bs->sqsum += (double)val * val;
121
+
122
+ oldscale = bs->logscale;
123
+ if (oldscale != 10) {
124
+ mean = bs->sum / bs->num;
125
+ if (bs->max > 16 && mean > 8) {
126
+ newscale = (bs->max > 1e6 && mean > 1000) ? 10 : 2;
127
+ if (newscale != oldscale) {
128
+ uint32 newhist[11], newbin;
129
+
130
+ memset(newhist, 0, sizeof newhist);
131
+ for (bin = 0; bin <= 10; bin++) {
132
+ newbin = ValToBin(newscale, BinToVal(oldscale, bin));
133
+ newhist[newbin] += bs->hist[bin];
134
+ }
135
+ memcpy(bs->hist, newhist, sizeof bs->hist);
136
+ bs->logscale = newscale;
137
+ }
138
+ }
139
+ }
140
+
141
+ bin = ValToBin(bs->logscale, val);
142
+ ++bs->hist[bin];
143
+ }
144
+
145
+ double
146
+ JS_MeanAndStdDev(uint32 num, double sum, double sqsum, double *sigma)
147
+ {
148
+ double var;
149
+
150
+ if (num == 0 || sum == 0) {
151
+ *sigma = 0;
152
+ return 0;
153
+ }
154
+
155
+ var = num * sqsum - sum * sum;
156
+ if (var < 0 || num == 1)
157
+ var = 0;
158
+ else
159
+ var /= (double)num * (num - 1);
160
+
161
+ /* Windows says sqrt(0.0) is "-1.#J" (?!) so we must test. */
162
+ *sigma = (var != 0) ? sqrt(var) : 0;
163
+ return sum / num;
164
+ }
165
+
166
+ void
167
+ JS_DumpBasicStats(JSBasicStats *bs, const char *title, FILE *fp)
168
+ {
169
+ double mean, sigma;
170
+
171
+ mean = JS_MeanAndStdDevBS(bs, &sigma);
172
+ fprintf(fp, "\nmean %s %g, std. deviation %g, max %lu\n",
173
+ title, mean, sigma, (unsigned long) bs->max);
174
+ JS_DumpHistogram(bs, fp);
175
+ }
176
+
177
+ void
178
+ JS_DumpHistogram(JSBasicStats *bs, FILE *fp)
179
+ {
180
+ uintN bin;
181
+ uint32 cnt, max, prev, val, i;
182
+ double sum, mean;
183
+
184
+ for (bin = 0, max = 0, sum = 0; bin <= 10; bin++) {
185
+ cnt = bs->hist[bin];
186
+ if (max < cnt)
187
+ max = cnt;
188
+ sum += cnt;
189
+ }
190
+ mean = sum / cnt;
191
+ for (bin = 0, prev = 0; bin <= 10; bin++, prev = val) {
192
+ val = BinToVal(bs->logscale, bin);
193
+ cnt = bs->hist[bin];
194
+ if (prev + 1 >= val)
195
+ fprintf(fp, " [%6u]", val);
196
+ else
197
+ fprintf(fp, "[%6u, %6u]", prev + 1, val);
198
+ fprintf(fp, "%s %8u ", (bin == 10) ? "+" : ":", cnt);
199
+ if (cnt != 0) {
200
+ if (max > 1e6 && mean > 1e3)
201
+ cnt = (uint32) ceil(log10((double) cnt));
202
+ else if (max > 16 && mean > 8)
203
+ cnt = JS_CeilingLog2(cnt);
204
+ for (i = 0; i < cnt; i++)
205
+ putc('*', fp);
206
+ }
207
+ putc('\n', fp);
208
+ }
209
+ }
210
+
211
+ #endif /* JS_BASIC_STATS */
212
+
213
+ #if defined DEBUG_notme && defined XP_UNIX
214
+
215
+ #define __USE_GNU 1
216
+ #include <dlfcn.h>
217
+ #include <string.h>
218
+ #include "jshash.h"
219
+ #include "jsprf.h"
220
+
221
+ JSCallsite js_calltree_root = {0, NULL, NULL, 0, NULL, NULL, NULL, NULL};
222
+
223
+ static JSCallsite *
224
+ CallTree(void **bp)
225
+ {
226
+ void **bpup, **bpdown, *pc;
227
+ JSCallsite *parent, *site, **csp;
228
+ Dl_info info;
229
+ int ok, offset;
230
+ const char *symbol;
231
+ char *method;
232
+
233
+ /* Reverse the stack frame list to avoid recursion. */
234
+ bpup = NULL;
235
+ for (;;) {
236
+ bpdown = (void**) bp[0];
237
+ bp[0] = (void*) bpup;
238
+ if ((void**) bpdown[0] < bpdown)
239
+ break;
240
+ bpup = bp;
241
+ bp = bpdown;
242
+ }
243
+
244
+ /* Reverse the stack again, finding and building a path in the tree. */
245
+ parent = &js_calltree_root;
246
+ do {
247
+ bpup = (void**) bp[0];
248
+ bp[0] = (void*) bpdown;
249
+ pc = bp[1];
250
+
251
+ csp = &parent->kids;
252
+ while ((site = *csp) != NULL) {
253
+ if (site->pc == pc) {
254
+ /* Put the most recently used site at the front of siblings. */
255
+ *csp = site->siblings;
256
+ site->siblings = parent->kids;
257
+ parent->kids = site;
258
+
259
+ /* Site already built -- go up the stack. */
260
+ goto upward;
261
+ }
262
+ csp = &site->siblings;
263
+ }
264
+
265
+ /* Check for recursion: see if pc is on our ancestor line. */
266
+ for (site = parent; site; site = site->parent) {
267
+ if (site->pc == pc)
268
+ goto upward;
269
+ }
270
+
271
+ /*
272
+ * Not in tree at all: let's find our symbolic callsite info.
273
+ * XXX static syms are masked by nearest lower global
274
+ */
275
+ info.dli_fname = info.dli_sname = NULL;
276
+ ok = dladdr(pc, &info);
277
+ if (ok < 0) {
278
+ fprintf(stderr, "dladdr failed!\n");
279
+ return NULL;
280
+ }
281
+
282
+ /* XXXbe sub 0x08040000? or something, see dbaron bug with tenthumbs comment */
283
+ symbol = info.dli_sname;
284
+ offset = (char*)pc - (char*)info.dli_fbase;
285
+ method = symbol
286
+ ? strdup(symbol)
287
+ : JS_smprintf("%s+%X",
288
+ info.dli_fname ? info.dli_fname : "main",
289
+ offset);
290
+ if (!method)
291
+ return NULL;
292
+
293
+ /* Create a new callsite record. */
294
+ site = (JSCallsite *) malloc(sizeof(JSCallsite));
295
+ if (!site)
296
+ return NULL;
297
+
298
+ /* Insert the new site into the tree. */
299
+ site->pc = pc;
300
+ site->name = method;
301
+ site->library = info.dli_fname;
302
+ site->offset = offset;
303
+ site->parent = parent;
304
+ site->siblings = parent->kids;
305
+ parent->kids = site;
306
+ site->kids = NULL;
307
+
308
+ upward:
309
+ parent = site;
310
+ bpdown = bp;
311
+ bp = bpup;
312
+ } while (bp);
313
+
314
+ return site;
315
+ }
316
+
317
+ JSCallsite *
318
+ JS_Backtrace(int skip)
319
+ {
320
+ void **bp, **bpdown;
321
+
322
+ /* Stack walking code adapted from Kipp's "leaky". */
323
+ #if defined(__i386)
324
+ __asm__( "movl %%ebp, %0" : "=g"(bp));
325
+ #elif defined(__x86_64__)
326
+ __asm__( "movq %%rbp, %0" : "=g"(bp));
327
+ #else
328
+ /*
329
+ * It would be nice if this worked uniformly, but at least on i386 and
330
+ * x86_64, it stopped working with gcc 4.1, because it points to the
331
+ * end of the saved registers instead of the start.
332
+ */
333
+ bp = (void**) __builtin_frame_address(0);
334
+ #endif
335
+ while (--skip >= 0) {
336
+ bpdown = (void**) *bp++;
337
+ if (bpdown < bp)
338
+ break;
339
+ bp = bpdown;
340
+ }
341
+
342
+ return CallTree(bp);
343
+ }
344
+
345
+ #endif /* DEBUG_notme && XP_UNIX */
@@ -0,0 +1,157 @@
1
+ /* -*- Mode: C; tab-width: 8; indent-tabs-mode: nil; c-basic-offset: 4 -*-
2
+ *
3
+ * ***** BEGIN LICENSE BLOCK *****
4
+ * Version: MPL 1.1/GPL 2.0/LGPL 2.1
5
+ *
6
+ * The contents of this file are subject to the Mozilla Public License Version
7
+ * 1.1 (the "License"); you may not use this file except in compliance with
8
+ * the License. You may obtain a copy of the License at
9
+ * http://www.mozilla.org/MPL/
10
+ *
11
+ * Software distributed under the License is distributed on an "AS IS" basis,
12
+ * WITHOUT WARRANTY OF ANY KIND, either express or implied. See the License
13
+ * for the specific language governing rights and limitations under the
14
+ * License.
15
+ *
16
+ * The Original Code is Mozilla Communicator client code, released
17
+ * March 31, 1998.
18
+ *
19
+ * The Initial Developer of the Original Code is
20
+ * Netscape Communications Corporation.
21
+ * Portions created by the Initial Developer are Copyright (C) 1998
22
+ * the Initial Developer. All Rights Reserved.
23
+ *
24
+ * Contributor(s):
25
+ *
26
+ * Alternatively, the contents of this file may be used under the terms of
27
+ * either of the GNU General Public License Version 2 or later (the "GPL"),
28
+ * or the GNU Lesser General Public License Version 2.1 or later (the "LGPL"),
29
+ * in which case the provisions of the GPL or the LGPL are applicable instead
30
+ * of those above. If you wish to allow use of your version of this file only
31
+ * under the terms of either the GPL or the LGPL, and not to allow others to
32
+ * use your version of this file under the terms of the MPL, indicate your
33
+ * decision by deleting the provisions above and replace them with the notice
34
+ * and other provisions required by the GPL or the LGPL. If you do not delete
35
+ * the provisions above, a recipient may use your version of this file under
36
+ * the terms of any one of the MPL, the GPL or the LGPL.
37
+ *
38
+ * ***** END LICENSE BLOCK ***** */
39
+
40
+ /*
41
+ * PR assertion checker.
42
+ */
43
+
44
+ #ifndef jsutil_h___
45
+ #define jsutil_h___
46
+
47
+ JS_BEGIN_EXTERN_C
48
+
49
+ #ifdef DEBUG
50
+
51
+ extern JS_PUBLIC_API(void)
52
+ JS_Assert(const char *s, const char *file, JSIntn ln);
53
+
54
+ #define JS_ASSERT(expr) \
55
+ ((expr) ? (void)0 : JS_Assert(#expr, __FILE__, __LINE__))
56
+
57
+ #define JS_ASSERT_IF(cond, expr) \
58
+ ((!(cond) || (expr)) ? (void)0 : JS_Assert(#expr, __FILE__, __LINE__))
59
+
60
+ #define JS_NOT_REACHED(reason) \
61
+ JS_Assert(reason, __FILE__, __LINE__)
62
+
63
+ #else
64
+
65
+ #define JS_ASSERT(expr) ((void) 0)
66
+ #define JS_ASSERT_IF(cond,expr) ((void) 0)
67
+ #define JS_NOT_REACHED(reason)
68
+
69
+ #endif /* defined(DEBUG) */
70
+
71
+ /*
72
+ * Compile-time assert. "condition" must be a constant expression.
73
+ * The macro can be used only in places where an "extern" declaration is
74
+ * allowed.
75
+ */
76
+ #define JS_STATIC_ASSERT(condition) \
77
+ extern void js_static_assert(int arg[(condition) ? 1 : -1])
78
+
79
+ /*
80
+ * Abort the process in a non-graceful manner. This will cause a core file,
81
+ * call to the debugger or other moral equivalent as well as causing the
82
+ * entire process to stop.
83
+ */
84
+ extern JS_PUBLIC_API(void) JS_Abort(void);
85
+
86
+ #if 0
87
+ # define JS_BASIC_STATS 1
88
+ # define JS_SCOPE_DEPTH_METER 1
89
+ #endif
90
+
91
+ #if defined DEBUG && !defined JS_BASIC_STATS
92
+ # define JS_BASIC_STATS 1
93
+ #endif
94
+
95
+ #ifdef JS_BASIC_STATS
96
+
97
+ #include <stdio.h>
98
+
99
+ typedef struct JSBasicStats {
100
+ uint32 num;
101
+ uint32 max;
102
+ double sum;
103
+ double sqsum;
104
+ uint32 logscale; /* logarithmic scale: 0 (linear), 2, 10 */
105
+ uint32 hist[11];
106
+ } JSBasicStats;
107
+
108
+ #define JS_INIT_STATIC_BASIC_STATS {0,0,0,0,0,{0,0,0,0,0,0,0,0,0,0,0}}
109
+ #define JS_BASIC_STATS_INIT(bs) memset((bs), 0, sizeof(JSBasicStats))
110
+
111
+ #define JS_BASIC_STATS_ACCUM(bs,val) \
112
+ JS_BasicStatsAccum(bs, val)
113
+
114
+ #define JS_MeanAndStdDevBS(bs,sigma) \
115
+ JS_MeanAndStdDev((bs)->num, (bs)->sum, (bs)->sqsum, sigma)
116
+
117
+ extern void
118
+ JS_BasicStatsAccum(JSBasicStats *bs, uint32 val);
119
+
120
+ extern double
121
+ JS_MeanAndStdDev(uint32 num, double sum, double sqsum, double *sigma);
122
+
123
+ extern void
124
+ JS_DumpBasicStats(JSBasicStats *bs, const char *title, FILE *fp);
125
+
126
+ extern void
127
+ JS_DumpHistogram(JSBasicStats *bs, FILE *fp);
128
+
129
+ #else
130
+
131
+ #define JS_BASIC_STATS_ACCUM(bs,val) /* nothing */
132
+
133
+ #endif /* JS_BASIC_STATS */
134
+
135
+
136
+ #ifdef XP_UNIX
137
+
138
+ typedef struct JSCallsite JSCallsite;
139
+
140
+ struct JSCallsite {
141
+ uint32 pc;
142
+ char *name;
143
+ const char *library;
144
+ int offset;
145
+ JSCallsite *parent;
146
+ JSCallsite *siblings;
147
+ JSCallsite *kids;
148
+ void *handy;
149
+ };
150
+
151
+ extern JSCallsite *JS_Backtrace(int skip);
152
+
153
+ #endif
154
+
155
+ JS_END_EXTERN_C
156
+
157
+ #endif /* jsutil_h___ */