URL https://opencores.org/ocsvn/openrisc_2011-10-31/openrisc_2011-10-31/trunk

Subversion Repositories openrisc_2011-10-31

[/] [openrisc/] [tags/] [gnu-src/] [gcc-4.5.1/] [gcc-4.5.1-or32-1.0rc2/] [gcc/] [testsuite/] [gnat.dg/] [pack9.adb] - Blame information for rev 437

Go to most recent revision | Details | Compare with Previous | View Log


-- { dg-do compile }
-- { dg-options "-O2 -gnatp -cargs -fdump-tree-optimized" }
 
package body Pack9 is
 
  procedure Copy (X, Y : R2_Ptr) is
    T : R2 := Y.all;
  begin
    if T.I2 /= Y.I2 then
      raise Program_Error;
    end if;
    X.all := T;
  end;
 
end Pack9;
 
-- { dg-final { scan-tree-dump-not "__gnat_rcheck" "optimized" } }
-- { dg-final { cleanup-tree-dump "optimized" } }

Line No.	Rev	Author	Line
1	304	jeremybenn	`-- { dg-do compile }`
2			`-- { dg-options "-O2 -gnatp -cargs -fdump-tree-optimized" }`
3
4			`package body Pack9 is`
5
6			`procedure Copy (X, Y : R2_Ptr) is`
7			`T : R2 := Y.all;`
8			`begin`
9			`if T.I2 /= Y.I2 then`
10			`raise Program_Error;`
11			`end if;`
12			`X.all := T;`
13			`end;`
14
15			`end Pack9;`
16
17			`-- { dg-final { scan-tree-dump-not "__gnat_rcheck" "optimized" } }`
18			`-- { dg-final { cleanup-tree-dump "optimized" } }`

Browse

Tools

Subversion Repositories openrisc_2011-10-31

[/] [openrisc/] [tags/] [gnu-src/] [gcc-4.5.1/] [gcc-4.5.1-or32-1.0rc2/] [gcc/] [testsuite/] [gnat.dg/] [pack9.adb] - Blame information for rev 437