From 0534eb2c7cf65db5d0e07e03b14d361f04df3e09 Mon Sep 17 00:00:00 2001 From: Pascal Rigaux Date: Tue, 13 Jan 2004 14:11:04 +0000 Subject: use a float to save the mtime since int overflows. this fixes the cache being used partially --- perl_checker.src/tree.mli | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) (limited to 'perl_checker.src/tree.mli') diff --git a/perl_checker.src/tree.mli b/perl_checker.src/tree.mli index 9363a5e..b8615f5 100644 --- a/perl_checker.src/tree.mli +++ b/perl_checker.src/tree.mli @@ -32,7 +32,7 @@ type per_file = { file_name : string ; require_name : string option ; lines_starts : int list ; - build_time : int ; + build_time : float ; packages : per_package list ; from_basedir : bool ; } @@ -43,7 +43,7 @@ val use_lib : string list ref val uses_external_package : string -> bool val findfile : string list -> string -> string -val get_global_info_from_package : bool -> string option -> int -> fromparser list -> per_file +val get_global_info_from_package : bool -> string option -> float -> fromparser list -> per_file val has_proto : string option -> fromparser -> ((context * string) list * pos * fromparser list) option val get_vars_declaration : (context * string * string, pos * prototype option) Hashtbl.t -> string -> per_package -> unit -- cgit v1.2.1