Mercurial Mercurial > repos > isabelle / changeset
summary | shortlog | changelog | graph | tags | bookmarks | branches | files | changeset | raw | gz | help
Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
merged
authorhuffman
Tue, 23 Mar 2010 19:03:05 -0700
changeset 35940 a336af707767
parent 35939 db69a6a1fbb5 (current diff)
parent 35937 d7b3190d8b4a (diff)
child 35941 63f0d628edff
child 35950 791ce568d40a
merged
--- a/src/Pure/General/sha1_polyml.ML	Tue Mar 23 13:42:12 2010 -0700
+++ b/src/Pure/General/sha1_polyml.ML	Tue Mar 23 19:03:05 2010 -0700
@@ -16,7 +16,7 @@
   in (op ^) (pairself hex_digit (Integer.div_mod (Char.ord c) 16)) end
 
 val lib_path =
-  ("$ML_HOME/" ^ (if String.isSuffix "cygwin" ml_system then "sha1.dll" else "libsha1.so"))
+  ("$ML_HOME/" ^ (if String.isSuffix "cygwin" ml_platform then "sha1.dll" else "libsha1.so"))
   |> Path.explode;
 
 fun digest_external str =
@@ -24,7 +24,7 @@
     val digest = CInterface.alloc 20 CInterface.Cchar;
     val _ =
       CInterface.call3 (CInterface.get_sym (File.platform_path lib_path) "sha1_buffer")
-        (CInterface.STRING, CInterface.INT, CInterface.POINTER)
+        (CInterface.STRING, CInterface.LONG, CInterface.POINTER)
         CInterface.POINTER (str, size str, CInterface.address digest);
   in fold (suffix o hex_string digest) (0 upto 19) "" end;
isabelle