| 30 | | B214 unalStoreSize (real_fix_dec_4bit_bytealigned_ls_dtype): /* +1 for sign nibble + round up to full word boundary. */ |
| 31 | | B215 call st(BOUNDARY.Word, |
| 32 | | B216 divide( dsize + 1 + (packed_digits_per_character * characters_per_word) - 1, |
| 33 | | B217 (packed_digits_per_character * characters_per_word), |
| 34 | | B218 24, 0)); |
| 35 | | B219 unalStoreSize (real_flt_dec_4bit_bytealigned_dtype): /* +1 for sign nibble +2 for the binary exponent field */ |
| 36 | | B220 /* rounded up to full word boundary */ |
| 37 | | B221 call st(BOUNDARY.Byte, |
| 38 | | B222 divide( dsize + 3 + (packed_digits_per_character * characters_per_word) - 1, |
| 39 | | B223 (packed_digits_per_character * characters_per_word), |
| 40 | | B224 24, 0)); |
| | 30 | B242 unalStoreSize (real_fix_dec_4bit_bytealigned_ls_dtype): /* +1 for sign nibble + round up to end on word boundary. */ |
| | 31 | B243 call st(BOUNDARY.Word, |
| | 32 | B244 divide( dsize + 1 + |
| | 33 | B245 (packed_digits_per_character * characters_per_word) - 1, |
| | 34 | B246 (packed_digits_per_character * characters_per_word), 24, 0); |
| | 35 | B247 unalStoreSize (real_flt_dec_4bit_bytealigned_dtype): /* +1 for sign nibble +2 for the binary exponent field */ |
| | 36 | B248 /* rounded up to full word boundary */ |
| | 37 | B249 call st(BOUNDARY.Word, |
| | 38 | B250 divide( dsize + 3 + |
| | 39 | B251 (packed_digits_per_character * characters_per_word) - 1, |
| | 40 | B252 (packed_digits_per_character * characters_per_word), 24, 0); |