| # | Line 573 | Line 573 | end; | |
|---|---|---|
| 573 | ||
| 574 | procedure TIBSQLMonitorHook.SetEnabled(const Value: Boolean); | |
| 575 | begin | |
| 576 | + | {$ifdef UNIX} |
| 577 | if Value and not IsMultiThread then | |
| 578 | IBError(ibxeMultiThreadRequired,['IBSQLMonitor']); | |
| 579 | + | {$endif} |
| 580 | if FEnabled <> Value then | |
| 581 | FEnabled := Value; | |
| 582 | if (not FEnabled) and (Assigned(FWriterThread)) then | |
| – | Removed lines |
| + | Added lines |
| < | Changed lines |
| > | Changed lines |