Better check for scripts without entry point and without public functions.

compuphase · compuphase · commit eeca7935f620 · 2023-07-20T20:57:54.000+02:00
Updated comment headers on changed files.
diff --git a/amx/amx.c b/amx/amx.c
@@ -14,7 +14,7 @@
  *  License for the specific language governing permissions and limitations
  *  under the License.
  *
- *  Version: $Id: amx.c 6965 2023-07-20 15:44:35Z thiadmer $
+ *  Version: $Id: amx.c 6966 2023-07-20 18:46:01Z thiadmer $
  */
 
 #define WIN32_LEAN_AND_MEAN
diff --git a/amx/amx.h b/amx/amx.h
@@ -14,7 +14,7 @@
  *  License for the specific language governing permissions and limitations
  *  under the License.
  *
- *  Version: $Id: amx.h 6964 2023-07-19 19:08:42Z thiadmer $
+ *  Version: $Id: amx.h 6965 2023-07-20 15:44:35Z thiadmer $
  */
 
 #ifndef AMX_H_INCLUDED
diff --git a/amx/amxfile.c b/amx/amxfile.c
@@ -1,6 +1,6 @@
 /* Text file I/O module for the Pawn Abstract Machine
  *
- *  Copyright (c) CompuPhase, 2003-2020
+ *  Copyright (c) CompuPhase, 2003-2023
  *
  *  Licensed under the Apache License, Version 2.0 (the "License"); you may not
  *  use this file except in compliance with the License. You may obtain a copy
@@ -14,7 +14,7 @@
  *  License for the specific language governing permissions and limitations
  *  under the License.
  *
- *  Version: $Id: amxfile.c 6131 2020-04-29 19:47:15Z thiadmer $
+ *  Version: $Id: amxfile.c 6965 2023-07-20 15:44:35Z thiadmer $
  */
 #if defined _UNICODE || defined __UNICODE__ || defined UNICODE
 # if !defined UNICODE   /* for Windows */
diff --git a/amx/amxtime.c b/amx/amxtime.c
@@ -14,7 +14,7 @@
  *  License for the specific language governing permissions and limitations
  *  under the License.
  *
- *  Version: $Id: amxtime.c 6131 2020-04-29 19:47:15Z thiadmer $
+ *  Version: $Id: amxtime.c 6965 2023-07-20 15:44:35Z thiadmer $
  */
 #include <time.h>
 #include <assert.h>
diff --git a/compiler/sc1.c b/compiler/sc1.c
@@ -23,7 +23,7 @@
  *  License for the specific language governing permissions and limitations
  *  under the License.
  *
- *  Version: $Id: sc1.c 6965 2023-07-20 15:44:35Z thiadmer $
+ *  Version: $Id: sc1.c 6966 2023-07-20 18:46:01Z thiadmer $
  */
 #include <assert.h>
 #include <ctype.h>
@@ -5432,7 +5432,7 @@ static int testsymbols(symbol *root,int level,int testlabs,int testconst)
           error(203,symname);       /* symbol isn't used ... (and not public/native/stock) */
         } /* if */
       } /* if */
-      if ((sym->usage & uPUBLIC)!=0 || (sym->flags & flgENTRYPOINT)!=0)
+      if (((sym->usage & uPUBLIC)!=0 || (sym->flags & flgENTRYPOINT)!=0) && (sym->usage & uDEFINE)!=0)
         entry=TRUE;                 /* there is an entry point */
       /* also mark the function to the debug information */
       if (((sym->usage & uREAD)!=0 || (sym->usage & uPUBLIC)!=0 && (sym->usage & uDEFINE)!=0)
diff --git a/compiler/sc2.c b/compiler/sc2.c
@@ -1,6 +1,6 @@
 /*  Pawn compiler - File input, preprocessing and lexical analysis functions
  *
- *  Copyright (c) CompuPhase, 1997-2020
+ *  Copyright (c) CompuPhase, 1997-2023
  *
  *  Licensed under the Apache License, Version 2.0 (the "License"); you may not
  *  use this file except in compliance with the License. You may obtain a copy
@@ -14,7 +14,7 @@
  *  License for the specific language governing permissions and limitations
  *  under the License.
  *
- *  Version: $Id: sc2.c 6932 2023-04-03 13:56:19Z thiadmer $
+ *  Version: $Id: sc2.c 6965 2023-07-20 15:44:35Z thiadmer $
  */
 #include <assert.h>
 #include <stdio.h>
diff --git a/compiler/sc3.c b/compiler/sc3.c
@@ -1,6 +1,6 @@
 /*  Pawn compiler - Recursive descend expresion parser
  *
- *  Copyright (c) CompuPhase, 1997-2021
+ *  Copyright (c) CompuPhase, 1997-2023
  *
  *  Licensed under the Apache License, Version 2.0 (the "License"); you may not
  *  use this file except in compliance with the License. You may obtain a copy
@@ -14,7 +14,7 @@
  *  License for the specific language governing permissions and limitations
  *  under the License.
  *
- *  Version: $Id: sc3.c 6932 2023-04-03 13:56:19Z thiadmer $
+ *  Version: $Id: sc3.c 6965 2023-07-20 15:44:35Z thiadmer $
  */
 #include <assert.h>
 #include <stdio.h>
diff --git a/compiler/sc5.c b/compiler/sc5.c
@@ -2,7 +2,7 @@
  *
  *  In fact a very simple system, using only 'panic mode'.
  *
- *  Copyright (c) CompuPhase, 1997-2016
+ *  Copyright (c) CompuPhase, 1997-2023
  *
  *  Licensed under the Apache License, Version 2.0 (the "License"); you may not
  *  use this file except in compliance with the License. You may obtain a copy
@@ -16,7 +16,7 @@
  *  License for the specific language governing permissions and limitations
  *  under the License.
  *
- *  Version: $Id: sc5.c 6932 2023-04-03 13:56:19Z thiadmer $
+ *  Version: $Id: sc5.c 6965 2023-07-20 15:44:35Z thiadmer $
  */
 #include <assert.h>
 #if defined	__WIN32__ || defined _WIN32 || defined __MSDOS__
diff --git a/compiler/sci18n.c b/compiler/sci18n.c
@@ -26,7 +26,7 @@
  *  License for the specific language governing permissions and limitations
  *  under the License.
  *
- *  Version: $Id: sci18n.c 6965 2023-07-20 15:44:35Z thiadmer $
+ *  Version: $Id: sci18n.c 6966 2023-07-20 18:46:01Z thiadmer $
  */
 #include <assert.h>
 #include <stdio.h>
diff --git a/compiler/svnrev.h b/compiler/svnrev.h
@@ -2,18 +2,18 @@
  * (https://www.compuphase.com/svnrev.htm).
  * You should not modify it manually, as it may be re-generated.
  * 
- * $Revision: 6932M$
- * $Date: 2023-04-03$
+ * $Revision: 6965M$
+ * $Date: 2023-07-20$
  */
 
 #ifndef _SVNREV_H_
 #define _SVNREV_H_
 
-#define SVNREV_NUM	6932
-#define SVNREV_STR	"6932M"
-#define SVNREV_RCS	"$Revision: 6932M $"
-#define SVNREV_DATE	"2023-04-03"
-#define SVNREV_STAMP	20230403L
+#define SVNREV_NUM	6965
+#define SVNREV_STR	"6965M"
+#define SVNREV_RCS	"$Revision: 6965M $"
+#define SVNREV_DATE	"2023-07-20"
+#define SVNREV_STAMP	20230720L
 #define SVNREV_MODIFIED	1
 
 #endif /* _SVNREV_H_ */
diff --git a/test/test.rexx b/test/test.rexx
@@ -1950,3 +1950,14 @@ test153:
   pawncc 'issue45'
   return
 
+test154:
+  say '154. The compilation should issue error 013 (no entry point).'
+  say ''
+  say '     Using a semicolon as the "empty statement".'
+  say ''
+  say 'Symptoms of detected bug: as the entry function is prototyped only, no code is'
+  say 'generated for it; but due to the prototype, no warning is given either.'
+  say '-----'
+  pawncc '-; EMPTY_MAIN= test14'
+  return
+
diff --git a/test/test14.p b/test/test14.p
@@ -1,11 +1,15 @@
-#if defined INTERNAL_PUBLIC_CALL
-public plugin_init()
-{
-   cmd(1)
-}
-
-public cmd(num)
-{
-}
-#endif
-
+#if defined INTERNAL_PUBLIC_CALL
+public plugin_init()
+{
+   cmd(1)
+}
+
+public cmd(num)
+{
+}
+#endif
+
+#if defined EMPTY_MAIN
+main()
+    ;
+#endif

Original file line number	Diff line number	Diff line change
`@@ -14,7 +14,7 @@`
`14`	`14`	`* License for the specific language governing permissions and limitations`
`15`	`15`	`* under the License.`
`16`	`16`	`*`
`17`		`- * Version: $Id: amx.c 6965 2023-07-20 15:44:35Z thiadmer $`
	`17`	`+ * Version: $Id: amx.c 6966 2023-07-20 18:46:01Z thiadmer $`
`18`	`18`	`*/`
`19`	`19`
`20`	`20`	`#define WIN32_LEAN_AND_MEAN`
Original file line number	Diff line number	Diff line change
`@@ -1,6 +1,6 @@`
`1`	`1`	`/* Text file I/O module for the Pawn Abstract Machine`
`2`	`2`	`*`
`3`		`- * Copyright (c) CompuPhase, 2003-2020`
	`3`	`+ * Copyright (c) CompuPhase, 2003-2023`
`4`	`4`	`*`
`5`	`5`	`* Licensed under the Apache License, Version 2.0 (the "License"); you may not`
`6`	`6`	`* use this file except in compliance with the License. You may obtain a copy`
`@@ -14,7 +14,7 @@`
`14`	`14`	`* License for the specific language governing permissions and limitations`
`15`	`15`	`* under the License.`
`16`	`16`	`*`
`17`		`- * Version: $Id: amxfile.c 6131 2020-04-29 19:47:15Z thiadmer $`
	`17`	`+ * Version: $Id: amxfile.c 6965 2023-07-20 15:44:35Z thiadmer $`
`18`	`18`	`*/`
`19`	`19`	`#if defined _UNICODE \|\| defined __UNICODE__ \|\| defined UNICODE`
`20`	`20`	`# if !defined UNICODE /* for Windows */`
Original file line number	Diff line number	Diff line change
`@@ -1,6 +1,6 @@`
`1`	`1`	`/* Pawn compiler - File input, preprocessing and lexical analysis functions`
`2`	`2`	`*`
`3`		`- * Copyright (c) CompuPhase, 1997-2020`
	`3`	`+ * Copyright (c) CompuPhase, 1997-2023`
`4`	`4`	`*`
`5`	`5`	`* Licensed under the Apache License, Version 2.0 (the "License"); you may not`
`6`	`6`	`* use this file except in compliance with the License. You may obtain a copy`
`@@ -14,7 +14,7 @@`
`14`	`14`	`* License for the specific language governing permissions and limitations`
`15`	`15`	`* under the License.`
`16`	`16`	`*`
`17`		`- * Version: $Id: sc2.c 6932 2023-04-03 13:56:19Z thiadmer $`
	`17`	`+ * Version: $Id: sc2.c 6965 2023-07-20 15:44:35Z thiadmer $`
`18`	`18`	`*/`
`19`	`19`	`#include <assert.h>`
`20`	`20`	`#include <stdio.h>`
Original file line number	Diff line number	Diff line change
`@@ -1,6 +1,6 @@`
`1`	`1`	`/* Pawn compiler - Recursive descend expresion parser`
`2`	`2`	`*`
`3`		`- * Copyright (c) CompuPhase, 1997-2021`
	`3`	`+ * Copyright (c) CompuPhase, 1997-2023`
`4`	`4`	`*`
`5`	`5`	`* Licensed under the Apache License, Version 2.0 (the "License"); you may not`
`6`	`6`	`* use this file except in compliance with the License. You may obtain a copy`
`@@ -14,7 +14,7 @@`
`14`	`14`	`* License for the specific language governing permissions and limitations`
`15`	`15`	`* under the License.`
`16`	`16`	`*`
`17`		`- * Version: $Id: sc3.c 6932 2023-04-03 13:56:19Z thiadmer $`
	`17`	`+ * Version: $Id: sc3.c 6965 2023-07-20 15:44:35Z thiadmer $`
`18`	`18`	`*/`
`19`	`19`	`#include <assert.h>`
`20`	`20`	`#include <stdio.h>`
Original file line number	Diff line number	Diff line change
`@@ -2,7 +2,7 @@`
`2`	`2`	`*`
`3`	`3`	`* In fact a very simple system, using only 'panic mode'.`
`4`	`4`	`*`
`5`		`- * Copyright (c) CompuPhase, 1997-2016`
	`5`	`+ * Copyright (c) CompuPhase, 1997-2023`
`6`	`6`	`*`
`7`	`7`	`* Licensed under the Apache License, Version 2.0 (the "License"); you may not`
`8`	`8`	`* use this file except in compliance with the License. You may obtain a copy`
`@@ -16,7 +16,7 @@`
`16`	`16`	`* License for the specific language governing permissions and limitations`
`17`	`17`	`* under the License.`
`18`	`18`	`*`
`19`		`- * Version: $Id: sc5.c 6932 2023-04-03 13:56:19Z thiadmer $`
	`19`	`+ * Version: $Id: sc5.c 6965 2023-07-20 15:44:35Z thiadmer $`
`20`	`20`	`*/`
`21`	`21`	`#include <assert.h>`
`22`	`22`	`#if defined __WIN32__ \|\| defined _WIN32 \|\| defined __MSDOS__`
Original file line number	Diff line number	Diff line change
`@@ -26,7 +26,7 @@`
`26`	`26`	`* License for the specific language governing permissions and limitations`
`27`	`27`	`* under the License.`
`28`	`28`	`*`
`29`		`- * Version: $Id: sci18n.c 6965 2023-07-20 15:44:35Z thiadmer $`
	`29`	`+ * Version: $Id: sci18n.c 6966 2023-07-20 18:46:01Z thiadmer $`
`30`	`30`	`*/`
`31`	`31`	`#include <assert.h>`
`32`	`32`	`#include <stdio.h>`