[JVCL-Checkins] SF.net SVN: jvcl:[11871] trunk/jvcl/packages/bin

[<ob...@us...>]

Revision: 11871
          http://jvcl.svn.sourceforge.net/jvcl/?rev=11871&view=rev
Author:   obones
Date:     2008-08-23 10:05:41 +0000 (Sat, 23 Aug 2008)

Log Message:
-----------
added "include" folder in search path for requires-jcl

Modified Paths:
--------------
    trunk/jvcl/packages/bin/dcc32ex.dpr
    trunk/jvcl/packages/bin/dcc32ex.exe

Modified: trunk/jvcl/packages/bin/dcc32ex.dpr
===================================================================
--- trunk/jvcl/packages/bin/dcc32ex.dpr	2008-08-20 20:01:44 UTC (rev 11870)
+++ trunk/jvcl/packages/bin/dcc32ex.dpr	2008-08-23 10:05:41 UTC (rev 11871)
@@ -418,12 +418,12 @@
           JediLibDirs := JediLibDirs + ';' + Dir + ';' + DcpDir
         else
           JediLibDirs := JediLibDirs + ';' + Dir;
-        JediLibDirs := JediLibDirs + ';' + RootDir + '\source';
+        JediLibDirs := JediLibDirs + ';' + RootDir + '\source;' + RootDir + '\source\include';
         Result.InstalledJcl := True;
       end
       else if FileExists(RootDir + '\source\common\JclBase.pas') then
       begin
-        JediLibDirs := ';' + RootDir + '\source;' + RootDir + '\source\common;' + RootDir + '\source\vcl;' + RootDir + '\source\visclx;' +
+        JediLibDirs := ';' + RootDir + '\source;' + RootDir + '\source\include;' + RootDir + '\source\common;' + RootDir + '\source\vcl;' + RootDir + '\source\visclx;' +
                        RootDir + '\source\windows' + JediLibDirs; // JediLibDirs has leading ';'
         Result.InstalledJcl := True;
       end;


This was sent by the SourceForge.net collaborative development platform, the world's largest Open Source development site.