← Back to branch summary

~ubuntu-branches/ubuntu/trusty/mit-scheme/trusty-proposed

« back to all changes in this revision

Viewing changes to src/microcode/sdata.h

  • Committer: Package Import Robot
  • Author(s): Chris Hanson
  • Date: 2011-10-15 03:08:33 UTC
  • mfrom: (1.1.8) (3.1.7 sid)
  • Revision ID: package-import@ubuntu.com-20111015030833-x7qc6yxuulvxbafv
Tags: 9.1-1
* New upstream.
* debian/control, debian/copyright, debian/mit-scheme-doc.*,
  debian/mit-scheme.install, debian/rules, Upstream has removed cover
  texts from documentation licenses, so merge packages mit-scheme and
  mit-scheme-doc back together.
* debian/compat: Bump to current version.
* debian/control: Bump standards-version to current and make
  necessary changes.
* debian/rules: Fix lintian warnings.

Show diffs side-by-side

added added

removed removed

Lines of Context:
src/microcode/sdata.h
2
2
 
3
3
Copyright (C) 1986, 1987, 1988, 1989, 1990, 1991, 1992, 1993, 1994,
4
4
    1995, 1996, 1997, 1998, 1999, 2000, 2001, 2002, 2003, 2004, 2005,
5
 
    2006, 2007, 2008, 2009, 2010 Massachusetts Institute of Technology
 
5
    2006, 2007, 2008, 2009, 2010, 2011 Massachusetts Institute of
 
6
    Technology
6
7
 
7
8
This file is part of MIT/GNU Scheme.
8
9
 
459
460
 * continues after the evaluation.
460
461
 */
461
462
 
462
 
/* When in RC_MOVE_TO_ADJACENT_POINT in the interpreter, the following
463
 
   information is available on the stack (placed there by
464
 
   Translate_To_Point
465
 
*/
466
 
#define TRANSLATE_FROM_POINT            0
467
 
#define TRANSLATE_FROM_DISTANCE         1
468
 
#define TRANSLATE_TO_POINT              2
469
 
#define TRANSLATE_TO_DISTANCE           3
470
 
 
471
463
/* TRUE
472
464
 * The initial binding of the variable T is to an object of this type.
473
465
 * This type is the beginnings of a possible move toward a system where
508
500
#define COMPLEX_REAL            0
509
501
#define COMPLEX_IMAG            1
510
502
 
 
503
/* EPHEMERON
 
504
 * Similar to a weak pair, but the datum is weakly referenced too.  The
 
505
 * key and datum are simultaneously dropped iff the only references to
 
506
 * the key go through the datum.  Every ephemeron has extra slots for
 
507
 * data structures that the garbage collector needs to implement this,
 
508
 * so that the garbage collector need not allocate auxiliary storage.
 
509
 */
 
510
 
 
511
#define EPHEMERON_MANIFEST      0
 
512
#define EPHEMERON_KEY           1
 
513
#define EPHEMERON_DATUM         2
 
514
#define EPHEMERON_LIST          3
 
515
#define EPHEMERON_NEXT          4
 
516
 
 
517
#define EPHEMERON_SIZE          5
 
518
 
 
519
#define MARKED_EPHEMERON_MANIFEST                               \
 
520
  (MAKE_OBJECT (TC_MANIFEST_VECTOR, (EPHEMERON_SIZE - 1)))
 
521
 
 
522
#define UNMARKED_EPHEMERON_MANIFEST                             \
 
523
  (MAKE_OBJECT (TC_MANIFEST_NM_VECTOR, (EPHEMERON_SIZE - 1)))
 
524
 
511
525
#endif /* not SCM_SDATA_H */