shithub: scc

Info  •  Files  •  Log  •  Branches

Mark as extern functions without storage class

When a function is defined the first time, if there is no
storage class then it is a symbol with extern linkage.

--- a/cc1/decl.c

+++ b/cc1/decl.c

@@ -703,7 +703,10 @@

 			flags |= (sclass == REGISTER) ? ISREGISTER : ISAUTO;

 			break;

 		case NOSCLASS:

-			flags |= (curctx == GLOBALCTX) ? ISGLOBAL : ISAUTO;

+			if (tp->op == FTN)

+				flags |= ISEXTERN;

+			else

+				flags |= (curctx == GLOBALCTX) ? ISGLOBAL : ISAUTO;

 			break;

 		case EXTERN:

 			flags |= ISEXTERN;