From 4ebdecaf0f3e20b4c6989600c117a458622ca522 Mon Sep 17 00:00:00 2001
From: biouman <biouman>
Date: Sat, 28 Apr 2001 23:16:36 +0000
Subject: *** empty log message ***

---
 lib/scalaires.c | 12 +++++++++---
 1 file changed, 9 insertions(+), 3 deletions(-)

(limited to 'lib/scalaires.c')

diff --git a/lib/scalaires.c b/lib/scalaires.c
index f94162a..10c9196 100644
--- a/lib/scalaires.c
+++ b/lib/scalaires.c
@@ -35,9 +35,15 @@ rationnel rat_constr(int num, int denom)
 		denom = -denom;
 		num = -num;
 	}
-
-	temp.num = num / pgcd(num, denom);
-	temp.denom = denom / pgcd(num, denom);
+	if (!num) {
+		temp.num=0;
+		temp.denom=1;
+	} else if (denom) {
+		temp.num = num / pgcd(num, denom);
+		temp.denom = denom / pgcd(num, denom);
+	} else {
+		exception(1,"rat_constr: division par zero");
+	}
 	return temp;
 
 }
-- 
cgit v1.2.3