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
1995-09-08 16:51:49 +00:00 · 1995-09-08 16:51:49 +00:00 · 72743acdad
parent 9329823498
commit 72743acdad
1 changed files with 1 additions and 0 deletions
--- 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++) {