← Back to branch summary

~ubuntu-branches/ubuntu/intrepid/ecl/intrepid

« back to all changes in this revision

Viewing changes to src/h/internal.h

  • Committer: Bazaar Package Importer
  • Author(s): Albin Tonnerre
  • Date: 2008-06-20 18:00:19 UTC
  • mfrom: (1.1.4 upstream)
  • Revision ID: james.westby@ubuntu.com-20080620180019-7fbz1ln5444vtkkr
Tags: 0.9j-20080306-2ubuntu1
* Enabled unicode support. (Closes: LP #123530)
* Modify Maintainer value to match the DebianMaintainerField specification.

Show diffs side-by-side

added added

removed removed

Lines of Context:
src/h/internal.h
 
1
/* -*- mode: c; c-basic-offset: 8 -*- */
1
2
/*
2
3
    internal.h -- Structures and functions that are not meant for the end user
3
4
*/
67
68
#define cl_stack_ref(n) cl_env.stack[n]
68
69
#define cl_stack_index() (cl_env.stack_top-cl_env.stack)
69
70
 
 
71
#define ECL_BUILD_STACK_FRAME(name) \
 
72
        struct ecl_stack_frame name##_aux;\
 
73
        cl_object name=(name##_aux.t=t_frame,name##_aux.narg=name##_aux.sp=0,(cl_object)&(name##_aux));
 
74
 
70
75
/* ffi.d */
71
76
 
72
77
#define ECL_FFICALL_LIMIT 256
165
170
/* gfun.d, kernel.lsp */
166
171
 
167
172
#define GFUN_NAME(x) ((x)->instance.slots[0])
168
 
#define GFUN_HASH(x) ((x)->instance.slots[1])
169
 
#define GFUN_SPEC(x) ((x)->instance.slots[2])
170
 
#define GFUN_COMB(x) ((x)->instance.slots[3])
 
173
#define GFUN_SPEC(x) ((x)->instance.slots[1])
 
174
#define GFUN_COMB(x) ((x)->instance.slots[2])
171
175
 
172
176
/* package.d */
173
177
 
240
244
#   define FE_UNDERFLOW EM_UNDERFLOW
241
245
typedef int fenv_t;
242
246
# else
243
 
#   define MCW_EM _MCW_EM
 
247
#   ifdef _MCW_EM
 
248
#    define MCW_EM _MCW_EM
 
249
#   else
 
250
#    define MCW_EM 0x0008001F
 
251
#   endif
244
252
#   define fenv_t int
245
253
# endif
246
254
# define feenableexcept(bits) { int cw = _controlfp(0,0); cw &= ~(bits); _controlfp(cw,MCW_EM); }