-- which now generates concatenation inline. It is retained only because
-- it may be used during bootstrapping using old versions of the compiler.
-pragma Warnings (Off);
pragma Compiler_Unit;
-pragma Warnings (On);
package body System.String_Ops is