From ea062149e2dee867a4c4305c07ef57c74236b298 Mon Sep 17 00:00:00 2001 From: Doug Rupp Date: Fri, 1 Aug 2008 09:39:22 +0200 Subject: [PATCH] vms_data.ads: vms_data.ads: New qualfier /MACHINE_CODE_LISTING 2008-08-01 Doug Rupp * vms_data.ads: vms_data.ads: New qualfier /MACHINE_CODE_LISTING From-SVN: r138467 --- gcc/ada/vms_data.ads | 10 ++++++++++ 1 file changed, 10 insertions(+) diff --git a/gcc/ada/vms_data.ads b/gcc/ada/vms_data.ads index 3270e8f55b5..9f78cf72d33 100644 --- a/gcc/ada/vms_data.ads +++ b/gcc/ada/vms_data.ads @@ -1745,6 +1745,15 @@ package VMS_Data is -- a body is compiled, the corresponding spec is also listed, along -- with any subunits. + S_GCC_Machine : aliased constant S := "/MACHINE_CODE_LISTING " & + "-source-listing"; + -- /NOMACHINE_CODE_LISTING (D) + -- /MACHINE_CODE_LISTING + -- + -- Cause a full machine code listing of the file to be generated to + -- .lis. Interspersed source is included if the /DEBUG + -- qualifier is also present. + S_GCC_Mapping : aliased constant S := "/MAPPING_FILE=<" & "-gnatem>"; -- /MAPPING_FILE=file_name @@ -3316,6 +3325,7 @@ package VMS_Data is S_GCC_Length 'Access, S_GCC_List 'Access, S_GCC_Output 'Access, + S_GCC_Machine 'Access, S_GCC_Mapping 'Access, S_GCC_Mess 'Access, S_GCC_Nesting 'Access, -- 2.30.2