diff options
Diffstat (limited to 'gcc/ada/atree.adb')
| -rw-r--r-- | gcc/ada/atree.adb | 3 |
1 files changed, 1 insertions, 2 deletions
diff --git a/gcc/ada/atree.adb b/gcc/ada/atree.adb index b342add..1a00f59 100644 --- a/gcc/ada/atree.adb +++ b/gcc/ada/atree.adb @@ -2071,8 +2071,7 @@ package body Atree is procedure Preserve_Comes_From_Source (NewN, OldN : Node_Id) is begin - Nodes.Table (NewN).Comes_From_Source := - Nodes.Table (OldN).Comes_From_Source; + Set_Comes_From_Source (NewN, Comes_From_Source (OldN)); end Preserve_Comes_From_Source; ---------------------- |