# Peter N. Lewis, 20050625
# works around a problem where "gp" would endlessly recompile units on Mac OS X 10.4

diff -ur gp-0.60/gp.pas gp-0.60-patched/gp.pas
--- gp-0.60/gp.pas	Sun Jun  5 22:31:51 2005
+++ gp-0.60-patched/gp.pas	Tue Aug  9 20:05:15 2005
@@ -708,7 +708,7 @@
   if FileName <> '' then
     UnitNameMatch := (Dep.SrcBaseNameExt = FileName) or (Dep.SrcBaseName = FileName)
   else
-    UnitNameMatch := Dep.SrcBaseName = InterfaceName
+    UnitNameMatch := LoCaseStr( Dep.SrcBaseName ) = LoCaseStr( InterfaceName );
 end;
 
 function NewUsesElement (const InterfaceName, FileName: String; Next: PUnitList) = p: PUnitList;