From 199a6977fb35d5608296c66a2cddd94266b33bab Mon Sep 17 00:00:00 2001 From: "Guillermo J. Rozas" Date: Mon, 10 Jan 1994 21:31:20 +0000 Subject: [PATCH] Add cast to eliminate warning. --- v7/src/microcode/cmpint.c | 4 ++-- v8/src/microcode/cmpint.c | 4 ++-- 2 files changed, 4 insertions(+), 4 deletions(-) diff --git a/v7/src/microcode/cmpint.c b/v7/src/microcode/cmpint.c index d981b1094..9e2e135a4 100644 --- a/v7/src/microcode/cmpint.c +++ b/v7/src/microcode/cmpint.c @@ -1,6 +1,6 @@ /* -*-C-*- -$Id: cmpint.c,v 1.82 1994/01/08 17:02:13 gjr Exp $ +$Id: cmpint.c,v 1.83 1994/01/10 21:31:20 gjr Exp $ Copyright (c) 1989-1994 Massachusetts Institute of Technology @@ -1206,7 +1206,7 @@ exit_proc: SCHEME_OBJECT * ret_add_block; unsigned long block_len = (((unsigned long) (* block_address)) + 1); - Get_Compiled_Block (ret_add_block, ret_add); + Get_Compiled_Block (ret_add_block, ((SCHEME_OBJECT *) ret_add)); if (ret_add_block == block_address) FLUSH_I_CACHE_REGION (block_address, block_len); else diff --git a/v8/src/microcode/cmpint.c b/v8/src/microcode/cmpint.c index d981b1094..9e2e135a4 100644 --- a/v8/src/microcode/cmpint.c +++ b/v8/src/microcode/cmpint.c @@ -1,6 +1,6 @@ /* -*-C-*- -$Id: cmpint.c,v 1.82 1994/01/08 17:02:13 gjr Exp $ +$Id: cmpint.c,v 1.83 1994/01/10 21:31:20 gjr Exp $ Copyright (c) 1989-1994 Massachusetts Institute of Technology @@ -1206,7 +1206,7 @@ exit_proc: SCHEME_OBJECT * ret_add_block; unsigned long block_len = (((unsigned long) (* block_address)) + 1); - Get_Compiled_Block (ret_add_block, ret_add); + Get_Compiled_Block (ret_add_block, ((SCHEME_OBJECT *) ret_add)); if (ret_add_block == block_address) FLUSH_I_CACHE_REGION (block_address, block_len); else -- 2.25.1