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

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

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

revision 1.31 by dirk, Tue Mar 26 00:19:04 2002 UTC revision 1.32 by xxhanwen, Sat Jul 20 14:08:34 2002 UTC
# Line 110  typedef struct scm_t_srcprops_chunk Line 110  typedef struct scm_t_srcprops_chunk
110  #define CLEARSRCPROPBRK(p)  \  #define CLEARSRCPROPBRK(p)  \
111    (SCM_SET_CELL_WORD_0 ((p), SCM_CELL_WORD_0 (p) \    (SCM_SET_CELL_WORD_0 ((p), SCM_CELL_WORD_0 (p) \
112                               & ~SCM_SOURCE_PROPERTY_FLAG_BREAK))                               & ~SCM_SOURCE_PROPERTY_FLAG_BREAK))
113  #define SRCPROPMAKPOS(l,c) (((l) << 12) + (c))  #define SRCPROPMAKPOS(l, c) (((l) << 12) + (c))
114  #define SETSRCPROPPOS(p,l,c) (SRCPROPPOS (p) = SRCPROPMAKPOS (l, c))  #define SETSRCPROPPOS(p, l, c) (SRCPROPPOS (p) = SRCPROPMAKPOS (l, c))
115  #define SETSRCPROPLINE(p,l) SETSRCPROPPOS (p, l, SRCPROPCOL (p))  #define SETSRCPROPLINE(p, l) SETSRCPROPPOS (p, l, SRCPROPCOL (p))
116  #define SETSRCPROPCOL(p,c) SETSRCPROPPOS (p, SRCPROPLINE (p), c)  #define SETSRCPROPCOL(p, c) SETSRCPROPPOS (p, SRCPROPLINE (p), c)
117    
118  #define PROCTRACEP(x) (!SCM_FALSEP (scm_procedure_property (x, scm_sym_trace)))  #define PROCTRACEP(x) (!SCM_FALSEP (scm_procedure_property (x, scm_sym_trace)))
119    

Legend:
Removed from v.1.31  
changed lines
  Added in v.1.32

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