fix mkHierarchical for module names with length 1

Pm/PmProject.icl

@@ -747,14 +747,14 @@ SubstitutePath applicationDir projectDir path
 
 PR_GetABCLinkInfo :: !Project -> (!(List (Modulename, LinkObjFileName)), !(List (Modulename, LinkLibraryName)))
 PR_GetABCLinkInfo project=:{inflist}
-	# allLinkInfoRecords = map toRecord (StrictListToList inflist);
+	# allLinkInfoRecords = [toRecord el\\el<|-inflist];
 	= foldl mergeTwoRecords emptyRecord allLinkInfoRecords;
 where
 		toRecord {InfListItem | mn,info={abcLinkInfo}} =
 			(Map mkHierarchical abcLinkInfo.linkObjFileNames
 			,Map mkHierarchical abcLinkInfo.linkLibraryNames)
 		where
-			mkHierarchical file = (removeLastComponent mn (size mn - 2), file)
+			mkHierarchical linkobj = (removeLastComponent mn (max 0 (size mn - 1)), linkobj)
 
 			removeLastComponent s 0 = ""
 			removeLastComponent s i