diff options
Diffstat (limited to 'gcc/ada/s-memcop.ads')
| -rw-r--r-- | gcc/ada/s-memcop.ads | 28 |
1 files changed, 13 insertions, 15 deletions
diff --git a/gcc/ada/s-memcop.ads b/gcc/ada/s-memcop.ads index d71d48f17ca..f4d945487be 100644 --- a/gcc/ada/s-memcop.ads +++ b/gcc/ada/s-memcop.ads @@ -6,7 +6,7 @@ -- -- -- S p e c -- -- -- --- Copyright (C) 2001-2002 Free Software Foundation, Inc. -- +-- Copyright (C) 2001-2003 Free Software Foundation, Inc. -- -- -- -- This specification is derived from the Ada Reference Manual for use with -- -- GNAT. The copyright notice above, and the license provisions that follow -- @@ -35,24 +35,27 @@ -- -- ------------------------------------------------------------------------------ --- This package provides general block copy mechanisms analgous to those +-- This package provides general block copy mechanisms analogous to those -- provided by the C routines memcpy and memmove allowing for copies with --- and without possible overflow. +-- and without possible overlap of the operands. + +-- The idea is to allow a configurable run-time to provide this capability +-- for use by the compiler without dragging in C-run time routines. + +with System.CRTL; +-- The above with is contrary to the intent ??? package System.Memory_Copy is pragma Preelaborate; - type size_t is mod 2 ** Standard'Address_Size; - -- Note: the reason we redefine this here instead of using the - -- definition in Interfaces.C is that we do not want to drag in - -- all of Interfaces.C just because System.Memory_Copy is used. - - procedure memcpy (S1 : Address; S2 : Address; N : size_t); + procedure memcpy (S1 : Address; S2 : Address; N : System.CRTL.size_t) + renames System.CRTL.memcpy; -- Copies N storage units from area starting at S2 to area starting -- at S1 without any check for buffer overflow. The memory areas -- must not overlap, or the result of this call is undefined. - procedure memmove (S1 : Address; S2 : Address; N : size_t); + procedure memmove (S1 : Address; S2 : Address; N : System.CRTL.size_t) + renames System.CRTL.memmove; -- Copies N storage units from area starting at S2 to area starting -- at S1 without any check for buffer overflow. The difference between -- this memmove and memcpy is that with memmove, the storage areas may @@ -60,8 +63,6 @@ pragma Preelaborate; -- is as if S2 is first moved to a temporary area, and then this area -- is copied to S1 in a separate step). -private - -- In the standard library, these are just interfaced to the C routines. -- But in the HI-E (high integrity version) they may be reprogrammed to -- meet certification requirements (and marked High_Integrity). @@ -70,7 +71,4 @@ private -- available, and the HI-E compiler will as a result generate implicit -- loops (which will violate the restriction No_Implicit_Loops). - pragma Import (C, memcpy, "memcpy"); - pragma Import (C, memmove, "memmove"); - end System.Memory_Copy; |