Changeset 353 in dev for trunk/abdev/BasicCompiler64


Ignore:
Timestamp:
Oct 21, 2007, 3:37:31 PM (17 years ago)
Author:
dai_9181
Message:

インターフェイス実装周りの仕様整備

Location:
trunk/abdev/BasicCompiler64
Files:
2 edited

Legend:

Unmodified
Added
Removed
  • trunk/abdev/BasicCompiler64/Compile_ProcOp.cpp

    r350 r353  
    138138    if( userProc.GetName() == "InitializeUserTypes"
    139139        && userProc.HasParentClass()
    140         && userProc.GetParentClass().GetName() == "_System_TypeBase" ){
    141             compiler.GetObjectModule().meta.GetClasses().Compile_System_InitializeUserTypes();
     140        && userProc.GetParentClass().GetName() == "_System_TypeBase" )
     141    {
     142        compiler.GetObjectModule().meta.GetClasses().Compile_System_InitializeUserTypes();
    142143    }
    143144    else if( userProc.GetName() == "RegisterGlobalRoots"
    144145        && userProc.HasParentClass()
    145         && userProc.GetParentClass().GetName() == "_System_CGarbageCollection" ){
    146 
    147             Compile_AddGlobalRootsForGc();
     146        && userProc.GetParentClass().GetName() == "_System_CGarbageCollection" )
     147    {
     148        Compile_AddGlobalRootsForGc();
    148149    }
    149150    else if( userProc.GetName() == compiler.globalAreaProcName ){
     
    270271    }
    271272
    272     cp=pUserProc->GetCodePos();
    273     for(;;cp++){
    274         if(IsCommandDelimitation(basbuf[cp])) break;
    275     }
    276     cp--;
     273    if( !pUserProc->IsAutoGeneration() )
     274    {
     275        cp=pUserProc->GetCodePos();
     276        for(;;cp++){
     277            if(IsCommandDelimitation(basbuf[cp])) break;
     278        }
     279        cp--;
     280    }
    277281
    278282    //プロシージャ抜け出しスケジュール(Exit Sub/Function)
  • trunk/abdev/BasicCompiler64/stdafx.h

    r322 r353  
    2323#include "../BasicCompiler_Common/common.h"
    2424
     25#include <Hashmap.h>
     26#include <Program.h>
    2527#include <Compiler.h>
Note: See TracChangeset for help on using the changeset viewer.