Changeset 515 in dev for trunk/ab5.0/abdev/BasicCompiler_Common
- Timestamp:
- May 1, 2008, 12:10:33 PM (17 years ago)
- Location:
- trunk/ab5.0/abdev/BasicCompiler_Common
- Files:
-
- 3 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/ab5.0/abdev/BasicCompiler_Common/BasicFixed.h
r462 r515 3 3 4 4 #define MAX_ARRAYDIM 16 5 #define PTR_SIZE sizeof(LONG_PTR)6 5 #define VN_SIZE 1024 7 6 #define MAX_LEN 65535 … … 15 14 #define MACHINE_AMD64 2 16 15 17 18 ////////////////19 // 型20 ////////////////21 22 #define DEF_NON -123 24 /* basic\command.sbp内の "_System_Type_***" 定数と同期が必要 */25 #define FLAG_PTR 0x8000000026 #define FLAG_CAST 0x4000000027 28 //整数型29 #define DEF_SBYTE 0x0000000130 #define DEF_BYTE 0x0000000231 #define DEF_INTEGER 0x0000000332 #define DEF_WORD 0x0000000433 #define DEF_LONG 0x0000000534 #define DEF_DWORD 0x0000000635 #define DEF_INT64 0x0000000736 #define DEF_QWORD 0x0000000837 38 //実数型39 #define DEF_SINGLE 0x0000000940 #define DEF_DOUBLE 0x0000000A41 42 //文字型43 #define DEF_CHAR 0x0000000B44 45 //bool型46 #define DEF_BOOLEAN 0x0000000C47 48 //文字列型49 #define DEF_STRING 0x0000000D50 51 //ポインタ型52 #define DEF_PTR_VOID 0x0000000E53 #define DEF_PTR_PROC 0x0000000F54 55 //特殊型56 #define DEF_ANY 0x0000001557 #define DEF_ELLIPSE 0x0000001658 #define DEF_OBJECT 0x00000017 // クラス59 #define DEF_STRUCT 0x00000018 // 構造体60 #define DEF_TYPE_PARAMETER 0x00000019 // 型パラメータ(ジェネリクスサポート)61 62 //ポインタ型63 #define MASK_PTR 0x0000ff0064 #define MASK_NATURAL 0x000000ff65 66 #define PTR_LEVEL(t) (((t)&MASK_PTR)>>8)67 #define NATURAL_TYPE(t) ((t)&MASK_NATURAL)68 #define MAKE_PTR_TYPE(t,p) ((t)|((p)<<8))69 #define PTR_LEVEL_UP(t) t = MAKE_PTR_TYPE(NATURAL_TYPE(t),PTR_LEVEL(t)+1)70 #define PTR_LEVEL_DOWN(t) t = MAKE_PTR_TYPE(NATURAL_TYPE(t),PTR_LEVEL(t)-1)71 72 #define DEF_PTR_OBJECT MAKE_PTR_TYPE(DEF_OBJECT,1)73 #define DEF_PTR_STRUCT MAKE_PTR_TYPE(DEF_STRUCT,1)74 75 76 77 //NumOpe関数の結果がリテラル値の場合、その値の補助情報がindexに格納される78 #define LITERAL_NULL -279 #define LITERAL_M128_0 -380 #define LITERAL_0_255 -481 #define LITERAL_M32768_0 -582 #define LITERAL_0_65535 -683 #define LITERAL_OTHER_MINUS -784 #define LITERAL_OTHER_PLUS -885 86 #define LITERAL_STRING -987 88 #define IS_LITERAL(x) (x<=LITERAL_NULL&&x!=LITERAL_STRING)89 #define IS_MINUS_LITERAL(x) (x==LITERAL_M128_0||x==LITERAL_M32768_0||x==LITERAL_OTHER_MINUS)90 #define IS_POSITIVE_LITERAL(x) (x==LITERAL_NULL||x==LITERAL_0_255||x==LITERAL_0_65535||x==LITERAL_OTHER_PLUS)91 16 92 17 ////////////////////////////////////// -
trunk/ab5.0/abdev/BasicCompiler_Common/common.h
r485 r515 33 33 34 34 35 #define PTR_SIZE sizeof(LONG_PTR)36 35 #define OBJECT_HEAD_SIZE PTR_SIZE*4 37 36 -
trunk/ab5.0/abdev/BasicCompiler_Common/src/ObjectModule.cpp
r513 r515 43 43 44 44 #include <abdev/ab_common/Environment.h> 45 #include <abdev/ab_common/include/Namespace.h> 46 #include <abdev/ab_common/include/NamespaceSupporter.h> 47 #include <abdev/ab_common/include/Symbol.h> 48 #include <abdev/ab_common/include/Prototype.h> 45 #include <abdev/ab_common/include/ab_common.h> 49 46 50 47 using namespace ActiveBasic::Common::Lexical;
Note:
See TracChangeset
for help on using the changeset viewer.