From e18eaddbfc82c773cb9295779d9ce5e8b1f6090e Mon Sep 17 00:00:00 2001
From: peter <peter@freepascal.org>
Date: Sun, 29 Aug 2004 11:28:41 +0000
Subject: [PATCH] fixed crash with error in default value allow assembler
 directive in interface

---
 compiler/pdecsub.pas | 14 ++++++++++----
 1 file changed, 10 insertions(+), 4 deletions(-)

diff --git a/compiler/pdecsub.pas b/compiler/pdecsub.pas
index 6e1c3e24de..3a5f4d9dd8 100644
--- a/compiler/pdecsub.pas
+++ b/compiler/pdecsub.pas
@@ -494,9 +494,11 @@ implementation
                         Message(parser_e_default_value_only_one_para);
                       { prefix 'def' to the parameter name }
                       defaultvalue:=ReadConstant('$def'+vs.name,vs.fileinfo);
-                      include(defaultvalue.symoptions,sp_internal);
                       if assigned(defaultvalue) then
-                       tprocdef(pd).parast.insert(defaultvalue);
+                        begin
+                          include(defaultvalue.symoptions,sp_internal);
+                          tprocdef(pd).parast.insert(defaultvalue);
+                        end;
                       defaultrequired:=true;
                     end
                    else
@@ -1309,7 +1311,7 @@ const
       mutexclpo     : [po_external]
     ),(
       idtok:_ASSEMBLER;
-      pd_flags : [pd_implemen,pd_body,pd_notobjintf];
+      pd_flags : [pd_interface,pd_implemen,pd_body,pd_notobjintf];
       handler  : nil;
       pocall   : pocall_none;
       pooption : [po_assembler];
@@ -2264,7 +2266,11 @@ const
 end.
 {
   $Log$
-  Revision 1.189  2004-08-25 15:57:19  peter
+  Revision 1.190  2004-08-29 11:28:41  peter
+  fixed crash with error in default value
+  allow assembler directive in interface
+
+  Revision 1.189  2004/08/25 15:57:19  peter
     * fix for tw3261
 
   Revision 1.188  2004/08/22 20:11:38  florian