Skip to content

C
core
Kaydet (Commit) ced75fce authored tarafından Andreas Bregas's avatar Andreas Bregas
Dosyalara gözat
Seçenekler

#100027# New ProcDecl flag in class SbiProcDef

üst 8537df8d
Hide whitespace changes
Inline Side-by-side
Showing with 13 additions and 9 deletions
basic/source/comp/symtbl.cxx
Dosyayı görüntüle @ ced75fce
...@@ -2,9 +2,9 @@ ...@@ -2,9 +2,9 @@
* *
* $RCSfile: symtbl.cxx,v $ * $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 * The Contents of this file are made available subject to the terms of
* either of the following licenses * either of the following licenses
...@@ -428,10 +428,12 @@ SbiSymScope SbiSymDef::GetScope() const ...@@ -428,10 +428,12 @@ SbiSymScope SbiSymDef::GetScope() const
// 2) pPool: saemtliche lokale Variable // 2) pPool: saemtliche lokale Variable
// 3) aLabels: Labels // 3) aLabels: Labels
SbiProcDef::SbiProcDef( SbiParser* pParser, const String& rName ) SbiProcDef::SbiProcDef( SbiParser* pParser, const String& rName,
: SbiSymDef( rName ), BOOL bProcDecl )
aParams( pParser->aGblStrings, SbPARAM ), // wird gedumpt : SbiSymDef( rName )
aLabels( pParser->aLclStrings, SbLOCAL ) // wird nicht gedumpt , aParams( pParser->aGblStrings, SbPARAM ) // wird gedumpt
, aLabels( pParser->aLclStrings, SbLOCAL ) // wird nicht gedumpt
, mbProcDecl( bProcDecl )
{ {
aParams.SetParent( &pParser->aPublics ); aParams.SetParent( &pParser->aPublics );
pPool = new SbiSymPool( pParser->aGblStrings, SbLOCAL ); // Locals pPool = new SbiSymPool( pParser->aGblStrings, SbLOCAL ); // Locals
......
basic/source/inc/symtbl.hxx
Dosyayı görüntüle @ ced75fce
...@@ -2,9 +2,9 @@ ...@@ -2,9 +2,9 @@
* *
* $RCSfile: symtbl.hxx,v $ * $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 * The Contents of this file are made available subject to the terms of
* either of the following licenses * either of the following licenses
...@@ -221,8 +221,9 @@ class SbiProcDef : public SbiSymDef { // Prozedur-Definition (aus Basic): ...@@ -221,8 +221,9 @@ class SbiProcDef : public SbiSymDef { // Prozedur-Definition (aus Basic):
USHORT nLine1, nLine2; // Zeilenbereich USHORT nLine1, nLine2; // Zeilenbereich
BOOL bCdecl : 1; // TRUE: CDECL angegeben BOOL bCdecl : 1; // TRUE: CDECL angegeben
BOOL bPublic : 1; // TRUE: proc ist PUBLIC BOOL bPublic : 1; // TRUE: proc ist PUBLIC
BOOL mbProcDecl : 1; // TRUE: instanciated by SbiParser::ProcDecl
public: public:
SbiProcDef( SbiParser*, const String& ); // Name SbiProcDef( SbiParser*, const String&, BOOL bProcDecl=false );
virtual ~SbiProcDef(); virtual ~SbiProcDef();
virtual SbiProcDef* GetProcDef(); virtual SbiProcDef* GetProcDef();
virtual void SetType( SbxDataType ); virtual void SetType( SbxDataType );
...@@ -235,6 +236,7 @@ public: ...@@ -235,6 +236,7 @@ public:
BOOL IsPublic() const { return bPublic; } BOOL IsPublic() const { return bPublic; }
void SetCdecl( BOOL b = TRUE) { bCdecl = b; } void SetCdecl( BOOL b = TRUE) { bCdecl = b; }
BOOL IsCdecl() const { return bCdecl; } BOOL IsCdecl() const { return bCdecl; }
BOOL IsUsedForProcDecl() const { return mbProcDecl; }
void SetLine1( USHORT n ) { nLine1 = n; } void SetLine1( USHORT n ) { nLine1 = n; }
USHORT GetLine1() const { return nLine1; } USHORT GetLine1() const { return nLine1; }
void SetLine2( USHORT n ) { nLine2 = n; } void SetLine2( USHORT n ) { nLine2 = n; }
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment