Changeset 5 in dev for BasicCompiler_Common


Ignore:
Timestamp:
Dec 5, 2006, 1:42:16 AM (18 years ago)
Author:
dai_9181
Message:
 
Location:
BasicCompiler_Common
Files:
18 edited

Legend:

Unmodified
Added
Removed
  • BasicCompiler_Common/BasicCompiler.cpp

    r4 r5  
    22#include "../BasicCompiler64/BasicCompiler.h"
    33#else
    4 #include "../BasicCompiler/BasicCompiler.h"
     4#include "../BasicCompiler32/BasicCompiler.h"
    55#endif
    66
     
    356356    SIZE size;
    357357    static POINT pos_List,pos_Progress;
    358     static height_Progress;
     358    static int height_Progress;
    359359
    360360    switch(message){
  • BasicCompiler_Common/Class.cpp

    r4 r5  
    44#include "../BasicCompiler64/opcode.h"
    55#else
    6 #include "../BasicCompiler/opcode.h"
     6#include "../BasicCompiler32/opcode.h"
    77#endif
    88
     
    510510                i+=2;
    511511                //アラインメント修飾子
    512                 if(memicmp(basbuf+i,"Align(",6)==0){
     512                if(_memicmp(basbuf+i,"Align(",6)==0){
    513513                    i+=6;
    514514                    i=JumpStringInPare(basbuf,i)+1;
     
    886886            //アラインメント修飾子
    887887            int iAlign=0;
    888             if(memicmp(basbuf+i,"Align(",6)==0){
     888            if(_memicmp(basbuf+i,"Align(",6)==0){
    889889                i+=6;
    890890                i+=GetStringInPare_RemovePare(temporary,basbuf+i)+1;
  • BasicCompiler_Common/Compile.cpp

    r4 r5  
    44#include "../BasicCompiler64/opcode.h"
    55#else
    6 #include "../BasicCompiler/opcode.h"
     6#include "../BasicCompiler32/opcode.h"
    77#endif
    88
  • BasicCompiler_Common/Const.cpp

    r4 r5  
    2020}
    2121CConst::~CConst(){
     22}
     23
     24CConstMacro::CConstMacro(char *Name, char *Expression):CConstBase(Name)
     25{
     26}
     27CConstMacro::~CConstMacro(){
    2228}
    2329
  • BasicCompiler_Common/Const.h

    r4 r5  
    2727public:
    2828
    29     CConstMacro();
     29    CConstMacro(char *Name, char *Expression);
    3030    ~CConstMacro();
    3131};
  • BasicCompiler_Common/DebugMiddleFile.cpp

    r4 r5  
    44#include "../BasicCompiler64/opcode.h"
    55#else
    6 #include "../BasicCompiler/opcode.h"
     6#include "../BasicCompiler32/opcode.h"
    77#endif
    88
  • BasicCompiler_Common/LexicalScoping.cpp

    r4 r5  
    33#include "../BasicCompiler64/opcode.h"
    44#else
    5 #include "../BasicCompiler/opcode.h"
     5#include "../BasicCompiler32/opcode.h"
    66#endif
    77
  • BasicCompiler_Common/NumOpe_GetType.cpp

    r4 r5  
    5656
    5757    if(!type){
    58         extern cp;
     58        extern int cp;
    5959        SetError(300,NULL,cp);
    6060    }
  • BasicCompiler_Common/Object.cpp

    r4 r5  
    44#include "../BasicCompiler64/opcode.h"
    55#else
    6 #include "../BasicCompiler/opcode.h"
     6#include "../BasicCompiler32/opcode.h"
    77#endif
    88
     
    111111
    112112
    113 void CallConstractor(char *VarName,int *SubScripts,TYPEINFO &TypeInfo,char *Parameter){
     113void CallConstractor(char *ObjectName,int *SubScripts,TYPEINFO &TypeInfo,char *Parameter){
    114114    if(TypeInfo.type!=DEF_OBJECT) return;
    115115
     
    121121    pobj_c=(CClass *)TypeInfo.u.lpIndex;
    122122
    123     char temporary[VN_SIZE];
    124     sprintf(temporary,"%s.%s",VarName,pobj_c->name);
    125 
    126123    SUBINFO *psi;
    127     psi=GetSubHash(temporary);
     124    psi=GetMethodHash(ObjectName,pobj_c->name,Parameter);
    128125    if(!psi){
    129126        if(Parameter[0]) SetError(113,pobj_c->name,cp);
    130127        return;
    131128    }
     129
     130
     131    char temporary[VN_SIZE];
     132
    132133    if(SubScripts[0]!=-1){
    133134        int ss[MAX_ARRAYDIM];
     
    145146            }
    146147            if(SubScripts[i3]==-1) break;
    147             sprintf(temporary,"%s[%d",VarName,ss[0]);
     148            sprintf(temporary,"%s[%d",ObjectName,ss[0]);
    148149            for(i3=1;;i3++){
    149150                if(SubScripts[i3]==-1) break;
     
    174175    else{
    175176        LONG_PTR lp;
    176         sprintf(temporary,"%s.%s",VarName,pobj_c->name);
     177        sprintf(temporary,"%s.%s",ObjectName,pobj_c->name);
    177178        CallProc(PROC_DEFAULT,
    178179            psi,
  • BasicCompiler_Common/Overload.cpp

    r4 r5  
    44#include "../BasicCompiler64/opcode.h"
    55#else
    6 #include "../BasicCompiler/opcode.h"
     6#include "../BasicCompiler32/opcode.h"
    77#endif
    88
  • BasicCompiler_Common/PESchedule.cpp

    r4 r5  
    44#include "../BasicCompiler64/opcode.h"
    55#else
    6 #include "../BasicCompiler/opcode.h"
     6#include "../BasicCompiler32/opcode.h"
    77#endif
    88
  • BasicCompiler_Common/Subroutine.cpp

    r4 r5  
    44#include "../BasicCompiler64/opcode.h"
    55#else
    6 #include "../BasicCompiler/opcode.h"
     6#include "../BasicCompiler32/opcode.h"
    77#endif
    88
     
    620620
    621621    //ID
    622     static id_base=0;
     622    static int id_base=0;
    623623    psi->id=(id_base++);
    624624
  • BasicCompiler_Common/Variable.cpp

    r4 r5  
    44#include "../BasicCompiler64/opcode.h"
    55#else
    6 #include "../BasicCompiler/opcode.h"
     6#include "../BasicCompiler32/opcode.h"
    77#endif
    88
     
    680680        }
    681681
    682         if(memicmp(variable,"This.",5)==0){
     682        if(_memicmp(variable,"This.",5)==0){
    683683            //Thisオブジェクトのメンバを参照するとき
    684684            SlideString(variable+5,-5);
  • BasicCompiler_Common/calculation.cpp

    r4 r5  
    44#include "../BasicCompiler64/opcode.h"
    55#else
    6 #include "../BasicCompiler/opcode.h"
     6#include "../BasicCompiler32/opcode.h"
    77#endif
    88
  • BasicCompiler_Common/common.h

    r4 r5  
     1#define _CRT_SECURE_NO_DEPRECATE
     2
    13#include <windows.h>
    24#include <stdio.h>
     
    1416#include "../BasicCompiler64/FunctionValue.h"
    1517#else
    16 #include "../BasicCompiler/resource.h"
    17 #include "../BasicCompiler/CommandValue.h"
    18 #include "../BasicCompiler/FunctionValue.h"
     18#include "../BasicCompiler32/resource.h"
     19#include "../BasicCompiler32/CommandValue.h"
     20#include "../BasicCompiler32/FunctionValue.h"
    1921#endif
    2022
     
    403405DECLAREINFO *GetDeclareHash(char *name);
    404406SUBINFO *GetSubHash(char *name,BOOL bError=0);
     407SUBINFO *GetMethodHash(char *ObjectName,char *MethodName,char *Parameter,BOOL bError=0);
    405408SUBINFO **GetOverloadObjectSubHash(char *name,CClass *pobj_c, int *pNum);
    406409SUBINFO **GetOverloadSubHash(char *name,int *pNum);
  • BasicCompiler_Common/gc.cpp

    r4 r5  
    44#include "../BasicCompiler64/opcode.h"
    55#else
    6 #include "../BasicCompiler/opcode.h"
     6#include "../BasicCompiler32/opcode.h"
    77#endif
    88
  • BasicCompiler_Common/hash.cpp

    r4 r5  
    44#include "../BasicCompiler64/opcode.h"
    55#else
    6 #include "../BasicCompiler/opcode.h"
     6#include "../BasicCompiler32/opcode.h"
    77#endif
    88
     
    264264    //一つ以上の関数が存在するときは内部エラー(デバッグ用)
    265265    if(num > 1){
    266         SetError(300,NULL,cp);
     266        if(bError) SetError(300,NULL,cp);
    267267    }
    268268
    269269    psi = ppsi[0];
    270270
    271     free(ppsi);
     271    HeapDefaultFree(ppsi);
    272272
    273273    return psi;
    274274}
     275SUBINFO *GetMethodHash(char *ObjectName,char *MethodName,char *Parameter,BOOL bError){
     276    char temporary[VN_SIZE];
     277    sprintf(temporary,"%s.%s",ObjectName,MethodName);
     278
     279    int num;
     280    SUBINFO **ppsi,*psi;
     281    ppsi = GetOverloadSubHash(temporary,&num);
     282
     283    //関数が存在しないとき
     284    if(num == 0){
     285        HeapDefaultFree(ppsi);
     286        return 0;
     287    }
     288
     289    //オーバーロードを解決
     290    psi=OverloadSolutionWithStrParam(temporary,ppsi,num,Parameter,ObjectName,NULL);
     291    HeapDefaultFree(ppsi);
     292
     293    return psi;
     294}
  • BasicCompiler_Common/preprocessor.cpp

    r4 r5  
    44#include "../BasicCompiler64/opcode.h"
    55#else
    6 #include "../BasicCompiler/opcode.h"
     6#include "../BasicCompiler32/opcode.h"
    77#endif
    88
     
    9494
    9595        if(buffer[i-1]=='\n'){
    96             if(memicmp(buffer+i,"#ifdef",6)==0||memicmp(buffer+i,"#ifndef",7)==0){
     96            if(_memicmp(buffer+i,"#ifdef",6)==0||_memicmp(buffer+i,"#ifndef",7)==0){
    9797                i=Search_endif(buffer,i+6);
    9898                if(buffer[i]=='\0') break;
    9999                continue;
    100100            }
    101             else if(memicmp(buffer+i,"#endif",6)==0){
     101            else if(_memicmp(buffer+i,"#endif",6)==0){
    102102                break;
    103103            }
     
    145145
    146146            if(i==0||buffer[i-1]=='\n'){
    147                 if(memicmp(buffer+i,"#ifdef",6)==0||memicmp(buffer+i,"#ifndef",7)==0){
     147                if(_memicmp(buffer+i,"#ifdef",6)==0||_memicmp(buffer+i,"#ifndef",7)==0){
    148148                    i=Search_endif(buffer,i+6);
    149149                    if(buffer[i]=='\0') break;
    150150                    continue;
    151151                }
    152                 else if(memicmp(buffer+i,"#else",5)==0){
     152                else if(_memicmp(buffer+i,"#else",5)==0){
    153153                    i2=5;
    154154                    bElse=1;
    155155                    break;
    156156                }
    157                 else if(memicmp(buffer+i,"#endif",6)==0){
     157                else if(_memicmp(buffer+i,"#endif",6)==0){
    158158                    i2=6;
    159159                    bElse=0;
     
    175175
    176176                if(i2==0||buffer[i2-1]=='\n'){
    177                     if(memicmp(buffer+i2,"#ifdef",6)==0||memicmp(buffer+i2,"#ifndef",7)==0){
     177                    if(_memicmp(buffer+i2,"#ifdef",6)==0||_memicmp(buffer+i2,"#ifndef",7)==0){
    178178                        i2=Search_endif(buffer,i2+6);
    179179                        if(buffer[i2]=='\0') break;
    180180                        continue;
    181181                    }
    182                     if(memicmp(buffer+i2,"#endif",6)==0){
     182                    if(_memicmp(buffer+i2,"#endif",6)==0){
    183183                        i2+=6;
    184184                        break;
     
    202202
    203203            if(i2==0||buffer[i2-1]=='\n'){
    204                 if(memicmp(buffer+i2,"#ifdef",6)==0||memicmp(buffer+i2,"#ifndef",7)==0){
     204                if(_memicmp(buffer+i2,"#ifdef",6)==0||_memicmp(buffer+i2,"#ifndef",7)==0){
    205205                    i2=Search_endif(buffer,i2+6);
    206206                    if(buffer[i2]=='\0') break;
    207207                    continue;
    208208                }
    209                 else if(memicmp(buffer+i2,"#else",5)==0){
     209                else if(_memicmp(buffer+i2,"#else",5)==0){
    210210                    i2+=5;
    211211                    bElse=1;
    212212                    break;
    213213                }
    214                 else if(memicmp(buffer+i2,"#endif",6)==0){
     214                else if(_memicmp(buffer+i2,"#endif",6)==0){
    215215                    i2+=6;
    216216                    bElse=0;
     
    230230
    231231                if(i==0||buffer[i-1]=='\n'){
    232                     if(memicmp(buffer+i,"#ifdef",6)==0||memicmp(buffer+i,"#ifndef",7)==0){
     232                    if(_memicmp(buffer+i,"#ifdef",6)==0||_memicmp(buffer+i,"#ifndef",7)==0){
    233233                        i=Search_endif(buffer,i+6);
    234234                        if(buffer[i]=='\0') break;
    235235                        continue;
    236236                    }
    237                     else if(memicmp(buffer+i,"#endif",6)==0){
     237                    else if(_memicmp(buffer+i,"#endif",6)==0){
    238238                        i2=6;
    239239                        bElse=0;
     
    259259        if(i==0||buffer[i-1]=='\n'){
    260260            sw=0;
    261             if(memicmp(buffer+i,"#define",7)==0){
     261            if(_memicmp(buffer+i,"#define",7)==0){
    262262                i2=i+7;
    263263                while(buffer[i2]==' '||buffer[i2]=='\t') i2++;
     
    278278                SlideString(buffer+i+i2,-i2);
    279279            }
    280             if(memicmp(buffer+i,"#undef",6)==0){
     280            if(_memicmp(buffer+i,"#undef",6)==0){
    281281                i2=i+7;
    282282                while(buffer[i2]==' '||buffer[i2]=='\t') i2++;
     
    297297                SlideString(buffer+i+i2,-i2);
    298298            }
    299             else if(memicmp(buffer+i,"#ifdef",6)==0){
     299            else if(_memicmp(buffer+i,"#ifdef",6)==0){
    300300                preprocessor_ifdef(buffer+i,0);
    301301                continue;
    302302            }
    303             else if(memicmp(buffer+i,"#ifndef",7)==0){
     303            else if(_memicmp(buffer+i,"#ifndef",7)==0){
    304304                preprocessor_ifdef(buffer+i,1);
    305305                continue;
Note: See TracChangeset for help on using the changeset viewer.