luke
/
iverilog
mirror of https://github.com/steveicarus/iverilog.git
1
0
Fork 0
Code Issues Packages Projects Releases Wiki Activity

Add the $abstime() system function from VASM-2.3. 

This patch adds the $abstime() system function from VAM-2.3.
It returns the current time as a real value scaled to seconds.
This commit is contained in:
Cary R 2009-01-09 15:24:55 -08:00 committed by Stephen Williams
parent 5cf7e26acf
commit edc4bc1923
2 changed files with 22 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

28
vpi/sys_time.c
View File

@ -1,5 +1,5 @@
/*
* Copyright (c) 2000-2008 Stephen Williams (steve@icarus.com)
* Copyright (c) 2000-2009 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
@ -80,25 +80,30 @@ static PLI_INT32 sys_time_calltf(PLI_BYTE8*name)
return 0;
}
/* This also supports $abstime() from VAMS-2.3. */
static PLI_INT32 sys_realtime_calltf(PLI_BYTE8*name)
{
s_vpi_value val;
s_vpi_time now;
vpiHandle call_handle;
vpiHandle callh;
vpiHandle mod;
call_handle = vpi_handle(vpiSysTfCall, 0);
assert(call_handle);
callh = vpi_handle(vpiSysTfCall, 0);
assert(callh);
mod = sys_func_module(call_handle);
mod = sys_func_module(callh);
now.type = vpiScaledRealTime;
vpi_get_time(mod, &now);
/* For $abstime() we return the time in second. */
if (strcmp(name, "$abstime") == 0) {
now.real *= pow(10.0, vpi_get(vpiTimeUnit, mod));
}
val.format = vpiRealVal;
val.value.real = now.real;
vpi_put_value(call_handle, &val, 0, vpiNoDelay);
vpi_put_value(callh, &val, 0, vpiNoDelay);
return 0;
}
@ -142,4 +147,13 @@ void sys_time_register()
tf_data.sizetf = 0;
tf_data.user_data = "$simtime";
vpi_register_systf(&tf_data);
tf_data.type = vpiSysFunc;
tf_data.tfname = "$abstime";
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 = "$abstime";
vpi_register_systf(&tf_data);
}

1
vpi/system.sft
View File

@ -16,5 +16,6 @@ $dist_t vpiSysFuncInt
$dist_erlang vpiSysFuncInt
$clog2 vpiSysFuncInt
$abstime vpiSysFuncReal
$simparam vpiSysFuncReal
$simparam$str vpiSysFuncSized 1024 unsigned