[committed 058/103] gccrs: intrinsics: Add `sorry_handler` intrinsic handler

[arthur . cohen]

From: Arthur Cohen <arthur.co...@embecosm.com>

gcc/rust/ChangeLog:

        * backend/rust-compile-intrinsic.cc (sorry_handler): New intrinsic 
handler.

gcc/testsuite/ChangeLog:

        * rust/compile/torture/intrinsics-3.rs: New test.
---
 gcc/rust/backend/rust-compile-intrinsic.cc         | 10 ++++++++++
 gcc/testsuite/rust/compile/torture/intrinsics-3.rs |  9 +++++++++
 2 files changed, 19 insertions(+)
 create mode 100644 gcc/testsuite/rust/compile/torture/intrinsics-3.rs

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() };
+}
-- 
2.39.1