[Jcl-checkins-diff] SF.net SVN: jcl: [1852] trunk/jcl/experts/debug/dialog/ExceptDlg.Delphi32. pas

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

Revision: 1852
          http://svn.sourceforge.net/jcl/?rev=1852&view=rev
Author:   outchy
Date:     2006-12-27 04:26:22 -0800 (Wed, 27 Dec 2006)

Log Message:
-----------
Fixed compilation problem

Modified Paths:
--------------
    trunk/jcl/experts/debug/dialog/ExceptDlg.Delphi32.pas

Modified: trunk/jcl/experts/debug/dialog/ExceptDlg.Delphi32.pas
===================================================================
--- trunk/jcl/experts/debug/dialog/ExceptDlg.Delphi32.pas	2006-12-27 11:00:34 UTC (rev 1851)
+++ trunk/jcl/experts/debug/dialog/ExceptDlg.Delphi32.pas	2006-12-27 12:26:22 UTC (rev 1852)
@@ -326,7 +326,7 @@
         ProcessorDetails := ProcessorDetails + ' 3DNow!';
       if Is64Bits then
         ProcessorDetails := ProcessorDetails + ' 64 bits';
-      if DEPEnabled then
+      if DEPCapable then
         ProcessorDetails := ProcessorDetails + ' DEP';
     end;
     DetailsMemo.Lines.Add(ProcessorDetails);
@@ -506,14 +506,11 @@
 
 procedure T%FORMNAME%.ReportToLog;
 begin
-  if JclExcDlgReportToLog then
-  begin
-    FSimpleLog.WriteStamp(ReportMaxColumns);
-    try
-      FSimpleLog.Write(ReportAsText);
-    finally
-      FSimpleLog.CloseLog;
-    end;
+  FSimpleLog.WriteStamp(ReportMaxColumns);
+  try
+    FSimpleLog.Write(ReportAsText);
+  finally
+    FSimpleLog.CloseLog;
   end;
 end;
 %endif


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