OpenCores
URL https://opencores.org/ocsvn/openrisc_me/openrisc_me/trunk

Subversion Repositories openrisc_me

[/] [openrisc/] [trunk/] [gnu-src/] [gcc-4.5.1/] [gcc/] [testsuite/] [gnat.dg/] [blkextract_from_reg.adb] - Rev 304

Compare with Previous | Blame | View Log

--  { dg-do run }
 
with System, Ada.Unchecked_Conversion; use System;
 
procedure BLKextract_From_Reg is
 
   type Byte is range 0 .. +255;
   for  Byte'size use 8;
 
   type RGB is array (1 .. 3) of Byte;
   for RGB'Size use 24;
 
   type RAW_Packet is range 0 .. 2 ** 32 - 1;
   for  RAW_Packet'Size use 32;
 
   type Composite_Packet is record
      Values : RGB;
      Pad    : Byte;
   end record;
   for Composite_Packet use record
      Values at 0 range 0 .. 23;
      Pad    at 3 range 0 .. 7;
   end record;
   for Composite_Packet'Size use 32;
 
   function To_Composite_Packet is
      new Ada.Unchecked_Conversion (RAW_Packet, Composite_Packet);
 
   function Blob return RGB is
      RAW_Blob : RAW_Packet := 16#01020304#;
   begin
      return To_Composite_Packet (RAW_Blob).Values;
   end;
 
   Blob_Color : RGB := Blob;
   Expected_Color : RGB;
begin
   if System.Default_Bit_Order = High_Order_First then
      Expected_Color := (1 => 1, 2 => 2, 3 => 3);
   else
      Expected_Color := (1 => 4, 2 => 3, 3 => 2);
   end if;
 
   for I in Blob_Color'Range loop
      if Blob_Color (I) /= Expected_Color (I) then
	 raise Program_Error;
      end if;
   end loop;
end;
 

Compare with Previous | Blame | View Log

powered by: WebSVN 2.1.0

© copyright 1999-2024 OpenCores.org, equivalent to Oliscience, all rights reserved. OpenCores®, registered trademark.