Changeset 16142


Ignore:
Timestamp:
Jul 27, 2014, 8:00:24 AM (7 years ago)
Author:
gb
Message:

From trunk.

Location:
branches/pinsn/source
Files:
3 edited

Legend:

Unmodified
Added
Removed
  • branches/pinsn/source/level-0/X86/x86-array.lisp

    r16085 r16142  
    231231    (extract-subtag a imm0)
    232232    (addq (@ target::arrayH.displacement (% temp)) (% offset))
    233     (rcmp (% imm0) ($ target::subtag-vectorH))
    234233    (movq (% a) (% temp))
    235     (jle @loop)
     234    (cmp ($ target::subtag-vectorH) (% imm0))
     235    (je @loop)
    236236    (push (% a))
     237    (cmp ($ target::subtag-arrayH) (% imm0))
     238    (je @loop)
    237239    (push (% offset))
    238240    (set-nargs 2)
  • branches/pinsn/source/level-0/nfasload.lisp

    r16085 r16142  
    702702
    703703(deffaslop $fasl-complex (s)
    704   (let* ((realpart (%fasl-expr s))
    705          (imagpart (%fasl-expr s))
     704  (let* ((realpart (%fasl-expr-preserve-epush s))
     705         (imagpart (%fasl-expr-preserve-epush s))
    706706         (c (complex realpart imagpart)))
    707707    (%epushval s c)
  • branches/pinsn/source/lisp-kernel/gc-common.c

    r15842 r16142  
    288288        pairp[0] = slot_unbound;
    289289        pairp[1] = empty_value;
    290         hashp->count += (1<<fixnumshift);
     290        hashp->count -= (1<<fixnumshift);
    291291        if (!keys_frozen) {
    292292          hashp->deleted_count += (1<<fixnumshift);
Note: See TracChangeset for help on using the changeset viewer.