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
authorboehmes
Tue, 23 Mar 2010 20:46:47 +0100
changeset 35936 ce49d64a9818
parent 35935 32887cbfd62d (diff)
parent 35934 5f38ae62d939 (current diff)
child 35937 d7b3190d8b4a
merged
--- a/src/Pure/General/sha1_polyml.ML	Tue Mar 23 19:35:33 2010 +0100
+++ b/src/Pure/General/sha1_polyml.ML	Tue Mar 23 20:46:47 2010 +0100
@@ -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