[Jcl-checkins-diff] SF.net SVN: jcl:[3889] trunk/jcl/source/common/JclCompilerUtils.pas

[<ou...@us...>]

Revision: 3889
          http://jcl.svn.sourceforge.net/jcl/?rev=3889&view=rev
Author:   outchy
Date:     2013-01-01 11:08:58 +0000 (Tue, 01 Jan 2013)
Log Message:
-----------
Invalid OEM char in compiler command line.

Modified Paths:
--------------
    trunk/jcl/source/common/JclCompilerUtils.pas

Modified: trunk/jcl/source/common/JclCompilerUtils.pas
===================================================================
--- trunk/jcl/source/common/JclCompilerUtils.pas	2013-01-01 11:01:13 UTC (rev 3888)
+++ trunk/jcl/source/common/JclCompilerUtils.pas	2013-01-01 11:08:58 UTC (rev 3889)
@@ -781,7 +781,7 @@
   LaunchCommand := Format('%s %s', [FileName, StrAnsiToOem(AnsiString(CommandLine))]);
   if Assigned(FOutputCallback) then
   begin
-    FOutputCallback(LaunchCommand);
+    OemTextHandler(LaunchCommand);
     Result := JclSysUtils.Execute(LaunchCommand, OemTextHandler) = 0;
   end
   else

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