From b0ba442b047dcffd54055c9d0ab591d020a284d8 Mon Sep 17 00:00:00 2001 From: Eric Botcazou Date: Wed, 27 Jan 2021 07:58:17 +0100 Subject: [Ada] Fix type mismatch warnings during LTO bootstrap #1 gcc/ada/ * errout.ads (Set_Identifier_Casing): Add pragma Convention C. * eval_fat.ads (Rounding_Mode): Likewise. (Machine): Add WARNING comment line. * exp_code.ads (Clobber_Get_Next): Add pragma Convention C. * fe.h (Compiler_Abort): Fix return type. (Set_Identifier_Casing): Change type of parameters. (Clobber_Get_Next): Change return type. * gcc-interface/trans.c (gnat_to_gnu) : Add cast. --- gcc/ada/fe.h | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) (limited to 'gcc/ada/fe.h') diff --git a/gcc/ada/fe.h b/gcc/ada/fe.h index 9c4a572..851e4b3 100644 --- a/gcc/ada/fe.h +++ b/gcc/ada/fe.h @@ -55,7 +55,7 @@ extern Nat Serious_Errors_Detected; #define Compiler_Abort comperr__compiler_abort -extern int Compiler_Abort (String_Pointer, String_Pointer, Boolean) ATTRIBUTE_NORETURN; +extern void Compiler_Abort (String_Pointer, String_Pointer, Boolean) ATTRIBUTE_NORETURN; /* debug: */ @@ -103,7 +103,7 @@ extern Node_Id Get_Attribute_Definition_Clause (Entity_Id, unsigned char); extern void Error_Msg_N (String_Pointer, Node_Id); extern void Error_Msg_NE (String_Pointer, Node_Id, Entity_Id); -extern void Set_Identifier_Casing (Char *, const Char *); +extern void Set_Identifier_Casing (void *, const void *); /* err_vars: */ @@ -145,7 +145,7 @@ extern Node_Id Asm_Input_Value (void); extern Node_Id Asm_Output_Constraint (void); extern Node_Id Asm_Output_Variable (void); extern Node_Id Asm_Template (Node_Id); -extern char *Clobber_Get_Next (void); +extern void *Clobber_Get_Next (void); extern void Clobber_Setup (Node_Id); extern Boolean Is_Asm_Volatile (Node_Id); extern void Next_Asm_Input (void); -- cgit v1.1