From hugs.c:
static Void local addScriptName(s,sch) /* Add script to list of scripts */ String s; /* to be read in ... */ Bool sch; { /* TRUE => requires pathname search*/ if (namesUpto>=NUM_SCRIPTS) { ERRMSG(0) "Too many module files (maximum of %d allowed)", NUM_SCRIPTS EEND; } else scriptName[namesUpto] = strCopy(sch ? findPathname(NULL,s) : s); scriptReal[namesUpto] = strCopy(RealPath(scriptName[namesUpto])); namesUpto++; }
Thanks, looks as if it was written by a Haskell programmer
that expected the layout rule to apply ;-) Fortunately the bug
didn't do any harm here..
--sigbjorn
----- Original Message -----
From: "Ross Paterson"
From hugs.c:
static Void local addScriptName(s,sch) /* Add script to list of scripts */ String s; /* to be read in ... */ Bool sch; { /* TRUE => requires pathname search*/ if (namesUpto>=NUM_SCRIPTS) { ERRMSG(0) "Too many module files (maximum of %d allowed)", NUM_SCRIPTS EEND; } else scriptName[namesUpto] = strCopy(sch ? findPathname(NULL,s) : s); scriptReal[namesUpto] = strCopy(RealPath(scriptName[namesUpto])); namesUpto++; } _______________________________________________ Hugs-Bugs mailing list Hugs-Bugs@haskell.org http://www.haskell.org/mailman/listinfo/hugs-bugs
participants (2)
-
Ross Paterson -
Sigbjorn Finne