35 static void floating_constant (expressionS * expressionP);
40 static void integer_constant (int radix, expressionS * expressionP);
43 static void clean_up_expression (expressionS * expressionP);
66 make_expr_symbol (expressionS *expressionP)  in make_expr_symbol()  argument
72   if (expressionP->X_op == O_symbol  in make_expr_symbol()
73       && expressionP->X_add_number == 0)  in make_expr_symbol()
74     return expressionP->X_add_symbol;  in make_expr_symbol()
76   if (expressionP->X_op == O_big)  in make_expr_symbol()
81       if (expressionP->X_add_number > 0)  in make_expr_symbol()
89       expressionP = &zero;  in make_expr_symbol()
97 			   (expressionP->X_op == O_constant  in make_expr_symbol()
101   symbol_set_value_expression (symbolP, expressionP);  in make_expr_symbol()
103   if (expressionP->X_op == O_constant)  in make_expr_symbol()
191 floating_constant (expressionS *expressionP)  in floating_constant()  argument
211   expressionP->X_op = O_big;  in floating_constant()
214   expressionP->X_add_number = -1;  in floating_constant()
244 integer_constant (int radix, expressionS *expressionP)  in integer_constant()  argument
317 	      floating_constant (expressionP);  in integer_constant()
524 	      expressionP->X_op = O_symbol;  in integer_constant()
525 	      expressionP->X_add_symbol = symbolP;  in integer_constant()
534 	      expressionP->X_op = O_constant;  in integer_constant()
537 	  expressionP->X_add_number = 0;  in integer_constant()
556 	  expressionP->X_op = O_symbol;  in integer_constant()
557 	  expressionP->X_add_symbol = symbolP;  in integer_constant()
558 	  expressionP->X_add_number = 0;  in integer_constant()
579 	  expressionP->X_op = O_symbol;  in integer_constant()
580 	  expressionP->X_add_symbol = symbolP;  in integer_constant()
581 	  expressionP->X_add_number = 0;  in integer_constant()
585 	  expressionP->X_op = O_constant;  in integer_constant()
586 	  expressionP->X_add_number = number;  in integer_constant()
593       expressionP->X_op = O_big;  in integer_constant()
594       expressionP->X_add_number = number;	/* Number of littlenums.  */  in integer_constant()
602 mri_char_constant (expressionS *expressionP)  in mri_char_constant()  argument
609       expressionP->X_op = O_constant;  in mri_char_constant()
610       expressionP->X_add_number = 0;  in mri_char_constant()
668       expressionP->X_op = O_big;  in mri_char_constant()
669       expressionP->X_add_number = i;  in mri_char_constant()
673       expressionP->X_op = O_constant;  in mri_char_constant()
675 	expressionP->X_add_number = generic_bignum[0] & LITTLENUM_MASK;  in mri_char_constant()
677 	expressionP->X_add_number =  in mri_char_constant()
714 operand (expressionS *expressionP, enum expr_mode mode)  in operand()  argument
727   expressionP->X_unsigned = 1;  in operand()
752 			expressionP);  in operand()
760       integer_constant (16, expressionP);  in operand()
766       integer_constant (2, expressionP);  in operand()
783 	      integer_constant (0, expressionP);  in operand()
798 	      integer_constant (0, expressionP);  in operand()
807 	      floating_constant (expressionP);  in operand()
808 	      expressionP->X_add_number = - TOLOWER (c);  in operand()
813 	      expressionP->X_op = O_constant;  in operand()
814 	      expressionP->X_add_number = 0;  in operand()
824 	  integer_constant (16, expressionP);  in operand()
842 		  integer_constant (10, expressionP);  in operand()
852 	  integer_constant (2, expressionP);  in operand()
865 			    expressionP);  in operand()
906 	      integer_constant (10, expressionP);  in operand()
918 	      integer_constant (0, expressionP);  in operand()
929 	  floating_constant (expressionP);  in operand()
930 	  expressionP->X_add_number = - TOLOWER (c);  in operand()
936 	      integer_constant (10, expressionP);  in operand()
951 	segment = expression (expressionP);  in operand()
953 	segment = deferred_expression (expressionP);  in operand()
983 	  expressionP->X_op = O_constant;  in operand()
984 	  expressionP->X_add_number = *input_line_pointer++;  in operand()
988       mri_char_constant (expressionP);  in operand()
1011 	operand (expressionP, mode);  in operand()
1012 	if (expressionP->X_op == O_constant)  in operand()
1017 		expressionP->X_add_number = - expressionP->X_add_number;  in operand()
1021 		expressionP->X_unsigned = 0;  in operand()
1024 	      expressionP->X_add_number = ~ expressionP->X_add_number;  in operand()
1026 	      expressionP->X_add_number = ! expressionP->X_add_number;  in operand()
1028 	else if (expressionP->X_op == O_big  in operand()
1029 		 && expressionP->X_add_number <= 0  in operand()
1040 	else if (expressionP->X_op == O_big  in operand()
1041 		 && expressionP->X_add_number > 0)  in operand()
1047 		for (i = 0; i < expressionP->X_add_number; ++i)  in operand()
1051 		if (expressionP->X_add_number < SIZE_OF_LARGE_NUMBER)  in operand()
1053 		    expressionP->X_add_number = SIZE_OF_LARGE_NUMBER;  in operand()
1054 		    for (; i < expressionP->X_add_number; ++i)  in operand()
1059 		  for (i = 0; i < expressionP->X_add_number; ++i)  in operand()
1068 		for (i = 0; i < expressionP->X_add_number; ++i)  in operand()
1071 		expressionP->X_add_number = i >= expressionP->X_add_number;  in operand()
1072 		expressionP->X_op = O_constant;  in operand()
1073 		expressionP->X_unsigned = 1;  in operand()
1076 	else if (expressionP->X_op != O_illegal  in operand()
1077 		 && expressionP->X_op != O_absent)  in operand()
1081 		expressionP->X_add_symbol = make_expr_symbol (expressionP);  in operand()
1083 		  expressionP->X_op = O_uminus;  in operand()
1085 		  expressionP->X_op = O_bit_not;  in operand()
1087 		  expressionP->X_op = O_logical_not;  in operand()
1088 		expressionP->X_add_number = 0;  in operand()
1109 	  integer_constant (16, expressionP);  in operand()
1116       current_location (expressionP);  in operand()
1123 	  current_location (expressionP);  in operand()
1156 	      expressionP->X_op = O_symbol;  in operand()
1157 	      expressionP->X_add_symbol = symbolP;  in operand()
1158 	      expressionP->X_add_number = 0;  in operand()
1177       expressionP->X_op = O_absent;  in operand()
1185       integer_constant (2, expressionP);  in operand()
1191       integer_constant (8, expressionP);  in operand()
1202       integer_constant (16, expressionP);  in operand()
1209       current_location (expressionP);  in operand()
1230 	  if (md_parse_name (name, expressionP, mode, &c))  in operand()
1265 	      expressionP->X_op = O_symbol;  in operand()
1266 	      expressionP->X_add_symbol = symbolP;  in operand()
1267 	      expressionP->X_add_number = 0;  in operand()
1283 	      expressionP->X_op = O_constant;  in operand()
1284 	      expressionP->X_add_number = S_GET_VALUE (symbolP);  in operand()
1288 	      expressionP->X_op = O_register;  in operand()
1289 	      expressionP->X_add_number = S_GET_VALUE (symbolP);  in operand()
1293 	      expressionP->X_op = O_symbol;  in operand()
1294 	      expressionP->X_add_symbol = symbolP;  in operand()
1295 	      expressionP->X_add_number = 0;  in operand()
1306 	  expressionP->X_op = O_absent;  in operand()
1308 	  md_operand (expressionP);  in operand()
1309 	  if (expressionP->X_op == O_absent)  in operand()
1313 	      expressionP->X_op = O_constant;  in operand()
1314 	      expressionP->X_add_number = 0;  in operand()
1322   clean_up_expression (expressionP);  in operand()
1327   if (expressionP->X_add_symbol)  in operand()
1328     symbol_mark_used (expressionP->X_add_symbol);  in operand()
1330   expressionP->X_add_symbol = symbol_clone_if_forward_ref (expressionP->X_add_symbol);  in operand()
1331   expressionP->X_op_symbol = symbol_clone_if_forward_ref (expressionP->X_op_symbol);  in operand()
1333   switch (expressionP->X_op)  in operand()
1338       return S_GET_SEGMENT (expressionP->X_add_symbol);  in operand()
1354 clean_up_expression (expressionS *expressionP)  in clean_up_expression()  argument
1356   switch (expressionP->X_op)  in clean_up_expression()
1360       expressionP->X_add_number = 0;  in clean_up_expression()
1365       expressionP->X_add_symbol = NULL;  in clean_up_expression()
1370       expressionP->X_op_symbol = NULL;  in clean_up_expression()
1904 resolve_expression (expressionS *expressionP)  in resolve_expression()  argument
1907   valueT final_val = expressionP->X_add_number;  in resolve_expression()
1908   symbolS *add_symbol = expressionP->X_add_symbol;  in resolve_expression()
1909   symbolS *op_symbol = expressionP->X_op_symbol;  in resolve_expression()
1910   operatorT op = expressionP->X_op;  in resolve_expression()
2145       else if (add_symbol != expressionP->X_add_symbol)  in resolve_expression()
2147       expressionP->X_add_symbol = add_symbol;  in resolve_expression()
2149   expressionP->X_op = op;  in resolve_expression()
2153   expressionP->X_add_number = final_val;  in resolve_expression()