From 9a64d34d34ee4aad4c30daac5045b5df1fe20f5c Mon Sep 17 00:00:00 2001
From: peter <peter@freepascal.org>
Date: Sun, 21 Nov 2004 21:27:31 +0000
Subject: [PATCH]   * add checks for filedef type to prevent crashes

---
 compiler/ninl.pas | 13 +++++++++----
 1 file changed, 9 insertions(+), 4 deletions(-)

diff --git a/compiler/ninl.pas b/compiler/ninl.pas
index 27f04281e3..9093790863 100644
--- a/compiler/ninl.pas
+++ b/compiler/ninl.pas
@@ -461,8 +461,9 @@ implementation
         if is_typed then
           begin
             { add the typesize to the filepara }
-            filepara.right := ccallparanode.create(cordconstnode.create(
-              tfiledef(filepara.resulttype.def).typedfiletype.def.size,s32inttype,true),nil);
+            if filepara.resulttype.def.deftype=filedef then
+              filepara.right := ccallparanode.create(cordconstnode.create(
+                tfiledef(filepara.resulttype.def).typedfiletype.def.size,s32inttype,true),nil);
 
             { check for "no parameters" (you need at least one extra para for typed files) }
             if not assigned(para) then
@@ -489,7 +490,8 @@ implementation
                     para.left:=p1;
                   end;
 
-                inserttypeconv(para.left,tfiledef(filepara.resulttype.def).typedfiletype);
+                if filepara.resulttype.def.deftype=filedef then
+                  inserttypeconv(para.left,tfiledef(filepara.resulttype.def).typedfiletype);
 
                 if assigned(para.right) and
                    (cpf_is_colon_para in tcallparanode(para.right).callparaflags) then
@@ -2463,7 +2465,10 @@ begin
 end.
 {
   $Log$
-  Revision 1.153  2004-11-21 17:54:59  peter
+  Revision 1.154  2004-11-21 21:27:31  peter
+    * add checks for filedef type to prevent crashes
+
+  Revision 1.153  2004/11/21 17:54:59  peter
     * ttempcreatenode.create_reg merged into .create with parameter
       whether a register is allowed
     * funcret_paraloc renamed to funcretloc