projects
/
ghc-hetmet.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
[project @ 1996-01-12 11:35:21 by partain]
[ghc-hetmet.git]
/
ghc
/
compiler
/
yaccParser
/
atype.h
diff --git
a/ghc/compiler/yaccParser/atype.h
b/ghc/compiler/yaccParser/atype.h
index
49ef6bb
..
0651a70
100644
(file)
--- a/
ghc/compiler/yaccParser/atype.h
+++ b/
ghc/compiler/yaccParser/atype.h
@@
-18,6
+18,7
@@
typedef enum {
typedef struct { Tatype tag; } *atype;
#ifdef __GNUC__
typedef struct { Tatype tag; } *atype;
#ifdef __GNUC__
+Tatype tatype(atype t);
extern __inline__ Tatype tatype(atype t)
{
return(t -> tag);
extern __inline__ Tatype tatype(atype t)
{
return(t -> tag);
@@
-36,6
+37,8
@@
struct Satc {
extern atype mkatc PROTO((unkId, list, long));
#ifdef __GNUC__
extern atype mkatc PROTO((unkId, list, long));
#ifdef __GNUC__
+unkId *Rgatcid PROTO((struct Satc *));
+
extern __inline__ unkId *Rgatcid(struct Satc *t)
{
#ifdef UGEN_DEBUG
extern __inline__ unkId *Rgatcid(struct Satc *t)
{
#ifdef UGEN_DEBUG
@@
-51,6
+54,8
@@
extern unkId *Rgatcid PROTO((struct Satc *));
#define gatcid(xyzxyz) (*Rgatcid((struct Satc *) (xyzxyz)))
#ifdef __GNUC__
#define gatcid(xyzxyz) (*Rgatcid((struct Satc *) (xyzxyz)))
#ifdef __GNUC__
+list *Rgatctypel PROTO((struct Satc *));
+
extern __inline__ list *Rgatctypel(struct Satc *t)
{
#ifdef UGEN_DEBUG
extern __inline__ list *Rgatctypel(struct Satc *t)
{
#ifdef UGEN_DEBUG
@@
-66,6
+71,8
@@
extern list *Rgatctypel PROTO((struct Satc *));
#define gatctypel(xyzxyz) (*Rgatctypel((struct Satc *) (xyzxyz)))
#ifdef __GNUC__
#define gatctypel(xyzxyz) (*Rgatctypel((struct Satc *) (xyzxyz)))
#ifdef __GNUC__
+long *Rgatcline PROTO((struct Satc *));
+
extern __inline__ long *Rgatcline(struct Satc *t)
{
#ifdef UGEN_DEBUG
extern __inline__ long *Rgatcline(struct Satc *t)
{
#ifdef UGEN_DEBUG