emacs-diffs
[Top][All Lists]
Advanced

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

feature/native-comp 0179d95 6/9: * comp.c (native-elisp-load): Guard aga


From: Andrea Corallo
Subject: feature/native-comp 0179d95 6/9: * comp.c (native-elisp-load): Guard against misisng file.
Date: Thu, 19 Mar 2020 14:41:52 -0400 (EDT)

branch: feature/native-comp
commit 0179d95630ff5864c14b8dfcefaa131ecd44c1e2
Author: Andrea Corallo <address@hidden>
Commit: Andrea Corallo <address@hidden>

    * comp.c (native-elisp-load): Guard against misisng file.
---
 src/comp.c | 4 +++-
 1 file changed, 3 insertions(+), 1 deletion(-)

diff --git a/src/comp.c b/src/comp.c
index d645b59..55e6e96 100644
--- a/src/comp.c
+++ b/src/comp.c
@@ -3566,7 +3566,9 @@ DEFUN ("native-elisp-load", Fnative_elisp_load, 
Snative_elisp_load, 1, 2, 0,
   (Lisp_Object file, Lisp_Object late_load)
 {
   CHECK_STRING (file);
-
+  if (NILP (Ffile_exists_p (file)))
+    xsignal2 (Qnative_lisp_load_failed, build_string ("file does not exists"),
+             file);
   struct Lisp_Native_Comp_Unit *comp_u = allocate_native_comp_unit();
   comp_u->handle = dynlib_open (SSDATA (file));
   if (!comp_u->handle)



reply via email to

[Prev in Thread] Current Thread [Next in Thread]