diff options
| author | Richard Henderson <rth@cygnus.com> | 1999-07-25 18:19:16 -0700 |
|---|---|---|
| committer | Richard Henderson <rth@gcc.gnu.org> | 1999-07-25 18:19:16 -0700 |
| commit | 88c7af34ac20a250eae0a2e90682b5f879952fc1 (patch) | |
| tree | d26328dc3762f1a486d03a8e290afc613648d528 /gcc | |
| parent | 8824cf7e49d961c4c0d95efcaf9ca5fc90c02400 (diff) | |
| download | gcc-88c7af34ac20a250eae0a2e90682b5f879952fc1.zip gcc-88c7af34ac20a250eae0a2e90682b5f879952fc1.tar.gz gcc-88c7af34ac20a250eae0a2e90682b5f879952fc1.tar.bz2 | |
com.c (ptr_type_node, [...]): New.
* com.c (ptr_type_node, va_list_type_node): New.
(ffecom_init_0): Init and use ptr_type_node.
From-SVN: r28241
Diffstat (limited to 'gcc')
| -rw-r--r-- | gcc/f/ChangeLog | 5 | ||||
| -rw-r--r-- | gcc/f/com.c | 6 |
2 files changed, 10 insertions, 1 deletions
diff --git a/gcc/f/ChangeLog b/gcc/f/ChangeLog index 4c8e307..62942e1 100644 --- a/gcc/f/ChangeLog +++ b/gcc/f/ChangeLog @@ -1,3 +1,8 @@ +1999-07-25 Richard Henderson <rth@cygnus.com> + + * com.c (ptr_type_node, va_list_type_node): New. + (ffecom_init_0): Init and use ptr_type_node. + 1999-07-17 Alexandre Oliva <oliva@dcc.unicamp.br> * root.texi: Update e-mail addresses to gcc.gnu.org. diff --git a/gcc/f/com.c b/gcc/f/com.c index c326fed..849da85 100644 --- a/gcc/f/com.c +++ b/gcc/f/com.c @@ -228,6 +228,8 @@ tree integer_type_node; tree unsigned_type_node; tree char_type_node; tree current_function_decl; +tree ptr_type_node; +tree va_list_type_node; /* ~~gcc/tree.h *should* declare this, because toplev.c and dwarfout.c reference it. */ @@ -11807,8 +11809,10 @@ ffecom_init_0 () so we might as well not have any types that claim to have it. */ TYPE_ALIGN (void_type_node) = BITS_PER_UNIT; + ptr_type_node = build_pointer_type (void_type_node); + null_pointer_node = build_int_2 (0, 0); - TREE_TYPE (null_pointer_node) = build_pointer_type (void_type_node); + TREE_TYPE (null_pointer_node) = ptr_type_node; layout_type (TREE_TYPE (null_pointer_node)); string_type_node = build_pointer_type (char_type_node); |