← Back to branch summary

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

« back to all changes in this revision

Viewing changes to libguile/deprecation.c

  • Committer: Bazaar Package Importer
  • Author(s): أحمد المحمودي (Ahmed El-Mahmoudy)
  • Date: 2009-07-20 19:39:17 UTC
  • mfrom: (1.2.6 upstream)
  • Revision ID: james.westby@ubuntu.com-20090720193917-s0985l9wxihwoscl
Tags: 1.8.7+1-1ubuntu1
https://launchpad.net/bugs/401816
* Merge from Debian unstable, remaining changes: (LP: #401816)
  - 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.

Show diffs side-by-side

added added

removed removed

Lines of Context:
libguile/deprecation.c
1
 
/* Copyright (C) 2001, 2006 Free Software Foundation, Inc.
 
1
/* Copyright (C) 2001, 2006, 2009 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
33
33
 
34
34
/* Windows defines. */
35
35
#ifdef __MINGW32__
36
 
#define vsnprintf _vsnprintf
 
36
# define vsnprintf _vsnprintf
 
37
#elif !HAVE_DECL_VSNPRINTF
 
38
extern int vsnprintf (char *, size_t, const char *, va_list);
37
39
#endif
38
40
 
39
41
 
40
42
 
41
 
#if (SCM_ENABLE_DEPRECATED == 1)
42
 
 
43
43
struct issued_warning {
44
44
  struct issued_warning *prev;
45
45
  const char *message;
135
135
    }
136
136
}
137
137
 
138
 
#endif /* SCM_ENABLE_DEPRECATED == 1 */
139
 
 
140
138
SCM_DEFINE(scm_include_deprecated_features,
141
139
           "include-deprecated-features", 0, 0, 0,
142
140
           (),
154
152
void
155
153
scm_init_deprecation ()
156
154
{
157
 
#if (SCM_ENABLE_DEPRECATED == 1)
158
155
  const char *level = getenv ("GUILE_WARN_DEPRECATED");
159
156
  if (level == NULL)
160
157
    level = SCM_WARN_DEPRECATED_DEFAULT;
167
164
      SCM_WARN_DEPRECATED = 0;
168
165
      atexit (print_deprecation_summary);
169
166
    }
170
 
#endif
171
167
#include "libguile/deprecation.x"
172
168
}
173
169