Pārlūkot izejas kodu

ignore "macrotimes" for signature

Nicolas Cannasse 13 gadi atpakaļ
vecāks
revīzija
c1a9fcba6f
1 mainītis faili ar 6 papildinājumiem un 1 dzēšanām
  1. 6 1
      common.ml

+ 6 - 1
common.ml

@@ -148,7 +148,12 @@ let get_signature com =
 	match com.defines_signature with
 	| Some s -> s
 	| None ->
-		let str = String.concat "@" (PMap.foldi (fun k _ acc -> if k = "display" || k = "use_rtti_doc" then acc else k :: acc) com.defines []) in
+		let str = String.concat "@" (PMap.foldi (fun k _ acc -> 
+			(* don't make much difference between these special compilation flags *)
+			match k with
+			| "display" | "use_rtti_doc" | "macrotimes" -> acc
+			| _ -> k :: acc
+		) com.defines []) in
 		let s = Digest.string str in
 		com.defines_signature <- Some s;
 		s