Re: GNAT: Weird Style Warnings

[anon@anon.org (anon)]

GNAT uses an Indentation value of 3, so when you reassign the indentation to 2 
some system files may report this error when scanned.

The best solution is to either use indentation of 3 in your program or skip 
the indentation style check.


In <6078a089-927b-4756-81a8-7c344df1ee16@u65g2000hsc.googlegroups.com>, jacob.m.h.smith@googlemail.com writes:
>Hello.
>
>I am pretty new to Ada and I have a problem I'm not able to solve.
>I compile my files with the following GNAT style switch: -
>gnaty2acefhiklmM78nprt
>When compiling this one adb file I always get the following message:
>s-expuns.ads:42:04: (style) bad indentation
>s-expuns.ads:44:04: (style) bad indentation
>I have no idea why. This file "s-expuns.ads" is not one of mine, it
>must be part of
>some library. Does anyone know the meaning of this?
>
>Here's the program text (It's no important project, I was just
>experimenting):
>
>-----------------------------------------------------------------------------
>with Ada.Integer_Text_IO, Interfaces;
>use  Ada.Integer_Text_IO, Interfaces;
>
>procedure Bit_Extraction is
>
>  subtype Byte is Unsigned_8;
>
>  function Get_Bits (The_Byte, Mask : Byte) return Byte is
>    Position : Natural := 0;
>  begin
>    while ((2**Position and Mask) = 0) loop
>      Position := Position + 1;
>    end loop;
>    return Shift_Right ((The_Byte and Mask), Position);
>  end Get_Bits;
>
>  Test_Byte, Test_Result : Byte;
>
>begin
>
>  --  Test_Byte: 247 => 11110111
>  Test_Byte := 247;
>
>  --  Test_Result: 7 => 111
>  Test_Result := Get_Bits (Test_Byte, 224);
>
>  Put (Integer (Test_Result), 0);
>
>end Bit_Extraction;
>-----------------------------------------------------------------------------
>
>Greetings,
>Jacob M. H. Smith