Browse Source

* Initialize nil-pointer

git-svn-id: trunk@17612 -
joost 14 years ago
parent
commit
0fe7c07bbb
1 changed files with 2 additions and 1 deletions
  1. 2 1
      packages/fcl-web/src/base/custweb.pp

+ 2 - 1
packages/fcl-web/src/base/custweb.pp

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