Changeset 32542 in project


Ignore:
Timestamp:
07/04/15 20:15:44 (6 years ago)
Author:
sjamaan
Message:

numbers: Remove another unused variable from allocation function and use inlined record allocation.

File:
1 edited

Legend:

Unmodified
Added
Removed
  • release/4/numbers/trunk/numbers-c.c

    r32541 r32542  
    15941594  C_word ab[C_SIZEOF_STRUCTURE(2)], *a = ab, bignum,
    15951595         k = C_block_item(self, 1),
    1596          negp = C_truep(C_block_item(self, 2)),
    1597          size = C_bytestowords(C_header_size(bigvec))-1;
    1598 
    1599   C_word tagvec = CHICKEN_gc_root_ref(tags);
     1596         negp = C_truep(C_block_item(self, 2)) ? 1 : 0,
     1597         tagvec = CHICKEN_gc_root_ref(tags);
    16001598
    16011599  C_set_block_item(bigvec, 0, negp);
    16021600
    1603   bignum = C_structure(&a, 2, C_block_item(tagvec, BIG_TAG), bigvec);
     1601  bignum = C_a_i_record2(&a, 2, C_block_item(tagvec, BIG_TAG), bigvec);
    16041602  C_kontinue(k, bignum);
    16051603}
Note: See TracChangeset for help on using the changeset viewer.