When IMCC can't find a file, actually tell the user the name of the f…

…ile that can't be found. not_gerd++ for the find.
parrot · Aug 23, 2011 · 965e04d · 965e04d
1 parent c52abd8
commit 965e04d
Show file tree

Hide file tree

Showing 2 changed files with 2 additions and 2 deletions.
diff --git a/compilers/imcc/imcc.l b/compilers/imcc/imcc.l
@@ -1200,7 +1200,7 @@ include_file(ARGMOD(imc_info_t *imcc), ARGIN(STRING *file_name), void *yyscanner
     if (STRING_IS_NULL(s)
     ||  (file = PIO_OPEN(imcc->interp, s, PIO_F_READ)) == PIO_INVALID_HANDLE) {
         IMCC_fataly(imcc, EXCEPTION_EXTERNAL_ERROR,
-            "No such file or directory");
+            "No such file or directory '%Ss'", file_name);
     }
 
     frame->s.file   = file_name;

diff --git a/compilers/imcc/imclexer.c b/compilers/imcc/imclexer.c
@@ -5391,7 +5391,7 @@ include_file(ARGMOD(imc_info_t *imcc), ARGIN(STRING *file_name), void *yyscanner
     if (STRING_IS_NULL(s)
     ||  (file = PIO_OPEN(imcc->interp, s, PIO_F_READ)) == PIO_INVALID_HANDLE) {
         IMCC_fataly(imcc, EXCEPTION_EXTERNAL_ERROR,
-            "No such file or directory");
+            "No such file or directory '%Ss'", file_name);
     }
 
     frame->s.file   = file_name;