Skip to content

HTTPS clone URL

Subversion checkout URL

You can clone with HTTPS or Subversion.

Download ZIP
Browse files

copyrights

  • Loading branch information...
commit c88bb1492b978cc3fc4b5f6bc713c90aee4d42e9 1 parent 198764b
Jake Donham authored
Showing with 416 additions and 193 deletions.
  1. +1 −1  LICENSE
  2. +1 −0  src/dom/dom.ml
  3. +1 −0  src/dom/dom.mli
  4. +1 −0  src/gmaps/gmaps.ml
  5. +1 −0  src/gmaps/gmaps.mli
  6. +1 −0  src/javascript/javascript.ml
  7. +1 −0  src/javascript/javascript.mli
  8. +1 −0  src/jscomp/emitjs.ml
  9. +1 −0  src/jscomp/emitjs.mli
  10. +1 −0  src/jscomp/jscompile.ml
  11. +1 −0  src/jscomp/jscompile.mli
  12. +1 −0  src/jscomp/jserrors.ml
  13. +1 −0  src/jscomp/jserrors.mli
  14. +1 −0  src/jscomp/jsgen.ml
  15. +1 −0  src/jscomp/jsgen.mli
  16. +1 −0  src/jscomp/jslibrarian.ml
  17. +1 −0  src/jscomp/jslibrarian.mli
  18. +1 −0  src/jscomp/jslink.ml
  19. +1 −0  src/jscomp/jslink.mli
  20. +1 −0  src/jscomp/jsmain.ml
  21. +1 −0  src/jscomp/jsmain.mli
  22. +1 −0  src/jscomp/jsmain_args.ml
  23. +1 −0  src/jscomp/jsmain_args.mli
  24. +1 −0  src/jscomp/jspackager.ml
  25. +1 −0  src/jscomp/jspackager.mli
  26. +1 −0  src/jscomp/ocamljs_config.ml
  27. +1 −0  src/jscomp/patches/3.11.0/translclass.ml
  28. +6 −5 src/jscomp/patches/3.11.0/translclass.ml.patch
  29. +1 −0  src/jscomp/patches/3.11.0/translcore.ml
  30. +5 −4 src/jscomp/patches/3.11.0/translcore.ml.patch
  31. +1 −0  src/jscomp/patches/3.11.0/translobj.ml
  32. +5 −4 src/jscomp/patches/3.11.0/translobj.ml.patch
  33. +12 −0 src/jscomp/patches/3.11.0/typecore.ml
  34. +19 −3 src/jscomp/patches/3.11.0/typecore.ml.patch
  35. +1 −0  src/jscomp/patches/3.11.1/translclass.ml
  36. +6 −5 src/jscomp/patches/3.11.1/translclass.ml.patch
  37. +1 −0  src/jscomp/patches/3.11.1/translcore.ml
  38. +5 −4 src/jscomp/patches/3.11.1/translcore.ml.patch
  39. +1 −0  src/jscomp/patches/3.11.1/translobj.ml
  40. +5 −4 src/jscomp/patches/3.11.1/translobj.ml.patch
  41. +12 −0 src/jscomp/patches/3.11.1/typecore.ml
  42. +19 −3 src/jscomp/patches/3.11.1/typecore.ml.patch
  43. +1 −0  src/jscomp/patches/3.11.2/translclass.ml
  44. +6 −5 src/jscomp/patches/3.11.2/translclass.ml.patch
  45. +1 −0  src/jscomp/patches/3.11.2/translcore.ml
  46. +5 −4 src/jscomp/patches/3.11.2/translcore.ml.patch
  47. +1 −0  src/jscomp/patches/3.11.2/translobj.ml
  48. +5 −4 src/jscomp/patches/3.11.2/translobj.ml.patch
  49. +12 −0 src/jscomp/patches/3.11.2/typecore.ml
  50. +19 −3 src/jscomp/patches/3.11.2/typecore.ml.patch
  51. +1 −0  src/jscomp/patches/3.12.0/translclass.ml
  52. +6 −5 src/jscomp/patches/3.12.0/translclass.ml.patch
  53. +1 −0  src/jscomp/patches/3.12.0/translcore.ml
  54. +5 −4 src/jscomp/patches/3.12.0/translcore.ml.patch
  55. +1 −0  src/jscomp/patches/3.12.0/translobj.ml
  56. +5 −4 src/jscomp/patches/3.12.0/translobj.ml.patch
  57. +12 −0 src/jscomp/patches/3.12.0/typecore.ml
  58. +19 −3 src/jscomp/patches/3.12.0/typecore.ml.patch
  59. +1 −0  src/jslib/jslib_ast.incl
  60. +1 −0  src/jslib/jslib_ast.ml
  61. +1 −0  src/jslib/jslib_ast.mli
  62. +1 −0  src/jslib/jslib_lexer.ml
  63. +1 −0  src/jslib/jslib_lexer.mli
  64. +1 −0  src/jslib/jslib_parse.ml
  65. +1 −0  src/jslib/jslib_parse.mli
  66. +1 −0  src/jslib/jslib_pp.ml
  67. +1 −0  src/jslib/jslib_pp.mli
  68. +1 −0  src/jslib/lambda_meta_generator.ml
  69. +1 −0  src/jslib/syntax_inline.ml
  70. +1 −0  src/jslib/syntax_lambda.ml
  71. +1 −0  src/jslib/syntax_quotations.ml
  72. +1 −0  src/lwt-dom/lwt_dom.ml
  73. +1 −0  src/lwt-dom/lwt_dom.mli
  74. +1 −0  src/mozilla/mozilla.ml
  75. +1 −0  src/mozilla/mozilla.mli
  76. +1 −0  src/ocamljs/ocamljs.ml
  77. +1 −0  src/ocamljs/ocamljs.mli
  78. +1 −0  src/stdlib/patches/3.11.0/buffer.ml
  79. +5 −4 src/stdlib/patches/3.11.0/buffer.ml.patch
  80. +1 −0  src/stdlib/patches/3.11.0/camlinternalMod.ml
  81. +6 −5 src/stdlib/patches/3.11.0/camlinternalMod.ml.patch
  82. +1 −0  src/stdlib/patches/3.11.0/camlinternalOO.ml
  83. +15 −14 src/stdlib/patches/3.11.0/camlinternalOO.ml.patch
  84. +1 −0  src/stdlib/patches/3.11.0/pervasives.ml
  85. +5 −4 src/stdlib/patches/3.11.0/pervasives.ml.patch
  86. +1 −0  src/stdlib/patches/3.11.0/printf.ml
  87. +6 −5 src/stdlib/patches/3.11.0/printf.ml.patch
  88. +1 −0  src/stdlib/patches/3.11.1/buffer.ml
  89. +5 −4 src/stdlib/patches/3.11.1/buffer.ml.patch
  90. +1 −0  src/stdlib/patches/3.11.1/camlinternalMod.ml
  91. +6 −5 src/stdlib/patches/3.11.1/camlinternalMod.ml.patch
  92. +1 −0  src/stdlib/patches/3.11.1/camlinternalOO.ml
  93. +15 −14 src/stdlib/patches/3.11.1/camlinternalOO.ml.patch
  94. +1 −0  src/stdlib/patches/3.11.1/pervasives.ml
  95. +5 −4 src/stdlib/patches/3.11.1/pervasives.ml.patch
  96. +1 −0  src/stdlib/patches/3.11.1/printf.ml
  97. +6 −5 src/stdlib/patches/3.11.1/printf.ml.patch
  98. +1 −0  src/stdlib/patches/3.11.2/buffer.ml
  99. +5 −4 src/stdlib/patches/3.11.2/buffer.ml.patch
  100. +1 −0  src/stdlib/patches/3.11.2/camlinternalMod.ml
  101. +6 −5 src/stdlib/patches/3.11.2/camlinternalMod.ml.patch
  102. +1 −0  src/stdlib/patches/3.11.2/camlinternalOO.ml
  103. +15 −14 src/stdlib/patches/3.11.2/camlinternalOO.ml.patch
  104. +1 −0  src/stdlib/patches/3.11.2/pervasives.ml
  105. +5 −4 src/stdlib/patches/3.11.2/pervasives.ml.patch
  106. +1 −0  src/stdlib/patches/3.11.2/printf.ml
  107. +6 −5 src/stdlib/patches/3.11.2/printf.ml.patch
  108. +1 −0  src/stdlib/patches/3.12.0/buffer.ml
  109. +5 −4 src/stdlib/patches/3.12.0/buffer.ml.patch
  110. +1 −0  src/stdlib/patches/3.12.0/camlinternalMod.ml
  111. +6 −5 src/stdlib/patches/3.12.0/camlinternalMod.ml.patch
  112. +1 −0  src/stdlib/patches/3.12.0/camlinternalOO.ml
  113. +15 −14 src/stdlib/patches/3.12.0/camlinternalOO.ml.patch
  114. +1 −0  src/stdlib/patches/3.12.0/pervasives.ml
  115. +5 −4 src/stdlib/patches/3.12.0/pervasives.ml.patch
  116. +1 −0  src/stdlib/patches/3.12.0/printf.ml
  117. +6 −5 src/stdlib/patches/3.12.0/printf.ml.patch
  118. +1 −0  src/stdlib/primitives.js
  119. +1 −0  src/stdlib/random.ml
  120. +1 −0  src/stdlib/support.js
View
2  LICENSE
@@ -2,7 +2,7 @@ In the following, "the Library" refers to all files marked "Copyright
(C) 2007-9 Skydeck, Inc" in the following directories and their
sub-directories:
- src/ (excluding src/jscomp, src/jquery, src/ounit)
+ src/ (excluding src/jscomp, src/jquery)
and "the Compiler" refers to all files marked "Copyright (C) 2007-9
Skydeck, Inc" in the following directories and their sub-directories:
View
1  src/dom/dom.ml
@@ -1,6 +1,7 @@
(*
* This file is part of ocamljs, OCaml to Javascript compiler
* Copyright (C) 2007-9 Skydeck, Inc
+ * Copyright (C) 2010 Jake Donham
*
* This library is free software; you can redistribute it and/or
* modify it under the terms of the GNU Library General Public
View
1  src/dom/dom.mli
@@ -1,6 +1,7 @@
(*
* This file is part of ocamljs, OCaml to Javascript compiler
* Copyright (C) 2007-9 Skydeck, Inc
+ * Copyright (C) 2010 Jake Donham
*
* This library is free software; you can redistribute it and/or
* modify it under the terms of the GNU Library General Public
View
1  src/gmaps/gmaps.ml
@@ -1,6 +1,7 @@
(*
* This file is part of ocamljs, OCaml to Javascript compiler
* Copyright (C) 2009 Skydeck, Inc
+ * Copyright (C) 2010 Jake Donham
*
* This library is free software; you can redistribute it and/or
* modify it under the terms of the GNU Library General Public
View
1  src/gmaps/gmaps.mli
@@ -1,6 +1,7 @@
(*
* This file is part of ocamljs, OCaml to Javascript compiler
* Copyright (C) 2009 Skydeck, Inc
+ * Copyright (C) 2010 Jake Donham
*
* This library is free software; you can redistribute it and/or
* modify it under the terms of the GNU Library General Public
View
1  src/javascript/javascript.ml
@@ -1,6 +1,7 @@
(*
* This file is part of ocamljs, OCaml to Javascript compiler
* Copyright (C) 2007-9 Skydeck, Inc
+ * Copyright (C) 2010 Jake Donham
*
* This library is free software; you can redistribute it and/or
* modify it under the terms of the GNU Library General Public
View
1  src/javascript/javascript.mli
@@ -1,6 +1,7 @@
(*
* This file is part of ocamljs, OCaml to Javascript compiler
* Copyright (C) 2007-9 Skydeck, Inc
+ * Copyright (C) 2010 Jake Donham
*
* This library is free software; you can redistribute it and/or
* modify it under the terms of the GNU Library General Public
View
1  src/jscomp/emitjs.ml
@@ -1,6 +1,7 @@
(*
* This file is part of ocamljs, OCaml to Javascript compiler
* Copyright (C) 2007-9 Skydeck, Inc
+ * Copyright (C) 2010 Jake Donham
* Original file (bytecomp/emitcode.ml in the Objective Caml source
* distribution) is Copyright (C) INRIA.
*
View
1  src/jscomp/emitjs.mli
@@ -1,6 +1,7 @@
(*
* This file is part of ocamljs, OCaml to Javascript compiler
* Copyright (C) 2007-9 Skydeck, Inc
+ * Copyright (C) 2010 Jake Donham
* Original file (bytecomp/emitcode.mli in the Objective Caml source
* distribution) is Copyright (C) INRIA.
*
View
1  src/jscomp/jscompile.ml
@@ -1,6 +1,7 @@
(*
* This file is part of ocamljs, OCaml to Javascript compiler
* Copyright (C) 2007-9 Skydeck, Inc
+ * Copyright (C) 2010 Jake Donham
* Original file (driver/compile.ml in the Objective Caml source
* distribution) is Copyright (C) INRIA.
*
View
1  src/jscomp/jscompile.mli
@@ -1,6 +1,7 @@
(*
* This file is part of ocamljs, OCaml to Javascript compiler
* Copyright (C) 2007-9 Skydeck, Inc
+ * Copyright (C) 2010 Jake Donham
* Original file (driver/compile.mli in the Objective Caml source
* distribution) is Copyright (C) INRIA.
*
View
1  src/jscomp/jserrors.ml
@@ -1,6 +1,7 @@
(*
* This file is part of ocamljs, OCaml to Javascript compiler
* Copyright (C) 2007-9 Skydeck, Inc
+ * Copyright (C) 2010 Jake Donham
* Original file (driver/errors.ml in the Objective Caml source
* distribution) is Copyright (C) INRIA.
*
View
1  src/jscomp/jserrors.mli
@@ -1,6 +1,7 @@
(*
* This file is part of ocamljs, OCaml to Javascript compiler
* Copyright (C) 2007-9 Skydeck, Inc
+ * Copyright (C) 2010 Jake Donham
* Original file (driver/errors.mli in the Objective Caml source
* distribution) is Copyright (C) INRIA.
*
View
1  src/jscomp/jsgen.ml
@@ -1,6 +1,7 @@
(*
* This file is part of ocamljs, OCaml to Javascript compiler
* Copyright (C) 2007-9 Skydeck, Inc
+ * Copyright (C) 2010 Jake Donham
* Original file (bytecomp/bytegen.ml in the Objective Caml source
* distribution) is Copyright (C) INRIA.
*
View
1  src/jscomp/jsgen.mli
@@ -1,6 +1,7 @@
(*
* This file is part of ocamljs, OCaml to Javascript compiler
* Copyright (C) 2007-9 Skydeck, Inc
+ * Copyright (C) 2010 Jake Donham
* Original file (bytecomp/bytegen.mli in the Objective Caml source
* distribution) is Copyright (C) INRIA.
*
View
1  src/jscomp/jslibrarian.ml
@@ -1,6 +1,7 @@
(*
* This file is part of ocamljs, OCaml to Javascript compiler
* Copyright (C) 2007-9 Skydeck, Inc
+ * Copyright (C) 2010 Jake Donham
* Original file (bytecomp/bytelibrarian.ml in the Objective Caml source
* distribution) is Copyright (C) INRIA.
*
View
1  src/jscomp/jslibrarian.mli
@@ -1,6 +1,7 @@
(*
* This file is part of ocamljs, OCaml to Javascript compiler
* Copyright (C) 2007-9 Skydeck, Inc
+ * Copyright (C) 2010 Jake Donham
* Original file (bytecomp/bytelibrarian.mli in the Objective Caml source
* distribution) is Copyright (C) INRIA.
*
View
1  src/jscomp/jslink.ml
@@ -1,6 +1,7 @@
(*
* This file is part of ocamljs, OCaml to Javascript compiler
* Copyright (C) 2007-9 Skydeck, Inc
+ * Copyright (C) 2010 Jake Donham
* Original file (bytecomp/bytelink.ml in the Objective Caml source
* distribution) is Copyright (C) INRIA.
*
View
1  src/jscomp/jslink.mli
@@ -1,6 +1,7 @@
(*
* This file is part of ocamljs, OCaml to Javascript compiler
* Copyright (C) 2007-9 Skydeck, Inc
+ * Copyright (C) 2010 Jake Donham
* Original file (bytecomp/bytelink.mli in the Objective Caml source
* distribution) is Copyright (C) INRIA.
*
View
1  src/jscomp/jsmain.ml
@@ -1,6 +1,7 @@
(*
* This file is part of ocamljs, OCaml to Javascript compiler
* Copyright (C) 2007-9 Skydeck, Inc
+ * Copyright (C) 2010 Jake Donham
* Original file (driver/main.ml in the Objective Caml source
* distribution) is Copyright (C) INRIA.
*
View
1  src/jscomp/jsmain.mli
@@ -1,6 +1,7 @@
(*
* This file is part of ocamljs, OCaml to Javascript compiler
* Copyright (C) 2007-9 Skydeck, Inc
+ * Copyright (C) 2010 Jake Donham
* Original file (driver/main.mli in the Objective Caml source
* distribution) is Copyright (C) INRIA.
*
View
1  src/jscomp/jsmain_args.ml
@@ -1,6 +1,7 @@
(*
* This file is part of ocamljs, OCaml to Javascript compiler
* Copyright (C) 2007-9 Skydeck, Inc
+ * Copyright (C) 2010 Jake Donham
* Original file (driver/main_args.ml) in the Objective Caml source
* distribution) is Copyright (C) INRIA.
*
View
1  src/jscomp/jsmain_args.mli
@@ -1,6 +1,7 @@
(*
* This file is part of ocamljs, OCaml to Javascript compiler
* Copyright (C) 2007-9 Skydeck, Inc
+ * Copyright (C) 2010 Jake Donham
* Original file (driver/main_args.mli) in the Objective Caml source
* distribution) is Copyright (C) INRIA.
*
View
1  src/jscomp/jspackager.ml
@@ -1,6 +1,7 @@
(*
* This file is part of ocamljs, OCaml to Javascript compiler
* Copyright (C) 2007-9 Skydeck, Inc
+ * Copyright (C) 2010 Jake Donham
* Original file (bytecomp/bytepackager.ml) in the Objective Caml source
* distribution) is Copyright (C) INRIA.
*
View
1  src/jscomp/jspackager.mli
@@ -1,6 +1,7 @@
(*
* This file is part of ocamljs, OCaml to Javascript compiler
* Copyright (C) 2007-9 Skydeck, Inc
+ * Copyright (C) 2010 Jake Donham
* Original file (bytecomp/bytepackager.mli) in the Objective Caml source
* distribution) is Copyright (C) INRIA.
*
View
1  src/jscomp/ocamljs_config.ml
@@ -1,6 +1,7 @@
(*
* This file is part of ocamljs, OCaml to Javascript compiler
* Copyright (C) 2007-9 Skydeck, Inc
+ * Copyright (C) 2010 Jake Donham
*
* This program is free software released under the QPL.
* See LICENSE for more details.
View
1  src/jscomp/patches/3.11.0/translclass.ml
@@ -1,6 +1,7 @@
(*
* This file is part of ocamljs, OCaml to Javascript compiler
* Copyright (C) 2007-9 Skydeck, Inc
+ * Copyright (C) 2010 Jake Donham
*
* This program is free software released under the QPL.
* See LICENSE for more details.
View
11 src/jscomp/patches/3.11.0/translclass.ml.patch
@@ -1,9 +1,10 @@
---- translclass.ml.orig 2010-07-17 07:48:02.000000000 -0400
-+++ translclass.ml 2010-07-17 07:48:09.000000000 -0400
-@@ -1,3 +1,15 @@
+--- translclass.ml.orig 2010-08-18 14:54:59.000000000 -0400
++++ translclass.ml 2010-08-19 15:45:52.000000000 -0400
+@@ -1,3 +1,16 @@
+(*
+ * This file is part of ocamljs, OCaml to Javascript compiler
+ * Copyright (C) 2007-9 Skydeck, Inc
++ * Copyright (C) 2010 Jake Donham
+ *
+ * This program is free software released under the QPL.
+ * See LICENSE for more details.
@@ -16,7 +17,7 @@
(***********************************************************************)
(* *)
(* Objective Caml *)
-@@ -26,6 +38,14 @@
+@@ -26,6 +39,14 @@
exception Error of Location.t * error
@@ -31,7 +32,7 @@
let lfunction params body =
if params = [] then body else
match body with
-@@ -640,11 +660,21 @@
+@@ -640,11 +661,21 @@
if not arr || !Clflags.debug then raise Not_found;
builtin_meths [self] env env2 (lfunction args body')
with Not_found ->
View
1  src/jscomp/patches/3.11.0/translcore.ml
@@ -1,6 +1,7 @@
(*
* This file is part of ocamljs, OCaml to Javascript compiler
* Copyright (C) 2007-9 Skydeck, Inc
+ * Copyright (C) 2010 Jake Donham
*
* This program is free software released under the QPL.
* See LICENSE for more details.
View
9 src/jscomp/patches/3.11.0/translcore.ml.patch
@@ -1,9 +1,10 @@
---- translcore.ml.orig 2010-07-17 07:00:42.000000000 -0400
-+++ translcore.ml 2010-07-17 07:48:14.000000000 -0400
-@@ -1,3 +1,15 @@
+--- translcore.ml.orig 2010-08-18 14:54:59.000000000 -0400
++++ translcore.ml 2010-08-19 15:45:47.000000000 -0400
+@@ -1,3 +1,16 @@
+(*
+ * This file is part of ocamljs, OCaml to Javascript compiler
+ * Copyright (C) 2007-9 Skydeck, Inc
++ * Copyright (C) 2010 Jake Donham
+ *
+ * This program is free software released under the QPL.
+ * See LICENSE for more details.
@@ -16,7 +17,7 @@
(***********************************************************************)
(* *)
(* Objective Caml *)
-@@ -654,6 +666,22 @@
+@@ -654,6 +667,22 @@
end
| Texp_construct(cstr, args) ->
let ll = transl_list args in
View
1  src/jscomp/patches/3.11.0/translobj.ml
@@ -1,6 +1,7 @@
(*
* This file is part of ocamljs, OCaml to Javascript compiler
* Copyright (C) 2007-9 Skydeck, Inc
+ * Copyright (C) 2010 Jake Donham
*
* This program is free software released under the QPL.
* See LICENSE for more details.
View
9 src/jscomp/patches/3.11.0/translobj.ml.patch
@@ -1,9 +1,10 @@
---- translobj.ml.orig 2010-07-17 07:00:32.000000000 -0400
-+++ translobj.ml 2010-07-17 07:48:18.000000000 -0400
-@@ -1,3 +1,15 @@
+--- translobj.ml.orig 2010-08-18 14:54:59.000000000 -0400
++++ translobj.ml 2010-08-19 15:45:45.000000000 -0400
+@@ -1,3 +1,16 @@
+(*
+ * This file is part of ocamljs, OCaml to Javascript compiler
+ * Copyright (C) 2007-9 Skydeck, Inc
++ * Copyright (C) 2010 Jake Donham
+ *
+ * This program is free software released under the QPL.
+ * See LICENSE for more details.
@@ -16,7 +17,7 @@
(***********************************************************************)
(* *)
(* Objective Caml *)
-@@ -64,22 +76,7 @@
+@@ -64,22 +77,7 @@
is_path lam1 && is_path lam2
| _ -> false
View
12 src/jscomp/patches/3.11.0/typecore.ml
@@ -1,3 +1,15 @@
+(*
+ * This file is part of ocamljs, OCaml to Javascript compiler
+ * Copyright (C) 2010 Jake Donham
+ *
+ * This program is free software released under the QPL.
+ * See LICENSE for more details.
+ *
+ * The Software is provided AS IS with NO WARRANTY OF ANY KIND,
+ * INCLUDING THE WARRANTY OF DESIGN, MERCHANTABILITY AND
+ * FITNESS FOR A PARTICULAR PURPOSE.
+ *)
+
(***********************************************************************)
(* *)
(* Objective Caml *)
View
22 src/jscomp/patches/3.11.0/typecore.ml.patch
@@ -1,6 +1,22 @@
---- typecore.ml.orig 2010-07-17 07:48:02.000000000 -0400
-+++ typecore.ml 2010-07-17 07:48:23.000000000 -0400
-@@ -1353,17 +1353,21 @@
+--- typecore.ml.orig 2010-08-18 14:54:59.000000000 -0400
++++ typecore.ml 2010-08-19 15:45:44.000000000 -0400
+@@ -1,3 +1,15 @@
++(*
++ * This file is part of ocamljs, OCaml to Javascript compiler
++ * Copyright (C) 2010 Jake Donham
++ *
++ * This program is free software released under the QPL.
++ * See LICENSE for more details.
++ *
++ * The Software is provided AS IS with NO WARRANTY OF ANY KIND,
++ * INCLUDING THE WARRANTY OF DESIGN, MERCHANTABILITY AND
++ * FITNESS FOR A PARTICULAR PURPOSE.
++ *)
++
+ (***********************************************************************)
+ (* *)
+ (* Objective Caml *)
+@@ -1353,17 +1365,21 @@
let (obj_ty, res_ty) = filter_arrow env method_type "" in
unify env obj_ty desc.val_type;
unify env res_ty (instance typ);
View
1  src/jscomp/patches/3.11.1/translclass.ml
@@ -1,6 +1,7 @@
(*
* This file is part of ocamljs, OCaml to Javascript compiler
* Copyright (C) 2007-9 Skydeck, Inc
+ * Copyright (C) 2010 Jake Donham
*
* This program is free software released under the QPL.
* See LICENSE for more details.
View
11 src/jscomp/patches/3.11.1/translclass.ml.patch
@@ -1,9 +1,10 @@
---- translclass.ml.orig 2010-07-17 07:48:29.000000000 -0400
-+++ translclass.ml 2010-07-17 07:48:33.000000000 -0400
-@@ -1,3 +1,15 @@
+--- translclass.ml.orig 2010-08-18 14:54:59.000000000 -0400
++++ translclass.ml 2010-08-19 15:45:25.000000000 -0400
+@@ -1,3 +1,16 @@
+(*
+ * This file is part of ocamljs, OCaml to Javascript compiler
+ * Copyright (C) 2007-9 Skydeck, Inc
++ * Copyright (C) 2010 Jake Donham
+ *
+ * This program is free software released under the QPL.
+ * See LICENSE for more details.
@@ -16,7 +17,7 @@
(***********************************************************************)
(* *)
(* Objective Caml *)
-@@ -26,6 +38,14 @@
+@@ -26,6 +39,14 @@
exception Error of Location.t * error
@@ -31,7 +32,7 @@
let lfunction params body =
if params = [] then body else
match body with
-@@ -640,11 +660,21 @@
+@@ -640,11 +661,21 @@
if not arr || !Clflags.debug then raise Not_found;
builtin_meths [self] env env2 (lfunction args body')
with Not_found ->
View
1  src/jscomp/patches/3.11.1/translcore.ml
@@ -1,6 +1,7 @@
(*
* This file is part of ocamljs, OCaml to Javascript compiler
* Copyright (C) 2007-9 Skydeck, Inc
+ * Copyright (C) 2010 Jake Donham
*
* This program is free software released under the QPL.
* See LICENSE for more details.
View
9 src/jscomp/patches/3.11.1/translcore.ml.patch
@@ -1,9 +1,10 @@
---- translcore.ml.orig 2010-07-17 07:01:21.000000000 -0400
-+++ translcore.ml 2010-07-17 07:48:34.000000000 -0400
-@@ -1,3 +1,15 @@
+--- translcore.ml.orig 2010-08-18 14:54:59.000000000 -0400
++++ translcore.ml 2010-08-19 15:45:19.000000000 -0400
+@@ -1,3 +1,16 @@
+(*
+ * This file is part of ocamljs, OCaml to Javascript compiler
+ * Copyright (C) 2007-9 Skydeck, Inc
++ * Copyright (C) 2010 Jake Donham
+ *
+ * This program is free software released under the QPL.
+ * See LICENSE for more details.
@@ -16,7 +17,7 @@
(***********************************************************************)
(* *)
(* Objective Caml *)
-@@ -654,6 +666,22 @@
+@@ -654,6 +667,22 @@
end
| Texp_construct(cstr, args) ->
let ll = transl_list args in
View
1  src/jscomp/patches/3.11.1/translobj.ml
@@ -1,6 +1,7 @@
(*
* This file is part of ocamljs, OCaml to Javascript compiler
* Copyright (C) 2007-9 Skydeck, Inc
+ * Copyright (C) 2010 Jake Donham
*
* This program is free software released under the QPL.
* See LICENSE for more details.
View
9 src/jscomp/patches/3.11.1/translobj.ml.patch
@@ -1,9 +1,10 @@
---- translobj.ml.orig 2010-07-17 07:01:31.000000000 -0400
-+++ translobj.ml 2010-07-17 07:48:38.000000000 -0400
-@@ -1,3 +1,15 @@
+--- translobj.ml.orig 2010-08-18 14:54:59.000000000 -0400
++++ translobj.ml 2010-08-19 15:45:18.000000000 -0400
+@@ -1,3 +1,16 @@
+(*
+ * This file is part of ocamljs, OCaml to Javascript compiler
+ * Copyright (C) 2007-9 Skydeck, Inc
++ * Copyright (C) 2010 Jake Donham
+ *
+ * This program is free software released under the QPL.
+ * See LICENSE for more details.
@@ -16,7 +17,7 @@
(***********************************************************************)
(* *)
(* Objective Caml *)
-@@ -64,22 +76,7 @@
+@@ -64,22 +77,7 @@
is_path lam1 && is_path lam2
| _ -> false
View
12 src/jscomp/patches/3.11.1/typecore.ml
@@ -1,3 +1,15 @@
+(*
+ * This file is part of ocamljs, OCaml to Javascript compiler
+ * Copyright (C) 2010 Jake Donham
+ *
+ * This program is free software released under the QPL.
+ * See LICENSE for more details.
+ *
+ * The Software is provided AS IS with NO WARRANTY OF ANY KIND,
+ * INCLUDING THE WARRANTY OF DESIGN, MERCHANTABILITY AND
+ * FITNESS FOR A PARTICULAR PURPOSE.
+ *)
+
(***********************************************************************)
(* *)
(* Objective Caml *)
View
22 src/jscomp/patches/3.11.1/typecore.ml.patch
@@ -1,6 +1,22 @@
---- typecore.ml.orig 2010-07-17 07:01:38.000000000 -0400
-+++ typecore.ml 2010-07-17 07:48:40.000000000 -0400
-@@ -1355,17 +1355,21 @@
+--- typecore.ml.orig 2010-08-18 14:54:59.000000000 -0400
++++ typecore.ml 2010-08-19 15:45:15.000000000 -0400
+@@ -1,3 +1,15 @@
++(*
++ * This file is part of ocamljs, OCaml to Javascript compiler
++ * Copyright (C) 2010 Jake Donham
++ *
++ * This program is free software released under the QPL.
++ * See LICENSE for more details.
++ *
++ * The Software is provided AS IS with NO WARRANTY OF ANY KIND,
++ * INCLUDING THE WARRANTY OF DESIGN, MERCHANTABILITY AND
++ * FITNESS FOR A PARTICULAR PURPOSE.
++ *)
++
+ (***********************************************************************)
+ (* *)
+ (* Objective Caml *)
+@@ -1355,17 +1367,21 @@
let (obj_ty, res_ty) = filter_arrow env method_type "" in
unify env obj_ty desc.val_type;
unify env res_ty (instance typ);
View
1  src/jscomp/patches/3.11.2/translclass.ml
@@ -1,6 +1,7 @@
(*
* This file is part of ocamljs, OCaml to Javascript compiler
* Copyright (C) 2007-9 Skydeck, Inc
+ * Copyright (C) 2010 Jake Donham
*
* This program is free software released under the QPL.
* See LICENSE for more details.
View
11 src/jscomp/patches/3.11.2/translclass.ml.patch
@@ -1,9 +1,10 @@
---- translclass.ml.orig 2010-07-17 07:56:31.000000000 -0400
-+++ translclass.ml 2010-07-17 07:57:10.000000000 -0400
-@@ -1,3 +1,15 @@
+--- translclass.ml.orig 2010-08-18 14:54:59.000000000 -0400
++++ translclass.ml 2010-08-19 15:45:42.000000000 -0400
+@@ -1,3 +1,16 @@
+(*
+ * This file is part of ocamljs, OCaml to Javascript compiler
+ * Copyright (C) 2007-9 Skydeck, Inc
++ * Copyright (C) 2010 Jake Donham
+ *
+ * This program is free software released under the QPL.
+ * See LICENSE for more details.
@@ -16,7 +17,7 @@
(***********************************************************************)
(* *)
(* Objective Caml *)
-@@ -26,6 +38,14 @@
+@@ -26,6 +39,14 @@
exception Error of Location.t * error
@@ -31,7 +32,7 @@
let lfunction params body =
if params = [] then body else
match body with
-@@ -640,11 +660,21 @@
+@@ -640,11 +661,21 @@
if not arr || !Clflags.debug then raise Not_found;
builtin_meths [self] env env2 (lfunction args body')
with Not_found ->
View
1  src/jscomp/patches/3.11.2/translcore.ml
@@ -1,6 +1,7 @@
(*
* This file is part of ocamljs, OCaml to Javascript compiler
* Copyright (C) 2007-9 Skydeck, Inc
+ * Copyright (C) 2010 Jake Donham
*
* This program is free software released under the QPL.
* See LICENSE for more details.
View
9 src/jscomp/patches/3.11.2/translcore.ml.patch
@@ -1,9 +1,10 @@
---- translcore.ml.orig 2010-07-17 07:56:22.000000000 -0400
-+++ translcore.ml 2010-07-17 07:57:17.000000000 -0400
-@@ -1,3 +1,15 @@
+--- translcore.ml.orig 2010-08-18 14:54:59.000000000 -0400
++++ translcore.ml 2010-08-19 15:45:33.000000000 -0400
+@@ -1,3 +1,16 @@
+(*
+ * This file is part of ocamljs, OCaml to Javascript compiler
+ * Copyright (C) 2007-9 Skydeck, Inc
++ * Copyright (C) 2010 Jake Donham
+ *
+ * This program is free software released under the QPL.
+ * See LICENSE for more details.
@@ -16,7 +17,7 @@
(***********************************************************************)
(* *)
(* Objective Caml *)
-@@ -654,6 +666,22 @@
+@@ -654,6 +667,22 @@
end
| Texp_construct(cstr, args) ->
let ll = transl_list args in
View
1  src/jscomp/patches/3.11.2/translobj.ml
@@ -1,6 +1,7 @@
(*
* This file is part of ocamljs, OCaml to Javascript compiler
* Copyright (C) 2007-9 Skydeck, Inc
+ * Copyright (C) 2010 Jake Donham
*
* This program is free software released under the QPL.
* See LICENSE for more details.
View
9 src/jscomp/patches/3.11.2/translobj.ml.patch
@@ -1,9 +1,10 @@
---- translobj.ml.orig 2010-07-17 07:56:39.000000000 -0400
-+++ translobj.ml 2010-07-17 07:57:24.000000000 -0400
-@@ -1,3 +1,15 @@
+--- translobj.ml.orig 2010-08-18 14:54:59.000000000 -0400
++++ translobj.ml 2010-08-19 15:45:30.000000000 -0400
+@@ -1,3 +1,16 @@
+(*
+ * This file is part of ocamljs, OCaml to Javascript compiler
+ * Copyright (C) 2007-9 Skydeck, Inc
++ * Copyright (C) 2010 Jake Donham
+ *
+ * This program is free software released under the QPL.
+ * See LICENSE for more details.
@@ -16,7 +17,7 @@
(***********************************************************************)
(* *)
(* Objective Caml *)
-@@ -64,22 +76,7 @@
+@@ -64,22 +77,7 @@
is_path lam1 && is_path lam2
| _ -> false
View
12 src/jscomp/patches/3.11.2/typecore.ml
@@ -1,3 +1,15 @@
+(*
+ * This file is part of ocamljs, OCaml to Javascript compiler
+ * Copyright (C) 2010 Jake Donham
+ *
+ * This program is free software released under the QPL.
+ * See LICENSE for more details.
+ *
+ * The Software is provided AS IS with NO WARRANTY OF ANY KIND,
+ * INCLUDING THE WARRANTY OF DESIGN, MERCHANTABILITY AND
+ * FITNESS FOR A PARTICULAR PURPOSE.
+ *)
+
(***********************************************************************)
(* *)
(* Objective Caml *)
View
22 src/jscomp/patches/3.11.2/typecore.ml.patch
@@ -1,6 +1,22 @@
---- typecore.ml.orig 2010-07-17 07:56:48.000000000 -0400
-+++ typecore.ml 2010-07-17 07:57:35.000000000 -0400
-@@ -1355,17 +1355,21 @@
+--- typecore.ml.orig 2010-08-18 14:54:59.000000000 -0400
++++ typecore.ml 2010-08-19 15:45:28.000000000 -0400
+@@ -1,3 +1,15 @@
++(*
++ * This file is part of ocamljs, OCaml to Javascript compiler
++ * Copyright (C) 2010 Jake Donham
++ *
++ * This program is free software released under the QPL.
++ * See LICENSE for more details.
++ *
++ * The Software is provided AS IS with NO WARRANTY OF ANY KIND,
++ * INCLUDING THE WARRANTY OF DESIGN, MERCHANTABILITY AND
++ * FITNESS FOR A PARTICULAR PURPOSE.
++ *)
++
+ (***********************************************************************)
+ (* *)
+ (* Objective Caml *)
+@@ -1355,17 +1367,21 @@
let (obj_ty, res_ty) = filter_arrow env method_type "" in
unify env obj_ty desc.val_type;
unify env res_ty (instance typ);
View
1  src/jscomp/patches/3.12.0/translclass.ml
@@ -1,6 +1,7 @@
(*
* This file is part of ocamljs, OCaml to Javascript compiler
* Copyright (C) 2007-9 Skydeck, Inc
+ * Copyright (C) 2010 Jake Donham
*
* This program is free software released under the QPL.
* See LICENSE for more details.
View
11 src/jscomp/patches/3.12.0/translclass.ml.patch
@@ -1,9 +1,10 @@
---- translclass.ml.orig 2010-07-17 07:49:22.000000000 -0400
-+++ translclass.ml 2010-07-17 07:49:26.000000000 -0400
-@@ -1,3 +1,15 @@
+--- translclass.ml.orig 2010-08-18 14:54:59.000000000 -0400
++++ translclass.ml 2010-08-19 15:46:12.000000000 -0400
+@@ -1,3 +1,16 @@
+(*
+ * This file is part of ocamljs, OCaml to Javascript compiler
+ * Copyright (C) 2007-9 Skydeck, Inc
++ * Copyright (C) 2010 Jake Donham
+ *
+ * This program is free software released under the QPL.
+ * See LICENSE for more details.
@@ -16,7 +17,7 @@
(***********************************************************************)
(* *)
(* Objective Caml *)
-@@ -26,6 +38,14 @@
+@@ -26,6 +39,14 @@
exception Error of Location.t * error
@@ -31,7 +32,7 @@
let lfunction params body =
if params = [] then body else
match body with
-@@ -640,11 +660,21 @@
+@@ -640,11 +661,21 @@
if not arr || !Clflags.debug then raise Not_found;
builtin_meths [self] env env2 (lfunction args body')
with Not_found ->
View
1  src/jscomp/patches/3.12.0/translcore.ml
@@ -1,6 +1,7 @@
(*
* This file is part of ocamljs, OCaml to Javascript compiler
* Copyright (C) 2007-9 Skydeck, Inc
+ * Copyright (C) 2010 Jake Donham
*
* This program is free software released under the QPL.
* See LICENSE for more details.
View
9 src/jscomp/patches/3.12.0/translcore.ml.patch
@@ -1,9 +1,10 @@
---- translcore.ml.orig 2010-07-17 07:03:18.000000000 -0400
-+++ translcore.ml 2010-07-17 07:49:28.000000000 -0400
-@@ -1,3 +1,15 @@
+--- translcore.ml.orig 2010-08-18 14:54:59.000000000 -0400
++++ translcore.ml 2010-08-19 15:46:04.000000000 -0400
+@@ -1,3 +1,16 @@
+(*
+ * This file is part of ocamljs, OCaml to Javascript compiler
+ * Copyright (C) 2007-9 Skydeck, Inc
++ * Copyright (C) 2010 Jake Donham
+ *
+ * This program is free software released under the QPL.
+ * See LICENSE for more details.
@@ -16,7 +17,7 @@
(***********************************************************************)
(* *)
(* Objective Caml *)
-@@ -654,6 +666,22 @@
+@@ -654,6 +667,22 @@
end
| Texp_construct(cstr, args) ->
let ll = transl_list args in
View
1  src/jscomp/patches/3.12.0/translobj.ml
@@ -1,6 +1,7 @@
(*
* This file is part of ocamljs, OCaml to Javascript compiler
* Copyright (C) 2007-9 Skydeck, Inc
+ * Copyright (C) 2010 Jake Donham
*
* This program is free software released under the QPL.
* See LICENSE for more details.
View
9 src/jscomp/patches/3.12.0/translobj.ml.patch
@@ -1,9 +1,10 @@
---- translobj.ml.orig 2010-07-17 07:03:22.000000000 -0400
-+++ translobj.ml 2010-07-17 07:49:31.000000000 -0400
-@@ -1,3 +1,15 @@
+--- translobj.ml.orig 2010-08-18 14:54:59.000000000 -0400
++++ translobj.ml 2010-08-19 15:45:59.000000000 -0400
+@@ -1,3 +1,16 @@
+(*
+ * This file is part of ocamljs, OCaml to Javascript compiler
+ * Copyright (C) 2007-9 Skydeck, Inc
++ * Copyright (C) 2010 Jake Donham
+ *
+ * This program is free software released under the QPL.
+ * See LICENSE for more details.
@@ -16,7 +17,7 @@
(***********************************************************************)
(* *)
(* Objective Caml *)
-@@ -64,22 +76,7 @@
+@@ -64,22 +77,7 @@
is_path lam1 && is_path lam2
| _ -> false
View
12 src/jscomp/patches/3.12.0/typecore.ml
@@ -1,3 +1,15 @@
+(*
+ * This file is part of ocamljs, OCaml to Javascript compiler
+ * Copyright (C) 2010 Jake Donham
+ *
+ * This program is free software released under the QPL.
+ * See LICENSE for more details.
+ *
+ * The Software is provided AS IS with NO WARRANTY OF ANY KIND,
+ * INCLUDING THE WARRANTY OF DESIGN, MERCHANTABILITY AND
+ * FITNESS FOR A PARTICULAR PURPOSE.
+ *)
+
(***********************************************************************)
(* *)
(* Objective Caml *)
View
22 src/jscomp/patches/3.12.0/typecore.ml.patch
@@ -1,6 +1,22 @@
---- typecore.ml.orig 2010-07-17 07:51:01.000000000 -0400
-+++ typecore.ml 2010-07-17 07:51:02.000000000 -0400
-@@ -1390,17 +1390,21 @@
+--- typecore.ml.orig 2010-08-18 14:54:59.000000000 -0400
++++ typecore.ml 2010-08-19 15:45:54.000000000 -0400
+@@ -1,3 +1,15 @@
++(*
++ * This file is part of ocamljs, OCaml to Javascript compiler
++ * Copyright (C) 2010 Jake Donham
++ *
++ * This program is free software released under the QPL.
++ * See LICENSE for more details.
++ *
++ * The Software is provided AS IS with NO WARRANTY OF ANY KIND,
++ * INCLUDING THE WARRANTY OF DESIGN, MERCHANTABILITY AND
++ * FITNESS FOR A PARTICULAR PURPOSE.
++ *)
++
+ (***********************************************************************)
+ (* *)
+ (* Objective Caml *)
+@@ -1390,17 +1402,21 @@
let (obj_ty, res_ty) = filter_arrow env method_type "" in
unify env obj_ty desc.val_type;
unify env res_ty (instance typ);
View
1  src/jslib/jslib_ast.incl
@@ -1,6 +1,7 @@
(*
* This file is part of ocamljs, OCaml to Javascript compiler
* Copyright (C) 2007-9 Skydeck, Inc
+ * Copyright (C) 2010 Jake Donham
*
* This library is free software; you can redistribute it and/or
* modify it under the terms of the GNU Library General Public
View
1  src/jslib/jslib_ast.ml
@@ -1,6 +1,7 @@
(*
* This file is part of ocamljs, OCaml to Javascript compiler
* Copyright (C) 2007-9 Skydeck, Inc
+ * Copyright (C) 2010 Jake Donham
*
* This library is free software; you can redistribute it and/or
* modify it under the terms of the GNU Library General Public
View
1  src/jslib/jslib_ast.mli
@@ -1,6 +1,7 @@
(*
* This file is part of ocamljs, OCaml to Javascript compiler
* Copyright (C) 2007-9 Skydeck, Inc
+ * Copyright (C) 2010 Jake Donham
*
* This library is free software; you can redistribute it and/or
* modify it under the terms of the GNU Library General Public
View
1  src/jslib/jslib_lexer.ml
@@ -1,6 +1,7 @@
(*
* This file is part of ocamljs, OCaml to Javascript compiler
* Copyright (C) 2007-9 Skydeck, Inc
+ * Copyright (C) 2010 Jake Donham
*
* This library is free software; you can redistribute it and/or
* modify it under the terms of the GNU Library General Public
View
1  src/jslib/jslib_lexer.mli
@@ -1,6 +1,7 @@
(*
* This file is part of ocamljs, OCaml to Javascript compiler
* Copyright (C) 2007-9 Skydeck, Inc
+ * Copyright (C) 2010 Jake Donham
*
* This library is free software; you can redistribute it and/or
* modify it under the terms of the GNU Library General Public
View
1  src/jslib/jslib_parse.ml
@@ -1,6 +1,7 @@
(*
* This file is part of ocamljs, OCaml to Javascript compiler
* Copyright (C) 2007-9 Skydeck, Inc
+ * Copyright (C) 2010 Jake Donham
*
* This library is free software; you can redistribute it and/or
* modify it under the terms of the GNU Library General Public
View
1  src/jslib/jslib_parse.mli
@@ -1,6 +1,7 @@
(*
* This file is part of ocamljs, OCaml to Javascript compiler
* Copyright (C) 2007-9 Skydeck, Inc
+ * Copyright (C) 2010 Jake Donham
*
* This library is free software; you can redistribute it and/or
* modify it under the terms of the GNU Library General Public
View
1  src/jslib/jslib_pp.ml
@@ -1,6 +1,7 @@
(*
* This file is part of ocamljs, OCaml to Javascript compiler
* Copyright (C) 2007-9 Skydeck, Inc
+ * Copyright (C) 2010 Jake Donham
*
* This library is free software; you can redistribute it and/or
* modify it under the terms of the GNU Library General Public
View
1  src/jslib/jslib_pp.mli
@@ -1,6 +1,7 @@
(*
* This file is part of ocamljs, OCaml to Javascript compiler
* Copyright (C) 2007-9 Skydeck, Inc
+ * Copyright (C) 2010 Jake Donham
*
* This library is free software; you can redistribute it and/or
* modify it under the terms of the GNU Library General Public
View
1  src/jslib/lambda_meta_generator.ml
@@ -1,6 +1,7 @@
(*
* This file is part of ocamljs, OCaml to Javascript compiler
* Copyright (C) 2007-9 Skydeck, Inc
+ * Copyright (C) 2010 Jake Donham
* Original file (camlp4/Camlp4Filters/Camlp4MetaGenerator.ml in
* the Objective Caml source distribution) is Copyright (C) INRIA.
*
View
1  src/jslib/syntax_inline.ml
@@ -1,6 +1,7 @@
(*
* This file is part of ocamljs, OCaml to Javascript compiler
* Copyright (C) 2007-9 Skydeck, Inc
+ * Copyright (C) 2010 Jake Donham
*
* This library is free software; you can redistribute it and/or
* modify it under the terms of the GNU Library General Public
View
1  src/jslib/syntax_lambda.ml
@@ -1,6 +1,7 @@
(*
* This file is part of ocamljs, OCaml to Javascript compiler
* Copyright (C) 2007-9 Skydeck, Inc
+ * Copyright (C) 2010 Jake Donham
*
* This library is free software; you can redistribute it and/or
* modify it under the terms of the GNU Library General Public
View
1  src/jslib/syntax_quotations.ml
@@ -1,6 +1,7 @@
(*
* This file is part of ocamljs, OCaml to Javascript compiler
* Copyright (C) 2007-9 Skydeck, Inc
+ * Copyright (C) 2010 Jake Donham
*
* This library is free software; you can redistribute it and/or
* modify it under the terms of the GNU Library General Public
View
1  src/lwt-dom/lwt_dom.ml
@@ -1,6 +1,7 @@
(*
* This file is part of ocamljs, OCaml to Javascript compiler
* Copyright (C) 2009 Skydeck, Inc
+ * Copyright (C) 2010 Jake Donham
*
* This library is free software; you can redistribute it and/or
* modify it under the terms of the GNU Library General Public
View
1  src/lwt-dom/lwt_dom.mli
@@ -1,6 +1,7 @@
(*
* This file is part of ocamljs, OCaml to Javascript compiler
* Copyright (C) 2009 Skydeck, Inc
+ * Copyright (C) 2010 Jake Donham
*
* This library is free software; you can redistribute it and/or
* modify it under the terms of the GNU Library General Public
View
1  src/mozilla/mozilla.ml
@@ -1,6 +1,7 @@
(*
* This file is part of ocamljs, OCaml to Javascript compiler
* Copyright (C) 2007-9 Skydeck, Inc
+ * Copyright (C) 2010 Jake Donham
*
* This library is free software; you can redistribute it and/or
* modify it under the terms of the GNU Library General Public
View
1  src/mozilla/mozilla.mli
@@ -1,6 +1,7 @@
(*
* This file is part of ocamljs, OCaml to Javascript compiler
* Copyright (C) 2007-9 Skydeck, Inc
+ * Copyright (C) 2010 Jake Donham
*
* This library is free software; you can redistribute it and/or
* modify it under the terms of the GNU Library General Public
View
1  src/ocamljs/ocamljs.ml
@@ -1,6 +1,7 @@
(*
* This file is part of ocamljs, OCaml to Javascript compiler
* Copyright (C) 2007-9 Skydeck, Inc
+ * Copyright (C) 2010 Jake Donham
*
* This library is free software; you can redistribute it and/or
* modify it under the terms of the GNU Library General Public
View
1  src/ocamljs/ocamljs.mli
@@ -1,6 +1,7 @@
(*
* This file is part of ocamljs, OCaml to Javascript compiler
* Copyright (C) 2007-9 Skydeck, Inc
+ * Copyright (C) 2010 Jake Donham
*
* This library is free software; you can redistribute it and/or
* modify it under the terms of the GNU Library General Public
View
1  src/stdlib/patches/3.11.0/buffer.ml
@@ -1,6 +1,7 @@
(*
* This file is part of ocamljs, OCaml to Javascript compiler
* Copyright (C) 2007-9 Skydeck, Inc
+ * Copyright (C) 2010 Jake Donham
*
* This library is free software; you can redistribute it and/or
* modify it under the terms of the GNU Library General Public
View
9 src/stdlib/patches/3.11.0/buffer.ml.patch
@@ -1,9 +1,10 @@
---- buffer.ml.orig 2010-03-03 18:04:04.000000000 -0500
-+++ buffer.ml 2010-05-20 22:11:55.000000000 -0400
-@@ -1,3 +1,25 @@
+--- buffer.ml.orig 2010-08-18 14:53:57.000000000 -0400
++++ buffer.ml 2010-08-19 15:43:46.000000000 -0400
+@@ -1,3 +1,26 @@
+(*
+ * This file is part of ocamljs, OCaml to Javascript compiler
+ * Copyright (C) 2007-9 Skydeck, Inc
++ * Copyright (C) 2010 Jake Donham
+ *
+ * This library is free software; you can redistribute it and/or
+ * modify it under the terms of the GNU Library General Public
@@ -26,7 +27,7 @@
(***********************************************************************)
(* *)
(* Objective Caml *)
-@@ -15,89 +37,70 @@
+@@ -15,89 +38,70 @@
(* Extensible buffers *)
View
1  src/stdlib/patches/3.11.0/camlinternalMod.ml
@@ -1,6 +1,7 @@
(*
* This file is part of ocamljs, OCaml to Javascript compiler
* Copyright (C) 2007-9 Skydeck, Inc
+ * Copyright (C) 2010 Jake Donham
*
* This library is free software; you can redistribute it and/or
* modify it under the terms of the GNU Library General Public
View
11 src/stdlib/patches/3.11.0/camlinternalMod.ml.patch
@@ -1,9 +1,10 @@
---- camlinternalMod.ml.orig 2010-03-03 18:04:04.000000000 -0500
-+++ camlinternalMod.ml 2010-03-03 18:04:04.000000000 -0500
-@@ -1,3 +1,23 @@
+--- camlinternalMod.ml.orig 2010-08-18 14:53:57.000000000 -0400
++++ camlinternalMod.ml 2010-08-19 15:43:54.000000000 -0400
+@@ -1,3 +1,24 @@
+(*
+ * This file is part of ocamljs, OCaml to Javascript compiler
+ * Copyright (C) 2007-9 Skydeck, Inc
++ * Copyright (C) 2010 Jake Donham
+ *
+ * This library is free software; you can redistribute it and/or
+ * modify it under the terms of the GNU Library General Public
@@ -24,7 +25,7 @@
(***********************************************************************)
(* *)
(* Objective Caml *)
-@@ -22,12 +42,7 @@
+@@ -22,12 +43,7 @@
let rec init_mod loc shape =
match shape with
| Function ->
@@ -38,7 +39,7 @@
| Lazy ->
Obj.repr (lazy (raise (Undefined_recursive_module loc)))
| Class ->
-@@ -35,34 +50,13 @@
+@@ -35,34 +51,13 @@
| Module comps ->
Obj.repr (Array.map (init_mod loc) comps)
View
1  src/stdlib/patches/3.11.0/camlinternalOO.ml
@@ -1,6 +1,7 @@
(*
* This file is part of ocamljs, OCaml to Javascript compiler
* Copyright (C) 2007-9 Skydeck, Inc
+ * Copyright (C) 2010 Jake Donham
*
* This library is free software; you can redistribute it and/or
* modify it under the terms of the GNU Library General Public
View
29 src/stdlib/patches/3.11.0/camlinternalOO.ml.patch
@@ -1,9 +1,10 @@
---- camlinternalOO.ml.orig 2010-07-13 10:23:53.000000000 -0400
-+++ camlinternalOO.ml 2010-08-13 00:54:19.000000000 -0400
-@@ -1,3 +1,25 @@
+--- camlinternalOO.ml.orig 2010-08-18 14:53:57.000000000 -0400
++++ camlinternalOO.ml 2010-08-19 15:43:41.000000000 -0400
+@@ -1,3 +1,26 @@
+(*
+ * This file is part of ocamljs, OCaml to Javascript compiler
+ * Copyright (C) 2007-9 Skydeck, Inc
++ * Copyright (C) 2010 Jake Donham
+ *
+ * This library is free software; you can redistribute it and/or
+ * modify it under the terms of the GNU Library General Public
@@ -26,7 +27,7 @@
(***********************************************************************)
(* *)
(* Objective Caml *)
-@@ -29,9 +51,15 @@
+@@ -29,9 +52,15 @@
(**** Object copy ****)
let copy o =
@@ -45,7 +46,7 @@
(**** Compression options ****)
(* Parameters *)
-@@ -69,21 +97,11 @@
+@@ -69,21 +98,11 @@
type closure = item
type t = DummyA | DummyB | DummyC of int
type obj = t array
@@ -69,7 +70,7 @@
(**** Sparse array ****)
-@@ -106,7 +124,8 @@
+@@ -106,7 +125,8 @@
label list * string list) list;
mutable hidden_meths: (label * item) list;
mutable vars: vars;
@@ -79,7 +80,7 @@
let dummy_table =
{ methods = [| dummy_item |];
-@@ -116,7 +135,8 @@
+@@ -116,7 +136,8 @@
hidden_meths = [];
vars = Vars.empty;
initializers = [];
@@ -89,7 +90,7 @@
let table_count = ref 0
-@@ -129,21 +149,17 @@
+@@ -129,21 +150,17 @@
if n <= 2 then n else
fit_size ((n+1)/2) * 2
@@ -115,7 +116,7 @@
let resize array new_size =
let old_size = Array.length array.methods in
-@@ -300,13 +316,12 @@
+@@ -300,13 +317,12 @@
*)
let create_table public_methods =
@@ -132,7 +133,7 @@
table.methods_by_name <- Meths.add met lab table.methods_by_name;
table.methods_by_label <- Labs.add lab true table.methods_by_label)
public_methods;
-@@ -315,7 +330,15 @@
+@@ -315,7 +331,15 @@
let init_class table =
inst_var_count := !inst_var_count + table.size - 1;
table.initializers <- List.rev table.initializers;
@@ -149,7 +150,7 @@
let inherits cla vals virt_meths concr_meths (_, super, _, env) top =
narrow cla vals virt_meths concr_meths;
-@@ -352,18 +375,14 @@
+@@ -352,18 +376,14 @@
let create_object table =
(* XXX Appel de [obj_block] *)
@@ -170,7 +171,7 @@
set_id obj last_id;
(Obj.obj obj)
end
-@@ -371,7 +390,7 @@
+@@ -371,7 +391,7 @@
let rec iter_f obj =
function
[] -> ()
@@ -179,7 +180,7 @@
let run_initializers obj table =
let inits = table.initializers in
-@@ -439,61 +458,63 @@
+@@ -439,61 +459,63 @@
(**** builtin methods ****)
@@ -281,7 +282,7 @@
type impl =
GetConst
-@@ -560,14 +581,14 @@
+@@ -560,14 +582,14 @@
| MethAppMeth ->
let n = next() and m = next() in meth_app_meth n m
| SendConst ->
View
1  src/stdlib/patches/3.11.0/pervasives.ml
@@ -1,6 +1,7 @@
(*
* This file is part of ocamljs, OCaml to Javascript compiler
* Copyright (C) 2007-9 Skydeck, Inc
+ * Copyright (C) 2010 Jake Donham
*
* This library is free software; you can redistribute it and/or
* modify it under the terms of the GNU Library General Public
View
9 src/stdlib/patches/3.11.0/pervasives.ml.patch
@@ -1,9 +1,10 @@
---- pervasives.ml.orig 2010-03-03 18:04:04.000000000 -0500
-+++ pervasives.ml 2010-03-03 18:04:04.000000000 -0500
-@@ -1,3 +1,25 @@
+--- pervasives.ml.orig 2010-08-18 14:53:57.000000000 -0400
++++ pervasives.ml 2010-08-19 15:43:56.000000000 -0400
+@@ -1,3 +1,26 @@
+(*
+ * This file is part of ocamljs, OCaml to Javascript compiler
+ * Copyright (C) 2007-9 Skydeck, Inc
++ * Copyright (C) 2010 Jake Donham
+ *
+ * This library is free software; you can redistribute it and/or
+ * modify it under the terms of the GNU Library General Public
@@ -26,7 +27,7 @@
(***********************************************************************)
(* *)
(* Objective Caml *)
-@@ -137,11 +159,15 @@
+@@ -137,11 +160,15 @@
= "caml_blit_string" "noalloc"
let (^) s1 s2 =
View
1  src/stdlib/patches/3.11.0/printf.ml
@@ -1,6 +1,7 @@
(*
* This file is part of ocamljs, OCaml to Javascript compiler
* Copyright (C) 2007-9 Skydeck, Inc
+ * Copyright (C) 2010 Jake Donham
*
* This library is free software; you can redistribute it and/or
* modify it under the terms of the GNU Library General Public
View
11 src/stdlib/patches/3.11.0/printf.ml.patch
@@ -1,9 +1,10 @@
---- printf.ml.orig 2010-03-03 18:04:04.000000000 -0500
-+++ printf.ml 2010-03-03 18:04:04.000000000 -0500
-@@ -1,3 +1,23 @@
+--- printf.ml.orig 2010-08-18 14:53:57.000000000 -0400
++++ printf.ml 2010-08-19 15:43:49.000000000 -0400
+@@ -1,3 +1,24 @@
+(*
+ * This file is part of ocamljs, OCaml to Javascript compiler
+ * Copyright (C) 2007-9 Skydeck, Inc
++ * Copyright (C) 2010 Jake Donham
+ *
+ * This library is free software; you can redistribute it and/or
+ * modify it under the terms of the GNU Library General Public
@@ -24,7 +25,7 @@
(***********************************************************************)
(* *)
(* Objective Caml *)
-@@ -476,10 +496,10 @@
+@@ -476,10 +497,10 @@
let s =
if conv = 'c' then String.make 1 x else "'" ^ Char.escaped x ^ "'" in
cont_s (next_index spec n) s (succ i)
@@ -37,7 +38,7 @@
cont_s (next_index spec n) s (succ i)
| 'f' | 'e' | 'E' | 'g' | 'G' ->
let (x : float) = get_arg spec n in
-@@ -520,7 +540,7 @@
+@@ -520,7 +541,7 @@
cont_s (next_index spec n) s (succ i)
| _ ->
let (x : int) = get_arg spec n in
View
1  src/stdlib/patches/3.11.1/buffer.ml
@@ -1,6 +1,7 @@
(*
* This file is part of ocamljs, OCaml to Javascript compiler
* Copyright (C) 2007-9 Skydeck, Inc
+ * Copyright (C) 2010 Jake Donham
*
* This library is free software; you can redistribute it and/or
* modify it under the terms of the GNU Library General Public
View
9 src/stdlib/patches/3.11.1/buffer.ml.patch
@@ -1,9 +1,10 @@
---- buffer.ml.orig 2010-03-03 18:04:04.000000000 -0500
-+++ buffer.ml 2010-05-20 22:10:57.000000000 -0400
-@@ -1,3 +1,25 @@
+--- buffer.ml.orig 2010-08-18 14:53:57.000000000 -0400
++++ buffer.ml 2010-08-19 15:43:01.000000000 -0400
+@@ -1,3 +1,26 @@
+(*
+ * This file is part of ocamljs, OCaml to Javascript compiler
+ * Copyright (C) 2007-9 Skydeck, Inc
++ * Copyright (C) 2010 Jake Donham
+ *
+ * This library is free software; you can redistribute it and/or
+ * modify it under the terms of the GNU Library General Public
@@ -26,7 +27,7 @@
(***********************************************************************)
(* *)
(* Objective Caml *)
-@@ -15,89 +37,70 @@
+@@ -15,89 +38,70 @@
(* Extensible buffers *)
View
1  src/stdlib/patches/3.11.1/camlinternalMod.ml
@@ -1,6 +1,7 @@
(*
* This file is part of ocamljs, OCaml to Javascript compiler
* Copyright (C) 2007-9 Skydeck, Inc
+ * Copyright (C) 2010 Jake Donham
*
* This library is free software; you can redistribute it and/or
* modify it under the terms of the GNU Library General Public
View
11 src/stdlib/patches/3.11.1/camlinternalMod.ml.patch
@@ -1,9 +1,10 @@
---- camlinternalMod.ml.orig 2010-03-03 18:04:04.000000000 -0500
-+++ camlinternalMod.ml 2010-03-03 18:04:04.000000000 -0500
-@@ -1,3 +1,23 @@
+--- camlinternalMod.ml.orig 2010-08-18 14:53:57.000000000 -0400
++++ camlinternalMod.ml 2010-08-19 15:43:08.000000000 -0400
+@@ -1,3 +1,24 @@
+(*
+ * This file is part of ocamljs, OCaml to Javascript compiler
+ * Copyright (C) 2007-9 Skydeck, Inc
++ * Copyright (C) 2010 Jake Donham
+ *
+ * This library is free software; you can redistribute it and/or
+ * modify it under the terms of the GNU Library General Public
@@ -24,7 +25,7 @@
(***********************************************************************)
(* *)
(* Objective Caml *)
-@@ -22,12 +42,7 @@
+@@ -22,12 +43,7 @@
let rec init_mod loc shape =
match shape with
| Function ->
@@ -38,7 +39,7 @@
| Lazy ->
Obj.repr (lazy (raise (Undefined_recursive_module loc)))
| Class ->
-@@ -35,34 +50,13 @@
+@@ -35,34 +51,13 @@
| Module comps ->
Obj.repr (Array.map (init_mod loc) comps)
View
1  src/stdlib/patches/3.11.1/camlinternalOO.ml
@@ -1,6 +1,7 @@
(*
* This file is part of ocamljs, OCaml to Javascript compiler
* Copyright (C) 2007-9 Skydeck, Inc
+ * Copyright (C) 2010 Jake Donham
*
* This library is free software; you can redistribute it and/or
* modify it under the terms of the GNU Library General Public
View
29 src/stdlib/patches/3.11.1/camlinternalOO.ml.patch
@@ -1,9 +1,10 @@
---- camlinternalOO.ml.orig 2010-07-13 10:23:53.000000000 -0400
-+++ camlinternalOO.ml 2010-08-13 00:44:51.000000000 -0400
-@@ -1,3 +1,25 @@
+--- camlinternalOO.ml.orig 2010-08-18 14:53:57.000000000 -0400
++++ camlinternalOO.ml 2010-08-19 15:42:54.000000000 -0400
+@@ -1,3 +1,26 @@
+(*
+ * This file is part of ocamljs, OCaml to Javascript compiler
+ * Copyright (C) 2007-9 Skydeck, Inc
++ * Copyright (C) 2010 Jake Donham
+ *
+ * This library is free software; you can redistribute it and/or
+ * modify it under the terms of the GNU Library General Public
@@ -26,7 +27,7 @@
(***********************************************************************)
(* *)
(* Objective Caml *)
-@@ -29,9 +51,15 @@
+@@ -29,9 +52,15 @@
(**** Object copy ****)
let copy o =
@@ -45,7 +46,7 @@
(**** Compression options ****)
(* Parameters *)
-@@ -69,21 +97,11 @@
+@@ -69,21 +98,11 @@
type closure = item
type t = DummyA | DummyB | DummyC of int
type obj = t array
@@ -69,7 +70,7 @@
(**** Sparse array ****)
-@@ -106,7 +124,8 @@
+@@ -106,7 +125,8 @@
label list * string list) list;
mutable hidden_meths: (label * item) list;
mutable vars: vars;
@@ -79,7 +80,7 @@
let dummy_table =
{ methods = [| dummy_item |];
-@@ -116,7 +135,8 @@
+@@ -116,7 +136,8 @@
hidden_meths = [];
vars = Vars.empty;
initializers = [];
@@ -89,7 +90,7 @@
let table_count = ref 0
-@@ -129,21 +149,17 @@
+@@ -129,21 +150,17 @@
if n <= 2 then n else
fit_size ((n+1)/2) * 2
@@ -115,7 +116,7 @@
let resize array new_size =
let old_size = Array.length array.methods in
-@@ -300,13 +316,12 @@
+@@ -300,13 +317,12 @@
*)
let create_table public_methods =
@@ -132,7 +133,7 @@
table.methods_by_name <- Meths.add met lab table.methods_by_name;
table.methods_by_label <- Labs.add lab true table.methods_by_label)
public_methods;
-@@ -315,7 +330,15 @@
+@@ -315,7 +331,15 @@
let init_class table =
inst_var_count := !inst_var_count + table.size - 1;
table.initializers <- List.rev table.initializers;
@@ -149,7 +150,7 @@
let inherits cla vals virt_meths concr_meths (_, super, _, env) top =
narrow cla vals virt_meths concr_meths;
-@@ -352,18 +375,14 @@
+@@ -352,18 +376,14 @@
let create_object table =
(* XXX Appel de [obj_block] *)
@@ -170,7 +171,7 @@
set_id obj last_id;
(Obj.obj obj)
end
-@@ -371,7 +390,7 @@
+@@ -371,7 +391,7 @@
let rec iter_f obj =
function
[] -> ()
@@ -179,7 +180,7 @@
let run_initializers obj table =
let inits = table.initializers in
-@@ -439,61 +458,63 @@
+@@ -439,61 +459,63 @@
(**** builtin methods ****)
@@ -281,7 +282,7 @@
type impl =
GetConst
-@@ -560,14 +581,14 @@
+@@ -560,14 +582,14 @@
| MethAppMeth ->
let n = next() and m = next() in meth_app_meth n m
| SendConst ->
View
1  src/stdlib/patches/3.11.1/pervasives.ml
@@ -1,6 +1,7 @@
(*
* This file is part of ocamljs, OCaml to Javascript compiler
* Copyright (C) 2007-9 Skydeck, Inc
+ * Copyright (C) 2010 Jake Donham
*
* This library is free software; you can redistribute it and/or
* modify it under the terms of the GNU Library General Public
View
9 src/stdlib/patches/3.11.1/pervasives.ml.patch
@@ -1,9 +1,10 @@
---- pervasives.ml.orig 2010-03-03 18:04:04.000000000 -0500
-+++ pervasives.ml 2010-03-03 18:04:04.000000000 -0500
-@@ -1,3 +1,25 @@
+--- pervasives.ml.orig 2010-08-18 14:53:57.000000000 -0400
++++ pervasives.ml 2010-08-19 15:43:12.000000000 -0400
+@@ -1,3 +1,26 @@
+(*
+ * This file is part of ocamljs, OCaml to Javascript compiler
+ * Copyright (C) 2007-9 Skydeck, Inc
++ * Copyright (C) 2010 Jake Donham
+ *
+ * This library is free software; you can redistribute it and/or
+ * modify it under the terms of the GNU Library General Public
@@ -26,7 +27,7 @@
(***********************************************************************)
(* *)
(* Objective Caml *)
-@@ -137,11 +159,15 @@
+@@ -137,11 +160,15 @@
= "caml_blit_string" "noalloc"
let (^) s1 s2 =
View
1  src/stdlib/patches/3.11.1/printf.ml
@@ -1,6 +1,7 @@
(*
* This file is part of ocamljs, OCaml to Javascript compiler
* Copyright (C) 2007-9 Skydeck, Inc
+ * Copyright (C) 2010 Jake Donham
*
* This library is free software; you can redistribute it and/or
* modify it under the terms of the GNU Library General Public
View
11 src/stdlib/patches/3.11.1/printf.ml.patch
@@ -1,9 +1,10 @@
---- printf.ml.orig 2010-03-03 18:04:04.000000000 -0500
-+++ printf.ml 2010-03-03 18:04:04.000000000 -0500
-@@ -1,3 +1,23 @@
+--- printf.ml.orig 2010-08-18 14:53:57.000000000 -0400
++++ printf.ml 2010-08-19 15:43:03.000000000 -0400
+@@ -1,3 +1,24 @@
+(*
+ * This file is part of ocamljs, OCaml to Javascript compiler
+ * Copyright (C) 2007-9 Skydeck, Inc
++ * Copyright (C) 2010 Jake Donham
+ *
+ * This library is free software; you can redistribute it and/or
+ * modify it under the terms of the GNU Library General Public
@@ -24,7 +25,7 @@
(***********************************************************************)
(* *)
(* Objective Caml *)
-@@ -511,10 +531,10 @@
+@@ -511,10 +532,10 @@
let s =
if conv = 'c' then String.make 1 x else "'" ^ Char.escaped x ^ "'" in
cont_s (next_index spec n) s (succ i)
@@ -37,7 +38,7 @@
cont_s (next_index spec n) s (succ i)
| 'f' | 'e' | 'E' | 'g' | 'G' ->
let (x : float) = get_arg spec n in
-@@ -557,7 +577,7 @@
+@@ -557,7 +578,7 @@
cont_s (next_index spec n) s (succ i)
| _ ->
let (x : int) = get_arg spec n in
View
1  src/stdlib/patches/3.11.2/buffer.ml
@@ -1,6 +1,7 @@
(*
* This file is part of ocamljs, OCaml to Javascript compiler
* Copyright (C) 2007-9 Skydeck, Inc
+ * Copyright (C) 2010 Jake Donham
*
* This library is free software; you can redistribute it and/or
* modify it under the terms of the GNU Library General Public
View
9 src/stdlib/patches/3.11.2/buffer.ml.patch
@@ -1,9 +1,10 @@
---- buffer.ml.orig 2010-03-03 18:04:04.000000000 -0500
-+++ buffer.ml 2010-05-20 22:11:27.000000000 -0400
-@@ -1,3 +1,25 @@
+--- buffer.ml.orig 2010-08-18 14:53:57.000000000 -0400
++++ buffer.ml 2010-08-19 15:43:24.000000000 -0400
+@@ -1,3 +1,26 @@
+(*
+ * This file is part of ocamljs, OCaml to Javascript compiler
+ * Copyright (C) 2007-9 Skydeck, Inc
++ * Copyright (C) 2010 Jake Donham
+ *
+ * This library is free software; you can redistribute it and/or
+ * modify it under the terms of the GNU Library General Public
@@ -26,7 +27,7 @@
(***********************************************************************)
(* *)
(* Objective Caml *)
-@@ -15,97 +37,81 @@
+@@ -15,97 +38,81 @@
(* Extensible buffers *)
View
1  src/stdlib/patches/3.11.2/camlinternalMod.ml
@@ -1,6 +1,7 @@
(*
* This file is part of ocamljs, OCaml to Javascript compiler
* Copyright (C) 2007-9 Skydeck, Inc
+ * Copyright (C) 2010 Jake Donham
*
* This library is free software; you can redistribute it and/or
* modify it under the terms of the GNU Library General Public
View
11 src/stdlib/patches/3.11.2/camlinternalMod.ml.patch
@@ -1,9 +1,10 @@
---- camlinternalMod.ml.orig 2010-03-03 18:04:04.000000000 -0500
-+++ camlinternalMod.ml 2010-03-03 18:04:04.000000000 -0500
-@@ -1,3 +1,23 @@
+--- camlinternalMod.ml.orig 2010-08-18 14:53:57.000000000 -0400
++++ camlinternalMod.ml 2010-08-19 15:43:33.000000000 -0400
+@@ -1,3 +1,24 @@
+(*
+ * This file is part of ocamljs, OCaml to Javascript compiler
+ * Copyright (C) 2007-9 Skydeck, Inc
++ * Copyright (C) 2010 Jake Donham
+ *
+ * This library is free software; you can redistribute it and/or
+ * modify it under the terms of the GNU Library General Public
@@ -24,7 +25,7 @@
(***********************************************************************)
(* *)
(* Objective Caml *)
-@@ -22,12 +42,7 @@
+@@ -22,12 +43,7 @@
let rec init_mod loc shape =
match shape with
| Function ->
@@ -38,7 +39,7 @@
| Lazy ->
Obj.repr (lazy (raise (Undefined_recursive_module loc)))
| Class ->
-@@ -35,34 +50,13 @@
+@@ -35,34 +51,13 @@
| Module comps ->
Obj.repr (Array.map (init_mod loc) comps)
View
1  src/stdlib/patches/3.11.2/camlinternalOO.ml
@@ -1,6 +1,7 @@
(*
* This file is part of ocamljs, OCaml to Javascript compiler
* Copyright (C) 2007-9 Skydeck, Inc
+ * Copyright (C) 2010 Jake Donham
*
* This library is free software; you can redistribute it and/or
* modify it under the terms of the GNU Library General Public
View
29 src/stdlib/patches/3.11.2/camlinternalOO.ml.patch
@@ -1,9 +1,10 @@
---- camlinternalOO.ml.orig 2010-07-13 10:23:53.000000000 -0400
-+++ camlinternalOO.ml 2010-08-13 00:45:04.000000000 -0400
-@@ -1,3 +1,25 @@
+--- camlinternalOO.ml.orig 2010-08-18 14:53:57.000000000 -0400
++++ camlinternalOO.ml 2010-08-19 15:43:18.000000000 -0400
+@@ -1,3 +1,26 @@
+(*
+ * This file is part of ocamljs, OCaml to Javascript compiler
+ * Copyright (C) 2007-9 Skydeck, Inc
++ * Copyright (C) 2010 Jake Donham
+ *
+ * This library is free software; you can redistribute it and/or
+ * modify it under the terms of the GNU Library General Public
@@ -26,7 +27,7 @@
(***********************************************************************)
(* *)
(* Objective Caml *)
-@@ -29,9 +51,15 @@
+@@ -29,9 +52,15 @@
(**** Object copy ****)
let copy o =
@@ -45,7 +46,7 @@
(**** Compression options ****)
(* Parameters *)
-@@ -69,21 +97,11 @@
+@@ -69,21 +98,11 @@
type closure = item
type t = DummyA | DummyB | DummyC of int
type obj = t array
@@ -69,7 +70,7 @@
(**** Sparse array ****)
-@@ -106,7 +124,8 @@
+@@ -106,7 +125,8 @@
label list * string list) list;
mutable hidden_meths: (label * item) list;
mutable vars: vars;
@@ -79,7 +80,7 @@
let dummy_table =
{ methods = [| dummy_item |];
-@@ -116,7 +135,8 @@
+@@ -116,7 +136,8 @@
hidden_meths = [];
vars = Vars.empty;
initializers = [];
@@ -89,7 +90,7 @@
let table_count = ref 0
-@@ -129,21 +149,17 @@
+@@ -129,21 +150,17 @@
if n <= 2 then n else
fit_size ((n+1)/2) * 2
@@ -115,7 +116,7 @@
let resize array new_size =
let old_size = Array.length array.methods in
-@@ -300,13 +316,12 @@
+@@ -300,13 +317,12 @@
*)
let create_table public_methods =
@@ -132,7 +133,7 @@
table.methods_by_name <- Meths.add met lab table.methods_by_name;
table.methods_by_label <- Labs.add lab true table.methods_by_label)
public_methods;
-@@ -315,7 +330,15 @@
+@@ -315,7 +331,15 @@
let init_class table =
inst_var_count := !inst_var_count + table.size - 1;
table.initializers <- List.rev table.initializers;
@@ -149,7 +150,7 @@