Commit 9d00e777 by Richard Stallman

entered into RCS

From-SVN: r931
parent 6dc42e49
INSTALL = cp INSTALL = cp
# Green Hills C on Dolphin UNIX System V/88 Release 3.2 Version 3.5/5.60 does # Green Hills C on Dolphin UNIX System V/88 Release 3.2 Version 3.5/5.60 does
# not proviede alloca. # not provide alloca.
ALLOCA=alloca.o ALLOCA=alloca.o
...@@ -3318,7 +3318,7 @@ is_public (expr, identifier) ...@@ -3318,7 +3318,7 @@ is_public (expr, identifier)
{ {
if (decl = is_ivar (TYPE_FIELDS (basetype), identifier)) if (decl = is_ivar (TYPE_FIELDS (basetype), identifier))
{ {
/* important diffence between the Stepstone translator: /* important difference between the Stepstone translator:
all instance variables should be public within the context all instance variables should be public within the context
of the implementation... of the implementation...
...@@ -3961,7 +3961,7 @@ start_method_def (method) ...@@ -3961,7 +3961,7 @@ start_method_def (method)
build1 (INDIRECT_REF, NULLT, _cmd_id))); build1 (INDIRECT_REF, NULLT, _cmd_id)));
#endif /* not OBJC_INT_SELECTORS */ #endif /* not OBJC_INT_SELECTORS */
/* generate argument delclarations if a keyword_decl */ /* generate argument declarations if a keyword_decl */
if (METHOD_SEL_ARGS (method)) if (METHOD_SEL_ARGS (method))
{ {
tree arglist = METHOD_SEL_ARGS (method); tree arglist = METHOD_SEL_ARGS (method);
...@@ -4148,7 +4148,7 @@ really_start_method (method, parmlist) ...@@ -4148,7 +4148,7 @@ really_start_method (method, parmlist)
method_decl = build_nt (CALL_EXPR, method_id, parmlist, NULLT); method_decl = build_nt (CALL_EXPR, method_id, parmlist, NULLT);
/* check the delclarator portion of the return type for the method */ /* check the declarator portion of the return type for the method */
if (ret_decl = TREE_VALUE (TREE_TYPE (method))) if (ret_decl = TREE_VALUE (TREE_TYPE (method)))
{ {
/* /*
...@@ -4691,7 +4691,7 @@ gen_declaration (atype_or_adecl, buf) ...@@ -4691,7 +4691,7 @@ gen_declaration (atype_or_adecl, buf)
tree declspecs; /* "identifier_node", "record_type" */ tree declspecs; /* "identifier_node", "record_type" */
tree declarator; /* "array_ref", "indirect_ref", "call_expr"... */ tree declarator; /* "array_ref", "indirect_ref", "call_expr"... */
/* we have a "raw", abstract delclarator (typename) */ /* we have a "raw", abstract declarator (typename) */
declarator = TREE_VALUE (atype_or_adecl); declarator = TREE_VALUE (atype_or_adecl);
declspecs = TREE_PURPOSE (atype_or_adecl); declspecs = TREE_PURPOSE (atype_or_adecl);
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment