File ksh93-gcc.dif of Package ksh

--- src/lib/libpp/ppsearch.c
+++ src/lib/libpp/ppsearch.c	2012-03-14 11:40:10.953934666 +0000
@@ -107,6 +107,14 @@ ppmultiple(register struct ppfile* fp, r
  * search for file using directories in dp
  */
 
+#define stupidgcc(flag) 		\
+({ 					\
+	char *name = NiL; 		\
+	if (!(fp->flags & INC_MEMBER(flag)) && (xp = fp->bound[flag])) \
+		 name = xp->name; \
+	name; \
+})
+
 static int
 search(register struct ppfile* fp, register struct ppdirs* dp, int type, int flags)
 {
@@ -146,10 +154,10 @@ search(register struct ppfile* fp, regis
 		(fp->flags & INC_BOUND(INC_STANDARD)) ? "STANDARD|" : "",
 		dp ? (dp->index == INC_PREFIX ? "pre" : dp->index == INC_LOCAL ? "lcl" : dp->index == INC_VENDOR ? "vnd" : "std") : NiL,
 		dp ? dp->name : NiL,
-		!(fp->flags & INC_MEMBER(INC_PREFIX)) && fp->bound[INC_PREFIX] ? fp->bound[INC_PREFIX]->name : NiL,
-		!(fp->flags & INC_MEMBER(INC_LOCAL)) && fp->bound[INC_LOCAL] ? fp->bound[INC_LOCAL]->name : NiL,
-		!(fp->flags & INC_MEMBER(INC_VENDOR)) && fp->bound[INC_VENDOR] ? fp->bound[INC_VENDOR]->name : NiL,
-		!(fp->flags & INC_MEMBER(INC_STANDARD)) && (xp = fp->bound[INC_STANDARD]) ? xp->name : NiL,
+		stupidgcc(INC_PREFIX),
+		stupidgcc(INC_LOCAL),
+		stupidgcc(INC_VENDOR),
+		stupidgcc(INC_STANDARD),
 		error_info.file
 		));
 	if (flags & SEARCH_HOSTED)
@@ -578,6 +586,8 @@ if (pp.test & 0x0010) error(1, "SEARCH#%
 	return -1;
 }
 
+#undef stupidgcc
+
 /*
  * search for an include file
  * if (flags&SEARCH_INCLUDE) then