*** empty log message ***
authorClaus Gittinger <cg@exept.de>
Wed, 31 Jan 1996 02:58:41 +0100
changeset 917 57dd3973f35f
parent 916 a050d17c7e1f
child 918 05c16023099c
*** empty log message ***
ExtFunc.st
ExternalFunction.st
--- a/ExtFunc.st	Tue Jan 30 18:15:01 1996 +0100
+++ b/ExtFunc.st	Wed Jan 31 02:58:41 1996 +0100
@@ -146,8 +146,10 @@
     |retVal called|
 
 %{
+#ifndef __stxNCustomFunctions__
     extern int __stxNCustomFunctions__;
     extern CUSTOMFUNCTION __stxCustomFunctions__[];
+#endif
     int (* func)();
 
     called = false;
@@ -214,8 +216,10 @@
 indexOfCustomFunctionNamed:functionName
 
 %{  /* NOCONTEXT */
+#ifndef __stxNCustomFunctions__
     extern int __stxNCustomFunctions__;
     extern CUSTOMFUNCTION __stxCustomFunctions__[];
+#endif
 
     if (__isString(functionName)) {
 	char *nm;
@@ -363,6 +367,6 @@
 !ExternalFunction class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/Attic/ExtFunc.st,v 1.2 1996-01-12 15:28:45 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/Attic/ExtFunc.st,v 1.3 1996-01-31 01:58:41 cg Exp $'
 ! !
 ExternalFunction initialize!
--- a/ExternalFunction.st	Tue Jan 30 18:15:01 1996 +0100
+++ b/ExternalFunction.st	Wed Jan 31 02:58:41 1996 +0100
@@ -146,8 +146,10 @@
     |retVal called|
 
 %{
+#ifndef __stxNCustomFunctions__
     extern int __stxNCustomFunctions__;
     extern CUSTOMFUNCTION __stxCustomFunctions__[];
+#endif
     int (* func)();
 
     called = false;
@@ -214,8 +216,10 @@
 indexOfCustomFunctionNamed:functionName
 
 %{  /* NOCONTEXT */
+#ifndef __stxNCustomFunctions__
     extern int __stxNCustomFunctions__;
     extern CUSTOMFUNCTION __stxCustomFunctions__[];
+#endif
 
     if (__isString(functionName)) {
 	char *nm;
@@ -363,6 +367,6 @@
 !ExternalFunction class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/ExternalFunction.st,v 1.2 1996-01-12 15:28:45 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/ExternalFunction.st,v 1.3 1996-01-31 01:58:41 cg Exp $'
 ! !
 ExternalFunction initialize!