GitLab

at 2026-03-26T07:02:22-07:00

Fix error in computing fixup kind for movz/movk

Was calling intern on a symbol (symbolicate).  Replace it with a
simple format that returns a string for intern.

[skip-ci]

                 (emit-format-move-wide segment ,sf ,opc #b100101 hw src

                                        (reg-tn-encoding rd)))

                (fixup

-                (let ((fixup-name (intern

-                                   (symbolicate (symbol-name ,fixup-kind)

-                                                (format nil "-~D" lsl))

-                                   :keyword)))

+                (let ((fixup-name (intern (format nil "~A-~D" ,fixup-kind lsl)

+					  :keyword)))

                   ;; Fixup names are like :movz-0, :movz-16, :movz-32, :movz-48.

                   (note-fixup segment fixup-name src))

                 (emit-format-move-wide segment ,sf ,opc #b100101 hw 0

Raymond Toy pushed to branch arm64-dev-1 at cmucl / cmucl

Commits:

1 changed file:

Changes: