version 1.2, 2025/03/09 15:20:18
|
version 1.4, 2025/04/09 19:52:02
|
Line 1
|
Line 1
|
/* |
/* |
* * |
* $Id$ |
* * * |
|
* * * |
|
* *************** |
|
* * * * * |
|
* * MUMPS * |
|
* * * * * |
|
* *************** |
|
* * * |
|
* * * |
|
* * |
|
* |
|
* cmd_throw.c |
|
* Implementation of the THROW command |
* Implementation of the THROW command |
* |
* |
* |
* |
Line 35
|
Line 23
|
* You should have received a copy of the GNU Affero Public License |
* You should have received a copy of the GNU Affero Public License |
* along with FreeM. If not, see <https://www.gnu.org/licenses/>. |
* along with FreeM. If not, see <https://www.gnu.org/licenses/>. |
* |
* |
|
* $Log$ |
|
* Revision 1.4 2025/04/09 19:52:02 snw |
|
* Eliminate as many warnings as possible while building with -Wall |
|
* |
|
* Revision 1.3 2025/03/09 19:14:24 snw |
|
* First phase of REUSE compliance and header reformat |
|
* |
|
* |
|
* SPDX-FileCopyrightText: (C) 2025 Coherent Logic Development LLC |
|
* SPDX-License-Identifier: AGPL-3.0-or-later |
**/ |
**/ |
|
|
#include <string.h> |
#include <string.h> |
Line 55 MRESULT cmd_throw(MACTION *ra)
|
Line 53 MRESULT cmd_throw(MACTION *ra)
|
NULLPTRCHK (throw_buf, "cmd_throw"); |
NULLPTRCHK (throw_buf, "cmd_throw"); |
|
|
expr (STRING); |
expr (STRING); |
if (merr ()) return merr (); |
if (merr ()) { |
|
free (throw_buf); |
|
return merr (); |
|
} |
|
|
stcnv_m2c (argptr); |
stcnv_m2c (argptr); |
|
|