From: Claudio Sacerdoti Coen 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 ;;