From 26a1786491f1e4fe677fcbbc1f1e37552c118538 Mon Sep 17 00:00:00 2001
From: peter <peter@freepascal.org>
Date: Sun, 5 Jan 2003 18:17:45 +0000
Subject: [PATCH]   * more conflicts for constructor/destructor types

---
 compiler/pdecsub.pas | 12 ++++++------
 1 file changed, 6 insertions(+), 6 deletions(-)

diff --git a/compiler/pdecsub.pas b/compiler/pdecsub.pas
index a6c88d260f..9b3cf6e57b 100644
--- a/compiler/pdecsub.pas
+++ b/compiler/pdecsub.pas
@@ -1157,7 +1157,7 @@ const
       pocall   : pocall_none;
       pooption : [po_exports];
       mutexclpocall : [pocall_internproc,pocall_inline];
-      mutexclpotype : [];
+      mutexclpotype : [potype_constructor,potype_destructor];
       mutexclpo     : [po_external,po_interrupt]
     ),(
       idtok:_EXTERNAL;
@@ -1166,7 +1166,7 @@ const
       pocall   : pocall_none;
       pooption : [po_external];
       mutexclpocall : [pocall_internproc,pocall_inline,pocall_palmossyscall];
-      mutexclpotype : [];
+      mutexclpotype : [potype_constructor,potype_destructor];
       mutexclpo     : [po_exports,po_interrupt,po_assembler]
     ),(
       idtok:_FAR;
@@ -1320,7 +1320,7 @@ const
       pocall   : pocall_register;
       pooption : [];
       mutexclpocall : [];
-      mutexclpotype : [];
+      mutexclpotype : [potype_constructor,potype_destructor];
       mutexclpo     : [po_external]
     ),(
       idtok:_REINTRODUCE;
@@ -1420,7 +1420,7 @@ const
       pocall   : pocall_compilerproc;
       pooption : [];
       mutexclpocall : [];
-      mutexclpotype : [];
+      mutexclpotype : [potype_constructor,potype_destructor];
       mutexclpo     : [po_interrupt]
     )
    );
@@ -2120,8 +2120,8 @@ const
 end.
 {
   $Log$
-  Revision 1.101  2003-01-05 18:09:36  peter
-    * pascal directive also conflicts with constructor
+  Revision 1.102  2003-01-05 18:17:45  peter
+    * more conflicts for constructor/destructor types
 
   Revision 1.100  2003/01/02 19:49:00  peter
     * update self parameter only for methodpointer and methods