X-Git-Url: http://git.sourceforge.jp/view?a=blobdiff_plain;f=gcc%2Fada%2Fopt.adb;h=4ddc37822533bbdfb58ac7935ee1087cb5c06209;hb=f15731c43ae5e8cea424ea40f905c19afa1bd2e4;hp=933c8ec94034a310328b046a5bdf9b58bb1f54fd;hpb=1d347c236ad815c77bd345611ed221b0bd6091de;p=pf3gnuchains%2Fgcc-fork.git diff --git a/gcc/ada/opt.adb b/gcc/ada/opt.adb index 933c8ec9403..4ddc3782253 100644 --- a/gcc/ada/opt.adb +++ b/gcc/ada/opt.adb @@ -6,9 +6,9 @@ -- -- -- B o d y -- -- -- --- $Revision: 1.29 $ +-- $Revision$ -- -- --- Copyright (C) 1992-2000, Free Software Foundation, Inc. -- +-- Copyright (C) 1992-2001, Free Software Foundation, Inc. -- -- -- -- GNAT is free software; you can redistribute it and/or modify it under -- -- terms of the GNU General Public License as published by the Free Soft- -- @@ -147,6 +147,7 @@ package body Opt is Tree_Read_Bool (Ada_83_Config); Tree_Read_Bool (All_Errors_Mode); Tree_Read_Bool (Assertions_Enabled); + Tree_Read_Bool (Enable_Overflow_Checks); Tree_Read_Bool (Full_List); -- Read and check version string @@ -174,7 +175,7 @@ package body Opt is Tree_Read_Bool (No_Run_Time); Tree_Read_Data (Operating_Mode'Address, Operating_Mode_Type'Object_Size / Storage_Unit); - Tree_Read_Bool (Software_Overflow_Checking); + Tree_Read_Bool (Suppress_Checks); Tree_Read_Bool (Try_Semantics); Tree_Read_Data (Wide_Character_Encoding_Method'Address, WC_Encoding_Method'Object_Size / Storage_Unit); @@ -200,6 +201,7 @@ package body Opt is Tree_Write_Bool (Ada_83_Config); Tree_Write_Bool (All_Errors_Mode); Tree_Write_Bool (Assertions_Enabled); + Tree_Write_Bool (Enable_Overflow_Checks); Tree_Write_Bool (Full_List); Tree_Write_Int (Int (Gnat_Version_String'Length)); Tree_Write_Data (Gnat_Version_String'Address, @@ -213,7 +215,7 @@ package body Opt is Tree_Write_Bool (No_Run_Time); Tree_Write_Data (Operating_Mode'Address, Operating_Mode_Type'Object_Size / Storage_Unit); - Tree_Write_Bool (Software_Overflow_Checking); + Tree_Write_Bool (Suppress_Checks); Tree_Write_Bool (Try_Semantics); Tree_Write_Data (Wide_Character_Encoding_Method'Address, WC_Encoding_Method'Object_Size / Storage_Unit);