From 71f8adf58484b7ff37d9fbaabdf2bcf89e486611 Mon Sep 17 00:00:00 2001 From: "Guillermo J. Rozas" Date: Thu, 9 Sep 1993 18:16:08 +0000 Subject: [PATCH] Add cast to eliminate warning. --- v7/src/microcode/lookup.c | 4 ++-- v8/src/microcode/lookup.c | 4 ++-- 2 files changed, 4 insertions(+), 4 deletions(-) diff --git a/v7/src/microcode/lookup.c b/v7/src/microcode/lookup.c index 4bc3d6794..8203837b3 100644 --- a/v7/src/microcode/lookup.c +++ b/v7/src/microcode/lookup.c @@ -1,6 +1,6 @@ /* -*-C-*- -$Id: lookup.c,v 9.52 1993/06/24 05:50:22 gjr Exp $ +$Id: lookup.c,v 9.53 1993/09/09 18:16:08 gjr Exp $ Copyright (c) 1988-1993 Massachusetts Institute of Technology @@ -2332,7 +2332,7 @@ DEFUN (compiler_recache_slot, clone = (FAST_MEMORY_REF (extension, TRAP_EXTENSION_CLONE)); tail = *slot; - for (pair = *cell; pair != NULL; pair = *cell) + for (pair = (* cell); pair != ((SCHEME_OBJECT) NULL); pair = (* cell)) { weak_pair = (FAST_PAIR_CAR (pair)); result = (cache_reference_end (kind, extension, clone, diff --git a/v8/src/microcode/lookup.c b/v8/src/microcode/lookup.c index 4bc3d6794..8203837b3 100644 --- a/v8/src/microcode/lookup.c +++ b/v8/src/microcode/lookup.c @@ -1,6 +1,6 @@ /* -*-C-*- -$Id: lookup.c,v 9.52 1993/06/24 05:50:22 gjr Exp $ +$Id: lookup.c,v 9.53 1993/09/09 18:16:08 gjr Exp $ Copyright (c) 1988-1993 Massachusetts Institute of Technology @@ -2332,7 +2332,7 @@ DEFUN (compiler_recache_slot, clone = (FAST_MEMORY_REF (extension, TRAP_EXTENSION_CLONE)); tail = *slot; - for (pair = *cell; pair != NULL; pair = *cell) + for (pair = (* cell); pair != ((SCHEME_OBJECT) NULL); pair = (* cell)) { weak_pair = (FAST_PAIR_CAR (pair)); result = (cache_reference_end (kind, extension, clone, -- 2.25.1