===================================================================
@@ -49,7 +49,7 @@
-- dj Suppress "junk null check" for access parameter values
-- dk Generate GNATBUG message on abort, even if previous errors
-- dl Generate unit load trace messages
- -- dm Allow VMS features even if not OpenVMS version
+ -- dm
-- dn Generate messages for node/list allocation
-- do Print source from tree (original code only)
-- dp Generate messages for parser scope stack push/pops
@@ -281,14 +281,6 @@
-- generated each time a request is made to the library manager to
-- load a new unit.
- -- dm Some features are permitted only in OpenVMS ports of GNAT (e.g.
- -- the specification of passing by descriptor). Normally any use
- -- of these features will be flagged as an error, but this debug
- -- flag allows acceptance of these features in non OpenVMS ports.
- -- Of course they may not have any useful effect, and in particular
- -- attempting to generate code with this flag set may blow up.
- -- The flag also forces the use of 64-bits for Long_Integer.
-
-- dn Generate messages for node/list allocation. Each time a node or
-- list header is allocated, a line of output is generated. Certain
-- other basic tree operations also cause a line of output to be
===================================================================
@@ -38,7 +38,6 @@
with Fname.UF; use Fname.UF;
with Frontend;
with Gnatvsn; use Gnatvsn;
-with Hostparm;
with Inline;
with Lib; use Lib;
with Lib.Writ; use Lib.Writ;
@@ -477,17 +476,11 @@
Ttypes.Bytes_Big_Endian := not Ttypes.Bytes_Big_Endian;
end if;
- -- Deal with forcing OpenVMS switches True if debug flag M is set, but
- -- record the setting of Targparm.Open_VMS_On_Target in True_VMS_Target
- -- before doing this, so we know if we are in real OpenVMS or not.
+ -- Temporarily set True_VMS_Target to OpenVMS_On_Target. This is just
+ -- temporary, we no longer deal with the debug flag -gnatdm here.
Opt.True_VMS_Target := Targparm.OpenVMS_On_Target;
- if Debug_Flag_M then
- Targparm.OpenVMS_On_Target := True;
- Hostparm.OpenVMS := True;
- end if;
-
-- Activate front end layout if debug flag -gnatdF is set
if Debug_Flag_FF then
===================================================================
@@ -740,18 +740,9 @@
Build_Signed_Integer_Type
(Standard_Integer, Standard_Integer_Size);
- declare
- LIS : Nat;
- begin
- if Debug_Flag_M then
- LIS := 64;
- else
- LIS := Standard_Long_Integer_Size;
- end if;
+ Build_Signed_Integer_Type
+ (Standard_Long_Integer, Standard_Long_Integer_Size);
- Build_Signed_Integer_Type (Standard_Long_Integer, LIS);
- end;
-
Build_Signed_Integer_Type
(Standard_Long_Long_Integer, Standard_Long_Long_Integer_Size);
Set_Is_Implementation_Defined (Standard_Long_Long_Integer);