11/*
2- * Copyright (c) 2012-2025 Stephen Williams (steve@icarus.com)
2+ * Copyright (c) 2012-2026 Stephen Williams (steve@icarus.com)
33 *
44 * This source code is free software; you can redistribute it
55 * and/or modify it in source code form under the terms of the GNU
@@ -73,7 +73,7 @@ static PLI_INT32 two_arg_compiletf(ICARUS_VPI_CONST PLI_BYTE8*name)
7373 }
7474
7575 arg = vpi_scan (argv );
76- if (argv == 0 ) {
76+ if (arg == 0 ) {
7777 vpi_printf ("ERROR: %s:%d: " , vpi_get_str (vpiFile , callh ),
7878 (int )vpi_get (vpiLineNo , callh ));
7979 vpi_printf ("%s missing object argument.\n" , name );
@@ -83,7 +83,7 @@ static PLI_INT32 two_arg_compiletf(ICARUS_VPI_CONST PLI_BYTE8*name)
8383 }
8484
8585 arg = vpi_scan (argv );
86- if (argv == 0 ) {
86+ if (arg == 0 ) {
8787 vpi_printf ("ERROR: %s:%d: " , vpi_get_str (vpiFile , callh ),
8888 (int )vpi_get (vpiLineNo , callh ));
8989 vpi_printf ("%s missing method argument.\n" , name );
@@ -468,6 +468,7 @@ void v2009_string_register(void)
468468 tf_data .sizetf = 0 ;
469469 tf_data .user_data = "10" ;
470470 res = vpi_register_systf (& tf_data );
471+ vpip_make_systf_system_defined (res );
471472
472473 tf_data .type = vpiSysTask ;
473474 tf_data .tfname = "$ivl_string_method$hextoa" ;
@@ -476,6 +477,7 @@ void v2009_string_register(void)
476477 tf_data .sizetf = 0 ;
477478 tf_data .user_data = "16" ;
478479 res = vpi_register_systf (& tf_data );
480+ vpip_make_systf_system_defined (res );
479481
480482 tf_data .type = vpiSysTask ;
481483 tf_data .tfname = "$ivl_string_method$octtoa" ;
@@ -484,6 +486,7 @@ void v2009_string_register(void)
484486 tf_data .sizetf = 0 ;
485487 tf_data .user_data = "8" ;
486488 res = vpi_register_systf (& tf_data );
489+ vpip_make_systf_system_defined (res );
487490
488491 tf_data .type = vpiSysTask ;
489492 tf_data .tfname = "$ivl_string_method$bintoa" ;
@@ -492,6 +495,7 @@ void v2009_string_register(void)
492495 tf_data .sizetf = 0 ;
493496 tf_data .user_data = "2" ;
494497 res = vpi_register_systf (& tf_data );
498+ vpip_make_systf_system_defined (res );
495499
496500 tf_data .type = vpiSysTask ;
497501 tf_data .tfname = "$ivl_string_method$realtoa" ;
@@ -500,6 +504,5 @@ void v2009_string_register(void)
500504 tf_data .sizetf = 0 ;
501505 tf_data .user_data = "$ivl_string_method$realtoa" ;
502506 res = vpi_register_systf (& tf_data );
503-
504507 vpip_make_systf_system_defined (res );
505508}
0 commit comments