From: Simon Wright <simon@pushface.org>
Subject: Re: Address and bit mask
Date: Tue, 30 Aug 2011 11:40:21 +0100
Date: 2011-08-30T11:40:21+01:00 [thread overview]
Message-ID: <m2mxerfai2.fsf@pushface.org> (raw)
In-Reply-To: add89805-0790-4f31-8d73-00696eec0768@o26g2000vbi.googlegroups.com
milouz <a.michelizza@gmail.com> writes:
> Hum... well... I still do not know how to do some simple arithmetic
> with address. So, let me give you an example in C :
>
> p = (char*) (((unsigned long)p + ALIGN_MASK) & ~ALIGN_MASK);
>
> How do you write that in Ada ?
Perhaps you could achieve that by using the Alignment attribute?
------------------------------
with Ada.Text_IO;
With System.Storage_Elements;
procedure Alignment is
type Aligned_Char is new Character;
for Aligned_Char'Alignment use 16#1000#;
type Character_P is access Character;
type Aligned_Char_P is access Aligned_Char;
C : constant Character_P := new Character'('c');
A : constant Aligned_Char_P := new Aligned_Char'('a');
package Address_IO
is new Ada.Text_IO.Modular_IO (System.Storage_Elements.Integer_Address);
begin
Ada.Text_IO.Put ("Address of allocated Character:");
Address_IO.Put (System.Storage_Elements.To_Integer (C.all'Address),
Base => 16);
Ada.Text_IO.New_Line;
Ada.Text_IO.Put ("Address of allocated Character:");
Address_IO.Put (System.Storage_Elements.To_Integer (A.all'Address),
Base => 16);
Ada.Text_IO.New_Line;
end Alignment;
------------------------------
gnatmake -gnatwa alignment.adb
gcc -c -gnatwa alignment.adb
alignment.adb:6:35: warning: suspiciously large alignment specified for "Aligned_Char"
gnatbind -x alignment.ali
gnatlink alignment.ali
------------------------------
$ ~/tmp/alignment
Address of allocated Character: 16#1092008F0#
Address of allocated Aligned_Char: 16#7F9164001000#
$
next prev parent reply other threads:[~2011-08-30 10:40 UTC|newest]
Thread overview: 64+ messages / expand[flat|nested] mbox.gz Atom feed top
2011-08-29 15:46 Address and bit mask milouz
2011-08-29 16:06 ` Martin
2011-08-29 16:33 ` milouz
2011-08-29 17:47 ` Dmitry A. Kazakov
2011-08-29 17:54 ` Martin
2011-08-29 18:46 ` tmoran
2011-08-29 19:41 ` Ludovic Brenta
2011-08-29 19:54 ` Adam Beneschan
2011-08-30 9:14 ` milouz
2011-08-30 10:34 ` Ludovic Brenta
2011-08-30 10:58 ` Ludovic Brenta
2011-08-30 12:44 ` Georg Bauhaus
2011-08-30 14:04 ` Dmitry A. Kazakov
2011-08-30 16:12 ` Georg Bauhaus
2011-08-30 16:59 ` Dmitry A. Kazakov
2011-08-30 14:52 ` Adam Beneschan
2011-08-30 10:40 ` Simon Wright [this message]
2011-08-30 10:44 ` Simon Wright
2011-08-30 15:20 ` tmoran
2011-08-30 16:08 ` milouz
2011-08-30 16:45 ` Georg Bauhaus
2011-08-30 19:31 ` Adam Beneschan
2011-08-30 19:56 ` Dmitry A. Kazakov
2011-08-31 6:16 ` The simple Image issue (was: Address and bit mask) Georg Bauhaus
2011-08-31 14:44 ` The simple Image issue Dmitry A. Kazakov
2011-08-31 15:36 ` Georg Bauhaus
2011-08-31 15:53 ` Dmitry A. Kazakov
2011-08-31 16:23 ` Georg Bauhaus
2011-08-31 16:27 ` Dmitry A. Kazakov
2011-08-31 16:30 ` Georg Bauhaus
2011-08-31 16:50 ` Dmitry A. Kazakov
2011-08-31 20:41 ` Georg Bauhaus
2011-08-31 21:17 ` Robert A Duff
2011-09-01 7:36 ` Dmitry A. Kazakov
2011-09-01 7:46 ` Dmitry A. Kazakov
2011-09-01 9:50 ` Overloading parentheses and type expectations (was: The simple Image issue) Georg Bauhaus
2011-09-02 7:54 ` Overloading parentheses and type expectations Dmitry A. Kazakov
2011-09-02 10:37 ` Georg Bauhaus
2011-09-02 12:40 ` Dmitry A. Kazakov
2011-09-02 16:08 ` Georg Bauhaus
2011-09-02 17:29 ` Dmitry A. Kazakov
2011-08-31 15:53 ` The simple Image issue Hyman Rosen
2011-08-31 16:07 ` Dmitry A. Kazakov
2011-08-31 16:08 ` Simon Wright
2011-08-31 16:26 ` Dmitry A. Kazakov
2011-08-31 16:25 ` Georg Bauhaus
2011-08-31 16:30 ` Hyman Rosen
2011-08-31 16:34 ` Georg Bauhaus
2011-08-31 16:43 ` Adam Beneschan
2011-08-31 21:58 ` Georg Bauhaus
2011-09-01 7:59 ` Dmitry A. Kazakov
2011-08-31 16:08 ` The simple Image issue (was: Address and bit mask) Adam Beneschan
2011-08-31 16:53 ` The simple Image issue Simon Wright
2011-08-31 17:02 ` Hyman Rosen
2011-08-31 20:33 ` Georg Bauhaus
2011-08-30 19:37 ` Address and bit mask Martin
2011-08-30 16:32 ` Simon Wright
2011-08-31 7:55 ` Ludovic Brenta
2011-08-30 12:35 ` Georg Bauhaus
2011-08-30 13:03 ` Georg Bauhaus
2011-08-30 15:14 ` Adam Beneschan
2011-08-30 15:59 ` Adam Beneschan
2011-08-31 7:45 ` milouz
2011-08-31 8:35 ` Ludovic Brenta
replies disabled
This is a public inbox, see mirroring instructions
for how to clone and mirror all data and code used for this inbox