blob: b528b5db42cd7fa712a88219cbcd66009e6aa5a9 (
plain) (
blame)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
|
*** function.c.orig Sat Feb 28 22:58:16 1998
--- function.c Thu Mar 23 15:34:50 2000
***************
*** 463,468 ****
--- 463,491 ----
/* Given a function decl for a containing function,
return the `struct function' for it. */
+ #ifdef GPC
+ struct function *
+ maybe_find_function_data (decl)
+ tree decl;
+ {
+ struct function *p;
+ for (p = outer_function_chain; p; p = p->next)
+ if (p->decl == decl)
+ return p;
+ return (struct function *)NULL;
+ }
+
+ struct function *
+ find_function_data (decl)
+ tree decl;
+ {
+ struct function *p = maybe_find_function_data (decl);
+ if (!p)
+ abort ();
+ return p;
+ }
+
+ #else /* not GPC */
struct function *
find_function_data (decl)
tree decl;
***************
*** 475,480 ****
--- 498,504 ----
abort ();
}
+ #endif /* not GPC */
/* Save the current context for compilation of a nested function.
This is called from language-specific code.
|
