diff options
Diffstat (limited to 'gcc/ada/tbuild.adb')
-rw-r--r-- | gcc/ada/tbuild.adb | 2 |
1 files changed, 2 insertions, 0 deletions
diff --git a/gcc/ada/tbuild.adb b/gcc/ada/tbuild.adb index f1004d5..3da3c61 100644 --- a/gcc/ada/tbuild.adb +++ b/gcc/ada/tbuild.adb @@ -668,10 +668,12 @@ package body Tbuild is N_Op_Shift_Right_Arithmetic => Name_Shift_Right_Arithmetic); Nod : constant Node_Id := New_Node (New_Node_Kind, New_Sloc); + begin if New_Node_Kind in Name_Of'Range then Set_Chars (Nod, Name_Of (New_Node_Kind)); end if; + return Nod; end New_Op_Node; |