#100027# New ProcDecl flag in class SbiProcDef

basic/source/comp/symtbl.cxx

@@ -2,9 +2,9 @@
  *
  *  $RCSfile: symtbl.cxx,v $
  *
- *  $Revision: 1.3 $
+ *  $Revision: 1.4 $
  *
- *  last change: $Author: mh $ $Date: 2001-10-17 18:53:05 $
+ *  last change: $Author: ab $ $Date: 2002-08-12 11:57:34 $
  *
  *  The Contents of this file are made available subject to the terms of
  *  either of the following licenses
@@ -428,10 +428,12 @@ SbiSymScope SbiSymDef::GetScope() const
 // 2) pPool: saemtliche lokale Variable
 // 3) aLabels: Labels
 
-SbiProcDef::SbiProcDef( SbiParser* pParser, const String& rName )
-         : SbiSymDef( rName ),
-           aParams( pParser->aGblStrings, SbPARAM ), // wird gedumpt
-           aLabels( pParser->aLclStrings, SbLOCAL )  // wird nicht gedumpt
+SbiProcDef::SbiProcDef( SbiParser* pParser, const String& rName,
+                        BOOL bProcDecl )
+         : SbiSymDef( rName )
+         , aParams( pParser->aGblStrings, SbPARAM )  // wird gedumpt
+         , aLabels( pParser->aLclStrings, SbLOCAL )  // wird nicht gedumpt
+         , mbProcDecl( bProcDecl )
 {
     aParams.SetParent( &pParser->aPublics );
     pPool = new SbiSymPool( pParser->aGblStrings, SbLOCAL ); // Locals

basic/source/inc/symtbl.hxx

@@ -2,9 +2,9 @@
  *
  *  $RCSfile: symtbl.hxx,v $
  *
- *  $Revision: 1.2 $
+ *  $Revision: 1.3 $
  *
- *  last change: $Author: ab $ $Date: 2001-09-04 09:56:50 $
+ *  last change: $Author: ab $ $Date: 2002-08-12 11:56:13 $
  *
  *  The Contents of this file are made available subject to the terms of
  *  either of the following licenses
@@ -221,8 +221,9 @@ class SbiProcDef : public SbiSymDef {   // Prozedur-Definition (aus Basic):
     USHORT nLine1, nLine2;          // Zeilenbereich
     BOOL   bCdecl  : 1;             // TRUE: CDECL angegeben
     BOOL   bPublic : 1;             // TRUE: proc ist PUBLIC
+    BOOL   mbProcDecl : 1;          // TRUE: instanciated by SbiParser::ProcDecl
 public:
-    SbiProcDef( SbiParser*, const String& );        // Name
+    SbiProcDef( SbiParser*, const String&, BOOL bProcDecl=false );
     virtual ~SbiProcDef();
     virtual SbiProcDef* GetProcDef();
     virtual void SetType( SbxDataType );
@@ -235,6 +236,7 @@ public:
     BOOL IsPublic() const           { return bPublic;  }
     void SetCdecl( BOOL b = TRUE)   { bCdecl = b;      }
     BOOL IsCdecl() const            { return bCdecl;   }
+    BOOL IsUsedForProcDecl() const  { return mbProcDecl; }
     void SetLine1( USHORT n )       { nLine1 = n;      }
     USHORT GetLine1() const         { return nLine1;   }
     void SetLine2( USHORT n )       { nLine2 = n;      }