mirror of
https://github.com/clearlinux/graphene.git
synced 2026-09-08 06:41:58 +00:00
Chia-Che Tsai
b5586bbfc6
- Bugfixes in PAL and SHIM - Improvement of migration scheme in SHIM, which largely speed up forking - Upgrade glibc to 2.19 - FreeBSD port - Support OpenJDK, python and R
64 lines
1.6 KiB
C
64 lines
1.6 KiB
C
/* -*- mode:c; c-file-style:"k&r"; c-basic-offset: 4; tab-width:4; indent-tabs-mode:nil; mode:auto-fill; fill-column:78; -*- */
|
|
/* vim: set ts=4 sw=4 et tw=78 fo=cqt wm=0: */
|
|
|
|
/* This Hello World demostrate a simple multithread program */
|
|
|
|
#define DO_BENCH 0
|
|
|
|
#include "pal.h"
|
|
#include "pal_debug.h"
|
|
#include "api.h"
|
|
|
|
int main (int argc, char ** argv)
|
|
{
|
|
int count = 0;
|
|
|
|
#if DO_BENCH != 1
|
|
pal_printf("In process: %s", argv[0]);
|
|
for (int i = 1 ; i < argc ; i++)
|
|
pal_printf(" %s", argv[i]);
|
|
pal_printf("\n");
|
|
#endif
|
|
|
|
if (argc == 1) {
|
|
unsigned long time = DkSystemTimeQuery ();
|
|
char time_arg[24];
|
|
snprintf(time_arg, 24, "%ld", time);
|
|
|
|
const char * newargs[4] = { "Process", "0", time_arg, NULL };
|
|
|
|
PAL_HANDLE proc = DkProcessCreate ("file:Process", 0, newargs);
|
|
|
|
if (!proc)
|
|
pal_printf("Can't creste process\n");
|
|
|
|
DkObjectClose(proc);
|
|
DkThreadDelayExecution(30000000);
|
|
} else {
|
|
count = atoi (argv[1]);
|
|
|
|
if (count < 100) {
|
|
count++;
|
|
|
|
char count_arg[8];
|
|
snprintf(count_arg, 8, "%d", count);
|
|
const char * newargs[4] = { "Process", count_arg, argv[2], NULL };
|
|
|
|
PAL_HANDLE proc = DkProcessCreate ("file:Process", 0, newargs);
|
|
|
|
if (!proc)
|
|
pal_printf("Can't creste process\n");
|
|
|
|
DkObjectClose(proc);
|
|
} else {
|
|
unsigned long end = DkSystemTimeQuery ();
|
|
unsigned long start = atol (argv[2]);
|
|
pal_printf ("wall time = %d\n", end - start);
|
|
}
|
|
}
|
|
|
|
DkProcessExit(0);
|
|
return 0;
|
|
}
|
|
|