34 static void floating_constant (expressionS * expressionP);
39 static void integer_constant (int radix, expressionS * expressionP);
42 static void clean_up_expression (expressionS * expressionP);
65 make_expr_symbol (expressionS *expressionP)  in make_expr_symbol()  argument
71   if (expressionP->X_op == O_symbol  in make_expr_symbol()
72       && expressionP->X_add_number == 0)  in make_expr_symbol()
73     return expressionP->X_add_symbol;  in make_expr_symbol()
75   if (expressionP->X_op == O_big)  in make_expr_symbol()
80       if (expressionP->X_add_number > 0)  in make_expr_symbol()
88       expressionP = &zero;  in make_expr_symbol()
96 			   (expressionP->X_op == O_constant  in make_expr_symbol()
100   symbol_set_value_expression (symbolP, expressionP);  in make_expr_symbol()
102   if (expressionP->X_op == O_constant)  in make_expr_symbol()
190 floating_constant (expressionS *expressionP)  in floating_constant()  argument
210   expressionP->X_op = O_big;  in floating_constant()
213   expressionP->X_add_number = -1;  in floating_constant()
243 integer_constant (int radix, expressionS *expressionP)  in integer_constant()  argument
316 	      floating_constant (expressionP);  in integer_constant()
523 	      expressionP->X_op = O_symbol;  in integer_constant()
524 	      expressionP->X_add_symbol = symbolP;  in integer_constant()
533 	      expressionP->X_op = O_constant;  in integer_constant()
536 	  expressionP->X_add_number = 0;  in integer_constant()
555 	  expressionP->X_op = O_symbol;  in integer_constant()
556 	  expressionP->X_add_symbol = symbolP;  in integer_constant()
557 	  expressionP->X_add_number = 0;  in integer_constant()
578 	  expressionP->X_op = O_symbol;  in integer_constant()
579 	  expressionP->X_add_symbol = symbolP;  in integer_constant()
580 	  expressionP->X_add_number = 0;  in integer_constant()
584 	  expressionP->X_op = O_constant;  in integer_constant()
585 	  expressionP->X_add_number = number;  in integer_constant()
592       expressionP->X_op = O_big;  in integer_constant()
593       expressionP->X_add_number = number;	/* Number of littlenums.  */  in integer_constant()
601 mri_char_constant (expressionS *expressionP)  in mri_char_constant()  argument
608       expressionP->X_op = O_constant;  in mri_char_constant()
609       expressionP->X_add_number = 0;  in mri_char_constant()
667       expressionP->X_op = O_big;  in mri_char_constant()
668       expressionP->X_add_number = i;  in mri_char_constant()
672       expressionP->X_op = O_constant;  in mri_char_constant()
674 	expressionP->X_add_number = generic_bignum[0] & LITTLENUM_MASK;  in mri_char_constant()
676 	expressionP->X_add_number =  in mri_char_constant()
713 operand (expressionS *expressionP, enum expr_mode mode)  in operand()  argument
726   expressionP->X_unsigned = 1;  in operand()
751 			expressionP);  in operand()
759       integer_constant (16, expressionP);  in operand()
765       integer_constant (2, expressionP);  in operand()
782 	      integer_constant (0, expressionP);  in operand()
797 	      integer_constant (0, expressionP);  in operand()
806 	      floating_constant (expressionP);  in operand()
807 	      expressionP->X_add_number = - TOLOWER (c);  in operand()
812 	      expressionP->X_op = O_constant;  in operand()
813 	      expressionP->X_add_number = 0;  in operand()
823 	  integer_constant (16, expressionP);  in operand()
841 		  integer_constant (10, expressionP);  in operand()
851 	  integer_constant (2, expressionP);  in operand()
864 			    expressionP);  in operand()
905 	      integer_constant (10, expressionP);  in operand()
917 	      integer_constant (0, expressionP);  in operand()
928 	  floating_constant (expressionP);  in operand()
929 	  expressionP->X_add_number = - TOLOWER (c);  in operand()
935 	      integer_constant (10, expressionP);  in operand()
950 	segment = expression (expressionP);  in operand()
952 	segment = deferred_expression (expressionP);  in operand()
982 	  expressionP->X_op = O_constant;  in operand()
983 	  expressionP->X_add_number = *input_line_pointer++;  in operand()
987       mri_char_constant (expressionP);  in operand()
1005 	operand (expressionP, mode);  in operand()
1006 	if (expressionP->X_op == O_constant)  in operand()
1011 		expressionP->X_add_number = - expressionP->X_add_number;  in operand()
1015 		expressionP->X_unsigned = 0;  in operand()
1018 	      expressionP->X_add_number = ~ expressionP->X_add_number;  in operand()
1020 	      expressionP->X_add_number = ! expressionP->X_add_number;  in operand()
1022 	else if (expressionP->X_op == O_big  in operand()
1023 		 && expressionP->X_add_number <= 0  in operand()
1034 	else if (expressionP->X_op == O_big  in operand()
1035 		 && expressionP->X_add_number > 0)  in operand()
1041 		for (i = 0; i < expressionP->X_add_number; ++i)  in operand()
1045 		if (expressionP->X_add_number < SIZE_OF_LARGE_NUMBER)  in operand()
1047 		    expressionP->X_add_number = SIZE_OF_LARGE_NUMBER;  in operand()
1048 		    for (; i < expressionP->X_add_number; ++i)  in operand()
1053 		  for (i = 0; i < expressionP->X_add_number; ++i)  in operand()
1062 		for (i = 0; i < expressionP->X_add_number; ++i)  in operand()
1065 		expressionP->X_add_number = i >= expressionP->X_add_number;  in operand()
1066 		expressionP->X_op = O_constant;  in operand()
1067 		expressionP->X_unsigned = 1;  in operand()
1070 	else if (expressionP->X_op != O_illegal  in operand()
1071 		 && expressionP->X_op != O_absent)  in operand()
1075 		expressionP->X_add_symbol = make_expr_symbol (expressionP);  in operand()
1077 		  expressionP->X_op = O_uminus;  in operand()
1079 		  expressionP->X_op = O_bit_not;  in operand()
1081 		  expressionP->X_op = O_logical_not;  in operand()
1082 		expressionP->X_add_number = 0;  in operand()
1103 	  integer_constant (16, expressionP);  in operand()
1110       current_location (expressionP);  in operand()
1117 	  current_location (expressionP);  in operand()
1150 	      expressionP->X_op = O_symbol;  in operand()
1151 	      expressionP->X_add_symbol = symbolP;  in operand()
1152 	      expressionP->X_add_number = 0;  in operand()
1171       expressionP->X_op = O_absent;  in operand()
1179       integer_constant (2, expressionP);  in operand()
1185       integer_constant (8, expressionP);  in operand()
1196       integer_constant (16, expressionP);  in operand()
1203       current_location (expressionP);  in operand()
1224 	  if (md_parse_name (name, expressionP, mode, &c))  in operand()
1259 	      expressionP->X_op = O_symbol;  in operand()
1260 	      expressionP->X_add_symbol = symbolP;  in operand()
1261 	      expressionP->X_add_number = 0;  in operand()
1277 	      expressionP->X_op = O_constant;  in operand()
1278 	      expressionP->X_add_number = S_GET_VALUE (symbolP);  in operand()
1282 	      expressionP->X_op = O_register;  in operand()
1283 	      expressionP->X_add_number = S_GET_VALUE (symbolP);  in operand()
1287 	      expressionP->X_op = O_symbol;  in operand()
1288 	      expressionP->X_add_symbol = symbolP;  in operand()
1289 	      expressionP->X_add_number = 0;  in operand()
1299 	  expressionP->X_op = O_absent;  in operand()
1301 	  md_operand (expressionP);  in operand()
1302 	  if (expressionP->X_op == O_absent)  in operand()
1306 	      expressionP->X_op = O_constant;  in operand()
1307 	      expressionP->X_add_number = 0;  in operand()
1315   clean_up_expression (expressionP);  in operand()
1320   if (expressionP->X_add_symbol)  in operand()
1321     symbol_mark_used (expressionP->X_add_symbol);  in operand()
1323   expressionP->X_add_symbol = symbol_clone_if_forward_ref (expressionP->X_add_symbol);  in operand()
1324   expressionP->X_op_symbol = symbol_clone_if_forward_ref (expressionP->X_op_symbol);  in operand()
1326   switch (expressionP->X_op)  in operand()
1331       return S_GET_SEGMENT (expressionP->X_add_symbol);  in operand()
1347 clean_up_expression (expressionS *expressionP)  in clean_up_expression()  argument
1349   switch (expressionP->X_op)  in clean_up_expression()
1353       expressionP->X_add_number = 0;  in clean_up_expression()
1358       expressionP->X_add_symbol = NULL;  in clean_up_expression()
1363       expressionP->X_op_symbol = NULL;  in clean_up_expression()
1895 resolve_expression (expressionS *expressionP)  in resolve_expression()  argument
1898   valueT final_val = expressionP->X_add_number;  in resolve_expression()
1899   symbolS *add_symbol = expressionP->X_add_symbol;  in resolve_expression()
1900   symbolS *op_symbol = expressionP->X_op_symbol;  in resolve_expression()
1901   operatorT op = expressionP->X_op;  in resolve_expression()
2136       else if (add_symbol != expressionP->X_add_symbol)  in resolve_expression()
2138       expressionP->X_add_symbol = add_symbol;  in resolve_expression()
2140   expressionP->X_op = op;  in resolve_expression()
2144   expressionP->X_add_number = final_val;  in resolve_expression()