From: kazuhiko <kazuhiko>
Date: Tue, 12 Sep 2000 01:21:49 +0000 (+0000)
Subject: Initial revision
X-Git-Tag: r21-2-35-utf-2000-0_17-0~2^2
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=81012521865bf37490d481e62038ec2b550d4636;p=chise%2Fxemacs-chise.git-

Initial revision
---

diff --git a/src/m/s390.h b/src/m/s390.h
new file mode 100644
index 0000000..1407879
--- /dev/null
+++ b/src/m/s390.h
@@ -0,0 +1,34 @@
+/* machine description file for IBM S390
+   Copyright (C) 1987 Free Software Foundation, Inc.
+
+This file is part of XEmacs.
+
+GNU Emacs is free software; you can redistribute it and/or modify
+it under the terms of the GNU General Public License as published by
+the Free Software Foundation; either version 2, or (at your option)
+any later version.
+
+GNU Emacs is distributed in the hope that it will be useful,
+but WITHOUT ANY WARRANTY; without even the implied warranty of
+MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
+GNU General Public License for more details.
+
+You should have received a copy of the GNU General Public License
+along with GNU Emacs; see the file COPYING.  If not, write to
+the Free Software Foundation, Inc., 59 Temple Place - Suite 330,
+Boston, MA 02111-1307, USA.  */
+
+
+/* Say this machine is a s390 */
+
+#ifndef s390
+#define s390
+#endif
+
+/* Data type of load average, as read out of kmem.  */
+
+#define LOAD_AVE_TYPE long
+
+/* Convert that into an integer that is 100 for a load average of 1.0  */
+
+#define LOAD_AVE_CVT(x) (int) (((double) (x)) * 100.0 / FSCALE)