Raymond Toy pushed to branch sparc64-dev at cmucl / cmucl

Commits:

1 changed file:

Changes:

  • src/compiler/sparc64/insts.lisp
    ... ... @@ -21,7 +21,7 @@
    21 21
     (use-package "C")
    
    22 22
     
    
    23 23
     (def-assembler-params
    
    24
    -    :scheduler-p t
    
    24
    +    :scheduler-p nil
    
    25 25
       :max-locations 101)
    
    26 26
     
    
    27 27
     
    
    ... ... @@ -395,6 +395,7 @@ about function addresses and register values.")
    395 395
     						'registers
    
    396 396
     						regname
    
    397 397
     						dstate)
    
    398
    +    #+nil
    
    398 399
         (maybe-add-notes value dstate)))
    
    399 400
     ) ; eval-when
    
    400 401
           
    
    ... ... @@ -1273,6 +1274,7 @@ about function addresses and register values.")
    1273 1274
         ;; Save the immediate value and the destination register from this
    
    1274 1275
         ;; sethi instruction.  This is used later to print some possible
    
    1275 1276
         ;; notes about the value loaded by sethi.
    
    1277
    +    #+nil
    
    1276 1278
         (let* ((word (disassem::sap-ref-int (disassem:dstate-segment-sap dstate)
    
    1277 1279
     					(disassem:dstate-cur-offs dstate)
    
    1278 1280
     					vm:word-bytes
    
    ... ... @@ -1513,10 +1515,18 @@ about function addresses and register values.")
    1513 1515
         (cond (length-only
    
    1514 1516
                (values 0 (1+ length) nil nil))
    
    1515 1517
               (t
    
    1516
    -           (kernel:copy-from-system-area sap (* sparc:byte-bits (1+ offset))
    
    1517
    -                                         vector (* sparc:word-bits
    
    1518
    -                                                   sparc:vector-data-offset)
    
    1518
    +           #+nil
    
    1519
    +	   (kernel:copy-from-system-area sap
    
    1520
    +					 (* sparc:byte-bits (1+ offset))
    
    1521
    +                                         vector
    
    1522
    +					 (* sparc:word-bits
    
    1523
    +					    sparc:vector-data-offset)
    
    1519 1524
                                              (* length sparc:byte-bits))
    
    1525
    +	   (dotimes (k length)
    
    1526
    +	     (setf (aref vector k)
    
    1527
    +		   (sys:sap-ref-8 sap (+ offset 1 k))))
    
    1528
    +	   #+nil
    
    1529
    +	   (format *debug-io* "vector = ~A~%" vector)
    
    1520 1530
                (collect ((sc-offsets)
    
    1521 1531
                          (lengths))
    
    1522 1532
                  (lengths 1)                ; the length byte