← Back to branch summary

~peter-pearse/ubuntu/natty/guile-1.8/prop001

« back to all changes in this revision

Viewing changes to libguile/stackchk.c

  • Committer: Bazaar Package Importer
  • Author(s): Steve Langasek
  • Date: 2009-06-04 19:01:38 UTC
  • mfrom: (8.1.1 sid)
  • Revision ID: james.westby@ubuntu.com-20090604190138-1ao3t6sj31cqvcfe
Tags: 1.8.6+1-1ubuntu1
* Merge from Debian unstable, remaining changes:
  - Build with -Wno-error.
  - Build with thread support. Some guile-using programs like autogen need it.
  - Add debian/guile-1.8-libs.shlibs: Thread support breaks ABI, bump the soname.
* Dropped changes:
  - libltdl3-dev -> libltdl7-dev: current libltdl-dev Provides: both.
  - debian/patches/libtool-ftbfs.diff: integrated upstream.

Show diffs side-by-side

added added

removed removed

Lines of Context:
libguile/stackchk.c
1
 
/*      Copyright (C) 1995,1996,1997, 2000, 2001, 2006 Free Software Foundation, Inc.
 
1
/*      Copyright (C) 1995,1996,1997, 2000, 2001, 2006, 2008 Free Software Foundation, Inc.
2
2
 * 
3
3
 * This library is free software; you can redistribute it and/or
4
4
 * modify it under the terms of the GNU Lesser General Public
17
17
 
18
18
 
19
19
 
 
20
#ifdef HAVE_CONFIG_H
 
21
# include <config.h>
 
22
#endif
20
23
 
21
24
#include "libguile/_scm.h"
22
25
#include "libguile/ports.h"
23
26
#include "libguile/root.h"
 
27
#include "libguile/threads.h"
24
28
 
25
29
#include "libguile/stackchk.h"
26
30
 
75
79
  scm_puts ("\n", port);
76
80
}
77
81
 
 
82
 
 
83
SCM_DEFINE (scm_sys_get_stack_size, "%get-stack-size", 0, 0, 0,
 
84
            (),
 
85
            "Return the current thread's C stack size (in Scheme objects).")
 
86
#define FUNC_NAME s_scm_sys_get_stack_size
 
87
{
 
88
  return scm_from_long (scm_stack_size (SCM_I_CURRENT_THREAD->base));
 
89
}
 
90
#undef FUNC_NAME
 
91
 
 
92
 
78
93
void
79
94
scm_init_stackchk ()
80
95
{