Changes between Initial Version and Version 1 of Ticket #334


Ignore:
Timestamp:
02/17/2024 02:48:01 AM (2 years ago)
Author:
Gary Dixon
Comment:

Legend:

Unmodified
Added
Removed
Modified
  • Ticket #334 – Description

    initial v1  
    2828A213                                                  call st(BOUNDARY.Byte, divide(dsize+2, packed_digits_per_character,24,0)+1);
    2929Changed by B to:
    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));
     30B242      unalStoreSize (real_fix_dec_4bit_bytealigned_ls_dtype):     /* +1 for sign nibble + round up to end on word boundary. */
     31B243                                                  call st(BOUNDARY.Word,
     32B244                                                     divide( dsize + 1 +
     33B245                                                             (packed_digits_per_character * characters_per_word) - 1,
     34B246                                                             (packed_digits_per_character * characters_per_word), 24, 0);
     35B247      unalStoreSize (real_flt_dec_4bit_bytealigned_dtype):        /* +1 for sign nibble +2 for the binary exponent field    */
     36B248                                                                  /*    rounded up to full word boundary                    */
     37B249                                                  call st(BOUNDARY.Word,
     38B250                                                     divide( dsize + 3 +
     39B251                                                             (packed_digits_per_character * characters_per_word) - 1,
     40B252                                                             (packed_digits_per_character * characters_per_word), 24, 0);
    4141}}}
    4242