[project @ 1996-03-22 09:28:55 by partain]

[ghc-hetmet.git] / ghc / compiler / yaccParser / finfot.c

diff --git a/ghc/compiler/yaccParser/finfot.c b/ghc/compiler/yaccParser/finfot.c
deleted file mode 100644 (file)
index 504d5c9..0000000
--- a/ghc/compiler/yaccParser/finfot.c
+++ /dev/null
@@ -1,45 +0,0 @@
-
-
-#include "hspincl.h"
-#include "yaccParser/finfot.h"
-
-Tfinfot tfinfot(t)
- finfot t;
-{
-       return(t -> tag);
-}
-
-
-/************** finfo ******************/
-
-finfot mkfinfo(PPfi1, PPfi2)
- stringId PPfi1;
- stringId PPfi2;
-{
-       register struct Sfinfo *pp =
-               (struct Sfinfo *) malloc(sizeof(struct Sfinfo));
-       pp -> tag = finfo;
-       pp -> Xfi1 = PPfi1;
-       pp -> Xfi2 = PPfi2;
-       return((finfot)pp);
-}
-
-stringId *Rfi1(t)
- struct Sfinfo *t;
-{
-#ifdef UGEN_DEBUG
-       if(t -> tag != finfo)
-               fprintf(stderr,"fi1: illegal selection; was %d\n", t -> tag);
-#endif /* UGEN_DEBUG */
-       return(& t -> Xfi1);
-}
-
-stringId *Rfi2(t)
- struct Sfinfo *t;
-{
-#ifdef UGEN_DEBUG
-       if(t -> tag != finfo)
-               fprintf(stderr,"fi2: illegal selection; was %d\n", t -> tag);
-#endif /* UGEN_DEBUG */
-       return(& t -> Xfi2);
-}