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
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
|
From: Colin Watson <cjwatson@debian.org>
Date: Fri, 17 Apr 2020 20:24:30 +0100
Subject: Fix build with gcc -fno-common
Bug-Debian: https://bugs.debian.org/957185
Forwarded: no
Last-Update: 2020-04-17
!Note about an important difference between arduino-ctags and exuberant-ctags!
The original exuberant-ctags (version 5.9) has already a file objc.c
which the original patch from the Debian package did cover, this part was
removed so the patch can apply to the arduino-ctags version too.
---
ocaml.c | 16 ++++++++--------
1 file changed, 8 insertions(+), 8 deletions(-)
diff --git a/ocaml.c b/ocaml.c
index 8fd6872..b1cdec5 100644
--- a/ocaml.c
+++ b/ocaml.c
@@ -494,26 +494,26 @@ typedef void (*parseNext) (vString * const ident, ocaToken what);
/********** Helpers */
/* This variable hold the 'parser' which is going to
* handle the next token */
-parseNext toDoNext;
+static parseNext toDoNext;
/* Special variable used by parser eater to
* determine which action to put after their
* job is finished. */
-parseNext comeAfter;
+static parseNext comeAfter;
/* If a token put an end to current delcaration/
* statement */
-ocaToken terminatingToken;
+static ocaToken terminatingToken;
/* Token to be searched by the different
* parser eater. */
-ocaToken waitedToken;
+static ocaToken waitedToken;
/* name of the last class, used for
* context stacking. */
-vString *lastClass;
+static vString *lastClass;
-vString *voidName;
+static vString *voidName;
typedef enum _sContextKind {
ContextStrong,
@@ -539,9 +539,9 @@ typedef struct _sOcamlContext {
/* context stack, can be used to output scope information
* into the tag file. */
-ocamlContext stack[OCAML_MAX_STACK_SIZE];
+static ocamlContext stack[OCAML_MAX_STACK_SIZE];
/* current position in the tag */
-int stackIndex;
+static int stackIndex;
/* special function, often recalled, so putting it here */
static void globalScope (vString * const ident, ocaToken what);
|
