From 72743acdad0bb4a60518cc4ecd793a6d0f762232 Mon Sep 17 00:00:00 2001
From: Xavier Leroy <xavier.leroy@inria.fr>
Date: Fri, 8 Sep 1995 16:51:49 +0000
Subject: [PATCH] On traite le cas ou on compare deux blocs != de taille 0.

git-svn-id: http://caml.inria.fr/svn/ocaml/trunk@255 f963ae5c-01c2-4b8c-9fe0-0dff7051ff02
---
 byterun/compare.c | 1 +
 1 file changed, 1 insertion(+)

diff --git a/byterun/compare.c b/byterun/compare.c
index c8e9620bf..f9f80e679 100644
--- a/byterun/compare.c
+++ b/byterun/compare.c
@@ -79,6 +79,7 @@ static long compare_val(v1, v2)
     value * p1, * p2;
     long res;
     if (sz1 != sz2) return sz1 - sz2;
+    if (sz1 == 0) return 0;
     for(p1 = Op_val(v1), p2 = Op_val(v2);
         sz1 > 1;
         sz1--, p1++, p2++) {