Browse Source

Fixes and language additions.

cl-refactor
Gav Wood 11 years ago
parent
commit
e888d6079e
  1. 6
      alethzero/MainWin.cpp
  2. 6
      liblll/CompilerState.cpp

6
alethzero/MainWin.cpp

@ -848,7 +848,7 @@ void Main::on_blocks_currentItemChanged()
else else
{ {
if (tx.data.size()) if (tx.data.size())
s << eth::memDump(tx.data, 16); s << eth::memDump(tx.data, 16, true);
} }
} }
@ -977,7 +977,7 @@ void Main::on_data_textChanged()
else else
s = s.mid(1); s = s.mid(1);
} }
ui->code->setHtml(QString::fromStdString(eth::memDump(m_data))); ui->code->setHtml(QString::fromStdString(eth::memDump(m_data, 8, true)));
if (m_client->postState().addressHasCode(fromString(ui->destination->currentText()))) if (m_client->postState().addressHasCode(fromString(ui->destination->currentText())))
{ {
ui->gas->setMinimum((qint64)state().callGas(m_data.size(), 1)); ui->gas->setMinimum((qint64)state().callGas(m_data.size(), 1));
@ -1247,7 +1247,7 @@ void Main::updateDebugger()
for (auto i: ws.stack) for (auto i: ws.stack)
ds->insertItem(0, QString::fromStdString(toHex(((h256)i).asArray()))); ds->insertItem(0, QString::fromStdString(toHex(((h256)i).asArray())));
ui->debugMemory->setHtml(QString::fromStdString(eth::memDump(ws.memory, 16))); ui->debugMemory->setHtml(QString::fromStdString(eth::memDump(ws.memory, 16, true)));
ui->debugCode->setCurrentRow(m_pcWarp[(unsigned)ws.curPC]); ui->debugCode->setCurrentRow(m_pcWarp[(unsigned)ws.curPC]);
ostringstream ss; ostringstream ss;
ss << hex << "PC: 0x" << ws.curPC << " | GAS: 0x" << ws.gas; ss << hex << "PC: 0x" << ws.curPC << " | GAS: 0x" << ws.gas;

6
liblll/CompilerState.cpp

@ -41,6 +41,11 @@ void CompilerState::populateStandard()
{ {
static const string s = "{" static const string s = "{"
"(def 'gav 0x8a40bfaa73256b60764c1bf40675a99083efb075)" "(def 'gav 0x8a40bfaa73256b60764c1bf40675a99083efb075)"
"(def 'namereg 0x2d0aceee7e5ab874e22ccf8d1a649f59106d74e8)"
"(def 'config 0xccdeac59d35627b7de09332e819d5159e7bb7250)"
"(def 'gavcoin 0x5620133321fcac7f15a5c570016f6cb6dc263f9d)"
"(def 'sendgavcoin (to value) { [0]:to [32]:value (call (- (gas) 21) gavcoin 0 0 64 0 0) })"
"(def 'regname (name) { [0]:name (call (- (gas) 21) namereg 0 0 32 0 0) })"
"(def 'send (to value) (call (- (gas) 21) to value 0 0 0 0))" "(def 'send (to value) (call (- (gas) 21) to value 0 0 0 0))"
"(def 'send (gaslimit to value) (call gaslimit to value 0 0 0 0))" "(def 'send (gaslimit to value) (call gaslimit to value 0 0 0 0))"
"(def 'alloc (len) (asm msize 0 1 len msize add sub mstore8))" "(def 'alloc (len) (asm msize 0 1 len msize add sub mstore8))"
@ -53,6 +58,7 @@ void CompilerState::populateStandard()
"(def 'create (code) { [0]:(msize) (create 0 @0 (lll code @0)) })" "(def 'create (code) { [0]:(msize) (create 0 @0 (lll code @0)) })"
"(def 'sha3 (val) { [0]:val (sha3 0 32) })" "(def 'sha3 (val) { [0]:val (sha3 0 32) })"
"(def 'return (val) { [0]:val (return 0 32) })" "(def 'return (val) { [0]:val (return 0 32) })"
"(def 'returnlll (code) (return 0 (lll code 0)) )"
"(def 'makeperm (name pos) { (def name (sload pos)) (def name (v) (sstore pos v)) } )" "(def 'makeperm (name pos) { (def name (sload pos)) (def name (v) (sstore pos v)) } )"
"(def 'permcount 0)" "(def 'permcount 0)"
"(def 'perm (name) { (makeperm name permcount) (def 'permcount (+ permcount 1)) } )" "(def 'perm (name) { (makeperm name permcount) (def 'permcount (+ permcount 1)) } )"

Loading…
Cancel
Save