X-Git-Url: https://git.m6w6.name/?p=m6w6%2Fext-psi;a=blobdiff_plain;f=src%2Ftypes%2Fnum_exp.c;h=6dac5cef2cbd60416b5f9110fab45397c495b317;hp=91ff887311979e625942ada7fc16828cc8fe3797;hb=b78637d9020222f1032349f231c0dc84a69797bc;hpb=ba906e039ffe9e57842ce5135aa43efa00b8a4c6

diff --git a/src/types/num_exp.c b/src/types/num_exp.c
index 91ff887..6dac5ce 100644
--- a/src/types/num_exp.c
+++ b/src/types/num_exp.c
@@ -431,7 +431,7 @@ bool psi_num_exp_validate(struct psi_data *data, struct psi_num_exp *exp,
 
 	case PSI_T_CAST:
 		return psi_num_exp_validate(data, exp->data.c.num, impl, cb_decl, current_let, current_set, current_enum)
-				&& psi_decl_type_validate(data, exp->data.c.typ, NULL);
+				&& psi_decl_type_validate(data, exp->data.c.typ, 0, NULL);
 		break;
 
 	case PSI_T_NOT:
@@ -501,7 +501,12 @@ static inline void psi_impl_val_dump(token_t t, impl_val *res,
 	case PSI_T_DOUBLE:
 		if (frame) PSI_DEBUG_PRINT(frame->context, " %" PRIdval, res->dval);
 		break;
-	default:
+#if HAVE_LONG_DOUBLE
+	case PSI_T_LONG_DOUBLE:
+		if (frame) PSI_DEBUG_PRINT(frame->context, " %" PRIldval, res->ldval);
+		break;
+#endif
+		default:
 		assert(0);
 	}
 }