|
|
| 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); |