process_name (pchar -w name, int length, ulong process_id)
{
  report = alloc (&_, T_ARRAY, byte, mem_length),   
  {
    mem_length = sys_state (&_, QS_PROCESS, process_id)
  };

  if (report)
  {
    sys_file_info (name, length, QS_MODULE_NAME, report->process_ptr->module_id) : (report->process_ptr),
    {
      sys_state (report, length (report), QS_PROCESS, process_id)
    };
  }
}
/
{
  free (&report);
}