Update intrinsic mangling for llvm15

Author: Bike

src/lisp/kernel/cleavir/landing-pad.lisp

@@ -140,7 +140,7 @@
 
 (defmethod dynenv-frame ((dynenv bir:dynamic-environment))
   ;; default: just grab the frame pointer
-  (%intrinsic-call "llvm.frameaddress.p0i8" (list (%i32 0))
+  (%intrinsic-call "llvm.frameaddress.p0" (list (%i32 0))
                    "frame"))
 
 (defmethod dynenv-frame ((dynenv bir:come-from))

src/lisp/kernel/cleavir/translate.lisp

@@ -411,7 +411,7 @@
                    come-from *clasp-system*))
          (frame
            (unless simplep
-             (%intrinsic-call "llvm.frameaddress.p0i8"
+             (%intrinsic-call "llvm.frameaddress.p0"
                               (list (%i32 0)))))
          (normal-successor (first successors))
          (bufp (cmp:alloca cmp::%jmp-buf-tag% 1 "come-from-jmp-buf")))
@@ -613,7 +613,7 @@
                              'insert-step-conditions)
     (let ((origin (bir:origin inst)))
       (when (typep origin 'cst:cst)
-        (let* ((frame (%intrinsic-call "llvm.frameaddress.p0i8"
+        (let* ((frame (%intrinsic-call "llvm.frameaddress.p0"
                                        (list (%i32 0)) "stepper-frame"))
                (raw (cst:raw origin))
                ;; See #1376: Sometimes the source form will be a literal.
@@ -647,7 +647,7 @@
     ;; so now we need to put in the cc_breakstep_after to support
     ;; the step-over facility.
     (%intrinsic-call "cc_breakstep_after"
-                     (list (%intrinsic-call "llvm.frameaddress.p0i8"
+                     (list (%intrinsic-call "llvm.frameaddress.p0"
                                             (list (%i32 0))
                                             "stepper-frame")))))
 
@@ -1555,7 +1555,7 @@
                                   "adjusted-nret-variable"))
                (ncopy (cmp:irc-sub adjusted-nvalues (%size_t 1) "ntocopy")))
           ;; Copy the rest
-          (%intrinsic-call "llvm.memcpy.p0i8.p0i8.i64"
+          (%intrinsic-call "llvm.memcpy.p0.p0.i64"
                            (list (cmp:irc-bit-cast dest cmp:%i8*%
                                                    "var-dest-subsequent")
                                  ;; read from the 1st value of the mv vector
@@ -1576,7 +1576,7 @@
           for dest = (cmp:irc-typed-gep-variable cmp:%t*% valvec (list startn) "dest")
           do (ecase key
                ((:saved)
-                (%intrinsic-call "llvm.memcpy.p0i8.p0i8.i64"
+                (%intrinsic-call "llvm.memcpy.p0.p0.i64"
                                  (list (cmp:irc-bit-cast dest cmp:%i8*% "dest")
                                        (cmp:irc-bit-cast extra cmp:%i8*%
                                                          "source")

src/lisp/kernel/cmp/primitives.lisp

@@ -192,8 +192,8 @@
          (primitive         "llvm.stacksave" :i8* nil)
          (primitive         "llvm.stackrestore" :void (list :i8*))
 
-         (primitive         "llvm.memcpy.p0i8.p0i8.i64" :void (list :i8* :i8* :i64 :i1))
-         (primitive         "llvm.memmove.p0i8.p0i8.i64" :void (list :i8* :i8* :i64 :i1))
+         (primitive         "llvm.memcpy.p0.p0.i64" :void (list :i8* :i8* :i64 :i1))
+         (primitive         "llvm.memmove.p0.p0.i64" :void (list :i8* :i8* :i64 :i1))
 
          (primitive         "saveToMultipleValue0" :void (list :tmv*))
          (primitive         "restoreFromMultipleValue0" :return-type nil)
@@ -272,7 +272,7 @@
          (primitive-unwinds "cc_sjlj_continue_unwinding" :void nil :does-not-return t)
          (primitive         "cc_saveMultipleValue0" :void (list :tmv))
          (primitive         "cc_restoreMultipleValue0" :return-type nil)
-         (primitive         "llvm.frameaddress.p0i8" :i8* (list :i32))
+         (primitive         "llvm.frameaddress.p0" :i8* (list :i32))
          (primitive-unwinds "cc_landingpadUnwindMatchFrameElseRethrow" :size_t (list :i8* :i8*))
 
          ;; Compiler translators (calls generated by Cleavir)