1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
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.
|