From: Chris Hanson <org/chris-hanson/cph>
Date: Fri, 10 Jan 1997 08:00:17 +0000 (+0000)
Subject: Generalize version-number handling to detect IBM's continued use of
X-Git-Tag: 20090517-FFI~5267
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=227d45a1685b340f04e882150b9d4b0942725eee;p=mit-scheme.git

Generalize version-number handling to detect IBM's continued use of
version numbers such as 2.4 rather than 4.0.
---

diff --git a/v7/src/microcode/os2top.c b/v7/src/microcode/os2top.c
index 9ecf217be..284d0ec6b 100644
--- a/v7/src/microcode/os2top.c
+++ b/v7/src/microcode/os2top.c
@@ -1,8 +1,8 @@
 /* -*-C-*-
 
-$Id: os2top.c,v 1.17 1996/05/09 20:22:20 cph Exp $
+$Id: os2top.c,v 1.18 1997/01/10 08:00:17 cph Exp $
 
-Copyright (c) 1994-96 Massachusetts Institute of Technology
+Copyright (c) 1994-97 Massachusetts Institute of Technology
 
 This material was developed by the Scheme project at the Massachusetts
 Institute of Technology, Department of Electrical Engineering and
@@ -130,10 +130,10 @@ OS2_version_string (void)
   static char result [64];
   char sminor [16];
   char srev [2];
-  if ((major == 20) && (minor == 30))
+  if ((major == 20) && (minor >= 30))
     {
-      major = 30;
-      minor = 0;
+      major = (minor - (minor % 10));
+      minor = ((minor % 10) * 10);
     }
   if ((minor < 10) && (minor != 0))
     sprintf (sminor, "0%d", minor);