[project @ 1996-01-12 11:35:21 by partain]

WDP 0.27 tidying up

configure.in

@@ -1335,9 +1335,9 @@ case $WithGhcHc in
 	    ;;
     ghc* | glhc* )
 	    WithGhcHcType='HC_GLASGOW_GHC'
-            AC_CHECK_PROG(have_ghc,$WithGhcHc,$ac_dir/$ac_word)
-            if test -z "$have_ghc"; then
-                echo "Can't find Glasgow Haskell to compile with: $WithGhcHc"
+            AC_CHECK_PROG(have_ghc_ghc,$WithGhcHc,$ac_dir/$ac_word)
+            if test -z "$have_ghc_ghc"; then
+                echo "Can't find Glasgow Haskell to compile GHC with: $WithGhcHc"
 		exit 1
 	    else
                 touch conftest.o
@@ -1589,9 +1589,9 @@ case $WithHappyHc in
 	    ;;
     ghc* | glhc* )
 	    WithHappyHcType='HC_GLASGOW_GHC'
-            AC_CHECK_PROG(have_ghc,$WithHappyHc,$ac_dir/$ac_word)
-            if test -z "$have_ghc"; then
-                echo "Can't find Glasgow Haskell to compile with: $WithHappyHc"
+            AC_CHECK_PROG(have_ghc_happy,$WithHappyHc,$ac_dir/$ac_word)
+            if test -z "$have_ghc_happy"; then
+                echo "Can't find Glasgow Haskell to compile Happy with: $WithHappyHc"
 		exit 1
             fi
             ;;
@@ -1664,9 +1664,9 @@ case $WithHaggisHc in
 	    ;;
     ghc* | glhc* )
 	    WithHaggisHcType='HC_GLASGOW_GHC'
-            AC_CHECK_PROG(have_ghc,$WithHaggisHc,$ac_dir/$ac_word)
-            if test -z "$have_ghc"; then
-                echo "Can't find Glasgow Haskell to compile with: $WithHaggisHc"
+            AC_CHECK_PROG(have_ghc_haggis,$WithHaggisHc,$ac_dir/$ac_word)
+            if test -z "$have_ghc_haggis"; then
+                echo "Can't find Glasgow Haskell to compile Haggis with: $WithHaggisHc"
 		exit 1
             fi
             ;;
@@ -1759,9 +1759,9 @@ case $WithNoFibHc in
 	    ;;
     ghc* | glhc* )
 	    WithNoFibHcType='HC_GLASGOW_GHC'
-            AC_CHECK_PROG(have_ghc,$WithNoFibHc,$ac_dir/$ac_word)
-            if test -z "$have_ghc"; then
-                echo "Can't find Glasgow Haskell to compile with: $WithNoFibHc"
+            AC_CHECK_PROG(have_ghc_nofib,$WithNoFibHc,$ac_dir/$ac_word)
+            if test -z "$have_ghc_nofib"; then
+                echo "Can't find Glasgow Haskell to compile NoFib with: $WithNoFibHc"
 		exit 1
             fi
             ;;
@@ -1769,7 +1769,7 @@ case $WithNoFibHc in
 	    WithNoFibHcType='HC_CHALMERS_HBC'
             AC_CHECK_PROG(have_hbc,$WithNoFibHc,YES,NO)
             if test $have_hbc = 'NO' ; then
-                echo "Can't find Chalmers HBC to compile with: $WithNoFibHc"
+                echo "Can't find Chalmers HBC to compile NoFib with: $WithNoFibHc"
                 exit 1
             fi
             ;;
@@ -1777,7 +1777,7 @@ case $WithNoFibHc in
 	    WithNoFibHcType='HC_ROJEMO_NHC'
             AC_CHECK_PROG(have_nhc,$WithNoFibHc,YES,NO)
             if test $have_nhc = 'NO' ; then
-                echo "Can't find Niklas Rojemo's NHC to compile with: $WithNoFibHc"
+                echo "Can't find Niklas Rojemo's NHC to compile NoFib with: $WithNoFibHc"
                 exit 1
             fi
             ;;

ghc/PATCHLEVEL

-The Glamorous Glasgow Haskell Compiler, version 0.26, patchlevel 1
+The Glamorous Glasgow Haskell Compiler, version 0.27, patchlevel 0

ghc/compiler/yaccParser/U_binding.hs

@@ -9,7 +9,7 @@ import U_hpragma
 import U_list
 import U_literal	( U_literal ) -- for interfaces only
 import U_ttype
-data U_binding = U_tbind U_list U_ttype U_list U_list U_long U_hpragma | U_nbind U_ttype U_ttype U_long U_hpragma | U_pbind U_list U_long | U_fbind U_list U_long | U_abind U_binding U_binding | U_lbind U_binding U_binding | U_ebind U_list U_binding U_long | U_hbind U_list U_binding U_long | U_ibind U_list U_unkId U_ttype U_binding U_long U_hpragma | U_dbind U_list U_long | U_cbind U_list U_ttype U_binding U_long U_hpragma | U_sbind U_list U_ttype U_long U_hpragma | U_mbind U_stringId U_list U_list U_long | U_nullbind | U_import U_stringId U_list U_list U_binding U_stringId U_long | U_hiding U_stringId U_list U_list U_binding U_stringId U_long | U_vspec_uprag U_unkId U_list U_long | U_vspec_ty_and_id U_ttype U_list | U_ispec_uprag U_unkId U_ttype U_long | U_inline_uprag U_unkId U_list U_long | U_deforest_uprag U_unkId U_long | U_magicuf_uprag U_unkId U_stringId U_long | U_abstract_uprag U_unkId U_long | U_dspec_uprag U_unkId U_list U_long 
+data U_binding = U_tbind U_list U_ttype U_list U_list U_long U_hpragma | U_nbind U_ttype U_ttype U_long U_hpragma | U_pbind U_list U_long | U_fbind U_list U_long | U_abind U_binding U_binding | U_ibind U_list U_unkId U_ttype U_binding U_long U_hpragma | U_dbind U_list U_long | U_cbind U_list U_ttype U_binding U_long U_hpragma | U_sbind U_list U_ttype U_long U_hpragma | U_mbind U_stringId U_list U_list U_long | U_nullbind | U_import U_stringId U_list U_list U_binding U_stringId U_long | U_hiding U_stringId U_list U_list U_binding U_stringId U_long | U_vspec_uprag U_unkId U_list U_long | U_vspec_ty_and_id U_ttype U_list | U_ispec_uprag U_unkId U_ttype U_long | U_inline_uprag U_unkId U_list U_long | U_deforest_uprag U_unkId U_long | U_magicuf_uprag U_unkId U_stringId U_long | U_abstract_uprag U_unkId U_long | U_dspec_uprag U_unkId U_list U_long 
 
 rdU_binding :: _Addr -> UgnM U_binding
 rdU_binding t
@@ -56,28 +56,6 @@ rdU_binding t
 	ioToUgnM (_ccall_ gabindsnd t) `thenUgn` \ x_gabindsnd ->
 	rdU_binding x_gabindsnd `thenUgn` \ y_gabindsnd ->
 	returnUgn (U_abind y_gabindfst y_gabindsnd)
-    else if tag == ``lbind'' then
-	ioToUgnM (_ccall_ glbindfst t) `thenUgn` \ x_glbindfst ->
-	rdU_binding x_glbindfst `thenUgn` \ y_glbindfst ->
-	ioToUgnM (_ccall_ glbindsnd t) `thenUgn` \ x_glbindsnd ->
-	rdU_binding x_glbindsnd `thenUgn` \ y_glbindsnd ->
-	returnUgn (U_lbind y_glbindfst y_glbindsnd)
-    else if tag == ``ebind'' then
-	ioToUgnM (_ccall_ gebindl t) `thenUgn` \ x_gebindl ->
-	rdU_list x_gebindl `thenUgn` \ y_gebindl ->
-	ioToUgnM (_ccall_ gebind t) `thenUgn` \ x_gebind ->
-	rdU_binding x_gebind `thenUgn` \ y_gebind ->
-	ioToUgnM (_ccall_ geline t) `thenUgn` \ x_geline ->
-	rdU_long x_geline `thenUgn` \ y_geline ->
-	returnUgn (U_ebind y_gebindl y_gebind y_geline)
-    else if tag == ``hbind'' then
-	ioToUgnM (_ccall_ ghbindl t) `thenUgn` \ x_ghbindl ->
-	rdU_list x_ghbindl `thenUgn` \ y_ghbindl ->
-	ioToUgnM (_ccall_ ghbind t) `thenUgn` \ x_ghbind ->
-	rdU_binding x_ghbind `thenUgn` \ y_ghbind ->
-	ioToUgnM (_ccall_ ghline t) `thenUgn` \ x_ghline ->
-	rdU_long x_ghline `thenUgn` \ y_ghline ->
-	returnUgn (U_hbind y_ghbindl y_ghbind y_ghline)
     else if tag == ``ibind'' then
 	ioToUgnM (_ccall_ gibindc t) `thenUgn` \ x_gibindc ->
 	rdU_list x_gibindc `thenUgn` \ y_gibindc ->

ghc/compiler/yaccParser/U_finfot.hs

@@ -3,14 +3,12 @@
 module U_finfot where
 import UgenUtil
 import Util
-data U_finfot = U_nofinfo | U_finfo U_stringId U_stringId 
+data U_finfot = U_finfo U_stringId U_stringId 
 
 rdU_finfot :: _Addr -> UgnM U_finfot
 rdU_finfot t
   = ioToUgnM (_ccall_ tfinfot t) `thenUgn` \ tag@(I# _) ->
-    if tag == ``nofinfo'' then
-	returnUgn (U_nofinfo )
-    else if tag == ``finfo'' then
+    if tag == ``finfo'' then
 	ioToUgnM (_ccall_ fi1 t) `thenUgn` \ x_fi1 ->
 	rdU_stringId x_fi1 `thenUgn` \ y_fi1 ->
 	ioToUgnM (_ccall_ fi2 t) `thenUgn` \ x_fi2 ->

ghc/compiler/yaccParser/atype.h

@@ -18,6 +18,7 @@ typedef enum {
 typedef struct { Tatype tag; } *atype;
 
 #ifdef __GNUC__
+Tatype tatype(atype t);
 extern __inline__ Tatype tatype(atype t)
 {
 	return(t -> tag);
@@ -36,6 +37,8 @@ struct Satc {
 extern atype mkatc PROTO((unkId, list, long));
 #ifdef __GNUC__
 
+unkId *Rgatcid PROTO((struct Satc *));
+
 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__
 
+list *Rgatctypel PROTO((struct Satc *));
+
 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__
 
+long *Rgatcline PROTO((struct Satc *));
+
 extern __inline__ long *Rgatcline(struct Satc *t)
 {
 #ifdef UGEN_DEBUG

ghc/compiler/yaccParser/binding.c

@@ -252,132 +252,6 @@ binding *Rgabindsnd(t)
 	return(& t -> Xgabindsnd);
 }
 
-/************** lbind ******************/
-
-binding mklbind(PPglbindfst, PPglbindsnd)
- binding PPglbindfst;
- binding PPglbindsnd;
-{
-	register struct Slbind *pp =
-		(struct Slbind *) malloc(sizeof(struct Slbind));
-	pp -> tag = lbind;
-	pp -> Xglbindfst = PPglbindfst;
-	pp -> Xglbindsnd = PPglbindsnd;
-	return((binding)pp);
-}
-
-binding *Rglbindfst(t)
- struct Slbind *t;
-{
-#ifdef UGEN_DEBUG
-	if(t -> tag != lbind)
-		fprintf(stderr,"glbindfst: illegal selection; was %d\n", t -> tag);
-#endif /* UGEN_DEBUG */
-	return(& t -> Xglbindfst);
-}
-
-binding *Rglbindsnd(t)
- struct Slbind *t;
-{
-#ifdef UGEN_DEBUG
-	if(t -> tag != lbind)
-		fprintf(stderr,"glbindsnd: illegal selection; was %d\n", t -> tag);
-#endif /* UGEN_DEBUG */
-	return(& t -> Xglbindsnd);
-}
-
-/************** ebind ******************/
-
-binding mkebind(PPgebindl, PPgebind, PPgeline)
- list PPgebindl;
- binding PPgebind;
- long PPgeline;
-{
-	register struct Sebind *pp =
-		(struct Sebind *) malloc(sizeof(struct Sebind));
-	pp -> tag = ebind;
-	pp -> Xgebindl = PPgebindl;
-	pp -> Xgebind = PPgebind;
-	pp -> Xgeline = PPgeline;
-	return((binding)pp);
-}
-
-list *Rgebindl(t)
- struct Sebind *t;
-{
-#ifdef UGEN_DEBUG
-	if(t -> tag != ebind)
-		fprintf(stderr,"gebindl: illegal selection; was %d\n", t -> tag);
-#endif /* UGEN_DEBUG */
-	return(& t -> Xgebindl);
-}
-
-binding *Rgebind(t)
- struct Sebind *t;
-{
-#ifdef UGEN_DEBUG
-	if(t -> tag != ebind)
-		fprintf(stderr,"gebind: illegal selection; was %d\n", t -> tag);
-#endif /* UGEN_DEBUG */
-	return(& t -> Xgebind);
-}
-
-long *Rgeline(t)
- struct Sebind *t;
-{
-#ifdef UGEN_DEBUG
-	if(t -> tag != ebind)
-		fprintf(stderr,"geline: illegal selection; was %d\n", t -> tag);
-#endif /* UGEN_DEBUG */
-	return(& t -> Xgeline);
-}
-
-/************** hbind ******************/
-
-binding mkhbind(PPghbindl, PPghbind, PPghline)
- list PPghbindl;
- binding PPghbind;
- long PPghline;
-{
-	register struct Shbind *pp =
-		(struct Shbind *) malloc(sizeof(struct Shbind));
-	pp -> tag = hbind;
-	pp -> Xghbindl = PPghbindl;
-	pp -> Xghbind = PPghbind;
-	pp -> Xghline = PPghline;
-	return((binding)pp);
-}
-
-list *Rghbindl(t)
- struct Shbind *t;
-{
-#ifdef UGEN_DEBUG
-	if(t -> tag != hbind)
-		fprintf(stderr,"ghbindl: illegal selection; was %d\n", t -> tag);
-#endif /* UGEN_DEBUG */
-	return(& t -> Xghbindl);
-}
-
-binding *Rghbind(t)
- struct Shbind *t;
-{
-#ifdef UGEN_DEBUG
-	if(t -> tag != hbind)
-		fprintf(stderr,"ghbind: illegal selection; was %d\n", t -> tag);
-#endif /* UGEN_DEBUG */
-	return(& t -> Xghbind);
-}
-
-long *Rghline(t)
- struct Shbind *t;
-{
-#ifdef UGEN_DEBUG
-	if(t -> tag != hbind)
-		fprintf(stderr,"ghline: illegal selection; was %d\n", t -> tag);
-#endif /* UGEN_DEBUG */
-	return(& t -> Xghline);
-}
-
 /************** ibind ******************/
 
 binding mkibind(PPgibindc, PPgibindid, PPgibindi, PPgibindw, PPgiline, PPgipragma)
@@ -682,7 +556,7 @@ long *Rgmline(t)
 
 /************** nullbind ******************/
 
-binding mknullbind()
+binding mknullbind(void)
 {
 	register struct Snullbind *pp =
 		(struct Snullbind *) malloc(sizeof(struct Snullbind));

ghc/compiler/yaccParser/coresyn.c

@@ -702,7 +702,7 @@ coresyn *Rgcoprim_rhs(t)
 
 /************** conodeflt ******************/
 
-coresyn mkconodeflt()
+coresyn mkconodeflt(void)
 {
 	register struct Sconodeflt *pp =
 		(struct Sconodeflt *) malloc(sizeof(struct Sconodeflt));
@@ -1162,7 +1162,7 @@ coresyn *Rgco_dictcc_cafd(t)
 
 /************** co_scc_noncaf ******************/
 
-coresyn mkco_scc_noncaf()
+coresyn mkco_scc_noncaf(void)
 {
 	register struct Sco_scc_noncaf *pp =
 		(struct Sco_scc_noncaf *) malloc(sizeof(struct Sco_scc_noncaf));
@@ -1172,7 +1172,7 @@ coresyn mkco_scc_noncaf()
 
 /************** co_scc_caf ******************/
 
-coresyn mkco_scc_caf()
+coresyn mkco_scc_caf(void)
 {
 	register struct Sco_scc_caf *pp =
 		(struct Sco_scc_caf *) malloc(sizeof(struct Sco_scc_caf));
@@ -1182,7 +1182,7 @@ coresyn mkco_scc_caf()
 
 /************** co_scc_nondupd ******************/
 
-coresyn mkco_scc_nondupd()
+coresyn mkco_scc_nondupd(void)
 {
 	register struct Sco_scc_nondupd *pp =
 		(struct Sco_scc_nondupd *) malloc(sizeof(struct Sco_scc_nondupd));
@@ -1192,7 +1192,7 @@ coresyn mkco_scc_nondupd()
 
 /************** co_scc_dupd ******************/
 
-coresyn mkco_scc_dupd()
+coresyn mkco_scc_dupd(void)
 {
 	register struct Sco_scc_dupd *pp =
 		(struct Sco_scc_dupd *) malloc(sizeof(struct Sco_scc_dupd));

ghc/compiler/yaccParser/entidt.h

@@ -23,6 +23,7 @@ typedef enum {
 typedef struct { Tentidt tag; } *entidt;
 
 #ifdef __GNUC__
+Tentidt tentidt(entidt t);
 extern __inline__ Tentidt tentidt(entidt t)
 {
 	return(t -> tag);
@@ -66,6 +67,8 @@ struct Sentmod {
 extern entidt mkentid PROTO((stringId));
 #ifdef __GNUC__
 
+stringId *Rgentid PROTO((struct Sentid *));
+
 extern __inline__ stringId *Rgentid(struct Sentid *t)
 {
 #ifdef UGEN_DEBUG
@@ -83,6 +86,8 @@ extern stringId *Rgentid PROTO((struct Sentid *));
 extern entidt mkenttype PROTO((stringId));
 #ifdef __GNUC__
 
+stringId *Rgitentid PROTO((struct Senttype *));
+
 extern __inline__ stringId *Rgitentid(struct Senttype *t)
 {
 #ifdef UGEN_DEBUG
@@ -100,6 +105,8 @@ extern stringId *Rgitentid PROTO((struct Senttype *));
 extern entidt mkenttypeall PROTO((stringId));
 #ifdef __GNUC__
 
+stringId *Rgatentid PROTO((struct Senttypeall *));
+
 extern __inline__ stringId *Rgatentid(struct Senttypeall *t)
 {
 #ifdef UGEN_DEBUG
@@ -117,6 +124,8 @@ extern stringId *Rgatentid PROTO((struct Senttypeall *));
 extern entidt mkenttypecons PROTO((stringId, list));
 #ifdef __GNUC__
 
+stringId *Rgctentid PROTO((struct Senttypecons *));
+
 extern __inline__ stringId *Rgctentid(struct Senttypecons *t)
 {
 #ifdef UGEN_DEBUG
@@ -132,6 +141,8 @@ extern stringId *Rgctentid PROTO((struct Senttypecons *));
 #define gctentid(xyzxyz) (*Rgctentid((struct Senttypecons *) (xyzxyz)))
 #ifdef __GNUC__
 
+list *Rgctentcons PROTO((struct Senttypecons *));
+
 extern __inline__ list *Rgctentcons(struct Senttypecons *t)
 {
 #ifdef UGEN_DEBUG
@@ -149,6 +160,8 @@ extern list *Rgctentcons PROTO((struct Senttypecons *));
 extern entidt mkentclass PROTO((stringId, list));
 #ifdef __GNUC__
 
+stringId *Rgcentid PROTO((struct Sentclass *));
+
 extern __inline__ stringId *Rgcentid(struct Sentclass *t)
 {
 #ifdef UGEN_DEBUG
@@ -164,6 +177,8 @@ extern stringId *Rgcentid PROTO((struct Sentclass *));
 #define gcentid(xyzxyz) (*Rgcentid((struct Sentclass *) (xyzxyz)))
 #ifdef __GNUC__
 
+list *Rgcentops PROTO((struct Sentclass *));
+
 extern __inline__ list *Rgcentops(struct Sentclass *t)
 {
 #ifdef UGEN_DEBUG
@@ -181,6 +196,8 @@ extern list *Rgcentops PROTO((struct Sentclass *));
 extern entidt mkentmod PROTO((stringId));
 #ifdef __GNUC__
 
+stringId *Rgmentid PROTO((struct Sentmod *));
+
 extern __inline__ stringId *Rgmentid(struct Sentmod *t)
 {
 #ifdef UGEN_DEBUG

ghc/compiler/yaccParser/finfot.c

@@ -10,16 +10,6 @@ Tfinfot tfinfot(t)
 }
 
 
-/************** nofinfo ******************/
-
-finfot mknofinfo()
-{
-	register struct Snofinfo *pp =
-		(struct Snofinfo *) malloc(sizeof(struct Snofinfo));
-	pp -> tag = nofinfo;
-	return((finfot)pp);
-}
-
 /************** finfo ******************/
 
 finfot mkfinfo(PPfi1, PPfi2)

ghc/compiler/yaccParser/finfot.h

@@ -12,13 +12,13 @@
 #endif
 
 typedef enum {
-	nofinfo,
 	finfo
 } Tfinfot;
 
 typedef struct { Tfinfot tag; } *finfot;
 
 #ifdef __GNUC__
+Tfinfot tfinfot(finfot t);
 extern __inline__ Tfinfot tfinfot(finfot t)
 {
 	return(t -> tag);
@@ -27,21 +27,17 @@ extern __inline__ Tfinfot tfinfot(finfot t)
 extern Tfinfot tfinfot PROTO((finfot));
 #endif /* ! __GNUC__ */
 
-struct Snofinfo {
-	Tfinfot tag;
-};
-
 struct Sfinfo {
 	Tfinfot tag;
 	stringId Xfi1;
 	stringId Xfi2;
 };
 
-extern finfot mknofinfo PROTO(());
-
 extern finfot mkfinfo PROTO((stringId, stringId));
 #ifdef __GNUC__
 
+stringId *Rfi1 PROTO((struct Sfinfo *));
+
 extern __inline__ stringId *Rfi1(struct Sfinfo *t)
 {
 #ifdef UGEN_DEBUG
@@ -57,6 +53,8 @@ extern stringId *Rfi1 PROTO((struct Sfinfo *));
 #define fi1(xyzxyz) (*Rfi1((struct Sfinfo *) (xyzxyz)))
 #ifdef __GNUC__
 
+stringId *Rfi2 PROTO((struct Sfinfo *));
+
 extern __inline__ stringId *Rfi2(struct Sfinfo *t)
 {
 #ifdef UGEN_DEBUG

ghc/compiler/yaccParser/hpragma.c

@@ -12,7 +12,7 @@ Thpragma thpragma(t)
 
 /************** no_pragma ******************/
 
-hpragma mkno_pragma()
+hpragma mkno_pragma(void)
 {
 	register struct Sno_pragma *pp =
 		(struct Sno_pragma *) malloc(sizeof(struct Sno_pragma));
@@ -56,7 +56,7 @@ list *Rgprag_data_specs(t)
 
 /************** itype_pragma ******************/
 
-hpragma mkitype_pragma()
+hpragma mkitype_pragma(void)
 {
 	register struct Sitype_pragma *pp =
 		(struct Sitype_pragma *) malloc(sizeof(struct Sitype_pragma));
@@ -374,7 +374,7 @@ stringId *Rgprag_update_val(t)
 
 /************** ideforest_pragma ******************/
 
-hpragma mkideforest_pragma()
+hpragma mkideforest_pragma(void)
 {
 	register struct Sideforest_pragma *pp =
 		(struct Sideforest_pragma *) malloc(sizeof(struct Sideforest_pragma));
@@ -474,7 +474,7 @@ coresyn *Rgprag_unfold_core(t)
 
 /************** iunfold_always ******************/
 
-hpragma mkiunfold_always()
+hpragma mkiunfold_always(void)
 {
 	register struct Siunfold_always *pp =
 		(struct Siunfold_always *) malloc(sizeof(struct Siunfold_always));

ghc/compiler/yaccParser/hpragma.h

@@ -38,6 +38,7 @@ typedef enum {
 typedef struct { Thpragma tag; } *hpragma;
 
 #ifdef __GNUC__
+Thpragma thpragma(hpragma t);
 extern __inline__ Thpragma thpragma(hpragma t)
 {
 	return(t -> tag);
@@ -170,11 +171,13 @@ struct Sidata_pragma_4s {
 	list Xgprag_data_spec;
 };
 
-extern hpragma mkno_pragma PROTO(());
+extern hpragma mkno_pragma PROTO((void));
 
 extern hpragma mkidata_pragma PROTO((list, list));
 #ifdef __GNUC__
 
+list *Rgprag_data_constrs PROTO((struct Sidata_pragma *));
+
 extern __inline__ list *Rgprag_data_constrs(struct Sidata_pragma *t)
 {
 #ifdef UGEN_DEBUG
@@ -190,6 +193,8 @@ extern list *Rgprag_data_constrs PROTO((struct Sidata_pragma *));
 #define gprag_data_constrs(xyzxyz) (*Rgprag_data_constrs((struct Sidata_pragma *) (xyzxyz)))
 #ifdef __GNUC__
 
+list *Rgprag_data_specs PROTO((struct Sidata_pragma *));
+
 extern __inline__ list *Rgprag_data_specs(struct Sidata_pragma *t)
 {
 #ifdef UGEN_DEBUG
@@ -204,11 +209,13 @@ extern list *Rgprag_data_specs PROTO((struct Sidata_pragma *));
 
 #define gprag_data_specs(xyzxyz) (*Rgprag_data_specs((struct Sidata_pragma *) (xyzxyz)))
 
-extern hpragma mkitype_pragma PROTO(());
+extern hpragma mkitype_pragma PROTO((void));
 
 extern hpragma mkiclas_pragma PROTO((list));
 #ifdef __GNUC__
 
+list *Rgprag_clas PROTO((struct Siclas_pragma *));
+
 extern __inline__ list *Rgprag_clas(struct Siclas_pragma *t)
 {
 #ifdef UGEN_DEBUG
@@ -226,6 +233,8 @@ extern list *Rgprag_clas PROTO((struct Siclas_pragma *));
 extern hpragma mkiclasop_pragma PROTO((hpragma, hpragma));
 #ifdef __GNUC__
 
+hpragma *Rgprag_dsel PROTO((struct Siclasop_pragma *));
+
 extern __inline__ hpragma *Rgprag_dsel(struct Siclasop_pragma *t)
 {
 #ifdef UGEN_DEBUG
@@ -241,6 +250,8 @@ extern hpragma *Rgprag_dsel PROTO((struct Siclasop_pragma *));
 #define gprag_dsel(xyzxyz) (*Rgprag_dsel((struct Siclasop_pragma *) (xyzxyz)))
 #ifdef __GNUC__
 
+hpragma *Rgprag_defm PROTO((struct Siclasop_pragma *));
+
 extern __inline__ hpragma *Rgprag_defm(struct Siclasop_pragma *t)
 {
 #ifdef UGEN_DEBUG
@@ -258,6 +269,8 @@ extern hpragma *Rgprag_defm PROTO((struct Siclasop_pragma *));
 extern hpragma mkiinst_simpl_pragma PROTO((stringId, hpragma));
 #ifdef __GNUC__
 
+stringId *Rgprag_imod_simpl PROTO((struct Siinst_simpl_pragma *));
+
 extern __inline__ stringId *Rgprag_imod_simpl(struct Siinst_simpl_pragma *t)
 {
 #ifdef UGEN_DEBUG
@@ -273,6 +286,8 @@ extern stringId *Rgprag_imod_simpl PROTO((struct Siinst_simpl_pragma *));
 #define gprag_imod_simpl(xyzxyz) (*Rgprag_imod_simpl((struct Siinst_simpl_pragma *) (xyzxyz)))
 #ifdef __GNUC__
 
+hpragma *Rgprag_dfun_simpl PROTO((struct Siinst_simpl_pragma *));
+
 extern __inline__ hpragma *Rgprag_dfun_simpl(struct Siinst_simpl_pragma *t)
 {
 #ifdef UGEN_DEBUG
@@ -290,6 +305,8 @@ extern hpragma *Rgprag_dfun_simpl PROTO((struct Siinst_simpl_pragma *));
 extern hpragma mkiinst_const_pragma PROTO((stringId, hpragma, list));
 #ifdef __GNUC__
 
+stringId *Rgprag_imod_const PROTO((struct Siinst_const_pragma *));
+
 extern __inline__ stringId *Rgprag_imod_const(struct Siinst_const_pragma *t)
 {
 #ifdef UGEN_DEBUG
@@ -305,6 +322,8 @@ extern stringId *Rgprag_imod_const PROTO((struct Siinst_const_pragma *));
 #define gprag_imod_const(xyzxyz) (*Rgprag_imod_const((struct Siinst_const_pragma *) (xyzxyz)))
 #ifdef __GNUC__
 
+hpragma *Rgprag_dfun_const PROTO((struct Siinst_const_pragma *));