diff --git a/compiler/ncal.pas b/compiler/ncal.pas
index be3a4a6063..6557449b54 100644
--- a/compiler/ncal.pas
+++ b/compiler/ncal.pas
@@ -2055,7 +2055,8 @@ type
         errorexit;
       begin
          result:=nil;
-(*
+
+{$ifdef NODEINLINE}
          if (procdefinition.proccalloption=pocall_inline) and
             { can we inline this procedure at the node level? }
             (tprocdef(procdefinition).inlininginfo^.inlinenode) then
@@ -2078,10 +2079,11 @@ type
                 begin
                   createblock := internalstatements(createstatement);
                   deleteblock := internalstatements(deletestatement);
+                  inlinelocals:=tlist.create;
                   { replace complex parameters with temps }
                   createinlineparas(createstatement,deletestatement);
-                  { replace the parameter loads with the parameter values }
-                  foreachnode(result,replaceparaload,@fileinfo);
+                  { replace the parameter loads with the parameter values }
+                  foreachnode(result,@replaceparaload,@fileinfo);
                   { free the temps for the locals }
                   for i := 0 to inlinelocals.count-1 do
                     if assigned(inlinelocals[i]) then
@@ -2103,7 +2105,7 @@ type
                   exit;
                 end;
            end;
-*)
+{$endif NODEINLINE}
 
          { calculate the parameter info for the procdef }
          if not procdefinition.has_paraloc_info then
@@ -2404,7 +2406,10 @@ begin
 end.
 {
   $Log$
-  Revision 1.262  2004-11-22 22:01:19  peter
+  Revision 1.263  2004-11-22 22:19:00  peter
+    * enabled pass1 inlining from Jonas
+
+  Revision 1.262  2004/11/22 22:01:19  peter
     * fixed varargs
     * replaced dynarray with tlist