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()
220 floating_constant (expressionS *expressionP)  in floating_constant()  argument
240   expressionP->X_op = O_big;  in floating_constant()
243   expressionP->X_add_number = -1;  in floating_constant()
273 integer_constant (int radix, expressionS *expressionP)  in integer_constant()  argument
343 	      floating_constant (expressionP);  in integer_constant()
550 	      expressionP->X_op = O_symbol;  in integer_constant()
551 	      expressionP->X_add_symbol = symbolP;  in integer_constant()
560 	      expressionP->X_op = O_constant;  in integer_constant()
563 	  expressionP->X_add_number = 0;  in integer_constant()
582 	  expressionP->X_op = O_symbol;  in integer_constant()
583 	  expressionP->X_add_symbol = symbolP;  in integer_constant()
584 	  expressionP->X_add_number = 0;  in integer_constant()
605 	  expressionP->X_op = O_symbol;  in integer_constant()
606 	  expressionP->X_add_symbol = symbolP;  in integer_constant()
607 	  expressionP->X_add_number = 0;  in integer_constant()
611 	  expressionP->X_op = O_constant;  in integer_constant()
616 	  expressionP->X_add_number = number;  in integer_constant()
623       expressionP->X_op = O_big;  in integer_constant()
624       expressionP->X_add_number = number;	/* Number of littlenums.  */  in integer_constant()
632 mri_char_constant (expressionS *expressionP)  in mri_char_constant()  argument
639       expressionP->X_op = O_constant;  in mri_char_constant()
640       expressionP->X_add_number = 0;  in mri_char_constant()
698       expressionP->X_op = O_big;  in mri_char_constant()
699       expressionP->X_add_number = i;  in mri_char_constant()
703       expressionP->X_op = O_constant;  in mri_char_constant()
705 	expressionP->X_add_number = generic_bignum[0] & LITTLENUM_MASK;  in mri_char_constant()
707 	expressionP->X_add_number =  in mri_char_constant()
744 operand (expressionS *expressionP)  in operand()  argument
757   expressionP->X_unsigned = 1;  in operand()
782 			expressionP);  in operand()
790       integer_constant (16, expressionP);  in operand()
796       integer_constant (2, expressionP);  in operand()
813 	      integer_constant (0, expressionP);  in operand()
828 	      integer_constant (0, expressionP);  in operand()
837 	      floating_constant (expressionP);  in operand()
838 	      expressionP->X_add_number = - TOLOWER (c);  in operand()
843 	      expressionP->X_op = O_constant;  in operand()
844 	      expressionP->X_add_number = 0;  in operand()
854 	  integer_constant (16, expressionP);  in operand()
872 		  integer_constant (10, expressionP);  in operand()
882 	  integer_constant (2, expressionP);  in operand()
895 			    expressionP);  in operand()
936 	      integer_constant (10, expressionP);  in operand()
948 	      integer_constant (0, expressionP);  in operand()
959 	  floating_constant (expressionP);  in operand()
960 	  expressionP->X_add_number = - TOLOWER (c);  in operand()
966 	      integer_constant (10, expressionP);  in operand()
980       segment = expression (expressionP);  in operand()
1015 	  expressionP->X_op = O_constant;  in operand()
1016 	  expressionP->X_add_number = *input_line_pointer++;  in operand()
1020       mri_char_constant (expressionP);  in operand()
1028       (void) operand (expressionP);  in operand()
1050 	operand (expressionP);  in operand()
1051 	if (expressionP->X_op == O_constant)  in operand()
1056 		expressionP->X_add_number = - expressionP->X_add_number;  in operand()
1060 		expressionP->X_unsigned = 0;  in operand()
1063 	      expressionP->X_add_number = ~ expressionP->X_add_number;  in operand()
1065 	      expressionP->X_add_number = ! expressionP->X_add_number;  in operand()
1067 	else if (expressionP->X_op == O_big  in operand()
1068 		 && expressionP->X_add_number <= 0  in operand()
1079 	else if (expressionP->X_op == O_big  in operand()
1080 		 && expressionP->X_add_number > 0)  in operand()
1086 		for (i = 0; i < expressionP->X_add_number; ++i)  in operand()
1090 		if (expressionP->X_add_number < SIZE_OF_LARGE_NUMBER)  in operand()
1092 		    expressionP->X_add_number = SIZE_OF_LARGE_NUMBER;  in operand()
1093 		    for (; i < expressionP->X_add_number; ++i)  in operand()
1098 		  for (i = 0; i < expressionP->X_add_number; ++i)  in operand()
1107 		for (i = 0; i < expressionP->X_add_number; ++i)  in operand()
1110 		expressionP->X_add_number = i >= expressionP->X_add_number;  in operand()
1111 		expressionP->X_op = O_constant;  in operand()
1112 		expressionP->X_unsigned = 1;  in operand()
1115 	else if (expressionP->X_op != O_illegal  in operand()
1116 		 && expressionP->X_op != O_absent)  in operand()
1118 	    expressionP->X_add_symbol = make_expr_symbol (expressionP);  in operand()
1120 	      expressionP->X_op = O_uminus;  in operand()
1122 	      expressionP->X_op = O_bit_not;  in operand()
1124 	      expressionP->X_op = O_logical_not;  in operand()
1125 	    expressionP->X_add_number = 0;  in operand()
1145 	  integer_constant (16, expressionP);  in operand()
1152       current_location (expressionP);  in operand()
1159 	  current_location (expressionP);  in operand()
1192 	      expressionP->X_op = O_symbol;  in operand()
1193 	      expressionP->X_add_symbol = symbolP;  in operand()
1194 	      expressionP->X_add_number = 0;  in operand()
1213       expressionP->X_op = O_absent;  in operand()
1221       integer_constant (2, expressionP);  in operand()
1227       integer_constant (8, expressionP);  in operand()
1238       integer_constant (16, expressionP);  in operand()
1245       current_location (expressionP);  in operand()
1266 	  if (md_parse_name (name, expressionP, &c))  in operand()
1301 	      expressionP->X_op = O_symbol;  in operand()
1302 	      expressionP->X_add_symbol = symbolP;  in operand()
1303 	      expressionP->X_add_number = 0;  in operand()
1319 	      expressionP->X_op = O_constant;  in operand()
1320 	      expressionP->X_add_number = S_GET_VALUE (symbolP);  in operand()
1324 	      expressionP->X_op = O_register;  in operand()
1325 	      expressionP->X_add_number = S_GET_VALUE (symbolP);  in operand()
1329 	      expressionP->X_op = O_symbol;  in operand()
1330 	      expressionP->X_add_symbol = symbolP;  in operand()
1331 	      expressionP->X_add_number = 0;  in operand()
1342 	  expressionP->X_op = O_absent;  in operand()
1344 	  md_operand (expressionP);  in operand()
1345 	  if (expressionP->X_op == O_absent)  in operand()
1349 	      expressionP->X_op = O_constant;  in operand()
1350 	      expressionP->X_add_number = 0;  in operand()
1358   clean_up_expression (expressionP);  in operand()
1363   if (expressionP->X_add_symbol)  in operand()
1364     symbol_mark_used (expressionP->X_add_symbol);  in operand()
1366   switch (expressionP->X_op)  in operand()
1371       return S_GET_SEGMENT (expressionP->X_add_symbol);  in operand()
1387 clean_up_expression (expressionS *expressionP)  in clean_up_expression()  argument
1389   switch (expressionP->X_op)  in clean_up_expression()
1393       expressionP->X_add_number = 0;  in clean_up_expression()
1398       expressionP->X_add_symbol = NULL;  in clean_up_expression()
1403       expressionP->X_op_symbol = NULL;  in clean_up_expression()