Mercurial > hg > octave-nkf

comparison src/arith-ops.cc @ 390:0f4129889b57

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
[project @ 1994-03-17 21:47:39 by jwe]
author jwe
date Thu, 17 Mar 1994 21:47:43 +0000
parents a99f28f5e351
children a01a9db8ab69
comparison
equal deleted inserted replaced
389:4cb0c5015dc3 390:0f4129889b57
1 // Helper functions for arithmetic operations. -*- C++ -*- 1 // Helper functions for arithmetic operations. -*- C++ -*-
2 // Used by the tree class. 2 // Used by the tree class.
3 /* 3 /*
4 4
5 Copyright (C) 1992, 1993 John W. Eaton 5 Copyright (C) 1992, 1993, 1994 John W. Eaton
6 6
7 This file is part of Octave. 7 This file is part of Octave.
8 8
9 Octave is free software; you can redistribute it and/or modify it 9 Octave is free software; you can redistribute it and/or modify it
10 under the terms of the GNU General Public License as published by the 10 under the terms of the GNU General Public License as published by the
2095 complex_result = quotient (a, b); 2095 complex_result = quotient (a, b);
2096 break; 2096 break;
2097 case tree::el_leftdiv: 2097 case tree::el_leftdiv:
2098 result_type = RT_complex; 2098 result_type = RT_complex;
2099 if (m_add_conform (a, b, 1)) 2099 if (m_add_conform (a, b, 1))
2100 complex_result = quotient (a, b); 2100 complex_result = quotient (b, a);
2101 break; 2101 break;
2102 case tree::leftdiv: 2102 case tree::leftdiv:
2103 return xleftdiv (a, b); 2103 return xleftdiv (a, b);
2104 break; 2104 break;
2105 case tree::divide: 2105 case tree::divide: