Commit ed746436 authored by partain's avatar partain
Browse files

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

WDP 0.27 tidying up
parent 10521d84
......@@ -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
;;
......
The Glamorous Glasgow Haskell Compiler, version 0.26, patchlevel 1
The Glamorous Glasgow Haskell Compiler, version 0.27, patchlevel 0
......@@ -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 ->
......
......@@ -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 ->
......
......@@ -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
......
......@@ -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));
......
This diff is collapsed.
......@@ -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));
......
This diff is collapsed.
......@@ -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
......
......@@ -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)
......
......@@ -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
......
......@@ -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));
......
......@@ -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 *));