Mercurial > hg > CbC > CbC_gcc
annotate gcc/cbc-tree.h @ 101:5c3ad79fc15b
modify implemeted __rectype expression
author | Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> |
---|---|
date | Thu, 16 Feb 2012 18:15:22 +0900 |
parents | 98e1e78a6b5a |
children |
rev | line source |
---|---|
76
6381ea127240
call argument iterator fix
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
61
diff
changeset
|
1 /* #define CbC_PRETENDED_STACK_SIZE 256 */ |
21 | 2 #define CbC_PRETENDED_STACK_SIZE 1024 |
3 | |
1 | 4 /* Set if the fntype is code segment on CbC language. */ |
76
6381ea127240
call argument iterator fix
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
61
diff
changeset
|
5 /* flag3,5,6 has been used by c-tree.h */ |
1 | 6 #define CbC_IS_CODE_SEGMENT(TYPE) TYPE_LANG_FLAG_5 ( FUNCTION_TYPE_CHECK(TYPE)) |
7 | |
8 /* Set if the CALL_EXPR NODE is goto statement on CbC language. */ | |
9 #define CbC_IS_CbC_GOTO(NODE) TREE_LANG_FLAG_5 (CALL_EXPR_CHECK(NODE)) | |
21 | 10 #define CALL_EXPR_CbC_GOTO(NODE) TREE_LANG_FLAG_5 (CALL_EXPR_CHECK(NODE)) |
1 | 11 |
12 extern tree cbc_return_f; | |
13 extern tree cbc_env; | |
14 extern location_t cbc_return; | |
98
5211b774b8b5
implemeted selftype expression. add CbC-exanples/selftype.c
Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
76
diff
changeset
|
15 |
101
5c3ad79fc15b
modify implemeted __rectype expression
Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
99
diff
changeset
|
16 /* flag of rectype and selftype is lang_flag_3. */ |
5c3ad79fc15b
modify implemeted __rectype expression
Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
99
diff
changeset
|
17 #define IS_RECTYPE(NODE) ((NODE)->type.lang_flag_3) |
99
98e1e78a6b5a
modify implementation of selftype
Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
98
diff
changeset
|
18 #define IS_SELFTYPE(NODE) ((NODE)->type.lang_flag_3) |
98
5211b774b8b5
implemeted selftype expression. add CbC-exanples/selftype.c
Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
76
diff
changeset
|
19 |
99
98e1e78a6b5a
modify implementation of selftype
Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
98
diff
changeset
|
20 //#define CbC_TYPE_LANG_FLAG_3(NODE) (RECORD_OR_POINTER_CHECK (NODE)->type.lang_flag_3) |
98e1e78a6b5a
modify implementation of selftype
Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
98
diff
changeset
|
21 //#define RECORD_OR_POINTER_CHECK(NODE) TYPE_CHECK2 (T, POINTER_TYPE, RECORD_TYPE) |
98e1e78a6b5a
modify implementation of selftype
Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
98
diff
changeset
|
22 |
98e1e78a6b5a
modify implementation of selftype
Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
98
diff
changeset
|
23 //#define TYPE_LANG_FLAG_3(NODE) (TYPE_CHECK (NODE)->type.lang_flag_3) |