diff options
Diffstat (limited to 'gcc/ada/uname.adb')
| -rw-r--r-- | gcc/ada/uname.adb | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/gcc/ada/uname.adb b/gcc/ada/uname.adb index 8ddc5a6..9628867 100644 --- a/gcc/ada/uname.adb +++ b/gcc/ada/uname.adb @@ -225,10 +225,10 @@ package body Uname is Kind : constant Node_Kind := Nkind (Node); begin - -- Bail out on error node (guard against parse error) + -- Just ignore an error node (someone else will give a message) if Node = Error then - raise Program_Error; + return; -- Otherwise see what kind of node we have |