Skip to content
Snippets Groups Projects

Compare revisions

Changes are shown as if the source revision was being merged into the target revision. Learn more about comparing revisions.

Source

Select target project
No results found

Target

Select target project
  • cmucl/cmucl
  • pfominykh/cmucl
  • yitzchak/cmucl
  • rkreuter/cmucl
  • cshapiro/cmucl
5 results
Show changes
Commits on Source (3)
......@@ -130,6 +130,7 @@
,@(when restore-fixnum-mask
`((:temporary (:sc non-descriptor-reg) temp)))
(:generator 2
(emit-not-implemented)
,(if arg-swap
`(inst ,op ,(if restore-fixnum-mask 'temp 'r) y x)
`(inst ,op ,(if restore-fixnum-mask 'temp 'r) x y))
......@@ -142,6 +143,7 @@
,@(when restore-fixnum-mask
`((:temporary (:sc non-descriptor-reg) temp)))
(:generator 1
(emit-not-implemented)
(inst ,op ,(if restore-fixnum-mask 'temp 'r) x (fixnumize y))
,@(when restore-fixnum-mask
`((inst andn r temp fixnum-tag-mask)))))))
......@@ -149,6 +151,7 @@
fast-signed-binop)
(:translate ,translate)
(:generator ,(1+ untagged-penalty)
(emit-not-implemented)
,(if arg-swap
`(inst ,op r y x)
`(inst ,op r x y))))
......@@ -157,11 +160,13 @@
fast-signed-binop-c)
(:translate ,translate)
(:generator ,untagged-penalty
(emit-not-implemented)
(inst ,op r x y)))))
(define-vop (,(symbolicate "FAST-" translate "/UNSIGNED=>UNSIGNED")
fast-unsigned-binop)
(:translate ,translate)
(:generator ,(1+ untagged-penalty)
(emit-not-implemented)
,(if arg-swap
`(inst ,op r y x)
`(inst ,op r x y))))
......@@ -170,6 +175,7 @@
fast-unsigned-binop-c)
(:translate ,translate)
(:generator ,untagged-penalty
(emit-not-implemented)
(inst ,op r x y)))))))
); eval-when
......@@ -211,6 +217,7 @@
(:constant (or (and (unsigned-byte 12) (not (integer 0 0)))
(integer #xfffff000 #xffffffff))))
(:generator 2 ; Needs to be low to give this vop a chance.
(emit-not-implemented)
(cond ((= y #xffffffff)
(move r x))
((typep y '(unsigned-byte 13))
......@@ -231,6 +238,7 @@
(:note _N"inline 32-bit abs")
(:temporary (:scs (signed-reg)) y)
(:generator 1
(emit-not-implemented)
;; From Hacker's Delight
;;
;; abs(x) = (x ^ y) - y, where y = x >> 31 (signed shift)
......
......@@ -2346,12 +2346,16 @@ about function addresses and register values.")
(emit-compute-inst segment vop dst src label temp
#'(lambda (label posn delta-if-after)
(when c::*compiler-trace-output*
(format c::*compiler-trace-output* "COMPUTE-CODE-FROM=LRA~%")
(format c::*compiler-trace-output* "label posn delta-if-after = ~A ~A ~A~%"
(format c::*compiler-trace-output*
"COMPUTE-CODE-FROM=FN~%")
(format c::*compiler-trace-output*
"label posn delta-if-after = ~A ~A ~A~%"
label posn delta-if-after)
(format c::*compiler-trace-output* "label-position = ~A~%"
(format c::*compiler-trace-output*
"label-position = ~A~%"
(label-position label posn delta-if-after))
(format c::*compiler-trace-output* "header-len = ~A~%"
(format c::*compiler-trace-output*
"header-len = ~A~%"
(component-header-length))
(format c::*compiler-trace-output*
"Final offset = ~A~%"
......@@ -2413,12 +2417,16 @@ about function addresses and register values.")
(emit-compute-inst segment vop dst src label temp
#'(lambda (label posn delta-if-after)
(when c::*compiler-trace-output*
(format c::*compiler-trace-output* "COMPUTE-LRA-FROM-CODE~%")
(format c::*compiler-trace-output* "label posn delta-if-after = ~A ~A ~A~%"
(format c::*compiler-trace-output*
"COMPUTE-LRA-FROM-CODE~%")
(format c::*compiler-trace-output*
"label posn delta-if-after = ~A ~A ~A~%"
label posn delta-if-after)
(format c::*compiler-trace-output* "label-position = ~A~%"
(format c::*compiler-trace-output*
"label-position = ~A~%"
(label-position label posn delta-if-after))
(format c::*compiler-trace-output* "header-len = ~A~%"
(format c::*compiler-trace-output*
"header-len = ~A~%"
(component-header-length))
(format c::*compiler-trace-output*
"Final offset = ~A~%"
......
......@@ -119,7 +119,7 @@
(comf "target:code/globals")
(comf "target:code/kernel")
(comf "target:code/lispinit")
(comf "target:code/lispinit" :trace-file t)
(comf "target:pcl/walk")
(comf "target:code/fwrappers")
(comf "target:code/fdefinition")
......@@ -325,7 +325,7 @@
(let ((c:*compile-time-define-macros* nil))
(comf "target:code/defstruct")
(comf "target:code/defmacro" :byte-compile *byte-compile*)
(comf "target:compiler/globaldb")
(comf "target:compiler/globaldb" :trace-file t)
(comf "target:code/macros")
#-no-runtime (comf "target:code/macros" :byte-compile t))
......