/* register samples into the stat table. Called from Scm_ProfilerResult */
void collect_samples(ScmVMProfiler *prof)
{
for (int i=0; i<prof->currentSample; i++) {
ScmObj e = Scm_HashTableRef(prof->statHash,
prof->samples[i].func, SCM_UNBOUND);
if (SCM_UNBOUNDP(e)) {
/* NB: just for now */
Scm_Warn("profiler: uncounted object appeared in a sample: %p (%S)\n",
prof->samples[i].func, prof->samples[i].func);
} else {
SCM_ASSERT(SCM_PAIRP(e));
int cnt = SCM_INT_VALUE(SCM_CDR(e)) + 1;
SCM_SET_CDR(e, SCM_MAKE_INT(cnt));
}
}
}
/* Returns the statHash */
ScmObj Scm_ProfilerRawResult(void)
{
ScmVM *vm = Scm_VM();
if (vm->prof == NULL) return SCM_FALSE;
if (vm->prof->state == SCM_PROFILER_INACTIVE) return SCM_FALSE;
if (vm->prof->state == SCM_PROFILER_RUNNING) Scm_ProfilerStop();
if (vm->prof->errorOccurred > 0) {
Scm_Warn("profiler: An error has been occurred during saving profiling samples. The result may not be accurate");
}
Scm_ProfilerCountBufferFlush(vm);
/* collect samples in the current buffer */
collect_samples(vm->prof);
/* collect samples in the saved file */
off_t off;
SCM_SYSCALL(off, lseek(vm->prof->samplerFd, 0, SEEK_SET));
if (off == (off_t)-1) {
Scm_ProfilerReset();
Scm_Error("profiler: seek failed in retrieving sample data");
}
for (;;) {
ssize_t r = read(vm->prof->samplerFd, vm->prof->samples,
sizeof(ScmProfSample[1]) * SCM_PROF_SAMPLES_IN_BUFFER);
if (r <= 0) break;
vm->prof->currentSample = r / sizeof(ScmProfSample[1]);
collect_samples(vm->prof);
}
vm->prof->currentSample = 0;
#if defined(GAUCHE_WINDOWS)
if (vm->prof->samplerFd >= 0) {
close(vm->prof->samplerFd);
vm->prof->samplerFd = -1;
unlink(vm->prof->samplerFileName);
}
#else /* !GAUCHE_WINDOWS */
if (ftruncate(vm->prof->samplerFd, 0) < 0) {
Scm_SysError("profiler: failed to truncate temporary file");
}
#endif /* !GAUCHE_WINDOWS */
return SCM_OBJ(vm->prof->statHash);
}
/* Returns the statHash */
ScmObj Scm_ProfilerRawResult(void)
{
ScmVM *vm = Scm_VM();
if (vm->prof == NULL) return SCM_FALSE;
if (vm->prof->state == SCM_PROFILER_INACTIVE) return SCM_FALSE;
if (vm->prof->state == SCM_PROFILER_RUNNING) Scm_ProfilerStop();
if (vm->prof->errorOccurred > 0) {
Scm_Warn("profiler: An error has been occurred during saving profiling samples. The result may not be accurate");
}
Scm_ProfilerCountBufferFlush(vm);
/* collect samples in the current buffer */
collect_samples(vm->prof);
/* collect samples in the saved file */
off_t off;
SCM_SYSCALL(off, lseek(vm->prof->samplerFd, 0, SEEK_SET));
if (off == (off_t)-1) {
Scm_ProfilerReset();
Scm_Error("profiler: seek failed in retrieving sample data");
}
ScmObj sampler_port =
Scm_MakePortWithFd(SCM_FALSE, SCM_PORT_INPUT, vm->prof->samplerFd,
SCM_PORT_BUFFER_FULL, FALSE);
for (;;) {
ssize_t r = read(vm->prof->samplerFd, vm->prof->samples,
sizeof(ScmProfSample[1]) * SCM_PROF_SAMPLES_IN_BUFFER);
if (r <= 0) break;
vm->prof->currentSample = r / sizeof(ScmProfSample[1]);
collect_samples(vm->prof);
}
vm->prof->currentSample = 0;
if (ftruncate(vm->prof->samplerFd, 0) < 0) {
Scm_SysError("profiler: failed to truncate temporary file");
}
return SCM_OBJ(vm->prof->statHash);
}
static void glutWindowStatusFunc(void (*fn)(unsigned int, int, int, int))
{
Scm_Warn("glutWindowStatusFunc unsupported in this version of GLUT");
}
static void glutJoystickFunc(void (*fn)(unsigned int, int, int, int),
int interval)
{
Scm_Warn("glutJoystickFunc unsupported in this version of GLUT");
}
static void glutSpecialUpFunc(void (*fn)(int, int, int))
{
Scm_Warn("glutSpecialUpFunc unsupported in this version of GLUT");
}
static void glutKeyboardUpFunc(void (*fn)(unsigned char, int, int))
{
Scm_Warn("glutKeyboardUpFunc unsupported in this version of GLUT");
}
ScmObj Scm_GlocInlinableSetter(ScmGloc *gloc, ScmObj val)
{
Scm_Warn("altering binding of inlinable procedure: %S#%S",
gloc->module->name, gloc->name);
return val;
}