paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-11-25 07:17:21 +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

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

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