Changeset 294 in dev for trunk/abdev

Timestamp:

Aug 22, 2007, 11:23:28 PM (17 years ago)

Author:

dai_9181

Message:

 

Location:

trunk/abdev

Files:

• BasicCompiler32/BasicCompiler.vcproj (modified) (2 diffs)
• BasicCompiler32/Compile_CallProc.cpp (modified) (1 diff)
• BasicCompiler32/Compile_ProcOp.cpp (modified) (1 diff)
• BasicCompiler32/MakePeHdr.cpp (modified) (3 diffs)
• BasicCompiler_Common/BasicCompiler.cpp (modified) (1 diff)
• BasicCompiler_Common/Intermediate_Step1.cpp (modified) (2 diffs)
• BasicCompiler_Common/MakeExe.cpp (modified) (2 diffs)
• BasicCompiler_Common/include/Compiler.h (modified) (2 diffs)
• BasicCompiler_Common/src/Source.cpp (modified) (1 diff)

trunk/abdev/BasicCompiler32/BasicCompiler.vcproj

@@ -76 +76 @@
             <Tool
                 Name="VCLinkerTool"
-                AdditionalDependencies="comctl32.lib psapi.lib commond.lib smoothied.lib"
+                AdditionalDependencies="comctl32.lib psapi.lib commond.lib smoothied.lib imagehlp.lib"
                 OutputFile="../ActiveBasic/BasicCompiler32.exe"
                 LinkIncremental="2"
@@ -179 +179 @@
             <Tool
                 Name="VCLinkerTool"
-                AdditionalDependencies="comctl32.lib psapi.lib common.lib smoothie.lib"
+                AdditionalDependencies="comctl32.lib psapi.lib common.lib smoothie.lib imagehlp.lib"
                 OutputFile="../ActiveBasic/BasicCompiler32.exe"
                 LinkIncremental="1"

trunk/abdev/BasicCompiler32/Compile_CallProc.cpp

@@ -135 +135 @@
         else{
             if(dwFlags&PROCFLAG_NEW){
+                GetVarType( ObjectName, leftType, false );
+
                 //New演算子によるコンストラクタ呼び出し
                 pobj_c=pUserProc->GetParentClassPtr();

trunk/abdev/BasicCompiler32/Compile_ProcOp.cpp

@@ -507 +507 @@
                 compiler.codeGenerator.op_mov_RV_vtbl( REG_EAX, compiler.pCompilingClass );
 
-                /* TODO: 消す
-                //関数テーブルに値をセット
-                int offset = (int)compiler.pCompilingClass->GetVtblGlobalOffset();
-
-                //mov eax,offset
-                compiler.codeGenerator.op_mov_RV( REG_EAX, offset, Schedule::DataTable );
-                */
-
                 //Thisポインタをecxにコピー
                 SetThisPtrToReg(REG_ECX);

trunk/abdev/BasicCompiler32/MakePeHdr.cpp

@@ -2 +2 @@
 
 #include <jenga/include/common/Environment.h>
+#include <jenga/include/common/Path.h>
+#include <jenga/include/common/Directory.h>
 
 #include <jenga/include/smoothie/Smoothie.h>
@@ -381 +383 @@
 
 
-
-        //push ebp
-        compiler.codeGenerator.op_push(REG_EBP);
-
-        if(bDebugCompile){
-            //デバッグ用の変数を定義
-            // TODO: 暫定処理なので下のif文は正しくない
-            //if( compiler.IsStaticLibrary() )
+        if( compiler.IsCore() )
+        {
+            // コアモジュール（basic.sbp）をコンパイルするとき
+
+            //push ebp
+            compiler.codeGenerator.op_push(REG_EBP);
+
+            if(bDebugCompile)
             {
+                //デバッグ用の変数を定義
                 DebugVariable();
             }
-        }
-
-        //GC用の変数を定義
-        InitGCVariables();
-
-        //if( compiler.IsStaticLibrary() )
-        {
+
+            //GC用の変数を定義
+            InitGCVariables();
+
             //_System_StartupProgramの呼び出し
             compiler.codeGenerator.op_call(pSub_System_StartupProgram);
@@ -497 +497 @@
         // 静的リンクライブラリ
 
+        // 格納先ディレクトリを作る
+        Jenga::Common::Path path( OutputFileName );
+        Jenga::Common::Directory dir( path.GetDriveName() + path.GetDirName(), true );
+
+        // 書き込む
         if( !compiler.GetObjectModule().Write( OutputFileName ) )
         {

trunk/abdev/BasicCompiler_Common/BasicCompiler.cpp

@@ -778 +778 @@
     }
 
-    //インクルードディレクトリが指定されなかったとき
-    if(szIncludeDir[0]=='\0'){
-        lstrcpy(szIncludeDir,".\\Include\\");
-    }
-
-    //インクルードディレクトリを絶対パスに変更
-    GetFullPath(szIncludeDir,(Jenga::Common::Environment::GetAppDir()+"\\").c_str());
+    {
+        // カレントディレクトリを取得
+        char currentDirPath[MAX_PATH];
+        GetCurrentDirectory( MAX_PATH, currentDirPath );
+        if( currentDirPath[lstrlen(currentDirPath)-1] != '\\' )
+        {
+            lstrcat( currentDirPath, "\\" );
+        }
+
+        // インクルードディレクトリが指定されなかったとき
+        if(szIncludeDir[0]=='\0'){
+            lstrcpy(szIncludeDir,".\\Include\\");
+
+            // インクルードディレクトリを絶対パスに変更
+            GetFullPath(szIncludeDir,(Jenga::Common::Environment::GetAppDir()+"\\").c_str());
+        }
+        else
+        {
+            // インクルードディレクトリを絶対パスに変更
+            GetFullPath(szIncludeDir,currentDirPath);
+        }
+
+        // ソースファイル名を絶対パスに変換
+        GetFullPath(SourceFileName,currentDirPath);
+
+        // 出力ファイル名を絶対パスに変換
+        GetFullPath(OutputFileName,currentDirPath);
+    }
 
     if( compiler.IsDll() ){

trunk/abdev/BasicCompiler_Common/Intermediate_Step1.cpp

@@ -1 +1 @@
 #include "stdafx.h"
-
-#include <jenga/include/common/Path.h>
 
 #include <jenga/include/smoothie/Smoothie.h>
@@ -256 +254 @@
                 compiler.staticLibraryFilePaths.push_back( temporary );
 
-                compiler.staticLibraries.push_back( new ObjectModule() );
-
-                Jenga::Common::Path path( temporary );
-                CompileMessage( ((string)"\"" + path.GetFileName() + path.GetExt() + "\" を読み込みました。").c_str() );
-                compiler.staticLibraries.back()->Read( temporary );
+                for(;;i2++){
+                    if(basbuf[i2]=='\n'||basbuf[i2]=='\0') break;
+                }
+                SlideString(basbuf+i2,i-i2);
+            }
+            else if( lstrcmpi( temporary, "_core" ) == 0 )
+            {
+                // #_core
+                // コアモジュール
+                compiler.SetCoreMark( true );
 
                 for(;;i2++){

trunk/abdev/BasicCompiler_Common/MakeExe.cpp

@@ -2 +2 @@
 
 #include <jenga/include/smoothie/Smoothie.h>
+#include <jenga/include/common/Path.h>
 
 #include <Compiler.h>
@@ -130 +131 @@
 
     StepCompileProgress();
+
+
+    /////////////////////////////////////////////////////////////////
+    // 静的リンクライブラリをロードする
+    /////////////////////////////////////////////////////////////////
+
+    if( !compiler.IsCore() )
+    {
+        // コアモジュールをロードする
+        extern BOOL bDebugCompile;
+        extern char szIncludeDir[MAX_PATH];
+
+        const char *coreFileName = "core.lib";
+        if( bDebugCompile )
+        {
+            coreFileName = "cored.lib";
+        }
+
+        char coreFilePath[MAX_PATH];
+        sprintf( coreFilePath, "..\\lib\\%s", coreFileName );
+        GetFullPath( coreFilePath, szIncludeDir );
+
+        compiler.staticLibraries.push_back( new ObjectModule() );
+        compiler.staticLibraries.back()->Read( coreFilePath );
+    }
+
+    BOOST_FOREACH( const std::string &filePath, compiler.staticLibraryFilePaths )
+    {
+        compiler.staticLibraries.push_back( new ObjectModule() );
+        compiler.staticLibraries.back()->Read( filePath );
+
+        Jenga::Common::Path path( filePath );
+        CompileMessage( ((string)"\"" + path.GetFileName() + path.GetExt() + "\" を読み込みました。").c_str() );
+    }
 
 

trunk/abdev/BasicCompiler_Common/include/Compiler.h

@@ -24 +24 @@
         , pNowObjectModule( pObjectModule )
         , targetModuleType( Exe )
+        , isCore( false )
     {
     }
@@ -110 +111 @@
 
 
+    // コアモジュールかどうか
+    bool isCore;
+    void SetCoreMark( bool isCore )
+    {
+        this->isCore = isCore;
+    }
+    bool IsCore() const
+    {
+        return isCore;
+    }
+
+
     static bool StringToType( const std::string &typeName, Type &type );
     static const std::string TypeToString( const Type &type );

trunk/abdev/BasicCompiler_Common/src/Source.cpp

@@ -815 +815 @@
 
     // basic.sbpをインクルード
-    const char *headCode = "#include <basic.sbp>\n";
-    //const char *headCode = "\n";
+    //const char *headCode = "#include <basic.sbp>\n";
+    const char *headCode = "";
     Realloc( length + lstrlen(headCode) );
     Text::SlideString( buffer, lstrlen(headCode) );