OSDN Git Service

2005-12-05 Thomas Quinot <quinot@adacore.com>
[pf3gnuchains/gcc-fork.git] / gcc / ada / frontend.adb
index 49b8dd7..2cb90d8 100644 (file)
@@ -127,7 +127,6 @@ begin
 
       Opt.Style_Check := False;
       Style_Check := False;
-      Opt.Max_Line_Length := Int (Column_Number'Last);
 
       --  Capture current suppress options, which may get modified
 
@@ -191,7 +190,6 @@ begin
       --  Restore style check, but if config file turned on checks, leave on!
 
       Opt.Style_Check := Save_Style_Check or Style_Check;
-      Opt.Max_Line_Length := Hostparm.Max_Line_Length;
 
       --  Capture any modifications to suppress options from config pragmas