0355e3ebbe
2014-02-25 Robert Dewar <dewar@adacore.com> * lib.ads, s-bitops.adb, s-bitops.ads, s-conca5.adb, gnat_rm.texi, s-conca5.ads, s-conca7.adb, s-conca7.ads, s-crc32.adb, s-crc32.ads, s-conca9.adb, s-conca9.ads, g-dyntab.adb, s-crtl.ads, g-dyntab.ads, s-excdeb.adb, s-addope.adb, s-addope.ads, s-carun8.adb, s-carun8.ads, g-htable.adb, g-htable.ads, g-hesora.adb, g-hesora.ads, s-conca2.adb, s-conca2.ads, a-comlin.adb, a-chlat1.ads, a-comlin.ads, errout.ads, a-except.adb, s-conca4.adb, a-except.ads, s-conca4.ads, s-conca6.adb, s-conca6.ads, g-spchge.adb, g-spchge.ads, g-u3spch.adb, g-u3spch.ads, a-strhas.ads, restrict.adb, aspects.adb, aspects.ads, s-conca8.adb, s-conca8.ads, back_end.adb, par-prag.adb, g-byorma.adb, g-byorma.ads, a-elchha.adb, a-elchha.ads, g-speche.adb, g-speche.ads, s-casuti.adb, s-assert.adb, s-casuti.ads, s-assert.ads, a-clrefi.adb, a-clrefi.ads, s-conca3.adb, s-conca3.ads, a-ioexce.ads: Implement pragma Compiler_Unit_Warning, change Compiler_Unit everywhere to Compiler_Unit_Warning. 2014-02-25 Sergey Rybin <rybin@adacore.com frybin> * sem_prag.adb (Analyze_Depends_In_Decl_Part): Do not normalize in ASIS mode aggregates that are used as aspect definitions. From-SVN: r208137
91 lines
3.5 KiB
Ada
91 lines
3.5 KiB
Ada
------------------------------------------------------------------------------
|
|
-- --
|
|
-- GNAT RUN-TIME LIBRARY (GNARL) COMPONENTS --
|
|
-- --
|
|
-- S Y S T E M . C O N C A T _ 6 --
|
|
-- --
|
|
-- B o d y --
|
|
-- --
|
|
-- Copyright (C) 2008-2013, Free Software Foundation, Inc. --
|
|
-- --
|
|
-- GNAT is free software; you can redistribute it and/or modify it under --
|
|
-- terms of the GNU General Public License as published by the Free Soft- --
|
|
-- ware Foundation; either version 3, or (at your option) any later ver- --
|
|
-- sion. GNAT is distributed in the hope that it will be useful, but WITH- --
|
|
-- OUT ANY WARRANTY; without even the implied warranty of MERCHANTABILITY --
|
|
-- or FITNESS FOR A PARTICULAR PURPOSE. --
|
|
-- --
|
|
-- As a special exception under Section 7 of GPL version 3, you are granted --
|
|
-- additional permissions described in the GCC Runtime Library Exception, --
|
|
-- version 3.1, as published by the Free Software Foundation. --
|
|
-- --
|
|
-- You should have received a copy of the GNU General Public License and --
|
|
-- a copy of the GCC Runtime Library Exception along with this program; --
|
|
-- see the files COPYING3 and COPYING.RUNTIME respectively. If not, see --
|
|
-- <http://www.gnu.org/licenses/>. --
|
|
-- --
|
|
-- GNAT was originally developed by the GNAT team at New York University. --
|
|
-- Extensive contributions were provided by Ada Core Technologies Inc. --
|
|
-- --
|
|
------------------------------------------------------------------------------
|
|
|
|
pragma Compiler_Unit_Warning;
|
|
|
|
with System.Concat_5;
|
|
|
|
package body System.Concat_6 is
|
|
|
|
pragma Suppress (All_Checks);
|
|
|
|
------------------
|
|
-- Str_Concat_6 --
|
|
------------------
|
|
|
|
procedure Str_Concat_6 (R : out String; S1, S2, S3, S4, S5, S6 : String) is
|
|
F, L : Natural;
|
|
|
|
begin
|
|
F := R'First;
|
|
L := F + S1'Length - 1;
|
|
R (F .. L) := S1;
|
|
|
|
F := L + 1;
|
|
L := F + S2'Length - 1;
|
|
R (F .. L) := S2;
|
|
|
|
F := L + 1;
|
|
L := F + S3'Length - 1;
|
|
R (F .. L) := S3;
|
|
|
|
F := L + 1;
|
|
L := F + S4'Length - 1;
|
|
R (F .. L) := S4;
|
|
|
|
F := L + 1;
|
|
L := F + S5'Length - 1;
|
|
R (F .. L) := S5;
|
|
|
|
F := L + 1;
|
|
L := R'Last;
|
|
R (F .. L) := S6;
|
|
end Str_Concat_6;
|
|
|
|
-------------------------
|
|
-- Str_Concat_Bounds_6 --
|
|
-------------------------
|
|
|
|
procedure Str_Concat_Bounds_6
|
|
(Lo, Hi : out Natural;
|
|
S1, S2, S3, S4, S5, S6 : String)
|
|
is
|
|
begin
|
|
System.Concat_5.Str_Concat_Bounds_5 (Lo, Hi, S2, S3, S4, S5, S6);
|
|
|
|
if S1 /= "" then
|
|
Hi := S1'Last + Hi - Lo + 1;
|
|
Lo := S1'First;
|
|
end if;
|
|
end Str_Concat_Bounds_6;
|
|
|
|
end System.Concat_6;
|