URL
https://opencores.org/ocsvn/openrisc_2011-10-31/openrisc_2011-10-31/trunk
Go to most recent revision |
Only display areas with differences |
Details |
Blame |
View Log
Rev 304 |
Rev 384 |
-- { dg-do compile }
|
-- { dg-do compile }
|
-- { dg-options "-O2" }
|
-- { dg-options "-O2" }
|
|
|
with Unchecked_Conversion;
|
with Unchecked_Conversion;
|
|
|
procedure Warn4 is
|
procedure Warn4 is
|
|
|
type POSIX_Character is new Standard.Character;
|
type POSIX_Character is new Standard.Character;
|
type POSIX_String is array (Positive range <>) of aliased POSIX_Character;
|
type POSIX_String is array (Positive range <>) of aliased POSIX_Character;
|
|
|
type String_Ptr is access all String;
|
type String_Ptr is access all String;
|
type POSIX_String_Ptr is access all POSIX_String;
|
type POSIX_String_Ptr is access all POSIX_String;
|
|
|
function sptr_to_psptr is new Unchecked_Conversion -- { dg-warning "aliasing problem" }
|
function sptr_to_psptr is new Unchecked_Conversion -- { dg-warning "aliasing problem" }
|
(String_Ptr, POSIX_String_Ptr); -- { dg-warning "" "" { target *-*-* } 14 }
|
(String_Ptr, POSIX_String_Ptr); -- { dg-warning "" "" { target *-*-* } 14 }
|
|
|
function To_POSIX_String (Str : String) return POSIX_String;
|
function To_POSIX_String (Str : String) return POSIX_String;
|
function To_POSIX_String (Str : String)
|
function To_POSIX_String (Str : String)
|
return POSIX_String is
|
return POSIX_String is
|
begin
|
begin
|
return sptr_to_psptr (Str'Unrestricted_Access).all;
|
return sptr_to_psptr (Str'Unrestricted_Access).all;
|
end To_POSIX_String;
|
end To_POSIX_String;
|
|
|
A : Boolean;
|
A : Boolean;
|
S : String := "ABCD/abcd";
|
S : String := "ABCD/abcd";
|
P : Posix_String := "ABCD/abcd";
|
P : Posix_String := "ABCD/abcd";
|
|
|
begin
|
begin
|
A := To_POSIX_String (S) = P;
|
A := To_POSIX_String (S) = P;
|
end;
|
end;
|
|
|
© copyright 1999-2024
OpenCores.org, equivalent to Oliscience, all rights reserved. OpenCores®, registered trademark.