Mercurial > hg > octave-nkf

diff src/arith-ops.cc @ 240:a99f28f5e351

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
[project @ 1993-11-30 20:24:36 by jwe]
author jwe
date Tue, 30 Nov 1993 20:24:36 +0000
parents e2c950dd96d2
children 0f4129889b57
line wrap: on
line diff
--- a/src/arith-ops.cc
+++ b/src/arith-ops.cc
@@ -22,8 +22,8 @@
 
 */
 
-#ifdef __GNUG__
-#pragma implementation
+#ifdef HAVE_CONFIG_H
+#include "config.h"
 #endif
 
 #include <ctype.h>
@@ -1329,7 +1329,7 @@
       break;
     case tree::el_mul:
       if (m_add_conform (a, b, 1))
-	result = a.product (b);
+	result = product (a, b);
       break;
     case tree::multiply:
       if (m_mul_conform (a, b, 1))
@@ -1337,11 +1337,11 @@
       break;
     case tree::el_div:
       if (m_add_conform (a, b, 1))
-	result = a.quotient (b);
+	result = quotient (a, b);
       break;
     case tree::el_leftdiv:
       if (m_add_conform (a, b, 1))
-	result = b.quotient (a);
+	result = quotient (b, a);
       break;
     case tree::leftdiv:
       return xleftdiv (a, b);
@@ -1514,7 +1514,7 @@
     case tree::el_mul:
       result_type = RT_complex;
       if (m_add_conform (a, b, 1))
-	complex_result = a.product (b);
+	complex_result = product (a, b);
       break;
     case tree::multiply:
       result_type = RT_complex;
@@ -1524,12 +1524,12 @@
     case tree::el_div:
       result_type = RT_complex;
       if (m_add_conform (a, b, 1))
-	complex_result = a.quotient (b);
+	complex_result = quotient (a, b);
       break;
     case tree::el_leftdiv:
       result_type = RT_complex;
       if (m_add_conform (a, b, 1))
-	complex_result = b.quotient (a);
+	complex_result = quotient (b, a);
       break;
     case tree::leftdiv:
       return xleftdiv (a, b);
@@ -2082,7 +2082,7 @@
     case tree::el_mul:
       result_type = RT_complex;
       if (m_add_conform (a, b, 1))
-	complex_result = a.product (b);
+	complex_result = product (a, b);
       break;
     case tree::multiply:
       result_type = RT_complex;
@@ -2092,12 +2092,12 @@
     case tree::el_div:
       result_type = RT_complex;
       if (m_add_conform (a, b, 1))
-	complex_result = a.quotient (b);
+	complex_result = quotient (a, b);
       break;
     case tree::el_leftdiv:
       result_type = RT_complex;
       if (m_add_conform (a, b, 1))
-	complex_result = a.quotient (b);
+	complex_result = quotient (a, b);
       break;
     case tree::leftdiv:
       return xleftdiv (a, b);
@@ -2285,7 +2285,7 @@
     case tree::el_mul:
       result_type = RT_complex;
       if (m_add_conform (a, b, 1))
-	complex_result = a.product (b);
+	complex_result = product (a, b);
       break;
     case tree::multiply:
       result_type = RT_complex;
@@ -2295,12 +2295,12 @@
     case tree::el_div:
       result_type = RT_complex;
       if (m_add_conform (a, b, 1))
-	complex_result = a.quotient (b);
+	complex_result = quotient (a, b);
       break;
     case tree::el_leftdiv:
       result_type = RT_complex;
       if (m_add_conform (a, b, 1))
-	complex_result = b.quotient (a);
+	complex_result = quotient (b, a);
       break;
     case tree::leftdiv:
       return xleftdiv (a, b);