Don't generate code for undefined or unused routines

compiler/analyser.c

@@ -1546,10 +1546,10 @@ extern void read_program(struct analyser * a) {
                     fprintf(stderr, "declared but not defined\n");
                 } else {
                     fprintf(stderr, "defined but not used\n");
-                    q = q->next;
-                    *ptr = q;
-                    continue;
                 }
+                q = q->next;
+                *ptr = q;
+                continue;
             } else if (q->type == t_routine || q->type == t_grouping) {
                 /* It's OK to define a grouping but only use it to define other
                  * groupings.
@@ -1567,6 +1567,9 @@ extern void read_program(struct analyser * a) {
                             line_num,
                             name_of_name_type(q->type),
                             q->s);
+                    q = q->next;
+                    *ptr = q;
+                    continue;
                 }
             } else if (q->type == t_external) {
                 /* Unused is OK. */

compiler/generator.c

@@ -1425,6 +1425,7 @@ static void generate_literalstring(struct generator * g, struct node * p) {
 
 static void generate_define(struct generator * g, struct node * p) {
     struct name * q = p->name;
+    if (q->type == t_routine && !q->used) return;
     g->next_label = 0;
 
     g->S[0] = q->type == t_routine ? "static" : "extern";

compiler/generator_ada.c

@@ -1099,11 +1099,14 @@ static void generate_literalstring(struct generator * g, struct node * p) {
 }
 
 static void generate_define(struct generator * g, struct node * p) {
+    struct name * q = p->name;
+    if (q->type == t_routine && !q->used) return;
+
     struct str *saved_output;
     struct str *saved_declarations;
 
     /* Generate function header. */
-    g->V[0] = p->name;
+    g->V[0] = q;
     w(g, "~N~Mprocedure ~W0 (Z : in out Context_Type; Result : out Boolean) is~N");
     if (need_c_var(p->left)) {
         w(g, "~M~MC : Result_Index;~N");
@@ -1135,7 +1138,7 @@ static void generate_define(struct generator * g, struct node * p) {
             generate(g, p->left->right);
         }
     }
-    g->V[0] = p->name;
+    g->V[0] = q;
     w(g, "~-~Mend ~W0;~N");
 
     if (g->var_number) {

compiler/generator_csharp.c

@@ -1011,6 +1011,7 @@ static void generate_literalstring(struct generator * g, struct node * p) {
 
 static void generate_define(struct generator * g, struct node * p) {
     struct name * q = p->name;
+    if (q->type == t_routine && !q->used) return;
 
     struct str * saved_output = g->outbuf;
 

compiler/generator_go.c

@@ -999,6 +999,7 @@ static void generate_setup_context(struct generator * g) {
 
 static void generate_define(struct generator * g, struct node * p) {
     struct name * q = p->name;
+    if (q->type == t_routine && !q->used) return;
 
     struct str * saved_output = g->outbuf;
 

compiler/generator_java.c

@@ -970,6 +970,7 @@ static void generate_literalstring(struct generator * g, struct node * p) {
 
 static void generate_define(struct generator * g, struct node * p) {
     struct name * q = p->name;
+    if (q->type == t_routine && !q->used) return;
 
     struct str * saved_output = g->outbuf;
 

compiler/generator_js.c

@@ -1017,6 +1017,7 @@ static void generate_literalstring(struct generator * g, struct node * p) {
 
 static void generate_define(struct generator * g, struct node * p) {
     struct name * q = p->name;
+    if (q->type == t_routine && !q->used) return;
 
     struct str * saved_output = g->outbuf;
     struct str * saved_declarations = g->declarations;

compiler/generator_pascal.c

@@ -1030,11 +1030,14 @@ static void generate_literalstring(struct generator * g, struct node * p) {
 }
 
 static void generate_define(struct generator * g, struct node * p) {
+    struct name * q = p->name;
+    if (q->type == t_routine && !q->used) return;
+
     struct str *saved_output;
     struct str *saved_declarations;
 
     /* Generate function header. */
-    g->V[0] = p->name;
+    g->V[0] = q;
     w(g, "~N~MFunction T~n.~W0 : Boolean;~N");
 
     /* Save output*/

compiler/generator_python.c

@@ -1029,6 +1029,8 @@ static void generate_literalstring(struct generator * g, struct node * p) {
 
 static void generate_define(struct generator * g, struct node * p) {
     struct name * q = p->name;
+    if (q->type == t_routine && !q->used) return;
+    g->next_label = 0;
 
     struct str * saved_output = g->outbuf;
 

compiler/generator_rust.c

@@ -1002,6 +1002,7 @@ static void generate_setup_context(struct generator * g) {
 
 static void generate_define(struct generator * g, struct node * p) {
     struct name * q = p->name;
+    if (q->type == t_routine && !q->used) return;
 
     struct str * saved_output = g->outbuf;