From: Guillermo J. Rozas <edu/mit/csail/zurich/gjr>
Date: Mon, 15 Apr 1991 16:14:09 +0000 (+0000)
Subject: Casts to make it run under SunOS 4.03 when compiled by Sun cc.
X-Git-Tag: 20090517-FFI~10748
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=0d4ba604eb4d42c8d398b3c8b972a605db1aace0;p=mit-scheme.git

Casts to make it run under SunOS 4.03 when compiled by Sun cc.
---

diff --git a/v7/src/microcode/x11graph.c b/v7/src/microcode/x11graph.c
index 2e4aade47..4b4c1ef79 100644
--- a/v7/src/microcode/x11graph.c
+++ b/v7/src/microcode/x11graph.c
@@ -1,6 +1,6 @@
 /* -*-C-*-
 
-$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/microcode/x11graph.c,v 1.7 1990/10/02 22:52:35 cph Rel $
+$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/microcode/x11graph.c,v 1.8 1991/04/15 16:14:09 jinx Exp $
 
 Copyright (c) 1989, 1990 Massachusetts Institute of Technology
 
@@ -85,7 +85,7 @@ DEFUN (arg_y_coordinate, (arg, xw),
   float virtual_device_y = (arg_real_number (arg));
   float device_y =
     ((XW_Y_SLOPE (xw)) * (virtual_device_y - (XW_Y_BOTTOM (xw))));
-  return (((XW_Y_SIZE (xw)) - 1) + (ROUND_FLOAT (device_y)));
+  return (((int) ((XW_Y_SIZE (xw)) - 1)) + (ROUND_FLOAT (device_y)));
 }
 
 static SCHEME_OBJECT
@@ -100,8 +100,8 @@ DEFUN (y_coordinate_map, (xw, y), struct xwindow * xw AND unsigned int y)
 {
   return
     (FLOAT_TO_FLONUM
-     ((((float) (y + ((XW_Y_SIZE (xw)) - 1))) / (XW_Y_SLOPE (xw)))
-      + (XW_Y_BOTTOM (xw))));
+     (((((float) y) - ((XW_Y_SIZE (xw)) - 1)) / (XW_Y_SLOPE (xw)))
+        + (XW_Y_BOTTOM (xw))));
 }
 
 static void