[gcc/devel/rust/master] intrinsics: Add `sorry_handler` intrinsic handler

[Thomas Schwinge <tschwinge@gcc.gnu.org>]

https://gcc.gnu.org/g:83e5265d6af48e1572cbe019b4b7f7a5603086a9

commit 83e5265d6af48e1572cbe019b4b7f7a5603086a9
Author: Arthur Cohen <arthur.cohen@embecosm.com>
Date:   Tue Oct 25 10:48:43 2022 +0200

    intrinsics: Add `sorry_handler` intrinsic handler
    
    This allows us to define intrinsics without implementing their body.
    This will be useful for atomic intrinsics for example, as there are a
    lot of them and we should work on implementing them one by one properly
    and slowly

Diff:
---
 gcc/rust/backend/rust-compile-intrinsic.cc         | 10 ++++++++++
 gcc/testsuite/rust/compile/torture/intrinsics-3.rs |  9 +++++++++
 2 files changed, 19 insertions(+)

diff --git a/gcc/rust/backend/rust-compile-intrinsic.cc b/gcc/rust/backend/rust-compile-intrinsic.cc
index a418b863210..2a2091ccc25 100644
--- a/gcc/rust/backend/rust-compile-intrinsic.cc
+++ b/gcc/rust/backend/rust-compile-intrinsic.cc
@@ -93,6 +93,15 @@ prefetch_write_data (Context *ctx, TyTy::FnType *fntype)
   return prefetch_data_handler (ctx, fntype, Prefetch::Write);
 }
 
+static inline tree
+sorry_handler (Context *ctx, TyTy::FnType *fntype)
+{
+  rust_sorry_at (fntype->get_locus (), "intrinsic %qs is not yet implemented",
+		 fntype->get_identifier ().c_str ());
+
+  return error_mark_node;
+}
+
 static const std::map<std::string,
 		      std::function<tree (Context *, TyTy::FnType *)>>
   generic_intrinsics = {
@@ -107,6 +116,7 @@ static const std::map<std::string,
     {"copy_nonoverlapping", &copy_nonoverlapping_handler},
     {"prefetch_read_data", &prefetch_read_data},
     {"prefetch_write_data", &prefetch_write_data},
+    {"atomic_load", &sorry_handler},
 };
 
 Intrinsics::Intrinsics (Context *ctx) : ctx (ctx) {}
diff --git a/gcc/testsuite/rust/compile/torture/intrinsics-3.rs b/gcc/testsuite/rust/compile/torture/intrinsics-3.rs
new file mode 100644
index 00000000000..1acb3533c08
--- /dev/null
+++ b/gcc/testsuite/rust/compile/torture/intrinsics-3.rs
@@ -0,0 +1,9 @@
+extern "rust-intrinsic" {
+    fn not_an_intrinsic();
+    fn atomic_load(); // { dg-message "sorry, unimplemented: intrinsic .atomic_load. is not yet implemented" }
+}
+
+fn main() {
+    unsafe { not_an_intrinsic() }; // { dg-error "unknown builtin intrinsic: not_an_intrinsic" }
+    unsafe { atomic_load() };
+}