diff options
Diffstat (limited to 'gcc/melt/generated/warmelt-normal+04.c')
| -rw-r--r-- | gcc/melt/generated/warmelt-normal+04.c | 163 |
1 files changed, 123 insertions, 40 deletions
diff --git a/gcc/melt/generated/warmelt-normal+04.c b/gcc/melt/generated/warmelt-normal+04.c index 6daedfea4ea..b79c924a063 100644 --- a/gcc/melt/generated/warmelt-normal+04.c +++ b/gcc/melt/generated/warmelt-normal+04.c @@ -2497,7 +2497,9 @@ meltrout_122_warmelt_normal_LAMBDA___43__ (meltclosure_ptr_t meltclosp_, if (MELT_UNLIKELY (meltxargdescr_ == MELTPAR_MARKGGC)) { /*mark for ggc */ int ix = 0; - meltframptr_ = (void *) meltfirstargp_; + meltframptr_ = + (struct frame_meltrout_122_warmelt_normal_LAMBDA___43___st *) + meltfirstargp_; gt_ggc_mx_melt_un (meltframptr_->mcfr_clos); for (ix = 0; ix < 14; ix++) if (meltframptr_->mcfr_varptr[ix]) @@ -2933,7 +2935,9 @@ meltrout_123_warmelt_normal_NORMEXP_DEFPRIMITIVE (meltclosure_ptr_t if (MELT_UNLIKELY (meltxargdescr_ == MELTPAR_MARKGGC)) { /*mark for ggc */ int ix = 0; - meltframptr_ = (void *) meltfirstargp_; + meltframptr_ = + (struct frame_meltrout_123_warmelt_normal_NORMEXP_DEFPRIMITIVE_st *) + meltfirstargp_; gt_ggc_mx_melt_un (meltframptr_->mcfr_clos); for (ix = 0; ix < 49; ix++) if (meltframptr_->mcfr_varptr[ix]) @@ -4098,7 +4102,9 @@ meltrout_124_warmelt_normal_NORMEXP_DEFCITERATOR (meltclosure_ptr_t if (MELT_UNLIKELY (meltxargdescr_ == MELTPAR_MARKGGC)) { /*mark for ggc */ int ix = 0; - meltframptr_ = (void *) meltfirstargp_; + meltframptr_ = + (struct frame_meltrout_124_warmelt_normal_NORMEXP_DEFCITERATOR_st *) + meltfirstargp_; gt_ggc_mx_melt_un (meltframptr_->mcfr_clos); for (ix = 0; ix < 72; ix++) if (meltframptr_->mcfr_varptr[ix]) @@ -5896,7 +5902,9 @@ meltrout_125_warmelt_normal_NORMEXP_CITERATION (meltclosure_ptr_t meltclosp_, if (MELT_UNLIKELY (meltxargdescr_ == MELTPAR_MARKGGC)) { /*mark for ggc */ int ix = 0; - meltframptr_ = (void *) meltfirstargp_; + meltframptr_ = + (struct frame_meltrout_125_warmelt_normal_NORMEXP_CITERATION_st *) + meltfirstargp_; gt_ggc_mx_melt_un (meltframptr_->mcfr_clos); for (ix = 0; ix < 140; ix++) if (meltframptr_->mcfr_varptr[ix]) @@ -9177,7 +9185,9 @@ meltrout_126_warmelt_normal_LAMBDA___44__ (meltclosure_ptr_t meltclosp_, if (MELT_UNLIKELY (meltxargdescr_ == MELTPAR_MARKGGC)) { /*mark for ggc */ int ix = 0; - meltframptr_ = (void *) meltfirstargp_; + meltframptr_ = + (struct frame_meltrout_126_warmelt_normal_LAMBDA___44___st *) + meltfirstargp_; gt_ggc_mx_melt_un (meltframptr_->mcfr_clos); for (ix = 0; ix < 16; ix++) if (meltframptr_->mcfr_varptr[ix]) @@ -9664,7 +9674,9 @@ meltrout_127_warmelt_normal_LAMBDA___45__ (meltclosure_ptr_t meltclosp_, if (MELT_UNLIKELY (meltxargdescr_ == MELTPAR_MARKGGC)) { /*mark for ggc */ int ix = 0; - meltframptr_ = (void *) meltfirstargp_; + meltframptr_ = + (struct frame_meltrout_127_warmelt_normal_LAMBDA___45___st *) + meltfirstargp_; gt_ggc_mx_melt_un (meltframptr_->mcfr_clos); for (ix = 0; ix < 31; ix++) if (meltframptr_->mcfr_varptr[ix]) @@ -10581,7 +10593,9 @@ meltrout_128_warmelt_normal_LAMBDA___46__ (meltclosure_ptr_t meltclosp_, if (MELT_UNLIKELY (meltxargdescr_ == MELTPAR_MARKGGC)) { /*mark for ggc */ int ix = 0; - meltframptr_ = (void *) meltfirstargp_; + meltframptr_ = + (struct frame_meltrout_128_warmelt_normal_LAMBDA___46___st *) + meltfirstargp_; gt_ggc_mx_melt_un (meltframptr_->mcfr_clos); for (ix = 0; ix < 9; ix++) if (meltframptr_->mcfr_varptr[ix]) @@ -10838,7 +10852,9 @@ meltrout_129_warmelt_normal_LAMBDA___47__ (meltclosure_ptr_t meltclosp_, if (MELT_UNLIKELY (meltxargdescr_ == MELTPAR_MARKGGC)) { /*mark for ggc */ int ix = 0; - meltframptr_ = (void *) meltfirstargp_; + meltframptr_ = + (struct frame_meltrout_129_warmelt_normal_LAMBDA___47___st *) + meltfirstargp_; gt_ggc_mx_melt_un (meltframptr_->mcfr_clos); for (ix = 0; ix < 12; ix++) if (meltframptr_->mcfr_varptr[ix]) @@ -11196,7 +11212,9 @@ meltrout_130_warmelt_normal_LAMBDA___48__ (meltclosure_ptr_t meltclosp_, if (MELT_UNLIKELY (meltxargdescr_ == MELTPAR_MARKGGC)) { /*mark for ggc */ int ix = 0; - meltframptr_ = (void *) meltfirstargp_; + meltframptr_ = + (struct frame_meltrout_130_warmelt_normal_LAMBDA___48___st *) + meltfirstargp_; gt_ggc_mx_melt_un (meltframptr_->mcfr_clos); for (ix = 0; ix < 8; ix++) if (meltframptr_->mcfr_varptr[ix]) @@ -11442,7 +11460,9 @@ meltrout_131_warmelt_normal_LAMBDA___49__ (meltclosure_ptr_t meltclosp_, if (MELT_UNLIKELY (meltxargdescr_ == MELTPAR_MARKGGC)) { /*mark for ggc */ int ix = 0; - meltframptr_ = (void *) meltfirstargp_; + meltframptr_ = + (struct frame_meltrout_131_warmelt_normal_LAMBDA___49___st *) + meltfirstargp_; gt_ggc_mx_melt_un (meltframptr_->mcfr_clos); for (ix = 0; ix < 6; ix++) if (meltframptr_->mcfr_varptr[ix]) @@ -11631,7 +11651,9 @@ meltrout_132_warmelt_normal_LAMBDA___50__ (meltclosure_ptr_t meltclosp_, if (MELT_UNLIKELY (meltxargdescr_ == MELTPAR_MARKGGC)) { /*mark for ggc */ int ix = 0; - meltframptr_ = (void *) meltfirstargp_; + meltframptr_ = + (struct frame_meltrout_132_warmelt_normal_LAMBDA___50___st *) + meltfirstargp_; gt_ggc_mx_melt_un (meltframptr_->mcfr_clos); for (ix = 0; ix < 2; ix++) if (meltframptr_->mcfr_varptr[ix]) @@ -11730,7 +11752,9 @@ meltrout_133_warmelt_normal_NORMEXP_DEFCMATCHER (meltclosure_ptr_t meltclosp_, if (MELT_UNLIKELY (meltxargdescr_ == MELTPAR_MARKGGC)) { /*mark for ggc */ int ix = 0; - meltframptr_ = (void *) meltfirstargp_; + meltframptr_ = + (struct frame_meltrout_133_warmelt_normal_NORMEXP_DEFCMATCHER_st *) + meltfirstargp_; gt_ggc_mx_melt_un (meltframptr_->mcfr_clos); for (ix = 0; ix < 98; ix++) if (meltframptr_->mcfr_varptr[ix]) @@ -14296,7 +14320,9 @@ meltrout_134_warmelt_normal_NORMEXP_DEFUNMATCHER (meltclosure_ptr_t if (MELT_UNLIKELY (meltxargdescr_ == MELTPAR_MARKGGC)) { /*mark for ggc */ int ix = 0; - meltframptr_ = (void *) meltfirstargp_; + meltframptr_ = + (struct frame_meltrout_134_warmelt_normal_NORMEXP_DEFUNMATCHER_st *) + meltfirstargp_; gt_ggc_mx_melt_un (meltframptr_->mcfr_clos); for (ix = 0; ix < 108; ix++) if (meltframptr_->mcfr_varptr[ix]) @@ -16993,7 +17019,9 @@ meltrout_135_warmelt_normal_NORMEXP_DEFCLASS (meltclosure_ptr_t meltclosp_, if (MELT_UNLIKELY (meltxargdescr_ == MELTPAR_MARKGGC)) { /*mark for ggc */ int ix = 0; - meltframptr_ = (void *) meltfirstargp_; + meltframptr_ = + (struct frame_meltrout_135_warmelt_normal_NORMEXP_DEFCLASS_st *) + meltfirstargp_; gt_ggc_mx_melt_un (meltframptr_->mcfr_clos); for (ix = 0; ix < 100; ix++) if (meltframptr_->mcfr_varptr[ix]) @@ -19651,7 +19679,9 @@ meltrout_136_warmelt_normal_NORMEXP_DEFINSTANCE (meltclosure_ptr_t meltclosp_, if (MELT_UNLIKELY (meltxargdescr_ == MELTPAR_MARKGGC)) { /*mark for ggc */ int ix = 0; - meltframptr_ = (void *) meltfirstargp_; + meltframptr_ = + (struct frame_meltrout_136_warmelt_normal_NORMEXP_DEFINSTANCE_st *) + meltfirstargp_; gt_ggc_mx_melt_un (meltframptr_->mcfr_clos); for (ix = 0; ix < 71; ix++) if (meltframptr_->mcfr_varptr[ix]) @@ -21413,7 +21443,9 @@ meltrout_137_warmelt_normal_LAMBDA___51__ (meltclosure_ptr_t meltclosp_, if (MELT_UNLIKELY (meltxargdescr_ == MELTPAR_MARKGGC)) { /*mark for ggc */ int ix = 0; - meltframptr_ = (void *) meltfirstargp_; + meltframptr_ = + (struct frame_meltrout_137_warmelt_normal_LAMBDA___51___st *) + meltfirstargp_; gt_ggc_mx_melt_un (meltframptr_->mcfr_clos); for (ix = 0; ix < 36; ix++) if (meltframptr_->mcfr_varptr[ix]) @@ -22285,7 +22317,9 @@ meltrout_138_warmelt_normal_NORMEXP_DEFINE (meltclosure_ptr_t meltclosp_, if (MELT_UNLIKELY (meltxargdescr_ == MELTPAR_MARKGGC)) { /*mark for ggc */ int ix = 0; - meltframptr_ = (void *) meltfirstargp_; + meltframptr_ = + (struct frame_meltrout_138_warmelt_normal_NORMEXP_DEFINE_st *) + meltfirstargp_; gt_ggc_mx_melt_un (meltframptr_->mcfr_clos); for (ix = 0; ix < 113; ix++) if (meltframptr_->mcfr_varptr[ix]) @@ -25216,7 +25250,9 @@ meltrout_139_warmelt_normal_LAMBDA___52__ (meltclosure_ptr_t meltclosp_, if (MELT_UNLIKELY (meltxargdescr_ == MELTPAR_MARKGGC)) { /*mark for ggc */ int ix = 0; - meltframptr_ = (void *) meltfirstargp_; + meltframptr_ = + (struct frame_meltrout_139_warmelt_normal_LAMBDA___52___st *) + meltfirstargp_; gt_ggc_mx_melt_un (meltframptr_->mcfr_clos); for (ix = 0; ix < 3; ix++) if (meltframptr_->mcfr_varptr[ix]) @@ -25334,7 +25370,9 @@ meltrout_140_warmelt_normal_NORMEXP_DEFSELECTOR (meltclosure_ptr_t meltclosp_, if (MELT_UNLIKELY (meltxargdescr_ == MELTPAR_MARKGGC)) { /*mark for ggc */ int ix = 0; - meltframptr_ = (void *) meltfirstargp_; + meltframptr_ = + (struct frame_meltrout_140_warmelt_normal_NORMEXP_DEFSELECTOR_st *) + meltfirstargp_; gt_ggc_mx_melt_un (meltframptr_->mcfr_clos); for (ix = 0; ix < 83; ix++) if (meltframptr_->mcfr_varptr[ix]) @@ -27451,7 +27489,9 @@ meltrout_141_warmelt_normal_LAMBDA___53__ (meltclosure_ptr_t meltclosp_, if (MELT_UNLIKELY (meltxargdescr_ == MELTPAR_MARKGGC)) { /*mark for ggc */ int ix = 0; - meltframptr_ = (void *) meltfirstargp_; + meltframptr_ = + (struct frame_meltrout_141_warmelt_normal_LAMBDA___53___st *) + meltfirstargp_; gt_ggc_mx_melt_un (meltframptr_->mcfr_clos); for (ix = 0; ix < 22; ix++) if (meltframptr_->mcfr_varptr[ix]) @@ -27961,7 +28001,9 @@ meltrout_142_warmelt_normal_NORMAL_VALUE_EXPORTER (meltclosure_ptr_t if (MELT_UNLIKELY (meltxargdescr_ == MELTPAR_MARKGGC)) { /*mark for ggc */ int ix = 0; - meltframptr_ = (void *) meltfirstargp_; + meltframptr_ = + (struct frame_meltrout_142_warmelt_normal_NORMAL_VALUE_EXPORTER_st *) + meltfirstargp_; gt_ggc_mx_melt_un (meltframptr_->mcfr_clos); for (ix = 0; ix < 22; ix++) if (meltframptr_->mcfr_varptr[ix]) @@ -28528,7 +28570,9 @@ meltrout_143_warmelt_normal_NORMAL_EXPORTED_VALUE (meltclosure_ptr_t if (MELT_UNLIKELY (meltxargdescr_ == MELTPAR_MARKGGC)) { /*mark for ggc */ int ix = 0; - meltframptr_ = (void *) meltfirstargp_; + meltframptr_ = + (struct frame_meltrout_143_warmelt_normal_NORMAL_EXPORTED_VALUE_st *) + meltfirstargp_; gt_ggc_mx_melt_un (meltframptr_->mcfr_clos); for (ix = 0; ix < 61; ix++) if (meltframptr_->mcfr_varptr[ix]) @@ -30030,7 +30074,9 @@ meltrout_144_warmelt_normal_NORMEXP_EXPORT_VALUES (meltclosure_ptr_t if (MELT_UNLIKELY (meltxargdescr_ == MELTPAR_MARKGGC)) { /*mark for ggc */ int ix = 0; - meltframptr_ = (void *) meltfirstargp_; + meltframptr_ = + (struct frame_meltrout_144_warmelt_normal_NORMEXP_EXPORT_VALUES_st *) + meltfirstargp_; gt_ggc_mx_melt_un (meltframptr_->mcfr_clos); for (ix = 0; ix < 34; ix++) if (meltframptr_->mcfr_varptr[ix]) @@ -30903,7 +30949,9 @@ meltrout_145_warmelt_normal_LAMBDA___54__ (meltclosure_ptr_t meltclosp_, if (MELT_UNLIKELY (meltxargdescr_ == MELTPAR_MARKGGC)) { /*mark for ggc */ int ix = 0; - meltframptr_ = (void *) meltfirstargp_; + meltframptr_ = + (struct frame_meltrout_145_warmelt_normal_LAMBDA___54___st *) + meltfirstargp_; gt_ggc_mx_melt_un (meltframptr_->mcfr_clos); for (ix = 0; ix < 26; ix++) if (meltframptr_->mcfr_varptr[ix]) @@ -31647,7 +31695,9 @@ meltrout_146_warmelt_normal_NORMEXP_EXPORT_SYNONYM (meltclosure_ptr_t if (MELT_UNLIKELY (meltxargdescr_ == MELTPAR_MARKGGC)) { /*mark for ggc */ int ix = 0; - meltframptr_ = (void *) meltfirstargp_; + meltframptr_ = + (struct frame_meltrout_146_warmelt_normal_NORMEXP_EXPORT_SYNONYM_st *) + meltfirstargp_; gt_ggc_mx_melt_un (meltframptr_->mcfr_clos); for (ix = 0; ix < 46; ix++) if (meltframptr_->mcfr_varptr[ix]) @@ -32803,7 +32853,9 @@ meltrout_147_warmelt_normal_NORMEXP_EXPORT_CLASS (meltclosure_ptr_t if (MELT_UNLIKELY (meltxargdescr_ == MELTPAR_MARKGGC)) { /*mark for ggc */ int ix = 0; - meltframptr_ = (void *) meltfirstargp_; + meltframptr_ = + (struct frame_meltrout_147_warmelt_normal_NORMEXP_EXPORT_CLASS_st *) + meltfirstargp_; gt_ggc_mx_melt_un (meltframptr_->mcfr_clos); for (ix = 0; ix < 33; ix++) if (meltframptr_->mcfr_varptr[ix]) @@ -33649,7 +33701,9 @@ meltrout_148_warmelt_normal_LAMBDA___55__ (meltclosure_ptr_t meltclosp_, if (MELT_UNLIKELY (meltxargdescr_ == MELTPAR_MARKGGC)) { /*mark for ggc */ int ix = 0; - meltframptr_ = (void *) meltfirstargp_; + meltframptr_ = + (struct frame_meltrout_148_warmelt_normal_LAMBDA___55___st *) + meltfirstargp_; gt_ggc_mx_melt_un (meltframptr_->mcfr_clos); for (ix = 0; ix < 45; ix++) if (meltframptr_->mcfr_varptr[ix]) @@ -34852,7 +34906,9 @@ meltrout_149_warmelt_normal_LAMBDA___56__ (meltclosure_ptr_t meltclosp_, if (MELT_UNLIKELY (meltxargdescr_ == MELTPAR_MARKGGC)) { /*mark for ggc */ int ix = 0; - meltframptr_ = (void *) meltfirstargp_; + meltframptr_ = + (struct frame_meltrout_149_warmelt_normal_LAMBDA___56___st *) + meltfirstargp_; gt_ggc_mx_melt_un (meltframptr_->mcfr_clos); for (ix = 0; ix < 26; ix++) if (meltframptr_->mcfr_varptr[ix]) @@ -35520,7 +35576,9 @@ meltrout_150_warmelt_normal_NORMAL_MACRO_EXPORTER (meltclosure_ptr_t if (MELT_UNLIKELY (meltxargdescr_ == MELTPAR_MARKGGC)) { /*mark for ggc */ int ix = 0; - meltframptr_ = (void *) meltfirstargp_; + meltframptr_ = + (struct frame_meltrout_150_warmelt_normal_NORMAL_MACRO_EXPORTER_st *) + meltfirstargp_; gt_ggc_mx_melt_un (meltframptr_->mcfr_clos); for (ix = 0; ix < 30; ix++) if (meltframptr_->mcfr_varptr[ix]) @@ -36317,7 +36375,9 @@ meltrout_151_warmelt_normal_NORMAL_PATMACRO_EXPORTER (meltclosure_ptr_t if (MELT_UNLIKELY (meltxargdescr_ == MELTPAR_MARKGGC)) { /*mark for ggc */ int ix = 0; - meltframptr_ = (void *) meltfirstargp_; + meltframptr_ = + (struct frame_meltrout_151_warmelt_normal_NORMAL_PATMACRO_EXPORTER_st + *) meltfirstargp_; gt_ggc_mx_melt_un (meltframptr_->mcfr_clos); for (ix = 0; ix < 30; ix++) if (meltframptr_->mcfr_varptr[ix]) @@ -37112,7 +37172,9 @@ meltrout_152_warmelt_normal_NORMAL_EXPORTED_MACRO (meltclosure_ptr_t if (MELT_UNLIKELY (meltxargdescr_ == MELTPAR_MARKGGC)) { /*mark for ggc */ int ix = 0; - meltframptr_ = (void *) meltfirstargp_; + meltframptr_ = + (struct frame_meltrout_152_warmelt_normal_NORMAL_EXPORTED_MACRO_st *) + meltfirstargp_; gt_ggc_mx_melt_un (meltframptr_->mcfr_clos); for (ix = 0; ix < 60; ix++) if (meltframptr_->mcfr_varptr[ix]) @@ -38626,7 +38688,9 @@ meltrout_153_warmelt_normal_NORMEXP_EXPORT_MACRO (meltclosure_ptr_t if (MELT_UNLIKELY (meltxargdescr_ == MELTPAR_MARKGGC)) { /*mark for ggc */ int ix = 0; - meltframptr_ = (void *) meltfirstargp_; + meltframptr_ = + (struct frame_meltrout_153_warmelt_normal_NORMEXP_EXPORT_MACRO_st *) + meltfirstargp_; gt_ggc_mx_melt_un (meltframptr_->mcfr_clos); for (ix = 0; ix < 40; ix++) if (meltframptr_->mcfr_varptr[ix]) @@ -39582,7 +39646,9 @@ meltrout_154_warmelt_normal_NORMAL_EXPORTED_PATMACRO (meltclosure_ptr_t if (MELT_UNLIKELY (meltxargdescr_ == MELTPAR_MARKGGC)) { /*mark for ggc */ int ix = 0; - meltframptr_ = (void *) meltfirstargp_; + meltframptr_ = + (struct frame_meltrout_154_warmelt_normal_NORMAL_EXPORTED_PATMACRO_st + *) meltfirstargp_; gt_ggc_mx_melt_un (meltframptr_->mcfr_clos); for (ix = 0; ix < 61; ix++) if (meltframptr_->mcfr_varptr[ix]) @@ -41132,7 +41198,9 @@ meltrout_155_warmelt_normal_NORMEXP_EXPORT_PATMACRO (meltclosure_ptr_t if (MELT_UNLIKELY (meltxargdescr_ == MELTPAR_MARKGGC)) { /*mark for ggc */ int ix = 0; - meltframptr_ = (void *) meltfirstargp_; + meltframptr_ = + (struct frame_meltrout_155_warmelt_normal_NORMEXP_EXPORT_PATMACRO_st + *) meltfirstargp_; gt_ggc_mx_melt_un (meltframptr_->mcfr_clos); for (ix = 0; ix < 57; ix++) if (meltframptr_->mcfr_varptr[ix]) @@ -42502,7 +42570,10 @@ meltrout_156_warmelt_normal_NORMEXP_CURRENT_MODULE_ENVIRONMENT_CONTAINER if (MELT_UNLIKELY (meltxargdescr_ == MELTPAR_MARKGGC)) { /*mark for ggc */ int ix = 0; - meltframptr_ = (void *) meltfirstargp_; + meltframptr_ = + (struct + frame_meltrout_156_warmelt_normal_NORMEXP_CURRENT_MODULE_ENVIRONMENT_CONTAINER_st + *) meltfirstargp_; gt_ggc_mx_melt_un (meltframptr_->mcfr_clos); for (ix = 0; ix < 31; ix++) if (meltframptr_->mcfr_varptr[ix]) @@ -43295,7 +43366,10 @@ meltrout_157_warmelt_normal_NORMEXP_PARENT_MODULE_ENVIRONMENT if (MELT_UNLIKELY (meltxargdescr_ == MELTPAR_MARKGGC)) { /*mark for ggc */ int ix = 0; - meltframptr_ = (void *) meltfirstargp_; + meltframptr_ = + (struct + frame_meltrout_157_warmelt_normal_NORMEXP_PARENT_MODULE_ENVIRONMENT_st + *) meltfirstargp_; gt_ggc_mx_melt_un (meltframptr_->mcfr_clos); for (ix = 0; ix < 29; ix++) if (meltframptr_->mcfr_varptr[ix]) @@ -44048,7 +44122,10 @@ meltrout_158_warmelt_normal_NORMEXP_UPDATE_CURRENT_MODULE_ENVIRONMENT_CONTAINER if (MELT_UNLIKELY (meltxargdescr_ == MELTPAR_MARKGGC)) { /*mark for ggc */ int ix = 0; - meltframptr_ = (void *) meltfirstargp_; + meltframptr_ = + (struct + frame_meltrout_158_warmelt_normal_NORMEXP_UPDATE_CURRENT_MODULE_ENVIRONMENT_CONTAINER_st + *) meltfirstargp_; gt_ggc_mx_melt_un (meltframptr_->mcfr_clos); for (ix = 0; ix < 62; ix++) if (meltframptr_->mcfr_varptr[ix]) @@ -45427,7 +45504,9 @@ meltrout_159_warmelt_normal_NORMEXP_FETCH_PREDEFINED (meltclosure_ptr_t if (MELT_UNLIKELY (meltxargdescr_ == MELTPAR_MARKGGC)) { /*mark for ggc */ int ix = 0; - meltframptr_ = (void *) meltfirstargp_; + meltframptr_ = + (struct frame_meltrout_159_warmelt_normal_NORMEXP_FETCH_PREDEFINED_st + *) meltfirstargp_; gt_ggc_mx_melt_un (meltframptr_->mcfr_clos); for (ix = 0; ix < 39; ix++) if (meltframptr_->mcfr_varptr[ix]) @@ -46472,7 +46551,9 @@ meltrout_160_warmelt_normal_LAMBDA___57__ (meltclosure_ptr_t meltclosp_, if (MELT_UNLIKELY (meltxargdescr_ == MELTPAR_MARKGGC)) { /*mark for ggc */ int ix = 0; - meltframptr_ = (void *) meltfirstargp_; + meltframptr_ = + (struct frame_meltrout_160_warmelt_normal_LAMBDA___57___st *) + meltfirstargp_; gt_ggc_mx_melt_un (meltframptr_->mcfr_clos); for (ix = 0; ix < 5; ix++) if (meltframptr_->mcfr_varptr[ix]) @@ -46634,7 +46715,9 @@ meltrout_161_warmelt_normal_NORMEXP_STORE_PREDEFINED (meltclosure_ptr_t if (MELT_UNLIKELY (meltxargdescr_ == MELTPAR_MARKGGC)) { /*mark for ggc */ int ix = 0; - meltframptr_ = (void *) meltfirstargp_; + meltframptr_ = + (struct frame_meltrout_161_warmelt_normal_NORMEXP_STORE_PREDEFINED_st + *) meltfirstargp_; gt_ggc_mx_melt_un (meltframptr_->mcfr_clos); for (ix = 0; ix < 51; ix++) if (meltframptr_->mcfr_varptr[ix]) |