paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-11-28 06:10:41 +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; procedure TSessionHTTPModule.DoneSession;
begin begin
// Session manager may or may not destroy the session. // 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. // In each case, our reference is no longer valid.
FSession:=Nil; FSession:=Nil;
end; end;
@ -638,8 +640,7 @@ 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;