diff options
Diffstat (limited to 'gcc/ada/exp_cg.adb')
| -rw-r--r-- | gcc/ada/exp_cg.adb | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/gcc/ada/exp_cg.adb b/gcc/ada/exp_cg.adb index 20be6a0..02a0652 100644 --- a/gcc/ada/exp_cg.adb +++ b/gcc/ada/exp_cg.adb @@ -81,7 +81,7 @@ package body Exp_CG is -- Determines if E is a predefined primitive operation. -- Note: This routine should replace the routine with the same name that is -- currently available in exp_disp because it extends its functionality to - -- handle fully qualified names ??? + -- handle fully qualified names. It's actually in Sem_Util. ??? function Slot_Number (Prim : Entity_Id) return Uint; -- Returns the slot number associated with Prim. For predefined primitives @@ -261,6 +261,7 @@ package body Exp_CG is or else TSS_Name = TSS_Stream_Write or else TSS_Name = TSS_Stream_Input or else TSS_Name = TSS_Stream_Output + or else TSS_Name = TSS_Put_Image or else TSS_Name = TSS_Deep_Adjust or else TSS_Name = TSS_Deep_Finalize then |