I've been working on bringing the VMS patches up to date. The VMS Debugger requires a label at end prologue and begin_epilogue, and the fact that final_scan_insn makes multiple calls to NOTE_INSN_EPILOGUE_BEG for the same function makes this awkward. I suppose it could be case that there are multiple epilogues in a function, but the generated assembly code doesn't seem to indicate this. Below is an excerpt from a gdb session, and attached is a file derived from argv.c.

Can someone please explain why this happens and if a bug, please advise on how to fix?

--Douglas Rupp
AdaCore



Breakpoint 3, emit_note (kind=NOTE_INSN_EPILOGUE_BEG)
    at ../../gcc-head-src-orig/gcc/emit-rtl.c:4678
4678    {
(gdb) c
Continuing.

Breakpoint 4, final_scan_insn (insn=0x2a95dcc440, file=0x1083a10, optimize=Variable "optimize" is not available.
)
    at ../../gcc-head-src-orig/gcc/final.c:1895
1895              targetm.asm_out.function_begin_epilogue (file);
(gdb) print last_linenum
$4 = 24
(gdb) c
Continuing.

Breakpoint 4, final_scan_insn (insn=0x2a95dcc400, file=0x1083a10, optimize=Variable "optimize" is not available.
)
    at ../../gcc-head-src-orig/gcc/final.c:1895
1895              targetm.asm_out.function_begin_epilogue (file);
(gdb) print last_linenum
$5 = 24


int gnat_argc = 0;
const char **gnat_argv = (const char **) 0;
const char **gnat_envp = (const char **) 0;

int
__gnat_arg_count (void)
{
  return gnat_argc;
}

int
__gnat_len_arg (int arg_num)
{
  if (gnat_argv != 0)
    return __builtin_strlen (gnat_argv[arg_num]);
  else
    return 0;
}

void
__gnat_fill_arg (char *a, int i)
{
  if (gnat_argv != 0)
    __builtin_strncpy (a, gnat_argv[i], __builtin_strlen(gnat_argv[i]));
}

int
__gnat_env_count (void)
{
  int i;

  for (i = 0; gnat_envp[i]; i++)
    ;
  return i;
}

int
__gnat_len_env (int env_num)
{
  if (gnat_envp != 0)
    return __builtin_strlen (gnat_envp[env_num]);
  else
    return 0;
}

void
__gnat_fill_env (char *a, int i)
{
  if (gnat_envp != 0)
    __builtin_strncpy (a, gnat_envp[i], __builtin_strlen (gnat_envp[i]));
}

Reply via email to