eaglercraft/eagler-teavm-fork
1
0
Fork 0
mirror of https://github.com/Eaglercraft-TeaVM-Fork/eagler-teavm.git synced 2025-01-09 08:24:10 -08:00
Code Issues Actions Packages Projects Releases Wiki Activity

C: allow to redefine directory where to write GC trace files

Browse Source
This commit is contained in:
Alexey Andreev 2019-08-13 13:40:25 +03:00
parent 67c86b089f
commit 6307a67f8f
2 changed files with 50 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

50
core/src/main/resources/org/teavm/backend/c/runtime.c
View File

@ -600,6 +600,8 @@ void teavm_logchar(int32_t c) {
#ifdef TEAVM_MEMORY_TRACE #ifdef TEAVM_MEMORY_TRACE
static wchar_t* teavm_gc_dumpDirectory = NULL;
void teavm_gc_assertSize(int32_t size) { void teavm_gc_assertSize(int32_t size) {
if (size % sizeof(void*) != 0) { if (size % sizeof(void*) != 0) {
abort(); abort();
@ -759,13 +761,43 @@ void teavm_gc_move(void* from, void* to, int32_t size) {
#endif #endif
} }
#ifdef TEAVM_MEMORY_TRACE static FILE* teavm_gc_traceFile = NULL;
static FILE* teavm_gc_traceFile = NULL;
static FILE* teavm_gc_openDumpFile(wchar_t* name) {
wchar_t* fullName = name;
size_t fullNameLen = wcslen(name);
if (teavm_gc_dumpDirectory != NULL) {
size_t prefixLen = wcslen(teavm_gc_dumpDirectory);
size_t nameLen = fullNameLen;
fullNameLen = nameLen + prefixLen;
fullName = malloc((prefixLen + nameLen + 1) * sizeof(wchar_t));
memcpy(fullName, teavm_gc_dumpDirectory, prefixLen * sizeof(wchar_t));
memcpy(fullName + prefixLen, name, (nameLen + 1) * sizeof(wchar_t));
}
FILE* result;
#ifdef _MSC_VER
_wfopen_s(&result, fullName, L"w");
#else
size_t fullNameMbSize = 3 * (fullNameLen + 1) * sizeof(wchar_t);
char* fullNameMb = malloc(fullNameMbSize);
mbstate_t state = { 0 };
wcsrtombs(fullNameMb, fullName, fullNameMbSize, state);
result = fopen(fullNameMb, "w");
#endif
if (fullName != name) {
free(fullName);
}
return result;
}
#ifdef TEAVM_MEMORY_TRACE
static void teavm_writeHeapMemory(char* name) { static void teavm_writeHeapMemory(char* name) {
#ifdef TEAVM_GC_LOG #ifdef TEAVM_GC_LOG
if (teavm_gc_traceFile == NULL) { if (teavm_gc_traceFile == NULL) {
teavm_gc_traceFile = fopen("teavm-gc-trace.txt", "w"); teavm_gc_traceFile = teavm_gc_openDumpFile(L"teavm-gc-trace.txt");
} }
FILE* file = teavm_gc_traceFile; FILE* file = teavm_gc_traceFile;
fprintf(file, "%s:", name); fprintf(file, "%s:", name);
@ -857,3 +889,15 @@ void teavm_gc_defragCompleted() {
teavm_writeHeapMemory("defrag"); teavm_writeHeapMemory("defrag");
#endif #endif
} }
void teavm_gc_setDumpDirectory(const wchar_t* path) {
#ifdef TEAVM_MEMORY_TRACE
if (teavm_gc_dumpDirectory != NULL) {
free(teavm_gc_dumpDirectory);
}
size_t pathLen = wcslen(path);
size_t bytesLen = sizeof(wchar_t) * (pathLen + 1);
teavm_gc_dumpDirectory = malloc(bytesLen);
memcpy(teavm_gc_dumpDirectory, path, bytesLen);
#endif
}

1
core/src/main/resources/org/teavm/backend/c/runtime.h
View File

@ -474,3 +474,4 @@ extern void teavm_gc_move(void* from, void* to, int32_t size);
extern void teavm_gc_gcStarted(); extern void teavm_gc_gcStarted();
extern void teavm_gc_sweepCompleted(); extern void teavm_gc_sweepCompleted();
extern void teavm_gc_defragCompleted(); extern void teavm_gc_defragCompleted();
extern void teavm_gc_setDumpDirectory(const wchar_t* path);