97 lines
3.0 KiB
C
97 lines
3.0 KiB
C
/*
|
|
* Copyright (c) 2010-2011 Stephen Williams (steve@icarus.com)
|
|
*
|
|
* This source code is free software; you can redistribute it
|
|
* and/or modify it in source code form under the terms of the GNU
|
|
* General Public License as published by the Free Software
|
|
* Foundation; either version 2 of the License, or (at your option)
|
|
* any later version.
|
|
*
|
|
* This program is distributed in the hope that it will be useful,
|
|
* but WITHOUT ANY WARRANTY; without even the implied warranty of
|
|
* MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
|
|
* GNU General Public License for more details.
|
|
*
|
|
* You should have received a copy of the GNU General Public License
|
|
* along with this program; if not, write to the Free Software
|
|
* Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA
|
|
*/
|
|
|
|
# include "vvp_priv.h"
|
|
# include "ivl_alloc.h"
|
|
# include <stdlib.h>
|
|
# include <string.h>
|
|
# include <assert.h>
|
|
# include <inttypes.h>
|
|
|
|
// HERE: This still needs work! Fall back to <width>'b format for
|
|
// very large constants. We also should pass the file and
|
|
// line number information for the enum type and the MSB and
|
|
// LSB should be used instead of the width.
|
|
/*
|
|
* If it fits we always print this as a uint64_t the run time will turn
|
|
* it back into a signed value when needed.
|
|
*/
|
|
static void draw_enum2_value(ivl_enumtype_t enumtype, unsigned idx)
|
|
{
|
|
uint64_t val, mask;
|
|
const char*bits = ivl_enum_bits(enumtype, idx);
|
|
const char*bit;
|
|
unsigned len = strlen(bits);
|
|
|
|
// HERE: If this doesn't fit then write it as a enum4 and modify the run
|
|
// time to deal with the conversion.
|
|
assert(len <= sizeof(uint64_t)*8);
|
|
val = 0;
|
|
for (bit = bits, mask = 1 ; *bit != 0 ; bit += 1, mask <<= 1) {
|
|
if (*bit == '1')
|
|
val |= mask;
|
|
}
|
|
|
|
fprintf(vvp_out, "%" PRIu64, val);
|
|
}
|
|
|
|
static void draw_enum4_value(ivl_enumtype_t enumtype, unsigned idx)
|
|
{
|
|
const char*bits = ivl_enum_bits(enumtype, idx);
|
|
const char*bit;
|
|
|
|
fprintf(vvp_out, "%u'b", ivl_enum_width(enumtype));
|
|
|
|
for (bit = bits+strlen(bits) ; bit > bits ; bit -= 1)
|
|
fputc(bit[-1], vvp_out);
|
|
|
|
}
|
|
|
|
void draw_enumeration_in_scope(ivl_enumtype_t enumtype)
|
|
{
|
|
unsigned idx;
|
|
unsigned name_count = ivl_enum_names(enumtype);
|
|
const char*dtype = ivl_enum_type(enumtype)==IVL_VT_BOOL? "2" : "4";
|
|
const char*stype = ivl_enum_signed(enumtype) ? "/s" : "";
|
|
|
|
fprintf(vvp_out, "enum%p .enum%s%s (%u)\n", enumtype, dtype, stype,
|
|
ivl_enum_width(enumtype));
|
|
|
|
for (idx = 0 ; idx < name_count ; idx += 1) {
|
|
fprintf(vvp_out, " \"%s\" ", ivl_enum_name(enumtype, idx));
|
|
|
|
switch (ivl_enum_type(enumtype)) {
|
|
case IVL_VT_BOOL:
|
|
draw_enum2_value(enumtype, idx);
|
|
break;
|
|
case IVL_VT_LOGIC:
|
|
draw_enum4_value(enumtype, idx);
|
|
break;
|
|
default:
|
|
assert(0);
|
|
}
|
|
|
|
if ((idx+1) < name_count)
|
|
fputc(',', vvp_out);
|
|
fputc('\n', vvp_out);
|
|
}
|
|
|
|
fprintf(vvp_out, " ;\n");
|
|
}
|