Mantis Bugtracker
Startseite | Übersicht | Probleme anzeigen | Änderungsprotokoll | Roadmap | Dokumentation | Konto
  

Einfache Problemansicht anzeigen [ Zu Notizen wechseln ] [ erweiterte Anzeige ] [ Problem-Historie ] [ Drucken ]
ID Kategorie Auswirkung Reproduzierbar Meldungsdatum Letzte Aktualisierung
0000140 [Bisect] general Blocker immer 2018-02-16 15:23 2018-02-16 15:49
Reporter rixed Anzeigestatus öffentlich  
Bearbeitung durch
Priorität normal Lösung offen  
Status neu   Produktversion 1.3
Zusammenfassung 0000140: Bisect does not compile under ocaml >= 4.6.0
Beschreibung Probably due to non-mutable strings
Zusätzliche Information Note that I haven't tested this myself, just reporting what I've seen on github.
See for instance: https://github.com/ocaml-batteries-team/batteries-included/issues/835 [^]
Tags Keine Tags zugeordnet.
Angehängte Dateien

- Problem-Beziehungen

-  Notiz
(0000289)
rixed (Reporter)
2018-02-16 15:49

 FWIW:

diff -rN -u old-bisect.x9c.fr/src/library/common.ml new-bisect.x9c.fr/src/library/common.ml
--- old-bisect.x9c.fr/src/library/common.ml 2018-02-16 16:48:07.000000000 +0100
+++ new-bisect.x9c.fr/src/library/common.ml 2018-02-16 16:48:07.000000000 +0100
@@ -159,10 +159,10 @@
 
 let check_channel channel filename magic check_digest =
   let magic_length = String.length magic in
- let file_magic = String.create magic_length in
+ let file_magic = Bytes.create magic_length in
   really_input channel file_magic 0 magic_length;
   let file_version =
- if file_magic = magic then
+ if Bytes.to_string file_magic = magic then
       let file_version : (int * int) = input_value channel in
       if not (List.mem file_version supported_versions) then
         raise (Unsupported_version filename)

- Problem-Historie
Änderungsdatum Benutzername Feld Änderung
2018-02-16 15:23 rixed Neues Problem
2018-02-16 15:49 rixed Problemnotiz hinzugefügt: 0000289

Mantis 1.1.7[^]
Copyright © 2000 - 2008 Mantis Group
Powered by Mantis Bugtracker