Changeset 632 in dev for trunk/ab5.0/abdev/ab_common/src/Lexical/Procedure.cpp

Timestamp:

Jun 5, 2008, 10:04:39 PM (16 years ago)

Author:

dai_9181

Message:

ジェネリッククラスの型パラメータに値型が指定されたときに限り、テンプレート展開を行うようにした。

TODO: libファイルを跨ってテンプレート展開ができていないため、ソースコード管理部分に手を加える必要あり。

File:

• trunk/ab5.0/abdev/ab_common/src/Lexical/Procedure.cpp (modified) (2 diffs)

trunk/ab5.0/abdev/ab_common/src/Lexical/Procedure.cpp

@@ -1 +1 @@
 #include "stdafx.h"
+
+int id_base = 0;
+
+UserProc::UserProc( const NamespaceScopes &namespaceScopes, const NamespaceScopesCollection &importedNamespaces, const std::string &name, Kind kind, bool isMacro, bool isCdecl, bool isExport )
+    : Procedure( namespaceScopes, name, kind, isCdecl )
+    , importedNamespaces( importedNamespaces )
+    , pParentClass( NULL )
+    , pInterface( NULL )
+    , pMethod( NULL )
+    , isMacro( isMacro )
+    , secondParmNum( 0 )
+    , realSecondParmNum( 1 )
+    , isExport( isExport )
+    , isSystem( false )
+    , isAutoGeneration( false )
+    , isCompiled( false )
+    , beginOpAddress( 0 )
+    , endOpAddress( 0 )
+    , id( id_base ++ )
+{
+}
+
+UserProc::UserProc( const UserProc &userProc, const CClass *pParentClass )
+    : Procedure( userProc )
+    , _paramStr( userProc._paramStr )
+    , importedNamespaces( userProc.importedNamespaces )
+    , pParentClass( pParentClass )
+    , pInterface( NULL )
+    , pMethod( NULL )
+    , isMacro( userProc.isMacro )
+    , secondParmNum( userProc.secondParmNum )
+    , realParams( userProc.realParams )
+    , realSecondParmNum( userProc.realSecondParmNum )
+    , isExport( userProc.isExport )
+    , isSystem( userProc.isSystem )
+    , isAutoGeneration( userProc.isAutoGeneration )
+    , isCompiled( false )
+    , beginOpAddress( 0 )
+    , endOpAddress( 0 )
+    , localVars( Variables() )
+    , id( id_base ++ )
+    , nativeCode( NativeCode() )
+{
+}
+
+UserProc::UserProc()
+{
+}
+
+UserProc::~UserProc()
+{
+    BOOST_FOREACH( Parameter *pParam, realParams ){
+        delete pParam;
+    }
+}
 
 bool UserProc::IsEqualForOverride( const Types &actualTypeParametersForThisProc, const UserProc *pUserProc ) const
@@ -54 +109 @@
 const NamespaceScopes &UserProc::GetNamespaceScopes() const
 {
-    if( HasParentClass() ){
+    if( HasParentClass() )
+    {
         return GetParentClassPtr()->GetNamespaceScopes();
     }