extend postlink: expand {Project} and {Application}, add ""s, pass project

path

Pm/PmDriver.icl

@@ -157,17 +157,22 @@ where
 			# ps				= showInfo (Level1 "Precompile...") ps
 			# (ok,ec,ps)		= Execute` (fromJust precompile) ps
 			// error handling???
-			= trace_n ("PRE",ok,ec) ps
-		= trace_n "NO-PRE" ps
-	
+			= ps
+		= ps
+
 	PostlinkFase project ps
 		# (postlink,project)	= PR_GetPostlink project
 		| isJust postlink
+			# (Just post_link)	= postlink
+			# (prj_path,ps)		= getPath ps
+			# prj_dir_path		= RemoveFilename prj_path
+			# (app_path,ps)		= getStup ps
+			# post_link			= fulPath app_path prj_dir_path post_link
 			# ps				= showInfo (Level1 "Postlink...") ps
-			# (ok,ec,ps)		= Execute` (fromJust postlink) ps
+			# (ok,ec,ps)		= Execute` ("\""+++post_link+++"\" \""+++prj_path+++"\"") ps
 			= ps
 		= ps
-	
+
 	cleanup :: !Bool !Bool !Bool !FileInfoCache !StaticLibInfo !(List Modulename) !Project !Bool (!*ABCCache,!(PSt *General)) -> *(!*DriverState,!PSt *General)
 	cleanup ok newpaths linked fileinfo libsinfo modpaths project intr (abccache,ps)
 		| newpaths && not intr		// if paths have changed -> try again