corda/sgx-jvm/avian/src/heapdump.cpp
Andras Slemmer 9bb3d6b972 Add 'sgx-jvm/avian/' from commit '09e4fe60d01f4f4bfb6b2976973bb4913ef61edc'
git-subtree-dir: sgx-jvm/avian
git-subtree-mainline: f978eab8d134c88f88ff67e49458a771c32351db
git-subtree-split: 09e4fe60d01f4f4bfb6b2976973bb4913ef61edc
2017-03-13 12:18:24 +00:00

116 lines
2.4 KiB
C++

/* Copyright (c) 2008-2015, Avian Contributors
Permission to use, copy, modify, and/or distribute this software
for any purpose with or without fee is hereby granted, provided
that the above copyright notice and this permission notice appear
in all copies.
There is NO WARRANTY for this software. See license.txt for
details. */
#include "avian/machine.h"
#include "avian/heapwalk.h"
using namespace vm;
namespace {
namespace local {
enum { Root, Size, ClassName, Push, Pop };
void write1(FILE* out, uint8_t v)
{
size_t n UNUSED = fwrite(&v, 1, 1, out);
}
void write4(FILE* out, uint32_t v)
{
uint8_t b[] = {static_cast<uint8_t>(v >> 24),
static_cast<uint8_t>((v >> 16) & 0xFF),
static_cast<uint8_t>((v >> 8) & 0xFF),
static_cast<uint8_t>(v & 0xFF)};
size_t n UNUSED = fwrite(b, 4, 1, out);
}
void writeString(FILE* out, int8_t* p, unsigned size)
{
write4(out, size);
size_t n UNUSED = fwrite(p, size, 1, out);
}
unsigned objectSize(Thread* t, object o)
{
return extendedSize(t, o, baseSize(t, o, objectClass(t, o)));
}
} // namespace local
} // namespace
namespace vm {
void dumpHeap(Thread* t, FILE* out)
{
class Visitor : public HeapVisitor {
public:
Visitor(Thread* t, FILE* out) : t(t), out(out), nextNumber(1)
{
}
virtual void root()
{
write1(out, local::Root);
}
virtual unsigned visitNew(object p)
{
if (p) {
unsigned number = nextNumber++;
local::write4(out, number);
local::write1(out, local::Size);
local::write4(out, local::objectSize(t, p));
if (objectClass(t, p) == type(t, GcClass::Type)) {
GcByteArray* name = static_cast<GcClass*>(p)->name();
if (name) {
local::write1(out, local::ClassName);
local::writeString(out, name->body().begin(), name->length() - 1);
}
}
return number;
} else {
return 0;
}
}
virtual void visitOld(object, unsigned number)
{
local::write4(out, number);
}
virtual void push(object, unsigned, unsigned)
{
local::write1(out, local::Push);
}
virtual void pop()
{
local::write1(out, local::Pop);
}
Thread* t;
FILE* out;
unsigned nextNumber;
} visitor(t, out);
HeapWalker* w = makeHeapWalker(t, &visitor);
w->visitAllRoots();
w->dispose();
}
} // namespace vm