github.com/simh.simh
1
0
Fork 0
mirror of https://github.com/simh/simh.git synced 2026-04-28 12:47:25 +00:00
Code Releases Activity

TIMER: Add VMS support for sim_os_process_cpu_time

Browse Source
This commit is contained in:
Mark Pizzolato
2024-01-15 04:56:27 -10:00
parent f4089b330e
commit 656e489ee2
1 changed files with 31 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files

32
sim_timer.c
View File

@@ -408,9 +408,11 @@ return SCPE_OK;
#define sys$waitfr SYS$WAITFR #define sys$waitfr SYS$WAITFR
#define lib$subx LIB$SUBX #define lib$subx LIB$SUBX
#define lib$ediv LIB$EDIV #define lib$ediv LIB$EDIV
#define sys$getjpiw SYS$GETJPIW
#endif #endif
#include <starlet.h> #include <starlet.h>
#include <jpidef.h>
#include <lib$routines.h> #include <lib$routines.h>
#include <unistd.h> #include <unistd.h>
@@ -482,6 +484,34 @@ return 0;
} }
#endif /* CLOCK_REALTIME */ #endif /* CLOCK_REALTIME */
typedef struct {
unsigned short status;
unsigned short count;
unsigned int dev_status; } IOSB;
typedef struct {
unsigned short buffer_size;
unsigned short item_code;
void *buffer_address;
void *return_length_address;
} ITEM;
t_stat sim_os_process_cpu_times (double *system, double *user)
{
t_uint64 CPUtime = 0;
ITEM items[] = { {sizeof (CPUtime), JPI$_CPUTIM, &CPUtime, NULL},
{ 0, 0, NULL, NULL}};
IOSB iosb;
memset (&iosb, 0, sizeof (iosb));
sys$getjpiw (1, NULL, NULL, items, &iosb, NULL, 0);
*system = 0.0;
*user = (double)(CPUtime) / 100.0;
return SCPE_OK;
}
#elif defined (_WIN32) #elif defined (_WIN32)
/* Win32 routines */ /* Win32 routines */
@@ -1570,7 +1600,7 @@ fields = sscanf (cptr, "%d/%d/%d-%d:%d:%d.%d", &base.tm_year, &base.tm_mon, &bas
base.tm_mon -= 1; base.tm_mon -= 1;
base.tm_year -= 1900; base.tm_year -= 1900;
secs = mktime (&base); secs = mktime (&base);
if ((fields < 3) || (secs < 0) || (msecs > 999)) { if ((fields < 3) || (secs == (time_t)-1) || (msecs > 999)) {
sim_messagef (SCPE_ARG, "Unexpected date/time specification: %s\n", cptr); sim_messagef (SCPE_ARG, "Unexpected date/time specification: %s\n", cptr);
return sim_messagef (SCPE_ARG, "Valid format is: BASE=YYYY/MM/DD-HH:MM:SS.MSEC\n"); return sim_messagef (SCPE_ARG, "Valid format is: BASE=YYYY/MM/DD-HH:MM:SS.MSEC\n");
} }