diff options
| author | Andreas Bregas <ab@openoffice.org> | 2002-08-12 10:57:34 +0000 |
|---|---|---|
| committer | Andreas Bregas <ab@openoffice.org> | 2002-08-12 10:57:34 +0000 |
| commit | ced75fcef9ea06f6bc92704c04a2cc2e5881ca8d (patch) | |
| tree | a14639e35b30b155132f22f542e34f3e88bf54b3 /basic/source | |
| parent | 8537df8d1c14b8b0e00aed2be6bd54ce0155bbc0 (diff) | |
#100027# New ProcDecl flag in class SbiProcDef
Diffstat (limited to 'basic/source')
| -rw-r--r-- | basic/source/comp/symtbl.cxx | 14 | ||||
| -rw-r--r-- | basic/source/inc/symtbl.hxx | 8 |
2 files changed, 13 insertions, 9 deletions
diff --git a/basic/source/comp/symtbl.cxx b/basic/source/comp/symtbl.cxx index f61271482dd7..7535fd9d817d 100644 --- a/basic/source/comp/symtbl.cxx +++ b/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 diff --git a/basic/source/inc/symtbl.hxx b/basic/source/inc/symtbl.hxx index cc75b483d0c4..a237ee8a36ce 100644 --- a/basic/source/inc/symtbl.hxx +++ b/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; } |