mirror of
https://github.com/steveicarus/iverilog.git
synced 2026-09-03 08:25:32 +02:00
Cary R
7c152685dc
This patch cleans up some of the code to use common compiletf routines where appropriate. It also adds code to print the number of extra arguments and cleans up the messages a bit.
151 lines
4.2 KiB
C
151 lines
4.2 KiB
C
/*
|
|
* Copyright (c) 2000-2008 Stephen Williams ([email protected])
|
|
*
|
|
* 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 "vpi_config.h"
|
|
|
|
#include "vpi_user.h"
|
|
#include <string.h>
|
|
#include <math.h>
|
|
#include <assert.h>
|
|
#include <sys_priv.h>
|
|
|
|
static PLI_INT32 sys_time_calltf(PLI_BYTE8*name)
|
|
{
|
|
s_vpi_value val;
|
|
s_vpi_time now;
|
|
vpiHandle call_handle;
|
|
vpiHandle mod;
|
|
int units, prec;
|
|
long scale;
|
|
long frac;
|
|
|
|
call_handle = vpi_handle(vpiSysTfCall, 0);
|
|
assert(call_handle);
|
|
|
|
mod = sys_func_module(call_handle);
|
|
|
|
now.type = vpiSimTime;
|
|
vpi_get_time(0, &now);
|
|
|
|
/* All the variants but $simtime return the time in units of
|
|
the local scope. The $simtime function returns the
|
|
simulation time. */
|
|
if (strcmp(name, "$simtime") == 0)
|
|
units = vpi_get(vpiTimePrecision, 0);
|
|
else
|
|
units = vpi_get(vpiTimeUnit, mod);
|
|
|
|
prec = vpi_get(vpiTimePrecision, 0);
|
|
scale = 1;
|
|
while (units > prec) {
|
|
scale *= 10;
|
|
units -= 1;
|
|
}
|
|
|
|
assert(8*sizeof(long long) >= 64);
|
|
{ long long tmp_now = ((long long)now.high) << 32;
|
|
tmp_now += (long long)now.low;
|
|
frac = tmp_now % (long long)scale;
|
|
tmp_now /= (long long)scale;
|
|
|
|
/* Round to the nearest integer, which may be up. */
|
|
if ((scale > 1) && (frac >= scale/2))
|
|
tmp_now += 1;
|
|
|
|
now.low = tmp_now & 0xffffffff;
|
|
now.high = tmp_now >> 32LL;
|
|
}
|
|
|
|
val.format = vpiTimeVal;
|
|
val.value.time = &now;
|
|
|
|
vpi_put_value(call_handle, &val, 0, vpiNoDelay);
|
|
|
|
return 0;
|
|
}
|
|
|
|
static PLI_INT32 sys_realtime_calltf(PLI_BYTE8*name)
|
|
{
|
|
s_vpi_value val;
|
|
s_vpi_time now;
|
|
vpiHandle call_handle;
|
|
vpiHandle mod;
|
|
int units, prec;
|
|
|
|
call_handle = vpi_handle(vpiSysTfCall, 0);
|
|
assert(call_handle);
|
|
|
|
mod = sys_func_module(call_handle);
|
|
|
|
now.type = vpiSimTime;
|
|
vpi_get_time(0, &now);
|
|
|
|
units = vpi_get(vpiTimeUnit, mod);
|
|
prec = vpi_get(vpiTimePrecision, 0);
|
|
|
|
val.format = vpiRealVal;
|
|
val.value.real = pow(10.0, prec-units) * now.low;
|
|
assert(now.high == 0);
|
|
|
|
vpi_put_value(call_handle, &val, 0, vpiNoDelay);
|
|
|
|
return 0;
|
|
}
|
|
|
|
void sys_time_register()
|
|
{
|
|
s_vpi_systf_data tf_data;
|
|
|
|
tf_data.type = vpiSysFunc;
|
|
tf_data.tfname = "$time";
|
|
tf_data.sysfunctype = vpiTimeFunc;
|
|
tf_data.calltf = sys_time_calltf;
|
|
tf_data.compiletf = sys_no_arg_compiletf;
|
|
tf_data.sizetf = 0;
|
|
tf_data.user_data = "$time";
|
|
vpi_register_systf(&tf_data);
|
|
|
|
tf_data.type = vpiSysFunc;
|
|
tf_data.tfname = "$realtime";
|
|
tf_data.sysfunctype = vpiRealFunc;
|
|
tf_data.calltf = sys_realtime_calltf;
|
|
tf_data.compiletf = sys_no_arg_compiletf;
|
|
tf_data.sizetf = 0;
|
|
tf_data.user_data = "$realtime";
|
|
vpi_register_systf(&tf_data);
|
|
|
|
tf_data.type = vpiSysFunc;
|
|
tf_data.tfname = "$stime";
|
|
tf_data.sysfunctype = vpiIntFunc;
|
|
tf_data.calltf = sys_time_calltf;
|
|
tf_data.compiletf = sys_no_arg_compiletf;
|
|
tf_data.sizetf = 0;
|
|
tf_data.user_data = "$stime";
|
|
vpi_register_systf(&tf_data);
|
|
|
|
tf_data.type = vpiSysFunc;
|
|
tf_data.tfname = "$simtime";
|
|
tf_data.sysfunctype = vpiTimeFunc;
|
|
tf_data.calltf = sys_time_calltf;
|
|
tf_data.compiletf = sys_no_arg_compiletf;
|
|
tf_data.sizetf = 0;
|
|
tf_data.user_data = "$simtime";
|
|
vpi_register_systf(&tf_data);
|
|
}
|