dpatel 02/09/19 18:34:59
Modified: gcc tree.c
gcc/pfe freeze-thaw.c
Log:
After FSF merge, real_cst_ptr is a struct realvaluetype pointer.
Allocate real_cst_ptr in PFE memory and freeze/thaw it.
Bug #:
Revision Changes Path
1.47 +3 -1 gcc3/gcc/tree.c
Index: tree.c
===================================================================
RCS file: /cvs/Darwin/gcc3/gcc/tree.c,v
retrieving revision 1.46
retrieving revision 1.47
diff -u -r1.46 -r1.47
--- tree.c 2002/08/26 05:39:49 1.46
+++ tree.c 2002/09/20 01:34:56 1.47
@@ -492,7 +492,8 @@
#endif
v = make_node (REAL_CST);
- dp = ggc_alloc (sizeof (REAL_VALUE_TYPE));
+ /* APPLE LOCAL PFE */
+ dp = GGC_ALLOC (sizeof (REAL_VALUE_TYPE), PFE_ALLOC_GGC_TREE);
memcpy (dp, &d, sizeof (REAL_VALUE_TYPE));
TREE_TYPE (v) = type;
@@ -4891,3 +4892,4 @@
}
#include "gt-tree.h"
+
1.17 +4 -1 gcc3/gcc/pfe/freeze-thaw.c
Index: freeze-thaw.c
===================================================================
RCS file: /cvs/Darwin/gcc3/gcc/pfe/freeze-thaw.c,v
retrieving revision 1.16
retrieving revision 1.17
diff -u -r1.16 -r1.17
--- freeze-thaw.c 2002/08/17 06:29:15 1.16
+++ freeze-thaw.c 2002/09/20 01:34:58 1.17
@@ -799,6 +799,8 @@
{
int i, len;
+ if (PFE_LOADING && TREE_CODE (node) == REAL_CST)
+ pfe_thaw_ptr (&TREE_REAL_CST_PTR (node));
if (!(*lang_hooks.pfe_freeze_thaw_special) (node))
{
switch (TREE_CODE (node))
@@ -809,7 +811,6 @@
case REAL_CST:
PFE_FREEZE_THAW_RTX (TREE_CST_RTL(node)); /* FIXME: needed? */
- /* APPLE MERGE need to preserve real_cst_ptr? */
break;
case COMPLEX_CST:
@@ -861,6 +862,8 @@
break;
}
}
+ if (PFE_DUMPING && TREE_CODE (node) == REAL_CST)
+ pfe_freeze_ptr (&TREE_REAL_CST_PTR (node));
}
/*-------------------------------------------------------------------*/
