paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-11-27 11:37:19 +01:00
Code Issues Packages Projects Releases Wiki Activity

* Check for session in DoneSession, avoids creation of a factory if none is needed.

Browse Source 
git-svn-id: trunk@17595 -
This commit is contained in:
michael 2011-05-28 09:11:04 +00:00
parent e3050439a8
commit 0fb7ad5a07
1 changed files with 4 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
packages/fcl-web/src/base/fphttp.pp
View File

@ -630,6 +630,8 @@ end;
procedure TSessionHTTPModule.DoneSession; procedure TSessionHTTPModule.DoneSession;
begin begin
// Session manager may or may not destroy the session. // Session manager may or may not destroy the session.
// Check if we actually have
if Assigned(FSession) then
SessionFactory.DoneSession(FSession); SessionFactory.DoneSession(FSession);
// In each case, our reference is no longer valid. // In each case, our reference is no longer valid.
FSession:=Nil; FSession:=Nil;
@ -638,7 +640,6 @@ end;
destructor TSessionHTTPModule.destroy; destructor TSessionHTTPModule.destroy;
begin begin
// Prevent memory leaks. // Prevent memory leaks.
If Assigned(FSession) then
DoneSession; DoneSession;
inherited destroy; inherited destroy;
end; end;