--- a/gcc/config/vms/vms.opt	Sun Aug 21 07:07:55 2011 +0900
+++ b/gcc/config/vms/vms.opt	Fri Oct 27 22:46:09 2017 +0900
@@ -1,4 +1,4 @@
-; Copyright (C) 2009, 2011 Free Software Foundation, Inc.
+; Copyright (C) 2009-2017 Free Software Foundation, Inc.
 ;
 ; This file is part of GCC.
 ;
@@ -16,16 +16,48 @@
 ; along with GCC; see the file COPYING3.  If not see
 ; <http://www.gnu.org/licenses/>.
 
+HeaderInclude
+config/vms/vms-opts.h
+
 map
 Target RejectNegative
 
 mmalloc64
-Target Report Mask(MALLOC64)
-Malloc data into P2 space
+Target Report Var(flag_vms_malloc64) Init(1)
+Malloc data into P2 space.
 
 mdebug-main=
 Target RejectNegative Joined Var(vms_debug_main)
-Set name of main routine for the debugger
+Set name of main routine for the debugger.
 
 mvms-return-codes
-Target RejectNegative
+Target Report Var(flag_vms_return_codes)
+Use VMS exit codes instead of posix ones.
+
+mpointer-size=
+Target Joined Report RejectNegative Enum(vms_pointer_size) Var(flag_vms_pointer_size) Init(VMS_POINTER_SIZE_NONE)
+-mpointer-size=[no,32,short,64,long]	Set the default pointer size.
+
+Enum
+Name(vms_pointer_size) Type(enum vms_pointer_size) UnknownError(unknown pointer size model %qs)
+
+EnumValue
+Enum(vms_pointer_size) String(no) Value(VMS_POINTER_SIZE_NONE)
+
+EnumValue
+Enum(vms_pointer_size) String(32) Value(VMS_POINTER_SIZE_32)
+
+EnumValue
+Enum(vms_pointer_size) String(short) Value(VMS_POINTER_SIZE_32)
+
+EnumValue
+Enum(vms_pointer_size) String(64) Value(VMS_POINTER_SIZE_64)
+
+EnumValue
+Enum(vms_pointer_size) String(long) Value(VMS_POINTER_SIZE_64)
+
+; The float representation format in effect for Ada
+Variable
+char vms_float_format = 'I'
+
+; This comment is to ensure we retain the blank line above.