From: Claudio Sacerdoti Coen <claudio.sacerdoticoen@unibo.it>
Date: Thu, 28 Dec 2017 17:59:14 +0000 (+0100)
Subject: Stupid fix to avoid new camlp5 bug with int64 literals
X-Git-Tag: make_still_working~388
X-Git-Url: http://matita.cs.unibo.it/gitweb/?a=commitdiff_plain;h=5647171964622a8a170d615f9087aa1f5ec40cbf;p=helm.git

Stupid fix to avoid new camlp5 bug with int64 literals
---

diff --git a/helm/software/components/hmysql/hSqlite3.ml b/helm/software/components/hmysql/hSqlite3.ml
index 707b482bc..310893ac5 100644
--- a/helm/software/components/hmysql/hSqlite3.ml
+++ b/helm/software/components/hmysql/hSqlite3.ml
@@ -114,11 +114,11 @@ let quick_connect
          | Sqlite3.Data.TEXT rex, Sqlite3.Data.TEXT s ->
              let r = Str.regexp rex in
              if Str.string_match r s 0 then 
-               Sqlite3.Data.INT 1L 
+               Sqlite3.Data.INT Int64.one 
              else 
-               Sqlite3.Data.INT 0L
+               Sqlite3.Data.INT Int64.zero
          | _ -> raise (Error "wrong types to 'REGEXP'")
-        with Sys.Break -> Sqlite3.Data.INT 0L
+        with Sys.Break -> Sqlite3.Data.INT Int64.zero
           | exn -> HLog.error (Printexc.to_string exn); raise exn);
   Some db
 ;;