Mercurial > octave

comparison src/tc-rep.cc @ 578:d169be9237fb

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
[project @ 1994-08-03 20:06:54 by jwe]
author jwe
date Wed, 03 Aug 1994 20:07:26 +0000
parents 7ea224e713cd
children bc813f5eb025
comparison
equal deleted inserted replaced
577:91e2164fb1b2 578:d169be9237fb
919 } 919 }
920 return retval; 920 return retval;
921 } 921 }
922 922
923 tree_constant 923 tree_constant
924 do_binary_op (tree_constant& a, tree_constant& b, tree::expression_type t) 924 do_binary_op (tree_constant& a, tree_constant& b, tree_expression::type t)
925 { 925 {
926 tree_constant ans; 926 tree_constant ans;
927 927
928 int first_empty = (a.rows () == 0 || a.columns () == 0); 928 int first_empty = (a.rows () == 0 || a.columns () == 0);
929 int second_empty = (b.rows () == 0 || b.columns () == 0); 929 int second_empty = (b.rows () == 0 || b.columns () == 0);
1064 } 1064 }
1065 return ans; 1065 return ans;
1066 } 1066 }
1067 1067
1068 tree_constant 1068 tree_constant
1069 do_unary_op (tree_constant& a, tree::expression_type t) 1069 do_unary_op (tree_constant& a, tree_expression::type t)
1070 { 1070 {
1071 tree_constant ans; 1071 tree_constant ans;
1072 1072
1073 if (a.rows () == 0 || a.columns () == 0) 1073 if (a.rows () == 0 || a.columns () == 0)
1074 { 1074 {
1111 } 1111 }
1112 return ans; 1112 return ans;
1113 } 1113 }
1114 1114
1115 void 1115 void
1116 tree_constant_rep::bump_value (tree::expression_type etype) 1116 tree_constant_rep::bump_value (tree_expression::type etype)
1117 { 1117 {
1118 switch (etype) 1118 switch (etype)
1119 { 1119 {
1120 case tree::increment: 1120 case tree_expression::increment:
1121 switch (type_tag) 1121 switch (type_tag)
1122 { 1122 {
1123 case scalar_constant: 1123 case scalar_constant:
1124 scalar++; 1124 scalar++;
1125 break; 1125 break;
1143 default: 1143 default:
1144 panic_impossible (); 1144 panic_impossible ();
1145 break; 1145 break;
1146 } 1146 }
1147 break; 1147 break;
1148 case tree::decrement: 1148 case tree_expression::decrement:
1149 switch (type_tag) 1149 switch (type_tag)
1150 { 1150 {
1151 case scalar_constant: 1151 case scalar_constant:
1152 scalar--; 1152 scalar--;
1153 break; 1153 break;