From: Stas B. <sta...@gm...> - 2017-08-18 07:40:00
|
Fixed in a0c1f93da82bbc0f8c13dfb650990819f8cda7a1, thanks. On Fri, Aug 18, 2017 at 7:23 AM, Eric Marsden <eri...@fr...> wrote: >>>>>> "ecm" == Eric Marsden <eri...@fr...> writes: > > ecm> This is on SPARC32/Linux. > > Actually PowerPC32/Linux, sorry. > > > > * (lisp-implementation-version) > "1.3.20.126-55ef2a7-dirty" > * (defun foo (p1) > (declare (optimize (speed 0) (space 0)) > (type single-float p1)) > (scale-float p1 27)) > debugger invoked on a SIMPLE-ERROR: > unknown SC to SC-CASE for #<SB-C:TN t1[FDEFN]>: > SB-VM::DESCRIPTOR-REG > ((SB-C::VOP SB-KERNEL:SINGLE-FLOAT-BITS) #<SB-C::VOP :INFO SB-KERNEL:SINGLE-FLOAT-BITS :ARGS #<SB-C:TN-REF :TN #<SB\ > -C:TN P1!2[CS3]> :WRITE-P NIL :VOP SB-KERNEL:SINGLE-FLOAT-BITS> :RESULTS #<SB-C:TN-REF :TN #<SB-C:TN t3[NS0]> :WRIT\ > E-P T :VOP SB-KERNEL:SINGLE-FLOAT-BITS>>) > 0] backtrace > Backtrace for: #<SB-THREAD:THREAD "main thread" RUNNING {50D20009}> > 0: ((SB-C::VOP SB-KERNEL:SINGLE-FLOAT-BITS) #<SB-C::VOP :INFO SB-KERNEL:SINGLE-FLOAT-BITS :ARGS #<SB-C:TN-REF :TN #\ > <SB-C:TN P1!2[CS3]> :WRITE-P NIL :VOP SB-KERNEL:SINGLE-FLOAT-BITS> :RESULTS #<SB-C:TN-REF :TN #<SB-C:TN t3[NS0]> :W\ > RITE-P T :VOP SB-KERNEL:SINGLE-FLOAT-BITS>>) > 1: (SB-C::GENERATE-CODE #<SB-C:COMPONENT :NAME (SB-C::ESCAPE-FUN #:EXIT-BLOCK-0) {50D26EE1}>) > 2: (SB-C::%COMPILE-COMPONENT #<SB-C:COMPONENT :NAME (SB-C::ESCAPE-FUN #:EXIT-BLOCK-0) {50D26EE1}>) > 3: (SB-C::COMPILE-COMPONENT #<SB-C:COMPONENT :NAME (SB-C::ESCAPE-FUN #:EXIT-BLOCK-0) {50D26EE1}>) > > -- > Eric Marsden > https://risk-engineering.org/ > > > ------------------------------------------------------------------------------ > Check out the vibrant tech community on one of the world's most > engaging tech sites, Slashdot.org! http://sdm.link/slashdot > _______________________________________________ > Sbcl-devel mailing list > Sbc...@li... > https://lists.sourceforge.net/lists/listinfo/sbcl-devel -- With best regards, Stas. |