← Back to branch summary

~ubuntu-branches/ubuntu/vivid/gcl/vivid

« back to all changes in this revision

Viewing changes to misc/check.c

  • Committer: Bazaar Package Importer
  • Author(s): Camm Maguire
  • Date: 2002-03-04 14:29:59 UTC
  • Revision ID: james.westby@ubuntu.com-20020304142959-dey14w08kr7lldu3
Tags: upstream-2.5.0.cvs20020219
Import upstream version 2.5.0.cvs20020219

Show diffs side-by-side

added added

removed removed

Lines of Context:
misc/check.c
 
1
#include "include.h"
 
2
 
 
3
 
 
4
#define CHECK(a,b)\
 
5
do{ i++; if (((void *) a) != (void *) b) printf("differed %d %d\n",i, (long ) a - (long) b);}while(0)
 
6
 
 
7
 
 
8
     
 
9
main()
 
10
{object x;
 
11
 int i=0;
 
12
/* 1 2 */ 
 
13
CHECK(&x->s.s_sfdef,&x->c.c_car);
 
14
CHECK(&x->s.s_dbind,&x->c.c_cdr); 
 
15
 
 
16
/* 3 4 5 6 */
 
17
CHECK(&x->s.s_fillp,&x->ust.ust_fillp);
 
18
CHECK(&x->v.v_fillp,&x->ust.ust_fillp);
 
19
CHECK(&x->st.st_fillp,&x->ust.ust_fillp);
 
20
CHECK(&x->bv.bv_fillp,&x->ust.ust_fillp);
 
21
 
 
22
/* 7 8 9 10 11 12 */
 
23
CHECK(&x->st.st_dim,&x->ust.ust_dim);
 
24
CHECK(&x->v.v_dim,&x->ust.ust_dim);
 
25
CHECK(&x->bv.bv_dim,&x->ust.ust_dim); 
 
26
CHECK(&x->a.a_dim,&x->ust.ust_dim);
 
27
CHECK(&x->lfa.lfa_dim,&x->ust.ust_dim);
 
28
CHECK(&x->sfa.sfa_dim,&x->ust.ust_dim); 
 
29
CHECK(&x->fixa.fixa_dim,&x->ust.ust_dim);
 
30
 
 
31
CHECK(&x->st.st_self,&x->ust.ust_self);
 
32
CHECK(&x->v.v_self,&x->ust.ust_self);
 
33
CHECK(&x->bv.bv_self,&x->ust.ust_self); 
 
34
CHECK(&x->a.a_self,&x->ust.ust_self);
 
35
CHECK(&x->lfa.lfa_self,&x->ust.ust_self);
 
36
CHECK(&x->sfa.sfa_self,&x->ust.ust_self); 
 
37
CHECK(&x->fixa.fixa_self,&x->ust.ust_self);
 
38
CHECK(&x->s.s_self,&x->ust.ust_self);
 
39
 
 
40
CHECK(&x->v.v_elttype,&x->a.a_elttype);
 
41
 
 
42
 
 
43
}
 
44
 
 
45