parser: RETURN [<native call> AS] SET_FUNC

[m6w6/ext-psi] / src / types / num_exp.c

diff --git a/src/types/num_exp.c b/src/types/num_exp.c
index 69d21e05d7fa5489b4152a77efddeb95550df846..6dac5cef2cbd60416b5f9110fab45397c495b317 100644 (file)
--- a/src/types/num_exp.c
+++ b/src/types/num_exp.c
@@ -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);
        }
 }