Changeset 16805
 Timestamp:
 Dec 22, 2016, 4:25:18 PM (3 years ago)
 File:

 1 edited
Legend:
 Unmodified
 Added
 Removed

trunk/source/level0/l0array.lisp
r16685 r16805 766 766 (if (= subtag target::subtagdoublefloatvector) 767 767 6 768 0))))) 768 (if (= subtag target::subtagcomplexdoublefloatvector) 769 (returnfrom subtagbytes 770 ;; There's a 32bit pad at the beginning of the vector. 771 (+ 4 (ash elementcount 4))) 772 (if (= subtag target::subtagcomplexsinglefloatvector) 773 (returnfrom subtagbytes 774 ;; There's a 32bit pad at the beginning of the vector. 775 (+ 4 (ash elementcount 3))) 776 0))))))) 769 777 (totalbits (ash elementcount elementbitshift))) 770 778 (ash (+ 7 totalbits) 3))) … … 804 812 (if (= subtag x8632::subtagdoublefloatvector) 805 813 6 806 0))))) 814 (if (= subtag x8632::subtagcomplexdoublefloatvector) 815 (returnfrom subtagbytes 816 ;; There's a 32bit pad at the beginning of the vector. 817 (+ 4 (ash elementcount 4))) 818 (if (= subtag x8632::subtagcomplexsinglefloatvector) 819 (returnfrom subtagbytes 820 ;; There's a 32bit pad at the beginning of the vector. 821 (+ 4 (ash elementcount 3))) 822 0))))))) 807 823 (totalbits (ash elementcount elementbitshift))) 808 824 (ash (+ 7 totalbits) 3))) … … 824 840 (if (= subtag x8664::subtagbitvector) 825 841 0 826 (if (>= subtag x8664::min8bitivectorsubtag) 827 3 828 4))))) 842 (if (= subtag x8664::subtagcomplexdoublefloatvector) 843 (returnfrom subtagbytes 844 ;; There's a 64bit pad at the beginning of the vector. 845 (+ 8 (ash elementcount 4))) 846 (if (>= subtag x8664::min8bitivectorsubtag) 847 3 848 4)))))) 829 849 (totalbits (ash elementcount elementbitshift))) 830 850 (declare (fixnum ivectorclass elementbitshift totalbits))
Note: See TracChangeset
for help on using the changeset viewer.