summaryrefslogtreecommitdiff
path: root/libguile/stackchk.c
diff options
context:
space:
mode:
Diffstat (limited to 'libguile/stackchk.c')
-rw-r--r--libguile/stackchk.c59
1 files changed, 29 insertions, 30 deletions
diff --git a/libguile/stackchk.c b/libguile/stackchk.c
index 96f72408d..a9bf133c2 100644
--- a/libguile/stackchk.c
+++ b/libguile/stackchk.c
@@ -1,33 +1,38 @@
-/* Copyright (C) 1995,1996,1997, 2000, 2001, 2006, 2008, 2010, 2011, 2014 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
- */
+/* Copyright 1995-1997,2000-2001,2006,2008,2010-2011,2014,2018
+ Free Software Foundation, Inc.
+
+ This file is part of Guile.
+
+ Guile 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.
+
+ Guile 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 Guile. If not, see
+ <https://www.gnu.org/licenses/>. */
+
#ifdef HAVE_CONFIG_H
# include <config.h>
#endif
-#include "libguile/_scm.h"
-#include "libguile/ports.h"
-#include "libguile/threads.h"
-#include "libguile/dynwind.h"
+#include "dynwind.h"
+#include "gsubr.h"
+#include "numbers.h"
+#include "ports.h"
+#include "threads.h"
+
+#include "stackchk.h"
+
-#include "libguile/stackchk.h"
/* {Stack Checking}
@@ -52,7 +57,7 @@ scm_stack_report ()
{
SCM port = scm_current_error_port ();
SCM_STACKITEM stack;
- scm_i_thread *thread = SCM_I_CURRENT_THREAD;
+ scm_thread *thread = SCM_I_CURRENT_THREAD;
scm_uintprint ((scm_stack_size (thread->continuation_base)
* sizeof (SCM_STACKITEM)),
@@ -78,11 +83,5 @@ SCM_DEFINE (scm_sys_get_stack_size, "%get-stack-size", 0, 0, 0,
void
scm_init_stackchk ()
{
-#include "libguile/stackchk.x"
+#include "stackchk.x"
}
-
-/*
- Local Variables:
- c-file-style: "gnu"
- End:
-*/