From f48d466257e839d97794004d36dbdb2aefcd4a82 Mon Sep 17 00:00:00 2001 From: Chris Hanson Date: Fri, 14 Jul 1989 02:53:54 +0000 Subject: [PATCH] Spectrum compiler won't allow casts on lvalues. --- v7/src/microcode/x11base.c | 7 +++---- 1 file changed, 3 insertions(+), 4 deletions(-) diff --git a/v7/src/microcode/x11base.c b/v7/src/microcode/x11base.c index 3b4ba6a9b..95ce306fb 100644 --- a/v7/src/microcode/x11base.c +++ b/v7/src/microcode/x11base.c @@ -1,6 +1,6 @@ /* -*-C-*- -$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/microcode/x11base.c,v 1.4 1989/07/05 19:08:45 cph Exp $ +$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/microcode/x11base.c,v 1.5 1989/07/14 02:53:54 cph Exp $ Copyright (c) 1989 Massachusetts Institute of Technology @@ -402,8 +402,7 @@ x_close_window (index) Display * display; xw = ((struct xwindow *) ((x_window_table . items) [index])); - ((struct xwindow *) ((x_window_table . items) [index])) = - ((struct xwindow *) 0); + ((x_window_table . items) [index]) = 0; display = (XW_DISPLAY (xw)); { void (* deallocator) () = (xw -> deallocator); @@ -427,7 +426,7 @@ x_close_display (index) Display * display; display = ((Display *) ((x_display_table . items) [index])); - ((Display *) ((x_display_table . items) [index])) = ((Display *) 0); + ((x_display_table . items) [index]) = 0; { struct xwindow ** items = ((struct xwindow **) (x_window_table . items)); int length = (x_window_table . length); -- 2.25.1