[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Guile-commits] 04/58: 'load-thunk-from-memory' reports the correct erro
From: |
Andy Wingo |
Subject: |
[Guile-commits] 04/58: 'load-thunk-from-memory' reports the correct error. |
Date: |
Tue, 7 Aug 2018 06:58:29 -0400 (EDT) |
wingo pushed a commit to branch lightning
in repository guile.
commit c5e1d6eaf4a1fa5cc6dfe18e3067f927061aeb6b
Author: Ludovic Courtès <address@hidden>
Date: Fri Dec 22 11:40:27 2017 +0100
'load-thunk-from-memory' reports the correct error.
Previously 'load-thunk-from-memory' would often throw to 'system-error'
when passed an incorrect ELF file, leading to incorrect error messages.
* libguile/loader.c (load_thunk_from_memory): Reset 'errno' when
'check_elf_header' returns non-NULL.
* test-suite/tests/vm.test: New file.
* test-suite/Makefile.am (SCM_TESTS): Add it.
---
libguile/loader.c | 7 +++++--
test-suite/Makefile.am | 1 +
test-suite/tests/vm.test | 54 ++++++++++++++++++++++++++++++++++++++++++++++++
3 files changed, 60 insertions(+), 2 deletions(-)
diff --git a/libguile/loader.c b/libguile/loader.c
index b37721c..b562693 100644
--- a/libguile/loader.c
+++ b/libguile/loader.c
@@ -1,4 +1,4 @@
-/* Copyright 2001,2009-2015,2018
+/* Copyright 2001,2009-2015,2017-2018
Free Software Foundation, Inc.
This file is part of Guile.
@@ -371,7 +371,10 @@ load_thunk_from_memory (char *data, size_t len, int
is_read_only)
header = (Elf_Ehdr*) data;
if ((err_msg = check_elf_header (header)))
- goto cleanup;
+ {
+ errno = 0; /* not an OS error */
+ goto cleanup;
+ }
if (header->e_phnum == 0)
ABORT ("no loadable segments");
diff --git a/test-suite/Makefile.am b/test-suite/Makefile.am
index bbf41b6..226e695 100644
--- a/test-suite/Makefile.am
+++ b/test-suite/Makefile.am
@@ -189,6 +189,7 @@ SCM_TESTS = tests/00-initial-env.test \
tests/version.test \
tests/vectors.test \
tests/vlist.test \
+ tests/vm.test \
tests/weaks.test \
tests/web-client.test \
tests/web-http.test \
diff --git a/test-suite/tests/vm.test b/test-suite/tests/vm.test
new file mode 100644
index 0000000..870e0f3
--- /dev/null
+++ b/test-suite/tests/vm.test
@@ -0,0 +1,54 @@
+;;;; vm.test --- tests for the ELF machinery and VM -*- scheme -*-
+;;;; Copyright (C) 2017 Free Software Foundation, Inc.
+;;;;
+;;;; This library is free software; you can redistribute it and/or
+;;;; modify it under the terms of the GNU Lesser General Public
+;;;; License as published by the Free Software Foundation; either
+;;;; version 3 of the License, or (at your option) any later version.
+;;;;
+;;;; This library is distributed in the hope that it will be useful,
+;;;; but WITHOUT ANY WARRANTY; without even the implied warranty of
+;;;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
+;;;; Lesser General Public License for more details.
+;;;;
+;;;; You should have received a copy of the GNU Lesser General Public
+;;;; License along with this library; if not, write to the Free Software
+;;;; Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301
USA
+
+(define-module (tests vm)
+ #:use-module (test-suite lib)
+ #:use-module (system vm loader)
+ #:use-module (system vm elf)
+ #:use-module (rnrs bytevectors))
+
+(define (elf->bytevector elf)
+ (let ((bv (make-bytevector 1000)))
+ (write-elf-header bv elf)
+ bv))
+
+
+(with-test-prefix "load-thunk-from-memory"
+
+ (pass-if-exception "wrong byte order"
+ '(misc-error . "does not have native byte order")
+ ;; This used to throw to 'system-error' with whatever value errno had.
+ (begin
+ (false-if-exception (open-output-file "/does-not-exist"))
+ (load-thunk-from-memory
+ (elf->bytevector
+ (make-elf #:byte-order (if (eq? (native-endianness)
+ (endianness little))
+ (endianness big)
+ (endianness
+ little))
+ #:shoff 0)))))
+
+ (pass-if-exception "wrong OS ABI"
+ '(misc-error . "OS ABI")
+ ;; This used to throw to 'system-error' with whatever value errno had.
+ (begin
+ (false-if-exception (open-output-file "/does-not-exist"))
+ (load-thunk-from-memory
+ (elf->bytevector
+ (make-elf #:abi ELFOSABI_TRU64 ;RIP
+ #:shoff 0))))))
- [Guile-commits] branch lightning updated (0a01963 -> 0d00164), Andy Wingo, 2018/08/07
- [Guile-commits] 02/58: doc: Update LALR URL., Andy Wingo, 2018/08/07
- [Guile-commits] 06/58: Make sure the return value of 'scm_crypt' is always initialized., Andy Wingo, 2018/08/07
- [Guile-commits] 03/58: Fix 'crypt' deadlock upon error., Andy Wingo, 2018/08/07
- [Guile-commits] 01/58: Update NEWS for 2.2.3, Andy Wingo, 2018/08/07
- [Guile-commits] 07/58: No tabs in C code., Andy Wingo, 2018/08/07
- [Guile-commits] 04/58: 'load-thunk-from-memory' reports the correct error.,
Andy Wingo <=
- [Guile-commits] 13/58: srfi-18: 'thread-sleep!' timeout-as-a-number is relative., Andy Wingo, 2018/08/07
- [Guile-commits] 18/58: Fix typo in comment within numbers.c, Andy Wingo, 2018/08/07
- [Guile-commits] 08/58: Revert "Honor '%fresh-auto-compile'.", Andy Wingo, 2018/08/07
- [Guile-commits] 15/58: Fix eta-conversion edge cases in peval., Andy Wingo, 2018/08/07
- [Guile-commits] 17/58: Fix minor typo in the PEG documentation., Andy Wingo, 2018/08/07
- [Guile-commits] 20/58: Avoid inexact arithmetic in the type inferrer for 'sqrt'., Andy Wingo, 2018/08/07
- [Guile-commits] 16/58: Fix a few typos in the manual., Andy Wingo, 2018/08/07
- [Guile-commits] 05/58: compile: Load language modules upfront., Andy Wingo, 2018/08/07
- [Guile-commits] 11/58: doc: Fix typo about SRFI-4 syntax., Andy Wingo, 2018/08/07
- [Guile-commits] 09/58: 'select' returns empty sets upon EINTR and EAGAIN., Andy Wingo, 2018/08/07