From 221921aec474e17fe91d6ec32bf53761a70857b4 Mon Sep 17 00:00:00 2001
From: Jakob Kaivo <jkk@ung.org>
Date: Fri, 4 Mar 2022 12:34:32 -0500
Subject: fix linker errors

---
 data.c  | 5 +++++
 data.h  | 8 ++++----
 lex.c   | 2 +-
 steer.c | 4 ++--
 4 files changed, 12 insertions(+), 7 deletions(-)

diff --git a/data.c b/data.c
index b2a1bea..5814759 100644
--- a/data.c
+++ b/data.c
@@ -1313,3 +1313,8 @@ double r;
 
 /*  end of MIRANDA DATA REPRESENTATIONS  */
 
+word current_file;
+word files;
+word *hd,*tl;
+char *tag;
+
diff --git a/data.h b/data.h
index 6975f37..2130896 100644
--- a/data.h
+++ b/data.h
@@ -128,8 +128,8 @@ see also reset_pns(), make_pn(), sto_pn() in lex.c */
 /* works for both pnames and ids */
 
 extern int compiling,polyshowerror;
-word *hd,*tl;
-char *tag;
+extern word *hd,*tl;
+extern char *tag;
 char *getstring();
 double get_dbl(word);
 void dieclean(void);
@@ -161,14 +161,14 @@ extern word idsused;
 /* limit on length of shell commands (for /e, !, System) */
 #define pnlim 1024
 /* limit on length of pathnames */
-word files; /* a cons list of elements, each of which is of the form
+extern word files; /* a cons list of elements, each of which is of the form
                cons(cons(fileinfo(filename,mtime),share),definienda) 
                where share (=0,1) says if repeated instances are shareable. 
                Current script at the front followed by subsidiary files
                due to %insert and %include -- elements due to %insert have
                NIL definienda (they are attributed to the inserting script)
             */
-word current_file; /*pointer to current element of `files' during compilation*/
+extern word current_file; /*pointer to current element of `files' during compilation*/
 #define make_fil(name,time,share,defs) cons(cons(fileinfo(name,time),\
 cons(share,NIL)),defs)
 #define get_fil(fil) ((char *)hd[hd[hd[fil]]])
diff --git a/lex.c b/lex.c
index 0eb44c9..33efccd 100644
--- a/lex.c
+++ b/lex.c
@@ -43,7 +43,7 @@ word atnl=1,line_no=0;
 word lastline;
 word litstack=NIL,linostack=NIL;
 word c=' ', lastc;
-word commandmode;
+extern word commandmode;
 word common_stdin,common_stdinb,cook_stdin;
 word litmain=0,literate=0; /* flags "literate" comment convention */
 char *dic,*dicp,*dicq;
diff --git a/steer.c b/steer.c
index 422efbb..ba15a26 100644
--- a/steer.c
+++ b/steer.c
@@ -14,7 +14,7 @@
 #include <sys/stat.h>
 #include <fcntl.h> /* creat() */
 /* #include <sys/wait.h> /* seems not needed, oct 05 */
-struct stat buf; /* see man(2) stat - gets file status */
+extern struct stat buf; /* see man(2) stat - gets file status */
 
 #include "data.h"
 #include "big.h"
@@ -135,7 +135,7 @@ extern char *dicp,*dicq;
 char linebuf[BUFSIZE];  /* used for assorted purposes */
   /* NB cannot share with linebuf in lex.c, or !! goes wrong */
 static char ebuf[pnlim];
-word col;
+extern word col;
 char home_rc[pnlim+8];
 char lib_rc[pnlim+8];
 char *rc_error=NULL;
-- 
cgit v1.2.1