From 67e15ee993961bd63cc46188ffceab415347af40 Mon Sep 17 00:00:00 2001 From: Sam Tobin-Hochstadt Date: Wed, 18 Aug 2010 16:37:04 -0400 Subject: [PATCH] Add some comments. --- src/racket/src/schpriv.h | 6 ++++-- 1 file changed, 4 insertions(+), 2 deletions(-) diff --git a/src/racket/src/schpriv.h b/src/racket/src/schpriv.h index dc90e5338c..5252ed127c 100644 --- a/src/racket/src/schpriv.h +++ b/src/racket/src/schpriv.h @@ -2208,14 +2208,16 @@ typedef struct { typedef struct Scheme_Native_Closure_Data { Scheme_Inclhash_Object iso; /* type tag only set when needed, but flags always needed */ - Scheme_Closed_Prim *code; + Scheme_Closed_Prim *code; /* When not yet JITted, this is = to scheme_on_demand_jit_code */ union { void *tail_code; /* For non-case-lambda */ mzshort *arities; /* For case-lambda */ } u; void *arity_code; mzshort max_let_depth; /* In bytes instead of words */ - mzshort closure_size; + mzshort closure_size; /* if this is negative, then this is a + case-lambda, and the real size is + (-closure-size)-1 */ union { struct Scheme_Closure_Data *orig_code; /* For not-yet-JITted non-case-lambda */ Scheme_Object *name;