Navigation

Changeset 2645

Timestamp:

04/26/08 14:47:24 (7 months ago)

Author:

maxr

Message:

ada: check directory separator at the end of GELA_INCLUDE_PATH environment

Files:

r2530	r2645
67	67
68	68	function Gela_Lib_Path return String is
	69	Separator : constant Character := '/';
	70	Path : constant String := Env;
69	71	begin
70		return Env;
	72	if Path'Length > 0 and then Path (Path'Last) /= Separator then
	73	return Path & Separator;
	74	else
	75	return Env;
	76	end if;
71	77	end Gela_Lib_Path;
72	78