Path: utzoo!utgpu!news-server.csri.toronto.edu!rpi!zaphod.mps.ohio-state.edu!think.com!mintaka!ogicse!uidaho!groucho.mrc.uidaho.edu!windley
From: windley@cheetah.cs.uidaho.edu (Phil Windley/20000000)
Newsgroups: comp.unix.ultrix
Subject: What's wrong with this program?
Message-ID: <WINDLEY.91Apr4115236@cheetah.cheetah.cs.uidaho.edu>
Date: 4 Apr 91 19:52:36 GMT
Article-I.D.: cheetah.WINDLEY.91Apr4115236
Sender: @groucho
Distribution: comp
Organization: University of Idaho, Computer Science Dept.
Lines: 76
Nntp-Posting-Host: cheetah.cs.uidaho.edu


This program fails to compile on a DS5000PX running Ultrix 4.1.  It
compiles fine on HPs, Apollos, Suns, etc. 

The problem is a simple example of a larger failure of AKCL to work.

Any information appreciated.



/*

Volatile test program for DS5000.  This code is taken from the AKCL file
cmpinclude.h.

No error when compiled with cc -c volatile.c                                   Structure error when compiled with cc -DVOL=volatile -c volatile.c
 
VOL is a macro qualifying the type declarations in the test function.

*/

#define FIRSTWORD     short t; short m
#define SGC_TOUCH(x)

#ifndef VOL
#define VOL
#endif

typedef union lispunion *object;

struct cons {
		FIRSTWORD;
	object	c_cdr;
	object	c_car;
};
struct structure {		/*  structure header  */
		FIRSTWORD;
	object	str_def;	/*  structure definition (a structure)  */
	object	*str_self;	/*  structure self  */
};


struct dummy {
		FIRSTWORD;
};

union lispunion {
	struct cons	c;
	struct dummy	d;
};
enum type {
	t_cons,
	t_other
};
#define	type_of(obje)	((enum type)(((object)(obje))->d.t))

#define CMPcar(x)	(x)->c.c_car

void test()
{
VOL object VV1;
object VV2;

VV2 = CMPcar((VV1));
}





--
Phil Windley                          |  windley@cs.uidaho.edu
Assistant Professor		      |  windley@cheetah.cs.uidaho.edu
Department of Computer Science        |
University of Idaho                   |  Phone: 208.885.6501  
Moscow, ID 83843                      |  Fax:   208.885.6645