ViewVC Help

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

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

Comparing ibx/trunk/runtime/IBSQLMonitor.pas (file contents):
Revision 33 by tony, Sat Jul 18 12:30:52 2015 UTC vs.
Revision 39 by tony, Tue May 17 08:14:52 2016 UTC

#	Line 41 | Line 41 | unit IBSQLMonitor;
41
42		{$Mode Delphi}
43
44	+	{$IF FPC_FULLVERSION >= 20700 }
45	+	{$codepage UTF8}
46	+	{$ENDIF}
47	+
48		interface
49
50		uses
#	Line 1102 | Line 1106 | initialization
1106		if FpGetEnv('FBSQL_IPCFILENAME') <> nil then
1107		IPCFileName := strpas(FpGetEnv('FBSQL_IPCFILENAME'))
1108		else
1109	<	IPCFileName := '/tmp/' + IPCFileName + '.' + strpas(FpGetEnv('USER'));
1109	>	IPCFileName := GetTempDir(true) + IPCFileName + '.' + strpas(FpGetEnv('USER'));
1110		{$ENDIF}
1111
1112		finalization

Diff Legend

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