99 lines
2.6 KiB
Diff
99 lines
2.6 KiB
Diff
|
diff --git a/gcc/vhdl/Make-lang.in b/gcc/vhdl/Make-lang.in
|
||
|
|
index 8f481df..681ac59 100644
|
||
|
|
--- a/gcc/vhdl/Make-lang.in
|
||
|
|
+++ b/gcc/vhdl/Make-lang.in
|
||
|
|
@@ -96,7 +96,7 @@ AGCC_GCCOBJ_DIR=../
|
||
|
|
AGCC_INC_FLAGS=-I$(AGCC_GCCOBJ_DIR)/gcc -I$(AGCC_GCCSRC_DIR)/include \
|
||
|
|
-I$(AGCC_GCCSRC_DIR)/gcc -I$(AGCC_GCCSRC_DIR)/gcc/config \
|
||
|
|
-I$(AGCC_GCCSRC_DIR)/libcpp/include
|
||
|
|
-AGCC_CFLAGS=-g -Wall -DIN_GCC $(AGCC_INC_FLAGS)
|
||
|
|
+AGCC_CFLAGS=-g -Wall -DIN_GCC $(AGCC_INC_FLAGS) $(CFLAGS) $(INCLUDES)
|
||
|
|
|
||
|
|
AGCC_LOCAL_OBJS=ortho-lang.o
|
||
|
|
|
||
|
|
@@ -140,7 +140,7 @@ ghdl$(exeext): force
|
||
|
|
|
||
|
|
# Ghdl libraries.
|
||
|
|
ghdllib: ghdl$(exeext) $(GCC_PASSES) force
|
||
|
|
- $(MAKE_IN_VHDL) GRT_FLAGS="-O -g" ghdllib
|
||
|
|
+ $(MAKE_IN_VHDL) GRT_FLAGS="-O -g $(CFLAGS)" ghdllib
|
||
|
|
|
||
|
|
# Build hooks:
|
||
|
|
|
||
|
|
diff --git a/gcc/vhdl/Makefile.in b/gcc/vhdl/Makefile.in
|
||
|
|
index d754c6c..07abc4a 100644
|
||
|
|
--- a/gcc/vhdl/Makefile.in
|
||
|
|
+++ b/gcc/vhdl/Makefile.in
|
||
|
|
@@ -80,7 +80,8 @@ T_CPPFLAGS =
|
||
|
|
X_ADAFLAGS =
|
||
|
|
T_ADAFLAGS =
|
||
|
|
|
||
|
|
-ADAC = $(CC)
|
||
|
|
+# Never use the bootstrapped compiler, as it may not be built for ada
|
||
|
|
+ADAC = gcc
|
||
|
|
|
||
|
|
ECHO = echo
|
||
|
|
CHMOD = chmod
|
||
|
|
diff --git a/gcc/vhdl/ortho-lang.c b/gcc/vhdl/ortho-lang.c
|
||
|
|
index 84aeb92..8eddd42 100644
|
||
|
|
--- a/gcc/vhdl/ortho-lang.c
|
||
|
|
+++ b/gcc/vhdl/ortho-lang.c
|
||
|
|
@@ -16,6 +16,7 @@
|
||
|
|
#include "options.h"
|
||
|
|
#include "real.h"
|
||
|
|
-#include "tree-gimple.h"
|
||
|
|
+#include "gimple.h"
|
||
|
|
+#include "tree.h"
|
||
|
|
#include "function.h"
|
||
|
|
#include "cgraph.h"
|
||
|
|
#include "target.h"
|
||
|
|
@@ -680,38 +681,10 @@ type_for_mode (enum machine_mode mode, int unsignedp)
|
||
|
|
|
||
|
|
const struct lang_hooks lang_hooks = LANG_HOOKS_INITIALIZER;
|
||
|
|
|
||
|
|
-/* Tree code classes. */
|
||
|
|
-
|
||
|
|
-#define DEFTREECODE(SYM, NAME, TYPE, LENGTH) TYPE,
|
||
|
|
-
|
||
|
|
-const enum tree_code_class tree_code_type[] = {
|
||
|
|
-#include "tree.def"
|
||
|
|
- 'x'
|
||
|
|
-};
|
||
|
|
-#undef DEFTREECODE
|
||
|
|
-
|
||
|
|
-/* Table indexed by tree code giving number of expression
|
||
|
|
- operands beyond the fixed part of the node structure.
|
||
|
|
- Not used for types or decls. */
|
||
|
|
-
|
||
|
|
-#define DEFTREECODE(SYM, NAME, TYPE, LENGTH) LENGTH,
|
||
|
|
-
|
||
|
|
-const unsigned char tree_code_length[] = {
|
||
|
|
-#include "tree.def"
|
||
|
|
- 0
|
||
|
|
-};
|
||
|
|
-#undef DEFTREECODE
|
||
|
|
-
|
||
|
|
-#define DEFTREECODE(SYM, NAME, TYPE, LENGTH) NAME,
|
||
|
|
-const char * const tree_code_name[] = {
|
||
|
|
-#include "tree.def"
|
||
|
|
- "@@dummy"
|
||
|
|
-};
|
||
|
|
-#undef DEFTREECODE
|
||
|
|
|
||
|
|
union lang_tree_node
|
||
|
|
GTY((desc ("0"),
|
||
|
|
- chain_next ("(union lang_tree_node *) GENERIC_NEXT (&%h.generic)")))
|
||
|
|
+ chain_next ("(union lang_tree_node *) TREE_CHAIN (&%h.generic)")))
|
||
|
|
{
|
||
|
|
union tree_node GTY ((tag ("0"))) generic;
|
||
|
|
};
|
||
|
|
@@ -1162,7 +1135,7 @@ new_access_type (tree dtype)
|
||
|
|
res = make_node (POINTER_TYPE);
|
||
|
|
TREE_TYPE (res) = NULL_TREE;
|
||
|
|
/* Seems necessary. */
|
||
|
|
- TYPE_MODE (res) = Pmode;
|
||
|
|
+ SET_TYPE_MODE (res, Pmode);
|
||
|
|
layout_type (res);
|
||
|
|
return res;
|
||
|
|
}
|