Lines Matching +defs:label +defs:offset
268 /* Build a backend label declaration. Set TREE_USED for named labels.
269 The context of the label is always the current_function_decl. All
282 /* Build an internal label name. */
295 /* We always define the label as used, even if the original source
296 file never references the label. We don't want all kinds of
315 /* Return the backend label declaration for a given label structure,
328 /* Validate the label declaration from the front end. */
331 /* Build a mangled name for the label. */
337 /* Tell the debugger where the label came from. */
338 if (lp->value <= MAX_LABEL_VALUE) /* An internal label. */
343 /* Store the label in the label list and return the LABEL_DECL. */
376 binding label (mainly those that are bind(c)). */
438 /* It may be possible to simply use the binding label if it's
443 /* use the binding label rather than the mangled name */
1085 "offset");
1394 /* If a variable is assigned a label, we add another two auxiliary
1419 target label's address. Otherwise, value is the length of a format string
2755 -fcoarray=lib the token and the offset as hidden arguments. */
2765 tree offset;
2802 offset = build_decl (input_location, PARM_DECL,
2813 GFC_DECL_CAF_OFFSET (f->sym->backend_decl) = offset;
2818 GFC_TYPE_ARRAY_CAF_OFFSET (caf_type) = offset;
2820 DECL_CONTEXT (offset) = fndecl;
2821 DECL_ARTIFICIAL (offset) = 1;
2822 DECL_ARG_TYPE (offset) = TREE_VALUE (typelist);
2823 TREE_READONLY (offset) = 1;
2824 hidden_arglist = chainon (hidden_arglist, offset);
2826 gfc_finish_decl (offset);
6147 creates the label decls for the entry points. */
6153 tree label;
6160 /* Add the case label. */
6161 label = gfc_build_label_decl (NULL_TREE);
6163 tmp = build_case_label (val, NULL_TREE, label);
6167 label = gfc_build_label_decl (NULL_TREE);
6168 tmp = build1_v (GOTO_EXPR, label);
6171 /* Save the label decl. */
6172 el->label = label;