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/] [rep_clause2.adb] - Blame information for rev 304

Details | Compare with Previous | View Log


-- { dg-do compile }
 
package body Rep_Clause2 is
 
   procedure Assign (From : Data; Offset : Positive; I : Index; To : out Bit_Array) is
   begin
     To (Offset .. Offset + 7) := Bit_Array (Conv (From.D(I).S.N));
   end;
 
end Rep_Clause2;

Line No.	Rev	Author	Line
1	304	jeremybenn	`-- { dg-do compile }`
2
3			`package body Rep_Clause2 is`
4
5			`procedure Assign (From : Data; Offset : Positive; I : Index; To : out Bit_Array) is`
6			`begin`
7			`To (Offset .. Offset + 7) := Bit_Array (Conv (From.D(I).S.N));`
8			`end;`
9
10			`end Rep_Clause2;`

Browse

Tools

Subversion Repositories openrisc_me

[/] [openrisc/] [trunk/] [gnu-src/] [gcc-4.5.1/] [gcc/] [testsuite/] [gnat.dg/] [rep_clause2.adb] - Blame information for rev 304