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

V0.9: Free the iterator if there are extra arguments. 

To avoid extra memory usage on error free the iterator if there are
extra arguments.
This commit is contained in:
Cary R 2011-10-05 17:00:08 -07:00 committed by Stephen Williams
parent f874e81606
commit b7b2d710b1
2 changed files with 6 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
vpi/v2005_math.c
View File

@ -2,7 +2,7 @@
* Verilog-2005 math library for Icarus Verilog * Verilog-2005 math library for Icarus Verilog
* http://www.icarus.com/eda/verilog/ * http://www.icarus.com/eda/verilog/
* *
* Copyright (C) 2007-2010 Cary R. (cygcary@yahoo.com) * Copyright (C) 2007-2011 Cary R. (cygcary@yahoo.com)
* *
* This program is free software; you can redistribute it and/or modify * This program is free software; you can redistribute it and/or modify
* it under the terms of the GNU General Public License as published by * it under the terms of the GNU General Public License as published by
@ -196,6 +196,7 @@ static PLI_INT32 va_single_argument_compiletf(PLI_BYTE8 *ud)
arg = vpi_scan(argv); arg = vpi_scan(argv);
if (arg != 0) { if (arg != 0) {
va_error_message(callh, "%s takes only one argument.\n", name); va_error_message(callh, "%s takes only one argument.\n", name);
vpi_free_object(argv);
} }
/* Get the function that is to be used by the calltf routine. */ /* Get the function that is to be used by the calltf routine. */
@ -285,6 +286,7 @@ static PLI_INT32 va_double_argument_compiletf(PLI_BYTE8 *ud)
arg = vpi_scan(argv); arg = vpi_scan(argv);
if (arg != 0) { if (arg != 0) {
va_error_message(callh, "%s takes only two arguments.\n", name); va_error_message(callh, "%s takes only two arguments.\n", name);
vpi_free_object(argv);
} }
/* Get the function that is to be used by the calltf routine. */ /* Get the function that is to be used by the calltf routine. */

4
vpi/va_math.c
View File

@ -2,7 +2,7 @@
* Verilog-A math library for Icarus Verilog * Verilog-A math library for Icarus Verilog
* http://www.icarus.com/eda/verilog/ * http://www.icarus.com/eda/verilog/
* *
* Copyright (C) 2007-2010 Cary R. (cygcary@yahoo.com) * Copyright (C) 2007-2011 Cary R. (cygcary@yahoo.com)
* *
* This program is free software; you can redistribute it and/or modify * This program is free software; you can redistribute it and/or modify
* it under the terms of the GNU General Public License as published by * it under the terms of the GNU General Public License as published by
@ -223,6 +223,7 @@ static PLI_INT32 va_single_argument_compiletf(PLI_BYTE8 *ud)
arg = vpi_scan(argv); arg = vpi_scan(argv);
if (arg != 0) { if (arg != 0) {
va_error_message(callh, "%s takes only one argument.\n", name); va_error_message(callh, "%s takes only one argument.\n", name);
vpi_free_object(argv);
} }
/* Get the function that is to be used by the calltf routine. */ /* Get the function that is to be used by the calltf routine. */
@ -312,6 +313,7 @@ static PLI_INT32 va_double_argument_compiletf(PLI_BYTE8 *ud)
arg = vpi_scan(argv); arg = vpi_scan(argv);
if (arg != 0) { if (arg != 0) {
va_error_message(callh, "%s takes only two arguments.\n", name); va_error_message(callh, "%s takes only two arguments.\n", name);
vpi_free_object(argv);
} }
/* Get the function that is to be used by the calltf routine. */ /* Get the function that is to be used by the calltf routine. */