From: Arnaud Charlet <charlet@adacore.com>
Date: Thu, 29 Oct 2020 09:41:22 +0000 (+0100)
Subject: [Ada] Add support for .c output file
X-Git-Url: https://git.libre-soc.org/?a=commitdiff_plain;h=781fb9a006d48621849d4aa45b7f33657733f319;p=gcc.git

[Ada] Add support for .c output file

gcc/ada/

	* osint-c.adb (Set_Output_Object_File_Name): Add support for
	.c output file.
---

diff --git a/gcc/ada/osint-c.adb b/gcc/ada/osint-c.adb
index 8ef8b8bf093..4fc0998a791 100644
--- a/gcc/ada/osint-c.adb
+++ b/gcc/ada/osint-c.adb
@@ -475,15 +475,14 @@ package body Osint.C is
 
    begin
       --  Make sure that the object file has the expected extension
+      --  Allow for either .o or .c (for C code generation)
 
       if NL <= EL
          or else
-          (Name (NL - EL + Name'First .. Name'Last) /= Ext
+          (not Generate_Asm
+             and then Name (NL - EL + Name'First .. Name'Last) /= Ext
              and then Name (NL - 2 + Name'First .. Name'Last) /= ".o"
-             and then not Generate_Asm
-             and then
-               (not Generate_C_Code
-                  or else Name (NL - 2 + Name'First .. Name'Last) /= ".c"))
+             and then Name (NL - 2 + Name'First .. Name'Last) /= ".c")
       then
          Fail ("incorrect object file extension");
       end if;