-- --
-- S p e c --
-- --
--- Copyright (C) 1992-2005, Free Software Foundation, Inc. --
+-- Copyright (C) 1992-2007, 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- --
-- This package contains the function for concatenating four strings
+pragma Warnings (Off);
+pragma Compiler_Unit;
+pragma Warnings (On);
+
package System.String_Ops_Concat_4 is
-pragma Pure (String_Ops_Concat_4);
+ pragma Pure;
function Str_Concat_4 (S1, S2, S3, S4 : String) return String;
-- Concatenate four strings and return resulting string