summaryrefslogtreecommitdiff
path: root/debian/patches/libapl.patch
diff options
context:
space:
mode:
Diffstat (limited to 'debian/patches/libapl.patch')
-rw-r--r--debian/patches/libapl.patch40
1 files changed, 40 insertions, 0 deletions
diff --git a/debian/patches/libapl.patch b/debian/patches/libapl.patch
new file mode 100644
index 0000000..4e1666a
--- /dev/null
+++ b/debian/patches/libapl.patch
@@ -0,0 +1,40 @@
+Index: apl/src/libapl.h
+===================================================================
+--- apl.orig/src/libapl.h
++++ apl/src/libapl.h
+@@ -51,11 +51,11 @@ enum C_CellType
+ };
+
+ // errors codes
+-enum LIBAPL_error
++typedef enum LIBAPL_error
+ {
+ #define err_def(c, _txt, major, minor) LAE_ ## c = (major << 16 | minor),
+ #include "Error.def"
+-};
++} LIBAPL_error;
+
+ #ifdef __cplusplus
+
+@@ -72,7 +72,7 @@ struct Value;
+ typedef struct Value * APL_value;
+
+ struct Function;
+-typedef struct const Function * APL_function;
++typedef const struct Function * APL_function;
+
+ #endif
+
+Index: apl/src/Workspace.hh
+===================================================================
+--- apl.orig/src/Workspace.hh
++++ apl/src/Workspace.hh
+@@ -209,7 +209,7 @@ public:
+ static StateIndicator * SI_top_fun();
+
+ /// the topmost SI with an error, maybe require ⎕L, ⎕R, or ⎕X.
+- static StateIndicator * SI_top_error(bool quad_LRX);
++ static StateIndicator * SI_top_error(bool quad_LRX = false);
+
+ /// lookup an existing name (user defined or ⎕xx, var or function).
+ /// return 0 if not found.