mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-06-18 09:40:25 +02:00
Code Activity

Remove #ifdef cases for VMS and Cray.

Browse source 
* libguile/__scm.h:
* libguile/_scm.h:
* libguile/feature.c (scm_init_feature): Remove VMS and Cray cases.
This commit is contained in:
Andy Wingo 2018-06-17 10:01:22 +02:00
parent f6ec873a8b
commit 418a7d7af9
3 changed files with 6 additions and 29 deletions
Download patch file Download diff file Expand all files Collapse all files

12
libguile/__scm.h
View file

@ -3,8 +3,8 @@
#ifndef SCM___SCM_H #ifndef SCM___SCM_H
#define SCM___SCM_H #define SCM___SCM_H
/* Copyright (C) 1995, 1996, 1998, 1999, 2000, 2001, 2002, 2003, 2006, /* Copyright (C) 1995-1996,1998-2003,2006-2013,2018
* 2007, 2008, 2009, 2010, 2011, 2012, 2013 Free Software Foundation, Inc. * 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
@ -422,13 +422,7 @@ typedef struct scm_dynamic_state scm_t_dynamic_state;
* _scm.h private header. * _scm.h private header.
*/ */
#if defined (vms) #if defined (__ia64__)
typedef int scm_i_jmp_buf[17];
#elif defined (_CRAY1)
typedef int scm_i_jmp_buf[112];
#elif defined (__ia64__)
# include <signal.h> # include <signal.h>
# include <ucontext.h> # include <ucontext.h>
typedef struct { typedef struct {

16
libguile/_scm.h
View file

@ -158,21 +158,7 @@
#if defined (vms) #if defined (__ia64__)
/* VMS: Implement SCM_I_SETJMP in terms of setjump. */
extern int setjump(scm_i_jmp_buf env);
extern int longjump(scm_i_jmp_buf env, int ret);
#define SCM_I_SETJMP setjump
#define SCM_I_LONGJMP longjump
#elif defined (_CRAY1)
/* Cray: Implement SCM_I_SETJMP in terms of setjump. */
extern int setjump(scm_i_jmp_buf env);
extern int longjump(scm_i_jmp_buf env, int ret);
#define SCM_I_SETJMP setjump
#define SCM_I_LONGJMP longjump
#elif defined (__ia64__)
/* IA64: Implement SCM_I_SETJMP in terms of getcontext. */ /* IA64: Implement SCM_I_SETJMP in terms of getcontext. */
# define SCM_I_SETJMP(JB) \ # define SCM_I_SETJMP(JB) \
( (JB).fresh = 1, \ ( (JB).fresh = 1, \

7
libguile/feature.c
View file

@ -1,5 +1,5 @@
/* Copyright (C) 1995, 1996, 1998, 1999, 2000, 2001, 2002, 2003, 2004, /* Copyright (C) 1995-1996,1998-2004,2006-2007,2009,2011,2013,2018
* 2006, 2007, 2009, 2011, 2013 Free Software Foundation, Inc. * 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
@ -106,9 +106,6 @@ scm_init_feature()
#ifndef _Windows #ifndef _Windows
scm_add_feature("system"); scm_add_feature("system");
#endif #endif
#ifdef vms
scm_add_feature(s_ed);
#endif
#ifndef GO32 #ifndef GO32
scm_add_feature("char-ready?"); scm_add_feature("char-ready?");
#endif #endif