mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-06-30 15:00:21 +02:00
Code Activity

Do not warn the user when 'madvise' returns ENOSYS.

Browse source 
* libguile/vm.c (return_unused_stack_to_os): Avoid 'perror' calls when
'madvise' returns ENOSYS.
This commit is contained in:
Ludovic Courtès 2018-12-15 18:04:27 +01:00
parent 901bfef592
commit 45e4ace660
1 changed files with 5 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

7
libguile/vm.c
View file

@ -1,4 +1,4 @@
/* Copyright (C) 2001, 2009, 2010, 2011, 2012, 2013, 2014, 2015 Free Software Foundation, Inc. /* Copyright (C) 2001, 2009, 2010, 2011, 2012, 2013, 2014, 2015, 2018 Free Software Foundation, Inc.
* *
* This library is free software; you can redistribute it and/or * This library is free software; you can redistribute it and/or
* modify it under the terms of the GNU Lesser General Public License * modify it under the terms of the GNU Lesser General Public License
@ -904,7 +904,10 @@ return_unused_stack_to_os (struct scm_vm *vp)
ret = madvise ((void *) lo, hi - lo, MADV_DONTNEED); ret = madvise ((void *) lo, hi - lo, MADV_DONTNEED);
while (ret && errno == EAGAIN); while (ret && errno == EAGAIN);
if (ret) /* If the OS doesn't implement 'madvise' (as is currently the case
for GNU/Hurd), don't warn the user since there's nothing they
can do about it. */
if (ret && errno != ENOSYS)
perror ("madvise failed"); perror ("madvise failed");
} }