diff --git a/src/backends/ocarina-backends-c_common-mapping.adb b/src/backends/ocarina-backends-c_common-mapping.adb index 40ae0a34a102d8ff70c468b80a0d051689f6845a..6cc893aab60c94e905ea7ede5713aa7e6005c814 100644 --- a/src/backends/ocarina-backends-c_common-mapping.adb +++ b/src/backends/ocarina-backends-c_common-mapping.adb @@ -2166,6 +2166,12 @@ package body Ocarina.Backends.C_Common.Mapping is (C_Values.New_Pointed_Char_Value (Get_Source_Name (S))), Call_Profile); + else + Append_Node_To_List + (Make_Defining_Identifier (CONST (C_Null), + C_Conversion => False), + Call_Profile); + end if; Append_Node_To_List