/[guile]/guile/guile-core/libguile/inline.h
ViewVC logotype

Diff of /guile/guile-core/libguile/inline.h

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.5 by hanwen, Sun Aug 4 00:17:18 2002 UTC revision 1.6 by hanwen, Thu Aug 8 19:47:31 2002 UTC
# Line 50  Line 50 
50  */  */
51    
52    
 #if (SCM_DEBUG_CELL_ACCESSES == 1)  
 #include <stdio.h>  
 #endif  
   
53  #include "libguile/pairs.h"  #include "libguile/pairs.h"
54  #include "libguile/gc.h"  #include "libguile/gc.h"
55    
# Line 64  SCM_API SCM scm_double_cell (scm_t_bits Line 60  SCM_API SCM scm_double_cell (scm_t_bits
60    
61  #ifdef HAVE_INLINE  #ifdef HAVE_INLINE
62    
   
   
63  #ifndef EXTERN_INLINE  #ifndef EXTERN_INLINE
64  #define EXTERN_INLINE extern inline  #define EXTERN_INLINE extern inline
65  #endif  #endif
# Line 74  extern unsigned scm_newcell2_count; Line 68  extern unsigned scm_newcell2_count;
68  extern unsigned scm_newcell_count;  extern unsigned scm_newcell_count;
69    
70    
71    
72  EXTERN_INLINE  EXTERN_INLINE
73  SCM  SCM
74  scm_cell (scm_t_bits car, scm_t_bits cdr)  scm_cell (scm_t_bits car, scm_t_bits cdr)
# Line 137  scm_cell (scm_t_bits car, scm_t_bits cdr Line 132  scm_cell (scm_t_bits car, scm_t_bits cdr
132  #endif  #endif
133    
134    
135    #if (SCM_DEBUG_CELL_ACCESSES == 1)
136      if (scm_expensive_debug_cell_accesses_p )
137        scm_i_expensive_validation_check (z);
138    #endif
139        
140    return z;    return z;
141  }  }
# Line 201  scm_double_cell (scm_t_bits car, scm_t_b Line 200  scm_double_cell (scm_t_bits car, scm_t_b
200    return z;    return z;
201  }  }
202    
203    
204    
205  #endif  #endif
206  #endif  #endif

Legend:
Removed from v.1.5  
changed lines
  Added in v.1.6

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26