ViewVC Help

View File | Revision Log | Show Annotations | Download File | View Changeset | Root Listing

root/public/ibx/trunk/runtime/nongui/IBSQLMonitor.pas

Comparing ibx/trunk/runtime/nongui/IBSQLMonitor.pas (file contents):
Revision 214 by tony, Wed Mar 14 12:48:51 2018 UTC vs.
Revision 215 by tony, Thu Mar 15 16:25:03 2018 UTC

#	Line 50 | Line 50 | uses
50		IBTypes ,SysUtils,  Classes,
51		{$IFDEF WINDOWS }
52		Windows
53	<	{$ELSE}
54	<	unix
53	>	{$ENDIF}
54	>	{$IFDEF UNIX}
55	>	cthreads, unix
56		{$ENDIF}
57		;
58
#	Line 844 | Line 845 | begin
845		if FMsgs.Items[0] is TReleaseObject then
846		begin
847		{$IFDEF DEBUG}writeln('Post Release');{$ENDIF}
848	<	Synchronize(PostRelease);
848	>	if not Terminated then
849	>	Synchronize(PostRelease);
850		end
851		else
852		{ Otherwise write the TraceObject to the buffer }
#	Line 1098 | Line 1100 | begin
1100		not ((st.FMsg = ' ') and (st.FDataType = tfMisc)) then
1101		begin
1102		{$IFDEF DEBUG}writeln('Sending Message to Monitors');{$ENDIF}
1103	<	Synchronize(AlertMonitors);
1103	>	if not Terminated then
1104	>	Synchronize(AlertMonitors);
1105		end;
1106		end;
1107		{$IFDEF DEBUG}writeln('Read Thread Ends');{$ENDIF}

Diff Legend

–	Removed lines
+	Added lines
<	Changed lines
>	Changed lines