From 0dc342de848a642ecce8db697b8fecd83a63e117 Mon Sep 17 00:00:00 2001
From: yugui <yugui@b2dd03c8-39d4-4d8f-98ff-823fe69b080e>
Date: Mon, 25 Aug 2008 15:02:05 +0000
Subject: added tag v1_9_0_4

git-svn-id: svn+ssh://ci.ruby-lang.org/ruby/tags/v1_9_0_4@18845 b2dd03c8-39d4-4d8f-98ff-823fe69b080e
---
 trunk/x68/_round.c | 45 +++++++++++++++++++++++++++++++++++++++++++++
 1 file changed, 45 insertions(+)
 create mode 100644 trunk/x68/_round.c

(limited to 'trunk/x68/_round.c')

diff --git a/trunk/x68/_round.c b/trunk/x68/_round.c
new file mode 100644
index 0000000000..761930fb8c
--- /dev/null
+++ b/trunk/x68/_round.c
@@ -0,0 +1,45 @@
+/*
+ * PROJECT C Library, X68000 PROGRAMMING INTERFACE DEFINITION
+ * --------------------------------------------------------------------
+ * This file is written by the Project C Library Group,  and completely
+ * in public domain. You can freely use, copy, modify, and redistribute
+ * the whole contents, without this notice.
+ * --------------------------------------------------------------------
+ * $Id$
+ */
+/* changed 1997.2.2 by K.Okabe */
+
+/* System headers */
+#include <stdlib.h>
+#include <sys/xstdlib.h>
+
+/* Functions */
+int _round (char *top, char *cur, int undig)
+{
+    char *ptr;
+
+    /* 最後が5未満なら丸めは必要ない */
+    if (undig < '5')
+	return 0;
+
+    /* ポインタ設定 */
+    ptr = cur - 1;
+
+    /* 先頭まで戻りながら丸め処理 */
+    while (ptr >= top) {
+
+	/* 繰り上がらなければそれで終わり */
+	if (++(*ptr) <= '9')
+	    return 0;
+
+	/* その桁を0に戻す */
+	*ptr-- = '0';
+
+    }
+
+    /* 先頭を1にする */
+    *++ptr = '1';
+
+    /* 繰り上がりをしらせる */
+    return 1;
+}
-- 
cgit v1.2.3