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
/
list.h
diff --git
a/ghc/compiler/yaccParser/list.h
b/ghc/compiler/yaccParser/list.h
index
2eefe33
..
cbd9014
100644
(file)
--- a/
ghc/compiler/yaccParser/list.h
+++ b/
ghc/compiler/yaccParser/list.h
@@
-19,6
+19,7
@@
typedef enum {
typedef struct { Tlist tag; } *list;
#ifdef __GNUC__
typedef struct { Tlist tag; } *list;
#ifdef __GNUC__
+Tlist tlist(list t);
extern __inline__ Tlist tlist(list t)
{
return(t -> tag);
extern __inline__ Tlist tlist(list t)
{
return(t -> tag);
@@
-40,6
+41,8
@@
struct Slnil {
extern list mklcons PROTO((VOID_STAR, list));
#ifdef __GNUC__
extern list mklcons PROTO((VOID_STAR, list));
#ifdef __GNUC__
+VOID_STAR *Rlhd PROTO((struct Slcons *));
+
extern __inline__ VOID_STAR *Rlhd(struct Slcons *t)
{
#ifdef UGEN_DEBUG
extern __inline__ VOID_STAR *Rlhd(struct Slcons *t)
{
#ifdef UGEN_DEBUG
@@
-55,6
+58,8
@@
extern VOID_STAR *Rlhd PROTO((struct Slcons *));
#define lhd(xyzxyz) (*Rlhd((struct Slcons *) (xyzxyz)))
#ifdef __GNUC__
#define lhd(xyzxyz) (*Rlhd((struct Slcons *) (xyzxyz)))
#ifdef __GNUC__
+list *Rltl PROTO((struct Slcons *));
+
extern __inline__ list *Rltl(struct Slcons *t)
{
#ifdef UGEN_DEBUG
extern __inline__ list *Rltl(struct Slcons *t)
{
#ifdef UGEN_DEBUG
@@
-69,6
+74,6
@@
extern list *Rltl PROTO((struct Slcons *));
#define ltl(xyzxyz) (*Rltl((struct Slcons *) (xyzxyz)))
#define ltl(xyzxyz) (*Rltl((struct Slcons *) (xyzxyz)))
-extern list mklnil PROTO(());
+extern list mklnil PROTO((void));
#endif
#endif