test: adapted to deprecation of foreign declarations

test/compiler/snc_test.plt

@@ -7,7 +7,6 @@ use Test::More;
 my $success = {
   cast => 0,
   exOpt_DuplOpt => 0,
-  foreignTypes => 0,
   include_windows_h => 0,
   member => 0,
   namingConflict => 0,
@@ -19,6 +18,7 @@ my $success = {
 
 my $warning = {
   exOpt_UnrecOpt => 1,
+  foreignTypes => 1,
   state_not_reachable => 3,
   syncq_no_size => 1,
 };

test/compiler/subscript.st

@@ -20,7 +20,7 @@ monitor multiple2;              /* should all have monitored flag */
 ss test {
     state test {
         when (FALSE) {
-            %%multiple2[0] = 0;
+            multiple2[0] = 0;
         } state test
     }
 }

test/validate/assign.st

@@ -13,8 +13,6 @@ option +r;
 int x = 0;
 assign x;
 
-foreign pvStatERROR;
-
 #define NTESTS 3
 
 entry {

test/validate/decl.st

@@ -10,8 +10,6 @@ program declTest
 
 option +s;
 
-foreign MAX_STRING_SIZE;
-
 int *(*(*complicated)[2][3])[1] = 0;
 
 evflag ef;
@@ -19,11 +17,7 @@ evflag ef;
 /* struct member access */
 %%struct r { int x; } rv;
 
-/* declare the variable and the tag to avoid warnings */
-foreign rv, x;
-
-%%TS_STAMP ts;
-foreign ts;
+typename TS_STAMP ts;
 
 int var;
 assign var;

test/validate/foreignTypes.st

@@ -9,8 +9,6 @@ program foreignTypesTest
 %%enum enum_t { zero, one, two };
 %%typedef short typedef_t;
 
-foreign zero, one, two;
-
 struct struct_t s = {1, {0.1}};
 union union_t u = {13};
 enum enum_t e = one;

test/validate/pvGet.st

@@ -14,8 +14,6 @@ option +s;
 %%int shared = 0;
 %%epicsMutexId mutex;
 
-foreign shared, mutex;
-
 int anon;
 assign anon;
 

test/validate/raceCommon.st

@@ -16,8 +16,6 @@ assign y to "";
 evflag efx;
 sync x to efx;
 
-foreign MAX_STRING_SIZE;
-
 #define MAX_TESTS 10
 
 entry {

test/validate/reassign.st

@@ -15,8 +15,6 @@ assign x to "pv1";
 assign y to "";
 assign z to "pv1";
 
-foreign pvStatOK;
-
 #define NTESTS 30
 
 entry {