<pre style='margin:0'>
Ryan Schmidt (ryandesign) pushed a commit to branch master
in repository macports-ports.
</pre>
<p><a href="https://github.com/macports/macports-ports/commit/b7404a467d8f8777caf1ce159282476fe7d6980d">https://github.com/macports/macports-ports/commit/b7404a467d8f8777caf1ce159282476fe7d6980d</a></p>
<pre style="white-space: pre; background: #F8F8F8">The following commit(s) were added to refs/heads/master by this push:
<span style='display:block; white-space:pre;color:#404040;'> new b7404a467d8 cupl: Update to 1.10; fix build errors
</span>b7404a467d8 is described below
<span style='display:block; white-space:pre;color:#808000;'>commit b7404a467d8f8777caf1ce159282476fe7d6980d
</span>Author: Ryan Schmidt <ryandesign@macports.org>
AuthorDate: Thu Jan 12 22:01:33 2023 -0600
<span style='display:block; white-space:pre;color:#404040;'> cupl: Update to 1.10; fix build errors
</span>---
lang/cupl/Portfile | 34 ++++++++++++-----
lang/cupl/files/Makefile.patch | 60 ++++++++++++++++++++++++++++++
lang/cupl/files/cupl.h.patch | 29 +++++++++++++++
lang/cupl/files/cupl.l.patch | 14 +++++++
lang/cupl/files/cupl.y.patch | 13 +++++++
lang/cupl/files/execute.c.patch | 78 +++++++++++++++++++++++++++++++++++++++
lang/cupl/files/interpret.c.patch | 48 ++++++++++++++++++++++++
lang/cupl/files/main.c.patch | 44 ++++++++++++++++++++++
lang/cupl/files/monitor.c.patch | 70 +++++++++++++++++++++++++++++++++++
9 files changed, 381 insertions(+), 9 deletions(-)
<span style='display:block; white-space:pre;color:#808080;'>diff --git a/lang/cupl/Portfile b/lang/cupl/Portfile
</span><span style='display:block; white-space:pre;color:#808080;'>index 30c095cedf1..26941de1d9c 100644
</span><span style='display:block; white-space:pre;background:#e0e0ff;'>--- a/lang/cupl/Portfile
</span><span style='display:block; white-space:pre;background:#e0e0ff;'>+++ b/lang/cupl/Portfile
</span><span style='display:block; white-space:pre;background:#e0e0e0;'>@@ -1,12 +1,12 @@
</span> # -*- coding: utf-8; mode: tcl; tab-width: 4; indent-tabs-mode: nil; c-basic-offset: 4 -*- vim:fenc=utf-8:ft=tcl:et:sw=4:ts=4:sts=4
PortSystem 1.0
<span style='display:block; white-space:pre;background:#e0ffe0;'>+PortGroup makefile 1.0
</span>
name cupl
<span style='display:block; white-space:pre;background:#ffe0e0;'>-version 1.9
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+version 1.10
</span> categories lang
<span style='display:block; white-space:pre;background:#ffe0e0;'>-platforms darwin
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>-license GPL-2
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+license BSD
</span> maintainers nomaintainer
description CUPL/CORC interpreter
<span style='display:block; white-space:pre;background:#e0e0e0;'>@@ -18,17 +18,33 @@ long_description Interpreter for the archaic CUPL and CORC programming \
</span> homepage http://www.catb.org/~esr/cupl/
master_sites ${homepage}
<span style='display:block; white-space:pre;background:#ffe0e0;'>-checksums rmd160 8457c2f76cc21fa9e5df2f365d71c760540f41bf \
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>- sha256 1e2f78023c68706336f6666ba25e6e0f97ac81ee7b14155afb3d9a475577ea24
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+checksums rmd160 ad861d318f3cb6fc97943fbae66695788b2b262d \
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+ sha256 9eb7b945de31ce40980b1fe5e290fcb862bf258b22b31619a0f5b2a01a305fb6 \
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+ size 105087
</span>
<span style='display:block; white-space:pre;background:#ffe0e0;'>-use_configure no
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+patchfiles Makefile.patch \
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+ cupl.h.patch \
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+ cupl.l.patch \
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+ cupl.y.patch \
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+ execute.c.patch \
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+ interpret.c.patch \
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+ main.c.patch \
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+ monitor.c.patch
</span>
<span style='display:block; white-space:pre;background:#ffe0e0;'>-variant universal {}
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>-
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>-build.args CC="${configure.cc} ${configure.cflags} [get_canonical_archflags cc]"
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+# mv: y.tab.c: No such file or directory
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+use_parallel_build no
</span>
build.target cupl
<span style='display:block; white-space:pre;background:#e0ffe0;'>+# The Makefile directs us to set these variables this way for production use.
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+build.args CDEBUG= \
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+ YFLAGS=-l
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+test.run yes
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+test.dir ${worksrcpath}/test
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+test.cmd ./TESTALL
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+test.target
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+
</span> destroot {
xinstall -m 755 ${worksrcpath}/cupl ${destroot}${prefix}/bin
xinstall -m 644 ${worksrcpath}/cupl.1 ${destroot}${prefix}/share/man/man1
<span style='display:block; white-space:pre;color:#808080;'>diff --git a/lang/cupl/files/Makefile.patch b/lang/cupl/files/Makefile.patch
</span>new file mode 100644
<span style='display:block; white-space:pre;color:#808080;'>index 00000000000..d8e3b609fe9
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>--- /dev/null
</span><span style='display:block; white-space:pre;background:#e0e0ff;'>+++ b/lang/cupl/files/Makefile.patch
</span><span style='display:block; white-space:pre;background:#e0e0e0;'>@@ -0,0 +1,60 @@
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+Append (instead of assigning) to CFLAGS, and declare (by appending) and use
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+LDFLAGS, so that user- (or MacPorts-)specified flags aren't ignored.
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+Change _POSIX_SOURCE to _POSIX_C_SOURCE=2L to fix:
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+main.c:65:17: error: implicit declaration of function 'getopt' is invalid in C99 [-Werror,-Wimplicit-function-declaration]
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+Add tokens.h to dependencies of tokdump.o.
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+Remove duplicate declaration of dependencies of interpret.o.
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+Declare dependencies of main.o to fix (when building in parallel):
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+main.c:24:10: fatal error: 'tokens.h' file not found
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+Remove tokens.h from dependencies of monitor.o.
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+Preface the comment "# Hmmm...this is probably Bison-specific" with "@" to
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+prevent it from appearing in the terminal during the build.
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+Add cupl.h to dependencies of lextest.
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+--- Makefile.orig 2019-06-12 10:39:17.000000000 -0500
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>++++ Makefile 2023-01-12 20:54:04.000000000 -0600
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+@@ -5,11 +5,12 @@
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+ CDEBUG = -g # use -O for production, -g for debugging
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+ YFLAGS = -vt # use -l for production, -vt for debugging
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+-CFLAGS = $(CDEBUG) -D_POSIX_SOURCE -DPARSEDEBUG -DYYDEBUG=1
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>++CFLAGS += $(CDEBUG) -D_POSIX_C_SOURCE=2L -DPARSEDEBUG -DYYDEBUG=1
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>++LDFLAGS += -lm
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+ MODULES = main.o grammar.o lexer.o interpret.o tokdump.o execute.o monitor.o
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+ cupl: $(MODULES)
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+- $(CC) $(MODULES) -lm -o cupl
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>++ $(CC) $(MODULES) $(LDFLAGS) -o cupl
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+ # You can use either lex or flex
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+ #LEX = lex
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+@@ -30,18 +31,18 @@
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+ mv y.tab.h tokens.h
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+ grammar.o: grammar.c cupl.h
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+-tokdump.o: tokdump.c toktab.h
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>++tokdump.o: tokdump.c tokens.h toktab.h
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+ lexer.o: lexer.c tokens.h cupl.h
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+ interpret.o: interpret.c tokens.h cupl.h
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+-interpret.o: interpret.c tokens.h cupl.h
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>++main.o: main.c tokens.h cupl.h
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+ execute.o: execute.c tokens.h cupl.h
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+-monitor.o: monitor.c tokens.h cupl.h
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>++monitor.o: monitor.c cupl.h
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+ toktab.h: tokens.h
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+- # Hmmm...this is probably Bison-specific
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>++ @# Hmmm...this is probably Bison-specific
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+ awk <tokens.h >toktab.h '/^# define / {print $$3 ", \"" $$3 "\","}'
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+-lextest: lexer.c tokens.h tokdump.o
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>++lextest: lexer.c tokens.h cupl.h tokdump.o
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+ $(CC) $(CFLAGS) -DMAIN lexer.c tokdump.o -o lextest
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+ cupl.1: cupl.xml
</span><span style='display:block; white-space:pre;color:#808080;'>diff --git a/lang/cupl/files/cupl.h.patch b/lang/cupl/files/cupl.h.patch
</span>new file mode 100644
<span style='display:block; white-space:pre;color:#808080;'>index 00000000000..f1a0784e17d
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>--- /dev/null
</span><span style='display:block; white-space:pre;background:#e0e0ff;'>+++ b/lang/cupl/files/cupl.h.patch
</span><span style='display:block; white-space:pre;background:#e0e0e0;'>@@ -0,0 +1,29 @@
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+Declare cupl_reset_write and cupl_eol_write function parameters to fix:
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+./cupl.h:134:22: warning: this function declaration is not a prototype [-Wstrict-prototypes]
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+./cupl.h:135:20: warning: this function declaration is not a prototype [-Wstrict-prototypes]
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+Remove first parameter of cupl_min and cupl_max to match changes in monitor.c.
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+--- cupl.h.orig 2015-11-21 17:51:45.000000000 -0600
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>++++ cupl.h 2023-01-12 21:34:33.000000000 -0600
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+@@ -131,8 +131,8 @@
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+ extern value allocate_value(int rank, int i, int j);
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+ extern void deallocate_value(value *);
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+-void cupl_reset_write();
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+-void cupl_eol_write();
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>++void cupl_reset_write(void);
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>++void cupl_eol_write(void);
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+ void cupl_scalar_write(char *name, scalar quant);
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+ void cupl_string_write(char *s);
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+@@ -151,8 +151,8 @@
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+ extern value cupl_ln(value);
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+ extern value cupl_log(value);
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+ extern value cupl_sqrt(value);
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+-extern value cupl_max(value, value);
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+-extern value cupl_min(value, value);
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>++extern value cupl_max(value);
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>++extern value cupl_min(value);
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+ extern value cupl_rand(value);
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+ extern value cupl_det(value);
</span><span style='display:block; white-space:pre;color:#808080;'>diff --git a/lang/cupl/files/cupl.l.patch b/lang/cupl/files/cupl.l.patch
</span>new file mode 100644
<span style='display:block; white-space:pre;color:#808080;'>index 00000000000..4ff0abcb696
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>--- /dev/null
</span><span style='display:block; white-space:pre;background:#e0e0ff;'>+++ b/lang/cupl/files/cupl.l.patch
</span><span style='display:block; white-space:pre;background:#e0e0e0;'>@@ -0,0 +1,14 @@
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+Specify return value of main to fix:
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+cupl.l:220:1: warning: type specifier missing, defaults to 'int' [-Wimplicit-int]
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+TODO: Declare function parameters for main and yywrap.
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+--- cupl.l.orig 2015-11-21 17:59:17.000000000 -0600
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>++++ cupl.l 2023-01-12 21:36:53.000000000 -0600
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+@@ -217,6 +217,7 @@
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+ YYSTYPE yylval;
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+ int verbose;
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>++int
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+ main()
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+ {
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+ int t;
</span><span style='display:block; white-space:pre;color:#808080;'>diff --git a/lang/cupl/files/cupl.y.patch b/lang/cupl/files/cupl.y.patch
</span>new file mode 100644
<span style='display:block; white-space:pre;color:#808080;'>index 00000000000..ea5c7d343f5
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>--- /dev/null
</span><span style='display:block; white-space:pre;background:#e0e0ff;'>+++ b/lang/cupl/files/cupl.y.patch
</span><span style='display:block; white-space:pre;background:#e0e0e0;'>@@ -0,0 +1,13 @@
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+Declare yylex to fix:
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+y.tab.c:1585:16: error: implicit declaration of function 'yylex' is invalid in C99 [-Werror,-Wimplicit-function-declaration]
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+--- cupl.y.orig 2015-11-21 17:59:23.000000000 -0600
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>++++ cupl.y 2023-01-12 19:27:59.000000000 -0600
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+@@ -34,6 +34,8 @@
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+ #include "cupl.h"
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>++int yylex(void);
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>++
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+ #ifdef YYBISON
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+ int yydebug;
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+ #endif /* YYBISON */
</span><span style='display:block; white-space:pre;color:#808080;'>diff --git a/lang/cupl/files/execute.c.patch b/lang/cupl/files/execute.c.patch
</span>new file mode 100644
<span style='display:block; white-space:pre;color:#808080;'>index 00000000000..5963530acd9
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>--- /dev/null
</span><span style='display:block; white-space:pre;background:#e0e0ff;'>+++ b/lang/cupl/files/execute.c.patch
</span><span style='display:block; white-space:pre;background:#e0e0e0;'>@@ -0,0 +1,78 @@
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+Include string.h to fix:
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+execute.c:84:11: error: implicitly declaring library function 'strcmp' with type 'int (const char *, const char *)' [-Werror,-Wimplicit-function-declaration]
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+Remove argument when invoking cupl_reset_write to fix:
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+execute.c:193:19: error: too many arguments to function call, expected 0, have 1
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+Remove first parameter when calling cupl_min and cupl_max to fix:
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+execute.c:320:20: warning: variable 'leftside' is uninitialized when used here [-Wuninitialized]
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+Change result.rank == FAIL to result.rank = FAIL to fix:
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+execute.c:610:14: warning: equality comparison result unused [-Wunused-comparison]
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+execute.c:619:14: warning: equality comparison result unused [-Wunused-comparison]
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+execute.c:633:14: warning: equality comparison result unused [-Wunused-comparison]
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+--- execute.c.orig 2015-11-21 17:42:11.000000000 -0600
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>++++ execute.c 2023-01-12 21:33:01.000000000 -0600
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+@@ -15,6 +15,7 @@
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+ *****************************************************************************/
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+ /*LINTLIBRARY*/
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+ #include <stdio.h>
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>++#include <string.h>
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+ #include <setjmp.h>
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+ #include <math.h>
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+ #include "cupl.h"
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+@@ -189,7 +190,7 @@
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+ return(result);
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+ case WRITE:
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+- cupl_reset_write(0);
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>++ cupl_reset_write();
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+ for_cdr(np, tree)
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+ eval_write(np->car);
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+ cupl_eol_write();
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+@@ -316,16 +317,14 @@
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+ case MAX:
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+ rightside = EVAL_WRAP(cupl_eval(tree->cdr));
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+- result = cupl_max(leftside, rightside);
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+- deallocate_value(&leftside);
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>++ result = cupl_max(rightside);
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+ deallocate_value(&rightside);
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+ RETURN_WRAP(tree, tree->car, tree->cdr, result)
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+ return(result);
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+ case MIN:
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+ rightside = EVAL_WRAP(cupl_eval(tree->cdr));
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+- result = cupl_min(leftside, rightside);
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+- deallocate_value(&leftside);
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>++ result = cupl_min(rightside);
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+ deallocate_value(&rightside);
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+ RETURN_WRAP(tree, tree->car, tree->cdr, result)
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+ return(result);
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+@@ -606,7 +605,7 @@
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+ leftside = EVAL_WRAP(cupl_eval(tree->car));
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+ if (leftside.rank)
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+ cupl_eval(tree->cdr);
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+- result.rank == FAIL;
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>++ result.rank = FAIL;
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+ return(result);
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+ case IFELSE:
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+@@ -615,7 +614,7 @@
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+ cupl_eval(tree->cdr->car);
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+ else
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+ cupl_eval(tree->cdr->cdr);
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+- result.rank == FAIL;
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>++ result.rank = FAIL;
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+ return(result);
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+ case STOP:
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+@@ -629,7 +628,7 @@
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+ case WATCH:
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+ for_cdr(np, tree)
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+ np->car->syminf->watchcount = 10;
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+- result.rank == FAIL;
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>++ result.rank = FAIL;
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+ return(result);
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+ default:
</span><span style='display:block; white-space:pre;color:#808080;'>diff --git a/lang/cupl/files/interpret.c.patch b/lang/cupl/files/interpret.c.patch
</span>new file mode 100644
<span style='display:block; white-space:pre;color:#808080;'>index 00000000000..83f57ccaf4c
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>--- /dev/null
</span><span style='display:block; white-space:pre;background:#e0e0ff;'>+++ b/lang/cupl/files/interpret.c.patch
</span><span style='display:block; white-space:pre;background:#e0e0e0;'>@@ -0,0 +1,48 @@
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+Include string.h to fix:
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+interpret.c:401:7: error: implicitly declaring library function 'strcmp' with type 'int (const char *, const char *)' [-Werror,-Wimplicit-function-declaration]
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+Add braces for if statements to fix:
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+interpret.c:132:2: warning: add explicit braces to avoid dangling else [-Wdangling-else]
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+interpret.c:139:2: warning: add explicit braces to avoid dangling else [-Wdangling-else]
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+interpret.c:146:2: warning: add explicit braces to avoid dangling else [-Wdangling-else]
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+--- interpret.c.orig 2015-11-21 17:42:11.000000000 -0600
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>++++ interpret.c 2023-01-12 19:12:58.000000000 -0600
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+@@ -21,6 +21,7 @@
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+ /*LINTLIBRARY*/
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+ #include <stdio.h>
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+ #include <stdlib.h>
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>++#include <string.h>
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+ #include "cupl.h"
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+ #include "tokens.h"
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+@@ -126,24 +127,30 @@
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+ /* count label definitions */
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+ if (tp->type == LABEL)
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>++ {
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+ if (tp->cdr->type == BLOCK)
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+ tp->car->syminf->blabeldef++;
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+ else if (tp->cdr->type != END)
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+ tp->car->syminf->slabeldef++;
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>++ }
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+ /* count block label references */
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+ if (BLABELREF(tp->type))
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>++ {
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+ if (tp->car && tp->car->type == IDENTIFIER)
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+ tp->car->syminf->blabelref++;
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+ else if (tp->cdr && tp->cdr->type == IDENTIFIER)
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+ tp->cdr->syminf->blabelref++;
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>++ }
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+ /* count statement label references */
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+ if (SLABELREF(tp->type))
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>++ {
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+ if (tp->car && tp->car->type == IDENTIFIER)
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+ tp->car->syminf->slabelref++;
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+ else if (tp->cdr && tp->cdr->type == IDENTIFIER)
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+ tp->cdr->syminf->slabelref++;
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>++ }
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+ /* count identifier assignments */
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+ if (VARSET(tp->type))
</span><span style='display:block; white-space:pre;color:#808080;'>diff --git a/lang/cupl/files/main.c.patch b/lang/cupl/files/main.c.patch
</span>new file mode 100644
<span style='display:block; white-space:pre;color:#808080;'>index 00000000000..2a52dbbfb2f
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>--- /dev/null
</span><span style='display:block; white-space:pre;background:#e0e0ff;'>+++ b/lang/cupl/files/main.c.patch
</span><span style='display:block; white-space:pre;background:#e0e0e0;'>@@ -0,0 +1,44 @@
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+Include stdlib.h to fix:
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+main.c:69:19: error: implicit declaration of function 'atoi' is invalid in C99 [-Werror,-Wimplicit-function-declaration]
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+Include unistd.h to fix:
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+main.c:65:17: error: implicit declaration of function 'getopt' is invalid in C99 [-Werror,-Wimplicit-function-declaration]
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+Include tokens.h to fix:
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+main.c:48:5: error: implicit declaration of function 'yyparse' is invalid in C99 [-Werror,-Wimplicit-function-declaration]
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+Specify return value of main to fix:
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+main.c:58:1: warning: type specifier missing, defaults to 'int' [-Wimplicit-int]
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+Delete declaration of unused function getenv to fix:
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+main.c:66:28: warning: this function declaration is not a prototype [-Wstrict-prototypes]
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+--- main.c.orig 2015-11-21 17:42:11.000000000 -0600
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>++++ main.c 2023-01-12 21:07:44.000000000 -0600
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+@@ -16,9 +16,12 @@
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+ *****************************************************************************/
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+ /*LINTLIBRARY*/
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+ #include <stdio.h>
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>++#include <stdlib.h>
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+ #include <ctype.h>
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+ #include <string.h>
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>++#include <unistd.h>
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+ #include "cupl.h"
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>++#include "tokens.h"
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+ extern FILE *yyin; /* the program text file descriptor */
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+ extern int yylineno; /* the current source line count */
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+@@ -53,13 +56,13 @@
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+ return(0);
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+ }
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>++int
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+ main(argc, argv)
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+ int argc;
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+ char *argv[];
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+ {
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+ extern int optind; /* getopt() sets this */
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+ extern char *optarg; /* and this */
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+- extern char *getenv();
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+ int c;
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+ while ((c = getopt(argc, argv, "f:v:w:")) != EOF)
</span><span style='display:block; white-space:pre;color:#808080;'>diff --git a/lang/cupl/files/monitor.c.patch b/lang/cupl/files/monitor.c.patch
</span>new file mode 100644
<span style='display:block; white-space:pre;color:#808080;'>index 00000000000..e7f4c9c4f03
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>--- /dev/null
</span><span style='display:block; white-space:pre;background:#e0e0ff;'>+++ b/lang/cupl/files/monitor.c.patch
</span><span style='display:block; white-space:pre;background:#e0e0e0;'>@@ -0,0 +1,70 @@
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+Declare cupl_reset_write function parameter to fix:
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+monitor.c:157:22: warning: this old-style function definition is not preceded by a prototype [-Wstrict-prototypes]
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+Remove first parameter of curl_min and curl_max to fix:
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+monitor.c:463:22: warning: unused parameter 'left' [-Wunused-parameter]
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+monitor.c:477:22: warning: unused parameter 'left' [-Wunused-parameter]
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+Remove unused variable equal to fix:
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+monitor.c:547:7: warning: unused variable 'equal' [-Wunused-variable]
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+--- monitor.c.orig 2015-11-21 17:42:11.000000000 -0600
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>++++ monitor.c 2023-01-12 21:38:33.000000000 -0600
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+@@ -12,8 +12,8 @@
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+ value allocate_value(int rank, int i, int j)
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+ void deallocate_value(value *v)
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+- void cupl_reset_write()
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+- void cupl_eol_write()
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>++ void cupl_reset_write(void)
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>++ void cupl_eol_write(void)
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+ void cupl_scalar_write(char *name, scalar quant)
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+ void cupl_string_write(char *s)
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+@@ -31,8 +31,8 @@
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+ value cupl_ln(value)
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+ value cupl_log(value)
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+ value cupl_sqrt(value)
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+- value cupl_max(value, value)
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+- value cupl_min(value, value)
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>++ value cupl_max(value)
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>++ value cupl_min(value)
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+ value cupl_rand(value)
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+ bool cupl_eq(value, value)
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+@@ -154,7 +154,7 @@
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+ static int used;
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+-void cupl_reset_write()
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>++void cupl_reset_write(void)
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+ {
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+ used = 0;
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+ }
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+@@ -460,7 +460,7 @@
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+ *
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+ ****************************************************************************/
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+-value cupl_max(value left, value right)
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>++value cupl_max(value right)
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+ /* apply max function */
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+ {
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+ value result;
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+@@ -474,8 +474,8 @@
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+ return(result);
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+ }
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+-value cupl_min(value left, value right)
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+-/* apply min functionnot yet supported for vectors and matrices */
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>++value cupl_min(value right)
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>++/* apply min function -- not yet supported for vectors and matrices */
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+ {
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+ value result;
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+ int n;
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+@@ -544,7 +544,6 @@
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+ die("LE failed, operands of different sizes or ranks\n");
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+ else
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+ {
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+- bool equal = TRUE;
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+ int n;
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+
</span></pre><pre style='margin:0'>
</pre>