1 #ifndef hpragma_defined
2 #define hpragma_defined
28 imagic_unfolding_pragma,
38 typedef struct { Thpragma tag; } *hpragma;
41 extern __inline__ Thpragma thpragma(hpragma t)
45 #else /* ! __GNUC__ */
46 extern Thpragma thpragma PROTO((hpragma));
47 #endif /* ! __GNUC__ */
53 struct Sidata_pragma {
55 list Xgprag_data_constrs;
56 list Xgprag_data_specs;
59 struct Sitype_pragma {
63 struct Siclas_pragma {
68 struct Siclasop_pragma {
74 struct Siinst_simpl_pragma {
76 stringId Xgprag_imod_simpl;
77 hpragma Xgprag_dfun_simpl;
80 struct Siinst_const_pragma {
82 stringId Xgprag_imod_const;
83 hpragma Xgprag_dfun_const;
87 struct Siinst_spec_pragma {
89 stringId Xgprag_imod_spec;
90 hpragma Xgprag_dfun_spec;
91 list Xgprag_inst_specs;
97 hpragma Xgprag_update;
98 hpragma Xgprag_deforest;
99 hpragma Xgprag_strictness;
100 hpragma Xgprag_unfolding;
104 struct Siarity_pragma {
106 numId Xgprag_arity_val;
109 struct Siupdate_pragma {
111 stringId Xgprag_update_val;
114 struct Sideforest_pragma {
118 struct Sistrictness_pragma {
120 hstring Xgprag_strict_spec;
121 hpragma Xgprag_strict_wrkr;
124 struct Simagic_unfolding_pragma {
126 stringId Xgprag_magic_str;
129 struct Siunfolding_pragma {
131 hpragma Xgprag_unfold_guide;
132 coresyn Xgprag_unfold_core;
135 struct Siunfold_always {
139 struct Siunfold_if_args {
141 numId Xgprag_unfold_if_t_args;
142 numId Xgprag_unfold_if_v_args;
143 stringId Xgprag_unfold_if_con_args;
144 numId Xgprag_unfold_if_size;
147 struct Siname_pragma_pr {
149 unkId Xgprag_name_pr1;
150 hpragma Xgprag_name_pr2;
153 struct Sitype_pragma_pr {
155 list Xgprag_type_pr1;
156 numId Xgprag_type_pr2;
157 hpragma Xgprag_type_pr3;
160 struct Siinst_pragma_3s {
162 list Xgprag_inst_pt1;
163 numId Xgprag_inst_pt2;
164 hpragma Xgprag_inst_pt3;
165 list Xgprag_inst_pt4;
168 struct Sidata_pragma_4s {
170 list Xgprag_data_spec;
173 extern hpragma mkno_pragma PROTO(());
175 extern hpragma mkidata_pragma PROTO((list, list));
178 extern __inline__ list *Rgprag_data_constrs(struct Sidata_pragma *t)
181 if(t -> tag != idata_pragma)
182 fprintf(stderr,"gprag_data_constrs: illegal selection; was %d\n", t -> tag);
183 #endif /* UGEN_DEBUG */
184 return(& t -> Xgprag_data_constrs);
186 #else /* ! __GNUC__ */
187 extern list *Rgprag_data_constrs PROTO((struct Sidata_pragma *));
188 #endif /* ! __GNUC__ */
190 #define gprag_data_constrs(xyzxyz) (*Rgprag_data_constrs((struct Sidata_pragma *) (xyzxyz)))
193 extern __inline__ list *Rgprag_data_specs(struct Sidata_pragma *t)
196 if(t -> tag != idata_pragma)
197 fprintf(stderr,"gprag_data_specs: illegal selection; was %d\n", t -> tag);
198 #endif /* UGEN_DEBUG */
199 return(& t -> Xgprag_data_specs);
201 #else /* ! __GNUC__ */
202 extern list *Rgprag_data_specs PROTO((struct Sidata_pragma *));
203 #endif /* ! __GNUC__ */
205 #define gprag_data_specs(xyzxyz) (*Rgprag_data_specs((struct Sidata_pragma *) (xyzxyz)))
207 extern hpragma mkitype_pragma PROTO(());
209 extern hpragma mkiclas_pragma PROTO((list));
212 extern __inline__ list *Rgprag_clas(struct Siclas_pragma *t)
215 if(t -> tag != iclas_pragma)
216 fprintf(stderr,"gprag_clas: illegal selection; was %d\n", t -> tag);
217 #endif /* UGEN_DEBUG */
218 return(& t -> Xgprag_clas);
220 #else /* ! __GNUC__ */
221 extern list *Rgprag_clas PROTO((struct Siclas_pragma *));
222 #endif /* ! __GNUC__ */
224 #define gprag_clas(xyzxyz) (*Rgprag_clas((struct Siclas_pragma *) (xyzxyz)))
226 extern hpragma mkiclasop_pragma PROTO((hpragma, hpragma));
229 extern __inline__ hpragma *Rgprag_dsel(struct Siclasop_pragma *t)
232 if(t -> tag != iclasop_pragma)
233 fprintf(stderr,"gprag_dsel: illegal selection; was %d\n", t -> tag);
234 #endif /* UGEN_DEBUG */
235 return(& t -> Xgprag_dsel);
237 #else /* ! __GNUC__ */
238 extern hpragma *Rgprag_dsel PROTO((struct Siclasop_pragma *));
239 #endif /* ! __GNUC__ */
241 #define gprag_dsel(xyzxyz) (*Rgprag_dsel((struct Siclasop_pragma *) (xyzxyz)))
244 extern __inline__ hpragma *Rgprag_defm(struct Siclasop_pragma *t)
247 if(t -> tag != iclasop_pragma)
248 fprintf(stderr,"gprag_defm: illegal selection; was %d\n", t -> tag);
249 #endif /* UGEN_DEBUG */
250 return(& t -> Xgprag_defm);
252 #else /* ! __GNUC__ */
253 extern hpragma *Rgprag_defm PROTO((struct Siclasop_pragma *));
254 #endif /* ! __GNUC__ */
256 #define gprag_defm(xyzxyz) (*Rgprag_defm((struct Siclasop_pragma *) (xyzxyz)))
258 extern hpragma mkiinst_simpl_pragma PROTO((stringId, hpragma));
261 extern __inline__ stringId *Rgprag_imod_simpl(struct Siinst_simpl_pragma *t)
264 if(t -> tag != iinst_simpl_pragma)
265 fprintf(stderr,"gprag_imod_simpl: illegal selection; was %d\n", t -> tag);
266 #endif /* UGEN_DEBUG */
267 return(& t -> Xgprag_imod_simpl);
269 #else /* ! __GNUC__ */
270 extern stringId *Rgprag_imod_simpl PROTO((struct Siinst_simpl_pragma *));
271 #endif /* ! __GNUC__ */
273 #define gprag_imod_simpl(xyzxyz) (*Rgprag_imod_simpl((struct Siinst_simpl_pragma *) (xyzxyz)))
276 extern __inline__ hpragma *Rgprag_dfun_simpl(struct Siinst_simpl_pragma *t)
279 if(t -> tag != iinst_simpl_pragma)
280 fprintf(stderr,"gprag_dfun_simpl: illegal selection; was %d\n", t -> tag);
281 #endif /* UGEN_DEBUG */
282 return(& t -> Xgprag_dfun_simpl);
284 #else /* ! __GNUC__ */
285 extern hpragma *Rgprag_dfun_simpl PROTO((struct Siinst_simpl_pragma *));
286 #endif /* ! __GNUC__ */
288 #define gprag_dfun_simpl(xyzxyz) (*Rgprag_dfun_simpl((struct Siinst_simpl_pragma *) (xyzxyz)))
290 extern hpragma mkiinst_const_pragma PROTO((stringId, hpragma, list));
293 extern __inline__ stringId *Rgprag_imod_const(struct Siinst_const_pragma *t)
296 if(t -> tag != iinst_const_pragma)
297 fprintf(stderr,"gprag_imod_const: illegal selection; was %d\n", t -> tag);
298 #endif /* UGEN_DEBUG */
299 return(& t -> Xgprag_imod_const);
301 #else /* ! __GNUC__ */
302 extern stringId *Rgprag_imod_const PROTO((struct Siinst_const_pragma *));
303 #endif /* ! __GNUC__ */
305 #define gprag_imod_const(xyzxyz) (*Rgprag_imod_const((struct Siinst_const_pragma *) (xyzxyz)))
308 extern __inline__ hpragma *Rgprag_dfun_const(struct Siinst_const_pragma *t)
311 if(t -> tag != iinst_const_pragma)
312 fprintf(stderr,"gprag_dfun_const: illegal selection; was %d\n", t -> tag);
313 #endif /* UGEN_DEBUG */
314 return(& t -> Xgprag_dfun_const);
316 #else /* ! __GNUC__ */
317 extern hpragma *Rgprag_dfun_const PROTO((struct Siinst_const_pragma *));
318 #endif /* ! __GNUC__ */
320 #define gprag_dfun_const(xyzxyz) (*Rgprag_dfun_const((struct Siinst_const_pragma *) (xyzxyz)))
323 extern __inline__ list *Rgprag_constms(struct Siinst_const_pragma *t)
326 if(t -> tag != iinst_const_pragma)
327 fprintf(stderr,"gprag_constms: illegal selection; was %d\n", t -> tag);
328 #endif /* UGEN_DEBUG */
329 return(& t -> Xgprag_constms);
331 #else /* ! __GNUC__ */
332 extern list *Rgprag_constms PROTO((struct Siinst_const_pragma *));
333 #endif /* ! __GNUC__ */
335 #define gprag_constms(xyzxyz) (*Rgprag_constms((struct Siinst_const_pragma *) (xyzxyz)))
337 extern hpragma mkiinst_spec_pragma PROTO((stringId, hpragma, list));
340 extern __inline__ stringId *Rgprag_imod_spec(struct Siinst_spec_pragma *t)
343 if(t -> tag != iinst_spec_pragma)
344 fprintf(stderr,"gprag_imod_spec: illegal selection; was %d\n", t -> tag);
345 #endif /* UGEN_DEBUG */
346 return(& t -> Xgprag_imod_spec);
348 #else /* ! __GNUC__ */
349 extern stringId *Rgprag_imod_spec PROTO((struct Siinst_spec_pragma *));
350 #endif /* ! __GNUC__ */
352 #define gprag_imod_spec(xyzxyz) (*Rgprag_imod_spec((struct Siinst_spec_pragma *) (xyzxyz)))
355 extern __inline__ hpragma *Rgprag_dfun_spec(struct Siinst_spec_pragma *t)
358 if(t -> tag != iinst_spec_pragma)
359 fprintf(stderr,"gprag_dfun_spec: illegal selection; was %d\n", t -> tag);
360 #endif /* UGEN_DEBUG */
361 return(& t -> Xgprag_dfun_spec);
363 #else /* ! __GNUC__ */
364 extern hpragma *Rgprag_dfun_spec PROTO((struct Siinst_spec_pragma *));
365 #endif /* ! __GNUC__ */
367 #define gprag_dfun_spec(xyzxyz) (*Rgprag_dfun_spec((struct Siinst_spec_pragma *) (xyzxyz)))
370 extern __inline__ list *Rgprag_inst_specs(struct Siinst_spec_pragma *t)
373 if(t -> tag != iinst_spec_pragma)
374 fprintf(stderr,"gprag_inst_specs: illegal selection; was %d\n", t -> tag);
375 #endif /* UGEN_DEBUG */
376 return(& t -> Xgprag_inst_specs);
378 #else /* ! __GNUC__ */
379 extern list *Rgprag_inst_specs PROTO((struct Siinst_spec_pragma *));
380 #endif /* ! __GNUC__ */
382 #define gprag_inst_specs(xyzxyz) (*Rgprag_inst_specs((struct Siinst_spec_pragma *) (xyzxyz)))
384 extern hpragma mkigen_pragma PROTO((hpragma, hpragma, hpragma, hpragma, hpragma, list));
387 extern __inline__ hpragma *Rgprag_arity(struct Sigen_pragma *t)
390 if(t -> tag != igen_pragma)
391 fprintf(stderr,"gprag_arity: illegal selection; was %d\n", t -> tag);
392 #endif /* UGEN_DEBUG */
393 return(& t -> Xgprag_arity);
395 #else /* ! __GNUC__ */
396 extern hpragma *Rgprag_arity PROTO((struct Sigen_pragma *));
397 #endif /* ! __GNUC__ */
399 #define gprag_arity(xyzxyz) (*Rgprag_arity((struct Sigen_pragma *) (xyzxyz)))
402 extern __inline__ hpragma *Rgprag_update(struct Sigen_pragma *t)
405 if(t -> tag != igen_pragma)
406 fprintf(stderr,"gprag_update: illegal selection; was %d\n", t -> tag);
407 #endif /* UGEN_DEBUG */
408 return(& t -> Xgprag_update);
410 #else /* ! __GNUC__ */
411 extern hpragma *Rgprag_update PROTO((struct Sigen_pragma *));
412 #endif /* ! __GNUC__ */
414 #define gprag_update(xyzxyz) (*Rgprag_update((struct Sigen_pragma *) (xyzxyz)))
417 extern __inline__ hpragma *Rgprag_deforest(struct Sigen_pragma *t)
420 if(t -> tag != igen_pragma)
421 fprintf(stderr,"gprag_deforest: illegal selection; was %d\n", t -> tag);
422 #endif /* UGEN_DEBUG */
423 return(& t -> Xgprag_deforest);
425 #else /* ! __GNUC__ */
426 extern hpragma *Rgprag_deforest PROTO((struct Sigen_pragma *));
427 #endif /* ! __GNUC__ */
429 #define gprag_deforest(xyzxyz) (*Rgprag_deforest((struct Sigen_pragma *) (xyzxyz)))
432 extern __inline__ hpragma *Rgprag_strictness(struct Sigen_pragma *t)
435 if(t -> tag != igen_pragma)
436 fprintf(stderr,"gprag_strictness: illegal selection; was %d\n", t -> tag);
437 #endif /* UGEN_DEBUG */
438 return(& t -> Xgprag_strictness);
440 #else /* ! __GNUC__ */
441 extern hpragma *Rgprag_strictness PROTO((struct Sigen_pragma *));
442 #endif /* ! __GNUC__ */
444 #define gprag_strictness(xyzxyz) (*Rgprag_strictness((struct Sigen_pragma *) (xyzxyz)))
447 extern __inline__ hpragma *Rgprag_unfolding(struct Sigen_pragma *t)
450 if(t -> tag != igen_pragma)
451 fprintf(stderr,"gprag_unfolding: illegal selection; was %d\n", t -> tag);
452 #endif /* UGEN_DEBUG */
453 return(& t -> Xgprag_unfolding);
455 #else /* ! __GNUC__ */
456 extern hpragma *Rgprag_unfolding PROTO((struct Sigen_pragma *));
457 #endif /* ! __GNUC__ */
459 #define gprag_unfolding(xyzxyz) (*Rgprag_unfolding((struct Sigen_pragma *) (xyzxyz)))
462 extern __inline__ list *Rgprag_specs(struct Sigen_pragma *t)
465 if(t -> tag != igen_pragma)
466 fprintf(stderr,"gprag_specs: illegal selection; was %d\n", t -> tag);
467 #endif /* UGEN_DEBUG */
468 return(& t -> Xgprag_specs);
470 #else /* ! __GNUC__ */
471 extern list *Rgprag_specs PROTO((struct Sigen_pragma *));
472 #endif /* ! __GNUC__ */
474 #define gprag_specs(xyzxyz) (*Rgprag_specs((struct Sigen_pragma *) (xyzxyz)))
476 extern hpragma mkiarity_pragma PROTO((numId));
479 extern __inline__ numId *Rgprag_arity_val(struct Siarity_pragma *t)
482 if(t -> tag != iarity_pragma)
483 fprintf(stderr,"gprag_arity_val: illegal selection; was %d\n", t -> tag);
484 #endif /* UGEN_DEBUG */
485 return(& t -> Xgprag_arity_val);
487 #else /* ! __GNUC__ */
488 extern numId *Rgprag_arity_val PROTO((struct Siarity_pragma *));
489 #endif /* ! __GNUC__ */
491 #define gprag_arity_val(xyzxyz) (*Rgprag_arity_val((struct Siarity_pragma *) (xyzxyz)))
493 extern hpragma mkiupdate_pragma PROTO((stringId));
496 extern __inline__ stringId *Rgprag_update_val(struct Siupdate_pragma *t)
499 if(t -> tag != iupdate_pragma)
500 fprintf(stderr,"gprag_update_val: illegal selection; was %d\n", t -> tag);
501 #endif /* UGEN_DEBUG */
502 return(& t -> Xgprag_update_val);
504 #else /* ! __GNUC__ */
505 extern stringId *Rgprag_update_val PROTO((struct Siupdate_pragma *));
506 #endif /* ! __GNUC__ */
508 #define gprag_update_val(xyzxyz) (*Rgprag_update_val((struct Siupdate_pragma *) (xyzxyz)))
510 extern hpragma mkideforest_pragma PROTO(());
512 extern hpragma mkistrictness_pragma PROTO((hstring, hpragma));
515 extern __inline__ hstring *Rgprag_strict_spec(struct Sistrictness_pragma *t)
518 if(t -> tag != istrictness_pragma)
519 fprintf(stderr,"gprag_strict_spec: illegal selection; was %d\n", t -> tag);
520 #endif /* UGEN_DEBUG */
521 return(& t -> Xgprag_strict_spec);
523 #else /* ! __GNUC__ */
524 extern hstring *Rgprag_strict_spec PROTO((struct Sistrictness_pragma *));
525 #endif /* ! __GNUC__ */
527 #define gprag_strict_spec(xyzxyz) (*Rgprag_strict_spec((struct Sistrictness_pragma *) (xyzxyz)))
530 extern __inline__ hpragma *Rgprag_strict_wrkr(struct Sistrictness_pragma *t)
533 if(t -> tag != istrictness_pragma)
534 fprintf(stderr,"gprag_strict_wrkr: illegal selection; was %d\n", t -> tag);
535 #endif /* UGEN_DEBUG */
536 return(& t -> Xgprag_strict_wrkr);
538 #else /* ! __GNUC__ */
539 extern hpragma *Rgprag_strict_wrkr PROTO((struct Sistrictness_pragma *));
540 #endif /* ! __GNUC__ */
542 #define gprag_strict_wrkr(xyzxyz) (*Rgprag_strict_wrkr((struct Sistrictness_pragma *) (xyzxyz)))
544 extern hpragma mkimagic_unfolding_pragma PROTO((stringId));
547 extern __inline__ stringId *Rgprag_magic_str(struct Simagic_unfolding_pragma *t)
550 if(t -> tag != imagic_unfolding_pragma)
551 fprintf(stderr,"gprag_magic_str: illegal selection; was %d\n", t -> tag);
552 #endif /* UGEN_DEBUG */
553 return(& t -> Xgprag_magic_str);
555 #else /* ! __GNUC__ */
556 extern stringId *Rgprag_magic_str PROTO((struct Simagic_unfolding_pragma *));
557 #endif /* ! __GNUC__ */
559 #define gprag_magic_str(xyzxyz) (*Rgprag_magic_str((struct Simagic_unfolding_pragma *) (xyzxyz)))
561 extern hpragma mkiunfolding_pragma PROTO((hpragma, coresyn));
564 extern __inline__ hpragma *Rgprag_unfold_guide(struct Siunfolding_pragma *t)
567 if(t -> tag != iunfolding_pragma)
568 fprintf(stderr,"gprag_unfold_guide: illegal selection; was %d\n", t -> tag);
569 #endif /* UGEN_DEBUG */
570 return(& t -> Xgprag_unfold_guide);
572 #else /* ! __GNUC__ */
573 extern hpragma *Rgprag_unfold_guide PROTO((struct Siunfolding_pragma *));
574 #endif /* ! __GNUC__ */
576 #define gprag_unfold_guide(xyzxyz) (*Rgprag_unfold_guide((struct Siunfolding_pragma *) (xyzxyz)))
579 extern __inline__ coresyn *Rgprag_unfold_core(struct Siunfolding_pragma *t)
582 if(t -> tag != iunfolding_pragma)
583 fprintf(stderr,"gprag_unfold_core: illegal selection; was %d\n", t -> tag);
584 #endif /* UGEN_DEBUG */
585 return(& t -> Xgprag_unfold_core);
587 #else /* ! __GNUC__ */
588 extern coresyn *Rgprag_unfold_core PROTO((struct Siunfolding_pragma *));
589 #endif /* ! __GNUC__ */
591 #define gprag_unfold_core(xyzxyz) (*Rgprag_unfold_core((struct Siunfolding_pragma *) (xyzxyz)))
593 extern hpragma mkiunfold_always PROTO(());
595 extern hpragma mkiunfold_if_args PROTO((numId, numId, stringId, numId));
598 extern __inline__ numId *Rgprag_unfold_if_t_args(struct Siunfold_if_args *t)
601 if(t -> tag != iunfold_if_args)
602 fprintf(stderr,"gprag_unfold_if_t_args: illegal selection; was %d\n", t -> tag);
603 #endif /* UGEN_DEBUG */
604 return(& t -> Xgprag_unfold_if_t_args);
606 #else /* ! __GNUC__ */
607 extern numId *Rgprag_unfold_if_t_args PROTO((struct Siunfold_if_args *));
608 #endif /* ! __GNUC__ */
610 #define gprag_unfold_if_t_args(xyzxyz) (*Rgprag_unfold_if_t_args((struct Siunfold_if_args *) (xyzxyz)))
613 extern __inline__ numId *Rgprag_unfold_if_v_args(struct Siunfold_if_args *t)
616 if(t -> tag != iunfold_if_args)
617 fprintf(stderr,"gprag_unfold_if_v_args: illegal selection; was %d\n", t -> tag);
618 #endif /* UGEN_DEBUG */
619 return(& t -> Xgprag_unfold_if_v_args);
621 #else /* ! __GNUC__ */
622 extern numId *Rgprag_unfold_if_v_args PROTO((struct Siunfold_if_args *));
623 #endif /* ! __GNUC__ */
625 #define gprag_unfold_if_v_args(xyzxyz) (*Rgprag_unfold_if_v_args((struct Siunfold_if_args *) (xyzxyz)))
628 extern __inline__ stringId *Rgprag_unfold_if_con_args(struct Siunfold_if_args *t)
631 if(t -> tag != iunfold_if_args)
632 fprintf(stderr,"gprag_unfold_if_con_args: illegal selection; was %d\n", t -> tag);
633 #endif /* UGEN_DEBUG */
634 return(& t -> Xgprag_unfold_if_con_args);
636 #else /* ! __GNUC__ */
637 extern stringId *Rgprag_unfold_if_con_args PROTO((struct Siunfold_if_args *));
638 #endif /* ! __GNUC__ */
640 #define gprag_unfold_if_con_args(xyzxyz) (*Rgprag_unfold_if_con_args((struct Siunfold_if_args *) (xyzxyz)))
643 extern __inline__ numId *Rgprag_unfold_if_size(struct Siunfold_if_args *t)
646 if(t -> tag != iunfold_if_args)
647 fprintf(stderr,"gprag_unfold_if_size: illegal selection; was %d\n", t -> tag);
648 #endif /* UGEN_DEBUG */
649 return(& t -> Xgprag_unfold_if_size);
651 #else /* ! __GNUC__ */
652 extern numId *Rgprag_unfold_if_size PROTO((struct Siunfold_if_args *));
653 #endif /* ! __GNUC__ */
655 #define gprag_unfold_if_size(xyzxyz) (*Rgprag_unfold_if_size((struct Siunfold_if_args *) (xyzxyz)))
657 extern hpragma mkiname_pragma_pr PROTO((unkId, hpragma));
660 extern __inline__ unkId *Rgprag_name_pr1(struct Siname_pragma_pr *t)
663 if(t -> tag != iname_pragma_pr)
664 fprintf(stderr,"gprag_name_pr1: illegal selection; was %d\n", t -> tag);
665 #endif /* UGEN_DEBUG */
666 return(& t -> Xgprag_name_pr1);
668 #else /* ! __GNUC__ */
669 extern unkId *Rgprag_name_pr1 PROTO((struct Siname_pragma_pr *));
670 #endif /* ! __GNUC__ */
672 #define gprag_name_pr1(xyzxyz) (*Rgprag_name_pr1((struct Siname_pragma_pr *) (xyzxyz)))
675 extern __inline__ hpragma *Rgprag_name_pr2(struct Siname_pragma_pr *t)
678 if(t -> tag != iname_pragma_pr)
679 fprintf(stderr,"gprag_name_pr2: illegal selection; was %d\n", t -> tag);
680 #endif /* UGEN_DEBUG */
681 return(& t -> Xgprag_name_pr2);
683 #else /* ! __GNUC__ */
684 extern hpragma *Rgprag_name_pr2 PROTO((struct Siname_pragma_pr *));
685 #endif /* ! __GNUC__ */
687 #define gprag_name_pr2(xyzxyz) (*Rgprag_name_pr2((struct Siname_pragma_pr *) (xyzxyz)))
689 extern hpragma mkitype_pragma_pr PROTO((list, numId, hpragma));
692 extern __inline__ list *Rgprag_type_pr1(struct Sitype_pragma_pr *t)
695 if(t -> tag != itype_pragma_pr)
696 fprintf(stderr,"gprag_type_pr1: illegal selection; was %d\n", t -> tag);
697 #endif /* UGEN_DEBUG */
698 return(& t -> Xgprag_type_pr1);
700 #else /* ! __GNUC__ */
701 extern list *Rgprag_type_pr1 PROTO((struct Sitype_pragma_pr *));
702 #endif /* ! __GNUC__ */
704 #define gprag_type_pr1(xyzxyz) (*Rgprag_type_pr1((struct Sitype_pragma_pr *) (xyzxyz)))
707 extern __inline__ numId *Rgprag_type_pr2(struct Sitype_pragma_pr *t)
710 if(t -> tag != itype_pragma_pr)
711 fprintf(stderr,"gprag_type_pr2: illegal selection; was %d\n", t -> tag);
712 #endif /* UGEN_DEBUG */
713 return(& t -> Xgprag_type_pr2);
715 #else /* ! __GNUC__ */
716 extern numId *Rgprag_type_pr2 PROTO((struct Sitype_pragma_pr *));
717 #endif /* ! __GNUC__ */
719 #define gprag_type_pr2(xyzxyz) (*Rgprag_type_pr2((struct Sitype_pragma_pr *) (xyzxyz)))
722 extern __inline__ hpragma *Rgprag_type_pr3(struct Sitype_pragma_pr *t)
725 if(t -> tag != itype_pragma_pr)
726 fprintf(stderr,"gprag_type_pr3: illegal selection; was %d\n", t -> tag);
727 #endif /* UGEN_DEBUG */
728 return(& t -> Xgprag_type_pr3);
730 #else /* ! __GNUC__ */
731 extern hpragma *Rgprag_type_pr3 PROTO((struct Sitype_pragma_pr *));
732 #endif /* ! __GNUC__ */
734 #define gprag_type_pr3(xyzxyz) (*Rgprag_type_pr3((struct Sitype_pragma_pr *) (xyzxyz)))
736 extern hpragma mkiinst_pragma_3s PROTO((list, numId, hpragma, list));
739 extern __inline__ list *Rgprag_inst_pt1(struct Siinst_pragma_3s *t)
742 if(t -> tag != iinst_pragma_3s)
743 fprintf(stderr,"gprag_inst_pt1: illegal selection; was %d\n", t -> tag);
744 #endif /* UGEN_DEBUG */
745 return(& t -> Xgprag_inst_pt1);
747 #else /* ! __GNUC__ */
748 extern list *Rgprag_inst_pt1 PROTO((struct Siinst_pragma_3s *));
749 #endif /* ! __GNUC__ */
751 #define gprag_inst_pt1(xyzxyz) (*Rgprag_inst_pt1((struct Siinst_pragma_3s *) (xyzxyz)))
754 extern __inline__ numId *Rgprag_inst_pt2(struct Siinst_pragma_3s *t)
757 if(t -> tag != iinst_pragma_3s)
758 fprintf(stderr,"gprag_inst_pt2: illegal selection; was %d\n", t -> tag);
759 #endif /* UGEN_DEBUG */
760 return(& t -> Xgprag_inst_pt2);
762 #else /* ! __GNUC__ */
763 extern numId *Rgprag_inst_pt2 PROTO((struct Siinst_pragma_3s *));
764 #endif /* ! __GNUC__ */
766 #define gprag_inst_pt2(xyzxyz) (*Rgprag_inst_pt2((struct Siinst_pragma_3s *) (xyzxyz)))
769 extern __inline__ hpragma *Rgprag_inst_pt3(struct Siinst_pragma_3s *t)
772 if(t -> tag != iinst_pragma_3s)
773 fprintf(stderr,"gprag_inst_pt3: illegal selection; was %d\n", t -> tag);
774 #endif /* UGEN_DEBUG */
775 return(& t -> Xgprag_inst_pt3);
777 #else /* ! __GNUC__ */
778 extern hpragma *Rgprag_inst_pt3 PROTO((struct Siinst_pragma_3s *));
779 #endif /* ! __GNUC__ */
781 #define gprag_inst_pt3(xyzxyz) (*Rgprag_inst_pt3((struct Siinst_pragma_3s *) (xyzxyz)))
784 extern __inline__ list *Rgprag_inst_pt4(struct Siinst_pragma_3s *t)
787 if(t -> tag != iinst_pragma_3s)
788 fprintf(stderr,"gprag_inst_pt4: illegal selection; was %d\n", t -> tag);
789 #endif /* UGEN_DEBUG */
790 return(& t -> Xgprag_inst_pt4);
792 #else /* ! __GNUC__ */
793 extern list *Rgprag_inst_pt4 PROTO((struct Siinst_pragma_3s *));
794 #endif /* ! __GNUC__ */
796 #define gprag_inst_pt4(xyzxyz) (*Rgprag_inst_pt4((struct Siinst_pragma_3s *) (xyzxyz)))
798 extern hpragma mkidata_pragma_4s PROTO((list));
801 extern __inline__ list *Rgprag_data_spec(struct Sidata_pragma_4s *t)
804 if(t -> tag != idata_pragma_4s)
805 fprintf(stderr,"gprag_data_spec: illegal selection; was %d\n", t -> tag);
806 #endif /* UGEN_DEBUG */
807 return(& t -> Xgprag_data_spec);
809 #else /* ! __GNUC__ */
810 extern list *Rgprag_data_spec PROTO((struct Sidata_pragma_4s *));
811 #endif /* ! __GNUC__ */
813 #define gprag_data_spec(xyzxyz) (*Rgprag_data_spec((struct Sidata_pragma_4s *) (xyzxyz)))