Improve macosX support.

Fix crashes in error handling.

1 files changed, 5 insertions, 0 deletions

diff --git a/types.ads b/types.ads
index 9cfce90d6..191d30e9e 100644
--- a/types.ads
+++ b/types.ads
@@ -121,4 +121,9 @@ package Types is
    --  Self-explaining: raised when an internal error (such as consistency)
    --  is detected.
    Internal_Error: exception;
+
+   --  In some case, a low level subprogram can't handle error
+   --  (e.g eval_pos).  In this case it is easier to raise an exception and
+   --  let upper level subprograms handle the case.
+   Node_Error : exception;
 end Types;