On Tue, Mar 11, 2014 at 04:59:19PM +0100, Pino Toscano wrote:
+let arch_is_compatible nativearch otherarch = + let nativearch = filter_arch nativearch in + let otherarch = filter_arch otherarch in + match nativearch, otherarch with + | a, b when a = b -> true + | "x86_64", "i386" -> true + | "ppc64", "ppc" -> true + | "sparc64", "sparc" -> true + | a, b -> false
It's likely that you can add: | "aarch64", arch when string_prefix arch "arm" -> true The aarch64 guys were talking about dropping 32 bit compatibility, but my prediction is that will never happen.
-val cache_of_name : string -> string -> int -> string +val cache_of_name : string -> string -> string -> int -> string (** [cache_of_name cachedir name revision] returns the filename ^ add arch here
Rest looks fine, ACK. Rich. -- Richard Jones, Virtualization Group, Red Hat http://people.redhat.com/~rjones virt-p2v converts physical machines to virtual machines. Boot with a live CD or over the network (PXE) and turn machines into KVM guests. http://libguestfs.org/virt-v2v