[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Guile-commits] 03/58: Fix 'crypt' deadlock upon error.
From: |
Andy Wingo |
Subject: |
[Guile-commits] 03/58: Fix 'crypt' deadlock upon error. |
Date: |
Tue, 7 Aug 2018 06:58:28 -0400 (EDT) |
wingo pushed a commit to branch lightning
in repository guile.
commit a4c4deb5b0cf1633e748eed3e722e3ee74e89242
Author: Ludovic Courtès <address@hidden>
Date: Fri Dec 22 11:12:57 2017 +0100
Fix 'crypt' deadlock upon error.
* libguile/posix.c (scm_crypt): Take 'scm_i_misc_mutex' right before
calling 'crypt'. Move 'SCM_SYSERROR' call after 'scm_dynwind_end'.
* test-suite/tests/posix.test ("crypt"): New test prefix.
---
libguile/posix.c | 25 +++++++++++++++++++++----
test-suite/tests/posix.test | 19 ++++++++++++++++++-
2 files changed, 39 insertions(+), 5 deletions(-)
diff --git a/libguile/posix.c b/libguile/posix.c
index 497896b..b35dfbd 100644
--- a/libguile/posix.c
+++ b/libguile/posix.c
@@ -1,4 +1,4 @@
-/* Copyright 1995-2014,2016,2018
+/* Copyright 1995-2014,2016-2018
Free Software Foundation, Inc.
This file is part of Guile.
@@ -1936,26 +1936,43 @@ SCM_DEFINE (scm_crypt, "crypt", 2, 0, 0,
"crypt(3) library call.")
#define FUNC_NAME s_scm_crypt
{
+ int err;
SCM ret;
char *c_key, *c_salt, *c_ret;
scm_dynwind_begin (0);
- scm_i_dynwind_pthread_mutex_lock (&scm_i_misc_mutex);
c_key = scm_to_locale_string (key);
scm_dynwind_free (c_key);
c_salt = scm_to_locale_string (salt);
scm_dynwind_free (c_salt);
+ /* Take the lock because 'crypt' uses a static buffer. */
+ scm_i_dynwind_pthread_mutex_lock (&scm_i_misc_mutex);
+
/* The Linux crypt(3) man page says crypt will return NULL and set errno
on error. (Eg. ENOSYS if legal restrictions mean it cannot be
implemented). */
c_ret = crypt (c_key, c_salt);
+
if (c_ret == NULL)
- SCM_SYSERROR;
+ /* Note: Do not throw until we've released 'scm_i_misc_mutex' since
+ this would cause a deadlock down the path. */
+ err = errno;
+ else
+ {
+ err = 0;
+ ret = scm_from_locale_string (c_ret);
+ }
- ret = scm_from_locale_string (c_ret);
scm_dynwind_end ();
+
+ if (err != 0)
+ {
+ errno = err;
+ SCM_SYSERROR;
+ }
+
return ret;
}
#undef FUNC_NAME
diff --git a/test-suite/tests/posix.test b/test-suite/tests/posix.test
index f57001a..4dadd77 100644
--- a/test-suite/tests/posix.test
+++ b/test-suite/tests/posix.test
@@ -1,7 +1,7 @@
;;;; posix.test --- Test suite for Guile POSIX functions. -*- scheme -*-
;;;;
;;;; Copyright 2003, 2004, 2006, 2007, 2010, 2012,
-;;;; 2015 Free Software Foundation, Inc.
+;;;; 2015, 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
@@ -222,3 +222,20 @@
(let ((me (getpid)))
(and (not (zero? (system* "something-that-does-not-exist")))
(= me (getpid))))))
+
+;;
+;; crypt
+;;
+
+(with-test-prefix "crypt"
+
+ (pass-if "basic usage"
+ (string? (crypt "pass" "abcdefg")))
+
+ (pass-if-exception "glibc EINVAL" exception:system-error
+ ;; This used to deadlock while trying to throw to 'system-error'.
+ ;; This test uses the special interpretation of the salt that glibc
+ ;; does; specifically, we pass a syntactically invalid salt here.
+ (if (string-contains %host-type "-gnu")
+ (crypt "pass" "$X$abc") ;EINVAL
+ (throw 'unresolved))))
- [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 <=
- [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, 2018/08/07
- [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