paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-09-14 07:49:21 +02:00
Code Issues Packages Projects Releases Wiki Activity

* Initialize nil-pointer

Browse Source 
git-svn-id: trunk@17612 -
This commit is contained in:
joost 2011-05-30 17:45:11 +00:00
parent e727dcc1a4
commit 0fe7c07bbb
1 changed files with 2 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -310,6 +310,7 @@ begin
try
MC:=Nil;
M:=NIL;
MI:=Nil;
If (OnGetModule<>Nil) then
OnGetModule(Self,ARequest,MC);
If (MC=Nil) then
@ -322,7 +323,7 @@ begin
end;
M:=FindModule(MC); // Check if a module exists already
If (M=Nil) then
if Mi.SkipStreaming then
if assigned(MI) and Mi.SkipStreaming then
M:=MC.CreateNew(Self)
else
M:=MC.Create(Self);