OpenCores
URL https://opencores.org/ocsvn/openrisc/openrisc/trunk

Subversion Repositories openrisc

[/] [openrisc/] [trunk/] [gnu-old/] [gdb-7.1/] [sim/] [testsuite/] [sim/] [cris/] [c/] [clone4.c] - Rev 227

Go to most recent revision | Compare with Previous | Blame | View Log

/* Check that TRT happens when we reach the #threads implementation limit.
#notarget: cris*-*-elf
*/
 
#include <stddef.h>
#include <stdlib.h>
#include <stdio.h>
#include <limits.h>
#include <unistd.h>
#include <sched.h>
#include <errno.h>
#include <sys/types.h>
#include <sys/wait.h>
 
int
process (void *arg)
{
  int i;
 
  for (i = 0; i < 500; i++)
    if (sched_yield ())
      abort ();
 
  return 0;
}
 
int
main (void)
{
  int pid;
  int i;
  int stacksize = 16384;
 
  for (i = 0; i < 1000; i++)
    {
      char *stack = malloc (stacksize);
      if (stack == NULL)
	abort ();
 
      pid = clone (process, (char *) stack + stacksize - 64,
		   (CLONE_VM | CLONE_FS | CLONE_FILES | CLONE_SIGHAND)
		   | SIGCHLD, "ab");
      if (pid <= 0)
	{
	  /* FIXME: Read sysconf instead of magic number.  */
	  if (i < 60)
	    {
	      fprintf (stderr, "Bad clone %d\n", pid);
	      abort ();
	    }
 
	  if (errno == EAGAIN)
	    {
	      printf ("pass\n");
	      exit (0);
	    }
	}
    }
 
  abort ();
}
 

Go to most recent revision | Compare with Previous | Blame | View Log

powered by: WebSVN 2.1.0

© copyright 1999-2024 OpenCores.org, equivalent to Oliscience, all rights reserved. OpenCores®, registered trademark.