private void VisitULongConstNode(ulong_const_node expr)
{
bw.Write(expr.constant_value);
}
public override void visit(SyntaxTree.uint64_const uint64)
{
//TODO добавить обработку
// :-)
//throw new CompilerInternalError("Числа UInt64 доступны только в PascalABC.NET Professional Edition");
expression_node en = new ulong_const_node(uint64.val, get_location(uint64));
switch (motivation_keeper.motivation)
{
case motivation.address_reciving: throw new CompilerInternalError("Addres reciving from constant"); break;
case motivation.expression_evaluation: return_value(en); break;
case motivation.semantic_node_reciving: return_semantic_value(en); break;
}
return;
}
