LCPQ/QCaml
10
1
Fork 0
mirror of https://gitlab.com/scemama/QCaml.git synced 2024-11-18 12:03:40 +01:00
Code Releases Activity

Fix for ocaml 4.14.0

Browse Source
This commit is contained in:
Anthony Scemama 2022-12-12 18:16:17 +01:00
parent 9b5ca55bd8
commit 44e99fe252
7 changed files with 272 additions and 269 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
common/lib/dune
View File

@ -9,6 +9,7 @@
str str
zarith zarith
getopt getopt
camlp-streams
) )
(c_names (c_names

6
common/lib/util.c
View File

@ -19,7 +19,7 @@
/* [[file:~/QCaml/common/util.org::*Erf][Erf:1]] */ /* [[file:~/QCaml/common/util.org::*Erf][Erf:1]] */
CAMLprim value erf_float_bytecode(value x) { CAMLprim value erf_float_bytecode(value x) {
return copy_double(erf(Double_val(x))); return caml_copy_double(erf(Double_val(x)));
} }
CAMLprim double erf_float(double x) { CAMLprim double erf_float(double x) {
@ -32,7 +32,7 @@ CAMLprim double erf_float(double x) {
/* [[file:~/QCaml/common/util.org::*Erfc][Erfc:1]] */ /* [[file:~/QCaml/common/util.org::*Erfc][Erfc:1]] */
CAMLprim value erfc_float_bytecode(value x) { CAMLprim value erfc_float_bytecode(value x) {
return copy_double(erfc(Double_val(x))); return caml_copy_double(erfc(Double_val(x)));
} }
CAMLprim double erfc_float(double x) { CAMLprim double erfc_float(double x) {
@ -45,7 +45,7 @@ CAMLprim double erfc_float(double x) {
/* [[file:~/QCaml/common/util.org::*Gamma][Gamma:1]] */ /* [[file:~/QCaml/common/util.org::*Gamma][Gamma:1]] */
CAMLprim value gamma_float_bytecode(value x) { CAMLprim value gamma_float_bytecode(value x) {
return copy_double(tgamma(Double_val(x))); return caml_copy_double(tgamma(Double_val(x)));
} }

6
common/util.org
View File

@ -44,7 +44,7 @@ open Alcotest
#+begin_src c :tangle (eval c) :exports none #+begin_src c :tangle (eval c) :exports none
CAMLprim value erf_float_bytecode(value x) { CAMLprim value erf_float_bytecode(value x) {
return copy_double(erf(Double_val(x))); return caml_copy_double(erf(Double_val(x)));
} }
CAMLprim double erf_float(double x) { CAMLprim double erf_float(double x) {
@ -66,7 +66,7 @@ external erf_float : float -> float
#+begin_src c :tangle (eval c) :exports none #+begin_src c :tangle (eval c) :exports none
CAMLprim value erfc_float_bytecode(value x) { CAMLprim value erfc_float_bytecode(value x) {
return copy_double(erfc(Double_val(x))); return caml_copy_double(erfc(Double_val(x)));
} }
CAMLprim double erfc_float(double x) { CAMLprim double erfc_float(double x) {
@ -87,7 +87,7 @@ external erfc_float : float -> float = "erfc_float_bytecode" "erfc_float" [@@unb
#+begin_src c :tangle (eval c) :exports none #+begin_src c :tangle (eval c) :exports none
CAMLprim value gamma_float_bytecode(value x) { CAMLprim value gamma_float_bytecode(value x) {
return copy_double(tgamma(Double_val(x))); return caml_copy_double(tgamma(Double_val(x)));
} }

516
docs/common.html
View File

File diff suppressed because it is too large Load Diff

10
docs/top.html
View File

@ -3,7 +3,7 @@
"http://www.w3.org/TR/xhtml1/DTD/xhtml1-strict.dtd"> "http://www.w3.org/TR/xhtml1/DTD/xhtml1-strict.dtd">
<html xmlns="http://www.w3.org/1999/xhtml" lang="en" xml:lang="en"> <html xmlns="http://www.w3.org/1999/xhtml" lang="en" xml:lang="en">
<head> <head>
<!-- 2022-11-07 Mon 14:58 --> <!-- 2022-12-12 Mon 18:12 -->
<meta http-equiv="Content-Type" content="text/html;charset=utf-8" /> <meta http-equiv="Content-Type" content="text/html;charset=utf-8" />
<meta name="viewport" content="width=device-width, initial-scale=1" /> <meta name="viewport" content="width=device-width, initial-scale=1" />
<title>Top-level</title> <title>Top-level</title>
@ -250,18 +250,18 @@ org_html_manager.setup(); // activate after the parameters are set
<h2>Table of Contents</h2> <h2>Table of Contents</h2>
<div id="text-table-of-contents"> <div id="text-table-of-contents">
<ul> <ul>
<li><a href="#org031e9dd">1. Summary</a></li> <li><a href="#orgaff48c7">1. Summary</a></li>
</ul> </ul>
</div> </div>
</div> </div>
<div id="outline-container-org031e9dd" class="outline-2"> <div id="outline-container-orgaff48c7" class="outline-2">
<h2 id="org031e9dd"><span class="section-number-2">1</span> Summary</h2> <h2 id="orgaff48c7"><span class="section-number-2">1</span> Summary</h2>
</div> </div>
</div> </div>
<div id="postamble" class="status"> <div id="postamble" class="status">
<p class="author">Author: Anthony Scemama</p> <p class="author">Author: Anthony Scemama</p>
<p class="date">Created: 2022-11-07 Mon 14:58</p> <p class="date">Created: 2022-12-12 Mon 18:12</p>
<p class="validation"><a href="https://validator.w3.org/check?uri=referer">Validate</a></p> <p class="validation"><a href="https://validator.w3.org/check?uri=referer">Validate</a></p>
</div> </div>
</body> </body>

1
dune-project
View File

@ -27,6 +27,7 @@ in quantum chemistry.")
(depends (depends
(ocaml (>= 4.10)) (ocaml (>= 4.10))
(dune (>= 1.10)) (dune (>= 1.10))
(camlp-streams (>= 5.0))
lacaml lacaml
getopt getopt
zarith zarith

1
qcaml.opam
View File

@ -20,6 +20,7 @@ in quantum chemistry."""
depends: [ depends: [
"ocaml" {>= "4.10"} "ocaml" {>= "4.10"}
"dune" {>= "1.10"} "dune" {>= "1.10"}
"camlp-streams" {>= "5.0"}
"lacaml" "lacaml"
"getopt" "getopt"
"zarith" "zarith"