mirror of
https://gitlab.rtems.org/rtems/rtos/rtems.git
synced 2025-11-25 10:15:46 +00:00
Compare commits
1 Commits
| Author | SHA1 | Date | |
|---|---|---|---|
|
a6b6f0c130 |
@@ -1,24 +0,0 @@
|
|||||||
#
|
|
||||||
# $Id$
|
|
||||||
#
|
|
||||||
|
|
||||||
Misc. support tools for RTEMS workspaces.
|
|
||||||
More will be added later as they are converted from Teamware
|
|
||||||
to CVS.
|
|
||||||
|
|
||||||
install-if-change
|
|
||||||
Smart install script that also can append suffixes as it
|
|
||||||
installs (suffixes used for debug and profile variants).
|
|
||||||
Requires bash or ksh.
|
|
||||||
|
|
||||||
rcs-clean
|
|
||||||
deletes all files from the current directory that can be
|
|
||||||
re-created from RCS. Careful to not delete locked files.
|
|
||||||
May be used by 'gmake clobber'
|
|
||||||
|
|
||||||
lock-directory
|
|
||||||
unlock-directory
|
|
||||||
traverse a directory structure making it unwritable.
|
|
||||||
Useful to keep people from accidentally overwriting
|
|
||||||
"released" trees if they get confused about which
|
|
||||||
module they have loaded.
|
|
||||||
@@ -1,377 +0,0 @@
|
|||||||
/*
|
|
||||||
* cklength - check the length of lines in a file
|
|
||||||
*
|
|
||||||
* This program check to see if the files passed to it on the command line
|
|
||||||
* contain a line which exceeds the maximum allowable length. The default
|
|
||||||
* maximum line length is 80.
|
|
||||||
*
|
|
||||||
* usage: cklength [ -v ] [ arg ... ] files...
|
|
||||||
* -l length -- maximum line length
|
|
||||||
* -v -- verbose
|
|
||||||
*
|
|
||||||
* $Id$
|
|
||||||
*/
|
|
||||||
|
|
||||||
#define GETOPTARGS "l:nNv"
|
|
||||||
|
|
||||||
char *USAGE = "\
|
|
||||||
usage: cklength [ -v ] [ arg ... ] files... \n\
|
|
||||||
-l length -- maximum line length\n\
|
|
||||||
-n -- report line numbers for offending lines\n\
|
|
||||||
-N -- report line numbers and length for offending lines\n\
|
|
||||||
-v -- verbose\n\
|
|
||||||
\n\
|
|
||||||
Print the name of files which have at least 1 line which exceeds the\n\
|
|
||||||
maximum line length. The default maximum line length is 80.\n\
|
|
||||||
";
|
|
||||||
|
|
||||||
#include <stdio.h>
|
|
||||||
#include <stdlib.h>
|
|
||||||
#include <fcntl.h>
|
|
||||||
#include <ctype.h>
|
|
||||||
#include <stdlib.h>
|
|
||||||
#include <unistd.h>
|
|
||||||
#include <string.h>
|
|
||||||
#include <memory.h>
|
|
||||||
#include <stdarg.h>
|
|
||||||
#include <errno.h>
|
|
||||||
|
|
||||||
#include "config.h"
|
|
||||||
|
|
||||||
#ifndef VMS
|
|
||||||
#ifndef HAVE_STRERROR
|
|
||||||
extern int sys_nerr;
|
|
||||||
extern char *sys_errlist[];
|
|
||||||
|
|
||||||
#define strerror( _err ) \
|
|
||||||
((_err) < sys_nerr) ? sys_errlist [(_err)] : "unknown error"
|
|
||||||
|
|
||||||
#else /* HAVE_STRERROR */
|
|
||||||
char *strerror ();
|
|
||||||
#endif
|
|
||||||
#else /* VMS */
|
|
||||||
char *strerror (int,...);
|
|
||||||
#endif
|
|
||||||
|
|
||||||
|
|
||||||
#define BUFFER_SIZE 512
|
|
||||||
|
|
||||||
#define SUCCESS 0
|
|
||||||
#define FAILURE -1
|
|
||||||
#define Failed(x) (((int) (x)) == FAILURE)
|
|
||||||
#define TRUE 1
|
|
||||||
#define FALSE 0
|
|
||||||
#define STREQ(a,b) (strcmp(a,b) == 0)
|
|
||||||
#define NUMELEMS(arr) (sizeof(arr) / sizeof(arr[0]))
|
|
||||||
|
|
||||||
/*
|
|
||||||
* Definitions for unsigned "ints"; especially for use in data structures
|
|
||||||
* that will be shared among (potentially) different cpu's (we punt on
|
|
||||||
* byte ordering problems tho)
|
|
||||||
*/
|
|
||||||
|
|
||||||
typedef unsigned char u8;
|
|
||||||
typedef unsigned short u16;
|
|
||||||
typedef unsigned long u32;
|
|
||||||
|
|
||||||
/*
|
|
||||||
* vars controlled by command line options
|
|
||||||
*/
|
|
||||||
|
|
||||||
int verbose = FALSE; /* be verbose */
|
|
||||||
int report_line_numbers = FALSE; /* report line numbers of offenders */
|
|
||||||
int report_line_length = FALSE; /* report line length of offenders */
|
|
||||||
|
|
||||||
int line_length = 80; /* maximum allowable line length */
|
|
||||||
|
|
||||||
extern char *optarg; /* getopt(3) control vars */
|
|
||||||
extern int optind, opterr;
|
|
||||||
|
|
||||||
char *progname; /* for error() */
|
|
||||||
|
|
||||||
int process(char *arg);
|
|
||||||
void error(int errn, ...);
|
|
||||||
long getparm(char *s, long min, long max, char *msg);
|
|
||||||
|
|
||||||
#define ERR_ERRNO (1<<((sizeof(int) * 8) - 2)) /* hi bit; use 'errno' */
|
|
||||||
#define ERR_FATAL (ERR_ERRNO / 2) /* fatal error ; no return */
|
|
||||||
#define ERR_ABORT (ERR_ERRNO / 4) /* fatal error ; abort */
|
|
||||||
#define ERR_MASK (ERR_ERRNO | ERR_FATAL | ERR_ABORT) /* all */
|
|
||||||
|
|
||||||
#define stol(p) strtol(p, (char **) NULL, 0)
|
|
||||||
int Open(), Read(), Write();
|
|
||||||
|
|
||||||
int main(
|
|
||||||
int argc,
|
|
||||||
char **argv
|
|
||||||
)
|
|
||||||
{
|
|
||||||
register int c;
|
|
||||||
int showusage = FALSE; /* usage error? */
|
|
||||||
int rc = 0;
|
|
||||||
|
|
||||||
/*
|
|
||||||
* figure out invocation leaf-name
|
|
||||||
*/
|
|
||||||
|
|
||||||
if ((progname = strrchr(argv[0], '/')) == (char *) NULL)
|
|
||||||
progname = argv[0];
|
|
||||||
else
|
|
||||||
progname++;
|
|
||||||
|
|
||||||
argv[0] = progname; /* for getopt err reporting */
|
|
||||||
|
|
||||||
/*
|
|
||||||
* Check options and arguments.
|
|
||||||
*/
|
|
||||||
|
|
||||||
opterr = 0; /* we'll report all errors */
|
|
||||||
while ((c = getopt(argc, argv, GETOPTARGS)) != EOF)
|
|
||||||
switch (c)
|
|
||||||
{
|
|
||||||
case 'l': /* line length */
|
|
||||||
line_length = atoi( optarg );
|
|
||||||
if ( line_length < 0 || line_length > BUFFER_SIZE )
|
|
||||||
error(ERR_FATAL, "(%d) is illegal line length\n",line_length);
|
|
||||||
break;
|
|
||||||
|
|
||||||
case 'n': /* toggle report_line_numbers */
|
|
||||||
report_line_numbers = ! report_line_numbers;
|
|
||||||
break;
|
|
||||||
|
|
||||||
case 'N': /* toggle both reports */
|
|
||||||
report_line_numbers = ! report_line_numbers;
|
|
||||||
report_line_length = ! report_line_length;
|
|
||||||
break;
|
|
||||||
|
|
||||||
case 'v': /* toggle verbose */
|
|
||||||
verbose = ! verbose;
|
|
||||||
break;
|
|
||||||
|
|
||||||
case '?':
|
|
||||||
showusage = TRUE;
|
|
||||||
}
|
|
||||||
|
|
||||||
if (showusage)
|
|
||||||
{
|
|
||||||
(void) fprintf(stderr, "%s", USAGE);
|
|
||||||
exit(1);
|
|
||||||
}
|
|
||||||
|
|
||||||
/*
|
|
||||||
* traverse and process the arguments
|
|
||||||
*/
|
|
||||||
|
|
||||||
for ( ; argv[optind]; optind++)
|
|
||||||
if (Failed(process(argv[optind])))
|
|
||||||
rc = FAILURE;
|
|
||||||
|
|
||||||
return rc;
|
|
||||||
}
|
|
||||||
|
|
||||||
|
|
||||||
/*
|
|
||||||
* process(arg)
|
|
||||||
*/
|
|
||||||
|
|
||||||
int
|
|
||||||
process(char *arg)
|
|
||||||
{
|
|
||||||
FILE *in;
|
|
||||||
char *bptr;
|
|
||||||
char buffer[ BUFFER_SIZE ];
|
|
||||||
int line_number;
|
|
||||||
int length;
|
|
||||||
int count;
|
|
||||||
int rc = SUCCESS; /* succeed by default */
|
|
||||||
|
|
||||||
in = fopen( arg, "r" );
|
|
||||||
if (!in)
|
|
||||||
error( ERR_ERRNO | ERR_FATAL, "Unable to open file (%s)\n", arg );
|
|
||||||
|
|
||||||
count = 0;
|
|
||||||
|
|
||||||
for ( line_number=1 ; ; line_number++ ) {
|
|
||||||
bptr = fgets( buffer, BUFFER_SIZE, in );
|
|
||||||
if (!bptr)
|
|
||||||
break;
|
|
||||||
|
|
||||||
/*
|
|
||||||
* Don't count the carriage return.
|
|
||||||
*/
|
|
||||||
|
|
||||||
length = strlen( buffer ) - 1;
|
|
||||||
|
|
||||||
if ( length <= line_length )
|
|
||||||
continue;
|
|
||||||
|
|
||||||
if ( count == 0 ) {
|
|
||||||
fprintf( stderr, "%s\n", arg );
|
|
||||||
if ( !report_line_numbers )
|
|
||||||
break;
|
|
||||||
}
|
|
||||||
|
|
||||||
if ( verbose )
|
|
||||||
fprintf( stderr, "TOO LONG:%d: %s\n", line_number, buffer );
|
|
||||||
|
|
||||||
if ( report_line_numbers ) {
|
|
||||||
if ( report_line_length )
|
|
||||||
fprintf( stderr, "%d: %d\n" , line_number, length );
|
|
||||||
else
|
|
||||||
fprintf( stderr, "%d\n" , line_number );
|
|
||||||
}
|
|
||||||
|
|
||||||
count++;
|
|
||||||
|
|
||||||
}
|
|
||||||
|
|
||||||
fclose( in );
|
|
||||||
return rc;
|
|
||||||
}
|
|
||||||
|
|
||||||
/*
|
|
||||||
* error(errn, arglist)
|
|
||||||
* report an error to stderr using printf(3) conventions.
|
|
||||||
* Any output is preceded by '<progname>: '
|
|
||||||
*
|
|
||||||
* Uses ERR_FATAL bit to request exit(errn)
|
|
||||||
* ERR_ABORT to request abort()
|
|
||||||
* ERR_ERRNO to indicate use of errno instead of argument.
|
|
||||||
*
|
|
||||||
* If resulting 'errn' is non-zero, it is assumed to be an 'errno' and its
|
|
||||||
* associated error message is appended to the output.
|
|
||||||
*/
|
|
||||||
|
|
||||||
/*VARARGS*/
|
|
||||||
|
|
||||||
void
|
|
||||||
error(int error_flag, ...)
|
|
||||||
{
|
|
||||||
va_list arglist;
|
|
||||||
register char *format;
|
|
||||||
int local_errno;
|
|
||||||
|
|
||||||
extern int errno;
|
|
||||||
|
|
||||||
(void) fflush(stdout); /* in case stdout/stderr same */
|
|
||||||
|
|
||||||
local_errno = error_flag & ~ERR_MASK;
|
|
||||||
if (error_flag & ERR_ERRNO) /* use errno? */
|
|
||||||
local_errno = errno;
|
|
||||||
|
|
||||||
va_start(arglist, error_flag);
|
|
||||||
format = va_arg(arglist, char *);
|
|
||||||
(void) fprintf(stderr, "%s: ", progname);
|
|
||||||
(void) vfprintf(stderr, format, arglist);
|
|
||||||
va_end(arglist);
|
|
||||||
|
|
||||||
if (local_errno)
|
|
||||||
(void) fprintf(stderr, " (%s)\n", strerror(local_errno));
|
|
||||||
|
|
||||||
(void) fflush(stderr);
|
|
||||||
|
|
||||||
if (error_flag & (ERR_FATAL | ERR_ABORT))
|
|
||||||
{
|
|
||||||
if (error_flag & ERR_FATAL)
|
|
||||||
{
|
|
||||||
error(0, "fatal error, exiting");
|
|
||||||
exit(local_errno ? local_errno : 1);
|
|
||||||
}
|
|
||||||
else
|
|
||||||
{
|
|
||||||
error(0, "fatal error, aborting");
|
|
||||||
abort();
|
|
||||||
}
|
|
||||||
}
|
|
||||||
}
|
|
||||||
|
|
||||||
long
|
|
||||||
getparm(char *s,
|
|
||||||
long min,
|
|
||||||
long max,
|
|
||||||
char *msg)
|
|
||||||
{
|
|
||||||
long val;
|
|
||||||
|
|
||||||
if ( ! strchr("0123456789-", *s))
|
|
||||||
{
|
|
||||||
error(ERR_FATAL, "'%s' is not a number", s);
|
|
||||||
return min;
|
|
||||||
}
|
|
||||||
|
|
||||||
val = strtol(s, (char **) NULL, 0);
|
|
||||||
if ((val < min) || (val > max))
|
|
||||||
{
|
|
||||||
if (min == max)
|
|
||||||
error(ERR_FATAL, "%s can only be %ld", s, min);
|
|
||||||
else
|
|
||||||
error(ERR_FATAL, "%s must be between %ld and %ld", msg, min, max);
|
|
||||||
}
|
|
||||||
|
|
||||||
return val;
|
|
||||||
}
|
|
||||||
|
|
||||||
|
|
||||||
/*
|
|
||||||
* Open()
|
|
||||||
* Perform open(2), returning the file descriptor. Prints
|
|
||||||
* error message if open fails.
|
|
||||||
*/
|
|
||||||
|
|
||||||
int
|
|
||||||
Open(char *file,
|
|
||||||
int oflag,
|
|
||||||
int mode)
|
|
||||||
{
|
|
||||||
int O_fd;
|
|
||||||
|
|
||||||
if (Failed(O_fd = open(file, oflag, mode)))
|
|
||||||
error(
|
|
||||||
ERR_ERRNO | ERR_FATAL,
|
|
||||||
"open('%s', 0x%x, 0%o) failed", file, oflag, mode
|
|
||||||
);
|
|
||||||
|
|
||||||
return O_fd;
|
|
||||||
}
|
|
||||||
|
|
||||||
/*
|
|
||||||
* Read()
|
|
||||||
* Perform read(2); prints error message if fails.
|
|
||||||
*/
|
|
||||||
|
|
||||||
int
|
|
||||||
Read(int file,
|
|
||||||
char *buffer,
|
|
||||||
unsigned int count)
|
|
||||||
{
|
|
||||||
int nbytes;
|
|
||||||
|
|
||||||
if (Failed(nbytes = read(file, buffer, count)))
|
|
||||||
error(
|
|
||||||
ERR_ERRNO | ERR_FATAL,
|
|
||||||
"read(%d, 0x%x, %d) failed", file, buffer, count
|
|
||||||
);
|
|
||||||
|
|
||||||
return nbytes;
|
|
||||||
}
|
|
||||||
|
|
||||||
/*
|
|
||||||
* Write()
|
|
||||||
* Perform write(2); prints error message if fails.
|
|
||||||
*/
|
|
||||||
|
|
||||||
int
|
|
||||||
Write(int file,
|
|
||||||
char *buffer,
|
|
||||||
unsigned int count)
|
|
||||||
{
|
|
||||||
int nbytes;
|
|
||||||
|
|
||||||
if (Failed(nbytes = write(file, buffer, count)))
|
|
||||||
error(
|
|
||||||
ERR_ERRNO | ERR_FATAL,
|
|
||||||
"write(%d, 0x%x, %d) failed", file, buffer, count
|
|
||||||
);
|
|
||||||
|
|
||||||
return nbytes;
|
|
||||||
}
|
|
||||||
@@ -1,366 +0,0 @@
|
|||||||
/*
|
|
||||||
* eolstrip - strip white space from end of lines
|
|
||||||
*
|
|
||||||
* This program strips the white space from the end of every line in the
|
|
||||||
* specified program.
|
|
||||||
*
|
|
||||||
* usage: eolstrip [ -v ] [ arg ... ] files...
|
|
||||||
* -v -- verbose
|
|
||||||
*
|
|
||||||
* $Id$
|
|
||||||
*/
|
|
||||||
|
|
||||||
#define GETOPTARGS "vt"
|
|
||||||
|
|
||||||
char *USAGE = "\
|
|
||||||
usage: cklength [ -v ] [ arg ... ] files... \n\
|
|
||||||
-v -- verbose\n\
|
|
||||||
-t -- test only .. DO NOT OVERWRITE FILE!!!\n\
|
|
||||||
\n\
|
|
||||||
Strip the white space from the end of every line on the list of files.\n\
|
|
||||||
";
|
|
||||||
|
|
||||||
#include <stdio.h>
|
|
||||||
#include <stdlib.h>
|
|
||||||
#include <fcntl.h>
|
|
||||||
#include <ctype.h>
|
|
||||||
#include <stdlib.h>
|
|
||||||
#include <unistd.h>
|
|
||||||
#include <string.h>
|
|
||||||
#include <memory.h>
|
|
||||||
#include <stdarg.h>
|
|
||||||
#include <errno.h>
|
|
||||||
|
|
||||||
#include "config.h"
|
|
||||||
|
|
||||||
#ifndef VMS
|
|
||||||
#ifndef HAVE_STRERROR
|
|
||||||
extern int sys_nerr;
|
|
||||||
extern char *sys_errlist[];
|
|
||||||
|
|
||||||
#define strerror( _err ) \
|
|
||||||
((_err) < sys_nerr) ? sys_errlist [(_err)] : "unknown error"
|
|
||||||
|
|
||||||
#else /* HAVE_STRERROR */
|
|
||||||
char *strerror ();
|
|
||||||
#endif
|
|
||||||
#else /* VMS */
|
|
||||||
char *strerror (int,...);
|
|
||||||
#endif
|
|
||||||
|
|
||||||
|
|
||||||
#define BUFFER_SIZE 2048
|
|
||||||
#define MAX_PATH 2048
|
|
||||||
|
|
||||||
#define SUCCESS 0
|
|
||||||
#define FAILURE -1
|
|
||||||
#define Failed(x) (((int) (x)) == FAILURE)
|
|
||||||
#define TRUE 1
|
|
||||||
#define FALSE 0
|
|
||||||
#define STREQ(a,b) (strcmp(a,b) == 0)
|
|
||||||
#define NUMELEMS(arr) (sizeof(arr) / sizeof(arr[0]))
|
|
||||||
|
|
||||||
/*
|
|
||||||
* Definitions for unsigned "ints"; especially for use in data structures
|
|
||||||
* that will be shared among (potentially) different cpu's (we punt on
|
|
||||||
* byte ordering problems tho)
|
|
||||||
*/
|
|
||||||
|
|
||||||
typedef unsigned char u8;
|
|
||||||
typedef unsigned short u16;
|
|
||||||
typedef unsigned long u32;
|
|
||||||
|
|
||||||
/*
|
|
||||||
* vars controlled by command line options
|
|
||||||
*/
|
|
||||||
|
|
||||||
int verbose = FALSE; /* be verbose */
|
|
||||||
int test_only = FALSE; /* test only */
|
|
||||||
|
|
||||||
extern char *optarg; /* getopt(3) control vars */
|
|
||||||
extern int optind, opterr;
|
|
||||||
|
|
||||||
char *progname; /* for error() */
|
|
||||||
|
|
||||||
int process(char *arg);
|
|
||||||
void error(int errn, ...);
|
|
||||||
long getparm(char *s, long min, long max, char *msg);
|
|
||||||
|
|
||||||
#define ERR_ERRNO (1<<((sizeof(int) * 8) - 2)) /* hi bit; use 'errno' */
|
|
||||||
#define ERR_FATAL (ERR_ERRNO / 2) /* fatal error ; no return */
|
|
||||||
#define ERR_ABORT (ERR_ERRNO / 4) /* fatal error ; abort */
|
|
||||||
#define ERR_MASK (ERR_ERRNO | ERR_FATAL | ERR_ABORT) /* all */
|
|
||||||
|
|
||||||
#define stol(p) strtol(p, (char **) NULL, 0)
|
|
||||||
int Open(), Read(), Write();
|
|
||||||
|
|
||||||
int main(
|
|
||||||
int argc,
|
|
||||||
char **argv
|
|
||||||
)
|
|
||||||
{
|
|
||||||
register int c;
|
|
||||||
int showusage = FALSE; /* usage error? */
|
|
||||||
int rc = 0;
|
|
||||||
|
|
||||||
/*
|
|
||||||
* figure out invocation leaf-name
|
|
||||||
*/
|
|
||||||
|
|
||||||
if ((progname = strrchr(argv[0], '/')) == (char *) NULL)
|
|
||||||
progname = argv[0];
|
|
||||||
else
|
|
||||||
progname++;
|
|
||||||
|
|
||||||
argv[0] = progname; /* for getopt err reporting */
|
|
||||||
|
|
||||||
/*
|
|
||||||
* Check options and arguments.
|
|
||||||
*/
|
|
||||||
|
|
||||||
opterr = 0; /* we'll report all errors */
|
|
||||||
while ((c = getopt(argc, argv, GETOPTARGS)) != EOF)
|
|
||||||
switch (c)
|
|
||||||
{
|
|
||||||
case 't': /* toggle test only mode */
|
|
||||||
test_only = ! test_only;
|
|
||||||
break;
|
|
||||||
|
|
||||||
case 'v': /* toggle verbose */
|
|
||||||
verbose = ! verbose;
|
|
||||||
break;
|
|
||||||
|
|
||||||
case '?':
|
|
||||||
showusage = TRUE;
|
|
||||||
}
|
|
||||||
|
|
||||||
if (showusage)
|
|
||||||
{
|
|
||||||
(void) fprintf(stderr, "%s", USAGE);
|
|
||||||
exit(1);
|
|
||||||
}
|
|
||||||
|
|
||||||
/*
|
|
||||||
* traverse and process the arguments
|
|
||||||
*/
|
|
||||||
|
|
||||||
for ( ; argv[optind]; optind++)
|
|
||||||
if (Failed(process(argv[optind])))
|
|
||||||
rc = FAILURE;
|
|
||||||
|
|
||||||
return rc;
|
|
||||||
}
|
|
||||||
|
|
||||||
|
|
||||||
/*
|
|
||||||
* process(arg)
|
|
||||||
*/
|
|
||||||
|
|
||||||
int
|
|
||||||
process(char *arg)
|
|
||||||
{
|
|
||||||
FILE *in;
|
|
||||||
FILE *out = (FILE *) 0;
|
|
||||||
char outname[ MAX_PATH ];
|
|
||||||
char *bptr;
|
|
||||||
char buffer[ BUFFER_SIZE ];
|
|
||||||
int length;
|
|
||||||
int line_number;
|
|
||||||
int rc = SUCCESS; /* succeed by default */
|
|
||||||
|
|
||||||
in = fopen( arg, "r" );
|
|
||||||
if (!in)
|
|
||||||
error( ERR_ERRNO | ERR_FATAL, "Unable to open file (%s)\n", arg );
|
|
||||||
|
|
||||||
if ( !test_only ) {
|
|
||||||
sprintf( outname, "%s.eoltmp", arg );
|
|
||||||
|
|
||||||
out = fopen( outname, "w" );
|
|
||||||
if (!out)
|
|
||||||
error( ERR_ERRNO | ERR_FATAL, "Unable to open file (%s)\n", arg );
|
|
||||||
}
|
|
||||||
|
|
||||||
if ( verbose )
|
|
||||||
fprintf( stderr, "Processing %s\n", arg );
|
|
||||||
|
|
||||||
for ( line_number=1 ; ; line_number++ ) {
|
|
||||||
bptr = fgets( buffer, BUFFER_SIZE, in );
|
|
||||||
if (!bptr)
|
|
||||||
break;
|
|
||||||
|
|
||||||
/*
|
|
||||||
* Don't count the carriage return.
|
|
||||||
*/
|
|
||||||
|
|
||||||
length = strlen( buffer ) - 1;
|
|
||||||
|
|
||||||
if ( buffer[ length ] != '\n' )
|
|
||||||
error(ERR_ERRNO|ERR_FATAL, "Line %d too long in %s\n", line_number, arg);
|
|
||||||
|
|
||||||
while ( isspace( (int) buffer[ length ] ) )
|
|
||||||
buffer[ length-- ] = '\0';
|
|
||||||
|
|
||||||
if ( test_only ) {
|
|
||||||
fprintf( stderr, "%s\n", arg );
|
|
||||||
break;
|
|
||||||
}
|
|
||||||
|
|
||||||
fprintf( out, "%s\n", buffer );
|
|
||||||
}
|
|
||||||
|
|
||||||
fclose( in );
|
|
||||||
if ( !test_only ) {
|
|
||||||
fclose( out );
|
|
||||||
rename( outname, arg );
|
|
||||||
}
|
|
||||||
return rc;
|
|
||||||
}
|
|
||||||
|
|
||||||
/*
|
|
||||||
* error(errn, arglist)
|
|
||||||
* report an error to stderr using printf(3) conventions.
|
|
||||||
* Any output is preceded by '<progname>: '
|
|
||||||
*
|
|
||||||
* Uses ERR_FATAL bit to request exit(errn)
|
|
||||||
* ERR_ABORT to request abort()
|
|
||||||
* ERR_ERRNO to indicate use of errno instead of argument.
|
|
||||||
*
|
|
||||||
* If resulting 'errn' is non-zero, it is assumed to be an 'errno' and its
|
|
||||||
* associated error message is appended to the output.
|
|
||||||
*/
|
|
||||||
|
|
||||||
/*VARARGS*/
|
|
||||||
|
|
||||||
void
|
|
||||||
error(int error_flag, ...)
|
|
||||||
{
|
|
||||||
va_list arglist;
|
|
||||||
register char *format;
|
|
||||||
int local_errno;
|
|
||||||
|
|
||||||
extern int errno;
|
|
||||||
|
|
||||||
(void) fflush(stdout); /* in case stdout/stderr same */
|
|
||||||
|
|
||||||
local_errno = error_flag & ~ERR_MASK;
|
|
||||||
if (error_flag & ERR_ERRNO) /* use errno? */
|
|
||||||
local_errno = errno;
|
|
||||||
|
|
||||||
va_start(arglist, error_flag);
|
|
||||||
format = va_arg(arglist, char *);
|
|
||||||
(void) fprintf(stderr, "%s: ", progname);
|
|
||||||
(void) vfprintf(stderr, format, arglist);
|
|
||||||
va_end(arglist);
|
|
||||||
|
|
||||||
if (local_errno)
|
|
||||||
(void) fprintf(stderr, " (%s)\n", strerror(local_errno));
|
|
||||||
else
|
|
||||||
(void) fprintf(stderr, "\n");
|
|
||||||
|
|
||||||
(void) fflush(stderr);
|
|
||||||
|
|
||||||
if (error_flag & (ERR_FATAL | ERR_ABORT))
|
|
||||||
{
|
|
||||||
if (error_flag & ERR_FATAL)
|
|
||||||
{
|
|
||||||
error(0, "fatal error, exiting");
|
|
||||||
exit(local_errno ? local_errno : 1);
|
|
||||||
}
|
|
||||||
else
|
|
||||||
{
|
|
||||||
error(0, "fatal error, aborting");
|
|
||||||
abort();
|
|
||||||
}
|
|
||||||
}
|
|
||||||
}
|
|
||||||
|
|
||||||
long
|
|
||||||
getparm(char *s,
|
|
||||||
long min,
|
|
||||||
long max,
|
|
||||||
char *msg)
|
|
||||||
{
|
|
||||||
long val;
|
|
||||||
|
|
||||||
if ( ! strchr("0123456789-", *s))
|
|
||||||
{
|
|
||||||
error(ERR_FATAL, "'%s' is not a number", s);
|
|
||||||
return min;
|
|
||||||
}
|
|
||||||
|
|
||||||
val = strtol(s, (char **) NULL, 0);
|
|
||||||
if ((val < min) || (val > max))
|
|
||||||
{
|
|
||||||
if (min == max)
|
|
||||||
error(ERR_FATAL, "%s can only be %ld", s, min);
|
|
||||||
else
|
|
||||||
error(ERR_FATAL, "%s must be between %ld and %ld", msg, min, max);
|
|
||||||
}
|
|
||||||
|
|
||||||
return val;
|
|
||||||
}
|
|
||||||
|
|
||||||
|
|
||||||
/*
|
|
||||||
* Open()
|
|
||||||
* Perform open(2), returning the file descriptor. Prints
|
|
||||||
* error message if open fails.
|
|
||||||
*/
|
|
||||||
|
|
||||||
int
|
|
||||||
Open(char *file,
|
|
||||||
int oflag,
|
|
||||||
int mode)
|
|
||||||
{
|
|
||||||
int O_fd;
|
|
||||||
|
|
||||||
if (Failed(O_fd = open(file, oflag, mode)))
|
|
||||||
error(
|
|
||||||
ERR_ERRNO | ERR_FATAL,
|
|
||||||
"open('%s', 0x%x, 0%o) failed", file, oflag, mode
|
|
||||||
);
|
|
||||||
|
|
||||||
return O_fd;
|
|
||||||
}
|
|
||||||
|
|
||||||
/*
|
|
||||||
* Read()
|
|
||||||
* Perform read(2); prints error message if fails.
|
|
||||||
*/
|
|
||||||
|
|
||||||
int
|
|
||||||
Read(int file,
|
|
||||||
char *buffer,
|
|
||||||
unsigned int count)
|
|
||||||
{
|
|
||||||
int nbytes;
|
|
||||||
|
|
||||||
if (Failed(nbytes = read(file, buffer, count)))
|
|
||||||
error(
|
|
||||||
ERR_ERRNO | ERR_FATAL,
|
|
||||||
"read(%d, 0x%x, %d) failed", file, buffer, count
|
|
||||||
);
|
|
||||||
|
|
||||||
return nbytes;
|
|
||||||
}
|
|
||||||
|
|
||||||
/*
|
|
||||||
* Write()
|
|
||||||
* Perform write(2); prints error message if fails.
|
|
||||||
*/
|
|
||||||
|
|
||||||
int
|
|
||||||
Write(int file,
|
|
||||||
char *buffer,
|
|
||||||
unsigned int count)
|
|
||||||
{
|
|
||||||
int nbytes;
|
|
||||||
|
|
||||||
if (Failed(nbytes = write(file, buffer, count)))
|
|
||||||
error(
|
|
||||||
ERR_ERRNO | ERR_FATAL,
|
|
||||||
"write(%d, 0x%x, %d) failed", file, buffer, count
|
|
||||||
);
|
|
||||||
|
|
||||||
return nbytes;
|
|
||||||
}
|
|
||||||
@@ -1,142 +0,0 @@
|
|||||||
#!@KSH@ -p
|
|
||||||
#
|
|
||||||
# Either bash or ksh will be ok for this; requires (( )) arithmetic
|
|
||||||
# (-p above just says to not parse $ENV file; makes it faster for
|
|
||||||
# those of us who set $ENV)
|
|
||||||
#
|
|
||||||
# install files if they have changed by running 'cmp', then 'install'
|
|
||||||
# as necessary.
|
|
||||||
#
|
|
||||||
# Optionally, can append a suffix before last existing suffix (if any)
|
|
||||||
#
|
|
||||||
# NOTE
|
|
||||||
# We avoid using typical install(1M) programs since they have
|
|
||||||
# large variability across systems and we also need to support ou
|
|
||||||
# -V option.
|
|
||||||
# So we just copy and chmod by hand.
|
|
||||||
#
|
|
||||||
# $Id$
|
|
||||||
#
|
|
||||||
|
|
||||||
progname=`basename $0`
|
|
||||||
#progname=${0##*/} # fast basename hack for ksh, bash
|
|
||||||
|
|
||||||
USAGE=\
|
|
||||||
"usage: $progname [ -vmV ] file [ file ... ] dest-directory-or-file
|
|
||||||
-v -- verbose
|
|
||||||
-V suffix -- suffix to append to targets (before any . suffix)
|
|
||||||
eg: -V _g would change 'foo' to 'foo_g' and
|
|
||||||
'libfoo.a' to 'libfoo_g.a'
|
|
||||||
-m mode -- mode for new file(s)"
|
|
||||||
|
|
||||||
fatal() {
|
|
||||||
if [ "$1" ]
|
|
||||||
then
|
|
||||||
echo $* >&2
|
|
||||||
fi
|
|
||||||
echo "$USAGE" 1>&2
|
|
||||||
exit 1
|
|
||||||
}
|
|
||||||
|
|
||||||
#
|
|
||||||
# process the options
|
|
||||||
#
|
|
||||||
|
|
||||||
verbose=""
|
|
||||||
suffix=""
|
|
||||||
mode=""
|
|
||||||
|
|
||||||
while getopts vm:V: OPT
|
|
||||||
do
|
|
||||||
case "$OPT" in
|
|
||||||
v)
|
|
||||||
verbose="yes";;
|
|
||||||
V)
|
|
||||||
eval suffix=$OPTARG;;
|
|
||||||
m)
|
|
||||||
mode="$OPTARG";;
|
|
||||||
*)
|
|
||||||
fatal
|
|
||||||
esac
|
|
||||||
done
|
|
||||||
|
|
||||||
shiftcount=`expr $OPTIND - 1`
|
|
||||||
shift $shiftcount
|
|
||||||
|
|
||||||
args=$*
|
|
||||||
|
|
||||||
#
|
|
||||||
# Separate source file(s) from dest directory or file
|
|
||||||
#
|
|
||||||
|
|
||||||
files=""
|
|
||||||
dest=""
|
|
||||||
for d in $args
|
|
||||||
do
|
|
||||||
files="$files $dest"
|
|
||||||
dest=$d
|
|
||||||
done
|
|
||||||
|
|
||||||
if [ ! "$files" ] || [ ! "$dest" ]
|
|
||||||
then
|
|
||||||
fatal "missing files or invalid destination"
|
|
||||||
fi
|
|
||||||
|
|
||||||
#
|
|
||||||
# Process the arguments
|
|
||||||
#
|
|
||||||
|
|
||||||
targets=""
|
|
||||||
for f in $files
|
|
||||||
do
|
|
||||||
# leaf=`basename $f`
|
|
||||||
leaf=${f##*/} # fast basename hack for ksh, bash
|
|
||||||
|
|
||||||
target=$dest
|
|
||||||
if [ -d $dest ]
|
|
||||||
then
|
|
||||||
# if we were given a suffix, then add it as appropriate
|
|
||||||
if [ "$suffix" ]
|
|
||||||
then
|
|
||||||
case $f in
|
|
||||||
*.*)
|
|
||||||
# leaf=`echo $leaf |
|
|
||||||
# /bin/sed "s/\([~\.]*\)\.\(.*\)$/\1$suffix.\2/"`
|
|
||||||
# ksh,bash hack for above sed script
|
|
||||||
leaf=${leaf%%.*}$suffix.${leaf#*.}
|
|
||||||
|
|
||||||
[ "$verbose" = "yes" ] &&
|
|
||||||
echo "$progname: $f will be installed as $leaf"
|
|
||||||
;;
|
|
||||||
*)
|
|
||||||
leaf=$leaf$suffix;;
|
|
||||||
esac
|
|
||||||
fi
|
|
||||||
target=$target/$leaf
|
|
||||||
fi
|
|
||||||
|
|
||||||
[ ! -r $f ] && fatal "can not read $f"
|
|
||||||
|
|
||||||
if cmp -s $f $target
|
|
||||||
then
|
|
||||||
[ "$verbose" = "yes" ] && echo "'$f' not newer than '$target'"
|
|
||||||
else
|
|
||||||
[ "$verbose" = "yes" ] && echo "rm -f $target"
|
|
||||||
rm -f $target
|
|
||||||
echo "cp -p $f $target"
|
|
||||||
cp -p $f $target || exit 1
|
|
||||||
targets="$targets $target" # keep list for chmod below
|
|
||||||
fi
|
|
||||||
done
|
|
||||||
|
|
||||||
if [ "$mode" -a "$targets" ]
|
|
||||||
then
|
|
||||||
[ "$verbose" = "yes" ] && echo "chmod $mode $targets"
|
|
||||||
chmod $mode $targets
|
|
||||||
fi
|
|
||||||
|
|
||||||
exit 0
|
|
||||||
|
|
||||||
# Local Variables: ***
|
|
||||||
# mode:ksh ***
|
|
||||||
# End: ***
|
|
||||||
@@ -1,43 +0,0 @@
|
|||||||
#!@KSH@
|
|
||||||
#
|
|
||||||
# $Id$
|
|
||||||
#
|
|
||||||
# Make a directory write protected
|
|
||||||
# Used to write protect the install point after a build
|
|
||||||
# to prevent inadvertant overwriting.
|
|
||||||
#
|
|
||||||
|
|
||||||
# is a particular command available on this machine?
|
|
||||||
#
|
|
||||||
cmd_avail()
|
|
||||||
{
|
|
||||||
set -- `type $1 2>&1`
|
|
||||||
if [ "$2" = "not" -a "$3" = "found" ] || [ "$3" = "not" -a "$4" = "found" ]
|
|
||||||
then
|
|
||||||
return 1
|
|
||||||
else
|
|
||||||
return 0
|
|
||||||
fi
|
|
||||||
}
|
|
||||||
|
|
||||||
lock_directory() {
|
|
||||||
l_dir=$1/. # get any symlink out of the way using '.'
|
|
||||||
if [ -d $l_dir ]
|
|
||||||
then
|
|
||||||
find $l_dir -type d -perm -0200 -print | $XARGS chmod -w
|
|
||||||
fi
|
|
||||||
}
|
|
||||||
|
|
||||||
# Use gnu xargs if available; faster, more reliable in general
|
|
||||||
XARGS=xargs
|
|
||||||
cmd_avail gxargs && XARGS=gxargs
|
|
||||||
|
|
||||||
for dir
|
|
||||||
do
|
|
||||||
lock_directory $dir
|
|
||||||
done
|
|
||||||
|
|
||||||
# Local Variables: ***
|
|
||||||
# mode:ksh ***
|
|
||||||
# End: ***
|
|
||||||
|
|
||||||
@@ -1,565 +0,0 @@
|
|||||||
|
|
||||||
/***** P A C K H E X . C ************************************************
|
|
||||||
*
|
|
||||||
* Packhex is a hex-file compaction utility. It attempts to concatenate
|
|
||||||
* hex records to produce more size-efficient packaging.
|
|
||||||
*
|
|
||||||
* Limitations: Input files must be correctly formatted. This utility
|
|
||||||
* is not robust enough to detect hex-record formatting
|
|
||||||
* errors.
|
|
||||||
*
|
|
||||||
* Published: May 1993 Embedded Systems Programming magazine
|
|
||||||
* "Creating Faster Hex Files"
|
|
||||||
*
|
|
||||||
* URL: ESP magazine: http://www.embedded.com
|
|
||||||
* Source Code: ftp://ftp.mfi.com/pub/espmag/1993/pakhex.zip
|
|
||||||
*
|
|
||||||
* Author: Mark Gringrich
|
|
||||||
*
|
|
||||||
* Compiler: Microsoft C 6.0
|
|
||||||
* cl /F 1000 packhex.c
|
|
||||||
*
|
|
||||||
*
|
|
||||||
* $Id$
|
|
||||||
*
|
|
||||||
**************************************************************************/
|
|
||||||
|
|
||||||
|
|
||||||
/* #define SMALLER_RECORDS */
|
|
||||||
#ifdef SMALLER_RECORDS
|
|
||||||
#define MAX_LEN_S1_RECS 128
|
|
||||||
#define MAX_LEN_S2_RECS 128
|
|
||||||
#define MAX_LEN_S3_RECS 128
|
|
||||||
#else
|
|
||||||
#define MAX_LEN_S1_RECS 252
|
|
||||||
#define MAX_LEN_S2_RECS 251
|
|
||||||
#define MAX_LEN_S3_RECS 250
|
|
||||||
#endif
|
|
||||||
|
|
||||||
|
|
||||||
/*--------------------------------- includes ---------------------------------*/
|
|
||||||
|
|
||||||
#include <stdio.h>
|
|
||||||
#include <stdlib.h>
|
|
||||||
#include <string.h>
|
|
||||||
|
|
||||||
#include "config.h"
|
|
||||||
|
|
||||||
#ifndef VMS
|
|
||||||
#ifndef HAVE_STRERROR
|
|
||||||
extern int sys_nerr;
|
|
||||||
extern char *sys_errlist[];
|
|
||||||
|
|
||||||
#define strerror( _err ) \
|
|
||||||
((_err) < sys_nerr) ? sys_errlist [(_err)] : "unknown error"
|
|
||||||
|
|
||||||
#else /* HAVE_STRERROR */
|
|
||||||
char *strerror ();
|
|
||||||
#endif
|
|
||||||
#else /* VMS */
|
|
||||||
char *strerror (int,...);
|
|
||||||
#endif
|
|
||||||
|
|
||||||
#if defined(__unix__) && !defined(EXIT_FAILURE)
|
|
||||||
#define EXIT_FAILURE -1
|
|
||||||
#define EXIT_SUCCESS 0
|
|
||||||
#endif
|
|
||||||
|
|
||||||
/*--------------------------------- defines ----------------------------------*/
|
|
||||||
|
|
||||||
#define YES 1
|
|
||||||
#define MAX_LINE_SIZE 600
|
|
||||||
#define EOS '\0'
|
|
||||||
|
|
||||||
|
|
||||||
/*---------------------------------- macros ----------------------------------*/
|
|
||||||
|
|
||||||
/* Convert ASCII hexadecimal digit to value. */
|
|
||||||
|
|
||||||
#define HEX_DIGIT( C ) ( ( ( ( C ) > '9' ) ? ( C ) + 25 : ( C ) ) & 0xF )
|
|
||||||
|
|
||||||
|
|
||||||
/*--------------------------------- typedefs ---------------------------------*/
|
|
||||||
|
|
||||||
typedef unsigned char Boolean;
|
|
||||||
typedef unsigned char Uchar;
|
|
||||||
typedef unsigned int Uint;
|
|
||||||
typedef unsigned long Ulong;
|
|
||||||
|
|
||||||
typedef struct /* Functions and constant returning Hex-record vital stats. */
|
|
||||||
{
|
|
||||||
Boolean ( *is_data_record )( char * );
|
|
||||||
Ulong ( *get_address )( char * );
|
|
||||||
Uint ( *get_data_count )( char * );
|
|
||||||
const Uint max_data_count;
|
|
||||||
char *( *get_data_start )( char * );
|
|
||||||
void ( *put_data_record )( Uint, Ulong, char * );
|
|
||||||
} Rec_vitals;
|
|
||||||
|
|
||||||
|
|
||||||
/*--------------------------- function prototypes ----------------------------*/
|
|
||||||
|
|
||||||
Rec_vitals * identify_first_data_record( char *, int );
|
|
||||||
Ulong get_ndigit_hex( char *, int );
|
|
||||||
|
|
||||||
|
|
||||||
/*----------------------------- Intel Hex format -----------------------------*/
|
|
||||||
|
|
||||||
/*
|
|
||||||
* Intel Hex data-record layout
|
|
||||||
*
|
|
||||||
* :aabbbbccd...dee
|
|
||||||
*
|
|
||||||
* : - header character
|
|
||||||
* aa - record data byte count, a 2-digit hex value
|
|
||||||
* bbbb - record address, a 4-digit hex value
|
|
||||||
* cc - record type, a 2-digit hex value:
|
|
||||||
* "00" is a data record
|
|
||||||
* "01" is an end-of-data record
|
|
||||||
* "02" is an extended-address record
|
|
||||||
* "03" is a start record
|
|
||||||
* d...d - data (always an even number of chars)
|
|
||||||
* ee - record checksum, a 2-digit hex value
|
|
||||||
* checksum = 2's complement
|
|
||||||
* [ (sum of bytes: aabbbbccd...d) modulo 256 ]
|
|
||||||
*/
|
|
||||||
|
|
||||||
|
|
||||||
Boolean is_intel_data_rec( char * rec_str )
|
|
||||||
{
|
|
||||||
return( ( rec_str[ 0 ] == ':' ) && ( rec_str[ 8 ] == '0' ) );
|
|
||||||
}
|
|
||||||
|
|
||||||
Uint get_intel_rec_data_count( char * rec_str )
|
|
||||||
{
|
|
||||||
return( ( Uint ) get_ndigit_hex( rec_str + 1, 2 ) );
|
|
||||||
}
|
|
||||||
|
|
||||||
Ulong get_intel_rec_address( char * rec_str )
|
|
||||||
{
|
|
||||||
return( get_ndigit_hex( rec_str + 3, 4 ) );
|
|
||||||
}
|
|
||||||
|
|
||||||
char * get_intel_rec_data_start( char * rec_str )
|
|
||||||
{
|
|
||||||
return( rec_str + 9 );
|
|
||||||
}
|
|
||||||
|
|
||||||
void put_intel_data_rec( Uint count, Ulong address, char * data_str )
|
|
||||||
{
|
|
||||||
char *ptr;
|
|
||||||
Uint sum = count + ( address >> 8 & 0xff ) + ( address & 0xff );
|
|
||||||
|
|
||||||
for ( ptr = data_str ; *ptr != EOS ; ptr += 2 )
|
|
||||||
sum += ( Uint ) get_ndigit_hex( ptr, 2 );
|
|
||||||
|
|
||||||
printf(
|
|
||||||
":%02X%04lX00%s%02X\n", count, address, data_str, (~sum + 1) & 0xff
|
|
||||||
);
|
|
||||||
}
|
|
||||||
|
|
||||||
|
|
||||||
Rec_vitals intel_hex =
|
|
||||||
{
|
|
||||||
is_intel_data_rec,
|
|
||||||
get_intel_rec_address,
|
|
||||||
get_intel_rec_data_count,
|
|
||||||
255, /* Maximum data bytes in a record. */
|
|
||||||
get_intel_rec_data_start,
|
|
||||||
put_intel_data_rec
|
|
||||||
};
|
|
||||||
|
|
||||||
|
|
||||||
/*------------------------- Motorola S1-record format ------------------------*/
|
|
||||||
|
|
||||||
/*
|
|
||||||
* Motorola S-record data-record layout
|
|
||||||
*
|
|
||||||
* Sabbc...cd...dee
|
|
||||||
*
|
|
||||||
* S - header character
|
|
||||||
* a - record type, a 1-digit value:
|
|
||||||
* "0" is a header record
|
|
||||||
* "1" is a 2-byte-address data record
|
|
||||||
* "2" is a 3-byte-address data record
|
|
||||||
* "3" is a 4-byte-address data record
|
|
||||||
* "7" is a 4-byte-address end-of-data record
|
|
||||||
* "8" is a 3-byte-address end-of-data record
|
|
||||||
* "9" is a 2-byte-address end-of-data record
|
|
||||||
* bb - record length in bytes, a 2-digit hex value
|
|
||||||
* (record length doesn't count the header/type
|
|
||||||
* chars and checksum byte)
|
|
||||||
* c...c - record address, a 4-, 6-, or 8-digit value,
|
|
||||||
* depending on record type
|
|
||||||
* d...d - data (always an even number of chars)
|
|
||||||
* ee - record checksum, a 2-digit hex value
|
|
||||||
* checksum = 1's complement
|
|
||||||
* [ (sum of all bytes: bbc..cd...d) modulo 256 ]
|
|
||||||
*/
|
|
||||||
|
|
||||||
#define S1_COUNT_OFFSET 3
|
|
||||||
|
|
||||||
|
|
||||||
Boolean is_moto_s1_data_rec( char * rec_str )
|
|
||||||
{
|
|
||||||
return ( ( rec_str[ 0 ] == 'S' ) && ( rec_str[ 1 ] == '1' ) );
|
|
||||||
}
|
|
||||||
|
|
||||||
Uint get_moto_s1_rec_data_count( char * rec_str )
|
|
||||||
{
|
|
||||||
return( ( Uint ) get_ndigit_hex( rec_str + 2, 2 ) - S1_COUNT_OFFSET );
|
|
||||||
}
|
|
||||||
|
|
||||||
Ulong get_moto_s1_rec_address( char * rec_str )
|
|
||||||
{
|
|
||||||
return( get_ndigit_hex( rec_str + 4, 4 ) );
|
|
||||||
}
|
|
||||||
|
|
||||||
char * get_moto_s1_rec_data_start( char * rec_str )
|
|
||||||
{
|
|
||||||
return( rec_str + 8 );
|
|
||||||
}
|
|
||||||
|
|
||||||
void put_moto_s1_data_rec( Uint count, Ulong address, char * data_str )
|
|
||||||
{
|
|
||||||
char *ptr;
|
|
||||||
Uint sum = S1_COUNT_OFFSET + count +
|
|
||||||
( address >> 8 & 0xff ) + ( address & 0xff );
|
|
||||||
|
|
||||||
for ( ptr = data_str ; *ptr != EOS ; ptr += 2 )
|
|
||||||
sum += ( Uint ) get_ndigit_hex( ptr, 2 );
|
|
||||||
|
|
||||||
printf(
|
|
||||||
"S1%02X%04lX%s%02X\n",
|
|
||||||
count + S1_COUNT_OFFSET, address, data_str, ~sum & 0xff
|
|
||||||
);
|
|
||||||
}
|
|
||||||
|
|
||||||
|
|
||||||
Rec_vitals motorola_s1_rec =
|
|
||||||
{
|
|
||||||
is_moto_s1_data_rec,
|
|
||||||
get_moto_s1_rec_address,
|
|
||||||
get_moto_s1_rec_data_count,
|
|
||||||
MAX_LEN_S1_RECS, /* Maximum data bytes in a record. */
|
|
||||||
get_moto_s1_rec_data_start,
|
|
||||||
put_moto_s1_data_rec
|
|
||||||
};
|
|
||||||
|
|
||||||
|
|
||||||
/*------------------------- Motorola S2-record format ------------------------*/
|
|
||||||
|
|
||||||
#define S2_COUNT_OFFSET 4
|
|
||||||
|
|
||||||
Boolean is_moto_s2_data_rec( char * rec_str )
|
|
||||||
{
|
|
||||||
return ( ( rec_str[ 0 ] == 'S' ) && ( rec_str[ 1 ] == '2' ) );
|
|
||||||
}
|
|
||||||
|
|
||||||
Uint get_moto_s2_rec_data_count( char * rec_str )
|
|
||||||
{
|
|
||||||
return( ( Uint ) get_ndigit_hex( rec_str + 2, 2 ) - S2_COUNT_OFFSET );
|
|
||||||
}
|
|
||||||
|
|
||||||
Ulong get_moto_s2_rec_address( char * rec_str )
|
|
||||||
{
|
|
||||||
return( get_ndigit_hex( rec_str + 4, 6 ) );
|
|
||||||
}
|
|
||||||
|
|
||||||
char * get_moto_s2_rec_data_start( char * rec_str )
|
|
||||||
{
|
|
||||||
return( rec_str + 10 );
|
|
||||||
}
|
|
||||||
|
|
||||||
void put_moto_s2_data_rec( Uint count, Ulong address, char * data_str )
|
|
||||||
{
|
|
||||||
char *ptr;
|
|
||||||
Uint sum = S2_COUNT_OFFSET + count + ( address >> 16 & 0xff ) +
|
|
||||||
( address >> 8 & 0xff ) +
|
|
||||||
( address & 0xff );
|
|
||||||
|
|
||||||
for ( ptr = data_str ; *ptr != EOS ; ptr += 2 )
|
|
||||||
sum += ( Uint ) get_ndigit_hex( ptr, 2 );
|
|
||||||
|
|
||||||
printf(
|
|
||||||
"S2%02X%06lX%s%02X\n",
|
|
||||||
count + S2_COUNT_OFFSET, address, data_str, ~sum & 0xff
|
|
||||||
);
|
|
||||||
}
|
|
||||||
|
|
||||||
|
|
||||||
Rec_vitals motorola_s2_rec =
|
|
||||||
{
|
|
||||||
is_moto_s2_data_rec,
|
|
||||||
get_moto_s2_rec_address,
|
|
||||||
get_moto_s2_rec_data_count,
|
|
||||||
MAX_LEN_S2_RECS, /* Maximum data bytes in a record. */
|
|
||||||
get_moto_s2_rec_data_start,
|
|
||||||
put_moto_s2_data_rec
|
|
||||||
};
|
|
||||||
|
|
||||||
|
|
||||||
/*------------------------- Motorola S3-record format ------------------------*/
|
|
||||||
|
|
||||||
#define S3_COUNT_OFFSET 5
|
|
||||||
|
|
||||||
Boolean is_moto_s3_data_rec( char * rec_str )
|
|
||||||
{
|
|
||||||
return ( ( rec_str[ 0 ] == 'S' ) && ( rec_str[ 1 ] == '3' ) );
|
|
||||||
}
|
|
||||||
|
|
||||||
Uint get_moto_s3_rec_data_count( char * rec_str )
|
|
||||||
{
|
|
||||||
return( ( Uint ) get_ndigit_hex( rec_str + 2, 2 ) - S3_COUNT_OFFSET );
|
|
||||||
}
|
|
||||||
|
|
||||||
Ulong get_moto_s3_rec_address( char * rec_str )
|
|
||||||
{
|
|
||||||
return( get_ndigit_hex( rec_str + 4, 8 ) );
|
|
||||||
}
|
|
||||||
|
|
||||||
char * get_moto_s3_rec_data_start( char * rec_str )
|
|
||||||
{
|
|
||||||
return( rec_str + 12 );
|
|
||||||
}
|
|
||||||
|
|
||||||
void put_moto_s3_data_rec( Uint count, Ulong address, char * data_str )
|
|
||||||
{
|
|
||||||
char *ptr;
|
|
||||||
Uint sum = S3_COUNT_OFFSET + count + ( address >> 24 & 0xff ) +
|
|
||||||
( address >> 16 & 0xff ) +
|
|
||||||
( address >> 8 & 0xff ) +
|
|
||||||
( address & 0xff );
|
|
||||||
|
|
||||||
for ( ptr = data_str ; *ptr != EOS ; ptr += 2 )
|
|
||||||
sum += ( Uint ) get_ndigit_hex( ptr, 2 );
|
|
||||||
|
|
||||||
printf(
|
|
||||||
"S3%02X%08lX%s%02X\n",
|
|
||||||
count + S3_COUNT_OFFSET, address, data_str, ~sum & 0xff
|
|
||||||
);
|
|
||||||
}
|
|
||||||
|
|
||||||
|
|
||||||
Rec_vitals motorola_s3_rec =
|
|
||||||
{
|
|
||||||
is_moto_s3_data_rec,
|
|
||||||
get_moto_s3_rec_address,
|
|
||||||
get_moto_s3_rec_data_count,
|
|
||||||
MAX_LEN_S3_RECS, /* Maximum data bytes in a record. */
|
|
||||||
get_moto_s3_rec_data_start,
|
|
||||||
put_moto_s3_data_rec
|
|
||||||
};
|
|
||||||
|
|
||||||
|
|
||||||
/*-------------------- Put your favorite hex format here ---------------------*/
|
|
||||||
|
|
||||||
/*
|
|
||||||
* * * * The following is a template for an additional hex format: * * *
|
|
||||||
*
|
|
||||||
*
|
|
||||||
* Boolean is_X_data_rec( char * rec_str ) {}
|
|
||||||
*
|
|
||||||
* Uint get_X_rec_data_count( char * rec_str ) {}
|
|
||||||
*
|
|
||||||
* Ulong get_X_rec_address( char * rec_str ) {}
|
|
||||||
*
|
|
||||||
* char * get_X_rec_data_start( char * rec_str ) {}
|
|
||||||
*
|
|
||||||
* void put_X_data_rec( Uint count, Ulong address, char * data_str ) {}
|
|
||||||
*
|
|
||||||
* Rec_vitals X_rec =
|
|
||||||
* {
|
|
||||||
* is_X_data_rec,
|
|
||||||
* get_X_rec_address,
|
|
||||||
* get_X_rec_data_count,
|
|
||||||
* MAXIMUM DATA BYTES IN A RECORD,
|
|
||||||
* get_X_rec_data_start,
|
|
||||||
* put_X_data_rec
|
|
||||||
* };
|
|
||||||
*
|
|
||||||
*/
|
|
||||||
|
|
||||||
/*----------------------------------------------------------------------------*/
|
|
||||||
|
|
||||||
|
|
||||||
/*
|
|
||||||
* Put address of additional Rec_vitals structures
|
|
||||||
* in this array, before the NULL entry.
|
|
||||||
*/
|
|
||||||
|
|
||||||
Rec_vitals *formats[] =
|
|
||||||
{
|
|
||||||
&intel_hex,
|
|
||||||
&motorola_s1_rec,
|
|
||||||
&motorola_s2_rec,
|
|
||||||
&motorola_s3_rec,
|
|
||||||
( Rec_vitals * ) NULL
|
|
||||||
};
|
|
||||||
|
|
||||||
|
|
||||||
/**** main *****************************************************************
|
|
||||||
*
|
|
||||||
*
|
|
||||||
* Expects: Nothing (no command-line parameters).
|
|
||||||
*
|
|
||||||
* Returns: Exit status (EXIT_SUCCESS or EXIT_FAILURE).
|
|
||||||
*
|
|
||||||
* Reads hex records on the standard input and attempts to
|
|
||||||
* splice adjacent data fields together. Results appear on
|
|
||||||
* the standard output.
|
|
||||||
*
|
|
||||||
*******************************************************************************/
|
|
||||||
|
|
||||||
int main(
|
|
||||||
int argc,
|
|
||||||
char **argv
|
|
||||||
)
|
|
||||||
{
|
|
||||||
|
|
||||||
char inbuff[ MAX_LINE_SIZE ], outbuff[ MAX_LINE_SIZE ];
|
|
||||||
char *in_dptr, *out_dptr;
|
|
||||||
int d_total, d_count, d_excess, n;
|
|
||||||
int length;
|
|
||||||
Ulong in_rec_addr, out_rec_addr = 0;
|
|
||||||
Rec_vitals *rptr;
|
|
||||||
|
|
||||||
|
|
||||||
/* Sift through file until first hex record is identified. */
|
|
||||||
|
|
||||||
rptr = identify_first_data_record( inbuff, MAX_LINE_SIZE );
|
|
||||||
if ( rptr == NULL )
|
|
||||||
{
|
|
||||||
fputs( "No hex records found.\n", stderr );
|
|
||||||
exit( EXIT_FAILURE );
|
|
||||||
}
|
|
||||||
|
|
||||||
|
|
||||||
/* Attempt data-record splicing until end-of-file is reached. */
|
|
||||||
d_total = 0;
|
|
||||||
for (;;) {
|
|
||||||
if ( rptr->is_data_record( inbuff ) == YES )
|
|
||||||
{ /* Input record is a data record. */
|
|
||||||
d_count = rptr->get_data_count( inbuff );
|
|
||||||
in_rec_addr = rptr->get_address( inbuff );
|
|
||||||
in_dptr = rptr->get_data_start( inbuff );
|
|
||||||
|
|
||||||
if ( d_total == 0 || in_rec_addr != out_rec_addr + d_total )
|
|
||||||
{ /* Begin a new output record. */
|
|
||||||
if ( d_total != 0 )
|
|
||||||
rptr->put_data_record( d_total, out_rec_addr, outbuff );
|
|
||||||
out_dptr = outbuff;
|
|
||||||
n = d_total = d_count;
|
|
||||||
out_rec_addr = in_rec_addr;
|
|
||||||
}
|
|
||||||
else if
|
|
||||||
( ( d_excess = d_total + d_count - rptr->max_data_count ) > 0 )
|
|
||||||
{ /* Output a maximum-length record, then start a new record. */
|
|
||||||
strncat( outbuff, in_dptr, 2 * ( d_count - d_excess ) );
|
|
||||||
rptr->put_data_record(
|
|
||||||
rptr->max_data_count, out_rec_addr, outbuff
|
|
||||||
);
|
|
||||||
in_dptr += 2 * ( d_count - d_excess );
|
|
||||||
out_dptr = outbuff;
|
|
||||||
n = d_total = d_excess;
|
|
||||||
out_rec_addr += rptr->max_data_count;
|
|
||||||
}
|
|
||||||
else
|
|
||||||
{ /* Append input record's data field with accumulated data. */
|
|
||||||
out_dptr = outbuff + ( 2 * d_total );
|
|
||||||
d_total += n = d_count;
|
|
||||||
}
|
|
||||||
strncpy( out_dptr, in_dptr, 2 * n );
|
|
||||||
out_dptr[ 2 * n ] = EOS;
|
|
||||||
}
|
|
||||||
else
|
|
||||||
{ /* Not a data record;
|
|
||||||
* flush accumulated data then echo non-data record.
|
|
||||||
*/
|
|
||||||
if ( d_total != 0 )
|
|
||||||
{
|
|
||||||
rptr->put_data_record( d_total, out_rec_addr, outbuff );
|
|
||||||
d_total = 0;
|
|
||||||
}
|
|
||||||
puts( inbuff );
|
|
||||||
}
|
|
||||||
|
|
||||||
inbuff[ MAX_LINE_SIZE - 1 ] = '\0';
|
|
||||||
if ( !fgets( inbuff, MAX_LINE_SIZE, stdin ) )
|
|
||||||
break;
|
|
||||||
if ( inbuff[ MAX_LINE_SIZE - 1 ] ) {
|
|
||||||
fprintf( stderr, "Input line too long" );
|
|
||||||
exit( 1 );
|
|
||||||
}
|
|
||||||
length = strlen(inbuff);
|
|
||||||
inbuff[length - 1] = '\0';
|
|
||||||
|
|
||||||
}
|
|
||||||
|
|
||||||
|
|
||||||
return ( EXIT_SUCCESS );
|
|
||||||
|
|
||||||
}
|
|
||||||
|
|
||||||
|
|
||||||
/**** identify_first_data_record *******************************************
|
|
||||||
*
|
|
||||||
* Expects: Pointer to hex-record line buffer.
|
|
||||||
*
|
|
||||||
* Returns: Pointer to hex-record structure (NULL if no match found).
|
|
||||||
*
|
|
||||||
* Reads the standard input, line by line, searching for a valid
|
|
||||||
* record header character. If a valid header is found, a pointer
|
|
||||||
* to the hex-record's type structure is returned, otherwise NULL.
|
|
||||||
*
|
|
||||||
* The input-stream pointer is left pointing to the first valid hex record.
|
|
||||||
*
|
|
||||||
*******************************************************************************/
|
|
||||||
|
|
||||||
Rec_vitals * identify_first_data_record( char * buff_ptr, int max_length )
|
|
||||||
{
|
|
||||||
Rec_vitals ** ptr;
|
|
||||||
int length;
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
for ( ;; ) {
|
|
||||||
|
|
||||||
buff_ptr[ max_length - 1 ] = '\0';
|
|
||||||
if ( !fgets( buff_ptr, max_length, stdin ) )
|
|
||||||
break;
|
|
||||||
if ( buff_ptr[ max_length - 1 ] ) {
|
|
||||||
fprintf( stderr, "Input line too long" );
|
|
||||||
exit( 1 );
|
|
||||||
}
|
|
||||||
length = strlen(buff_ptr);
|
|
||||||
buff_ptr[length - 1] = '\0';
|
|
||||||
|
|
||||||
for ( ptr = formats ; *ptr != ( Rec_vitals * ) NULL ; ptr++ )
|
|
||||||
if ( ( *ptr )->is_data_record( buff_ptr ) == YES )
|
|
||||||
return( *ptr ); /* Successful return. */
|
|
||||||
|
|
||||||
puts( buff_ptr ); /* Echo non-hex-record line. */
|
|
||||||
}
|
|
||||||
|
|
||||||
return( ( Rec_vitals * ) NULL ); /* Unsuccessful return. */
|
|
||||||
}
|
|
||||||
|
|
||||||
|
|
||||||
/**** get_ndigit_hex *******************************************************
|
|
||||||
*
|
|
||||||
* Expects: Pointer to first ASCII hexadecimal digit, number of digits.
|
|
||||||
*
|
|
||||||
* Returns: Value of hexadecimal string as an unsigned long.
|
|
||||||
*
|
|
||||||
*******************************************************************************/
|
|
||||||
|
|
||||||
Ulong get_ndigit_hex( char * cptr, int digits )
|
|
||||||
{
|
|
||||||
Ulong value;
|
|
||||||
|
|
||||||
for ( value = 0 ; --digits >= 0 ; cptr++ )
|
|
||||||
value = ( value * 16L ) + HEX_DIGIT( *cptr );
|
|
||||||
|
|
||||||
return( value );
|
|
||||||
}
|
|
||||||
@@ -1,73 +0,0 @@
|
|||||||
#!@KSH@ -p
|
|
||||||
#
|
|
||||||
# $Id$
|
|
||||||
#
|
|
||||||
# Delete all files from the current directory that can be recreated
|
|
||||||
# via RCS 'co' commonds
|
|
||||||
# Used by 'make clobber'
|
|
||||||
#
|
|
||||||
|
|
||||||
progname=${0##*/} # fast basename hack for ksh, bash
|
|
||||||
|
|
||||||
USAGE=\
|
|
||||||
"usage: $progname [ -v ]"
|
|
||||||
|
|
||||||
fatal() {
|
|
||||||
if [ "$1" ]
|
|
||||||
then
|
|
||||||
echo $* >&2
|
|
||||||
fi
|
|
||||||
echo "$USAGE" 1>&2
|
|
||||||
exit 1
|
|
||||||
}
|
|
||||||
|
|
||||||
#
|
|
||||||
# process the options
|
|
||||||
#
|
|
||||||
|
|
||||||
verbose=""
|
|
||||||
|
|
||||||
while getopts v OPT
|
|
||||||
do
|
|
||||||
case "$OPT" in
|
|
||||||
v)
|
|
||||||
verbose="yes";;
|
|
||||||
*)
|
|
||||||
fatal
|
|
||||||
esac
|
|
||||||
done
|
|
||||||
|
|
||||||
let $((shiftcount = $OPTIND - 1))
|
|
||||||
shift $shiftcount
|
|
||||||
|
|
||||||
args=$*
|
|
||||||
[ "$args" ] && fatal
|
|
||||||
|
|
||||||
[ -d RCS/. ] || exit 0
|
|
||||||
|
|
||||||
# there is probably a better way to do this
|
|
||||||
|
|
||||||
rcs_files=`echo RCS/*,v | sed -e 's?RCS/??g' -e's/,v//g'`
|
|
||||||
|
|
||||||
kills=""
|
|
||||||
for f in $rcs_files
|
|
||||||
do
|
|
||||||
# build list of all files in RCS/*,v that are *not* locked
|
|
||||||
if [ -f $f ] && [ ! -w $f ] && [ -f RCS/$f,v ]
|
|
||||||
then
|
|
||||||
locked=`rlog -L -R $f`
|
|
||||||
[ "$locked" = "" ] && kills="$kills $f"
|
|
||||||
fi
|
|
||||||
done
|
|
||||||
|
|
||||||
if [ "$kills" ]
|
|
||||||
then
|
|
||||||
[ "$verbose" ] && echo rm -f $kills
|
|
||||||
rm -f $kills
|
|
||||||
fi
|
|
||||||
|
|
||||||
exit 0
|
|
||||||
|
|
||||||
# Local Variables: ***
|
|
||||||
# mode:ksh ***
|
|
||||||
# End: ***
|
|
||||||
@@ -1,15 +0,0 @@
|
|||||||
#!/bin/sh
|
|
||||||
#
|
|
||||||
# $Id$
|
|
||||||
#
|
|
||||||
|
|
||||||
find $1 -type f -a ! -name "*.scn" -a ! -name "bsp_specs" -a \
|
|
||||||
-print > /tmp/$$.0
|
|
||||||
find $1 -type f -a ! -name "*.scn" -a ! -name "bsp_specs" -a \
|
|
||||||
-exec grep -l '$Id' {} \; > /tmp/$$.1
|
|
||||||
|
|
||||||
diff /tmp/$$.0 /tmp/$$.1 > /tmp/$$.2
|
|
||||||
|
|
||||||
grep "<" /tmp/$$.2 | sed 's/< //' >&1
|
|
||||||
|
|
||||||
rm -f /tmp/$$*
|
|
||||||
@@ -1,738 +0,0 @@
|
|||||||
/*
|
|
||||||
* unhex
|
|
||||||
* convert a hex file to binary equivalent. If more than one file name
|
|
||||||
* is given, then the output will be logically concatenated together.
|
|
||||||
* stdin and stdout are defaults. Verbose will enable checksum output.
|
|
||||||
*
|
|
||||||
* Supported input formats are Intel hex, Motorola S records, and TI 'B'
|
|
||||||
* records.
|
|
||||||
*
|
|
||||||
* Intel hex input format is
|
|
||||||
* Byte
|
|
||||||
* 1 Colon :
|
|
||||||
* 2..3 Record length, eg: "20"
|
|
||||||
* 4..7 load address nibbles
|
|
||||||
* 8..9 record type: "00" (data) or "02" base addr
|
|
||||||
* 10..x data bytes in ascii-hex
|
|
||||||
* x+1..x+2 cksum (2's compl of (len+addr+data))
|
|
||||||
* x+3 \n -- newline
|
|
||||||
*
|
|
||||||
* $Id$
|
|
||||||
*/
|
|
||||||
|
|
||||||
char *USAGE = "\
|
|
||||||
usage: unhex [-va] [ -o file ] [ file [file ... ] ]\n\
|
|
||||||
-v -- verbose\n\
|
|
||||||
-a base -- 1st byte of output corresponds to this address\n\
|
|
||||||
-l -- linear, just writes data out\n\
|
|
||||||
-o file -- output file; must not be input file\n\
|
|
||||||
-F k_bits -- \"holes\" in input will be filled with 0xFF's\n\
|
|
||||||
up to \"k_bits\" * 1024 bits\n\
|
|
||||||
";
|
|
||||||
|
|
||||||
#include <stdio.h>
|
|
||||||
#include <fcntl.h>
|
|
||||||
#include <ctype.h>
|
|
||||||
#include <string.h>
|
|
||||||
#include <unistd.h>
|
|
||||||
#include <stdlib.h>
|
|
||||||
#include <stdarg.h>
|
|
||||||
#include <errno.h>
|
|
||||||
|
|
||||||
#include "config.h"
|
|
||||||
|
|
||||||
#ifndef VMS
|
|
||||||
#ifndef HAVE_STRERROR
|
|
||||||
extern int sys_nerr;
|
|
||||||
extern char *sys_errlist[];
|
|
||||||
|
|
||||||
#define strerror( _err ) \
|
|
||||||
((_err) < sys_nerr) ? sys_errlist [(_err)] : "unknown error"
|
|
||||||
|
|
||||||
#else /* HAVE_STRERROR */
|
|
||||||
char *strerror ();
|
|
||||||
#endif
|
|
||||||
#else /* VMS */
|
|
||||||
char *strerror (int,...);
|
|
||||||
#endif
|
|
||||||
|
|
||||||
|
|
||||||
#define OK 0
|
|
||||||
#define FAILURE (-1)
|
|
||||||
#define Failed(x) ((x) == FAILURE)
|
|
||||||
#define TRUE 1
|
|
||||||
#define FALSE 0
|
|
||||||
typedef char bool;
|
|
||||||
#define STREQ(a,b) (strcmp(a,b) == 0)
|
|
||||||
|
|
||||||
typedef unsigned char u8;
|
|
||||||
typedef unsigned short u16;
|
|
||||||
typedef unsigned long u32;
|
|
||||||
|
|
||||||
/*
|
|
||||||
* Pick out designated bytes
|
|
||||||
*/
|
|
||||||
|
|
||||||
#define B0(x) ((x) & 0xff)
|
|
||||||
#define B1(x) B0((x) >> 8)
|
|
||||||
#define B2(x) B0((x) >> 16)
|
|
||||||
#define B3(x) B0((x) >> 24)
|
|
||||||
|
|
||||||
typedef struct buffer_rec {
|
|
||||||
u32 dl_destaddr;
|
|
||||||
u32 dl_jumpaddr;
|
|
||||||
int dl_count;
|
|
||||||
u8 dl_buf[512];
|
|
||||||
} buffer_rec;
|
|
||||||
|
|
||||||
/*
|
|
||||||
* vars controlled by command line options
|
|
||||||
*/
|
|
||||||
|
|
||||||
bool verbose = FALSE; /* be verbose */
|
|
||||||
bool linear = FALSE; /* just write out linear data */
|
|
||||||
char *outfilename = "-"; /* default output is stdout */
|
|
||||||
u32 base = 0L; /* base address */
|
|
||||||
u32 FFfill = 0L; /* how far to fill w 0xFF's */
|
|
||||||
|
|
||||||
extern char *optarg; /* getopt(3) control vars */
|
|
||||||
extern int optind;
|
|
||||||
|
|
||||||
char *progname; /* for error() */
|
|
||||||
|
|
||||||
void error(int errn, ...);
|
|
||||||
#define ERR_ERRNO (1<<((sizeof(int) * 8) - 2)) /* hi bit; use 'errno' */
|
|
||||||
#define ERR_FATAL (ERR_ERRNO / 2) /* error is fatal; no return */
|
|
||||||
#define ERR_ABORT (ERR_ERRNO / 4) /* error is fatal; abort */
|
|
||||||
#define ERR_MASK (ERR_ERRNO | ERR_FATAL | ERR_ABORT) /* all */
|
|
||||||
|
|
||||||
#ifdef HAVE_STRTOUL
|
|
||||||
#define stol(p) strtoul(p, (char **) NULL, 0)
|
|
||||||
#else
|
|
||||||
#define stol(p) strtol(p, (char **) NULL, 0)
|
|
||||||
#endif
|
|
||||||
|
|
||||||
int unhex(FILE *ifp, char *inm, FILE *ofp, char *onm);
|
|
||||||
int convert_Intel_records(FILE *ifp, char *inm, FILE *ofp, char *onm);
|
|
||||||
int convert_S_records(FILE *ifp, char *inm, FILE *ofp, char *onm);
|
|
||||||
int convert_TI_records(FILE *ifp, char *inm, FILE *ofp, char *onm);
|
|
||||||
void write_record(buffer_rec *tb, FILE *fp);
|
|
||||||
int getnibble(char **p);
|
|
||||||
int getbyte(char **p);
|
|
||||||
long getNbytes(char **p, int n);
|
|
||||||
void badformat(char *s, char *fname, char *msg);
|
|
||||||
|
|
||||||
#define get1bytes(p) ((int) getbyte(p))
|
|
||||||
#define get2bytes(p) ((int) getNbytes(p, 2))
|
|
||||||
#define get3bytes(p) getNbytes(p, 3)
|
|
||||||
#define get4bytes(p) getNbytes(p, 4)
|
|
||||||
|
|
||||||
char *BADADDR = "Invalid record address";
|
|
||||||
char *BADLEN = "Invalid record length";
|
|
||||||
char *BADBASE = "Bad base or starting address";
|
|
||||||
char *BADFMT = "Unrecognized record type";
|
|
||||||
char *BADDATA = "Invalid data byte";
|
|
||||||
char *BADCSUM = "Invalid checksum";
|
|
||||||
char *MISCSUM = "Checksum mismatch";
|
|
||||||
char *BADTYPE = "Unrecognized record type";
|
|
||||||
char *MISTYPE = "Incompatible record types";
|
|
||||||
|
|
||||||
int main(
|
|
||||||
int argc,
|
|
||||||
char **argv
|
|
||||||
)
|
|
||||||
{
|
|
||||||
register int c;
|
|
||||||
bool showusage = FALSE; /* usage error? */
|
|
||||||
int rc = 0;
|
|
||||||
FILE *outfp, *infp;
|
|
||||||
|
|
||||||
/*
|
|
||||||
* figure out invocation leaf-name
|
|
||||||
*/
|
|
||||||
|
|
||||||
if ((progname = strrchr(argv[0], '/')) == (char *) NULL)
|
|
||||||
progname = argv[0];
|
|
||||||
else
|
|
||||||
progname++;
|
|
||||||
|
|
||||||
argv[0] = progname; /* for getopt err reporting */
|
|
||||||
|
|
||||||
/*
|
|
||||||
* Check options and arguments.
|
|
||||||
*/
|
|
||||||
|
|
||||||
progname = argv[0];
|
|
||||||
while ((c = getopt(argc, argv, "F:a:o:vl")) != EOF)
|
|
||||||
switch (c)
|
|
||||||
{
|
|
||||||
case 'a': /* base address */
|
|
||||||
base = stol(optarg);
|
|
||||||
break;
|
|
||||||
|
|
||||||
case 'l': /* linear output */
|
|
||||||
linear = TRUE;
|
|
||||||
break;
|
|
||||||
|
|
||||||
case 'v': /* toggle verbose */
|
|
||||||
verbose = ! verbose;
|
|
||||||
break;
|
|
||||||
|
|
||||||
case 'o': /* output file */
|
|
||||||
outfilename = optarg;
|
|
||||||
break;
|
|
||||||
|
|
||||||
case 'F': /* 0xFF fill amount (bytes) */
|
|
||||||
FFfill = stol(optarg) * 1024L / 8L;
|
|
||||||
break;
|
|
||||||
|
|
||||||
case '?':
|
|
||||||
showusage = TRUE;
|
|
||||||
}
|
|
||||||
|
|
||||||
if (showusage)
|
|
||||||
{
|
|
||||||
(void) fprintf(stderr, "%s", USAGE);
|
|
||||||
exit(1);
|
|
||||||
}
|
|
||||||
|
|
||||||
if (linear && (base != 0))
|
|
||||||
{
|
|
||||||
error(0, "-l and -a may not be specified in combination");
|
|
||||||
exit(1);
|
|
||||||
}
|
|
||||||
|
|
||||||
if (STREQ(outfilename, "-"))
|
|
||||||
{
|
|
||||||
outfp = stdout;
|
|
||||||
outfilename = "stdout";
|
|
||||||
}
|
|
||||||
else
|
|
||||||
if ((outfp = fopen(outfilename, "w")) == (FILE *) NULL)
|
|
||||||
{
|
|
||||||
error(-1, "couldn't open '%s' for output", outfilename);
|
|
||||||
exit(1);
|
|
||||||
}
|
|
||||||
|
|
||||||
/*
|
|
||||||
* Now process the input files (or stdin, if none specified)
|
|
||||||
*/
|
|
||||||
|
|
||||||
if (argv[optind] == (char *) NULL) /* just stdin */
|
|
||||||
exit(unhex(stdin, "stdin", outfp, outfilename));
|
|
||||||
else
|
|
||||||
for (; (optarg = argv[optind]); optind++)
|
|
||||||
{
|
|
||||||
if (STREQ(optarg, "-"))
|
|
||||||
rc += unhex(stdin, "stdin", outfp, outfilename);
|
|
||||||
else
|
|
||||||
{
|
|
||||||
if ((infp = fopen(optarg, "r")) == (FILE *) NULL)
|
|
||||||
{
|
|
||||||
error(-1, "couldn't open '%s' for input", optarg);
|
|
||||||
exit(1);
|
|
||||||
}
|
|
||||||
rc += unhex(infp, optarg, outfp, outfilename);
|
|
||||||
}
|
|
||||||
}
|
|
||||||
|
|
||||||
return(rc);
|
|
||||||
}
|
|
||||||
|
|
||||||
u16 filesum;
|
|
||||||
|
|
||||||
int
|
|
||||||
unhex(FILE *ifp,
|
|
||||||
char *inm,
|
|
||||||
FILE *ofp,
|
|
||||||
char *onm)
|
|
||||||
{
|
|
||||||
int c;
|
|
||||||
|
|
||||||
filesum = 0;
|
|
||||||
|
|
||||||
/*
|
|
||||||
* Make sure holes will be filled with 0xFF's if requested. We
|
|
||||||
* do this the easy way by just filling the file with FF's before
|
|
||||||
* getting started. To do it more optimally would be quite a bit
|
|
||||||
* more difficult since the user can skip around as much as he/she
|
|
||||||
* likes in the input hex file addressing.
|
|
||||||
*
|
|
||||||
* We'll clean this up later (after this program has run) with
|
|
||||||
* 'stripffs'
|
|
||||||
*/
|
|
||||||
|
|
||||||
if (FFfill)
|
|
||||||
{
|
|
||||||
(void) fseek(ofp, 0, 0);
|
|
||||||
for (c = FFfill; c > 0; c--)
|
|
||||||
(void) fputc(0xFF, ofp);
|
|
||||||
}
|
|
||||||
|
|
||||||
/*
|
|
||||||
* Read the first char from file and determine record types
|
|
||||||
*/
|
|
||||||
|
|
||||||
if ((c = getc(ifp)) != EOF)
|
|
||||||
{
|
|
||||||
ungetc(c, ifp);
|
|
||||||
switch(c)
|
|
||||||
{
|
|
||||||
case 'S':
|
|
||||||
convert_S_records(ifp, inm, ofp, onm);
|
|
||||||
break;
|
|
||||||
|
|
||||||
case ':':
|
|
||||||
convert_Intel_records(ifp, inm, ofp, onm);
|
|
||||||
break;
|
|
||||||
|
|
||||||
case '9':
|
|
||||||
case 'B':
|
|
||||||
convert_TI_records(ifp, inm, ofp, onm);
|
|
||||||
break;
|
|
||||||
|
|
||||||
default:
|
|
||||||
{
|
|
||||||
char tmp[2];
|
|
||||||
tmp[0] = c; tmp[1] = 0;
|
|
||||||
badformat(tmp, inm, BADFMT);
|
|
||||||
}
|
|
||||||
}
|
|
||||||
}
|
|
||||||
|
|
||||||
if (verbose)
|
|
||||||
fprintf(stderr, "'%s' checksum is 0x%04x\n", inm, filesum);
|
|
||||||
|
|
||||||
return 0;
|
|
||||||
}
|
|
||||||
|
|
||||||
int
|
|
||||||
convert_Intel_records(
|
|
||||||
FILE *ifp,
|
|
||||||
char *inm,
|
|
||||||
FILE *ofp,
|
|
||||||
char *onm)
|
|
||||||
{
|
|
||||||
char buff[512];
|
|
||||||
char *p;
|
|
||||||
u8 cksum;
|
|
||||||
int incksum;
|
|
||||||
int c;
|
|
||||||
int rectype; /* record type */
|
|
||||||
int len; /* data length of current line */
|
|
||||||
u32 addr;
|
|
||||||
u32 base_address = 0;
|
|
||||||
bool endrecord = FALSE;
|
|
||||||
buffer_rec tb;
|
|
||||||
|
|
||||||
while ( ! endrecord && (fgets(buff, sizeof(buff), ifp)))
|
|
||||||
{
|
|
||||||
p = &buff[0];
|
|
||||||
|
|
||||||
if (p[strlen(p)-1] == '\n') /* get rid of newline */
|
|
||||||
p[strlen(p)-1] = '\0';
|
|
||||||
|
|
||||||
if (p[strlen(p)-1] == '\r') /* get rid of any CR */
|
|
||||||
p[strlen(p)-1] = '\0';
|
|
||||||
|
|
||||||
tb.dl_count = 0;
|
|
||||||
|
|
||||||
if (*p != ':')
|
|
||||||
badformat(p, inm, BADFMT);
|
|
||||||
p++;
|
|
||||||
|
|
||||||
if ((len = getbyte(&p)) == -1) /* record len */
|
|
||||||
badformat(buff, inm, BADLEN);
|
|
||||||
|
|
||||||
if ((addr = get2bytes(&p)) == -1L) /* record addr */
|
|
||||||
badformat(buff, inm, BADADDR);
|
|
||||||
|
|
||||||
rectype = getbyte(&p);
|
|
||||||
|
|
||||||
cksum = len + B0(addr) + B1(addr) + rectype;
|
|
||||||
|
|
||||||
switch (rectype)
|
|
||||||
{
|
|
||||||
case 0x00: /* normal data record */
|
|
||||||
tb.dl_destaddr = base_address + addr;
|
|
||||||
while (len--)
|
|
||||||
{
|
|
||||||
if ((c = getbyte(&p)) == -1)
|
|
||||||
badformat(buff, inm, BADDATA);
|
|
||||||
cksum += c;
|
|
||||||
filesum += c;
|
|
||||||
tb.dl_buf[tb.dl_count++] = c;
|
|
||||||
}
|
|
||||||
break;
|
|
||||||
|
|
||||||
case 0x01: /* execution start address */
|
|
||||||
base_address = addr;
|
|
||||||
endrecord = TRUE;
|
|
||||||
break;
|
|
||||||
|
|
||||||
case 0x02: /* new base */
|
|
||||||
if ((base_address = get2bytes(&p)) == -1L)
|
|
||||||
badformat(buff, inm, BADBASE);
|
|
||||||
cksum += B0(base_address) + B1(base_address);
|
|
||||||
base_address <<= 4;
|
|
||||||
break;
|
|
||||||
|
|
||||||
case 0x03: /* seg/off execution start address */
|
|
||||||
{
|
|
||||||
u32 seg, off;
|
|
||||||
|
|
||||||
seg = get2bytes(&p);
|
|
||||||
off = get2bytes(&p);
|
|
||||||
if ((seg == -1L) || (off == -1L))
|
|
||||||
badformat(buff, inm, BADADDR);
|
|
||||||
|
|
||||||
cksum += B0(seg) + B1(seg) + B0(off) + B1(off);
|
|
||||||
|
|
||||||
tb.dl_jumpaddr = (seg << 4) + off;
|
|
||||||
break;
|
|
||||||
}
|
|
||||||
|
|
||||||
default:
|
|
||||||
error(0, "unknown Intel-hex record type: 0x%02x", rectype);
|
|
||||||
badformat(buff, inm, BADTYPE);
|
|
||||||
}
|
|
||||||
|
|
||||||
/*
|
|
||||||
* Verify checksums are correct in file.
|
|
||||||
*/
|
|
||||||
|
|
||||||
cksum = (-cksum) & 0xff;
|
|
||||||
if ((incksum = getbyte(&p)) == -1)
|
|
||||||
badformat(buff, inm, BADCSUM);
|
|
||||||
if (((u8) incksum) != cksum)
|
|
||||||
badformat(buff, inm, MISCSUM);
|
|
||||||
|
|
||||||
if (tb.dl_count)
|
|
||||||
write_record(&tb, ofp);
|
|
||||||
}
|
|
||||||
return 0;
|
|
||||||
}
|
|
||||||
|
|
||||||
int
|
|
||||||
convert_S_records(
|
|
||||||
FILE *ifp,
|
|
||||||
char *inm,
|
|
||||||
FILE *ofp,
|
|
||||||
char *onm)
|
|
||||||
{
|
|
||||||
char buff[512];
|
|
||||||
char *p;
|
|
||||||
u8 cksum;
|
|
||||||
int incksum;
|
|
||||||
int c;
|
|
||||||
int len; /* data length of current line */
|
|
||||||
int rectype; /* record type */
|
|
||||||
u32 addr;
|
|
||||||
bool endrecord = FALSE;
|
|
||||||
buffer_rec tb;
|
|
||||||
|
|
||||||
while ( ! endrecord && (fgets(buff, sizeof(buff), ifp)))
|
|
||||||
{
|
|
||||||
p = &buff[0];
|
|
||||||
|
|
||||||
if (p[strlen(p)-1] == '\n') /* get rid of newline */
|
|
||||||
p[strlen(p)-1] = '\0';
|
|
||||||
|
|
||||||
if (p[strlen(p)-1] == '\r') /* get rid of any CR */
|
|
||||||
p[strlen(p)-1] = '\0';
|
|
||||||
|
|
||||||
tb.dl_count = 0;
|
|
||||||
|
|
||||||
if (*p != 'S')
|
|
||||||
badformat(p, inm, BADFMT);
|
|
||||||
p++;
|
|
||||||
|
|
||||||
if ((rectype = getnibble(&p)) == -1) /* record type */
|
|
||||||
badformat(buff, inm, BADTYPE);
|
|
||||||
|
|
||||||
if ((len = getbyte(&p)) == -1) /* record len */
|
|
||||||
badformat(buff, inm, BADLEN);
|
|
||||||
cksum = len;
|
|
||||||
|
|
||||||
switch (rectype)
|
|
||||||
{
|
|
||||||
case 0x00: /* comment field, ignored */
|
|
||||||
goto write_it;
|
|
||||||
|
|
||||||
case 0x01: /* data record, 16 bit addr */
|
|
||||||
if ((addr = get2bytes(&p)) == -1L)
|
|
||||||
badformat(buff, inm, BADADDR);
|
|
||||||
len -= 3;
|
|
||||||
goto doit;
|
|
||||||
|
|
||||||
case 0x02: /* ... 24 bit addr */
|
|
||||||
if ((addr = get3bytes(&p)) == -1L)
|
|
||||||
badformat(buff, inm, BADADDR);
|
|
||||||
len -= 4;
|
|
||||||
goto doit;
|
|
||||||
|
|
||||||
case 0x03: /* ... 32 bit addr */
|
|
||||||
if ((addr = get4bytes(&p)) == -1L)
|
|
||||||
badformat(buff, inm, BADADDR);
|
|
||||||
len -= 5;
|
|
||||||
doit:
|
|
||||||
cksum += B0(addr) + B1(addr) + B2(addr) + B3(addr);
|
|
||||||
|
|
||||||
tb.dl_destaddr = addr;
|
|
||||||
while (len--)
|
|
||||||
{
|
|
||||||
if ((c = getbyte(&p)) == -1)
|
|
||||||
badformat(buff, inm, BADDATA);
|
|
||||||
cksum += c;
|
|
||||||
filesum += c;
|
|
||||||
tb.dl_buf[tb.dl_count++] = c;
|
|
||||||
}
|
|
||||||
break;
|
|
||||||
|
|
||||||
case 0x07: /* 32 bit end record */
|
|
||||||
if ((addr = get4bytes(&p)) == -1L)
|
|
||||||
badformat(buff, inm, BADADDR);
|
|
||||||
goto end_rec;
|
|
||||||
|
|
||||||
case 0x08: /* 24 bit end record */
|
|
||||||
if ((addr = get3bytes(&p)) == -1L)
|
|
||||||
badformat(buff, inm, BADADDR);
|
|
||||||
goto end_rec;
|
|
||||||
|
|
||||||
case 0x09: /* 16 bit end record */
|
|
||||||
if ((addr = get2bytes(&p)) == -1L)
|
|
||||||
badformat(buff, inm, BADADDR);
|
|
||||||
|
|
||||||
end_rec:
|
|
||||||
cksum += B0(addr) + B1(addr) + B2(addr) + B3(addr);
|
|
||||||
tb.dl_jumpaddr = addr;
|
|
||||||
break;
|
|
||||||
|
|
||||||
default:
|
|
||||||
error(0, "unknown Motorola-S record type: 0x%02x", rectype);
|
|
||||||
badformat(buff, inm, BADTYPE);
|
|
||||||
break;
|
|
||||||
}
|
|
||||||
|
|
||||||
/*
|
|
||||||
* Verify checksums are correct in file.
|
|
||||||
*/
|
|
||||||
|
|
||||||
cksum = (~cksum) & 0xff;
|
|
||||||
if ((incksum = getbyte(&p)) == -1)
|
|
||||||
badformat(buff, inm, BADCSUM);
|
|
||||||
if (((u8) incksum) != cksum)
|
|
||||||
badformat(buff, inm, MISCSUM);
|
|
||||||
|
|
||||||
write_it:
|
|
||||||
if (tb.dl_count)
|
|
||||||
write_record(&tb, ofp);
|
|
||||||
}
|
|
||||||
return 0;
|
|
||||||
}
|
|
||||||
|
|
||||||
int
|
|
||||||
convert_TI_records(
|
|
||||||
FILE *ifp,
|
|
||||||
char *inm,
|
|
||||||
FILE *ofp,
|
|
||||||
char *onm)
|
|
||||||
{
|
|
||||||
char buff[512];
|
|
||||||
char *p;
|
|
||||||
int c;
|
|
||||||
bool endrecord = FALSE;
|
|
||||||
bool eol;
|
|
||||||
buffer_rec tb;
|
|
||||||
|
|
||||||
while ( ! endrecord && (fgets(buff, sizeof(buff), ifp)))
|
|
||||||
{
|
|
||||||
if (p[strlen(p)-1] == '\n') /* get rid of newline */
|
|
||||||
p[strlen(p)-1] = '\0';
|
|
||||||
|
|
||||||
if (p[strlen(p)-1] == '\r') /* get rid of any CR */
|
|
||||||
p[strlen(p)-1] = '\0';
|
|
||||||
|
|
||||||
tb.dl_count = 0;
|
|
||||||
|
|
||||||
p = &buff[0];
|
|
||||||
eol = FALSE;
|
|
||||||
while ( ! eol && ! endrecord)
|
|
||||||
{
|
|
||||||
switch (*p++)
|
|
||||||
{
|
|
||||||
case '9':
|
|
||||||
if (tb.dl_count)
|
|
||||||
write_record(&tb, ofp);
|
|
||||||
tb.dl_destaddr = get2bytes(&p);
|
|
||||||
break;
|
|
||||||
|
|
||||||
case 'B':
|
|
||||||
c = getbyte(&p);
|
|
||||||
filesum += c;
|
|
||||||
tb.dl_buf[tb.dl_count++] = c;
|
|
||||||
c = getbyte(&p);
|
|
||||||
filesum += c;
|
|
||||||
tb.dl_buf[tb.dl_count++] = c;
|
|
||||||
break;
|
|
||||||
|
|
||||||
case 'F':
|
|
||||||
eol = TRUE;
|
|
||||||
break;
|
|
||||||
|
|
||||||
case ':':
|
|
||||||
endrecord = TRUE;
|
|
||||||
break;
|
|
||||||
|
|
||||||
default:
|
|
||||||
badformat(p, inm, BADFMT);
|
|
||||||
}
|
|
||||||
}
|
|
||||||
if (tb.dl_count)
|
|
||||||
write_record(&tb, ofp);
|
|
||||||
}
|
|
||||||
return 0;
|
|
||||||
}
|
|
||||||
|
|
||||||
void
|
|
||||||
write_record(buffer_rec *tb,
|
|
||||||
FILE *fp)
|
|
||||||
{
|
|
||||||
if ( ! linear)
|
|
||||||
{
|
|
||||||
if (tb->dl_destaddr < base)
|
|
||||||
error(ERR_FATAL, "record at address 0x%x precedes base of 0x%x",
|
|
||||||
tb->dl_destaddr, base);
|
|
||||||
(void) fseek(fp, tb->dl_destaddr - base, 0);
|
|
||||||
}
|
|
||||||
|
|
||||||
(void) fwrite(tb->dl_buf, tb->dl_count, 1, fp);
|
|
||||||
tb->dl_destaddr += tb->dl_count;
|
|
||||||
tb->dl_count = 0;
|
|
||||||
}
|
|
||||||
|
|
||||||
int
|
|
||||||
getnibble(char **p)
|
|
||||||
{
|
|
||||||
register int val;
|
|
||||||
|
|
||||||
**p = toupper(**p);
|
|
||||||
switch (**p)
|
|
||||||
{
|
|
||||||
case '0': case '1': case '2': case '3': case '4':
|
|
||||||
case '5': case '6': case '7': case '8': case '9':
|
|
||||||
val = **p - '0';
|
|
||||||
break;
|
|
||||||
|
|
||||||
case 'A': case 'B': case 'C': case 'D': case 'E': case 'F':
|
|
||||||
val = 10 + (**p - 'A');
|
|
||||||
break;
|
|
||||||
|
|
||||||
default:
|
|
||||||
return(-1);
|
|
||||||
}
|
|
||||||
*p += 1;
|
|
||||||
|
|
||||||
return(val & 0x0f);
|
|
||||||
}
|
|
||||||
|
|
||||||
int
|
|
||||||
getbyte(char **p)
|
|
||||||
{
|
|
||||||
int n0, n1;
|
|
||||||
|
|
||||||
if ((n0 = getnibble(p)) == -1)
|
|
||||||
return(-1);
|
|
||||||
if ((n1 = getnibble(p)) == -1)
|
|
||||||
return(-1);
|
|
||||||
|
|
||||||
return(((n0 << 4) + n1) & 0xff);
|
|
||||||
}
|
|
||||||
|
|
||||||
long
|
|
||||||
getNbytes(char **p,
|
|
||||||
int n)
|
|
||||||
{
|
|
||||||
int t;
|
|
||||||
u32 val = 0;
|
|
||||||
|
|
||||||
while (n--)
|
|
||||||
{
|
|
||||||
if ((t = getbyte(p)) == -1)
|
|
||||||
return(-1L);
|
|
||||||
val <<= 8;
|
|
||||||
val += t;
|
|
||||||
}
|
|
||||||
|
|
||||||
return(val);
|
|
||||||
}
|
|
||||||
|
|
||||||
void
|
|
||||||
badformat(char *s,
|
|
||||||
char *fname,
|
|
||||||
char *msg)
|
|
||||||
{
|
|
||||||
if (s[strlen(s)-1] == '\n') /* get rid of newline */
|
|
||||||
s[strlen(s)-1] = '\0';
|
|
||||||
error(0, "line '%s'::\n\tfrom file '%s'; %s", s, fname, msg);
|
|
||||||
exit(1);
|
|
||||||
}
|
|
||||||
|
|
||||||
/*
|
|
||||||
* error(errn, arglist)
|
|
||||||
* report an error to stderr using printf(3) conventions.
|
|
||||||
* Any output is preceded by '<progname>: '
|
|
||||||
*
|
|
||||||
* Uses ERR_EXIT bit to request exit(errn)
|
|
||||||
* ERR_ABORT to request abort()
|
|
||||||
* ERR_ERRNO to indicate use of errno instead of argument.
|
|
||||||
*
|
|
||||||
* If resulting 'errn' is non-zero, it is assumed to be an 'errno' and its
|
|
||||||
* associated error message is appended to the output.
|
|
||||||
*/
|
|
||||||
|
|
||||||
/*VARARGS*/
|
|
||||||
|
|
||||||
void
|
|
||||||
error(int error_flag, ...)
|
|
||||||
{
|
|
||||||
va_list arglist;
|
|
||||||
register char *format;
|
|
||||||
int local_errno;
|
|
||||||
|
|
||||||
extern int errno;
|
|
||||||
|
|
||||||
(void) fflush(stdout); /* in case stdout/stderr same */
|
|
||||||
|
|
||||||
local_errno = error_flag & ~ERR_MASK;
|
|
||||||
if (error_flag & ERR_ERRNO) /* use errno? */
|
|
||||||
local_errno = errno;
|
|
||||||
|
|
||||||
va_start(arglist, error_flag);
|
|
||||||
format = va_arg(arglist, char *);
|
|
||||||
(void) fprintf(stderr, "%s: ", progname);
|
|
||||||
(void) vfprintf(stderr, format, arglist);
|
|
||||||
va_end(arglist);
|
|
||||||
|
|
||||||
if (local_errno)
|
|
||||||
(void) fprintf(stderr, " (%s)\n", strerror(local_errno));
|
|
||||||
else
|
|
||||||
(void) fprintf(stderr, "\n");
|
|
||||||
|
|
||||||
(void) fflush(stderr);
|
|
||||||
|
|
||||||
if (error_flag & (ERR_FATAL | ERR_ABORT))
|
|
||||||
{
|
|
||||||
if (error_flag & ERR_FATAL)
|
|
||||||
{
|
|
||||||
error(0, "fatal error, exiting");
|
|
||||||
exit(local_errno ? local_errno : 1);
|
|
||||||
}
|
|
||||||
else
|
|
||||||
{
|
|
||||||
error(0, "fatal error, aborting");
|
|
||||||
abort();
|
|
||||||
}
|
|
||||||
}
|
|
||||||
}
|
|
||||||
|
|
||||||
@@ -1,41 +0,0 @@
|
|||||||
#!@KSH@
|
|
||||||
#
|
|
||||||
# $Id$
|
|
||||||
#
|
|
||||||
# Unlock a directory processed by lock_directory
|
|
||||||
#
|
|
||||||
|
|
||||||
# is a particular command available on this machine?
|
|
||||||
#
|
|
||||||
cmd_avail()
|
|
||||||
{
|
|
||||||
set -- `type $1 2>&1`
|
|
||||||
if [ "$2" = "not" -a "$3" = "found" ] || [ "$3" = "not" -a "$4" = "found" ]
|
|
||||||
then
|
|
||||||
return 1
|
|
||||||
else
|
|
||||||
return 0
|
|
||||||
fi
|
|
||||||
}
|
|
||||||
|
|
||||||
unlock_directory() {
|
|
||||||
ul_dir=$1/. # get any symlink out of the way using '.'
|
|
||||||
if [ -d $ul_dir ]
|
|
||||||
then
|
|
||||||
find $ul_dir -type d ! -perm -0222 -print | $XARGS -t chmod +w
|
|
||||||
fi
|
|
||||||
}
|
|
||||||
|
|
||||||
# Use gnu xargs if available; faster, more reliable in general
|
|
||||||
XARGS=xargs
|
|
||||||
cmd_avail gxargs && XARGS=gxargs
|
|
||||||
|
|
||||||
for dir
|
|
||||||
do
|
|
||||||
unlock_directory $dir
|
|
||||||
done
|
|
||||||
|
|
||||||
# Local Variables: ***
|
|
||||||
# mode:ksh ***
|
|
||||||
# End: ***
|
|
||||||
|
|
||||||
@@ -1,33 +0,0 @@
|
|||||||
/* config.h
|
|
||||||
*
|
|
||||||
* This include file defines the Configuration Table for this test.
|
|
||||||
*
|
|
||||||
* COPYRIGHT (c) 1989-1997.
|
|
||||||
* On-Line Applications Research Corporation (OAR).
|
|
||||||
* Copyright assigned to U.S. Government, 1994.
|
|
||||||
*
|
|
||||||
* The license and distribution terms for this file may in
|
|
||||||
* the file LICENSE in this distribution or at
|
|
||||||
* http://www.OARcorp.com/rtems/license.html.
|
|
||||||
*
|
|
||||||
* $Id$
|
|
||||||
*/
|
|
||||||
|
|
||||||
|
|
||||||
/* configuration information */
|
|
||||||
|
|
||||||
#define CONFIGURE_MPTEST
|
|
||||||
|
|
||||||
#define CONFIGURE_TEST_NEEDS_CONSOLE_DRIVER
|
|
||||||
#define CONFIGURE_TEST_NEEDS_CLOCK_DRIVER
|
|
||||||
|
|
||||||
#define CONFIGURE_POSIX_INIT_THREAD_TABLE
|
|
||||||
|
|
||||||
#define CONFIGURE_MAXIMUM_POSIX_THREADS 10
|
|
||||||
#define CONFIGURE_MAXIMUM_POSIX_KEYS 10
|
|
||||||
#define CONFIGURE_MAXIMUM_POSIX_MUTEXES 20
|
|
||||||
#define CONFIGURE_MAXIMUM_POSIX_CONDITION_VARIABLES 10
|
|
||||||
|
|
||||||
#include <confdefs.h>
|
|
||||||
|
|
||||||
/* end of include file */
|
|
||||||
@@ -1,57 +0,0 @@
|
|||||||
--
|
|
||||||
-- MAIN / BODY
|
|
||||||
--
|
|
||||||
-- DESCRIPTION:
|
|
||||||
--
|
|
||||||
-- This is the entry point for Test MP01 of the Multiprocessor Test Suite.
|
|
||||||
--
|
|
||||||
-- DEPENDENCIES:
|
|
||||||
--
|
|
||||||
--
|
|
||||||
--
|
|
||||||
-- COPYRIGHT (c) 1989-1997.
|
|
||||||
-- On-Line Applications Research Corporation (OAR).
|
|
||||||
-- Copyright assigned to U.S. Government, 1994.
|
|
||||||
--
|
|
||||||
-- The license and distribution terms for this file may in
|
|
||||||
-- the file LICENSE in this distribution or at
|
|
||||||
-- http://www.OARcorp.com/rtems/license.html.
|
|
||||||
--
|
|
||||||
-- $Id$
|
|
||||||
--
|
|
||||||
|
|
||||||
with RTEMS;
|
|
||||||
with MPTEST;
|
|
||||||
with TEST_SUPPORT;
|
|
||||||
|
|
||||||
procedure MP01 is
|
|
||||||
INIT_ID : RTEMS.ID;
|
|
||||||
STATUS : RTEMS.STATUS_CODES;
|
|
||||||
begin
|
|
||||||
|
|
||||||
RTEMS.TASK_CREATE(
|
|
||||||
RTEMS.BUILD_NAME( 'I', 'N', 'I', 'T' ),
|
|
||||||
1,
|
|
||||||
RTEMS.MINIMUM_STACK_SIZE,
|
|
||||||
RTEMS.NO_PREEMPT,
|
|
||||||
RTEMS.GLOBAL,
|
|
||||||
INIT_ID,
|
|
||||||
STATUS
|
|
||||||
);
|
|
||||||
TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "TASK_CREATE OF INIT" );
|
|
||||||
|
|
||||||
|
|
||||||
RTEMS.TASK_START(
|
|
||||||
INIT_ID,
|
|
||||||
MPTEST.INIT'ACCESS,
|
|
||||||
0,
|
|
||||||
STATUS
|
|
||||||
);
|
|
||||||
TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "TASK_START OF INIT" );
|
|
||||||
|
|
||||||
loop
|
|
||||||
delay 120.0;
|
|
||||||
end loop;
|
|
||||||
|
|
||||||
end MP01;
|
|
||||||
|
|
||||||
@@ -1,235 +0,0 @@
|
|||||||
--
|
|
||||||
-- MPTEST / BODY
|
|
||||||
--
|
|
||||||
-- DESCRIPTION:
|
|
||||||
--
|
|
||||||
-- This package is the implementation for Test 1 of the RTEMS
|
|
||||||
-- Multiprocessor Test Suite.
|
|
||||||
--
|
|
||||||
-- DEPENDENCIES:
|
|
||||||
--
|
|
||||||
--
|
|
||||||
--
|
|
||||||
-- COPYRIGHT (c) 1989-1997.
|
|
||||||
-- On-Line Applications Research Corporation (OAR).
|
|
||||||
-- Copyright assigned to U.S. Government, 1994.
|
|
||||||
--
|
|
||||||
-- The license and distribution terms for this file may in
|
|
||||||
-- the file LICENSE in this distribution or at
|
|
||||||
-- http://www.OARcorp.com/rtems/license.html.
|
|
||||||
--
|
|
||||||
-- $Id$
|
|
||||||
--
|
|
||||||
|
|
||||||
with INTERFACES; use INTERFACES;
|
|
||||||
with RTEMS;
|
|
||||||
with TEST_SUPPORT;
|
|
||||||
with TEXT_IO;
|
|
||||||
with UNSIGNED32_IO;
|
|
||||||
|
|
||||||
package body MPTEST is
|
|
||||||
|
|
||||||
package body PER_NODE_CONFIGURATION is separate;
|
|
||||||
|
|
||||||
--PAGE
|
|
||||||
--
|
|
||||||
-- INIT
|
|
||||||
--
|
|
||||||
|
|
||||||
procedure INIT (
|
|
||||||
ARGUMENT : in RTEMS.TASK_ARGUMENT
|
|
||||||
) is
|
|
||||||
C : RTEMS.CHARACTER;
|
|
||||||
TIME : RTEMS.TIME_OF_DAY;
|
|
||||||
STATUS : RTEMS.STATUS_CODES;
|
|
||||||
begin
|
|
||||||
|
|
||||||
TEXT_IO.NEW_LINE( 2 );
|
|
||||||
TEXT_IO.PUT( "*** TEST 1 -- NODE " );
|
|
||||||
UNSIGNED32_IO.PUT(
|
|
||||||
MPTEST.MULTIPROCESSING_CONFIGURATION.NODE,
|
|
||||||
WIDTH => 1
|
|
||||||
);
|
|
||||||
TEXT_IO.PUT_LINE( " ***" );
|
|
||||||
|
|
||||||
if MPTEST.MULTIPROCESSING_CONFIGURATION.NODE /= 1 then
|
|
||||||
C := 'S';
|
|
||||||
else
|
|
||||||
C := 'M';
|
|
||||||
end if;
|
|
||||||
|
|
||||||
MPTEST.TASK_NAME( 1 ) := RTEMS.BUILD_NAME( C, 'A', '1', ' ' );
|
|
||||||
MPTEST.TASK_NAME( 2 ) := RTEMS.BUILD_NAME( C, 'A', '2', ' ' );
|
|
||||||
MPTEST.TASK_NAME( 3 ) := RTEMS.BUILD_NAME( C, 'A', '3', ' ' );
|
|
||||||
|
|
||||||
TIME := ( 1988, 12, 31, 9, 0, 0, 0 );
|
|
||||||
|
|
||||||
RTEMS.CLOCK_SET( TIME, STATUS );
|
|
||||||
TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "CLOCK_SET" );
|
|
||||||
|
|
||||||
TEXT_IO.PUT_LINE( "Creating task 1 (Global)" );
|
|
||||||
|
|
||||||
RTEMS.TASK_CREATE(
|
|
||||||
MPTEST.TASK_NAME( 1 ),
|
|
||||||
1,
|
|
||||||
2048,
|
|
||||||
RTEMS.DEFAULT_MODES,
|
|
||||||
RTEMS.GLOBAL,
|
|
||||||
MPTEST.TASK_ID( 1 ),
|
|
||||||
STATUS
|
|
||||||
);
|
|
||||||
TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "TASK_CREATE OF TA1" );
|
|
||||||
|
|
||||||
TEXT_IO.PUT_LINE( "Creating task 2 (Global)" );
|
|
||||||
|
|
||||||
RTEMS.TASK_CREATE(
|
|
||||||
MPTEST.TASK_NAME( 2 ),
|
|
||||||
1,
|
|
||||||
2048,
|
|
||||||
RTEMS.TIMESLICE,
|
|
||||||
RTEMS.GLOBAL,
|
|
||||||
MPTEST.TASK_ID( 2 ),
|
|
||||||
STATUS
|
|
||||||
);
|
|
||||||
TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "TASK_CREATE OF TA2" );
|
|
||||||
|
|
||||||
TEXT_IO.PUT_LINE( "Creating task 3 (Local)" );
|
|
||||||
|
|
||||||
RTEMS.TASK_CREATE(
|
|
||||||
MPTEST.TASK_NAME( 3 ),
|
|
||||||
1,
|
|
||||||
2048,
|
|
||||||
RTEMS.DEFAULT_MODES,
|
|
||||||
RTEMS.DEFAULT_ATTRIBUTES,
|
|
||||||
MPTEST.TASK_ID( 3 ),
|
|
||||||
STATUS
|
|
||||||
);
|
|
||||||
TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "TASK_CREATE OF TA3" );
|
|
||||||
|
|
||||||
RTEMS.TASK_START(
|
|
||||||
MPTEST.TASK_ID( 1 ),
|
|
||||||
MPTEST.TEST_TASK'ACCESS,
|
|
||||||
0,
|
|
||||||
STATUS
|
|
||||||
);
|
|
||||||
TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "TASK_START OF TA1" );
|
|
||||||
|
|
||||||
RTEMS.TASK_START(
|
|
||||||
MPTEST.TASK_ID( 2 ),
|
|
||||||
MPTEST.TEST_TASK'ACCESS,
|
|
||||||
0,
|
|
||||||
STATUS
|
|
||||||
);
|
|
||||||
TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "TASK_START OF TA2" );
|
|
||||||
|
|
||||||
RTEMS.TASK_START(
|
|
||||||
MPTEST.TASK_ID( 3 ),
|
|
||||||
MPTEST.TEST_TASK'ACCESS,
|
|
||||||
0,
|
|
||||||
STATUS
|
|
||||||
);
|
|
||||||
TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "TASK_START OF TA3" );
|
|
||||||
|
|
||||||
RTEMS.TASK_DELETE( RTEMS.SELF, STATUS );
|
|
||||||
TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "TASK_DELETE OF SELF" );
|
|
||||||
|
|
||||||
end INIT;
|
|
||||||
|
|
||||||
--PAGE
|
|
||||||
--
|
|
||||||
-- TEST_TASK
|
|
||||||
--
|
|
||||||
|
|
||||||
procedure TEST_TASK (
|
|
||||||
ARGUMENT : in RTEMS.TASK_ARGUMENT
|
|
||||||
) is
|
|
||||||
TIME : RTEMS.TIME_OF_DAY;
|
|
||||||
TID : RTEMS.ID;
|
|
||||||
STATUS : RTEMS.STATUS_CODES;
|
|
||||||
begin
|
|
||||||
|
|
||||||
RTEMS.TASK_IDENT( RTEMS.SELF, RTEMS.SEARCH_ALL_NODES, TID, STATUS );
|
|
||||||
TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "TASK_IDENT OF SELF" );
|
|
||||||
|
|
||||||
RTEMS.CLOCK_GET( RTEMS.CLOCK_GET_TOD, TIME'ADDRESS, STATUS );
|
|
||||||
TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "CLOCK_GET" );
|
|
||||||
|
|
||||||
TEST_SUPPORT.PUT_NAME(
|
|
||||||
MPTEST.TASK_NAME( TEST_SUPPORT.TASK_NUMBER( TID ) ),
|
|
||||||
FALSE
|
|
||||||
);
|
|
||||||
|
|
||||||
TEST_SUPPORT.PRINT_TIME( "- clock_get - ", TIME, "" );
|
|
||||||
TEXT_IO.NEW_LINE;
|
|
||||||
|
|
||||||
RTEMS.TASK_WAKE_AFTER(
|
|
||||||
TEST_SUPPORT.TASK_NUMBER( TID ) * 5 *
|
|
||||||
TEST_SUPPORT.TICKS_PER_SECOND,
|
|
||||||
STATUS
|
|
||||||
);
|
|
||||||
TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "TASK_WAKE_AFTER" );
|
|
||||||
|
|
||||||
RTEMS.CLOCK_GET( RTEMS.CLOCK_GET_TOD, TIME'ADDRESS, STATUS );
|
|
||||||
TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "CLOCK_GET" );
|
|
||||||
|
|
||||||
TEST_SUPPORT.PUT_NAME(
|
|
||||||
MPTEST.TASK_NAME( TEST_SUPPORT.TASK_NUMBER( TID ) ),
|
|
||||||
FALSE
|
|
||||||
);
|
|
||||||
|
|
||||||
TEST_SUPPORT.PRINT_TIME( "- clock_get - ", TIME, "" );
|
|
||||||
TEXT_IO.NEW_LINE;
|
|
||||||
|
|
||||||
if TEST_SUPPORT.TASK_NUMBER( TID ) = 1 then -- TASK 1
|
|
||||||
|
|
||||||
TEST_SUPPORT.PUT_NAME(
|
|
||||||
MPTEST.TASK_NAME( TEST_SUPPORT.TASK_NUMBER( TID ) ),
|
|
||||||
FALSE
|
|
||||||
);
|
|
||||||
|
|
||||||
TEXT_IO.PUT_LINE( " - deleting self" );
|
|
||||||
|
|
||||||
RTEMS.TASK_DELETE( RTEMS.SELF, STATUS );
|
|
||||||
TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "TASK_DELETE OF SELF" );
|
|
||||||
|
|
||||||
else if TEST_SUPPORT.TASK_NUMBER( TID ) = 2 then -- TASK 2
|
|
||||||
|
|
||||||
TEST_SUPPORT.PUT_NAME( MPTEST.TASK_NAME( 2 ), FALSE );
|
|
||||||
TEXT_IO.PUT( " - waiting to be deleted by " );
|
|
||||||
TEST_SUPPORT.PUT_NAME( MPTEST.TASK_NAME( 3 ), TRUE );
|
|
||||||
|
|
||||||
loop
|
|
||||||
TEST_SUPPORT.DO_NOTHING; -- can't be optimized away
|
|
||||||
end loop;
|
|
||||||
|
|
||||||
else -- TASK 3
|
|
||||||
|
|
||||||
TEST_SUPPORT.PUT_NAME( MPTEST.TASK_NAME( 3 ), FALSE );
|
|
||||||
TEXT_IO.PUT( " - getting TID of " );
|
|
||||||
TEST_SUPPORT.PUT_NAME( MPTEST.TASK_NAME( 2 ), TRUE );
|
|
||||||
|
|
||||||
RTEMS.TASK_IDENT(
|
|
||||||
MPTEST.TASK_NAME( 2 ),
|
|
||||||
RTEMS.SEARCH_ALL_NODES,
|
|
||||||
TID,
|
|
||||||
STATUS
|
|
||||||
);
|
|
||||||
TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "TASK_IDENT OF TA2" );
|
|
||||||
|
|
||||||
TEST_SUPPORT.PUT_NAME( MPTEST.TASK_NAME( 3 ), FALSE );
|
|
||||||
TEXT_IO.PUT( " - deleting " );
|
|
||||||
TEST_SUPPORT.PUT_NAME( MPTEST.TASK_NAME( 2 ), TRUE );
|
|
||||||
|
|
||||||
RTEMS.TASK_DELETE( TID, STATUS );
|
|
||||||
TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "TASK_DELETE OF TA2" );
|
|
||||||
|
|
||||||
end if;
|
|
||||||
end if;
|
|
||||||
|
|
||||||
TEXT_IO.PUT_LINE( "*** END OF TEST 1 ***" );
|
|
||||||
|
|
||||||
RTEMS.SHUTDOWN_EXECUTIVE( 0 );
|
|
||||||
|
|
||||||
end TEST_TASK;
|
|
||||||
|
|
||||||
end MPTEST;
|
|
||||||
@@ -1,164 +0,0 @@
|
|||||||
--
|
|
||||||
-- MPTEST / SPECIFICATION
|
|
||||||
--
|
|
||||||
-- DESCRIPTION:
|
|
||||||
--
|
|
||||||
-- This package is the specification for Test 1 of the RTEMS
|
|
||||||
-- Multiprocessor Test Suite.
|
|
||||||
--
|
|
||||||
-- DEPENDENCIES:
|
|
||||||
--
|
|
||||||
--
|
|
||||||
--
|
|
||||||
-- COPYRIGHT (c) 1989-1997.
|
|
||||||
-- On-Line Applications Research Corporation (OAR).
|
|
||||||
-- Copyright assigned to U.S. Government, 1994.
|
|
||||||
--
|
|
||||||
-- The license and distribution terms for this file may in
|
|
||||||
-- the file LICENSE in this distribution or at
|
|
||||||
-- http://www.OARcorp.com/rtems/license.html.
|
|
||||||
--
|
|
||||||
-- $Id$
|
|
||||||
--
|
|
||||||
|
|
||||||
with BSP_MPCI;
|
|
||||||
with RTEMS;
|
|
||||||
|
|
||||||
package MPTEST is
|
|
||||||
|
|
||||||
--
|
|
||||||
-- These arrays contain the IDs and NAMEs of all RTEMS tasks created
|
|
||||||
-- by this test.
|
|
||||||
--
|
|
||||||
|
|
||||||
TASK_ID : array ( RTEMS.UNSIGNED32 range 1 .. 3 ) of RTEMS.ID;
|
|
||||||
TASK_NAME : array ( RTEMS.UNSIGNED32 range 1 .. 3 ) of RTEMS.NAME;
|
|
||||||
|
|
||||||
--
|
|
||||||
-- INIT
|
|
||||||
--
|
|
||||||
-- DESCRIPTION:
|
|
||||||
--
|
|
||||||
-- This RTEMS task initializes the application.
|
|
||||||
--
|
|
||||||
|
|
||||||
procedure INIT (
|
|
||||||
ARGUMENT : in RTEMS.TASK_ARGUMENT
|
|
||||||
);
|
|
||||||
|
|
||||||
--
|
|
||||||
-- TEST_TASK
|
|
||||||
--
|
|
||||||
-- DESCRIPTION:
|
|
||||||
--
|
|
||||||
-- This is the body of the RTEMS tasks which constitute this test.
|
|
||||||
--
|
|
||||||
|
|
||||||
procedure TEST_TASK (
|
|
||||||
ARGUMENT : in RTEMS.TASK_ARGUMENT
|
|
||||||
);
|
|
||||||
|
|
||||||
--
|
|
||||||
-- This is the Driver Address Table for this test.
|
|
||||||
--
|
|
||||||
|
|
||||||
DEVICE_DRIVERS : aliased RTEMS.DRIVER_ADDRESS_TABLE( 1 .. 1 ) :=
|
|
||||||
(1=>
|
|
||||||
(
|
|
||||||
CLOCK_DRIVER.INITIALIZE'ACCESS, -- Initialization
|
|
||||||
RTEMS.NO_DRIVER_ENTRY, -- Open
|
|
||||||
RTEMS.NO_DRIVER_ENTRY, -- Close
|
|
||||||
RTEMS.NO_DRIVER_ENTRY, -- Read
|
|
||||||
RTEMS.NO_DRIVER_ENTRY, -- Write
|
|
||||||
RTEMS.NO_DRIVER_ENTRY -- Control
|
|
||||||
)
|
|
||||||
);
|
|
||||||
|
|
||||||
--
|
|
||||||
-- This is the Initialization Tasks Table for this test.
|
|
||||||
--
|
|
||||||
|
|
||||||
INITIALIZATION_TASKS : aliased RTEMS.INITIALIZATION_TASKS_TABLE( 1 .. 1 ) :=
|
|
||||||
(1=>
|
|
||||||
(
|
|
||||||
RTEMS.BUILD_NAME( 'U', 'I', '1', ' ' ), -- task name
|
|
||||||
2048, -- stack size
|
|
||||||
1, -- priority
|
|
||||||
RTEMS.GLOBAL, -- attributes
|
|
||||||
MPTEST.INIT'ACCESS, -- entry point
|
|
||||||
RTEMS.NO_PREEMPT, -- initial mode
|
|
||||||
0 -- argument list
|
|
||||||
)
|
|
||||||
);
|
|
||||||
|
|
||||||
----------------------------------------------------------------------------
|
|
||||||
----------------------------------------------------------------------------
|
|
||||||
-- BEGIN SUBPACKAGE --
|
|
||||||
----------------------------------------------------------------------------
|
|
||||||
----------------------------------------------------------------------------
|
|
||||||
|
|
||||||
--
|
|
||||||
-- MPTEST.PER_NODE_CONFIGURATION / SPECIFICATION
|
|
||||||
--
|
|
||||||
-- DESCRIPTION:
|
|
||||||
--
|
|
||||||
-- This package is the specification for the subpackage
|
|
||||||
-- which will define the per node configuration parameters.
|
|
||||||
--
|
|
||||||
|
|
||||||
package PER_NODE_CONFIGURATION is
|
|
||||||
|
|
||||||
--
|
|
||||||
-- LOCAL_NODE_NUMBER
|
|
||||||
--
|
|
||||||
-- DESCRIPTION:
|
|
||||||
--
|
|
||||||
-- This function returns the node number for this node.
|
|
||||||
--
|
|
||||||
|
|
||||||
function LOCAL_NODE_NUMBER
|
|
||||||
return RTEMS.UNSIGNED32;
|
|
||||||
|
|
||||||
pragma INLINE ( LOCAL_NODE_NUMBER );
|
|
||||||
|
|
||||||
end PER_NODE_CONFIGURATION;
|
|
||||||
|
|
||||||
----------------------------------------------------------------------------
|
|
||||||
----------------------------------------------------------------------------
|
|
||||||
-- END SUBPACKAGE --
|
|
||||||
----------------------------------------------------------------------------
|
|
||||||
----------------------------------------------------------------------------
|
|
||||||
|
|
||||||
--
|
|
||||||
-- This is the Multiprocessor Configuration Table for this test.
|
|
||||||
--
|
|
||||||
|
|
||||||
MULTIPROCESSING_CONFIGURATION : aliased RTEMS.MULTIPROCESSING_TABLE := (
|
|
||||||
MPTEST.PER_NODE_CONFIGURATION.LOCAL_NODE_NUMBER,
|
|
||||||
2, -- maximum # nodes in system
|
|
||||||
33, -- maximum # global objects
|
|
||||||
33 -- maximum # proxies
|
|
||||||
);
|
|
||||||
|
|
||||||
--
|
|
||||||
-- This is the Configuration Table for this test.
|
|
||||||
--
|
|
||||||
|
|
||||||
CONFIGURATION : aliased RTEMS.CONFIGURATION_TABLE := (
|
|
||||||
RTEMS.NULL_ADDRESS, -- will be replaced by BSP
|
|
||||||
64 * 1024, -- executive RAM size
|
|
||||||
10, -- maximum # tasks
|
|
||||||
0, -- maximum # timers
|
|
||||||
0, -- maximum # semaphores
|
|
||||||
0, -- maximum # message queues
|
|
||||||
0, -- maximum # messages
|
|
||||||
0, -- maximum # partitions
|
|
||||||
0, -- maximum # regions
|
|
||||||
0, -- maximum # dp memory areas
|
|
||||||
0, -- maximum # periods
|
|
||||||
0, -- maximum # user extensions
|
|
||||||
RTEMS.MILLISECONDS_TO_MICROSECONDS(10), -- # us in a tick
|
|
||||||
50 -- # ticks in a timeslice
|
|
||||||
);
|
|
||||||
|
|
||||||
end MPTEST;
|
|
||||||
@@ -1,15 +0,0 @@
|
|||||||
*** TEST 1 -- NODE 1 ***
|
|
||||||
Creating task 1 (Global)
|
|
||||||
Creating task 2 (Global)
|
|
||||||
Creating task 3 (Local)
|
|
||||||
MA1 - clock_get - 9: 0: 0 12/31/1988
|
|
||||||
MA2 - clock_get - 9: 0: 0 12/31/1988
|
|
||||||
MA3 - clock_get - 9: 0: 0 12/31/1988
|
|
||||||
MA1 - clock_get - 9: 0: 5 12/31/1988
|
|
||||||
MA1 - deleting self
|
|
||||||
MA2 - clock_get - 9: 0:10 12/31/1988
|
|
||||||
MA2 - waiting to be deleted by MA3
|
|
||||||
MA3 - clock_get - 9: 0:15 12/31/1988
|
|
||||||
MA3 - getting TID of MA2
|
|
||||||
MA3 - deleting MA2
|
|
||||||
*** END OF TEST 1 ***
|
|
||||||
@@ -1,43 +0,0 @@
|
|||||||
--
|
|
||||||
-- MPTEST.PER_NODE_CONFIGURATION / BODY
|
|
||||||
--
|
|
||||||
-- DESCRIPTION:
|
|
||||||
--
|
|
||||||
-- This package is the specification for the subpackage
|
|
||||||
-- which will define the per node configuration parameters.
|
|
||||||
--
|
|
||||||
-- DEPENDENCIES:
|
|
||||||
--
|
|
||||||
--
|
|
||||||
--
|
|
||||||
-- COPYRIGHT (c) 1989-1997.
|
|
||||||
-- On-Line Applications Research Corporation (OAR).
|
|
||||||
-- Copyright assigned to U.S. Government, 1994.
|
|
||||||
--
|
|
||||||
-- The license and distribution terms for this file may in
|
|
||||||
-- the file LICENSE in this distribution or at
|
|
||||||
-- http://www.OARcorp.com/rtems/license.html.
|
|
||||||
--
|
|
||||||
-- $Id$
|
|
||||||
--
|
|
||||||
|
|
||||||
with RTEMS;
|
|
||||||
|
|
||||||
separate ( MPTEST )
|
|
||||||
|
|
||||||
package body PER_NODE_CONFIGURATION is
|
|
||||||
|
|
||||||
--PAGE
|
|
||||||
--
|
|
||||||
-- LOCAL_NODE_NUMBER
|
|
||||||
--
|
|
||||||
|
|
||||||
function LOCAL_NODE_NUMBER
|
|
||||||
return RTEMS.UNSIGNED32 is
|
|
||||||
begin
|
|
||||||
|
|
||||||
return 1;
|
|
||||||
|
|
||||||
end LOCAL_NODE_NUMBER;
|
|
||||||
|
|
||||||
end PER_NODE_CONFIGURATION;
|
|
||||||
@@ -1,15 +0,0 @@
|
|||||||
*** TEST 1 -- NODE 2 ***
|
|
||||||
Creating task 1 (Global)
|
|
||||||
Creating task 2 (Global)
|
|
||||||
Creating task 3 (Local)
|
|
||||||
SA1 - clock_get - 9: 0: 0 12/31/1988
|
|
||||||
SA2 - clock_get - 9: 0: 0 12/31/1988
|
|
||||||
SA3 - clock_get - 9: 0: 0 12/31/1988
|
|
||||||
SA1 - clock_get - 9: 0: 5 12/31/1988
|
|
||||||
SA1 - deleting self
|
|
||||||
SA2 - clock_get - 9: 0:10 12/31/1988
|
|
||||||
SA2 - waiting to be deleted by SA3
|
|
||||||
SA3 - clock_get - 9: 0:15 12/31/1988
|
|
||||||
SA3 - getting TID of SA2
|
|
||||||
SA3 - deleting SA2
|
|
||||||
*** END OF TEST 1 ***
|
|
||||||
@@ -1,43 +0,0 @@
|
|||||||
--
|
|
||||||
-- MPTEST.PER_NODE_CONFIGURATION / BODY
|
|
||||||
--
|
|
||||||
-- DESCRIPTION:
|
|
||||||
--
|
|
||||||
-- This package is the specification for the subpackage
|
|
||||||
-- which will define the per node configuration parameters.
|
|
||||||
--
|
|
||||||
-- DEPENDENCIES:
|
|
||||||
--
|
|
||||||
--
|
|
||||||
--
|
|
||||||
-- COPYRIGHT (c) 1989-1997.
|
|
||||||
-- On-Line Applications Research Corporation (OAR).
|
|
||||||
-- Copyright assigned to U.S. Government, 1994.
|
|
||||||
--
|
|
||||||
-- The license and distribution terms for this file may in
|
|
||||||
-- the file LICENSE in this distribution or at
|
|
||||||
-- http://www.OARcorp.com/rtems/license.html.
|
|
||||||
--
|
|
||||||
-- $Id$
|
|
||||||
--
|
|
||||||
|
|
||||||
with RTEMS;
|
|
||||||
|
|
||||||
separate ( MPTEST )
|
|
||||||
|
|
||||||
package body PER_NODE_CONFIGURATION is
|
|
||||||
|
|
||||||
--PAGE
|
|
||||||
--
|
|
||||||
-- LOCAL_NODE_NUMBER
|
|
||||||
--
|
|
||||||
|
|
||||||
function LOCAL_NODE_NUMBER
|
|
||||||
return RTEMS.UNSIGNED32 is
|
|
||||||
begin
|
|
||||||
|
|
||||||
return 2;
|
|
||||||
|
|
||||||
end LOCAL_NODE_NUMBER;
|
|
||||||
|
|
||||||
end PER_NODE_CONFIGURATION;
|
|
||||||
@@ -1,213 +0,0 @@
|
|||||||
--
|
|
||||||
-- MPTEST / BODY
|
|
||||||
--
|
|
||||||
-- DESCRIPTION:
|
|
||||||
--
|
|
||||||
-- This package is the implementation for Test 2 of the RTEMS
|
|
||||||
-- Multiprocessor Test Suite.
|
|
||||||
--
|
|
||||||
-- DEPENDENCIES:
|
|
||||||
--
|
|
||||||
--
|
|
||||||
--
|
|
||||||
-- COPYRIGHT (c) 1989-1997.
|
|
||||||
-- On-Line Applications Research Corporation (OAR).
|
|
||||||
-- Copyright assigned to U.S. Government, 1994.
|
|
||||||
--
|
|
||||||
-- The license and distribution terms for this file may in
|
|
||||||
-- the file LICENSE in this distribution or at
|
|
||||||
-- http://www.OARcorp.com/rtems/license.html.
|
|
||||||
--
|
|
||||||
-- $Id$
|
|
||||||
--
|
|
||||||
|
|
||||||
with INTERFACES; use INTERFACES;
|
|
||||||
with RTEMS;
|
|
||||||
with TEST_SUPPORT;
|
|
||||||
with TEXT_IO;
|
|
||||||
with UNSIGNED32_IO;
|
|
||||||
|
|
||||||
package body MPTEST is
|
|
||||||
|
|
||||||
package body PER_NODE_CONFIGURATION is separate;
|
|
||||||
|
|
||||||
--PAGE
|
|
||||||
--
|
|
||||||
-- INIT
|
|
||||||
--
|
|
||||||
|
|
||||||
procedure INIT (
|
|
||||||
ARGUMENT : in RTEMS.TASK_ARGUMENT
|
|
||||||
) is
|
|
||||||
STATUS : RTEMS.STATUS_CODES;
|
|
||||||
begin
|
|
||||||
|
|
||||||
TEXT_IO.NEW_LINE( 2 );
|
|
||||||
TEXT_IO.PUT( "*** TEST 2 -- NODE " );
|
|
||||||
UNSIGNED32_IO.PUT(
|
|
||||||
MPTEST.MULTIPROCESSING_CONFIGURATION.NODE,
|
|
||||||
WIDTH => 1
|
|
||||||
);
|
|
||||||
TEXT_IO.PUT_LINE( " ***" );
|
|
||||||
|
|
||||||
MPTEST.TASK_NAME( 1 ) := RTEMS.BUILD_NAME( '1', '1', '1', ' ' );
|
|
||||||
MPTEST.TASK_NAME( 2 ) := RTEMS.BUILD_NAME( '2', '2', '2', ' ' );
|
|
||||||
|
|
||||||
TEXT_IO.PUT_LINE( "Creating test task (Global)" );
|
|
||||||
|
|
||||||
RTEMS.TASK_CREATE(
|
|
||||||
MPTEST.TASK_NAME( MPTEST.MULTIPROCESSING_CONFIGURATION.NODE ),
|
|
||||||
1,
|
|
||||||
2048,
|
|
||||||
RTEMS.NO_PREEMPT,
|
|
||||||
RTEMS.GLOBAL,
|
|
||||||
MPTEST.TASK_ID( 1 ),
|
|
||||||
STATUS
|
|
||||||
);
|
|
||||||
TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "TASK_CREATE" );
|
|
||||||
|
|
||||||
RTEMS.TASK_START(
|
|
||||||
MPTEST.TASK_ID( 1 ),
|
|
||||||
MPTEST.TEST_TASK'ACCESS,
|
|
||||||
0,
|
|
||||||
STATUS
|
|
||||||
);
|
|
||||||
TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "TASK_START" );
|
|
||||||
|
|
||||||
RTEMS.TASK_DELETE( RTEMS.SELF, STATUS );
|
|
||||||
TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "TASK_DELETE OF SELF" );
|
|
||||||
|
|
||||||
end INIT;
|
|
||||||
|
|
||||||
--PAGE
|
|
||||||
--
|
|
||||||
-- TEST_TASK
|
|
||||||
--
|
|
||||||
|
|
||||||
procedure TEST_TASK (
|
|
||||||
ARGUMENT : in RTEMS.TASK_ARGUMENT
|
|
||||||
) is
|
|
||||||
TID : RTEMS.ID;
|
|
||||||
TEST_TID : RTEMS.ID;
|
|
||||||
REMOTE_TID : RTEMS.ID;
|
|
||||||
REMOTE_NODE : RTEMS.UNSIGNED32;
|
|
||||||
NOTE : RTEMS.UNSIGNED32;
|
|
||||||
STATUS : RTEMS.STATUS_CODES;
|
|
||||||
begin
|
|
||||||
|
|
||||||
RTEMS.TASK_IDENT( RTEMS.SELF, RTEMS.SEARCH_ALL_NODES, TID, STATUS );
|
|
||||||
TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "TASK_IDENT OF SELF" );
|
|
||||||
|
|
||||||
if MPTEST.MULTIPROCESSING_CONFIGURATION.NODE = 1 then
|
|
||||||
REMOTE_NODE := 2;
|
|
||||||
else
|
|
||||||
REMOTE_NODE := 1;
|
|
||||||
end if;
|
|
||||||
|
|
||||||
TEXT_IO.PUT_LINE( "Getting TID of remote task (all nodes)" );
|
|
||||||
|
|
||||||
loop
|
|
||||||
|
|
||||||
RTEMS.TASK_IDENT(
|
|
||||||
MPTEST.TASK_NAME( REMOTE_NODE ),
|
|
||||||
RTEMS.SEARCH_ALL_NODES,
|
|
||||||
REMOTE_TID,
|
|
||||||
STATUS
|
|
||||||
);
|
|
||||||
|
|
||||||
exit when RTEMS.IS_STATUS_SUCCESSFUL( STATUS );
|
|
||||||
|
|
||||||
end loop;
|
|
||||||
|
|
||||||
--
|
|
||||||
-- We just got this ID above so looping is not necessary.
|
|
||||||
--
|
|
||||||
|
|
||||||
TEXT_IO.PUT_LINE( "Getting TID of remote task (1 node)" );
|
|
||||||
RTEMS.TASK_IDENT(
|
|
||||||
MPTEST.TASK_NAME( REMOTE_NODE ),
|
|
||||||
REMOTE_NODE,
|
|
||||||
TEST_TID,
|
|
||||||
STATUS
|
|
||||||
);
|
|
||||||
TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "TASK_IDENT" );
|
|
||||||
|
|
||||||
if TEST_TID /= REMOTE_TID then
|
|
||||||
TEXT_IO.PUT_LINE( "task_ident tid's do not match!!" );
|
|
||||||
RTEMS.SHUTDOWN_EXECUTIVE( 0 );
|
|
||||||
end if;
|
|
||||||
|
|
||||||
RTEMS.TASK_DELETE( REMOTE_TID, STATUS );
|
|
||||||
TEST_SUPPORT.FATAL_DIRECTIVE_STATUS(
|
|
||||||
STATUS,
|
|
||||||
RTEMS.ILLEGAL_ON_REMOTE_OBJECT,
|
|
||||||
"task_delete of remote task"
|
|
||||||
);
|
|
||||||
TEXT_IO.PUT_LINE(
|
|
||||||
"task_delete of remote task returned the correct error"
|
|
||||||
);
|
|
||||||
|
|
||||||
RTEMS.TASK_START( REMOTE_TID, MPTEST.TEST_TASK'ACCESS, 0, STATUS );
|
|
||||||
TEST_SUPPORT.FATAL_DIRECTIVE_STATUS(
|
|
||||||
STATUS,
|
|
||||||
RTEMS.ILLEGAL_ON_REMOTE_OBJECT,
|
|
||||||
"task_start of remote task"
|
|
||||||
);
|
|
||||||
TEXT_IO.PUT_LINE(
|
|
||||||
"task_start of remote task returned the correct error"
|
|
||||||
);
|
|
||||||
|
|
||||||
RTEMS.TASK_RESTART( REMOTE_TID, 0, STATUS );
|
|
||||||
TEST_SUPPORT.FATAL_DIRECTIVE_STATUS(
|
|
||||||
STATUS,
|
|
||||||
RTEMS.ILLEGAL_ON_REMOTE_OBJECT,
|
|
||||||
"task_restart of remote task"
|
|
||||||
);
|
|
||||||
TEXT_IO.PUT_LINE(
|
|
||||||
"task_restart of remote task returned the correct error"
|
|
||||||
);
|
|
||||||
|
|
||||||
|
|
||||||
TEXT_IO.PUT( "Setting notepad " );
|
|
||||||
UNSIGNED32_IO.PUT( RTEMS.GET_NODE( TID ), WIDTH=>1 );
|
|
||||||
TEXT_IO.PUT( " of the remote task to " );
|
|
||||||
UNSIGNED32_IO.PUT( RTEMS.GET_NODE( TID ), WIDTH=>1 );
|
|
||||||
TEXT_IO.NEW_LINE;
|
|
||||||
RTEMS.TASK_SET_NOTE(
|
|
||||||
REMOTE_TID,
|
|
||||||
RTEMS.GET_NODE( TID ),
|
|
||||||
RTEMS.GET_NODE( TID ),
|
|
||||||
STATUS
|
|
||||||
);
|
|
||||||
TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "TASK_SET_NOTE" );
|
|
||||||
|
|
||||||
TEXT_IO.PUT_LINE( "Getting a notepad of the remote task" );
|
|
||||||
RTEMS.TASK_GET_NOTE(
|
|
||||||
REMOTE_TID,
|
|
||||||
RTEMS.GET_NODE( TID ),
|
|
||||||
NOTE,
|
|
||||||
STATUS
|
|
||||||
);
|
|
||||||
TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "TASK_GET_NOTE" );
|
|
||||||
|
|
||||||
if NOTE = RTEMS.GET_NODE( TID ) then
|
|
||||||
TEXT_IO.PUT_LINE( "Remote notepad set and read correctly" );
|
|
||||||
else
|
|
||||||
TEXT_IO.PUT(
|
|
||||||
"FAILURE!!! Remote notepad was not set and read correctly ("
|
|
||||||
);
|
|
||||||
UNSIGNED32_IO.PUT( NOTE );
|
|
||||||
TEXT_IO.PUT( ", " );
|
|
||||||
UNSIGNED32_IO.PUT( RTEMS.GET_NODE( TID ) );
|
|
||||||
TEXT_IO.PUT_LINE( ")" );
|
|
||||||
|
|
||||||
end if;
|
|
||||||
|
|
||||||
RTEMS.TASK_DELETE( REMOTE_TID, STATUS );
|
|
||||||
TEXT_IO.PUT_LINE( "*** END OF TEST 2 ***" );
|
|
||||||
|
|
||||||
RTEMS.SHUTDOWN_EXECUTIVE( 0 );
|
|
||||||
|
|
||||||
end TEST_TASK;
|
|
||||||
|
|
||||||
end MPTEST;
|
|
||||||
@@ -1,164 +0,0 @@
|
|||||||
--
|
|
||||||
-- MPTEST / SPECIFICATION
|
|
||||||
--
|
|
||||||
-- DESCRIPTION:
|
|
||||||
--
|
|
||||||
-- This package is the specification for Test 2 of the RTEMS
|
|
||||||
-- Multiprocessor Test Suite.
|
|
||||||
--
|
|
||||||
-- DEPENDENCIES:
|
|
||||||
--
|
|
||||||
--
|
|
||||||
--
|
|
||||||
-- COPYRIGHT (c) 1989-1997.
|
|
||||||
-- On-Line Applications Research Corporation (OAR).
|
|
||||||
-- Copyright assigned to U.S. Government, 1994.
|
|
||||||
--
|
|
||||||
-- The license and distribution terms for this file may in
|
|
||||||
-- the file LICENSE in this distribution or at
|
|
||||||
-- http://www.OARcorp.com/rtems/license.html.
|
|
||||||
--
|
|
||||||
-- $Id$
|
|
||||||
--
|
|
||||||
|
|
||||||
with BSP_MPCI;
|
|
||||||
with RTEMS;
|
|
||||||
|
|
||||||
package MPTEST is
|
|
||||||
|
|
||||||
--
|
|
||||||
-- These arrays contain the IDs and NAMEs of all RTEMS tasks created
|
|
||||||
-- by this test.
|
|
||||||
--
|
|
||||||
|
|
||||||
TASK_ID : array ( RTEMS.UNSIGNED32 range 1 .. 3 ) of RTEMS.ID;
|
|
||||||
TASK_NAME : array ( RTEMS.UNSIGNED32 range 1 .. 3 ) of RTEMS.NAME;
|
|
||||||
|
|
||||||
--
|
|
||||||
-- INIT
|
|
||||||
--
|
|
||||||
-- DESCRIPTION:
|
|
||||||
--
|
|
||||||
-- This RTEMS task initializes the application.
|
|
||||||
--
|
|
||||||
|
|
||||||
procedure INIT (
|
|
||||||
ARGUMENT : in RTEMS.TASK_ARGUMENT
|
|
||||||
);
|
|
||||||
|
|
||||||
--
|
|
||||||
-- TEST_TASK
|
|
||||||
--
|
|
||||||
-- DESCRIPTION:
|
|
||||||
--
|
|
||||||
-- This is the body of the RTEMS tasks which constitute this test.
|
|
||||||
--
|
|
||||||
|
|
||||||
procedure TEST_TASK (
|
|
||||||
ARGUMENT : in RTEMS.TASK_ARGUMENT
|
|
||||||
);
|
|
||||||
|
|
||||||
--
|
|
||||||
-- This is the Driver Address Table for this test.
|
|
||||||
--
|
|
||||||
|
|
||||||
DEVICE_DRIVERS : aliased RTEMS.DRIVER_ADDRESS_TABLE( 1 .. 1 ) :=
|
|
||||||
(1=>
|
|
||||||
(
|
|
||||||
CLOCK_DRIVER.INITIALIZE'ACCESS, -- Initialization
|
|
||||||
RTEMS.NO_DRIVER_ENTRY, -- Open
|
|
||||||
RTEMS.NO_DRIVER_ENTRY, -- Close
|
|
||||||
RTEMS.NO_DRIVER_ENTRY, -- Read
|
|
||||||
RTEMS.NO_DRIVER_ENTRY, -- Write
|
|
||||||
RTEMS.NO_DRIVER_ENTRY -- Control
|
|
||||||
)
|
|
||||||
);
|
|
||||||
|
|
||||||
--
|
|
||||||
-- This is the Initialization Tasks Table for this test.
|
|
||||||
--
|
|
||||||
|
|
||||||
INITIALIZATION_TASKS : aliased RTEMS.INITIALIZATION_TASKS_TABLE( 1 .. 1 ) :=
|
|
||||||
(1=>
|
|
||||||
(
|
|
||||||
RTEMS.BUILD_NAME( 'U', 'I', '1', ' ' ), -- task name
|
|
||||||
2048, -- stack size
|
|
||||||
1, -- priority
|
|
||||||
RTEMS.DEFAULT_ATTRIBUTES, -- attributes
|
|
||||||
MPTEST.INIT'ACCESS, -- entry point
|
|
||||||
RTEMS.NO_PREEMPT, -- initial mode
|
|
||||||
0 -- argument list
|
|
||||||
)
|
|
||||||
);
|
|
||||||
|
|
||||||
----------------------------------------------------------------------------
|
|
||||||
----------------------------------------------------------------------------
|
|
||||||
-- BEGIN SUBPACKAGE --
|
|
||||||
----------------------------------------------------------------------------
|
|
||||||
----------------------------------------------------------------------------
|
|
||||||
|
|
||||||
--
|
|
||||||
-- MPTEST.PER_NODE_CONFIGURATION / SPECIFICATION
|
|
||||||
--
|
|
||||||
-- DESCRIPTION:
|
|
||||||
--
|
|
||||||
-- This package is the specification for the subpackage
|
|
||||||
-- which will define the per node configuration parameters.
|
|
||||||
--
|
|
||||||
|
|
||||||
package PER_NODE_CONFIGURATION is
|
|
||||||
|
|
||||||
--
|
|
||||||
-- LOCAL_NODE_NUMBER
|
|
||||||
--
|
|
||||||
-- DESCRIPTION:
|
|
||||||
--
|
|
||||||
-- This function returns the node number for this node.
|
|
||||||
--
|
|
||||||
|
|
||||||
function LOCAL_NODE_NUMBER
|
|
||||||
return RTEMS.UNSIGNED32;
|
|
||||||
|
|
||||||
pragma INLINE ( LOCAL_NODE_NUMBER );
|
|
||||||
|
|
||||||
end PER_NODE_CONFIGURATION;
|
|
||||||
|
|
||||||
----------------------------------------------------------------------------
|
|
||||||
----------------------------------------------------------------------------
|
|
||||||
-- END SUBPACKAGE --
|
|
||||||
----------------------------------------------------------------------------
|
|
||||||
----------------------------------------------------------------------------
|
|
||||||
|
|
||||||
--
|
|
||||||
-- This is the Multiprocessor Configuration Table for this test.
|
|
||||||
--
|
|
||||||
|
|
||||||
MULTIPROCESSING_CONFIGURATION : aliased RTEMS.MULTIPROCESSING_TABLE := (
|
|
||||||
MPTEST.PER_NODE_CONFIGURATION.LOCAL_NODE_NUMBER,
|
|
||||||
2, -- maximum # nodes in system
|
|
||||||
32, -- maximum # global objects
|
|
||||||
32 -- maximum # proxies
|
|
||||||
);
|
|
||||||
|
|
||||||
--
|
|
||||||
-- This is the Configuration Table for this test.
|
|
||||||
--
|
|
||||||
|
|
||||||
CONFIGURATION : aliased RTEMS.CONFIGURATION_TABLE := (
|
|
||||||
RTEMS.NULL_ADDRESS, -- will be replaced by BSP
|
|
||||||
64 * 1024, -- executive RAM size
|
|
||||||
10, -- maximum # tasks
|
|
||||||
0, -- maximum # timers
|
|
||||||
0, -- maximum # semaphores
|
|
||||||
0, -- maximum # message queues
|
|
||||||
0, -- maximum # messages
|
|
||||||
0, -- maximum # partitions
|
|
||||||
0, -- maximum # regions
|
|
||||||
0, -- maximum # dp memory areas
|
|
||||||
0, -- maximum # periods
|
|
||||||
0, -- maximum # user extensions
|
|
||||||
RTEMS.MILLISECONDS_TO_MICROSECONDS(10), -- # us in a tick
|
|
||||||
50 -- # ticks in a timeslice
|
|
||||||
);
|
|
||||||
|
|
||||||
end MPTEST;
|
|
||||||
@@ -1,11 +0,0 @@
|
|||||||
*** TEST 2 -- NODE 1 ***
|
|
||||||
Creating test task (Global)
|
|
||||||
Getting TID of remote task (all nodes)
|
|
||||||
Getting TID of remote task (1 node)
|
|
||||||
task_delete of remote task returned the correct error
|
|
||||||
task_start of remote task returned the correct error
|
|
||||||
task_restart of remote task returned the correct error
|
|
||||||
Setting notepad 1 of the remote task to 1
|
|
||||||
Getting a notepad of the remote task
|
|
||||||
Remote notepad set and read correctly
|
|
||||||
*** END OF TEST 2 ***
|
|
||||||
@@ -1,43 +0,0 @@
|
|||||||
--
|
|
||||||
-- MPTEST.PER_NODE_CONFIGURATION / BODY
|
|
||||||
--
|
|
||||||
-- DESCRIPTION:
|
|
||||||
--
|
|
||||||
-- This package is the specification for the subpackage
|
|
||||||
-- which will define the per node configuration parameters.
|
|
||||||
--
|
|
||||||
-- DEPENDENCIES:
|
|
||||||
--
|
|
||||||
--
|
|
||||||
--
|
|
||||||
-- COPYRIGHT (c) 1989-1997.
|
|
||||||
-- On-Line Applications Research Corporation (OAR).
|
|
||||||
-- Copyright assigned to U.S. Government, 1994.
|
|
||||||
--
|
|
||||||
-- The license and distribution terms for this file may in
|
|
||||||
-- the file LICENSE in this distribution or at
|
|
||||||
-- http://www.OARcorp.com/rtems/license.html.
|
|
||||||
--
|
|
||||||
-- $Id$
|
|
||||||
--
|
|
||||||
|
|
||||||
with RTEMS;
|
|
||||||
|
|
||||||
separate ( MPTEST )
|
|
||||||
|
|
||||||
package body PER_NODE_CONFIGURATION is
|
|
||||||
|
|
||||||
--PAGE
|
|
||||||
--
|
|
||||||
-- LOCAL_NODE_NUMBER
|
|
||||||
--
|
|
||||||
|
|
||||||
function LOCAL_NODE_NUMBER
|
|
||||||
return RTEMS.UNSIGNED32 is
|
|
||||||
begin
|
|
||||||
|
|
||||||
return 1;
|
|
||||||
|
|
||||||
end LOCAL_NODE_NUMBER;
|
|
||||||
|
|
||||||
end PER_NODE_CONFIGURATION;
|
|
||||||
@@ -1,11 +0,0 @@
|
|||||||
*** TEST 2 -- NODE 2 ***
|
|
||||||
Creating test task (Global)
|
|
||||||
Getting TID of remote task (all nodes)
|
|
||||||
Getting TID of remote task (1 node)
|
|
||||||
task_delete of remote task returned the correct error
|
|
||||||
task_start of remote task returned the correct error
|
|
||||||
task_restart of remote task returned the correct error
|
|
||||||
Setting notepad 2 of the remote task to 2
|
|
||||||
Getting a notepad of the remote task
|
|
||||||
Remote notepad set and read correctly
|
|
||||||
*** END OF TEST 2 ***
|
|
||||||
@@ -1,43 +0,0 @@
|
|||||||
--
|
|
||||||
-- MPTEST.PER_NODE_CONFIGURATION / BODY
|
|
||||||
--
|
|
||||||
-- DESCRIPTION:
|
|
||||||
--
|
|
||||||
-- This package is the specification for the subpackage
|
|
||||||
-- which will define the per node configuration parameters.
|
|
||||||
--
|
|
||||||
-- DEPENDENCIES:
|
|
||||||
--
|
|
||||||
--
|
|
||||||
--
|
|
||||||
-- COPYRIGHT (c) 1989-1997.
|
|
||||||
-- On-Line Applications Research Corporation (OAR).
|
|
||||||
-- Copyright assigned to U.S. Government, 1994.
|
|
||||||
--
|
|
||||||
-- The license and distribution terms for this file may in
|
|
||||||
-- the file LICENSE in this distribution or at
|
|
||||||
-- http://www.OARcorp.com/rtems/license.html.
|
|
||||||
--
|
|
||||||
-- $Id$
|
|
||||||
--
|
|
||||||
|
|
||||||
with RTEMS;
|
|
||||||
|
|
||||||
separate ( MPTEST )
|
|
||||||
|
|
||||||
package body PER_NODE_CONFIGURATION is
|
|
||||||
|
|
||||||
--PAGE
|
|
||||||
--
|
|
||||||
-- LOCAL_NODE_NUMBER
|
|
||||||
--
|
|
||||||
|
|
||||||
function LOCAL_NODE_NUMBER
|
|
||||||
return RTEMS.UNSIGNED32 is
|
|
||||||
begin
|
|
||||||
|
|
||||||
return 2;
|
|
||||||
|
|
||||||
end LOCAL_NODE_NUMBER;
|
|
||||||
|
|
||||||
end PER_NODE_CONFIGURATION;
|
|
||||||
@@ -1,277 +0,0 @@
|
|||||||
--
|
|
||||||
-- MPTEST / BODY
|
|
||||||
--
|
|
||||||
-- DESCRIPTION:
|
|
||||||
--
|
|
||||||
-- This package is the implementation for Test 3 of the RTEMS
|
|
||||||
-- Multiprocessor Test Suite.
|
|
||||||
--
|
|
||||||
-- DEPENDENCIES:
|
|
||||||
--
|
|
||||||
--
|
|
||||||
--
|
|
||||||
-- COPYRIGHT (c) 1989-1997.
|
|
||||||
-- On-Line Applications Research Corporation (OAR).
|
|
||||||
-- Copyright assigned to U.S. Government, 1994.
|
|
||||||
--
|
|
||||||
-- The license and distribution terms for this file may in
|
|
||||||
-- the file LICENSE in this distribution or at
|
|
||||||
-- http://www.OARcorp.com/rtems/license.html.
|
|
||||||
--
|
|
||||||
-- $Id$
|
|
||||||
--
|
|
||||||
|
|
||||||
with INTERFACES; use INTERFACES;
|
|
||||||
with RTEMS;
|
|
||||||
with TEST_SUPPORT;
|
|
||||||
with TEXT_IO;
|
|
||||||
with UNSIGNED32_IO;
|
|
||||||
|
|
||||||
package body MPTEST is
|
|
||||||
|
|
||||||
package body PER_NODE_CONFIGURATION is separate;
|
|
||||||
|
|
||||||
--PAGE
|
|
||||||
--
|
|
||||||
-- INIT
|
|
||||||
--
|
|
||||||
|
|
||||||
procedure INIT (
|
|
||||||
ARGUMENT : in RTEMS.TASK_ARGUMENT
|
|
||||||
) is
|
|
||||||
STATUS : RTEMS.STATUS_CODES;
|
|
||||||
begin
|
|
||||||
|
|
||||||
TEXT_IO.NEW_LINE( 2 );
|
|
||||||
TEXT_IO.PUT( "*** TEST 3 -- NODE " );
|
|
||||||
UNSIGNED32_IO.PUT(
|
|
||||||
MPTEST.MULTIPROCESSING_CONFIGURATION.NODE,
|
|
||||||
WIDTH => 1
|
|
||||||
);
|
|
||||||
TEXT_IO.PUT_LINE( " ***" );
|
|
||||||
|
|
||||||
MPTEST.TASK_NAME( 1 ) := RTEMS.BUILD_NAME( '1', '1', '1', ' ' );
|
|
||||||
MPTEST.TASK_NAME( 2 ) := RTEMS.BUILD_NAME( '2', '2', '2', ' ' );
|
|
||||||
|
|
||||||
TEXT_IO.PUT_LINE( "Creating Test_task (Global)" );
|
|
||||||
RTEMS.TASK_CREATE(
|
|
||||||
MPTEST.TASK_NAME( MPTEST.MULTIPROCESSING_CONFIGURATION.NODE ),
|
|
||||||
1,
|
|
||||||
2048,
|
|
||||||
RTEMS.NO_PREEMPT,
|
|
||||||
RTEMS.GLOBAL,
|
|
||||||
MPTEST.TASK_ID( 1 ),
|
|
||||||
STATUS
|
|
||||||
);
|
|
||||||
TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "TASK_CREATE" );
|
|
||||||
|
|
||||||
TEXT_IO.PUT_LINE( "Starting Test_task (Global)" );
|
|
||||||
RTEMS.TASK_START(
|
|
||||||
MPTEST.TASK_ID( 1 ),
|
|
||||||
MPTEST.TEST_TASK'ACCESS,
|
|
||||||
0,
|
|
||||||
STATUS
|
|
||||||
);
|
|
||||||
TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "TASK_START" );
|
|
||||||
|
|
||||||
MPTEST.TIMER_NAME( 1 ) := RTEMS.BUILD_NAME( 'T', 'M', '1', ' ' );
|
|
||||||
|
|
||||||
RTEMS.TIMER_CREATE(
|
|
||||||
MPTEST.TIMER_NAME( 1 ),
|
|
||||||
MPTEST.TIMER_ID( 1 ),
|
|
||||||
STATUS
|
|
||||||
);
|
|
||||||
TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "TIMER_CREATE" );
|
|
||||||
|
|
||||||
TEXT_IO.PUT_LINE( "Deleting initialization task" );
|
|
||||||
RTEMS.TASK_DELETE( RTEMS.SELF, STATUS );
|
|
||||||
TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "TASK_DELETE OF SELF" );
|
|
||||||
|
|
||||||
end INIT;
|
|
||||||
|
|
||||||
--PAGE
|
|
||||||
--
|
|
||||||
-- DELAYED_SEND_EVENT
|
|
||||||
--
|
|
||||||
|
|
||||||
procedure DELAYED_SEND_EVENT (
|
|
||||||
IGNORED_ID : in RTEMS.ID;
|
|
||||||
IGNORED_ADDRESS : in RTEMS.ADDRESS
|
|
||||||
) is
|
|
||||||
STATUS : RTEMS.STATUS_CODES;
|
|
||||||
begin
|
|
||||||
|
|
||||||
RTEMS.EVENT_SEND( MPTEST.TASK_ID( 1 ), RTEMS.EVENT_16, STATUS );
|
|
||||||
TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "EVENT_SEND" );
|
|
||||||
|
|
||||||
end DELAYED_SEND_EVENT;
|
|
||||||
|
|
||||||
--PAGE
|
|
||||||
--
|
|
||||||
-- TEST_TASK
|
|
||||||
--
|
|
||||||
|
|
||||||
procedure TEST_TASK (
|
|
||||||
ARGUMENT : in RTEMS.TASK_ARGUMENT
|
|
||||||
) is
|
|
||||||
TID : RTEMS.ID;
|
|
||||||
STATUS : RTEMS.STATUS_CODES;
|
|
||||||
begin
|
|
||||||
|
|
||||||
RTEMS.TASK_IDENT( RTEMS.SELF, RTEMS.SEARCH_ALL_NODES, TID, STATUS );
|
|
||||||
TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "TASK_IDENT OF SELF" );
|
|
||||||
|
|
||||||
TEXT_IO.PUT_LINE( "Getting TID of remote task" );
|
|
||||||
if MPTEST.MULTIPROCESSING_CONFIGURATION.NODE = 1 then
|
|
||||||
MPTEST.REMOTE_NODE := 2;
|
|
||||||
else
|
|
||||||
MPTEST.REMOTE_NODE := 1;
|
|
||||||
end if;
|
|
||||||
|
|
||||||
TEXT_IO.PUT( "Remote task's name is : " );
|
|
||||||
TEST_SUPPORT.PUT_NAME( MPTEST.TASK_NAME( MPTEST.REMOTE_NODE ), TRUE );
|
|
||||||
|
|
||||||
loop
|
|
||||||
|
|
||||||
RTEMS.TASK_IDENT(
|
|
||||||
MPTEST.TASK_NAME( MPTEST.REMOTE_NODE ),
|
|
||||||
RTEMS.SEARCH_ALL_NODES,
|
|
||||||
MPTEST.REMOTE_TID,
|
|
||||||
STATUS
|
|
||||||
);
|
|
||||||
|
|
||||||
exit when RTEMS.IS_STATUS_SUCCESSFUL( STATUS );
|
|
||||||
|
|
||||||
end loop;
|
|
||||||
|
|
||||||
RTEMS.TIMER_FIRE_AFTER(
|
|
||||||
MPTEST.TIMER_ID( 1 ),
|
|
||||||
10 * TEST_SUPPORT.TICKS_PER_SECOND,
|
|
||||||
MPTEST.DELAYED_SEND_EVENT'ACCESS,
|
|
||||||
RTEMS.NULL_ADDRESS,
|
|
||||||
STATUS
|
|
||||||
);
|
|
||||||
TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "TIMER_FIRE_AFTER" );
|
|
||||||
|
|
||||||
MPTEST.TEST_TASK_SUPPORT( 1 );
|
|
||||||
|
|
||||||
RTEMS.TIMER_FIRE_AFTER(
|
|
||||||
MPTEST.TIMER_ID( 1 ),
|
|
||||||
11 * TEST_SUPPORT.TICKS_PER_SECOND,
|
|
||||||
MPTEST.DELAYED_SEND_EVENT'ACCESS,
|
|
||||||
RTEMS.NULL_ADDRESS,
|
|
||||||
STATUS
|
|
||||||
);
|
|
||||||
TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "TIMER_FIRE_AFTER" );
|
|
||||||
|
|
||||||
if MPTEST.MULTIPROCESSING_CONFIGURATION.NODE = 2 then
|
|
||||||
|
|
||||||
RTEMS.TASK_WAKE_AFTER(
|
|
||||||
2 * TEST_SUPPORT.TICKS_PER_SECOND,
|
|
||||||
STATUS
|
|
||||||
);
|
|
||||||
TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "TASK_WAKE_AFTER" );
|
|
||||||
|
|
||||||
end if;
|
|
||||||
|
|
||||||
MPTEST.TEST_TASK_SUPPORT( 2 );
|
|
||||||
|
|
||||||
TEXT_IO.PUT_LINE( "*** END OF TEST 3 ***" );
|
|
||||||
|
|
||||||
RTEMS.SHUTDOWN_EXECUTIVE( 0 );
|
|
||||||
|
|
||||||
end TEST_TASK;
|
|
||||||
|
|
||||||
--PAGE
|
|
||||||
--
|
|
||||||
-- TEST_TASK_SUPPORT
|
|
||||||
--
|
|
||||||
|
|
||||||
|
|
||||||
procedure TEST_TASK_SUPPORT (
|
|
||||||
NODE : in RTEMS.UNSIGNED32
|
|
||||||
) is
|
|
||||||
EVENTS : RTEMS.EVENT_SET;
|
|
||||||
STATUS : RTEMS.STATUS_CODES;
|
|
||||||
begin
|
|
||||||
|
|
||||||
if MPTEST.MULTIPROCESSING_CONFIGURATION.NODE = NODE then
|
|
||||||
|
|
||||||
loop
|
|
||||||
|
|
||||||
RTEMS.EVENT_RECEIVE(
|
|
||||||
RTEMS.EVENT_16,
|
|
||||||
RTEMS.NO_WAIT,
|
|
||||||
RTEMS.NO_TIMEOUT,
|
|
||||||
EVENTS,
|
|
||||||
STATUS
|
|
||||||
);
|
|
||||||
|
|
||||||
exit when RTEMS.ARE_STATUSES_EQUAL( RTEMS.SUCCESSFUL, STATUS );
|
|
||||||
|
|
||||||
TEST_SUPPORT.FATAL_DIRECTIVE_STATUS(
|
|
||||||
STATUS,
|
|
||||||
RTEMS.UNSATISFIED,
|
|
||||||
"EVENT_RECEIVE"
|
|
||||||
);
|
|
||||||
|
|
||||||
RTEMS.TASK_WAKE_AFTER(
|
|
||||||
2 * TEST_SUPPORT.TICKS_PER_SECOND,
|
|
||||||
STATUS
|
|
||||||
);
|
|
||||||
TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "TASK_WAKE_AFTER" );
|
|
||||||
|
|
||||||
TEST_SUPPORT.PUT_NAME( MPTEST.TASK_NAME( NODE ), FALSE );
|
|
||||||
TEXT_IO.PUT_LINE( " - Suspending remote task" );
|
|
||||||
RTEMS.TASK_SUSPEND( MPTEST.REMOTE_TID, STATUS );
|
|
||||||
TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "TASK_SUSPEND" );
|
|
||||||
|
|
||||||
RTEMS.TASK_WAKE_AFTER(
|
|
||||||
2 * TEST_SUPPORT.TICKS_PER_SECOND,
|
|
||||||
STATUS
|
|
||||||
);
|
|
||||||
TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "TASK_WAKE_AFTER" );
|
|
||||||
|
|
||||||
TEST_SUPPORT.PUT_NAME( MPTEST.TASK_NAME( NODE ), FALSE );
|
|
||||||
TEXT_IO.PUT_LINE( " - Resuming remote task" );
|
|
||||||
|
|
||||||
RTEMS.TASK_RESUME( MPTEST.REMOTE_TID, STATUS );
|
|
||||||
TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "TASK_RESUME" );
|
|
||||||
|
|
||||||
end loop;
|
|
||||||
|
|
||||||
else
|
|
||||||
|
|
||||||
loop
|
|
||||||
|
|
||||||
RTEMS.EVENT_RECEIVE(
|
|
||||||
RTEMS.EVENT_16,
|
|
||||||
RTEMS.NO_WAIT,
|
|
||||||
RTEMS.NO_TIMEOUT,
|
|
||||||
EVENTS,
|
|
||||||
STATUS
|
|
||||||
);
|
|
||||||
|
|
||||||
exit when RTEMS.ARE_STATUSES_EQUAL( RTEMS.SUCCESSFUL, STATUS );
|
|
||||||
|
|
||||||
TEST_SUPPORT.FATAL_DIRECTIVE_STATUS(
|
|
||||||
STATUS,
|
|
||||||
RTEMS.UNSATISFIED,
|
|
||||||
"EVENT_RECEIVE"
|
|
||||||
);
|
|
||||||
|
|
||||||
TEST_SUPPORT.PUT_NAME( MPTEST.TASK_NAME( REMOTE_NODE ), FALSE );
|
|
||||||
TEXT_IO.PUT_LINE( " - have I been suspended???" );
|
|
||||||
RTEMS.TASK_WAKE_AFTER(
|
|
||||||
TEST_SUPPORT.TICKS_PER_SECOND / 2,
|
|
||||||
STATUS
|
|
||||||
);
|
|
||||||
TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "TASK_WAKE_AFTER" );
|
|
||||||
|
|
||||||
end loop;
|
|
||||||
|
|
||||||
end if;
|
|
||||||
|
|
||||||
end TEST_TASK_SUPPORT;
|
|
||||||
|
|
||||||
end MPTEST;
|
|
||||||
@@ -1,214 +0,0 @@
|
|||||||
--
|
|
||||||
-- MPTEST / SPECIFICATION
|
|
||||||
--
|
|
||||||
-- DESCRIPTION:
|
|
||||||
--
|
|
||||||
-- This package is the specification for Test 3 of the RTEMS
|
|
||||||
-- Multiprocessor Test Suite.
|
|
||||||
--
|
|
||||||
-- DEPENDENCIES:
|
|
||||||
--
|
|
||||||
--
|
|
||||||
--
|
|
||||||
-- COPYRIGHT (c) 1989-1997.
|
|
||||||
-- On-Line Applications Research Corporation (OAR).
|
|
||||||
-- Copyright assigned to U.S. Government, 1994.
|
|
||||||
--
|
|
||||||
-- The license and distribution terms for this file may in
|
|
||||||
-- the file LICENSE in this distribution or at
|
|
||||||
-- http://www.OARcorp.com/rtems/license.html.
|
|
||||||
--
|
|
||||||
-- $Id$
|
|
||||||
--
|
|
||||||
|
|
||||||
with BSP_MPCI;
|
|
||||||
with RTEMS;
|
|
||||||
|
|
||||||
package MPTEST is
|
|
||||||
|
|
||||||
--
|
|
||||||
-- These arrays contain the IDs and NAMEs of all RTEMS tasks created
|
|
||||||
-- by this test.
|
|
||||||
--
|
|
||||||
|
|
||||||
TASK_ID : array ( RTEMS.UNSIGNED32 range 1 .. 3 ) of RTEMS.ID;
|
|
||||||
TASK_NAME : array ( RTEMS.UNSIGNED32 range 1 .. 3 ) of RTEMS.NAME;
|
|
||||||
|
|
||||||
--
|
|
||||||
-- These arrays contain the IDs and NAMEs of all RTEMS timers created
|
|
||||||
-- by this test.
|
|
||||||
--
|
|
||||||
|
|
||||||
TIMER_ID : array ( RTEMS.UNSIGNED32 range 1 .. 2 ) of RTEMS.ID;
|
|
||||||
TIMER_NAME : array ( RTEMS.UNSIGNED32 range 1 .. 2 ) of RTEMS.NAME;
|
|
||||||
|
|
||||||
--
|
|
||||||
-- This variable contains the ID of the remote task with which this
|
|
||||||
-- test interacts.
|
|
||||||
--
|
|
||||||
|
|
||||||
REMOTE_TID : RTEMS.ID;
|
|
||||||
|
|
||||||
--
|
|
||||||
-- This variable contains the node on which the remote task with which
|
|
||||||
-- this test interacts resides.
|
|
||||||
--
|
|
||||||
|
|
||||||
REMOTE_NODE : RTEMS.UNSIGNED32;
|
|
||||||
|
|
||||||
--
|
|
||||||
-- INIT
|
|
||||||
--
|
|
||||||
-- DESCRIPTION:
|
|
||||||
--
|
|
||||||
-- This RTEMS task initializes the application.
|
|
||||||
--
|
|
||||||
|
|
||||||
procedure INIT (
|
|
||||||
ARGUMENT : in RTEMS.TASK_ARGUMENT
|
|
||||||
);
|
|
||||||
|
|
||||||
--
|
|
||||||
-- DELAYED_SEND_EVENT
|
|
||||||
--
|
|
||||||
-- DESCRIPTION:
|
|
||||||
--
|
|
||||||
-- This subprogram is a timer service routine which sends an
|
|
||||||
-- event set to a waiting task.
|
|
||||||
--
|
|
||||||
|
|
||||||
procedure DELAYED_SEND_EVENT (
|
|
||||||
IGNORED_ID : in RTEMS.ID;
|
|
||||||
IGNORED_ADDRESS : in RTEMS.ADDRESS
|
|
||||||
);
|
|
||||||
|
|
||||||
--
|
|
||||||
-- TEST_TASK
|
|
||||||
--
|
|
||||||
-- DESCRIPTION:
|
|
||||||
--
|
|
||||||
-- This is the body of the RTEMS tasks which constitute this test.
|
|
||||||
--
|
|
||||||
|
|
||||||
procedure TEST_TASK (
|
|
||||||
ARGUMENT : in RTEMS.TASK_ARGUMENT
|
|
||||||
);
|
|
||||||
|
|
||||||
--
|
|
||||||
-- TEST_TASK_SUPPORT
|
|
||||||
--
|
|
||||||
-- DESCRIPTION:
|
|
||||||
--
|
|
||||||
-- This subprogram performs the bulk of the test. Based on the NODE
|
|
||||||
-- specified, this subprogram loops suspending/resuming a remote task
|
|
||||||
-- or waiting for itself to be suspended/resumed.
|
|
||||||
--
|
|
||||||
|
|
||||||
procedure TEST_TASK_SUPPORT (
|
|
||||||
NODE : in RTEMS.UNSIGNED32
|
|
||||||
);
|
|
||||||
|
|
||||||
--
|
|
||||||
-- This is the Driver Address Table for this test.
|
|
||||||
--
|
|
||||||
|
|
||||||
DEVICE_DRIVERS : aliased RTEMS.DRIVER_ADDRESS_TABLE( 1 .. 1 ) :=
|
|
||||||
(1=>
|
|
||||||
(
|
|
||||||
CLOCK_DRIVER.INITIALIZE'ACCESS, -- Initialization
|
|
||||||
RTEMS.NO_DRIVER_ENTRY, -- Open
|
|
||||||
RTEMS.NO_DRIVER_ENTRY, -- Close
|
|
||||||
RTEMS.NO_DRIVER_ENTRY, -- Read
|
|
||||||
RTEMS.NO_DRIVER_ENTRY, -- Write
|
|
||||||
RTEMS.NO_DRIVER_ENTRY -- Control
|
|
||||||
)
|
|
||||||
);
|
|
||||||
|
|
||||||
--
|
|
||||||
-- This is the Initialization Tasks Table for this test.
|
|
||||||
--
|
|
||||||
|
|
||||||
INITIALIZATION_TASKS : aliased RTEMS.INITIALIZATION_TASKS_TABLE( 1 .. 1 ) :=
|
|
||||||
(1=>
|
|
||||||
(
|
|
||||||
RTEMS.BUILD_NAME( 'U', 'I', '1', ' ' ), -- task name
|
|
||||||
2048, -- stack size
|
|
||||||
1, -- priority
|
|
||||||
RTEMS.DEFAULT_ATTRIBUTES, -- attributes
|
|
||||||
MPTEST.INIT'ACCESS, -- entry point
|
|
||||||
RTEMS.NO_PREEMPT, -- initial mode
|
|
||||||
0 -- argument list
|
|
||||||
)
|
|
||||||
);
|
|
||||||
|
|
||||||
----------------------------------------------------------------------------
|
|
||||||
----------------------------------------------------------------------------
|
|
||||||
-- BEGIN SUBPACKAGE --
|
|
||||||
----------------------------------------------------------------------------
|
|
||||||
----------------------------------------------------------------------------
|
|
||||||
|
|
||||||
--
|
|
||||||
-- MPTEST.PER_NODE_CONFIGURATION / SPECIFICATION
|
|
||||||
--
|
|
||||||
-- DESCRIPTION:
|
|
||||||
--
|
|
||||||
-- This package is the specification for the subpackage
|
|
||||||
-- which will define the per node configuration parameters.
|
|
||||||
--
|
|
||||||
|
|
||||||
package PER_NODE_CONFIGURATION is
|
|
||||||
|
|
||||||
--
|
|
||||||
-- LOCAL_NODE_NUMBER
|
|
||||||
--
|
|
||||||
-- DESCRIPTION:
|
|
||||||
--
|
|
||||||
-- This function returns the node number for this node.
|
|
||||||
--
|
|
||||||
|
|
||||||
function LOCAL_NODE_NUMBER
|
|
||||||
return RTEMS.UNSIGNED32;
|
|
||||||
|
|
||||||
pragma INLINE ( LOCAL_NODE_NUMBER );
|
|
||||||
|
|
||||||
end PER_NODE_CONFIGURATION;
|
|
||||||
|
|
||||||
----------------------------------------------------------------------------
|
|
||||||
----------------------------------------------------------------------------
|
|
||||||
-- END SUBPACKAGE --
|
|
||||||
----------------------------------------------------------------------------
|
|
||||||
----------------------------------------------------------------------------
|
|
||||||
|
|
||||||
--
|
|
||||||
-- This is the Multiprocessor Configuration Table for this test.
|
|
||||||
--
|
|
||||||
|
|
||||||
MULTIPROCESSING_CONFIGURATION : aliased RTEMS.MULTIPROCESSING_TABLE := (
|
|
||||||
MPTEST.PER_NODE_CONFIGURATION.LOCAL_NODE_NUMBER,
|
|
||||||
2, -- maximum # nodes in system
|
|
||||||
32, -- maximum # global objects
|
|
||||||
32 -- maximum # proxies
|
|
||||||
);
|
|
||||||
|
|
||||||
--
|
|
||||||
-- This is the Configuration Table for this test.
|
|
||||||
--
|
|
||||||
|
|
||||||
CONFIGURATION : aliased RTEMS.CONFIGURATION_TABLE := (
|
|
||||||
RTEMS.NULL_ADDRESS, -- will be replaced by BSP
|
|
||||||
64 * 1024, -- executive RAM size
|
|
||||||
10, -- maximum # tasks
|
|
||||||
1, -- maximum # timers
|
|
||||||
0, -- maximum # semaphores
|
|
||||||
0, -- maximum # message queues
|
|
||||||
0, -- maximum # messages
|
|
||||||
0, -- maximum # partitions
|
|
||||||
0, -- maximum # regions
|
|
||||||
0, -- maximum # dp memory areas
|
|
||||||
0, -- maximum # periods
|
|
||||||
0, -- maximum # user extensions
|
|
||||||
RTEMS.MILLISECONDS_TO_MICROSECONDS(10), -- # us in a tick
|
|
||||||
50 -- # ticks in a timeslice
|
|
||||||
);
|
|
||||||
|
|
||||||
end MPTEST;
|
|
||||||
@@ -1,28 +0,0 @@
|
|||||||
*** TEST 3 -- NODE 1 ***
|
|
||||||
Creating Test_task (Global)
|
|
||||||
Starting Test_task (Global)
|
|
||||||
Deleting initialization task
|
|
||||||
Getting TID of remote task
|
|
||||||
Remote task's name is : 222
|
|
||||||
111 - Suspending remote task
|
|
||||||
111 - Resuming remote task
|
|
||||||
111 - Suspending remote task
|
|
||||||
111 - Resuming remote task
|
|
||||||
111 - Suspending remote task
|
|
||||||
111 - Resuming remote task
|
|
||||||
222 - have I been suspended???
|
|
||||||
222 - have I been suspended???
|
|
||||||
222 - have I been suspended???
|
|
||||||
222 - have I been suspended???
|
|
||||||
222 - have I been suspended???
|
|
||||||
222 - have I been suspended???
|
|
||||||
222 - have I been suspended???
|
|
||||||
222 - have I been suspended???
|
|
||||||
222 - have I been suspended???
|
|
||||||
222 - have I been suspended???
|
|
||||||
222 - have I been suspended???
|
|
||||||
222 - have I been suspended???
|
|
||||||
222 - have I been suspended???
|
|
||||||
222 - have I been suspended???
|
|
||||||
*** END OF TEST 3 ***
|
|
||||||
|
|
||||||
@@ -1,43 +0,0 @@
|
|||||||
--
|
|
||||||
-- MPTEST.PER_NODE_CONFIGURATION / BODY
|
|
||||||
--
|
|
||||||
-- DESCRIPTION:
|
|
||||||
--
|
|
||||||
-- This package is the specification for the subpackage
|
|
||||||
-- which will define the per node configuration parameters.
|
|
||||||
--
|
|
||||||
-- DEPENDENCIES:
|
|
||||||
--
|
|
||||||
--
|
|
||||||
--
|
|
||||||
-- COPYRIGHT (c) 1989-1997.
|
|
||||||
-- On-Line Applications Research Corporation (OAR).
|
|
||||||
-- Copyright assigned to U.S. Government, 1994.
|
|
||||||
--
|
|
||||||
-- The license and distribution terms for this file may in
|
|
||||||
-- the file LICENSE in this distribution or at
|
|
||||||
-- http://www.OARcorp.com/rtems/license.html.
|
|
||||||
--
|
|
||||||
-- $Id$
|
|
||||||
--
|
|
||||||
|
|
||||||
with RTEMS;
|
|
||||||
|
|
||||||
separate ( MPTEST )
|
|
||||||
|
|
||||||
package body PER_NODE_CONFIGURATION is
|
|
||||||
|
|
||||||
--PAGE
|
|
||||||
--
|
|
||||||
-- LOCAL_NODE_NUMBER
|
|
||||||
--
|
|
||||||
|
|
||||||
function LOCAL_NODE_NUMBER
|
|
||||||
return RTEMS.UNSIGNED32 is
|
|
||||||
begin
|
|
||||||
|
|
||||||
return 1;
|
|
||||||
|
|
||||||
end LOCAL_NODE_NUMBER;
|
|
||||||
|
|
||||||
end PER_NODE_CONFIGURATION;
|
|
||||||
@@ -1,28 +0,0 @@
|
|||||||
*** TEST 3 -- NODE 2 ***
|
|
||||||
Creating Test_task (Global)
|
|
||||||
Starting Test_task (Global)
|
|
||||||
Deleting initialization task
|
|
||||||
Getting TID of remote task
|
|
||||||
Remote task's name is : 111
|
|
||||||
111 - have I been suspended???
|
|
||||||
111 - have I been suspended???
|
|
||||||
111 - have I been suspended???
|
|
||||||
111 - have I been suspended???
|
|
||||||
111 - have I been suspended???
|
|
||||||
111 - have I been suspended???
|
|
||||||
111 - have I been suspended???
|
|
||||||
111 - have I been suspended???
|
|
||||||
111 - have I been suspended???
|
|
||||||
111 - have I been suspended???
|
|
||||||
111 - have I been suspended???
|
|
||||||
111 - have I been suspended???
|
|
||||||
111 - have I been suspended???
|
|
||||||
111 - have I been suspended???
|
|
||||||
222 - Suspending remote task
|
|
||||||
222 - Resuming remote task
|
|
||||||
222 - Suspending remote task
|
|
||||||
222 - Resuming remote task
|
|
||||||
222 - Suspending remote task
|
|
||||||
222 - Resuming remote task
|
|
||||||
*** END OF TEST 3 ***
|
|
||||||
|
|
||||||
@@ -1,43 +0,0 @@
|
|||||||
--
|
|
||||||
-- MPTEST.PER_NODE_CONFIGURATION / BODY
|
|
||||||
--
|
|
||||||
-- DESCRIPTION:
|
|
||||||
--
|
|
||||||
-- This package is the specification for the subpackage
|
|
||||||
-- which will define the per node configuration parameters.
|
|
||||||
--
|
|
||||||
-- DEPENDENCIES:
|
|
||||||
--
|
|
||||||
--
|
|
||||||
--
|
|
||||||
-- COPYRIGHT (c) 1989-1997.
|
|
||||||
-- On-Line Applications Research Corporation (OAR).
|
|
||||||
-- Copyright assigned to U.S. Government, 1994.
|
|
||||||
--
|
|
||||||
-- The license and distribution terms for this file may in
|
|
||||||
-- the file LICENSE in this distribution or at
|
|
||||||
-- http://www.OARcorp.com/rtems/license.html.
|
|
||||||
--
|
|
||||||
-- $Id$
|
|
||||||
--
|
|
||||||
|
|
||||||
with RTEMS;
|
|
||||||
|
|
||||||
separate ( MPTEST )
|
|
||||||
|
|
||||||
package body PER_NODE_CONFIGURATION is
|
|
||||||
|
|
||||||
--PAGE
|
|
||||||
--
|
|
||||||
-- LOCAL_NODE_NUMBER
|
|
||||||
--
|
|
||||||
|
|
||||||
function LOCAL_NODE_NUMBER
|
|
||||||
return RTEMS.UNSIGNED32 is
|
|
||||||
begin
|
|
||||||
|
|
||||||
return 2;
|
|
||||||
|
|
||||||
end LOCAL_NODE_NUMBER;
|
|
||||||
|
|
||||||
end PER_NODE_CONFIGURATION;
|
|
||||||
@@ -1,169 +0,0 @@
|
|||||||
--
|
|
||||||
-- MPTEST / BODY
|
|
||||||
--
|
|
||||||
-- DESCRIPTION:
|
|
||||||
--
|
|
||||||
-- This package is the implementation for Test 4 of the RTEMS
|
|
||||||
-- Multiprocessor Test Suite.
|
|
||||||
--
|
|
||||||
-- DEPENDENCIES:
|
|
||||||
--
|
|
||||||
--
|
|
||||||
--
|
|
||||||
-- COPYRIGHT (c) 1989-1997.
|
|
||||||
-- On-Line Applications Research Corporation (OAR).
|
|
||||||
-- Copyright assigned to U.S. Government, 1994.
|
|
||||||
--
|
|
||||||
-- The license and distribution terms for this file may in
|
|
||||||
-- the file LICENSE in this distribution or at
|
|
||||||
-- http://www.OARcorp.com/rtems/license.html.
|
|
||||||
--
|
|
||||||
-- $Id$
|
|
||||||
--
|
|
||||||
|
|
||||||
with INTERFACES; use INTERFACES;
|
|
||||||
with RTEMS;
|
|
||||||
with TEST_SUPPORT;
|
|
||||||
with TEXT_IO;
|
|
||||||
with UNSIGNED32_IO;
|
|
||||||
|
|
||||||
package body MPTEST is
|
|
||||||
|
|
||||||
package body PER_NODE_CONFIGURATION is separate;
|
|
||||||
|
|
||||||
--PAGE
|
|
||||||
--
|
|
||||||
-- INIT
|
|
||||||
--
|
|
||||||
|
|
||||||
procedure INIT (
|
|
||||||
ARGUMENT : in RTEMS.TASK_ARGUMENT
|
|
||||||
) is
|
|
||||||
STATUS : RTEMS.STATUS_CODES;
|
|
||||||
begin
|
|
||||||
|
|
||||||
TEXT_IO.NEW_LINE( 2 );
|
|
||||||
TEXT_IO.PUT( "*** TEST 4 -- NODE " );
|
|
||||||
UNSIGNED32_IO.PUT(
|
|
||||||
MPTEST.MULTIPROCESSING_CONFIGURATION.NODE,
|
|
||||||
WIDTH => 1
|
|
||||||
);
|
|
||||||
TEXT_IO.PUT_LINE( " ***" );
|
|
||||||
|
|
||||||
MPTEST.TASK_NAME( 1 ) := RTEMS.BUILD_NAME( '1', '1', '1', ' ' );
|
|
||||||
MPTEST.TASK_NAME( 2 ) := RTEMS.BUILD_NAME( '2', '2', '2', ' ' );
|
|
||||||
|
|
||||||
TEXT_IO.PUT_LINE( "Creating Test_task (Global)" );
|
|
||||||
|
|
||||||
RTEMS.TASK_CREATE(
|
|
||||||
MPTEST.TASK_NAME( MPTEST.MULTIPROCESSING_CONFIGURATION.NODE ),
|
|
||||||
MPTEST.MULTIPROCESSING_CONFIGURATION.NODE,
|
|
||||||
2048,
|
|
||||||
RTEMS.DEFAULT_MODES,
|
|
||||||
RTEMS.GLOBAL,
|
|
||||||
MPTEST.TASK_ID( 1 ),
|
|
||||||
STATUS
|
|
||||||
);
|
|
||||||
TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "TASK_CREATE" );
|
|
||||||
|
|
||||||
TEXT_IO.PUT_LINE( "Starting Test_task (Global)" );
|
|
||||||
|
|
||||||
RTEMS.TASK_START(
|
|
||||||
MPTEST.TASK_ID( 1 ),
|
|
||||||
MPTEST.TEST_TASK'ACCESS,
|
|
||||||
0,
|
|
||||||
STATUS
|
|
||||||
);
|
|
||||||
TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "TASK_START" );
|
|
||||||
|
|
||||||
TEXT_IO.PUT_LINE( "Deleting initialization task" );
|
|
||||||
|
|
||||||
RTEMS.TASK_DELETE( RTEMS.SELF, STATUS );
|
|
||||||
TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "TASK_DELETE OF SELF" );
|
|
||||||
|
|
||||||
end INIT;
|
|
||||||
|
|
||||||
--PAGE
|
|
||||||
--
|
|
||||||
-- TEST_TASK
|
|
||||||
--
|
|
||||||
|
|
||||||
procedure TEST_TASK (
|
|
||||||
ARGUMENT : in RTEMS.TASK_ARGUMENT
|
|
||||||
) is
|
|
||||||
TID : RTEMS.ID;
|
|
||||||
PREVIOUS_PRIORITY : RTEMS.TASK_PRIORITY;
|
|
||||||
PREVIOUS_PRIORITY_1 : RTEMS.TASK_PRIORITY;
|
|
||||||
STATUS : RTEMS.STATUS_CODES;
|
|
||||||
begin
|
|
||||||
|
|
||||||
RTEMS.TASK_IDENT( RTEMS.SELF, RTEMS.SEARCH_ALL_NODES, TID, STATUS );
|
|
||||||
TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "TASK_IDENT OF SELF" );
|
|
||||||
|
|
||||||
TEXT_IO.PUT_LINE( "Getting TID of remote task" );
|
|
||||||
if MPTEST.MULTIPROCESSING_CONFIGURATION.NODE = 1 then
|
|
||||||
MPTEST.REMOTE_NODE := 2;
|
|
||||||
else
|
|
||||||
MPTEST.REMOTE_NODE := 1;
|
|
||||||
end if;
|
|
||||||
|
|
||||||
TEXT_IO.PUT( "Remote task's name is : " );
|
|
||||||
TEST_SUPPORT.PUT_NAME( MPTEST.TASK_NAME( MPTEST.REMOTE_NODE ), TRUE );
|
|
||||||
|
|
||||||
loop
|
|
||||||
|
|
||||||
RTEMS.TASK_IDENT(
|
|
||||||
MPTEST.TASK_NAME( MPTEST.REMOTE_NODE ),
|
|
||||||
RTEMS.SEARCH_ALL_NODES,
|
|
||||||
MPTEST.REMOTE_TID,
|
|
||||||
STATUS
|
|
||||||
);
|
|
||||||
|
|
||||||
exit when RTEMS.IS_STATUS_SUCCESSFUL( STATUS );
|
|
||||||
|
|
||||||
end loop;
|
|
||||||
|
|
||||||
RTEMS.TASK_SET_PRIORITY(
|
|
||||||
MPTEST.REMOTE_TID,
|
|
||||||
MPTEST.MULTIPROCESSING_CONFIGURATION.NODE,
|
|
||||||
PREVIOUS_PRIORITY,
|
|
||||||
STATUS
|
|
||||||
);
|
|
||||||
TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "TASK_SET_PRIORITY" );
|
|
||||||
|
|
||||||
if PREVIOUS_PRIORITY /= MPTEST.REMOTE_NODE then
|
|
||||||
|
|
||||||
TEXT_IO.PUT( "Remote priority (0x" );
|
|
||||||
UNSIGNED32_IO.PUT( PREVIOUS_PRIORITY, BASE => 16 );
|
|
||||||
TEXT_IO.PUT( "does not match remote node (0x" );
|
|
||||||
UNSIGNED32_IO.PUT( MPTEST.REMOTE_NODE, BASE => 16 );
|
|
||||||
TEXT_IO.PUT_LINE( ")!!!" );
|
|
||||||
|
|
||||||
RTEMS.SHUTDOWN_EXECUTIVE( 16#F00000# );
|
|
||||||
|
|
||||||
end if;
|
|
||||||
|
|
||||||
loop
|
|
||||||
|
|
||||||
RTEMS.TASK_SET_PRIORITY(
|
|
||||||
RTEMS.SELF,
|
|
||||||
RTEMS.CURRENT_PRIORITY,
|
|
||||||
PREVIOUS_PRIORITY_1,
|
|
||||||
STATUS
|
|
||||||
);
|
|
||||||
TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "TASK_SET_PRIORITY" );
|
|
||||||
|
|
||||||
exit when PREVIOUS_PRIORITY_1 = MPTEST.REMOTE_NODE;
|
|
||||||
|
|
||||||
end loop;
|
|
||||||
|
|
||||||
|
|
||||||
TEXT_IO.PUT_LINE( "Local task priority has been set" );
|
|
||||||
|
|
||||||
TEXT_IO.PUT_LINE( "*** END OF TEST 4 ***" );
|
|
||||||
|
|
||||||
RTEMS.SHUTDOWN_EXECUTIVE( 0 );
|
|
||||||
|
|
||||||
end TEST_TASK;
|
|
||||||
|
|
||||||
end MPTEST;
|
|
||||||
@@ -1,178 +0,0 @@
|
|||||||
--
|
|
||||||
-- MPTEST / SPECIFICATION
|
|
||||||
--
|
|
||||||
-- DESCRIPTION:
|
|
||||||
--
|
|
||||||
-- This package is the specification for Test 4 of the RTEMS
|
|
||||||
-- Multiprocessor Test Suite.
|
|
||||||
--
|
|
||||||
-- DEPENDENCIES:
|
|
||||||
--
|
|
||||||
--
|
|
||||||
--
|
|
||||||
-- COPYRIGHT (c) 1989-1997.
|
|
||||||
-- On-Line Applications Research Corporation (OAR).
|
|
||||||
-- Copyright assigned to U.S. Government, 1994.
|
|
||||||
--
|
|
||||||
-- The license and distribution terms for this file may in
|
|
||||||
-- the file LICENSE in this distribution or at
|
|
||||||
-- http://www.OARcorp.com/rtems/license.html.
|
|
||||||
--
|
|
||||||
-- $Id$
|
|
||||||
--
|
|
||||||
|
|
||||||
with BSP_MPCI;
|
|
||||||
with RTEMS;
|
|
||||||
|
|
||||||
package MPTEST is
|
|
||||||
|
|
||||||
--
|
|
||||||
-- These arrays contain the IDs and NAMEs of all RTEMS tasks created
|
|
||||||
-- by this test.
|
|
||||||
--
|
|
||||||
|
|
||||||
TASK_ID : array ( RTEMS.UNSIGNED32 range 1 .. 3 ) of RTEMS.ID;
|
|
||||||
TASK_NAME : array ( RTEMS.UNSIGNED32 range 1 .. 3 ) of RTEMS.NAME;
|
|
||||||
|
|
||||||
--
|
|
||||||
-- This variable contains the ID of the remote task with which this
|
|
||||||
-- test interacts.
|
|
||||||
--
|
|
||||||
|
|
||||||
REMOTE_TID : RTEMS.ID;
|
|
||||||
|
|
||||||
--
|
|
||||||
-- This variable contains the node on which the remote task with which
|
|
||||||
-- this test interacts resides.
|
|
||||||
--
|
|
||||||
|
|
||||||
REMOTE_NODE : RTEMS.UNSIGNED32;
|
|
||||||
|
|
||||||
--
|
|
||||||
-- INIT
|
|
||||||
--
|
|
||||||
-- DESCRIPTION:
|
|
||||||
--
|
|
||||||
-- This RTEMS task initializes the application.
|
|
||||||
--
|
|
||||||
|
|
||||||
procedure INIT (
|
|
||||||
ARGUMENT : in RTEMS.TASK_ARGUMENT
|
|
||||||
);
|
|
||||||
|
|
||||||
--
|
|
||||||
-- TEST_TASK
|
|
||||||
--
|
|
||||||
-- DESCRIPTION:
|
|
||||||
--
|
|
||||||
-- This is the body of the RTEMS tasks which constitute this test.
|
|
||||||
--
|
|
||||||
|
|
||||||
procedure TEST_TASK (
|
|
||||||
ARGUMENT : in RTEMS.TASK_ARGUMENT
|
|
||||||
);
|
|
||||||
|
|
||||||
--
|
|
||||||
-- This is the Driver Address Table for this test.
|
|
||||||
--
|
|
||||||
|
|
||||||
DEVICE_DRIVERS : aliased RTEMS.DRIVER_ADDRESS_TABLE( 1 .. 1 ) :=
|
|
||||||
(1=>
|
|
||||||
(
|
|
||||||
CLOCK_DRIVER.INITIALIZE'ACCESS, -- Initialization
|
|
||||||
RTEMS.NO_DRIVER_ENTRY, -- Open
|
|
||||||
RTEMS.NO_DRIVER_ENTRY, -- Close
|
|
||||||
RTEMS.NO_DRIVER_ENTRY, -- Read
|
|
||||||
RTEMS.NO_DRIVER_ENTRY, -- Write
|
|
||||||
RTEMS.NO_DRIVER_ENTRY -- Control
|
|
||||||
)
|
|
||||||
);
|
|
||||||
|
|
||||||
--
|
|
||||||
-- This is the Initialization Tasks Table for this test.
|
|
||||||
--
|
|
||||||
|
|
||||||
INITIALIZATION_TASKS : aliased RTEMS.INITIALIZATION_TASKS_TABLE( 1 .. 1 ) :=
|
|
||||||
(1=>
|
|
||||||
(
|
|
||||||
RTEMS.BUILD_NAME( 'U', 'I', '1', ' ' ), -- task name
|
|
||||||
2048, -- stack size
|
|
||||||
1, -- priority
|
|
||||||
RTEMS.DEFAULT_ATTRIBUTES, -- attributes
|
|
||||||
MPTEST.INIT'ACCESS, -- entry point
|
|
||||||
RTEMS.NO_PREEMPT, -- initial mode
|
|
||||||
0 -- argument list
|
|
||||||
)
|
|
||||||
);
|
|
||||||
|
|
||||||
----------------------------------------------------------------------------
|
|
||||||
----------------------------------------------------------------------------
|
|
||||||
-- BEGIN SUBPACKAGE --
|
|
||||||
----------------------------------------------------------------------------
|
|
||||||
----------------------------------------------------------------------------
|
|
||||||
|
|
||||||
--
|
|
||||||
-- MPTEST.PER_NODE_CONFIGURATION / SPECIFICATION
|
|
||||||
--
|
|
||||||
-- DESCRIPTION:
|
|
||||||
--
|
|
||||||
-- This package is the specification for the subpackage
|
|
||||||
-- which will define the per node configuration parameters.
|
|
||||||
--
|
|
||||||
|
|
||||||
package PER_NODE_CONFIGURATION is
|
|
||||||
|
|
||||||
--
|
|
||||||
-- LOCAL_NODE_NUMBER
|
|
||||||
--
|
|
||||||
-- DESCRIPTION:
|
|
||||||
--
|
|
||||||
-- This function returns the node number for this node.
|
|
||||||
--
|
|
||||||
|
|
||||||
function LOCAL_NODE_NUMBER
|
|
||||||
return RTEMS.UNSIGNED32;
|
|
||||||
|
|
||||||
pragma INLINE ( LOCAL_NODE_NUMBER );
|
|
||||||
|
|
||||||
end PER_NODE_CONFIGURATION;
|
|
||||||
|
|
||||||
----------------------------------------------------------------------------
|
|
||||||
----------------------------------------------------------------------------
|
|
||||||
-- END SUBPACKAGE --
|
|
||||||
----------------------------------------------------------------------------
|
|
||||||
----------------------------------------------------------------------------
|
|
||||||
|
|
||||||
--
|
|
||||||
-- This is the Multiprocessor Configuration Table for this test.
|
|
||||||
--
|
|
||||||
|
|
||||||
MULTIPROCESSING_CONFIGURATION : aliased RTEMS.MULTIPROCESSING_TABLE := (
|
|
||||||
MPTEST.PER_NODE_CONFIGURATION.LOCAL_NODE_NUMBER,
|
|
||||||
2, -- maximum # nodes in system
|
|
||||||
32, -- maximum # global objects
|
|
||||||
32 -- maximum # proxies
|
|
||||||
);
|
|
||||||
|
|
||||||
--
|
|
||||||
-- This is the Configuration Table for this test.
|
|
||||||
--
|
|
||||||
|
|
||||||
CONFIGURATION : aliased RTEMS.CONFIGURATION_TABLE := (
|
|
||||||
RTEMS.NULL_ADDRESS, -- will be replaced by BSP
|
|
||||||
64 * 1024, -- executive RAM size
|
|
||||||
10, -- maximum # tasks
|
|
||||||
1, -- maximum # timers
|
|
||||||
0, -- maximum # semaphores
|
|
||||||
0, -- maximum # message queues
|
|
||||||
0, -- maximum # messages
|
|
||||||
0, -- maximum # partitions
|
|
||||||
0, -- maximum # regions
|
|
||||||
0, -- maximum # dp memory areas
|
|
||||||
0, -- maximum # periods
|
|
||||||
0, -- maximum # user extensions
|
|
||||||
RTEMS.MILLISECONDS_TO_MICROSECONDS(10), -- # us in a tick
|
|
||||||
50 -- # ticks in a timeslice
|
|
||||||
);
|
|
||||||
|
|
||||||
end MPTEST;
|
|
||||||
@@ -1,8 +0,0 @@
|
|||||||
*** TEST 4 -- NODE 1 ***
|
|
||||||
Creating Test_task (Global)
|
|
||||||
Starting Test_task (Global)
|
|
||||||
Deleting initialization task
|
|
||||||
Getting TID of remote task
|
|
||||||
Remote task's name is : 222
|
|
||||||
Local task priority has been set
|
|
||||||
*** END OF TEST 4 ***
|
|
||||||
@@ -1,43 +0,0 @@
|
|||||||
--
|
|
||||||
-- MPTEST.PER_NODE_CONFIGURATION / BODY
|
|
||||||
--
|
|
||||||
-- DESCRIPTION:
|
|
||||||
--
|
|
||||||
-- This package is the specification for the subpackage
|
|
||||||
-- which will define the per node configuration parameters.
|
|
||||||
--
|
|
||||||
-- DEPENDENCIES:
|
|
||||||
--
|
|
||||||
--
|
|
||||||
--
|
|
||||||
-- COPYRIGHT (c) 1989-1997.
|
|
||||||
-- On-Line Applications Research Corporation (OAR).
|
|
||||||
-- Copyright assigned to U.S. Government, 1994.
|
|
||||||
--
|
|
||||||
-- The license and distribution terms for this file may in
|
|
||||||
-- the file LICENSE in this distribution or at
|
|
||||||
-- http://www.OARcorp.com/rtems/license.html.
|
|
||||||
--
|
|
||||||
-- $Id$
|
|
||||||
--
|
|
||||||
|
|
||||||
with RTEMS;
|
|
||||||
|
|
||||||
separate ( MPTEST )
|
|
||||||
|
|
||||||
package body PER_NODE_CONFIGURATION is
|
|
||||||
|
|
||||||
--PAGE
|
|
||||||
--
|
|
||||||
-- LOCAL_NODE_NUMBER
|
|
||||||
--
|
|
||||||
|
|
||||||
function LOCAL_NODE_NUMBER
|
|
||||||
return RTEMS.UNSIGNED32 is
|
|
||||||
begin
|
|
||||||
|
|
||||||
return 1;
|
|
||||||
|
|
||||||
end LOCAL_NODE_NUMBER;
|
|
||||||
|
|
||||||
end PER_NODE_CONFIGURATION;
|
|
||||||
@@ -1,8 +0,0 @@
|
|||||||
*** TEST 4 -- NODE 2 ***
|
|
||||||
Creating Test_task (Global)
|
|
||||||
Starting Test_task (Global)
|
|
||||||
Deleting initialization task
|
|
||||||
Getting TID of remote task
|
|
||||||
Remote task's name is : 111
|
|
||||||
Local task priority has been set
|
|
||||||
*** END OF TEST 4 ***
|
|
||||||
@@ -1,43 +0,0 @@
|
|||||||
--
|
|
||||||
-- MPTEST.PER_NODE_CONFIGURATION / BODY
|
|
||||||
--
|
|
||||||
-- DESCRIPTION:
|
|
||||||
--
|
|
||||||
-- This package is the specification for the subpackage
|
|
||||||
-- which will define the per node configuration parameters.
|
|
||||||
--
|
|
||||||
-- DEPENDENCIES:
|
|
||||||
--
|
|
||||||
--
|
|
||||||
--
|
|
||||||
-- COPYRIGHT (c) 1989-1997.
|
|
||||||
-- On-Line Applications Research Corporation (OAR).
|
|
||||||
-- Copyright assigned to U.S. Government, 1994.
|
|
||||||
--
|
|
||||||
-- The license and distribution terms for this file may in
|
|
||||||
-- the file LICENSE in this distribution or at
|
|
||||||
-- http://www.OARcorp.com/rtems/license.html.
|
|
||||||
--
|
|
||||||
-- $Id$
|
|
||||||
--
|
|
||||||
|
|
||||||
with RTEMS;
|
|
||||||
|
|
||||||
separate ( MPTEST )
|
|
||||||
|
|
||||||
package body PER_NODE_CONFIGURATION is
|
|
||||||
|
|
||||||
--PAGE
|
|
||||||
--
|
|
||||||
-- LOCAL_NODE_NUMBER
|
|
||||||
--
|
|
||||||
|
|
||||||
function LOCAL_NODE_NUMBER
|
|
||||||
return RTEMS.UNSIGNED32 is
|
|
||||||
begin
|
|
||||||
|
|
||||||
return 2;
|
|
||||||
|
|
||||||
end LOCAL_NODE_NUMBER;
|
|
||||||
|
|
||||||
end PER_NODE_CONFIGURATION;
|
|
||||||
@@ -1,252 +0,0 @@
|
|||||||
--
|
|
||||||
-- MPTEST / BODY
|
|
||||||
--
|
|
||||||
-- DESCRIPTION:
|
|
||||||
--
|
|
||||||
-- This package is the implementation for Test 5 of the RTEMS
|
|
||||||
-- Multiprocessor Test Suite.
|
|
||||||
--
|
|
||||||
-- DEPENDENCIES:
|
|
||||||
--
|
|
||||||
--
|
|
||||||
--
|
|
||||||
-- COPYRIGHT (c) 1989-1997.
|
|
||||||
-- On-Line Applications Research Corporation (OAR).
|
|
||||||
-- Copyright assigned to U.S. Government, 1994.
|
|
||||||
--
|
|
||||||
-- The license and distribution terms for this file may in
|
|
||||||
-- the file LICENSE in this distribution or at
|
|
||||||
-- http://www.OARcorp.com/rtems/license.html.
|
|
||||||
--
|
|
||||||
-- $Id$
|
|
||||||
--
|
|
||||||
|
|
||||||
with INTERFACES; use INTERFACES;
|
|
||||||
with RTEMS;
|
|
||||||
with TEST_SUPPORT;
|
|
||||||
with TEXT_IO;
|
|
||||||
with UNSIGNED32_IO;
|
|
||||||
|
|
||||||
package body MPTEST is
|
|
||||||
|
|
||||||
package body PER_NODE_CONFIGURATION is separate;
|
|
||||||
|
|
||||||
--PAGE
|
|
||||||
--
|
|
||||||
-- INIT
|
|
||||||
--
|
|
||||||
|
|
||||||
procedure INIT (
|
|
||||||
ARGUMENT : in RTEMS.TASK_ARGUMENT
|
|
||||||
) is
|
|
||||||
STATUS : RTEMS.STATUS_CODES;
|
|
||||||
begin
|
|
||||||
|
|
||||||
TEXT_IO.NEW_LINE( 2 );
|
|
||||||
TEXT_IO.PUT( "*** TEST 5 -- NODE " );
|
|
||||||
UNSIGNED32_IO.PUT(
|
|
||||||
MPTEST.MULTIPROCESSING_CONFIGURATION.NODE,
|
|
||||||
WIDTH => 1
|
|
||||||
);
|
|
||||||
TEXT_IO.PUT_LINE( " ***" );
|
|
||||||
|
|
||||||
MPTEST.TASK_NAME( 1 ) := RTEMS.BUILD_NAME( '1', '1', '1', ' ' );
|
|
||||||
MPTEST.TASK_NAME( 2 ) := RTEMS.BUILD_NAME( '2', '2', '2', ' ' );
|
|
||||||
|
|
||||||
TEXT_IO.PUT_LINE( "Creating Test_task (Global)" );
|
|
||||||
|
|
||||||
RTEMS.TASK_CREATE(
|
|
||||||
MPTEST.TASK_NAME( MPTEST.MULTIPROCESSING_CONFIGURATION.NODE ),
|
|
||||||
1,
|
|
||||||
2048,
|
|
||||||
RTEMS.TIMESLICE,
|
|
||||||
RTEMS.GLOBAL,
|
|
||||||
MPTEST.TASK_ID( 1 ),
|
|
||||||
STATUS
|
|
||||||
);
|
|
||||||
TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "TASK_CREATE" );
|
|
||||||
|
|
||||||
TEXT_IO.PUT_LINE( "Starting Test_task (Global)" );
|
|
||||||
|
|
||||||
RTEMS.TASK_START(
|
|
||||||
MPTEST.TASK_ID( 1 ),
|
|
||||||
MPTEST.TEST_TASK'ACCESS,
|
|
||||||
0,
|
|
||||||
STATUS
|
|
||||||
);
|
|
||||||
TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "TASK_START" );
|
|
||||||
|
|
||||||
MPTEST.TIMER_NAME( 1 ) := RTEMS.BUILD_NAME( 'T', 'M', '1', ' ' );
|
|
||||||
MPTEST.TIMER_NAME( 2 ) := RTEMS.BUILD_NAME( 'T', 'M', '2', ' ' );
|
|
||||||
|
|
||||||
RTEMS.TIMER_CREATE(
|
|
||||||
MPTEST.TIMER_NAME( MPTEST.MULTIPROCESSING_CONFIGURATION.NODE ),
|
|
||||||
MPTEST.TIMER_ID( 1 ),
|
|
||||||
STATUS
|
|
||||||
);
|
|
||||||
TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "TIMER_CREATE" );
|
|
||||||
|
|
||||||
TEXT_IO.PUT_LINE( "Deleting initialization task" );
|
|
||||||
|
|
||||||
RTEMS.TASK_DELETE( RTEMS.SELF, STATUS );
|
|
||||||
TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "TASK_DELETE OF SELF" );
|
|
||||||
|
|
||||||
end INIT;
|
|
||||||
|
|
||||||
--PAGE
|
|
||||||
--
|
|
||||||
-- PROCESS_ASR
|
|
||||||
--
|
|
||||||
|
|
||||||
procedure PROCESS_ASR (
|
|
||||||
SIGNAL : in RTEMS.SIGNAL_SET
|
|
||||||
)
|
|
||||||
is
|
|
||||||
begin
|
|
||||||
|
|
||||||
if SIGNAL /= MPTEST.EXPECTED_SIGNAL then
|
|
||||||
|
|
||||||
TEXT_IO.PUT( "ERROR: I was expecting signal 0x" );
|
|
||||||
UNSIGNED32_IO.PUT( EXPECTED_SIGNAL, BASE => 16 );
|
|
||||||
TEXT_IO.PUT( " got 0x" );
|
|
||||||
UNSIGNED32_IO.PUT( SIGNAL, BASE => 16 );
|
|
||||||
TEXT_IO.NEW_LINE;
|
|
||||||
|
|
||||||
RTEMS.FATAL_ERROR_OCCURRED( 16#000F_0000# );
|
|
||||||
|
|
||||||
end if;
|
|
||||||
|
|
||||||
MPTEST.SIGNAL_CAUGHT := TRUE;
|
|
||||||
|
|
||||||
end PROCESS_ASR;
|
|
||||||
|
|
||||||
--PAGE
|
|
||||||
--
|
|
||||||
-- STOP_TEST_TSR
|
|
||||||
--
|
|
||||||
|
|
||||||
procedure STOP_TEST_TSR (
|
|
||||||
IGNORED_ID : in RTEMS.ID;
|
|
||||||
IGNORED_ADDRESS : in RTEMS.ADDRESS
|
|
||||||
) is
|
|
||||||
begin
|
|
||||||
|
|
||||||
MPTEST.STOP_TEST := TRUE;
|
|
||||||
|
|
||||||
end STOP_TEST_TSR;
|
|
||||||
|
|
||||||
--PAGE
|
|
||||||
--
|
|
||||||
-- TEST_TASK
|
|
||||||
--
|
|
||||||
|
|
||||||
procedure TEST_TASK (
|
|
||||||
ARGUMENT : in RTEMS.TASK_ARGUMENT
|
|
||||||
) is
|
|
||||||
STATUS : RTEMS.STATUS_CODES;
|
|
||||||
begin
|
|
||||||
|
|
||||||
MPTEST.STOP_TEST := FALSE;
|
|
||||||
|
|
||||||
MPTEST.SIGNAL_CAUGHT := FALSE;
|
|
||||||
MPTEST.SIGNAL_COUNT := 0;
|
|
||||||
|
|
||||||
TEXT_IO.PUT_LINE( "signal_catch: initializing signal catcher" );
|
|
||||||
RTEMS.SIGNAL_CATCH(
|
|
||||||
MPTEST.PROCESS_ASR'ACCESS,
|
|
||||||
RTEMS.NO_ASR + RTEMS.NO_PREEMPT,
|
|
||||||
STATUS
|
|
||||||
);
|
|
||||||
TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "SIGNAL_CATCH" );
|
|
||||||
|
|
||||||
if MPTEST.MULTIPROCESSING_CONFIGURATION.NODE = 1 then
|
|
||||||
MPTEST.REMOTE_NODE := 2;
|
|
||||||
MPTEST.REMOTE_SIGNAL := RTEMS.SIGNAL_18;
|
|
||||||
MPTEST.EXPECTED_SIGNAL := RTEMS.SIGNAL_17;
|
|
||||||
else
|
|
||||||
MPTEST.REMOTE_NODE := 1;
|
|
||||||
MPTEST.REMOTE_SIGNAL := RTEMS.SIGNAL_17;
|
|
||||||
MPTEST.EXPECTED_SIGNAL := RTEMS.SIGNAL_18;
|
|
||||||
end if;
|
|
||||||
|
|
||||||
TEXT_IO.PUT( "Remote task's name is : " );
|
|
||||||
TEST_SUPPORT.PUT_NAME( MPTEST.TASK_NAME( MPTEST.REMOTE_NODE ), TRUE );
|
|
||||||
|
|
||||||
TEXT_IO.PUT_LINE( "Getting TID of remote task" );
|
|
||||||
loop
|
|
||||||
|
|
||||||
RTEMS.TASK_IDENT(
|
|
||||||
MPTEST.TASK_NAME( MPTEST.REMOTE_NODE ),
|
|
||||||
RTEMS.SEARCH_ALL_NODES,
|
|
||||||
MPTEST.REMOTE_TID,
|
|
||||||
STATUS
|
|
||||||
);
|
|
||||||
|
|
||||||
exit when RTEMS.IS_STATUS_SUCCESSFUL( STATUS );
|
|
||||||
|
|
||||||
end loop;
|
|
||||||
|
|
||||||
RTEMS.TIMER_FIRE_AFTER(
|
|
||||||
MPTEST.TIMER_ID( 1 ),
|
|
||||||
3 * TEST_SUPPORT.TICKS_PER_SECOND,
|
|
||||||
MPTEST.STOP_TEST_TSR'ACCESS,
|
|
||||||
RTEMS.NULL_ADDRESS,
|
|
||||||
STATUS
|
|
||||||
);
|
|
||||||
TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "TIMER_FIRE_AFTER" );
|
|
||||||
|
|
||||||
if MPTEST.MULTIPROCESSING_CONFIGURATION.NODE = 1 then
|
|
||||||
|
|
||||||
TEXT_IO.PUT_LINE( "Sending signal to remote task" );
|
|
||||||
loop
|
|
||||||
RTEMS.SIGNAL_SEND(
|
|
||||||
MPTEST.REMOTE_TID,
|
|
||||||
MPTEST.REMOTE_SIGNAL,
|
|
||||||
STATUS
|
|
||||||
);
|
|
||||||
|
|
||||||
exit when RTEMS.IS_STATUS_SUCCESSFUL( STATUS );
|
|
||||||
|
|
||||||
exit when not RTEMS.ARE_STATUSES_EQUAL( STATUS, RTEMS.NOT_DEFINED );
|
|
||||||
|
|
||||||
end loop;
|
|
||||||
TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "SIGNAL_SEND" );
|
|
||||||
|
|
||||||
end if;
|
|
||||||
|
|
||||||
loop
|
|
||||||
|
|
||||||
exit when MPTEST.STOP_TEST = TRUE;
|
|
||||||
|
|
||||||
if MPTEST.SIGNAL_CAUGHT = TRUE then
|
|
||||||
|
|
||||||
MPTEST.SIGNAL_CAUGHT := FALSE;
|
|
||||||
MPTEST.SIGNAL_COUNT := MPTEST.SIGNAL_COUNT + 1;
|
|
||||||
|
|
||||||
if MPTEST.SIGNAL_COUNT >= MPTEST.SIGNALS_PER_DOT then
|
|
||||||
|
|
||||||
MPTEST.SIGNAL_COUNT := 0;
|
|
||||||
|
|
||||||
TEST_SUPPORT.PUT_DOT( "." );
|
|
||||||
|
|
||||||
end if;
|
|
||||||
|
|
||||||
RTEMS.SIGNAL_SEND(
|
|
||||||
MPTEST.REMOTE_TID,
|
|
||||||
MPTEST.REMOTE_SIGNAL,
|
|
||||||
STATUS
|
|
||||||
);
|
|
||||||
TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "SIGNAL_SEND" );
|
|
||||||
|
|
||||||
end if;
|
|
||||||
|
|
||||||
end loop;
|
|
||||||
|
|
||||||
TEXT_IO.NEW_LINE;
|
|
||||||
TEXT_IO.PUT_LINE( "*** END OF TEST 5 ***" );
|
|
||||||
|
|
||||||
RTEMS.SHUTDOWN_EXECUTIVE( 0 );
|
|
||||||
|
|
||||||
end TEST_TASK;
|
|
||||||
|
|
||||||
end MPTEST;
|
|
||||||
@@ -1,243 +0,0 @@
|
|||||||
--
|
|
||||||
-- MPTEST / SPECIFICATION
|
|
||||||
--
|
|
||||||
-- DESCRIPTION:
|
|
||||||
--
|
|
||||||
-- This package is the specification for Test 5 of the RTEMS
|
|
||||||
-- Multiprocessor Test Suite.
|
|
||||||
--
|
|
||||||
-- DEPENDENCIES:
|
|
||||||
--
|
|
||||||
--
|
|
||||||
--
|
|
||||||
-- COPYRIGHT (c) 1989-1997.
|
|
||||||
-- On-Line Applications Research Corporation (OAR).
|
|
||||||
-- Copyright assigned to U.S. Government, 1994.
|
|
||||||
--
|
|
||||||
-- The license and distribution terms for this file may in
|
|
||||||
-- the file LICENSE in this distribution or at
|
|
||||||
-- http://www.OARcorp.com/rtems/license.html.
|
|
||||||
--
|
|
||||||
-- $Id$
|
|
||||||
--
|
|
||||||
|
|
||||||
with BSP_MPCI;
|
|
||||||
with RTEMS;
|
|
||||||
|
|
||||||
package MPTEST is
|
|
||||||
|
|
||||||
--
|
|
||||||
-- These arrays contain the IDs and NAMEs of all RTEMS tasks created
|
|
||||||
-- by this test.
|
|
||||||
--
|
|
||||||
|
|
||||||
TASK_ID : array ( RTEMS.UNSIGNED32 range 1 .. 3 ) of RTEMS.ID;
|
|
||||||
TASK_NAME : array ( RTEMS.UNSIGNED32 range 1 .. 3 ) of RTEMS.NAME;
|
|
||||||
|
|
||||||
--
|
|
||||||
-- These arrays contain the IDs and NAMEs of all RTEMS timers created
|
|
||||||
-- by this test.
|
|
||||||
--
|
|
||||||
|
|
||||||
TIMER_ID : array ( RTEMS.UNSIGNED32 range 1 .. 2 ) of RTEMS.ID;
|
|
||||||
TIMER_NAME : array ( RTEMS.UNSIGNED32 range 1 .. 2 ) of RTEMS.NAME;
|
|
||||||
|
|
||||||
--
|
|
||||||
-- This variable is set when the test should stop executing.
|
|
||||||
--
|
|
||||||
STOP_TEST : RTEMS.BOOLEAN;
|
|
||||||
|
|
||||||
--
|
|
||||||
-- This variable contains the ID of the remote task with which this
|
|
||||||
-- test interacts.
|
|
||||||
--
|
|
||||||
|
|
||||||
REMOTE_TID : RTEMS.ID;
|
|
||||||
|
|
||||||
--
|
|
||||||
-- This variable contains the node on which the remote task with which
|
|
||||||
-- this test interacts resides.
|
|
||||||
--
|
|
||||||
|
|
||||||
REMOTE_NODE : RTEMS.UNSIGNED32;
|
|
||||||
|
|
||||||
--
|
|
||||||
-- This is the signal set which is sent to the task on the other node.
|
|
||||||
--
|
|
||||||
|
|
||||||
REMOTE_SIGNAL : RTEMS.SIGNAL_SET;
|
|
||||||
|
|
||||||
--
|
|
||||||
-- This is the signal set the task on this node expects to receive
|
|
||||||
-- from the other node.
|
|
||||||
--
|
|
||||||
|
|
||||||
EXPECTED_SIGNAL : RTEMS.SIGNAL_SET;
|
|
||||||
|
|
||||||
--
|
|
||||||
-- These keep track of if a signal set has been caught and how many
|
|
||||||
-- signal sets have been caught cumulative.
|
|
||||||
--
|
|
||||||
|
|
||||||
SIGNAL_CAUGHT : RTEMS.BOOLEAN;
|
|
||||||
SIGNAL_COUNT : RTEMS.UNSIGNED32;
|
|
||||||
|
|
||||||
--
|
|
||||||
-- The number of signals to process per dot printed out.
|
|
||||||
--
|
|
||||||
|
|
||||||
SIGNALS_PER_DOT : constant RTEMS.UNSIGNED32 := 15;
|
|
||||||
|
|
||||||
--
|
|
||||||
-- INIT
|
|
||||||
--
|
|
||||||
-- DESCRIPTION:
|
|
||||||
--
|
|
||||||
-- This RTEMS task initializes the application.
|
|
||||||
--
|
|
||||||
|
|
||||||
procedure INIT (
|
|
||||||
ARGUMENT : in RTEMS.TASK_ARGUMENT
|
|
||||||
);
|
|
||||||
|
|
||||||
--
|
|
||||||
-- PROCESS_ASR
|
|
||||||
--
|
|
||||||
-- DESCRIPTION:
|
|
||||||
--
|
|
||||||
-- This subprogram is an ASR for TEST_TASK.
|
|
||||||
--
|
|
||||||
|
|
||||||
procedure PROCESS_ASR (
|
|
||||||
SIGNAL : in RTEMS.SIGNAL_SET
|
|
||||||
);
|
|
||||||
|
|
||||||
--
|
|
||||||
-- STOP_TEST_TSR
|
|
||||||
--
|
|
||||||
-- DESCRIPTION:
|
|
||||||
--
|
|
||||||
-- This subprogram is a TSR which sets the "stop test" flag.
|
|
||||||
--
|
|
||||||
|
|
||||||
procedure STOP_TEST_TSR (
|
|
||||||
IGNORED_ID : in RTEMS.ID;
|
|
||||||
IGNORED_ADDRESS : in RTEMS.ADDRESS
|
|
||||||
);
|
|
||||||
|
|
||||||
--
|
|
||||||
-- TEST_TASK
|
|
||||||
--
|
|
||||||
-- DESCRIPTION:
|
|
||||||
--
|
|
||||||
-- This is the body of the RTEMS tasks which constitute this test.
|
|
||||||
--
|
|
||||||
|
|
||||||
procedure TEST_TASK (
|
|
||||||
ARGUMENT : in RTEMS.TASK_ARGUMENT
|
|
||||||
);
|
|
||||||
|
|
||||||
--
|
|
||||||
-- This is the Driver Address Table for this test.
|
|
||||||
--
|
|
||||||
|
|
||||||
DEVICE_DRIVERS : aliased RTEMS.DRIVER_ADDRESS_TABLE( 1 .. 1 ) :=
|
|
||||||
(1=>
|
|
||||||
(
|
|
||||||
CLOCK_DRIVER.INITIALIZE'ACCESS, -- Initialization
|
|
||||||
RTEMS.NO_DRIVER_ENTRY, -- Open
|
|
||||||
RTEMS.NO_DRIVER_ENTRY, -- Close
|
|
||||||
RTEMS.NO_DRIVER_ENTRY, -- Read
|
|
||||||
RTEMS.NO_DRIVER_ENTRY, -- Write
|
|
||||||
RTEMS.NO_DRIVER_ENTRY -- Control
|
|
||||||
)
|
|
||||||
);
|
|
||||||
|
|
||||||
--
|
|
||||||
-- This is the Initialization Tasks Table for this test.
|
|
||||||
--
|
|
||||||
|
|
||||||
INITIALIZATION_TASKS : aliased RTEMS.INITIALIZATION_TASKS_TABLE( 1 .. 1 ) :=
|
|
||||||
(1=>
|
|
||||||
(
|
|
||||||
RTEMS.BUILD_NAME( 'U', 'I', '1', ' ' ), -- task name
|
|
||||||
2048, -- stack size
|
|
||||||
1, -- priority
|
|
||||||
RTEMS.DEFAULT_ATTRIBUTES, -- attributes
|
|
||||||
MPTEST.INIT'ACCESS, -- entry point
|
|
||||||
RTEMS.NO_PREEMPT, -- initial mode
|
|
||||||
0 -- argument list
|
|
||||||
)
|
|
||||||
);
|
|
||||||
|
|
||||||
----------------------------------------------------------------------------
|
|
||||||
----------------------------------------------------------------------------
|
|
||||||
-- BEGIN SUBPACKAGE --
|
|
||||||
----------------------------------------------------------------------------
|
|
||||||
----------------------------------------------------------------------------
|
|
||||||
|
|
||||||
--
|
|
||||||
-- MPTEST.PER_NODE_CONFIGURATION / SPECIFICATION
|
|
||||||
--
|
|
||||||
-- DESCRIPTION:
|
|
||||||
--
|
|
||||||
-- This package is the specification for the subpackage
|
|
||||||
-- which will define the per node configuration parameters.
|
|
||||||
--
|
|
||||||
|
|
||||||
package PER_NODE_CONFIGURATION is
|
|
||||||
|
|
||||||
--
|
|
||||||
-- LOCAL_NODE_NUMBER
|
|
||||||
--
|
|
||||||
-- DESCRIPTION:
|
|
||||||
--
|
|
||||||
-- This function returns the node number for this node.
|
|
||||||
--
|
|
||||||
|
|
||||||
function LOCAL_NODE_NUMBER
|
|
||||||
return RTEMS.UNSIGNED32;
|
|
||||||
|
|
||||||
pragma INLINE ( LOCAL_NODE_NUMBER );
|
|
||||||
|
|
||||||
end PER_NODE_CONFIGURATION;
|
|
||||||
|
|
||||||
----------------------------------------------------------------------------
|
|
||||||
----------------------------------------------------------------------------
|
|
||||||
-- END SUBPACKAGE --
|
|
||||||
----------------------------------------------------------------------------
|
|
||||||
----------------------------------------------------------------------------
|
|
||||||
|
|
||||||
--
|
|
||||||
-- This is the Multiprocessor Configuration Table for this test.
|
|
||||||
--
|
|
||||||
|
|
||||||
MULTIPROCESSING_CONFIGURATION : aliased RTEMS.MULTIPROCESSING_TABLE := (
|
|
||||||
MPTEST.PER_NODE_CONFIGURATION.LOCAL_NODE_NUMBER,
|
|
||||||
2, -- maximum # nodes in system
|
|
||||||
32, -- maximum # global objects
|
|
||||||
32 -- maximum # proxies
|
|
||||||
);
|
|
||||||
|
|
||||||
--
|
|
||||||
-- This is the Configuration Table for this test.
|
|
||||||
--
|
|
||||||
|
|
||||||
CONFIGURATION : aliased RTEMS.CONFIGURATION_TABLE := (
|
|
||||||
RTEMS.NULL_ADDRESS, -- will be replaced by BSP
|
|
||||||
64 * 1024, -- executive RAM size
|
|
||||||
10, -- maximum # tasks
|
|
||||||
1, -- maximum # timers
|
|
||||||
2, -- maximum # semaphores
|
|
||||||
0, -- maximum # message queues
|
|
||||||
0, -- maximum # messages
|
|
||||||
0, -- maximum # partitions
|
|
||||||
0, -- maximum # regions
|
|
||||||
0, -- maximum # dp memory areas
|
|
||||||
0, -- maximum # periods
|
|
||||||
0, -- maximum # user extensions
|
|
||||||
RTEMS.MILLISECONDS_TO_MICROSECONDS(10), -- # us in a tick
|
|
||||||
50 -- # ticks in a timeslice
|
|
||||||
);
|
|
||||||
|
|
||||||
end MPTEST;
|
|
||||||
@@ -1,11 +0,0 @@
|
|||||||
*** TEST 5 -- NODE 1 ***
|
|
||||||
Creating Test_task (Global)
|
|
||||||
Starting Test_task (Global)
|
|
||||||
Deleting initialization task
|
|
||||||
signal_catch: initializing signal catcher
|
|
||||||
Remote task's name is : 222
|
|
||||||
Getting TID of remote task
|
|
||||||
Sending signal to remote task
|
|
||||||
....................................................
|
|
||||||
....................................................
|
|
||||||
*** END OF TEST 5 ***
|
|
||||||
@@ -1,43 +0,0 @@
|
|||||||
--
|
|
||||||
-- MPTEST.PER_NODE_CONFIGURATION / BODY
|
|
||||||
--
|
|
||||||
-- DESCRIPTION:
|
|
||||||
--
|
|
||||||
-- This package is the specification for the subpackage
|
|
||||||
-- which will define the per node configuration parameters.
|
|
||||||
--
|
|
||||||
-- DEPENDENCIES:
|
|
||||||
--
|
|
||||||
--
|
|
||||||
--
|
|
||||||
-- COPYRIGHT (c) 1989-1997.
|
|
||||||
-- On-Line Applications Research Corporation (OAR).
|
|
||||||
-- Copyright assigned to U.S. Government, 1994.
|
|
||||||
--
|
|
||||||
-- The license and distribution terms for this file may in
|
|
||||||
-- the file LICENSE in this distribution or at
|
|
||||||
-- http://www.OARcorp.com/rtems/license.html.
|
|
||||||
--
|
|
||||||
-- $Id$
|
|
||||||
--
|
|
||||||
|
|
||||||
with RTEMS;
|
|
||||||
|
|
||||||
separate ( MPTEST )
|
|
||||||
|
|
||||||
package body PER_NODE_CONFIGURATION is
|
|
||||||
|
|
||||||
--PAGE
|
|
||||||
--
|
|
||||||
-- LOCAL_NODE_NUMBER
|
|
||||||
--
|
|
||||||
|
|
||||||
function LOCAL_NODE_NUMBER
|
|
||||||
return RTEMS.UNSIGNED32 is
|
|
||||||
begin
|
|
||||||
|
|
||||||
return 1;
|
|
||||||
|
|
||||||
end LOCAL_NODE_NUMBER;
|
|
||||||
|
|
||||||
end PER_NODE_CONFIGURATION;
|
|
||||||
@@ -1,10 +0,0 @@
|
|||||||
*** TEST 5 -- NODE 2 ***
|
|
||||||
Creating Test_task (Global)
|
|
||||||
Starting Test_task (Global)
|
|
||||||
Deleting initialization task
|
|
||||||
signal_catch: initializing signal catcher
|
|
||||||
Remote task's name is : 111
|
|
||||||
Getting TID of remote task
|
|
||||||
....................................................
|
|
||||||
....................................................
|
|
||||||
*** END OF TEST 5 ***
|
|
||||||
@@ -1,43 +0,0 @@
|
|||||||
--
|
|
||||||
-- MPTEST.PER_NODE_CONFIGURATION / BODY
|
|
||||||
--
|
|
||||||
-- DESCRIPTION:
|
|
||||||
--
|
|
||||||
-- This package is the specification for the subpackage
|
|
||||||
-- which will define the per node configuration parameters.
|
|
||||||
--
|
|
||||||
-- DEPENDENCIES:
|
|
||||||
--
|
|
||||||
--
|
|
||||||
--
|
|
||||||
-- COPYRIGHT (c) 1989-1997.
|
|
||||||
-- On-Line Applications Research Corporation (OAR).
|
|
||||||
-- Copyright assigned to U.S. Government, 1994.
|
|
||||||
--
|
|
||||||
-- The license and distribution terms for this file may in
|
|
||||||
-- the file LICENSE in this distribution or at
|
|
||||||
-- http://www.OARcorp.com/rtems/license.html.
|
|
||||||
--
|
|
||||||
-- $Id$
|
|
||||||
--
|
|
||||||
|
|
||||||
with RTEMS;
|
|
||||||
|
|
||||||
separate ( MPTEST )
|
|
||||||
|
|
||||||
package body PER_NODE_CONFIGURATION is
|
|
||||||
|
|
||||||
--PAGE
|
|
||||||
--
|
|
||||||
-- LOCAL_NODE_NUMBER
|
|
||||||
--
|
|
||||||
|
|
||||||
function LOCAL_NODE_NUMBER
|
|
||||||
return RTEMS.UNSIGNED32 is
|
|
||||||
begin
|
|
||||||
|
|
||||||
return 2;
|
|
||||||
|
|
||||||
end LOCAL_NODE_NUMBER;
|
|
||||||
|
|
||||||
end PER_NODE_CONFIGURATION;
|
|
||||||
@@ -1,257 +0,0 @@
|
|||||||
--
|
|
||||||
-- MPTEST / BODY
|
|
||||||
--
|
|
||||||
-- DESCRIPTION:
|
|
||||||
--
|
|
||||||
-- This package is the implementation for Test 6 of the RTEMS
|
|
||||||
-- Multiprocessor Test Suite.
|
|
||||||
--
|
|
||||||
-- DEPENDENCIES:
|
|
||||||
--
|
|
||||||
--
|
|
||||||
--
|
|
||||||
-- COPYRIGHT (c) 1989-1997.
|
|
||||||
-- On-Line Applications Research Corporation (OAR).
|
|
||||||
-- Copyright assigned to U.S. Government, 1994.
|
|
||||||
--
|
|
||||||
-- The license and distribution terms for this file may in
|
|
||||||
-- the file LICENSE in this distribution or at
|
|
||||||
-- http://www.OARcorp.com/rtems/license.html.
|
|
||||||
--
|
|
||||||
-- $Id$
|
|
||||||
--
|
|
||||||
|
|
||||||
with INTERFACES; use INTERFACES;
|
|
||||||
with RTEMS;
|
|
||||||
with TEST_SUPPORT;
|
|
||||||
with TEXT_IO;
|
|
||||||
with UNSIGNED32_IO;
|
|
||||||
|
|
||||||
package body MPTEST is
|
|
||||||
|
|
||||||
package body PER_NODE_CONFIGURATION is separate;
|
|
||||||
|
|
||||||
--PAGE
|
|
||||||
--
|
|
||||||
-- INIT
|
|
||||||
--
|
|
||||||
|
|
||||||
procedure INIT (
|
|
||||||
ARGUMENT : in RTEMS.TASK_ARGUMENT
|
|
||||||
) is
|
|
||||||
STATUS : RTEMS.STATUS_CODES;
|
|
||||||
begin
|
|
||||||
|
|
||||||
TEXT_IO.NEW_LINE( 2 );
|
|
||||||
TEXT_IO.PUT( "*** TEST 6 -- NODE " );
|
|
||||||
UNSIGNED32_IO.PUT(
|
|
||||||
MPTEST.MULTIPROCESSING_CONFIGURATION.NODE,
|
|
||||||
WIDTH => 1
|
|
||||||
);
|
|
||||||
TEXT_IO.PUT_LINE( " ***" );
|
|
||||||
|
|
||||||
MPTEST.TASK_NAME( 1 ) := RTEMS.BUILD_NAME( '1', '1', '1', ' ' );
|
|
||||||
MPTEST.TASK_NAME( 2 ) := RTEMS.BUILD_NAME( '2', '2', '2', ' ' );
|
|
||||||
|
|
||||||
TEXT_IO.PUT_LINE( "Creating Test_task (Global)" );
|
|
||||||
|
|
||||||
RTEMS.TASK_CREATE(
|
|
||||||
MPTEST.TASK_NAME( MPTEST.MULTIPROCESSING_CONFIGURATION.NODE ),
|
|
||||||
MPTEST.MULTIPROCESSING_CONFIGURATION.NODE,
|
|
||||||
2048,
|
|
||||||
RTEMS.DEFAULT_MODES,
|
|
||||||
RTEMS.GLOBAL,
|
|
||||||
MPTEST.TASK_ID( 1 ),
|
|
||||||
STATUS
|
|
||||||
);
|
|
||||||
TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "TASK_CREATE" );
|
|
||||||
|
|
||||||
TEXT_IO.PUT_LINE( "Starting Test_task (Global)" );
|
|
||||||
|
|
||||||
RTEMS.TASK_START(
|
|
||||||
MPTEST.TASK_ID( 1 ),
|
|
||||||
MPTEST.TEST_TASK'ACCESS,
|
|
||||||
0,
|
|
||||||
STATUS
|
|
||||||
);
|
|
||||||
TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "TASK_START" );
|
|
||||||
|
|
||||||
MPTEST.TIMER_NAME( 1 ) := RTEMS.BUILD_NAME( 'T', 'M', '1', ' ' );
|
|
||||||
MPTEST.TIMER_NAME( 2 ) := RTEMS.BUILD_NAME( 'T', 'M', '2', ' ' );
|
|
||||||
|
|
||||||
RTEMS.TIMER_CREATE(
|
|
||||||
MPTEST.TIMER_NAME( MPTEST.MULTIPROCESSING_CONFIGURATION.NODE ),
|
|
||||||
MPTEST.TIMER_ID( 1 ),
|
|
||||||
STATUS
|
|
||||||
);
|
|
||||||
TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "TIMER_CREATE" );
|
|
||||||
|
|
||||||
TEXT_IO.PUT_LINE( "Deleting initialization task" );
|
|
||||||
|
|
||||||
RTEMS.TASK_DELETE( RTEMS.SELF, STATUS );
|
|
||||||
TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "TASK_DELETE OF SELF" );
|
|
||||||
|
|
||||||
end INIT;
|
|
||||||
|
|
||||||
--PAGE
|
|
||||||
--
|
|
||||||
-- STOP_TEST_TSR
|
|
||||||
--
|
|
||||||
|
|
||||||
procedure STOP_TEST_TSR (
|
|
||||||
IGNORED1 : in RTEMS.ID;
|
|
||||||
IGNORED2 : in RTEMS.ADDRESS
|
|
||||||
) is
|
|
||||||
begin
|
|
||||||
|
|
||||||
MPTEST.STOP_TEST := TRUE;
|
|
||||||
|
|
||||||
end STOP_TEST_TSR;
|
|
||||||
|
|
||||||
--PAGE
|
|
||||||
--
|
|
||||||
-- TEST_TASK
|
|
||||||
--
|
|
||||||
|
|
||||||
procedure TEST_TASK (
|
|
||||||
ARGUMENT : in RTEMS.TASK_ARGUMENT
|
|
||||||
) is
|
|
||||||
COUNT : RTEMS.UNSIGNED32;
|
|
||||||
EVENT_OUT : RTEMS.EVENT_SET;
|
|
||||||
EVENT_FOR_THIS_ITERATION : RTEMS.EVENT_SET;
|
|
||||||
STATUS : RTEMS.STATUS_CODES;
|
|
||||||
begin
|
|
||||||
|
|
||||||
MPTEST.STOP_TEST := FALSE;
|
|
||||||
|
|
||||||
if MPTEST.MULTIPROCESSING_CONFIGURATION.NODE = 1 then
|
|
||||||
MPTEST.REMOTE_NODE := 2;
|
|
||||||
else
|
|
||||||
MPTEST.REMOTE_NODE := 1;
|
|
||||||
end if;
|
|
||||||
|
|
||||||
TEXT_IO.PUT( "Remote task's name is : " );
|
|
||||||
TEST_SUPPORT.PUT_NAME( MPTEST.TASK_NAME( MPTEST.REMOTE_NODE ), TRUE );
|
|
||||||
|
|
||||||
TEXT_IO.PUT_LINE( "Getting TID of remote task" );
|
|
||||||
|
|
||||||
loop
|
|
||||||
|
|
||||||
RTEMS.TASK_IDENT(
|
|
||||||
MPTEST.TASK_NAME( MPTEST.REMOTE_NODE ),
|
|
||||||
RTEMS.SEARCH_ALL_NODES,
|
|
||||||
MPTEST.REMOTE_TID,
|
|
||||||
STATUS
|
|
||||||
);
|
|
||||||
|
|
||||||
exit when RTEMS.IS_STATUS_SUCCESSFUL( STATUS );
|
|
||||||
|
|
||||||
end loop;
|
|
||||||
|
|
||||||
if MPTEST.MULTIPROCESSING_CONFIGURATION.NODE = 1 then
|
|
||||||
TEXT_IO.PUT_LINE( "Sending events to remote task" );
|
|
||||||
else
|
|
||||||
TEXT_IO.PUT_LINE( "Receiving events from remote task" );
|
|
||||||
end if;
|
|
||||||
|
|
||||||
RTEMS.TIMER_FIRE_AFTER(
|
|
||||||
MPTEST.TIMER_ID( 1 ),
|
|
||||||
5 * TEST_SUPPORT.TICKS_PER_SECOND,
|
|
||||||
MPTEST.STOP_TEST_TSR'ACCESS,
|
|
||||||
RTEMS.NULL_ADDRESS,
|
|
||||||
STATUS
|
|
||||||
);
|
|
||||||
TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "TIMER_FIRE_AFTER" );
|
|
||||||
|
|
||||||
COUNT := 0;
|
|
||||||
|
|
||||||
loop
|
|
||||||
|
|
||||||
exit when MPTEST.STOP_TEST = TRUE;
|
|
||||||
|
|
||||||
EVENT_FOR_THIS_ITERATION :=
|
|
||||||
MPTEST.EVENT_SET_TABLE(
|
|
||||||
INTEGER( COUNT ) mod MPTEST.EVENT_SET_TABLE'LAST + 1
|
|
||||||
);
|
|
||||||
|
|
||||||
if MPTEST.MULTIPROCESSING_CONFIGURATION.NODE = 1 then
|
|
||||||
|
|
||||||
RTEMS.EVENT_SEND(
|
|
||||||
MPTEST.REMOTE_TID,
|
|
||||||
EVENT_FOR_THIS_ITERATION,
|
|
||||||
STATUS
|
|
||||||
);
|
|
||||||
TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "EVENT_SEND" );
|
|
||||||
|
|
||||||
else
|
|
||||||
|
|
||||||
RTEMS.EVENT_RECEIVE(
|
|
||||||
EVENT_FOR_THIS_ITERATION,
|
|
||||||
RTEMS.DEFAULT_OPTIONS,
|
|
||||||
1 * TEST_SUPPORT.TICKS_PER_SECOND,
|
|
||||||
EVENT_OUT,
|
|
||||||
STATUS
|
|
||||||
);
|
|
||||||
|
|
||||||
if RTEMS.ARE_STATUSES_EQUAL( STATUS, RTEMS.TIMEOUT ) then
|
|
||||||
TEXT_IO.NEW_LINE( 1 );
|
|
||||||
|
|
||||||
if MPTEST.MULTIPROCESSING_CONFIGURATION.NODE = 2 then
|
|
||||||
TEXT_IO.PUT_LINE(
|
|
||||||
"Correct behavior if the other node exitted."
|
|
||||||
);
|
|
||||||
else
|
|
||||||
TEXT_IO.PUT_LINE(
|
|
||||||
"ERROR... node 1 died"
|
|
||||||
);
|
|
||||||
end if;
|
|
||||||
|
|
||||||
exit;
|
|
||||||
|
|
||||||
else
|
|
||||||
|
|
||||||
TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "EVENT_RECEIVE" );
|
|
||||||
|
|
||||||
end if;
|
|
||||||
|
|
||||||
end if;
|
|
||||||
|
|
||||||
if (COUNT mod MPTEST.MAXIMUM_DOTS) = 0 then
|
|
||||||
|
|
||||||
TEST_SUPPORT.PUT_DOT( "." );
|
|
||||||
|
|
||||||
end if;
|
|
||||||
|
|
||||||
COUNT := COUNT + 1;
|
|
||||||
|
|
||||||
end loop;
|
|
||||||
|
|
||||||
TEXT_IO.NEW_LINE;
|
|
||||||
|
|
||||||
if MPTEST.MULTIPROCESSING_CONFIGURATION.NODE = 2 then
|
|
||||||
|
|
||||||
RTEMS.EVENT_RECEIVE(
|
|
||||||
RTEMS.EVENT_16,
|
|
||||||
RTEMS.DEFAULT_OPTIONS,
|
|
||||||
1 * TEST_SUPPORT.TICKS_PER_SECOND,
|
|
||||||
EVENT_OUT,
|
|
||||||
STATUS
|
|
||||||
);
|
|
||||||
TEST_SUPPORT.FATAL_DIRECTIVE_STATUS(
|
|
||||||
RTEMS.TIMEOUT,
|
|
||||||
STATUS,
|
|
||||||
"EVENT_RECEIVE"
|
|
||||||
);
|
|
||||||
|
|
||||||
TEXT_IO.NEW_LINE;
|
|
||||||
TEXT_IO.PUT_LINE( "event_receive - correctly returned TIMEOUT" );
|
|
||||||
|
|
||||||
end if;
|
|
||||||
|
|
||||||
TEXT_IO.PUT_LINE( "*** END OF TEST 6 ***" );
|
|
||||||
|
|
||||||
RTEMS.SHUTDOWN_EXECUTIVE( 0 );
|
|
||||||
|
|
||||||
end TEST_TASK;
|
|
||||||
|
|
||||||
end MPTEST;
|
|
||||||
@@ -1,250 +0,0 @@
|
|||||||
--
|
|
||||||
-- MPTEST / SPECIFICATION
|
|
||||||
--
|
|
||||||
-- DESCRIPTION:
|
|
||||||
--
|
|
||||||
-- This package is the specification for Test 6 of the RTEMS
|
|
||||||
-- Multiprocessor Test Suite.
|
|
||||||
--
|
|
||||||
-- DEPENDENCIES:
|
|
||||||
--
|
|
||||||
--
|
|
||||||
--
|
|
||||||
-- COPYRIGHT (c) 1989-1997.
|
|
||||||
-- On-Line Applications Research Corporation (OAR).
|
|
||||||
-- Copyright assigned to U.S. Government, 1994.
|
|
||||||
--
|
|
||||||
-- The license and distribution terms for this file may in
|
|
||||||
-- the file LICENSE in this distribution or at
|
|
||||||
-- http://www.OARcorp.com/rtems/license.html.
|
|
||||||
--
|
|
||||||
-- $Id$
|
|
||||||
--
|
|
||||||
|
|
||||||
with BSP_MPCI;
|
|
||||||
with RTEMS;
|
|
||||||
|
|
||||||
package MPTEST is
|
|
||||||
|
|
||||||
--
|
|
||||||
-- These arrays contain the IDs and NAMEs of all RTEMS tasks created
|
|
||||||
-- by this test.
|
|
||||||
--
|
|
||||||
|
|
||||||
TASK_ID : array ( RTEMS.UNSIGNED32 range 1 .. 3 ) of RTEMS.ID;
|
|
||||||
TASK_NAME : array ( RTEMS.UNSIGNED32 range 1 .. 3 ) of RTEMS.NAME;
|
|
||||||
|
|
||||||
--
|
|
||||||
-- These arrays contain the IDs and NAMEs of all RTEMS timers created
|
|
||||||
-- by this test.
|
|
||||||
--
|
|
||||||
|
|
||||||
TIMER_ID : array ( RTEMS.UNSIGNED32 range 1 .. 2 ) of RTEMS.ID;
|
|
||||||
TIMER_NAME : array ( RTEMS.UNSIGNED32 range 1 .. 2 ) of RTEMS.NAME;
|
|
||||||
|
|
||||||
--
|
|
||||||
-- This variable is set when the test should stop executing.
|
|
||||||
--
|
|
||||||
STOP_TEST : RTEMS.BOOLEAN;
|
|
||||||
|
|
||||||
--
|
|
||||||
-- This variable contains the ID of the remote task with which this
|
|
||||||
-- test interacts.
|
|
||||||
--
|
|
||||||
|
|
||||||
REMOTE_TID : RTEMS.ID;
|
|
||||||
|
|
||||||
--
|
|
||||||
-- This variable contains the node on which the remote task with which
|
|
||||||
-- this test interacts resides.
|
|
||||||
--
|
|
||||||
|
|
||||||
REMOTE_NODE : RTEMS.UNSIGNED32;
|
|
||||||
|
|
||||||
--
|
|
||||||
-- The number of signals to process per dot printed out.
|
|
||||||
--
|
|
||||||
|
|
||||||
MAXIMUM_DOTS : constant RTEMS.UNSIGNED32 := 25;
|
|
||||||
|
|
||||||
--
|
|
||||||
-- The following is a table of the event sets which consist of
|
|
||||||
-- a single event. This test cycles through all of these
|
|
||||||
-- events.
|
|
||||||
--
|
|
||||||
|
|
||||||
EVENT_SET_TABLE : constant array ( 0 .. 30 ) of RTEMS.EVENT_SET := (
|
|
||||||
RTEMS.EVENT_0,
|
|
||||||
RTEMS.EVENT_1,
|
|
||||||
RTEMS.EVENT_2,
|
|
||||||
RTEMS.EVENT_3,
|
|
||||||
RTEMS.EVENT_4,
|
|
||||||
RTEMS.EVENT_5,
|
|
||||||
RTEMS.EVENT_6,
|
|
||||||
RTEMS.EVENT_7,
|
|
||||||
RTEMS.EVENT_8,
|
|
||||||
RTEMS.EVENT_9,
|
|
||||||
RTEMS.EVENT_10,
|
|
||||||
RTEMS.EVENT_11,
|
|
||||||
RTEMS.EVENT_12,
|
|
||||||
RTEMS.EVENT_13,
|
|
||||||
RTEMS.EVENT_14,
|
|
||||||
RTEMS.EVENT_15,
|
|
||||||
RTEMS.EVENT_16,
|
|
||||||
RTEMS.EVENT_17,
|
|
||||||
RTEMS.EVENT_18,
|
|
||||||
RTEMS.EVENT_19,
|
|
||||||
RTEMS.EVENT_20,
|
|
||||||
RTEMS.EVENT_21,
|
|
||||||
RTEMS.EVENT_22,
|
|
||||||
RTEMS.EVENT_23,
|
|
||||||
RTEMS.EVENT_24,
|
|
||||||
RTEMS.EVENT_25,
|
|
||||||
RTEMS.EVENT_26,
|
|
||||||
RTEMS.EVENT_27,
|
|
||||||
RTEMS.EVENT_28,
|
|
||||||
RTEMS.EVENT_29,
|
|
||||||
RTEMS.EVENT_30
|
|
||||||
);
|
|
||||||
|
|
||||||
--
|
|
||||||
-- INIT
|
|
||||||
--
|
|
||||||
-- DESCRIPTION:
|
|
||||||
--
|
|
||||||
-- This RTEMS task initializes the application.
|
|
||||||
--
|
|
||||||
|
|
||||||
procedure INIT (
|
|
||||||
ARGUMENT : in RTEMS.TASK_ARGUMENT
|
|
||||||
);
|
|
||||||
|
|
||||||
--
|
|
||||||
-- STOP_TEST_TSR
|
|
||||||
--
|
|
||||||
-- DESCRIPTION:
|
|
||||||
--
|
|
||||||
-- This subprogram is a TSR which sets the "stop test" flag.
|
|
||||||
--
|
|
||||||
|
|
||||||
procedure STOP_TEST_TSR (
|
|
||||||
IGNORED1 : in RTEMS.ID;
|
|
||||||
IGNORED2 : in RTEMS.ADDRESS
|
|
||||||
);
|
|
||||||
|
|
||||||
--
|
|
||||||
-- TEST_TASK
|
|
||||||
--
|
|
||||||
-- DESCRIPTION:
|
|
||||||
--
|
|
||||||
-- This is the body of the RTEMS tasks which constitute this test.
|
|
||||||
--
|
|
||||||
|
|
||||||
procedure TEST_TASK (
|
|
||||||
ARGUMENT : in RTEMS.TASK_ARGUMENT
|
|
||||||
);
|
|
||||||
|
|
||||||
--
|
|
||||||
-- This is the Driver Address Table for this test.
|
|
||||||
--
|
|
||||||
|
|
||||||
DEVICE_DRIVERS : aliased RTEMS.DRIVER_ADDRESS_TABLE( 1 .. 1 ) :=
|
|
||||||
(1=>
|
|
||||||
(
|
|
||||||
CLOCK_DRIVER.INITIALIZE'ACCESS, -- Initialization
|
|
||||||
RTEMS.NO_DRIVER_ENTRY, -- Open
|
|
||||||
RTEMS.NO_DRIVER_ENTRY, -- Close
|
|
||||||
RTEMS.NO_DRIVER_ENTRY, -- Read
|
|
||||||
RTEMS.NO_DRIVER_ENTRY, -- Write
|
|
||||||
RTEMS.NO_DRIVER_ENTRY -- Control
|
|
||||||
)
|
|
||||||
);
|
|
||||||
|
|
||||||
--
|
|
||||||
-- This is the Initialization Tasks Table for this test.
|
|
||||||
--
|
|
||||||
|
|
||||||
INITIALIZATION_TASKS : aliased RTEMS.INITIALIZATION_TASKS_TABLE( 1 .. 1 ) :=
|
|
||||||
(1=>
|
|
||||||
(
|
|
||||||
RTEMS.BUILD_NAME( 'U', 'I', '1', ' ' ), -- task name
|
|
||||||
2048, -- stack size
|
|
||||||
1, -- priority
|
|
||||||
RTEMS.DEFAULT_ATTRIBUTES, -- attributes
|
|
||||||
MPTEST.INIT'ACCESS, -- entry point
|
|
||||||
RTEMS.NO_PREEMPT, -- initial mode
|
|
||||||
0 -- argument list
|
|
||||||
)
|
|
||||||
);
|
|
||||||
|
|
||||||
----------------------------------------------------------------------------
|
|
||||||
----------------------------------------------------------------------------
|
|
||||||
-- BEGIN SUBPACKAGE --
|
|
||||||
----------------------------------------------------------------------------
|
|
||||||
----------------------------------------------------------------------------
|
|
||||||
|
|
||||||
--
|
|
||||||
-- MPTEST.PER_NODE_CONFIGURATION / SPECIFICATION
|
|
||||||
--
|
|
||||||
-- DESCRIPTION:
|
|
||||||
--
|
|
||||||
-- This package is the specification for the subpackage
|
|
||||||
-- which will define the per node configuration parameters.
|
|
||||||
--
|
|
||||||
|
|
||||||
package PER_NODE_CONFIGURATION is
|
|
||||||
|
|
||||||
--
|
|
||||||
-- LOCAL_NODE_NUMBER
|
|
||||||
--
|
|
||||||
-- DESCRIPTION:
|
|
||||||
--
|
|
||||||
-- This function returns the node number for this node.
|
|
||||||
--
|
|
||||||
|
|
||||||
function LOCAL_NODE_NUMBER
|
|
||||||
return RTEMS.UNSIGNED32;
|
|
||||||
|
|
||||||
pragma INLINE ( LOCAL_NODE_NUMBER );
|
|
||||||
|
|
||||||
end PER_NODE_CONFIGURATION;
|
|
||||||
|
|
||||||
----------------------------------------------------------------------------
|
|
||||||
----------------------------------------------------------------------------
|
|
||||||
-- END SUBPACKAGE --
|
|
||||||
----------------------------------------------------------------------------
|
|
||||||
----------------------------------------------------------------------------
|
|
||||||
|
|
||||||
--
|
|
||||||
-- This is the Multiprocessor Configuration Table for this test.
|
|
||||||
--
|
|
||||||
|
|
||||||
MULTIPROCESSING_CONFIGURATION : aliased RTEMS.MULTIPROCESSING_TABLE := (
|
|
||||||
MPTEST.PER_NODE_CONFIGURATION.LOCAL_NODE_NUMBER,
|
|
||||||
2, -- maximum # nodes in system
|
|
||||||
32, -- maximum # global objects
|
|
||||||
32 -- maximum # proxies
|
|
||||||
);
|
|
||||||
|
|
||||||
--
|
|
||||||
-- This is the Configuration Table for this test.
|
|
||||||
--
|
|
||||||
|
|
||||||
CONFIGURATION : aliased RTEMS.CONFIGURATION_TABLE := (
|
|
||||||
RTEMS.NULL_ADDRESS, -- will be replaced by BSP
|
|
||||||
64 * 1024, -- executive RAM size
|
|
||||||
10, -- maximum # tasks
|
|
||||||
1, -- maximum # timers
|
|
||||||
2, -- maximum # semaphores
|
|
||||||
0, -- maximum # message queues
|
|
||||||
0, -- maximum # messages
|
|
||||||
0, -- maximum # partitions
|
|
||||||
0, -- maximum # regions
|
|
||||||
0, -- maximum # dp memory areas
|
|
||||||
0, -- maximum # periods
|
|
||||||
0, -- maximum # user extensions
|
|
||||||
RTEMS.MILLISECONDS_TO_MICROSECONDS(10), -- # us in a tick
|
|
||||||
50 -- # ticks in a timeslice
|
|
||||||
);
|
|
||||||
|
|
||||||
end MPTEST;
|
|
||||||
@@ -1,10 +0,0 @@
|
|||||||
*** TEST 6 -- NODE 1 ***
|
|
||||||
Creating Test_task (Global)
|
|
||||||
Starting Test_task (Global)
|
|
||||||
Deleting initialization task
|
|
||||||
Remote task's name is : 222
|
|
||||||
Getting TID of remote task
|
|
||||||
Sending events to remote task
|
|
||||||
....................................................
|
|
||||||
....................................................
|
|
||||||
*** END OF TEST 6 ***
|
|
||||||
@@ -1,43 +0,0 @@
|
|||||||
--
|
|
||||||
-- MPTEST.PER_NODE_CONFIGURATION / BODY
|
|
||||||
--
|
|
||||||
-- DESCRIPTION:
|
|
||||||
--
|
|
||||||
-- This package is the specification for the subpackage
|
|
||||||
-- which will define the per node configuration parameters.
|
|
||||||
--
|
|
||||||
-- DEPENDENCIES:
|
|
||||||
--
|
|
||||||
--
|
|
||||||
--
|
|
||||||
-- COPYRIGHT (c) 1989-1997.
|
|
||||||
-- On-Line Applications Research Corporation (OAR).
|
|
||||||
-- Copyright assigned to U.S. Government, 1994.
|
|
||||||
--
|
|
||||||
-- The license and distribution terms for this file may in
|
|
||||||
-- the file LICENSE in this distribution or at
|
|
||||||
-- http://www.OARcorp.com/rtems/license.html.
|
|
||||||
--
|
|
||||||
-- $Id$
|
|
||||||
--
|
|
||||||
|
|
||||||
with RTEMS;
|
|
||||||
|
|
||||||
separate ( MPTEST )
|
|
||||||
|
|
||||||
package body PER_NODE_CONFIGURATION is
|
|
||||||
|
|
||||||
--PAGE
|
|
||||||
--
|
|
||||||
-- LOCAL_NODE_NUMBER
|
|
||||||
--
|
|
||||||
|
|
||||||
function LOCAL_NODE_NUMBER
|
|
||||||
return RTEMS.UNSIGNED32 is
|
|
||||||
begin
|
|
||||||
|
|
||||||
return 1;
|
|
||||||
|
|
||||||
end LOCAL_NODE_NUMBER;
|
|
||||||
|
|
||||||
end PER_NODE_CONFIGURATION;
|
|
||||||
@@ -1,11 +0,0 @@
|
|||||||
*** TEST 6 -- NODE 2 ***
|
|
||||||
Creating Test_task (Global)
|
|
||||||
Starting Test_task (Global)
|
|
||||||
Deleting initialization task
|
|
||||||
Remote task's name is : 111
|
|
||||||
Getting TID of remote task
|
|
||||||
Receiving events from remote task
|
|
||||||
....................................................
|
|
||||||
....................................................
|
|
||||||
event_receive - correctly returned TIMEOUT
|
|
||||||
*** END OF TEST 6 ***
|
|
||||||
@@ -1,43 +0,0 @@
|
|||||||
--
|
|
||||||
-- MPTEST.PER_NODE_CONFIGURATION / BODY
|
|
||||||
--
|
|
||||||
-- DESCRIPTION:
|
|
||||||
--
|
|
||||||
-- This package is the specification for the subpackage
|
|
||||||
-- which will define the per node configuration parameters.
|
|
||||||
--
|
|
||||||
-- DEPENDENCIES:
|
|
||||||
--
|
|
||||||
--
|
|
||||||
--
|
|
||||||
-- COPYRIGHT (c) 1989-1997.
|
|
||||||
-- On-Line Applications Research Corporation (OAR).
|
|
||||||
-- Copyright assigned to U.S. Government, 1994.
|
|
||||||
--
|
|
||||||
-- The license and distribution terms for this file may in
|
|
||||||
-- the file LICENSE in this distribution or at
|
|
||||||
-- http://www.OARcorp.com/rtems/license.html.
|
|
||||||
--
|
|
||||||
-- $Id$
|
|
||||||
--
|
|
||||||
|
|
||||||
with RTEMS;
|
|
||||||
|
|
||||||
separate ( MPTEST )
|
|
||||||
|
|
||||||
package body PER_NODE_CONFIGURATION is
|
|
||||||
|
|
||||||
--PAGE
|
|
||||||
--
|
|
||||||
-- LOCAL_NODE_NUMBER
|
|
||||||
--
|
|
||||||
|
|
||||||
function LOCAL_NODE_NUMBER
|
|
||||||
return RTEMS.UNSIGNED32 is
|
|
||||||
begin
|
|
||||||
|
|
||||||
return 2;
|
|
||||||
|
|
||||||
end LOCAL_NODE_NUMBER;
|
|
||||||
|
|
||||||
end PER_NODE_CONFIGURATION;
|
|
||||||
@@ -1,210 +0,0 @@
|
|||||||
--
|
|
||||||
-- MPTEST / BODY
|
|
||||||
--
|
|
||||||
-- DESCRIPTION:
|
|
||||||
--
|
|
||||||
-- This package is the implementation for Test 7 of the RTEMS
|
|
||||||
-- Multiprocessor Test Suite.
|
|
||||||
--
|
|
||||||
-- DEPENDENCIES:
|
|
||||||
--
|
|
||||||
--
|
|
||||||
--
|
|
||||||
-- COPYRIGHT (c) 1989-1997.
|
|
||||||
-- On-Line Applications Research Corporation (OAR).
|
|
||||||
-- Copyright assigned to U.S. Government, 1994.
|
|
||||||
--
|
|
||||||
-- The license and distribution terms for this file may in
|
|
||||||
-- the file LICENSE in this distribution or at
|
|
||||||
-- http://www.OARcorp.com/rtems/license.html.
|
|
||||||
--
|
|
||||||
-- $Id$
|
|
||||||
--
|
|
||||||
|
|
||||||
with INTERFACES; use INTERFACES;
|
|
||||||
with RTEMS;
|
|
||||||
with TEST_SUPPORT;
|
|
||||||
with TEXT_IO;
|
|
||||||
with UNSIGNED32_IO;
|
|
||||||
|
|
||||||
package body MPTEST is
|
|
||||||
|
|
||||||
package body PER_NODE_CONFIGURATION is separate;
|
|
||||||
|
|
||||||
--PAGE
|
|
||||||
--
|
|
||||||
-- INIT
|
|
||||||
--
|
|
||||||
|
|
||||||
procedure INIT (
|
|
||||||
ARGUMENT : in RTEMS.TASK_ARGUMENT
|
|
||||||
) is
|
|
||||||
STATUS : RTEMS.STATUS_CODES;
|
|
||||||
begin
|
|
||||||
|
|
||||||
TEXT_IO.NEW_LINE( 2 );
|
|
||||||
TEXT_IO.PUT( "*** TEST 7 -- NODE " );
|
|
||||||
UNSIGNED32_IO.PUT(
|
|
||||||
MPTEST.MULTIPROCESSING_CONFIGURATION.NODE,
|
|
||||||
WIDTH => 1
|
|
||||||
);
|
|
||||||
TEXT_IO.PUT_LINE( " ***" );
|
|
||||||
|
|
||||||
MPTEST.TASK_NAME( 1 ) := RTEMS.BUILD_NAME( '1', '1', '1', ' ' );
|
|
||||||
MPTEST.TASK_NAME( 2 ) := RTEMS.BUILD_NAME( '2', '2', '2', ' ' );
|
|
||||||
|
|
||||||
TEXT_IO.PUT_LINE( "Creating Test_task (Global)" );
|
|
||||||
RTEMS.TASK_CREATE(
|
|
||||||
MPTEST.TASK_NAME( MPTEST.MULTIPROCESSING_CONFIGURATION.NODE ),
|
|
||||||
MPTEST.MULTIPROCESSING_CONFIGURATION.NODE,
|
|
||||||
2048,
|
|
||||||
RTEMS.TIMESLICE,
|
|
||||||
RTEMS.GLOBAL,
|
|
||||||
MPTEST.TASK_ID( 1 ),
|
|
||||||
STATUS
|
|
||||||
);
|
|
||||||
TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "TASK_CREATE" );
|
|
||||||
|
|
||||||
TEXT_IO.PUT_LINE( "Starting Test_task (Global)" );
|
|
||||||
RTEMS.TASK_START(
|
|
||||||
MPTEST.TASK_ID( 1 ),
|
|
||||||
MPTEST.TEST_TASK'ACCESS,
|
|
||||||
0,
|
|
||||||
STATUS
|
|
||||||
);
|
|
||||||
TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "TASK_START" );
|
|
||||||
|
|
||||||
MPTEST.TIMER_NAME( 1 ) := RTEMS.BUILD_NAME( 'T', 'M', '1', ' ' );
|
|
||||||
|
|
||||||
RTEMS.TIMER_CREATE(
|
|
||||||
MPTEST.TIMER_NAME( 1 ),
|
|
||||||
MPTEST.TIMER_ID( 1 ),
|
|
||||||
STATUS
|
|
||||||
);
|
|
||||||
TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "TIMER_CREATE" );
|
|
||||||
|
|
||||||
TEXT_IO.PUT_LINE( "Deleting initialization task" );
|
|
||||||
RTEMS.TASK_DELETE( RTEMS.SELF, STATUS );
|
|
||||||
TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "TASK_DELETE OF SELF" );
|
|
||||||
|
|
||||||
end INIT;
|
|
||||||
|
|
||||||
--PAGE
|
|
||||||
--
|
|
||||||
-- STOP_TEST_TSR
|
|
||||||
--
|
|
||||||
|
|
||||||
procedure STOP_TEST_TSR (
|
|
||||||
IGNORED1 : in RTEMS.ID;
|
|
||||||
IGNORED2 : in RTEMS.ADDRESS
|
|
||||||
) is
|
|
||||||
begin
|
|
||||||
|
|
||||||
MPTEST.STOP_TEST := TRUE;
|
|
||||||
|
|
||||||
end STOP_TEST_TSR;
|
|
||||||
|
|
||||||
--PAGE
|
|
||||||
--
|
|
||||||
-- TEST_TASK
|
|
||||||
--
|
|
||||||
|
|
||||||
procedure TEST_TASK (
|
|
||||||
ARGUMENT : in RTEMS.TASK_ARGUMENT
|
|
||||||
) is
|
|
||||||
COUNT : RTEMS.UNSIGNED32;
|
|
||||||
EVENT_OUT : RTEMS.EVENT_SET;
|
|
||||||
STATUS : RTEMS.STATUS_CODES;
|
|
||||||
begin
|
|
||||||
|
|
||||||
MPTEST.STOP_TEST := FALSE;
|
|
||||||
|
|
||||||
if MPTEST.MULTIPROCESSING_CONFIGURATION.NODE = 1 then
|
|
||||||
MPTEST.REMOTE_NODE := 2;
|
|
||||||
else
|
|
||||||
MPTEST.REMOTE_NODE := 1;
|
|
||||||
end if;
|
|
||||||
|
|
||||||
TEXT_IO.PUT( "Remote task's name is : " );
|
|
||||||
TEST_SUPPORT.PUT_NAME( MPTEST.TASK_NAME( MPTEST.REMOTE_NODE ), TRUE );
|
|
||||||
|
|
||||||
TEXT_IO.PUT_LINE( "Getting TID of remote task" );
|
|
||||||
loop
|
|
||||||
RTEMS.TASK_IDENT(
|
|
||||||
MPTEST.TASK_NAME( MPTEST.REMOTE_NODE ),
|
|
||||||
RTEMS.SEARCH_ALL_NODES,
|
|
||||||
MPTEST.REMOTE_TID,
|
|
||||||
STATUS
|
|
||||||
);
|
|
||||||
|
|
||||||
exit when RTEMS.ARE_STATUSES_EQUAL( STATUS, RTEMS.SUCCESSFUL );
|
|
||||||
|
|
||||||
end loop;
|
|
||||||
|
|
||||||
if MPTEST.MULTIPROCESSING_CONFIGURATION.NODE = 1 then
|
|
||||||
|
|
||||||
TEXT_IO.PUT_LINE( "Sending first event to remote task" );
|
|
||||||
RTEMS.EVENT_SEND(
|
|
||||||
MPTEST.REMOTE_TID,
|
|
||||||
RTEMS.EVENT_16,
|
|
||||||
STATUS
|
|
||||||
);
|
|
||||||
TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "EVENT_SEND" );
|
|
||||||
|
|
||||||
end if;
|
|
||||||
|
|
||||||
RTEMS.TIMER_FIRE_AFTER(
|
|
||||||
MPTEST.TIMER_ID( 1 ),
|
|
||||||
5 * TEST_SUPPORT.TICKS_PER_SECOND,
|
|
||||||
MPTEST.STOP_TEST_TSR'ACCESS,
|
|
||||||
RTEMS.NULL_ADDRESS,
|
|
||||||
STATUS
|
|
||||||
);
|
|
||||||
TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "TIMER_FIRE_AFTER" );
|
|
||||||
|
|
||||||
loop
|
|
||||||
|
|
||||||
exit when MPTEST.STOP_TEST = TRUE;
|
|
||||||
|
|
||||||
for COUNT in 1 .. MPTEST.PER_DOT
|
|
||||||
loop
|
|
||||||
|
|
||||||
RTEMS.EVENT_RECEIVE(
|
|
||||||
RTEMS.EVENT_16,
|
|
||||||
RTEMS.DEFAULT_OPTIONS,
|
|
||||||
TEST_SUPPORT.TICKS_PER_SECOND,
|
|
||||||
EVENT_OUT,
|
|
||||||
STATUS
|
|
||||||
);
|
|
||||||
if RTEMS.ARE_STATUSES_EQUAL( STATUS, RTEMS.TIMEOUT ) then
|
|
||||||
TEXT_IO.NEW_LINE;
|
|
||||||
TEXT_IO.PUT_LINE(
|
|
||||||
"TA1 - TIMEOUT .. probably OK if the other node exits"
|
|
||||||
);
|
|
||||||
exit;
|
|
||||||
else
|
|
||||||
TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "EVENT_RECEIVE" );
|
|
||||||
end if;
|
|
||||||
|
|
||||||
RTEMS.EVENT_SEND(
|
|
||||||
MPTEST.REMOTE_TID,
|
|
||||||
RTEMS.EVENT_16,
|
|
||||||
STATUS
|
|
||||||
);
|
|
||||||
TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "EVENT_SEND" );
|
|
||||||
|
|
||||||
end loop;
|
|
||||||
|
|
||||||
TEST_SUPPORT.PUT_DOT( "." );
|
|
||||||
|
|
||||||
end loop;
|
|
||||||
|
|
||||||
TEXT_IO.NEW_LINE;
|
|
||||||
|
|
||||||
TEXT_IO.PUT_LINE( "*** END OF TEST 7 ***" );
|
|
||||||
|
|
||||||
RTEMS.SHUTDOWN_EXECUTIVE( 0 );
|
|
||||||
|
|
||||||
end TEST_TASK;
|
|
||||||
|
|
||||||
end MPTEST;
|
|
||||||
@@ -1,210 +0,0 @@
|
|||||||
--
|
|
||||||
-- MPTEST / SPECIFICATION
|
|
||||||
--
|
|
||||||
-- DESCRIPTION:
|
|
||||||
--
|
|
||||||
-- This package is the specification for Test 7 of the RTEMS
|
|
||||||
-- Multiprocessor Test Suite.
|
|
||||||
--
|
|
||||||
-- DEPENDENCIES:
|
|
||||||
--
|
|
||||||
--
|
|
||||||
--
|
|
||||||
-- COPYRIGHT (c) 1989-1997.
|
|
||||||
-- On-Line Applications Research Corporation (OAR).
|
|
||||||
-- Copyright assigned to U.S. Government, 1994.
|
|
||||||
--
|
|
||||||
-- The license and distribution terms for this file may in
|
|
||||||
-- the file LICENSE in this distribution or at
|
|
||||||
-- http://www.OARcorp.com/rtems/license.html.
|
|
||||||
--
|
|
||||||
-- $Id$
|
|
||||||
--
|
|
||||||
|
|
||||||
with BSP_MPCI;
|
|
||||||
with RTEMS;
|
|
||||||
|
|
||||||
package MPTEST is
|
|
||||||
|
|
||||||
--
|
|
||||||
-- These arrays contain the IDs and NAMEs of all RTEMS tasks created
|
|
||||||
-- by this test.
|
|
||||||
--
|
|
||||||
|
|
||||||
TASK_ID : array ( RTEMS.UNSIGNED32 range 1 .. 3 ) of RTEMS.ID;
|
|
||||||
TASK_NAME : array ( RTEMS.UNSIGNED32 range 1 .. 3 ) of RTEMS.NAME;
|
|
||||||
|
|
||||||
--
|
|
||||||
-- These arrays contain the IDs and NAMEs of all RTEMS timers created
|
|
||||||
-- by this test.
|
|
||||||
--
|
|
||||||
|
|
||||||
TIMER_ID : array ( RTEMS.UNSIGNED32 range 1 .. 2 ) of RTEMS.ID;
|
|
||||||
TIMER_NAME : array ( RTEMS.UNSIGNED32 range 1 .. 2 ) of RTEMS.NAME;
|
|
||||||
|
|
||||||
--
|
|
||||||
-- This variable is set when the test should stop executing.
|
|
||||||
--
|
|
||||||
STOP_TEST : RTEMS.BOOLEAN;
|
|
||||||
|
|
||||||
--
|
|
||||||
-- This variable contains the ID of the remote task with which this
|
|
||||||
-- test interacts.
|
|
||||||
--
|
|
||||||
|
|
||||||
REMOTE_TID : RTEMS.ID;
|
|
||||||
|
|
||||||
--
|
|
||||||
-- This variable contains the node on which the remote task with which
|
|
||||||
-- this test interacts resides.
|
|
||||||
--
|
|
||||||
|
|
||||||
REMOTE_NODE : RTEMS.UNSIGNED32;
|
|
||||||
|
|
||||||
--
|
|
||||||
-- The number of events to process per dot printed out.
|
|
||||||
--
|
|
||||||
|
|
||||||
PER_DOT : constant RTEMS.UNSIGNED32 := 100;
|
|
||||||
|
|
||||||
--
|
|
||||||
-- INIT
|
|
||||||
--
|
|
||||||
-- DESCRIPTION:
|
|
||||||
--
|
|
||||||
-- This RTEMS task initializes the application.
|
|
||||||
--
|
|
||||||
|
|
||||||
procedure INIT (
|
|
||||||
ARGUMENT : in RTEMS.TASK_ARGUMENT
|
|
||||||
);
|
|
||||||
|
|
||||||
--
|
|
||||||
-- STOP_TEST_TSR
|
|
||||||
--
|
|
||||||
-- DESCRIPTION:
|
|
||||||
--
|
|
||||||
-- This subprogram is a TSR which sets the "stop test" flag.
|
|
||||||
--
|
|
||||||
|
|
||||||
procedure STOP_TEST_TSR (
|
|
||||||
IGNORED1 : in RTEMS.ID;
|
|
||||||
IGNORED2 : in RTEMS.ADDRESS
|
|
||||||
);
|
|
||||||
|
|
||||||
--
|
|
||||||
-- TEST_TASK
|
|
||||||
--
|
|
||||||
-- DESCRIPTION:
|
|
||||||
--
|
|
||||||
-- This is the body of the RTEMS tasks which constitute this test.
|
|
||||||
--
|
|
||||||
|
|
||||||
procedure TEST_TASK (
|
|
||||||
ARGUMENT : in RTEMS.TASK_ARGUMENT
|
|
||||||
);
|
|
||||||
|
|
||||||
--
|
|
||||||
-- This is the Driver Address Table for this test.
|
|
||||||
--
|
|
||||||
|
|
||||||
DEVICE_DRIVERS : aliased RTEMS.DRIVER_ADDRESS_TABLE( 1 .. 1 ) :=
|
|
||||||
(1=>
|
|
||||||
(
|
|
||||||
CLOCK_DRIVER.INITIALIZE'ACCESS, -- Initialization
|
|
||||||
RTEMS.NO_DRIVER_ENTRY, -- Open
|
|
||||||
RTEMS.NO_DRIVER_ENTRY, -- Close
|
|
||||||
RTEMS.NO_DRIVER_ENTRY, -- Read
|
|
||||||
RTEMS.NO_DRIVER_ENTRY, -- Write
|
|
||||||
RTEMS.NO_DRIVER_ENTRY -- Control
|
|
||||||
)
|
|
||||||
);
|
|
||||||
|
|
||||||
--
|
|
||||||
-- This is the Initialization Tasks Table for this test.
|
|
||||||
--
|
|
||||||
|
|
||||||
INITIALIZATION_TASKS : aliased RTEMS.INITIALIZATION_TASKS_TABLE( 1 .. 1 ) :=
|
|
||||||
(1=>
|
|
||||||
(
|
|
||||||
RTEMS.BUILD_NAME( 'U', 'I', '1', ' ' ), -- task name
|
|
||||||
2048, -- stack size
|
|
||||||
1, -- priority
|
|
||||||
RTEMS.DEFAULT_ATTRIBUTES, -- attributes
|
|
||||||
MPTEST.INIT'ACCESS, -- entry point
|
|
||||||
RTEMS.NO_PREEMPT, -- initial mode
|
|
||||||
0 -- argument list
|
|
||||||
)
|
|
||||||
);
|
|
||||||
|
|
||||||
----------------------------------------------------------------------------
|
|
||||||
----------------------------------------------------------------------------
|
|
||||||
-- BEGIN SUBPACKAGE --
|
|
||||||
----------------------------------------------------------------------------
|
|
||||||
----------------------------------------------------------------------------
|
|
||||||
|
|
||||||
--
|
|
||||||
-- MPTEST.PER_NODE_CONFIGURATION / SPECIFICATION
|
|
||||||
--
|
|
||||||
-- DESCRIPTION:
|
|
||||||
--
|
|
||||||
-- This package is the specification for the subpackage
|
|
||||||
-- which will define the per node configuration parameters.
|
|
||||||
--
|
|
||||||
|
|
||||||
package PER_NODE_CONFIGURATION is
|
|
||||||
|
|
||||||
--
|
|
||||||
-- LOCAL_NODE_NUMBER
|
|
||||||
--
|
|
||||||
-- DESCRIPTION:
|
|
||||||
--
|
|
||||||
-- This function returns the node number for this node.
|
|
||||||
--
|
|
||||||
|
|
||||||
function LOCAL_NODE_NUMBER
|
|
||||||
return RTEMS.UNSIGNED32;
|
|
||||||
|
|
||||||
pragma INLINE ( LOCAL_NODE_NUMBER );
|
|
||||||
|
|
||||||
end PER_NODE_CONFIGURATION;
|
|
||||||
|
|
||||||
----------------------------------------------------------------------------
|
|
||||||
----------------------------------------------------------------------------
|
|
||||||
-- END SUBPACKAGE --
|
|
||||||
----------------------------------------------------------------------------
|
|
||||||
----------------------------------------------------------------------------
|
|
||||||
|
|
||||||
--
|
|
||||||
-- This is the Multiprocessor Configuration Table for this test.
|
|
||||||
--
|
|
||||||
|
|
||||||
MULTIPROCESSING_CONFIGURATION : aliased RTEMS.MULTIPROCESSING_TABLE := (
|
|
||||||
MPTEST.PER_NODE_CONFIGURATION.LOCAL_NODE_NUMBER,
|
|
||||||
2, -- maximum # nodes in system
|
|
||||||
32, -- maximum # global objects
|
|
||||||
32 -- maximum # proxies
|
|
||||||
);
|
|
||||||
|
|
||||||
--
|
|
||||||
-- This is the Configuration Table for this test.
|
|
||||||
--
|
|
||||||
|
|
||||||
CONFIGURATION : aliased RTEMS.CONFIGURATION_TABLE := (
|
|
||||||
RTEMS.NULL_ADDRESS, -- will be replaced by BSP
|
|
||||||
64 * 1024, -- executive RAM size
|
|
||||||
10, -- maximum # tasks
|
|
||||||
1, -- maximum # timers
|
|
||||||
2, -- maximum # semaphores
|
|
||||||
0, -- maximum # message queues
|
|
||||||
0, -- maximum # messages
|
|
||||||
0, -- maximum # partitions
|
|
||||||
0, -- maximum # regions
|
|
||||||
0, -- maximum # dp memory areas
|
|
||||||
0, -- maximum # periods
|
|
||||||
0, -- maximum # user extensions
|
|
||||||
RTEMS.MILLISECONDS_TO_MICROSECONDS(10), -- # us in a tick
|
|
||||||
50 -- # ticks in a timeslice
|
|
||||||
);
|
|
||||||
|
|
||||||
end MPTEST;
|
|
||||||
@@ -1,10 +0,0 @@
|
|||||||
*** TEST 7 -- NODE 1 ***
|
|
||||||
Creating Test_task (Global)
|
|
||||||
Starting Test_task (Global)
|
|
||||||
Deleting initialization task
|
|
||||||
Remote task's name is : 222
|
|
||||||
Getting TID of remote task
|
|
||||||
Sending first event to remote task
|
|
||||||
....................................................
|
|
||||||
....................................................
|
|
||||||
*** END OF TEST 7 ***
|
|
||||||
@@ -1,43 +0,0 @@
|
|||||||
--
|
|
||||||
-- MPTEST.PER_NODE_CONFIGURATION / BODY
|
|
||||||
--
|
|
||||||
-- DESCRIPTION:
|
|
||||||
--
|
|
||||||
-- This package is the specification for the subpackage
|
|
||||||
-- which will define the per node configuration parameters.
|
|
||||||
--
|
|
||||||
-- DEPENDENCIES:
|
|
||||||
--
|
|
||||||
--
|
|
||||||
--
|
|
||||||
-- COPYRIGHT (c) 1989-1997.
|
|
||||||
-- On-Line Applications Research Corporation (OAR).
|
|
||||||
-- Copyright assigned to U.S. Government, 1994.
|
|
||||||
--
|
|
||||||
-- The license and distribution terms for this file may in
|
|
||||||
-- the file LICENSE in this distribution or at
|
|
||||||
-- http://www.OARcorp.com/rtems/license.html.
|
|
||||||
--
|
|
||||||
-- $Id$
|
|
||||||
--
|
|
||||||
|
|
||||||
with RTEMS;
|
|
||||||
|
|
||||||
separate ( MPTEST )
|
|
||||||
|
|
||||||
package body PER_NODE_CONFIGURATION is
|
|
||||||
|
|
||||||
--PAGE
|
|
||||||
--
|
|
||||||
-- LOCAL_NODE_NUMBER
|
|
||||||
--
|
|
||||||
|
|
||||||
function LOCAL_NODE_NUMBER
|
|
||||||
return RTEMS.UNSIGNED32 is
|
|
||||||
begin
|
|
||||||
|
|
||||||
return 1;
|
|
||||||
|
|
||||||
end LOCAL_NODE_NUMBER;
|
|
||||||
|
|
||||||
end PER_NODE_CONFIGURATION;
|
|
||||||
@@ -1,9 +0,0 @@
|
|||||||
*** TEST 7 -- NODE 2 ***
|
|
||||||
Creating Test_task (Global)
|
|
||||||
Starting Test_task (Global)
|
|
||||||
Deleting initialization task
|
|
||||||
Remote task's name is : 111
|
|
||||||
Getting TID of remote task
|
|
||||||
....................................................
|
|
||||||
....................................................
|
|
||||||
*** END OF TEST 7 ***
|
|
||||||
@@ -1,43 +0,0 @@
|
|||||||
--
|
|
||||||
-- MPTEST.PER_NODE_CONFIGURATION / BODY
|
|
||||||
--
|
|
||||||
-- DESCRIPTION:
|
|
||||||
--
|
|
||||||
-- This package is the specification for the subpackage
|
|
||||||
-- which will define the per node configuration parameters.
|
|
||||||
--
|
|
||||||
-- DEPENDENCIES:
|
|
||||||
--
|
|
||||||
--
|
|
||||||
--
|
|
||||||
-- COPYRIGHT (c) 1989-1997.
|
|
||||||
-- On-Line Applications Research Corporation (OAR).
|
|
||||||
-- Copyright assigned to U.S. Government, 1994.
|
|
||||||
--
|
|
||||||
-- The license and distribution terms for this file may in
|
|
||||||
-- the file LICENSE in this distribution or at
|
|
||||||
-- http://www.OARcorp.com/rtems/license.html.
|
|
||||||
--
|
|
||||||
-- $Id$
|
|
||||||
--
|
|
||||||
|
|
||||||
with RTEMS;
|
|
||||||
|
|
||||||
separate ( MPTEST )
|
|
||||||
|
|
||||||
package body PER_NODE_CONFIGURATION is
|
|
||||||
|
|
||||||
--PAGE
|
|
||||||
--
|
|
||||||
-- LOCAL_NODE_NUMBER
|
|
||||||
--
|
|
||||||
|
|
||||||
function LOCAL_NODE_NUMBER
|
|
||||||
return RTEMS.UNSIGNED32 is
|
|
||||||
begin
|
|
||||||
|
|
||||||
return 2;
|
|
||||||
|
|
||||||
end LOCAL_NODE_NUMBER;
|
|
||||||
|
|
||||||
end PER_NODE_CONFIGURATION;
|
|
||||||
@@ -1,207 +0,0 @@
|
|||||||
--
|
|
||||||
-- MPTEST / BODY
|
|
||||||
--
|
|
||||||
-- DESCRIPTION:
|
|
||||||
--
|
|
||||||
-- This package is the implementation for Test 8 of the RTEMS
|
|
||||||
-- Multiprocessor Test Suite.
|
|
||||||
--
|
|
||||||
-- DEPENDENCIES:
|
|
||||||
--
|
|
||||||
--
|
|
||||||
--
|
|
||||||
-- COPYRIGHT (c) 1989-1997.
|
|
||||||
-- On-Line Applications Research Corporation (OAR).
|
|
||||||
-- Copyright assigned to U.S. Government, 1994.
|
|
||||||
--
|
|
||||||
-- The license and distribution terms for this file may in
|
|
||||||
-- the file LICENSE in this distribution or at
|
|
||||||
-- http://www.OARcorp.com/rtems/license.html.
|
|
||||||
--
|
|
||||||
-- $Id$
|
|
||||||
--
|
|
||||||
|
|
||||||
with INTERFACES; use INTERFACES;
|
|
||||||
with RTEMS;
|
|
||||||
with TEST_SUPPORT;
|
|
||||||
with TEXT_IO;
|
|
||||||
with UNSIGNED32_IO;
|
|
||||||
|
|
||||||
package body MPTEST is
|
|
||||||
|
|
||||||
package body PER_NODE_CONFIGURATION is separate;
|
|
||||||
|
|
||||||
--PAGE
|
|
||||||
--
|
|
||||||
-- INIT
|
|
||||||
--
|
|
||||||
|
|
||||||
procedure INIT (
|
|
||||||
ARGUMENT : in RTEMS.TASK_ARGUMENT
|
|
||||||
) is
|
|
||||||
STATUS : RTEMS.STATUS_CODES;
|
|
||||||
begin
|
|
||||||
|
|
||||||
TEXT_IO.NEW_LINE( 2 );
|
|
||||||
TEXT_IO.PUT( "*** TEST 8 -- NODE " );
|
|
||||||
UNSIGNED32_IO.PUT(
|
|
||||||
MPTEST.MULTIPROCESSING_CONFIGURATION.NODE,
|
|
||||||
WIDTH => 1
|
|
||||||
);
|
|
||||||
TEXT_IO.PUT_LINE( " ***" );
|
|
||||||
|
|
||||||
MPTEST.TASK_NAME( 1 ) := RTEMS.BUILD_NAME( '1', '1', '1', ' ' );
|
|
||||||
MPTEST.TASK_NAME( 2 ) := RTEMS.BUILD_NAME( '2', '2', '2', ' ' );
|
|
||||||
|
|
||||||
MPTEST.SEMAPHORE_NAME( 1 ) := RTEMS.BUILD_NAME( 'S', 'E', 'M', ' ' );
|
|
||||||
|
|
||||||
if MPTEST.MULTIPROCESSING_CONFIGURATION.NODE = 1 then
|
|
||||||
|
|
||||||
TEXT_IO.PUT_LINE( "Creating Semaphore(Global)" );
|
|
||||||
|
|
||||||
RTEMS.SEMAPHORE_CREATE(
|
|
||||||
MPTEST.SEMAPHORE_NAME( 1 ),
|
|
||||||
1,
|
|
||||||
RTEMS.GLOBAL,
|
|
||||||
MPTEST.SEMAPHORE_ID( 1 ),
|
|
||||||
STATUS
|
|
||||||
);
|
|
||||||
TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "SEMAPHORE_CREATE" );
|
|
||||||
|
|
||||||
end if;
|
|
||||||
|
|
||||||
TEXT_IO.PUT_LINE( "Creating Test_task (Global)" );
|
|
||||||
RTEMS.TASK_CREATE(
|
|
||||||
MPTEST.TASK_NAME( MPTEST.MULTIPROCESSING_CONFIGURATION.NODE ),
|
|
||||||
MPTEST.MULTIPROCESSING_CONFIGURATION.NODE,
|
|
||||||
2048,
|
|
||||||
RTEMS.TIMESLICE,
|
|
||||||
RTEMS.GLOBAL,
|
|
||||||
MPTEST.TASK_ID( 1 ),
|
|
||||||
STATUS
|
|
||||||
);
|
|
||||||
TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "TASK_CREATE" );
|
|
||||||
|
|
||||||
TEXT_IO.PUT_LINE( "Starting Test_task (Global)" );
|
|
||||||
RTEMS.TASK_START(
|
|
||||||
MPTEST.TASK_ID( 1 ),
|
|
||||||
MPTEST.TEST_TASK'ACCESS,
|
|
||||||
0,
|
|
||||||
STATUS
|
|
||||||
);
|
|
||||||
TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "TASK_START" );
|
|
||||||
|
|
||||||
TEXT_IO.PUT_LINE( "Deleting initialization task" );
|
|
||||||
RTEMS.TASK_DELETE( RTEMS.SELF, STATUS );
|
|
||||||
TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "TASK_DELETE OF SELF" );
|
|
||||||
|
|
||||||
end INIT;
|
|
||||||
|
|
||||||
--PAGE
|
|
||||||
--
|
|
||||||
-- TEST_TASK
|
|
||||||
--
|
|
||||||
|
|
||||||
procedure TEST_TASK (
|
|
||||||
ARGUMENT : in RTEMS.TASK_ARGUMENT
|
|
||||||
) is
|
|
||||||
DOTS : RTEMS.UNSIGNED32;
|
|
||||||
COUNT : RTEMS.UNSIGNED32;
|
|
||||||
STATUS : RTEMS.STATUS_CODES;
|
|
||||||
begin
|
|
||||||
|
|
||||||
TEXT_IO.PUT_LINE( "Getting SMID of semaphore" );
|
|
||||||
loop
|
|
||||||
|
|
||||||
RTEMS.SEMAPHORE_IDENT(
|
|
||||||
MPTEST.SEMAPHORE_NAME( 1 ),
|
|
||||||
RTEMS.SEARCH_ALL_NODES,
|
|
||||||
MPTEST.SEMAPHORE_ID( 1 ),
|
|
||||||
STATUS
|
|
||||||
);
|
|
||||||
|
|
||||||
exit when RTEMS.IS_STATUS_SUCCESSFUL( STATUS );
|
|
||||||
|
|
||||||
end loop;
|
|
||||||
|
|
||||||
if MPTEST.MULTIPROCESSING_CONFIGURATION.NODE = 2 then
|
|
||||||
|
|
||||||
RTEMS.SEMAPHORE_DELETE(
|
|
||||||
MPTEST.SEMAPHORE_ID( 1 ),
|
|
||||||
STATUS
|
|
||||||
);
|
|
||||||
TEST_SUPPORT.FATAL_DIRECTIVE_STATUS(
|
|
||||||
STATUS,
|
|
||||||
RTEMS.ILLEGAL_ON_REMOTE_OBJECT,
|
|
||||||
"SEMAPHORE_DELETE"
|
|
||||||
);
|
|
||||||
|
|
||||||
TEXT_IO.PUT_LINE(
|
|
||||||
"semaphore_delete correctly returned ILLEGAL_ON_REMOTE_OBJECT"
|
|
||||||
);
|
|
||||||
|
|
||||||
end if;
|
|
||||||
|
|
||||||
COUNT := 0;
|
|
||||||
|
|
||||||
loop
|
|
||||||
|
|
||||||
TEST_SUPPORT.PUT_DOT( "p" );
|
|
||||||
|
|
||||||
RTEMS.SEMAPHORE_OBTAIN(
|
|
||||||
MPTEST.SEMAPHORE_ID( 1 ),
|
|
||||||
RTEMS.DEFAULT_OPTIONS,
|
|
||||||
RTEMS.NO_TIMEOUT,
|
|
||||||
STATUS
|
|
||||||
);
|
|
||||||
|
|
||||||
if not RTEMS.IS_STATUS_SUCCESSFUL( STATUS ) then
|
|
||||||
|
|
||||||
TEST_SUPPORT.FATAL_DIRECTIVE_STATUS(
|
|
||||||
STATUS,
|
|
||||||
RTEMS.OBJECT_WAS_DELETED,
|
|
||||||
"SEMAPHORE_OBTAIN"
|
|
||||||
);
|
|
||||||
|
|
||||||
TEXT_IO.NEW_LINE;
|
|
||||||
|
|
||||||
TEXT_IO.PUT_LINE( "Global semaphore deleted" );
|
|
||||||
|
|
||||||
TEXT_IO.PUT_LINE( "*** END OF TEST 8 ***" );
|
|
||||||
|
|
||||||
RTEMS.SHUTDOWN_EXECUTIVE( 0 );
|
|
||||||
|
|
||||||
end if;
|
|
||||||
|
|
||||||
COUNT := COUNT + 1;
|
|
||||||
|
|
||||||
if MPTEST.MULTIPROCESSING_CONFIGURATION.NODE = 1 and then
|
|
||||||
COUNT >= 1000 then
|
|
||||||
|
|
||||||
RTEMS.TASK_WAKE_AFTER( TEST_SUPPORT.TICKS_PER_SECOND, STATUS );
|
|
||||||
TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "TASK_WAKE_AFTER" );
|
|
||||||
|
|
||||||
TEXT_IO.NEW_LINE;
|
|
||||||
|
|
||||||
TEXT_IO.PUT_LINE( "Deleting global semaphore" );
|
|
||||||
|
|
||||||
RTEMS.SEMAPHORE_DELETE( MPTEST.SEMAPHORE_ID( 1 ), STATUS );
|
|
||||||
TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "SEMAPHORE_DELETE" );
|
|
||||||
|
|
||||||
TEXT_IO.PUT_LINE( "*** END OF TEST 8 ***" );
|
|
||||||
|
|
||||||
RTEMS.SHUTDOWN_EXECUTIVE( 0 );
|
|
||||||
|
|
||||||
end if;
|
|
||||||
|
|
||||||
TEST_SUPPORT.PUT_DOT( "v" );
|
|
||||||
|
|
||||||
RTEMS.SEMAPHORE_RELEASE( MPTEST.SEMAPHORE_ID( 1 ), STATUS );
|
|
||||||
|
|
||||||
TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "SEMAPHORE_RELEASE" );
|
|
||||||
|
|
||||||
end loop;
|
|
||||||
|
|
||||||
end TEST_TASK;
|
|
||||||
|
|
||||||
end MPTEST;
|
|
||||||
@@ -1,192 +0,0 @@
|
|||||||
--
|
|
||||||
-- MPTEST / SPECIFICATION
|
|
||||||
--
|
|
||||||
-- DESCRIPTION:
|
|
||||||
--
|
|
||||||
-- This package is the specification for Test 8 of the RTEMS
|
|
||||||
-- Multiprocessor Test Suite.
|
|
||||||
--
|
|
||||||
-- DEPENDENCIES:
|
|
||||||
--
|
|
||||||
--
|
|
||||||
--
|
|
||||||
-- COPYRIGHT (c) 1989-1997.
|
|
||||||
-- On-Line Applications Research Corporation (OAR).
|
|
||||||
-- Copyright assigned to U.S. Government, 1994.
|
|
||||||
--
|
|
||||||
-- The license and distribution terms for this file may in
|
|
||||||
-- the file LICENSE in this distribution or at
|
|
||||||
-- http://www.OARcorp.com/rtems/license.html.
|
|
||||||
--
|
|
||||||
-- $Id$
|
|
||||||
--
|
|
||||||
|
|
||||||
with BSP_MPCI;
|
|
||||||
with RTEMS;
|
|
||||||
|
|
||||||
package MPTEST is
|
|
||||||
|
|
||||||
--
|
|
||||||
-- These arrays contain the IDs and NAMEs of all RTEMS tasks created
|
|
||||||
-- by this test.
|
|
||||||
--
|
|
||||||
|
|
||||||
TASK_ID : array ( RTEMS.UNSIGNED32 range 1 .. 3 ) of RTEMS.ID;
|
|
||||||
TASK_NAME : array ( RTEMS.UNSIGNED32 range 1 .. 3 ) of RTEMS.NAME;
|
|
||||||
|
|
||||||
--
|
|
||||||
-- These arrays contain the IDs and NAMEs of all RTEMS semaphores created
|
|
||||||
-- by this test.
|
|
||||||
--
|
|
||||||
|
|
||||||
SEMAPHORE_ID : array ( RTEMS.UNSIGNED32 range 1 .. 2 ) of RTEMS.ID;
|
|
||||||
SEMAPHORE_NAME : array ( RTEMS.UNSIGNED32 range 1 .. 2 ) of RTEMS.NAME;
|
|
||||||
|
|
||||||
--
|
|
||||||
-- This variable contains the ID of the remote task with which this
|
|
||||||
-- test interacts.
|
|
||||||
--
|
|
||||||
|
|
||||||
REMOTE_TID : RTEMS.ID;
|
|
||||||
|
|
||||||
--
|
|
||||||
-- This variable contains the node on which the remote task with which
|
|
||||||
-- this test interacts resides.
|
|
||||||
--
|
|
||||||
|
|
||||||
REMOTE_NODE : RTEMS.UNSIGNED32;
|
|
||||||
|
|
||||||
--
|
|
||||||
-- The number of events to process per dot printed out.
|
|
||||||
--
|
|
||||||
|
|
||||||
PER_DOT : constant RTEMS.UNSIGNED32 := 100;
|
|
||||||
|
|
||||||
--
|
|
||||||
-- INIT
|
|
||||||
--
|
|
||||||
-- DESCRIPTION:
|
|
||||||
--
|
|
||||||
-- This RTEMS task initializes the application.
|
|
||||||
--
|
|
||||||
|
|
||||||
procedure INIT (
|
|
||||||
ARGUMENT : in RTEMS.TASK_ARGUMENT
|
|
||||||
);
|
|
||||||
|
|
||||||
--
|
|
||||||
-- TEST_TASK
|
|
||||||
--
|
|
||||||
-- DESCRIPTION:
|
|
||||||
--
|
|
||||||
-- This is the body of the RTEMS tasks which constitute this test.
|
|
||||||
--
|
|
||||||
|
|
||||||
procedure TEST_TASK (
|
|
||||||
ARGUMENT : in RTEMS.TASK_ARGUMENT
|
|
||||||
);
|
|
||||||
|
|
||||||
--
|
|
||||||
-- This is the Driver Address Table for this test.
|
|
||||||
--
|
|
||||||
|
|
||||||
DEVICE_DRIVERS : aliased RTEMS.DRIVER_ADDRESS_TABLE( 1 .. 1 ) :=
|
|
||||||
(1=>
|
|
||||||
(
|
|
||||||
CLOCK_DRIVER.INITIALIZE'ACCESS, -- Initialization
|
|
||||||
RTEMS.NO_DRIVER_ENTRY, -- Open
|
|
||||||
RTEMS.NO_DRIVER_ENTRY, -- Close
|
|
||||||
RTEMS.NO_DRIVER_ENTRY, -- Read
|
|
||||||
RTEMS.NO_DRIVER_ENTRY, -- Write
|
|
||||||
RTEMS.NO_DRIVER_ENTRY -- Control
|
|
||||||
)
|
|
||||||
);
|
|
||||||
|
|
||||||
--
|
|
||||||
-- This is the Initialization Tasks Table for this test.
|
|
||||||
--
|
|
||||||
|
|
||||||
INITIALIZATION_TASKS : aliased RTEMS.INITIALIZATION_TASKS_TABLE( 1 .. 1 ) :=
|
|
||||||
(1=>
|
|
||||||
(
|
|
||||||
RTEMS.BUILD_NAME( 'U', 'I', '1', ' ' ), -- task name
|
|
||||||
2048, -- stack size
|
|
||||||
1, -- priority
|
|
||||||
RTEMS.DEFAULT_ATTRIBUTES, -- attributes
|
|
||||||
MPTEST.INIT'ACCESS, -- entry point
|
|
||||||
RTEMS.NO_PREEMPT, -- initial mode
|
|
||||||
0 -- argument list
|
|
||||||
)
|
|
||||||
);
|
|
||||||
|
|
||||||
----------------------------------------------------------------------------
|
|
||||||
----------------------------------------------------------------------------
|
|
||||||
-- BEGIN SUBPACKAGE --
|
|
||||||
----------------------------------------------------------------------------
|
|
||||||
----------------------------------------------------------------------------
|
|
||||||
|
|
||||||
--
|
|
||||||
-- MPTEST.PER_NODE_CONFIGURATION / SPECIFICATION
|
|
||||||
--
|
|
||||||
-- DESCRIPTION:
|
|
||||||
--
|
|
||||||
-- This package is the specification for the subpackage
|
|
||||||
-- which will define the per node configuration parameters.
|
|
||||||
--
|
|
||||||
|
|
||||||
package PER_NODE_CONFIGURATION is
|
|
||||||
|
|
||||||
--
|
|
||||||
-- LOCAL_NODE_NUMBER
|
|
||||||
--
|
|
||||||
-- DESCRIPTION:
|
|
||||||
--
|
|
||||||
-- This function returns the node number for this node.
|
|
||||||
--
|
|
||||||
|
|
||||||
function LOCAL_NODE_NUMBER
|
|
||||||
return RTEMS.UNSIGNED32;
|
|
||||||
|
|
||||||
pragma INLINE ( LOCAL_NODE_NUMBER );
|
|
||||||
|
|
||||||
end PER_NODE_CONFIGURATION;
|
|
||||||
|
|
||||||
----------------------------------------------------------------------------
|
|
||||||
----------------------------------------------------------------------------
|
|
||||||
-- END SUBPACKAGE --
|
|
||||||
----------------------------------------------------------------------------
|
|
||||||
----------------------------------------------------------------------------
|
|
||||||
|
|
||||||
--
|
|
||||||
-- This is the Multiprocessor Configuration Table for this test.
|
|
||||||
--
|
|
||||||
|
|
||||||
MULTIPROCESSING_CONFIGURATION : aliased RTEMS.MULTIPROCESSING_TABLE := (
|
|
||||||
MPTEST.PER_NODE_CONFIGURATION.LOCAL_NODE_NUMBER,
|
|
||||||
2, -- maximum # nodes in system
|
|
||||||
32, -- maximum # global objects
|
|
||||||
32 -- maximum # proxies
|
|
||||||
);
|
|
||||||
|
|
||||||
--
|
|
||||||
-- This is the Configuration Table for this test.
|
|
||||||
--
|
|
||||||
|
|
||||||
CONFIGURATION : aliased RTEMS.CONFIGURATION_TABLE := (
|
|
||||||
RTEMS.NULL_ADDRESS, -- will be replaced by BSP
|
|
||||||
64 * 1024, -- executive RAM size
|
|
||||||
10, -- maximum # tasks
|
|
||||||
1, -- maximum # timers
|
|
||||||
1, -- maximum # semaphores
|
|
||||||
0, -- maximum # message queues
|
|
||||||
0, -- maximum # messages
|
|
||||||
0, -- maximum # partitions
|
|
||||||
0, -- maximum # regions
|
|
||||||
0, -- maximum # dp memory areas
|
|
||||||
0, -- maximum # periods
|
|
||||||
0, -- maximum # user extensions
|
|
||||||
RTEMS.MILLISECONDS_TO_MICROSECONDS(10), -- # us in a tick
|
|
||||||
50 -- # ticks in a timeslice
|
|
||||||
);
|
|
||||||
|
|
||||||
end MPTEST;
|
|
||||||
@@ -1,9 +0,0 @@
|
|||||||
*** TEST 8 -- NODE 1 ***
|
|
||||||
Creating Test_task (Global)
|
|
||||||
Starting Test_task (Global)
|
|
||||||
Deleting initialization task
|
|
||||||
Getting SMID of semaphore
|
|
||||||
pvpvpvpvpvp.......
|
|
||||||
(continued) pvp
|
|
||||||
Deleting global semaphore
|
|
||||||
*** END OF TEST 8 ***
|
|
||||||
@@ -1,43 +0,0 @@
|
|||||||
--
|
|
||||||
-- MPTEST.PER_NODE_CONFIGURATION / BODY
|
|
||||||
--
|
|
||||||
-- DESCRIPTION:
|
|
||||||
--
|
|
||||||
-- This package is the specification for the subpackage
|
|
||||||
-- which will define the per node configuration parameters.
|
|
||||||
--
|
|
||||||
-- DEPENDENCIES:
|
|
||||||
--
|
|
||||||
--
|
|
||||||
--
|
|
||||||
-- COPYRIGHT (c) 1989-1997.
|
|
||||||
-- On-Line Applications Research Corporation (OAR).
|
|
||||||
-- Copyright assigned to U.S. Government, 1994.
|
|
||||||
--
|
|
||||||
-- The license and distribution terms for this file may in
|
|
||||||
-- the file LICENSE in this distribution or at
|
|
||||||
-- http://www.OARcorp.com/rtems/license.html.
|
|
||||||
--
|
|
||||||
-- $Id$
|
|
||||||
--
|
|
||||||
|
|
||||||
with RTEMS;
|
|
||||||
|
|
||||||
separate ( MPTEST )
|
|
||||||
|
|
||||||
package body PER_NODE_CONFIGURATION is
|
|
||||||
|
|
||||||
--PAGE
|
|
||||||
--
|
|
||||||
-- LOCAL_NODE_NUMBER
|
|
||||||
--
|
|
||||||
|
|
||||||
function LOCAL_NODE_NUMBER
|
|
||||||
return RTEMS.UNSIGNED32 is
|
|
||||||
begin
|
|
||||||
|
|
||||||
return 1;
|
|
||||||
|
|
||||||
end LOCAL_NODE_NUMBER;
|
|
||||||
|
|
||||||
end PER_NODE_CONFIGURATION;
|
|
||||||
@@ -1,10 +0,0 @@
|
|||||||
*** TEST 8 -- NODE 2 ***
|
|
||||||
Creating Test_task (Global)
|
|
||||||
Starting Test_task (Global)
|
|
||||||
Deleting initialization task
|
|
||||||
Getting SMID of semaphore
|
|
||||||
semaphore_delete correctly returned ILLEGAL_ON_REMOTE_OBJECT
|
|
||||||
pvpvpvpvpvp.......
|
|
||||||
(continued) pvp
|
|
||||||
Global semaphore deleted
|
|
||||||
*** END OF TEST 8 ***
|
|
||||||
@@ -1,43 +0,0 @@
|
|||||||
--
|
|
||||||
-- MPTEST.PER_NODE_CONFIGURATION / BODY
|
|
||||||
--
|
|
||||||
-- DESCRIPTION:
|
|
||||||
--
|
|
||||||
-- This package is the specification for the subpackage
|
|
||||||
-- which will define the per node configuration parameters.
|
|
||||||
--
|
|
||||||
-- DEPENDENCIES:
|
|
||||||
--
|
|
||||||
--
|
|
||||||
--
|
|
||||||
-- COPYRIGHT (c) 1989-1997.
|
|
||||||
-- On-Line Applications Research Corporation (OAR).
|
|
||||||
-- Copyright assigned to U.S. Government, 1994.
|
|
||||||
--
|
|
||||||
-- The license and distribution terms for this file may in
|
|
||||||
-- the file LICENSE in this distribution or at
|
|
||||||
-- http://www.OARcorp.com/rtems/license.html.
|
|
||||||
--
|
|
||||||
-- $Id$
|
|
||||||
--
|
|
||||||
|
|
||||||
with RTEMS;
|
|
||||||
|
|
||||||
separate ( MPTEST )
|
|
||||||
|
|
||||||
package body PER_NODE_CONFIGURATION is
|
|
||||||
|
|
||||||
--PAGE
|
|
||||||
--
|
|
||||||
-- LOCAL_NODE_NUMBER
|
|
||||||
--
|
|
||||||
|
|
||||||
function LOCAL_NODE_NUMBER
|
|
||||||
return RTEMS.UNSIGNED32 is
|
|
||||||
begin
|
|
||||||
|
|
||||||
return 2;
|
|
||||||
|
|
||||||
end LOCAL_NODE_NUMBER;
|
|
||||||
|
|
||||||
end PER_NODE_CONFIGURATION;
|
|
||||||
@@ -1,381 +0,0 @@
|
|||||||
--
|
|
||||||
-- MPTEST / BODY
|
|
||||||
--
|
|
||||||
-- DESCRIPTION:
|
|
||||||
--
|
|
||||||
-- This package is the implementation for Test 9 of the RTEMS
|
|
||||||
-- Multiprocessor Test Suite.
|
|
||||||
--
|
|
||||||
-- DEPENDENCIES:
|
|
||||||
--
|
|
||||||
--
|
|
||||||
--
|
|
||||||
-- COPYRIGHT (c) 1989-1997.
|
|
||||||
-- On-Line Applications Research Corporation (OAR).
|
|
||||||
-- Copyright assigned to U.S. Government, 1994.
|
|
||||||
--
|
|
||||||
-- The license and distribution terms for this file may in
|
|
||||||
-- the file LICENSE in this distribution or at
|
|
||||||
-- http://www.OARcorp.com/rtems/license.html.
|
|
||||||
--
|
|
||||||
-- $Id$
|
|
||||||
--
|
|
||||||
|
|
||||||
with INTERFACES; use INTERFACES;
|
|
||||||
with RTEMS;
|
|
||||||
with TEST_SUPPORT;
|
|
||||||
with TEXT_IO;
|
|
||||||
with UNSIGNED32_IO;
|
|
||||||
|
|
||||||
package body MPTEST is
|
|
||||||
|
|
||||||
package body PER_NODE_CONFIGURATION is separate;
|
|
||||||
|
|
||||||
--PAGE
|
|
||||||
--
|
|
||||||
-- INIT
|
|
||||||
--
|
|
||||||
|
|
||||||
procedure INIT (
|
|
||||||
ARGUMENT : in RTEMS.TASK_ARGUMENT
|
|
||||||
) is
|
|
||||||
STATUS : RTEMS.STATUS_CODES;
|
|
||||||
begin
|
|
||||||
|
|
||||||
TEXT_IO.NEW_LINE( 2 );
|
|
||||||
TEXT_IO.PUT( "*** TEST 9 -- NODE " );
|
|
||||||
UNSIGNED32_IO.PUT(
|
|
||||||
MPTEST.MULTIPROCESSING_CONFIGURATION.NODE,
|
|
||||||
WIDTH => 1
|
|
||||||
);
|
|
||||||
TEXT_IO.PUT_LINE( " ***" );
|
|
||||||
|
|
||||||
MPTEST.RECEIVE_BUFFER :=
|
|
||||||
RTEMS.TO_BUFFER_POINTER( MPTEST.RECEIVE_BUFFER_AREA'ADDRESS );
|
|
||||||
|
|
||||||
MPTEST.BUFFER_1 :=
|
|
||||||
RTEMS.TO_BUFFER_POINTER( MPTEST.BUFFER_AREA_1'ADDRESS );
|
|
||||||
|
|
||||||
MPTEST.BUFFER_2 :=
|
|
||||||
RTEMS.TO_BUFFER_POINTER( MPTEST.BUFFER_AREA_2'ADDRESS );
|
|
||||||
|
|
||||||
MPTEST.BUFFER_3 :=
|
|
||||||
RTEMS.TO_BUFFER_POINTER( MPTEST.BUFFER_AREA_3'ADDRESS );
|
|
||||||
|
|
||||||
MPTEST.BUFFER_4 :=
|
|
||||||
RTEMS.TO_BUFFER_POINTER( MPTEST.BUFFER_AREA_4'ADDRESS );
|
|
||||||
|
|
||||||
MPTEST.FILL_BUFFER( "123456789012345 ", MPTEST.BUFFER_AREA_1 );
|
|
||||||
MPTEST.FILL_BUFFER( "abcdefghijklmno ", MPTEST.BUFFER_AREA_2 );
|
|
||||||
MPTEST.FILL_BUFFER( "ABCDEFGHIJKLMNO ", MPTEST.BUFFER_AREA_3 );
|
|
||||||
MPTEST.FILL_BUFFER( "PQRSTUVWXYZ(){} ", MPTEST.BUFFER_AREA_4 );
|
|
||||||
|
|
||||||
MPTEST.TASK_NAME( 1 ) := RTEMS.BUILD_NAME( '1', '1', '1', ' ' );
|
|
||||||
MPTEST.TASK_NAME( 2 ) := RTEMS.BUILD_NAME( '2', '2', '2', ' ' );
|
|
||||||
|
|
||||||
MPTEST.QUEUE_NAME( 1 ) := RTEMS.BUILD_NAME( 'M', 'S', 'G', ' ' );
|
|
||||||
|
|
||||||
if MPTEST.MULTIPROCESSING_CONFIGURATION.NODE = 1 then
|
|
||||||
|
|
||||||
TEXT_IO.PUT_LINE( "Creating Message Queue (Global)" );
|
|
||||||
RTEMS.MESSAGE_QUEUE_CREATE(
|
|
||||||
MPTEST.QUEUE_NAME( 1 ),
|
|
||||||
3,
|
|
||||||
RTEMS.GLOBAL + RTEMS.LIMIT,
|
|
||||||
MPTEST.QUEUE_ID( 1 ),
|
|
||||||
STATUS
|
|
||||||
);
|
|
||||||
TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "MESSAGE_QUEUE_CREATE" );
|
|
||||||
|
|
||||||
end if;
|
|
||||||
|
|
||||||
TEXT_IO.PUT_LINE( "Creating Test_task (local)" );
|
|
||||||
RTEMS.TASK_CREATE(
|
|
||||||
MPTEST.TASK_NAME( MPTEST.MULTIPROCESSING_CONFIGURATION.NODE ),
|
|
||||||
MPTEST.MULTIPROCESSING_CONFIGURATION.NODE,
|
|
||||||
2048,
|
|
||||||
RTEMS.TIMESLICE,
|
|
||||||
RTEMS.DEFAULT_ATTRIBUTES,
|
|
||||||
MPTEST.TASK_ID( 1 ),
|
|
||||||
STATUS
|
|
||||||
);
|
|
||||||
TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "TASK_CREATE" );
|
|
||||||
|
|
||||||
TEXT_IO.PUT_LINE( "Starting Test_task (local)" );
|
|
||||||
RTEMS.TASK_START(
|
|
||||||
MPTEST.TASK_ID( 1 ),
|
|
||||||
MPTEST.TEST_TASK'ACCESS,
|
|
||||||
0,
|
|
||||||
STATUS
|
|
||||||
);
|
|
||||||
TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "TASK_START" );
|
|
||||||
|
|
||||||
TEXT_IO.PUT_LINE( "Deleting initialization task" );
|
|
||||||
RTEMS.TASK_DELETE( RTEMS.SELF, STATUS );
|
|
||||||
TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "TASK_DELETE OF SELF" );
|
|
||||||
|
|
||||||
end INIT;
|
|
||||||
|
|
||||||
--PAGE
|
|
||||||
--
|
|
||||||
-- SEND_MESSAGES
|
|
||||||
--
|
|
||||||
|
|
||||||
procedure SEND_MESSAGES is
|
|
||||||
BROADCAST_COUNT : RTEMS.UNSIGNED32;
|
|
||||||
STATUS : RTEMS.STATUS_CODES;
|
|
||||||
begin
|
|
||||||
|
|
||||||
TEXT_IO.PUT( "message_queue_send : " );
|
|
||||||
MPTEST.PUT_BUFFER( MPTEST.BUFFER_AREA_1 );
|
|
||||||
TEXT_IO.NEW_LINE;
|
|
||||||
|
|
||||||
RTEMS.MESSAGE_QUEUE_SEND(
|
|
||||||
MPTEST.QUEUE_ID( 1 ),
|
|
||||||
MPTEST.BUFFER_1,
|
|
||||||
STATUS
|
|
||||||
);
|
|
||||||
TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "MESSAGE_QUEUE_SEND" );
|
|
||||||
|
|
||||||
TEXT_IO.PUT_LINE( "Delaying for a second" );
|
|
||||||
RTEMS.TASK_WAKE_AFTER(
|
|
||||||
1 * TEST_SUPPORT.TICKS_PER_SECOND,
|
|
||||||
STATUS
|
|
||||||
);
|
|
||||||
TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "TASK_WAKE_AFTER" );
|
|
||||||
|
|
||||||
TEXT_IO.PUT( "message_queue_urgent : " );
|
|
||||||
MPTEST.PUT_BUFFER( MPTEST.BUFFER_AREA_2 );
|
|
||||||
TEXT_IO.NEW_LINE;
|
|
||||||
|
|
||||||
RTEMS.MESSAGE_QUEUE_URGENT(
|
|
||||||
MPTEST.QUEUE_ID( 1 ),
|
|
||||||
MPTEST.BUFFER_2,
|
|
||||||
STATUS
|
|
||||||
);
|
|
||||||
TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "MESSAGE_QUEUE_URGENT" );
|
|
||||||
|
|
||||||
TEXT_IO.PUT_LINE( "Delaying for a second" );
|
|
||||||
RTEMS.TASK_WAKE_AFTER(
|
|
||||||
1 * TEST_SUPPORT.TICKS_PER_SECOND,
|
|
||||||
STATUS
|
|
||||||
);
|
|
||||||
TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "TASK_WAKE_AFTER" );
|
|
||||||
|
|
||||||
TEXT_IO.PUT( "message_queue_broadcast : " );
|
|
||||||
MPTEST.PUT_BUFFER( MPTEST.BUFFER_AREA_3 );
|
|
||||||
TEXT_IO.NEW_LINE;
|
|
||||||
|
|
||||||
RTEMS.MESSAGE_QUEUE_BROADCAST(
|
|
||||||
MPTEST.QUEUE_ID( 1 ),
|
|
||||||
MPTEST.BUFFER_3,
|
|
||||||
BROADCAST_COUNT,
|
|
||||||
STATUS
|
|
||||||
);
|
|
||||||
TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "MESSAGE_QUEUE_BROADCAST" );
|
|
||||||
|
|
||||||
TEXT_IO.PUT_LINE( "Delaying for a second" );
|
|
||||||
RTEMS.TASK_WAKE_AFTER(
|
|
||||||
1 * TEST_SUPPORT.TICKS_PER_SECOND,
|
|
||||||
STATUS
|
|
||||||
);
|
|
||||||
TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "TASK_WAKE_AFTER" );
|
|
||||||
|
|
||||||
end SEND_MESSAGES;
|
|
||||||
|
|
||||||
--PAGE
|
|
||||||
--
|
|
||||||
-- RECEIVE_MESSAGES
|
|
||||||
--
|
|
||||||
|
|
||||||
procedure RECEIVE_MESSAGES is
|
|
||||||
INDEX : RTEMS.UNSIGNED32;
|
|
||||||
STATUS : RTEMS.STATUS_CODES;
|
|
||||||
begin
|
|
||||||
|
|
||||||
for INDEX in 1 .. 3
|
|
||||||
loop
|
|
||||||
|
|
||||||
TEXT_IO.PUT_LINE( "Receiving message ..." );
|
|
||||||
RTEMS.MESSAGE_QUEUE_RECEIVE(
|
|
||||||
MPTEST.QUEUE_ID( 1 ),
|
|
||||||
MPTEST.RECEIVE_BUFFER,
|
|
||||||
RTEMS.DEFAULT_OPTIONS,
|
|
||||||
RTEMS.NO_TIMEOUT,
|
|
||||||
STATUS
|
|
||||||
);
|
|
||||||
TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "MESSAGE_QUEUE_RECEIVE" );
|
|
||||||
|
|
||||||
TEXT_IO.PUT( "Received : " );
|
|
||||||
MPTEST.PUT_BUFFER( MPTEST.RECEIVE_BUFFER_AREA );
|
|
||||||
TEXT_IO.NEW_LINE;
|
|
||||||
|
|
||||||
end loop;
|
|
||||||
|
|
||||||
TEXT_IO.PUT_LINE( "Receiver delaying for a second" );
|
|
||||||
|
|
||||||
RTEMS.TASK_WAKE_AFTER( 1 * TEST_SUPPORT.TICKS_PER_SECOND, STATUS );
|
|
||||||
TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "TASK_WAKE_AFTER" );
|
|
||||||
|
|
||||||
end RECEIVE_MESSAGES;
|
|
||||||
|
|
||||||
--PAGE
|
|
||||||
--
|
|
||||||
-- FILL_BUFFER
|
|
||||||
--
|
|
||||||
|
|
||||||
--
|
|
||||||
-- Depends on tricks to make the copy work.
|
|
||||||
--
|
|
||||||
|
|
||||||
procedure FILL_BUFFER (
|
|
||||||
SOURCE : in STRING;
|
|
||||||
BUFFER : out RTEMS.BUFFER
|
|
||||||
) is
|
|
||||||
SOURCE_BUFFER : RTEMS.BUFFER_POINTER;
|
|
||||||
begin
|
|
||||||
|
|
||||||
SOURCE_BUFFER := RTEMS.TO_BUFFER_POINTER(
|
|
||||||
SOURCE( SOURCE'FIRST )'ADDRESS
|
|
||||||
);
|
|
||||||
|
|
||||||
BUFFER.FIELD1 := SOURCE_BUFFER.FIELD1;
|
|
||||||
BUFFER.FIELD2 := SOURCE_BUFFER.FIELD2;
|
|
||||||
BUFFER.FIELD3 := SOURCE_BUFFER.FIELD3;
|
|
||||||
BUFFER.FIELD4 := SOURCE_BUFFER.FIELD4;
|
|
||||||
|
|
||||||
end FILL_BUFFER;
|
|
||||||
|
|
||||||
--PAGE
|
|
||||||
--
|
|
||||||
-- PUT_BUFFER
|
|
||||||
--
|
|
||||||
|
|
||||||
--
|
|
||||||
-- Depends on tricks to make the output work.
|
|
||||||
--
|
|
||||||
|
|
||||||
procedure PUT_BUFFER (
|
|
||||||
BUFFER : in RTEMS.BUFFER
|
|
||||||
) is
|
|
||||||
begin
|
|
||||||
|
|
||||||
TEST_SUPPORT.PUT_NAME( BUFFER.FIELD1, FALSE );
|
|
||||||
TEST_SUPPORT.PUT_NAME( BUFFER.FIELD2, FALSE );
|
|
||||||
TEST_SUPPORT.PUT_NAME( BUFFER.FIELD3, FALSE );
|
|
||||||
TEST_SUPPORT.PUT_NAME( BUFFER.FIELD4, FALSE );
|
|
||||||
|
|
||||||
end PUT_BUFFER;
|
|
||||||
|
|
||||||
--PAGE
|
|
||||||
--
|
|
||||||
-- TEST_TASK
|
|
||||||
--
|
|
||||||
|
|
||||||
procedure TEST_TASK (
|
|
||||||
ARGUMENT : in RTEMS.TASK_ARGUMENT
|
|
||||||
) is
|
|
||||||
COUNT : RTEMS.UNSIGNED32;
|
|
||||||
STATUS : RTEMS.STATUS_CODES;
|
|
||||||
begin
|
|
||||||
|
|
||||||
RTEMS.TASK_WAKE_AFTER( 1 * TEST_SUPPORT.TICKS_PER_SECOND, STATUS );
|
|
||||||
TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "TASK_WAKE_AFTER" );
|
|
||||||
|
|
||||||
TEXT_IO.PUT_LINE( "Getting QID of message queue" );
|
|
||||||
|
|
||||||
loop
|
|
||||||
|
|
||||||
RTEMS.MESSAGE_QUEUE_IDENT(
|
|
||||||
MPTEST.QUEUE_NAME( 1 ),
|
|
||||||
RTEMS.SEARCH_ALL_NODES,
|
|
||||||
MPTEST.QUEUE_ID( 1 ),
|
|
||||||
STATUS
|
|
||||||
);
|
|
||||||
|
|
||||||
exit when RTEMS.IS_STATUS_SUCCESSFUL( STATUS );
|
|
||||||
|
|
||||||
end loop;
|
|
||||||
|
|
||||||
if MPTEST.MULTIPROCESSING_CONFIGURATION.NODE = 2 then
|
|
||||||
|
|
||||||
RTEMS.MESSAGE_QUEUE_DELETE( MPTEST.QUEUE_ID( 1 ), STATUS );
|
|
||||||
|
|
||||||
TEST_SUPPORT.FATAL_DIRECTIVE_STATUS(
|
|
||||||
STATUS,
|
|
||||||
RTEMS.ILLEGAL_ON_REMOTE_OBJECT,
|
|
||||||
"MESSAGE_QUEUE_DELETE"
|
|
||||||
);
|
|
||||||
|
|
||||||
TEXT_IO.PUT_LINE(
|
|
||||||
"message_queue_delete correctly returned ILLEGAL_ON_REMOTE_OBJECT"
|
|
||||||
);
|
|
||||||
|
|
||||||
MPTEST.SEND_MESSAGES;
|
|
||||||
|
|
||||||
MPTEST.RECEIVE_MESSAGES;
|
|
||||||
|
|
||||||
TEXT_IO.PUT_LINE( "Flushing remote empty queue" );
|
|
||||||
RTEMS.MESSAGE_QUEUE_FLUSH( MPTEST.QUEUE_ID( 1 ), COUNT, STATUS );
|
|
||||||
TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "MESSAGE_QUEUE_FLUSH" );
|
|
||||||
UNSIGNED32_IO.PUT( COUNT, WIDTH => 1 );
|
|
||||||
TEXT_IO.PUT_LINE(
|
|
||||||
" messages were flushed from remote empty queue"
|
|
||||||
);
|
|
||||||
|
|
||||||
TEXT_IO.PUT_LINE(
|
|
||||||
"Send messages to be flushed from remote queue"
|
|
||||||
);
|
|
||||||
RTEMS.MESSAGE_QUEUE_SEND(
|
|
||||||
MPTEST.QUEUE_ID( 1 ),
|
|
||||||
MPTEST.BUFFER_1,
|
|
||||||
STATUS
|
|
||||||
);
|
|
||||||
TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "MESSAGE_QUEUE_SEND" );
|
|
||||||
|
|
||||||
TEXT_IO.PUT_LINE( "Flushing remote queue" );
|
|
||||||
RTEMS.MESSAGE_QUEUE_FLUSH( MPTEST.QUEUE_ID( 1 ), COUNT, STATUS );
|
|
||||||
TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "MESSAGE_QUEUE_FLUSH" );
|
|
||||||
UNSIGNED32_IO.PUT( COUNT, WIDTH => 1 );
|
|
||||||
TEXT_IO.PUT_LINE(
|
|
||||||
" messages were flushed from the remote queue"
|
|
||||||
);
|
|
||||||
|
|
||||||
TEXT_IO.PUT_LINE( "Waiting for message queue to be deleted" );
|
|
||||||
RTEMS.MESSAGE_QUEUE_RECEIVE(
|
|
||||||
MPTEST.QUEUE_ID( 1 ),
|
|
||||||
MPTEST.RECEIVE_BUFFER,
|
|
||||||
RTEMS.DEFAULT_OPTIONS,
|
|
||||||
RTEMS.NO_TIMEOUT,
|
|
||||||
STATUS
|
|
||||||
);
|
|
||||||
TEST_SUPPORT.FATAL_DIRECTIVE_STATUS(
|
|
||||||
STATUS,
|
|
||||||
RTEMS.OBJECT_WAS_DELETED,
|
|
||||||
"MESSAGE_QUEUE_FLUSH"
|
|
||||||
);
|
|
||||||
|
|
||||||
else
|
|
||||||
|
|
||||||
MPTEST.RECEIVE_MESSAGES;
|
|
||||||
|
|
||||||
MPTEST.SEND_MESSAGES;
|
|
||||||
|
|
||||||
RTEMS.TASK_WAKE_AFTER(
|
|
||||||
5 * TEST_SUPPORT.TICKS_PER_SECOND,
|
|
||||||
STATUS
|
|
||||||
);
|
|
||||||
TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "TASK_WAKE_AFTER" );
|
|
||||||
|
|
||||||
RTEMS.MESSAGE_QUEUE_DELETE( MPTEST.QUEUE_ID( 1 ), STATUS );
|
|
||||||
TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "MESSAGE_QUEUE_DELETE" );
|
|
||||||
|
|
||||||
end if;
|
|
||||||
|
|
||||||
TEXT_IO.PUT_LINE( "*** END OF TEST 9 ***" );
|
|
||||||
|
|
||||||
RTEMS.SHUTDOWN_EXECUTIVE( 0 );
|
|
||||||
|
|
||||||
end TEST_TASK;
|
|
||||||
|
|
||||||
end MPTEST;
|
|
||||||
@@ -1,254 +0,0 @@
|
|||||||
--
|
|
||||||
-- MPTEST / SPECIFICATION
|
|
||||||
--
|
|
||||||
-- DESCRIPTION:
|
|
||||||
--
|
|
||||||
-- This package is the specification for Test 9 of the RTEMS
|
|
||||||
-- Multiprocessor Test Suite.
|
|
||||||
--
|
|
||||||
-- DEPENDENCIES:
|
|
||||||
--
|
|
||||||
--
|
|
||||||
--
|
|
||||||
-- COPYRIGHT (c) 1989-1997.
|
|
||||||
-- On-Line Applications Research Corporation (OAR).
|
|
||||||
-- Copyright assigned to U.S. Government, 1994.
|
|
||||||
--
|
|
||||||
-- The license and distribution terms for this file may in
|
|
||||||
-- the file LICENSE in this distribution or at
|
|
||||||
-- http://www.OARcorp.com/rtems/license.html.
|
|
||||||
--
|
|
||||||
-- $Id$
|
|
||||||
--
|
|
||||||
|
|
||||||
with BSP_MPCI;
|
|
||||||
with RTEMS;
|
|
||||||
|
|
||||||
package MPTEST is
|
|
||||||
|
|
||||||
--
|
|
||||||
-- These arrays contain the IDs and NAMEs of all RTEMS tasks created
|
|
||||||
-- by this test.
|
|
||||||
--
|
|
||||||
|
|
||||||
TASK_ID : array ( RTEMS.UNSIGNED32 range 1 .. 3 ) of RTEMS.ID;
|
|
||||||
TASK_NAME : array ( RTEMS.UNSIGNED32 range 1 .. 3 ) of RTEMS.NAME;
|
|
||||||
|
|
||||||
--
|
|
||||||
-- These arrays contain the IDs and NAMEs of all RTEMS message
|
|
||||||
-- queues created by this test.
|
|
||||||
--
|
|
||||||
|
|
||||||
QUEUE_ID : array ( RTEMS.UNSIGNED32 range 1 .. 2 ) of RTEMS.ID;
|
|
||||||
QUEUE_NAME : array ( RTEMS.UNSIGNED32 range 1 .. 2 ) of RTEMS.NAME;
|
|
||||||
|
|
||||||
--
|
|
||||||
-- The following are message buffers used to contain the test messages
|
|
||||||
-- and pointers to those buffers.
|
|
||||||
--
|
|
||||||
|
|
||||||
RECEIVE_BUFFER_AREA : RTEMS.BUFFER;
|
|
||||||
BUFFER_AREA_1 : RTEMS.BUFFER;
|
|
||||||
BUFFER_AREA_2 : RTEMS.BUFFER;
|
|
||||||
BUFFER_AREA_3 : RTEMS.BUFFER;
|
|
||||||
BUFFER_AREA_4 : RTEMS.BUFFER;
|
|
||||||
|
|
||||||
RECEIVE_BUFFER : RTEMS.BUFFER_POINTER;
|
|
||||||
BUFFER_1 : RTEMS.BUFFER_POINTER;
|
|
||||||
BUFFER_2 : RTEMS.BUFFER_POINTER;
|
|
||||||
BUFFER_3 : RTEMS.BUFFER_POINTER;
|
|
||||||
BUFFER_4 : RTEMS.BUFFER_POINTER;
|
|
||||||
|
|
||||||
--
|
|
||||||
-- This variable contains the ID of the remote task with which this
|
|
||||||
-- test interacts.
|
|
||||||
--
|
|
||||||
|
|
||||||
REMOTE_TID : RTEMS.ID;
|
|
||||||
|
|
||||||
--
|
|
||||||
-- This variable contains the node on which the remote task with which
|
|
||||||
-- this test interacts resides.
|
|
||||||
--
|
|
||||||
|
|
||||||
REMOTE_NODE : RTEMS.UNSIGNED32;
|
|
||||||
|
|
||||||
--
|
|
||||||
-- The number of events to process per dot printed out.
|
|
||||||
--
|
|
||||||
|
|
||||||
PER_DOT : constant RTEMS.UNSIGNED32 := 100;
|
|
||||||
|
|
||||||
--
|
|
||||||
-- INIT
|
|
||||||
--
|
|
||||||
-- DESCRIPTION:
|
|
||||||
--
|
|
||||||
-- This RTEMS task initializes the application.
|
|
||||||
--
|
|
||||||
|
|
||||||
procedure INIT (
|
|
||||||
ARGUMENT : in RTEMS.TASK_ARGUMENT
|
|
||||||
);
|
|
||||||
|
|
||||||
--
|
|
||||||
-- SEND_MESSAGES
|
|
||||||
--
|
|
||||||
-- This subprogram prints and sends a sequence of three test messages.
|
|
||||||
-- One of the messages is sent, one is urgent, and one is broadcast.
|
|
||||||
-- A one second pause is between each the sending of each message.
|
|
||||||
--
|
|
||||||
|
|
||||||
procedure SEND_MESSAGES;
|
|
||||||
|
|
||||||
--
|
|
||||||
-- RECEIVE_MESSAGES
|
|
||||||
--
|
|
||||||
-- This subprogram receives and prints a sequence of three test messages.
|
|
||||||
--
|
|
||||||
|
|
||||||
procedure RECEIVE_MESSAGES;
|
|
||||||
|
|
||||||
--
|
|
||||||
-- FILL_BUFFER
|
|
||||||
--
|
|
||||||
-- DESCRIPTION:
|
|
||||||
--
|
|
||||||
-- This subprogram takes the SOURCE input string and places
|
|
||||||
-- up to the first sixteen characters of that string into
|
|
||||||
-- the message BUFFER.
|
|
||||||
--
|
|
||||||
|
|
||||||
procedure FILL_BUFFER (
|
|
||||||
SOURCE : in STRING;
|
|
||||||
BUFFER : out RTEMS.BUFFER
|
|
||||||
);
|
|
||||||
|
|
||||||
--
|
|
||||||
-- PUT_BUFFER
|
|
||||||
--
|
|
||||||
-- DESCRIPTION:
|
|
||||||
--
|
|
||||||
-- This subprogram prints the specified message BUFFER.
|
|
||||||
--
|
|
||||||
|
|
||||||
procedure PUT_BUFFER (
|
|
||||||
BUFFER : in RTEMS.BUFFER
|
|
||||||
);
|
|
||||||
|
|
||||||
--
|
|
||||||
-- TEST_TASK
|
|
||||||
--
|
|
||||||
-- DESCRIPTION:
|
|
||||||
--
|
|
||||||
-- This is the body of the RTEMS tasks which constitute this test.
|
|
||||||
--
|
|
||||||
|
|
||||||
procedure TEST_TASK (
|
|
||||||
ARGUMENT : in RTEMS.TASK_ARGUMENT
|
|
||||||
);
|
|
||||||
|
|
||||||
--
|
|
||||||
-- This is the Driver Address Table for this test.
|
|
||||||
--
|
|
||||||
|
|
||||||
DEVICE_DRIVERS : aliased RTEMS.DRIVER_ADDRESS_TABLE( 1 .. 1 ) :=
|
|
||||||
(1=>
|
|
||||||
(
|
|
||||||
CLOCK_DRIVER.INITIALIZE'ACCESS, -- Initialization
|
|
||||||
RTEMS.NO_DRIVER_ENTRY, -- Open
|
|
||||||
RTEMS.NO_DRIVER_ENTRY, -- Close
|
|
||||||
RTEMS.NO_DRIVER_ENTRY, -- Read
|
|
||||||
RTEMS.NO_DRIVER_ENTRY, -- Write
|
|
||||||
RTEMS.NO_DRIVER_ENTRY -- Control
|
|
||||||
)
|
|
||||||
);
|
|
||||||
|
|
||||||
--
|
|
||||||
-- This is the Initialization Tasks Table for this test.
|
|
||||||
--
|
|
||||||
|
|
||||||
INITIALIZATION_TASKS : aliased RTEMS.INITIALIZATION_TASKS_TABLE( 1 .. 1 ) :=
|
|
||||||
(1=>
|
|
||||||
(
|
|
||||||
RTEMS.BUILD_NAME( 'U', 'I', '1', ' ' ), -- task name
|
|
||||||
2048, -- stack size
|
|
||||||
1, -- priority
|
|
||||||
RTEMS.DEFAULT_ATTRIBUTES, -- attributes
|
|
||||||
MPTEST.INIT'ACCESS, -- entry point
|
|
||||||
RTEMS.NO_PREEMPT, -- initial mode
|
|
||||||
0 -- argument list
|
|
||||||
)
|
|
||||||
);
|
|
||||||
|
|
||||||
----------------------------------------------------------------------------
|
|
||||||
----------------------------------------------------------------------------
|
|
||||||
-- BEGIN SUBPACKAGE --
|
|
||||||
----------------------------------------------------------------------------
|
|
||||||
----------------------------------------------------------------------------
|
|
||||||
|
|
||||||
--
|
|
||||||
-- MPTEST.PER_NODE_CONFIGURATION / SPECIFICATION
|
|
||||||
--
|
|
||||||
-- DESCRIPTION:
|
|
||||||
--
|
|
||||||
-- This package is the specification for the subpackage
|
|
||||||
-- which will define the per node configuration parameters.
|
|
||||||
--
|
|
||||||
|
|
||||||
package PER_NODE_CONFIGURATION is
|
|
||||||
|
|
||||||
--
|
|
||||||
-- LOCAL_NODE_NUMBER
|
|
||||||
--
|
|
||||||
-- DESCRIPTION:
|
|
||||||
--
|
|
||||||
-- This function returns the node number for this node.
|
|
||||||
--
|
|
||||||
|
|
||||||
function LOCAL_NODE_NUMBER
|
|
||||||
return RTEMS.UNSIGNED32;
|
|
||||||
|
|
||||||
pragma INLINE ( LOCAL_NODE_NUMBER );
|
|
||||||
|
|
||||||
end PER_NODE_CONFIGURATION;
|
|
||||||
|
|
||||||
----------------------------------------------------------------------------
|
|
||||||
----------------------------------------------------------------------------
|
|
||||||
-- END SUBPACKAGE --
|
|
||||||
----------------------------------------------------------------------------
|
|
||||||
----------------------------------------------------------------------------
|
|
||||||
|
|
||||||
--
|
|
||||||
-- This is the Multiprocessor Configuration Table for this test.
|
|
||||||
--
|
|
||||||
|
|
||||||
MULTIPROCESSING_CONFIGURATION : aliased RTEMS.MULTIPROCESSING_TABLE := (
|
|
||||||
MPTEST.PER_NODE_CONFIGURATION.LOCAL_NODE_NUMBER,
|
|
||||||
2, -- maximum # nodes in system
|
|
||||||
32, -- maximum # global objects
|
|
||||||
32 -- maximum # proxies
|
|
||||||
);
|
|
||||||
|
|
||||||
--
|
|
||||||
-- This is the Configuration Table for this test.
|
|
||||||
--
|
|
||||||
|
|
||||||
CONFIGURATION : aliased RTEMS.CONFIGURATION_TABLE := (
|
|
||||||
RTEMS.NULL_ADDRESS, -- will be replaced by BSP
|
|
||||||
64 * 1024, -- executive RAM size
|
|
||||||
10, -- maximum # tasks
|
|
||||||
0, -- maximum # timers
|
|
||||||
0, -- maximum # semaphores
|
|
||||||
1, -- maximum # message queues
|
|
||||||
1, -- maximum # messages
|
|
||||||
0, -- maximum # partitions
|
|
||||||
0, -- maximum # regions
|
|
||||||
0, -- maximum # dp memory areas
|
|
||||||
0, -- maximum # periods
|
|
||||||
0, -- maximum # user extensions
|
|
||||||
RTEMS.MILLISECONDS_TO_MICROSECONDS(10), -- # us in a tick
|
|
||||||
50 -- # ticks in a timeslice
|
|
||||||
);
|
|
||||||
|
|
||||||
end MPTEST;
|
|
||||||
@@ -1,20 +0,0 @@
|
|||||||
*** TEST 9 -- NODE 1 ***
|
|
||||||
Creating Message Queue (Global)
|
|
||||||
Creating Test_task (local)
|
|
||||||
Starting Test_task (local)
|
|
||||||
Deleting initialization task
|
|
||||||
Getting QID of message queue
|
|
||||||
Receiving message ...
|
|
||||||
Received : 123456789012345
|
|
||||||
Receiving message ...
|
|
||||||
Received : abcdefghijklmno
|
|
||||||
Receiving message ...
|
|
||||||
Received : ABCDEFGHIJKLMNO
|
|
||||||
Receiver delaying for a second
|
|
||||||
message_queue_send : 123456789012345
|
|
||||||
Delaying for a second
|
|
||||||
message_queue_urgent : abcdefghijklmno
|
|
||||||
Delaying for a second
|
|
||||||
message_queue_broadcast : ABCDEFGHIJKLMNO
|
|
||||||
Delaying for a second
|
|
||||||
*** END OF TEST 9 ***
|
|
||||||
@@ -1,43 +0,0 @@
|
|||||||
--
|
|
||||||
-- MPTEST.PER_NODE_CONFIGURATION / BODY
|
|
||||||
--
|
|
||||||
-- DESCRIPTION:
|
|
||||||
--
|
|
||||||
-- This package is the specification for the subpackage
|
|
||||||
-- which will define the per node configuration parameters.
|
|
||||||
--
|
|
||||||
-- DEPENDENCIES:
|
|
||||||
--
|
|
||||||
--
|
|
||||||
--
|
|
||||||
-- COPYRIGHT (c) 1989-1997.
|
|
||||||
-- On-Line Applications Research Corporation (OAR).
|
|
||||||
-- Copyright assigned to U.S. Government, 1994.
|
|
||||||
--
|
|
||||||
-- The license and distribution terms for this file may in
|
|
||||||
-- the file LICENSE in this distribution or at
|
|
||||||
-- http://www.OARcorp.com/rtems/license.html.
|
|
||||||
--
|
|
||||||
-- $Id$
|
|
||||||
--
|
|
||||||
|
|
||||||
with RTEMS;
|
|
||||||
|
|
||||||
separate ( MPTEST )
|
|
||||||
|
|
||||||
package body PER_NODE_CONFIGURATION is
|
|
||||||
|
|
||||||
--PAGE
|
|
||||||
--
|
|
||||||
-- LOCAL_NODE_NUMBER
|
|
||||||
--
|
|
||||||
|
|
||||||
function LOCAL_NODE_NUMBER
|
|
||||||
return RTEMS.UNSIGNED32 is
|
|
||||||
begin
|
|
||||||
|
|
||||||
return 1;
|
|
||||||
|
|
||||||
end LOCAL_NODE_NUMBER;
|
|
||||||
|
|
||||||
end PER_NODE_CONFIGURATION;
|
|
||||||
@@ -1,26 +0,0 @@
|
|||||||
*** TEST 9 -- NODE 2 ***
|
|
||||||
Creating Test_task (local)
|
|
||||||
Starting Test_task (local)
|
|
||||||
Deleting initialization task
|
|
||||||
Getting QID of message queue
|
|
||||||
message_queue_delete correctly returned ILLEGAL_ON_REMOTE_OBJECT
|
|
||||||
message_queue_send : 123456789012345
|
|
||||||
Delaying for a second
|
|
||||||
message_queue_urgent : abcdefghijklmno
|
|
||||||
Delaying for a second
|
|
||||||
message_queue_broadcast : ABCDEFGHIJKLMNO
|
|
||||||
Delaying for a second
|
|
||||||
Receiving message ...
|
|
||||||
Received : 123456789012345
|
|
||||||
Receiving message ...
|
|
||||||
Received : abcdefghijklmno
|
|
||||||
Receiving message ...
|
|
||||||
Received : ABCDEFGHIJKLMNO
|
|
||||||
Receiver delaying for a second
|
|
||||||
Flushing remote empty queue
|
|
||||||
0 messages were flushed from remote empty queue
|
|
||||||
Send messages to be flushed from remote queue
|
|
||||||
Flushing remote queue
|
|
||||||
1 messages were flushed from the remote queue
|
|
||||||
Waiting for message queue to be deleted
|
|
||||||
*** END OF TEST 9 ***
|
|
||||||
@@ -1,43 +0,0 @@
|
|||||||
--
|
|
||||||
-- MPTEST.PER_NODE_CONFIGURATION / BODY
|
|
||||||
--
|
|
||||||
-- DESCRIPTION:
|
|
||||||
--
|
|
||||||
-- This package is the specification for the subpackage
|
|
||||||
-- which will define the per node configuration parameters.
|
|
||||||
--
|
|
||||||
-- DEPENDENCIES:
|
|
||||||
--
|
|
||||||
--
|
|
||||||
--
|
|
||||||
-- COPYRIGHT (c) 1989-1997.
|
|
||||||
-- On-Line Applications Research Corporation (OAR).
|
|
||||||
-- Copyright assigned to U.S. Government, 1994.
|
|
||||||
--
|
|
||||||
-- The license and distribution terms for this file may in
|
|
||||||
-- the file LICENSE in this distribution or at
|
|
||||||
-- http://www.OARcorp.com/rtems/license.html.
|
|
||||||
--
|
|
||||||
-- $Id$
|
|
||||||
--
|
|
||||||
|
|
||||||
with RTEMS;
|
|
||||||
|
|
||||||
separate ( MPTEST )
|
|
||||||
|
|
||||||
package body PER_NODE_CONFIGURATION is
|
|
||||||
|
|
||||||
--PAGE
|
|
||||||
--
|
|
||||||
-- LOCAL_NODE_NUMBER
|
|
||||||
--
|
|
||||||
|
|
||||||
function LOCAL_NODE_NUMBER
|
|
||||||
return RTEMS.UNSIGNED32 is
|
|
||||||
begin
|
|
||||||
|
|
||||||
return 2;
|
|
||||||
|
|
||||||
end LOCAL_NODE_NUMBER;
|
|
||||||
|
|
||||||
end PER_NODE_CONFIGURATION;
|
|
||||||
@@ -1,301 +0,0 @@
|
|||||||
--
|
|
||||||
-- MPTEST / BODY
|
|
||||||
--
|
|
||||||
-- DESCRIPTION:
|
|
||||||
--
|
|
||||||
-- This package is the implementation for Test 10 of the RTEMS
|
|
||||||
-- Multiprocessor Test Suite.
|
|
||||||
--
|
|
||||||
-- DEPENDENCIES:
|
|
||||||
--
|
|
||||||
--
|
|
||||||
--
|
|
||||||
-- COPYRIGHT (c) 1989-1997.
|
|
||||||
-- On-Line Applications Research Corporation (OAR).
|
|
||||||
-- Copyright assigned to U.S. Government, 1994.
|
|
||||||
--
|
|
||||||
-- The license and distribution terms for this file may in
|
|
||||||
-- the file LICENSE in this distribution or at
|
|
||||||
-- http://www.OARcorp.com/rtems/license.html.
|
|
||||||
--
|
|
||||||
-- $Id$
|
|
||||||
--
|
|
||||||
|
|
||||||
with INTERFACES; use INTERFACES;
|
|
||||||
with RTEMS;
|
|
||||||
with TEST_SUPPORT;
|
|
||||||
with TEXT_IO;
|
|
||||||
with UNSIGNED32_IO;
|
|
||||||
|
|
||||||
package body MPTEST is
|
|
||||||
|
|
||||||
package body PER_NODE_CONFIGURATION is separate;
|
|
||||||
|
|
||||||
--PAGE
|
|
||||||
--
|
|
||||||
-- INIT
|
|
||||||
--
|
|
||||||
|
|
||||||
procedure INIT (
|
|
||||||
ARGUMENT : in RTEMS.TASK_ARGUMENT
|
|
||||||
) is
|
|
||||||
STATUS : RTEMS.STATUS_CODES;
|
|
||||||
begin
|
|
||||||
|
|
||||||
TEXT_IO.NEW_LINE( 2 );
|
|
||||||
TEXT_IO.PUT( "*** TEST 10 -- NODE " );
|
|
||||||
UNSIGNED32_IO.PUT(
|
|
||||||
MPTEST.MULTIPROCESSING_CONFIGURATION.NODE,
|
|
||||||
WIDTH => 1
|
|
||||||
);
|
|
||||||
TEXT_IO.PUT_LINE( " ***" );
|
|
||||||
|
|
||||||
|
|
||||||
MPTEST.TASK_NAME( 1 ) := RTEMS.BUILD_NAME( 'T', 'A', '1', ' ' );
|
|
||||||
MPTEST.TASK_NAME( 2 ) := RTEMS.BUILD_NAME( 'T', 'A', '2', ' ' );
|
|
||||||
MPTEST.TASK_NAME( 3 ) := RTEMS.BUILD_NAME( 'S', 'A', '3', ' ' );
|
|
||||||
|
|
||||||
MPTEST.QUEUE_NAME( 1 ) := RTEMS.BUILD_NAME( 'M', 'S', 'G', ' ' );
|
|
||||||
|
|
||||||
MPTEST.SEMAPHORE_NAME( 1 ) := RTEMS.BUILD_NAME( 'S', 'E', 'M', ' ' );
|
|
||||||
|
|
||||||
if MPTEST.MULTIPROCESSING_CONFIGURATION.NODE = 1 then
|
|
||||||
|
|
||||||
TEXT_IO.PUT_LINE( "Creating Message Queue (Global)" );
|
|
||||||
RTEMS.MESSAGE_QUEUE_CREATE(
|
|
||||||
MPTEST.QUEUE_NAME( 1 ),
|
|
||||||
3,
|
|
||||||
RTEMS.GLOBAL + RTEMS.LIMIT,
|
|
||||||
MPTEST.QUEUE_ID( 1 ),
|
|
||||||
STATUS
|
|
||||||
);
|
|
||||||
TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "MESSAGE_QUEUE_CREATE" );
|
|
||||||
|
|
||||||
TEXT_IO.PUT_LINE( "Creating Semaphore (Global)" );
|
|
||||||
RTEMS.SEMAPHORE_CREATE(
|
|
||||||
MPTEST.SEMAPHORE_NAME( 1 ),
|
|
||||||
0,
|
|
||||||
RTEMS.GLOBAL + RTEMS.PRIORITY,
|
|
||||||
MPTEST.SEMAPHORE_ID( 1 ),
|
|
||||||
STATUS
|
|
||||||
);
|
|
||||||
TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "SEMAPHORE_CREATE" );
|
|
||||||
|
|
||||||
RTEMS.TASK_WAKE_AFTER( 10 * TEST_SUPPORT.TICKS_PER_SECOND, STATUS );
|
|
||||||
TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "TASK_WAKE_AFTER" );
|
|
||||||
|
|
||||||
else
|
|
||||||
|
|
||||||
TEXT_IO.PUT_LINE( "Creating Test_task 1 (local)" );
|
|
||||||
RTEMS.TASK_CREATE(
|
|
||||||
MPTEST.TASK_NAME( 1 ),
|
|
||||||
1,
|
|
||||||
2048,
|
|
||||||
RTEMS.TIMESLICE,
|
|
||||||
RTEMS.DEFAULT_ATTRIBUTES,
|
|
||||||
MPTEST.TASK_ID( 1 ),
|
|
||||||
STATUS
|
|
||||||
);
|
|
||||||
TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "TASK_CREATE" );
|
|
||||||
|
|
||||||
TEXT_IO.PUT_LINE( "Starting Test_task 1 (local)" );
|
|
||||||
RTEMS.TASK_START(
|
|
||||||
MPTEST.TASK_ID( 1 ),
|
|
||||||
MPTEST.TEST_TASK_1'ACCESS,
|
|
||||||
0,
|
|
||||||
STATUS
|
|
||||||
);
|
|
||||||
TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "TASK_START" );
|
|
||||||
|
|
||||||
TEXT_IO.PUT_LINE( "Creating Test_task 2 (local)" );
|
|
||||||
RTEMS.TASK_CREATE(
|
|
||||||
MPTEST.TASK_NAME( 2 ),
|
|
||||||
1,
|
|
||||||
2048,
|
|
||||||
RTEMS.TIMESLICE,
|
|
||||||
RTEMS.DEFAULT_ATTRIBUTES,
|
|
||||||
MPTEST.TASK_ID( 2 ),
|
|
||||||
STATUS
|
|
||||||
);
|
|
||||||
TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "TASK_CREATE" );
|
|
||||||
|
|
||||||
TEXT_IO.PUT_LINE( "Starting Test_task 2 (local)" );
|
|
||||||
RTEMS.TASK_START(
|
|
||||||
MPTEST.TASK_ID( 2 ),
|
|
||||||
MPTEST.TEST_TASK_2'ACCESS,
|
|
||||||
0,
|
|
||||||
STATUS
|
|
||||||
);
|
|
||||||
TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "TASK_START" );
|
|
||||||
|
|
||||||
TEXT_IO.PUT_LINE( "Creating Test_task 3 (local)" );
|
|
||||||
RTEMS.TASK_CREATE(
|
|
||||||
MPTEST.TASK_NAME( 3 ),
|
|
||||||
1,
|
|
||||||
2048,
|
|
||||||
RTEMS.TIMESLICE,
|
|
||||||
RTEMS.DEFAULT_ATTRIBUTES,
|
|
||||||
MPTEST.TASK_ID( 3 ),
|
|
||||||
STATUS
|
|
||||||
);
|
|
||||||
TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "TASK_CREATE" );
|
|
||||||
|
|
||||||
TEXT_IO.PUT_LINE( "Starting Test_task 3 (local)" );
|
|
||||||
RTEMS.TASK_START(
|
|
||||||
MPTEST.TASK_ID( 3 ),
|
|
||||||
MPTEST.TEST_TASK_3'ACCESS,
|
|
||||||
0,
|
|
||||||
STATUS
|
|
||||||
);
|
|
||||||
TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "TASK_START" );
|
|
||||||
|
|
||||||
TEXT_IO.PUT_LINE( "Sleeping for 1 second ..." );
|
|
||||||
RTEMS.TASK_WAKE_AFTER( TEST_SUPPORT.TICKS_PER_SECOND, STATUS );
|
|
||||||
TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "TASK_WAKE_AFTER" );
|
|
||||||
|
|
||||||
TEXT_IO.PUT_LINE( "Deleting Test_task 2" );
|
|
||||||
RTEMS.TASK_DELETE( MPTEST.TASK_ID( 2 ), STATUS );
|
|
||||||
TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "TASK_DELETE OF 2" );
|
|
||||||
|
|
||||||
TEXT_IO.PUT_LINE( "Deleting Test_task 1" );
|
|
||||||
RTEMS.TASK_DELETE( MPTEST.TASK_ID( 1 ), STATUS );
|
|
||||||
TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "TASK_DELETE OF 1" );
|
|
||||||
|
|
||||||
TEXT_IO.PUT_LINE( "Restarting Test_task 3" );
|
|
||||||
RTEMS.TASK_RESTART( MPTEST.TASK_ID( 3 ), 1, STATUS );
|
|
||||||
TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "TASK_RESTART OF 3" );
|
|
||||||
|
|
||||||
end if;
|
|
||||||
|
|
||||||
TEXT_IO.PUT_LINE( "*** END OF TEST 10 ***" );
|
|
||||||
|
|
||||||
RTEMS.SHUTDOWN_EXECUTIVE( 0 );
|
|
||||||
|
|
||||||
end INIT;
|
|
||||||
|
|
||||||
--PAGE
|
|
||||||
--
|
|
||||||
-- TEST_TASK_1
|
|
||||||
--
|
|
||||||
|
|
||||||
procedure TEST_TASK_1 (
|
|
||||||
ARGUMENT : in RTEMS.TASK_ARGUMENT
|
|
||||||
) is
|
|
||||||
COUNT : RTEMS.UNSIGNED32;
|
|
||||||
RECEIVE_BUFFER_AREA : RTEMS.BUFFER;
|
|
||||||
RECEIVE_BUFFER : RTEMS.BUFFER_POINTER;
|
|
||||||
STATUS : RTEMS.STATUS_CODES;
|
|
||||||
begin
|
|
||||||
|
|
||||||
RECEIVE_BUFFER :=
|
|
||||||
RTEMS.TO_BUFFER_POINTER( RECEIVE_BUFFER_AREA'ADDRESS );
|
|
||||||
|
|
||||||
TEXT_IO.PUT_LINE( "Getting QID of message queue" );
|
|
||||||
|
|
||||||
loop
|
|
||||||
|
|
||||||
RTEMS.MESSAGE_QUEUE_IDENT(
|
|
||||||
MPTEST.QUEUE_NAME( 1 ),
|
|
||||||
RTEMS.SEARCH_ALL_NODES,
|
|
||||||
MPTEST.QUEUE_ID( 1 ),
|
|
||||||
STATUS
|
|
||||||
);
|
|
||||||
|
|
||||||
exit when RTEMS.IS_STATUS_SUCCESSFUL( STATUS );
|
|
||||||
|
|
||||||
end loop;
|
|
||||||
|
|
||||||
TEXT_IO.PUT_LINE( "Attempting to receive message ..." );
|
|
||||||
RTEMS.MESSAGE_QUEUE_RECEIVE(
|
|
||||||
MPTEST.QUEUE_ID( 1 ),
|
|
||||||
RECEIVE_BUFFER,
|
|
||||||
RTEMS.DEFAULT_OPTIONS,
|
|
||||||
RTEMS.NO_TIMEOUT,
|
|
||||||
STATUS
|
|
||||||
);
|
|
||||||
TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "MESSAGE_QUEUE_RECEIVE" );
|
|
||||||
|
|
||||||
end TEST_TASK_1;
|
|
||||||
|
|
||||||
--PAGE
|
|
||||||
--
|
|
||||||
-- TEST_TASK_2
|
|
||||||
--
|
|
||||||
|
|
||||||
procedure TEST_TASK_2 (
|
|
||||||
ARGUMENT : in RTEMS.TASK_ARGUMENT
|
|
||||||
) is
|
|
||||||
STATUS : RTEMS.STATUS_CODES;
|
|
||||||
begin
|
|
||||||
|
|
||||||
TEXT_IO.PUT_LINE( "Getting SMID of semaphore" );
|
|
||||||
|
|
||||||
loop
|
|
||||||
|
|
||||||
RTEMS.SEMAPHORE_IDENT(
|
|
||||||
MPTEST.SEMAPHORE_NAME( 1 ),
|
|
||||||
RTEMS.SEARCH_ALL_NODES,
|
|
||||||
MPTEST.SEMAPHORE_ID( 1 ),
|
|
||||||
STATUS
|
|
||||||
);
|
|
||||||
|
|
||||||
exit when RTEMS.IS_STATUS_SUCCESSFUL( STATUS );
|
|
||||||
|
|
||||||
end loop;
|
|
||||||
|
|
||||||
TEXT_IO.PUT_LINE( "Attempting to acquire semaphore ..." );
|
|
||||||
RTEMS.SEMAPHORE_OBTAIN(
|
|
||||||
MPTEST.SEMAPHORE_ID( 1 ),
|
|
||||||
RTEMS.DEFAULT_OPTIONS,
|
|
||||||
RTEMS.NO_TIMEOUT,
|
|
||||||
STATUS
|
|
||||||
);
|
|
||||||
TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "SEMAPHORE_OBTAIN" );
|
|
||||||
|
|
||||||
end TEST_TASK_2;
|
|
||||||
|
|
||||||
--PAGE
|
|
||||||
--
|
|
||||||
-- TEST_TASK_3
|
|
||||||
--
|
|
||||||
|
|
||||||
procedure TEST_TASK_3 (
|
|
||||||
RESTART : in RTEMS.TASK_ARGUMENT
|
|
||||||
) is
|
|
||||||
STATUS : RTEMS.STATUS_CODES;
|
|
||||||
begin
|
|
||||||
|
|
||||||
if RESTART = 1 then
|
|
||||||
|
|
||||||
RTEMS.TASK_DELETE( RTEMS.SELF, STATUS );
|
|
||||||
TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "TASK_DELETE" );
|
|
||||||
|
|
||||||
end if;
|
|
||||||
|
|
||||||
TEXT_IO.PUT_LINE( "Getting SMID of semaphore" );
|
|
||||||
|
|
||||||
loop
|
|
||||||
|
|
||||||
RTEMS.SEMAPHORE_IDENT(
|
|
||||||
MPTEST.SEMAPHORE_NAME( 1 ),
|
|
||||||
RTEMS.SEARCH_ALL_NODES,
|
|
||||||
MPTEST.SEMAPHORE_ID( 1 ),
|
|
||||||
STATUS
|
|
||||||
);
|
|
||||||
|
|
||||||
exit when RTEMS.IS_STATUS_SUCCESSFUL( STATUS );
|
|
||||||
|
|
||||||
end loop;
|
|
||||||
|
|
||||||
TEXT_IO.PUT_LINE( "Attempting to acquire semaphore ..." );
|
|
||||||
RTEMS.SEMAPHORE_OBTAIN(
|
|
||||||
MPTEST.SEMAPHORE_ID( 1 ),
|
|
||||||
RTEMS.DEFAULT_OPTIONS,
|
|
||||||
RTEMS.NO_TIMEOUT,
|
|
||||||
STATUS
|
|
||||||
);
|
|
||||||
TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "SEMAPHORE_OBTAIN" );
|
|
||||||
|
|
||||||
end TEST_TASK_3;
|
|
||||||
|
|
||||||
end MPTEST;
|
|
||||||
@@ -1,224 +0,0 @@
|
|||||||
--
|
|
||||||
-- MPTEST / SPECIFICATION
|
|
||||||
--
|
|
||||||
-- DESCRIPTION:
|
|
||||||
--
|
|
||||||
-- This package is the specification for Test 10 of the RTEMS
|
|
||||||
-- Multiprocessor Test Suite.
|
|
||||||
--
|
|
||||||
-- DEPENDENCIES:
|
|
||||||
--
|
|
||||||
--
|
|
||||||
--
|
|
||||||
-- COPYRIGHT (c) 1989-1997.
|
|
||||||
-- On-Line Applications Research Corporation (OAR).
|
|
||||||
-- Copyright assigned to U.S. Government, 1994.
|
|
||||||
--
|
|
||||||
-- The license and distribution terms for this file may in
|
|
||||||
-- the file LICENSE in this distribution or at
|
|
||||||
-- http://www.OARcorp.com/rtems/license.html.
|
|
||||||
--
|
|
||||||
-- $Id$
|
|
||||||
--
|
|
||||||
|
|
||||||
with BSP_MPCI;
|
|
||||||
with RTEMS;
|
|
||||||
|
|
||||||
package MPTEST is
|
|
||||||
|
|
||||||
--
|
|
||||||
-- These arrays contain the IDs and NAMEs of all RTEMS tasks created
|
|
||||||
-- by this test.
|
|
||||||
--
|
|
||||||
|
|
||||||
TASK_ID : array ( RTEMS.UNSIGNED32 range 1 .. 3 ) of RTEMS.ID;
|
|
||||||
TASK_NAME : array ( RTEMS.UNSIGNED32 range 1 .. 3 ) of RTEMS.NAME;
|
|
||||||
|
|
||||||
--
|
|
||||||
-- These arrays contain the IDs and NAMEs of all RTEMS message
|
|
||||||
-- queues created by this test.
|
|
||||||
--
|
|
||||||
|
|
||||||
QUEUE_ID : array ( RTEMS.UNSIGNED32 range 1 .. 2 ) of RTEMS.ID;
|
|
||||||
QUEUE_NAME : array ( RTEMS.UNSIGNED32 range 1 .. 2 ) of RTEMS.NAME;
|
|
||||||
|
|
||||||
--
|
|
||||||
-- These arrays contain the IDs and NAMEs of all RTEMS semaphore
|
|
||||||
-- created by this test.
|
|
||||||
--
|
|
||||||
|
|
||||||
SEMAPHORE_ID : array ( RTEMS.UNSIGNED32 range 1 .. 2 ) of RTEMS.ID;
|
|
||||||
SEMAPHORE_NAME : array ( RTEMS.UNSIGNED32 range 1 .. 2 ) of RTEMS.NAME;
|
|
||||||
|
|
||||||
--
|
|
||||||
-- This variable contains the ID of the remote task with which this
|
|
||||||
-- test interacts.
|
|
||||||
--
|
|
||||||
|
|
||||||
REMOTE_TID : RTEMS.ID;
|
|
||||||
|
|
||||||
--
|
|
||||||
-- This variable contains the node on which the remote task with which
|
|
||||||
-- this test interacts resides.
|
|
||||||
--
|
|
||||||
|
|
||||||
REMOTE_NODE : RTEMS.UNSIGNED32;
|
|
||||||
|
|
||||||
--
|
|
||||||
-- The number of events to process per dot printed out.
|
|
||||||
--
|
|
||||||
|
|
||||||
PER_DOT : constant RTEMS.UNSIGNED32 := 100;
|
|
||||||
|
|
||||||
--
|
|
||||||
-- INIT
|
|
||||||
--
|
|
||||||
-- DESCRIPTION:
|
|
||||||
--
|
|
||||||
-- This RTEMS task initializes the application.
|
|
||||||
--
|
|
||||||
|
|
||||||
procedure INIT (
|
|
||||||
ARGUMENT : in RTEMS.TASK_ARGUMENT
|
|
||||||
);
|
|
||||||
|
|
||||||
--
|
|
||||||
-- TEST_TASK_1
|
|
||||||
--
|
|
||||||
-- DESCRIPTION:
|
|
||||||
--
|
|
||||||
-- This is the body of one of the RTEMS tasks which constitute this test.
|
|
||||||
--
|
|
||||||
|
|
||||||
procedure TEST_TASK_1 (
|
|
||||||
ARGUMENT : in RTEMS.TASK_ARGUMENT
|
|
||||||
);
|
|
||||||
|
|
||||||
--
|
|
||||||
-- TEST_TASK_2
|
|
||||||
--
|
|
||||||
-- DESCRIPTION:
|
|
||||||
--
|
|
||||||
-- This is the body of one of the RTEMS tasks which constitute this test.
|
|
||||||
--
|
|
||||||
|
|
||||||
procedure TEST_TASK_2 (
|
|
||||||
ARGUMENT : in RTEMS.TASK_ARGUMENT
|
|
||||||
);
|
|
||||||
|
|
||||||
--
|
|
||||||
-- TEST_TASK_3
|
|
||||||
--
|
|
||||||
-- DESCRIPTION:
|
|
||||||
--
|
|
||||||
-- This is the body of one of the RTEMS tasks which constitute this test.
|
|
||||||
--
|
|
||||||
|
|
||||||
procedure TEST_TASK_3 (
|
|
||||||
RESTART : in RTEMS.TASK_ARGUMENT
|
|
||||||
);
|
|
||||||
|
|
||||||
--
|
|
||||||
-- This is the Driver Address Table for this test.
|
|
||||||
--
|
|
||||||
|
|
||||||
DEVICE_DRIVERS : aliased RTEMS.DRIVER_ADDRESS_TABLE( 1 .. 1 ) :=
|
|
||||||
(1=>
|
|
||||||
(
|
|
||||||
CLOCK_DRIVER.INITIALIZE'ACCESS, -- Initialization
|
|
||||||
RTEMS.NO_DRIVER_ENTRY, -- Open
|
|
||||||
RTEMS.NO_DRIVER_ENTRY, -- Close
|
|
||||||
RTEMS.NO_DRIVER_ENTRY, -- Read
|
|
||||||
RTEMS.NO_DRIVER_ENTRY, -- Write
|
|
||||||
RTEMS.NO_DRIVER_ENTRY -- Control
|
|
||||||
)
|
|
||||||
);
|
|
||||||
|
|
||||||
--
|
|
||||||
-- This is the Initialization Tasks Table for this test.
|
|
||||||
--
|
|
||||||
|
|
||||||
INITIALIZATION_TASKS : aliased RTEMS.INITIALIZATION_TASKS_TABLE( 1 .. 1 ) :=
|
|
||||||
(1=>
|
|
||||||
(
|
|
||||||
RTEMS.BUILD_NAME( 'U', 'I', '1', ' ' ), -- task name
|
|
||||||
2048, -- stack size
|
|
||||||
1, -- priority
|
|
||||||
RTEMS.DEFAULT_ATTRIBUTES, -- attributes
|
|
||||||
MPTEST.INIT'ACCESS, -- entry point
|
|
||||||
RTEMS.NO_PREEMPT, -- initial mode
|
|
||||||
0 -- argument list
|
|
||||||
)
|
|
||||||
);
|
|
||||||
|
|
||||||
----------------------------------------------------------------------------
|
|
||||||
----------------------------------------------------------------------------
|
|
||||||
-- BEGIN SUBPACKAGE --
|
|
||||||
----------------------------------------------------------------------------
|
|
||||||
----------------------------------------------------------------------------
|
|
||||||
|
|
||||||
--
|
|
||||||
-- MPTEST.PER_NODE_CONFIGURATION / SPECIFICATION
|
|
||||||
--
|
|
||||||
-- DESCRIPTION:
|
|
||||||
--
|
|
||||||
-- This package is the specification for the subpackage
|
|
||||||
-- which will define the per node configuration parameters.
|
|
||||||
--
|
|
||||||
|
|
||||||
package PER_NODE_CONFIGURATION is
|
|
||||||
|
|
||||||
--
|
|
||||||
-- LOCAL_NODE_NUMBER
|
|
||||||
--
|
|
||||||
-- DESCRIPTION:
|
|
||||||
--
|
|
||||||
-- This function returns the node number for this node.
|
|
||||||
--
|
|
||||||
|
|
||||||
function LOCAL_NODE_NUMBER
|
|
||||||
return RTEMS.UNSIGNED32;
|
|
||||||
|
|
||||||
pragma INLINE ( LOCAL_NODE_NUMBER );
|
|
||||||
|
|
||||||
end PER_NODE_CONFIGURATION;
|
|
||||||
|
|
||||||
----------------------------------------------------------------------------
|
|
||||||
----------------------------------------------------------------------------
|
|
||||||
-- END SUBPACKAGE --
|
|
||||||
----------------------------------------------------------------------------
|
|
||||||
----------------------------------------------------------------------------
|
|
||||||
|
|
||||||
--
|
|
||||||
-- This is the Multiprocessor Configuration Table for this test.
|
|
||||||
--
|
|
||||||
|
|
||||||
MULTIPROCESSING_CONFIGURATION : aliased RTEMS.MULTIPROCESSING_TABLE := (
|
|
||||||
MPTEST.PER_NODE_CONFIGURATION.LOCAL_NODE_NUMBER,
|
|
||||||
2, -- maximum # nodes in system
|
|
||||||
32, -- maximum # global objects
|
|
||||||
32 -- maximum # proxies
|
|
||||||
);
|
|
||||||
|
|
||||||
--
|
|
||||||
-- This is the Configuration Table for this test.
|
|
||||||
--
|
|
||||||
|
|
||||||
CONFIGURATION : aliased RTEMS.CONFIGURATION_TABLE := (
|
|
||||||
RTEMS.NULL_ADDRESS, -- will be replaced by BSP
|
|
||||||
64 * 1024, -- executive RAM size
|
|
||||||
10, -- maximum # tasks
|
|
||||||
0, -- maximum # timers
|
|
||||||
1, -- maximum # semaphores
|
|
||||||
1, -- maximum # message queues
|
|
||||||
0, -- maximum # messages
|
|
||||||
0, -- maximum # partitions
|
|
||||||
0, -- maximum # regions
|
|
||||||
0, -- maximum # dp memory areas
|
|
||||||
0, -- maximum # periods
|
|
||||||
0, -- maximum # user extensions
|
|
||||||
RTEMS.MILLISECONDS_TO_MICROSECONDS(10), -- # us in a tick
|
|
||||||
50 -- # ticks in a timeslice
|
|
||||||
);
|
|
||||||
|
|
||||||
end MPTEST;
|
|
||||||
@@ -1,4 +0,0 @@
|
|||||||
*** TEST 10 -- NODE 1 ***
|
|
||||||
Creating Message Queue (Global)
|
|
||||||
Creating Semaphore (Global)
|
|
||||||
*** END OF TEST 10 ***
|
|
||||||
@@ -1,43 +0,0 @@
|
|||||||
--
|
|
||||||
-- MPTEST.PER_NODE_CONFIGURATION / BODY
|
|
||||||
--
|
|
||||||
-- DESCRIPTION:
|
|
||||||
--
|
|
||||||
-- This package is the specification for the subpackage
|
|
||||||
-- which will define the per node configuration parameters.
|
|
||||||
--
|
|
||||||
-- DEPENDENCIES:
|
|
||||||
--
|
|
||||||
--
|
|
||||||
--
|
|
||||||
-- COPYRIGHT (c) 1989-1997.
|
|
||||||
-- On-Line Applications Research Corporation (OAR).
|
|
||||||
-- Copyright assigned to U.S. Government, 1994.
|
|
||||||
--
|
|
||||||
-- The license and distribution terms for this file may in
|
|
||||||
-- the file LICENSE in this distribution or at
|
|
||||||
-- http://www.OARcorp.com/rtems/license.html.
|
|
||||||
--
|
|
||||||
-- $Id$
|
|
||||||
--
|
|
||||||
|
|
||||||
with RTEMS;
|
|
||||||
|
|
||||||
separate ( MPTEST )
|
|
||||||
|
|
||||||
package body PER_NODE_CONFIGURATION is
|
|
||||||
|
|
||||||
--PAGE
|
|
||||||
--
|
|
||||||
-- LOCAL_NODE_NUMBER
|
|
||||||
--
|
|
||||||
|
|
||||||
function LOCAL_NODE_NUMBER
|
|
||||||
return RTEMS.UNSIGNED32 is
|
|
||||||
begin
|
|
||||||
|
|
||||||
return 1;
|
|
||||||
|
|
||||||
end LOCAL_NODE_NUMBER;
|
|
||||||
|
|
||||||
end PER_NODE_CONFIGURATION;
|
|
||||||
@@ -1,18 +0,0 @@
|
|||||||
*** TEST 10 -- NODE 2 ***
|
|
||||||
Creating Test_task 1 (local)
|
|
||||||
Starting Test_task 1 (local)
|
|
||||||
Creating Test_task 2 (local)
|
|
||||||
Starting Test_task 2 (local)
|
|
||||||
Creating Test_task 3 (local)
|
|
||||||
Starting Test_task 3 (local)
|
|
||||||
Sleeping for 1 second ...
|
|
||||||
Getting QID of message queue
|
|
||||||
Attempting to receive message ...
|
|
||||||
Getting SMID of semaphore
|
|
||||||
Attempting to acquire semaphore ...
|
|
||||||
Getting SMID of semaphore
|
|
||||||
Attempting to acquire semaphore ...
|
|
||||||
Deleting Test_task 2
|
|
||||||
Deleting Test_task 1
|
|
||||||
Restarting Test_task 3
|
|
||||||
*** END OF TEST 10 ***
|
|
||||||
@@ -1,43 +0,0 @@
|
|||||||
--
|
|
||||||
-- MPTEST.PER_NODE_CONFIGURATION / BODY
|
|
||||||
--
|
|
||||||
-- DESCRIPTION:
|
|
||||||
--
|
|
||||||
-- This package is the specification for the subpackage
|
|
||||||
-- which will define the per node configuration parameters.
|
|
||||||
--
|
|
||||||
-- DEPENDENCIES:
|
|
||||||
--
|
|
||||||
--
|
|
||||||
--
|
|
||||||
-- COPYRIGHT (c) 1989-1997.
|
|
||||||
-- On-Line Applications Research Corporation (OAR).
|
|
||||||
-- Copyright assigned to U.S. Government, 1994.
|
|
||||||
--
|
|
||||||
-- The license and distribution terms for this file may in
|
|
||||||
-- the file LICENSE in this distribution or at
|
|
||||||
-- http://www.OARcorp.com/rtems/license.html.
|
|
||||||
--
|
|
||||||
-- $Id$
|
|
||||||
--
|
|
||||||
|
|
||||||
with RTEMS;
|
|
||||||
|
|
||||||
separate ( MPTEST )
|
|
||||||
|
|
||||||
package body PER_NODE_CONFIGURATION is
|
|
||||||
|
|
||||||
--PAGE
|
|
||||||
--
|
|
||||||
-- LOCAL_NODE_NUMBER
|
|
||||||
--
|
|
||||||
|
|
||||||
function LOCAL_NODE_NUMBER
|
|
||||||
return RTEMS.UNSIGNED32 is
|
|
||||||
begin
|
|
||||||
|
|
||||||
return 2;
|
|
||||||
|
|
||||||
end LOCAL_NODE_NUMBER;
|
|
||||||
|
|
||||||
end PER_NODE_CONFIGURATION;
|
|
||||||
@@ -1,138 +0,0 @@
|
|||||||
--
|
|
||||||
-- MPTEST / BODY
|
|
||||||
--
|
|
||||||
-- DESCRIPTION:
|
|
||||||
--
|
|
||||||
-- This package is the implementation for Test 11 of the RTEMS
|
|
||||||
-- Multiprocessor Test Suite.
|
|
||||||
--
|
|
||||||
-- DEPENDENCIES:
|
|
||||||
--
|
|
||||||
--
|
|
||||||
--
|
|
||||||
-- COPYRIGHT (c) 1989-1997.
|
|
||||||
-- On-Line Applications Research Corporation (OAR).
|
|
||||||
-- Copyright assigned to U.S. Government, 1994.
|
|
||||||
--
|
|
||||||
-- The license and distribution terms for this file may in
|
|
||||||
-- the file LICENSE in this distribution or at
|
|
||||||
-- http://www.OARcorp.com/rtems/license.html.
|
|
||||||
--
|
|
||||||
-- $Id$
|
|
||||||
--
|
|
||||||
|
|
||||||
with INTERFACES; use INTERFACES;
|
|
||||||
with RTEMS;
|
|
||||||
with TEST_SUPPORT;
|
|
||||||
with TEXT_IO;
|
|
||||||
with UNSIGNED32_IO;
|
|
||||||
|
|
||||||
package body MPTEST is
|
|
||||||
|
|
||||||
package body PER_NODE_CONFIGURATION is separate;
|
|
||||||
|
|
||||||
--PAGE
|
|
||||||
--
|
|
||||||
-- INIT
|
|
||||||
--
|
|
||||||
|
|
||||||
procedure INIT (
|
|
||||||
ARGUMENT : in RTEMS.TASK_ARGUMENT
|
|
||||||
) is
|
|
||||||
STATUS : RTEMS.STATUS_CODES;
|
|
||||||
begin
|
|
||||||
|
|
||||||
TEXT_IO.NEW_LINE( 2 );
|
|
||||||
TEXT_IO.PUT( "*** TEST 11 -- NODE " );
|
|
||||||
UNSIGNED32_IO.PUT(
|
|
||||||
MPTEST.MULTIPROCESSING_CONFIGURATION.NODE,
|
|
||||||
WIDTH => 1
|
|
||||||
);
|
|
||||||
TEXT_IO.PUT_LINE( " ***" );
|
|
||||||
|
|
||||||
MPTEST.TASK_NAME( 1 ) := RTEMS.BUILD_NAME( '1', '1', '1', ' ' );
|
|
||||||
MPTEST.TASK_NAME( 2 ) := RTEMS.BUILD_NAME( '2', '2', '2', ' ' );
|
|
||||||
|
|
||||||
MPTEST.QUEUE_NAME( 1 ) := RTEMS.BUILD_NAME( 'M', 'S', 'G', ' ' );
|
|
||||||
|
|
||||||
MPTEST.SEMAPHORE_NAME( 1 ) := RTEMS.BUILD_NAME( 'S', 'E', 'M', ' ' );
|
|
||||||
|
|
||||||
MPTEST.PARTITION_NAME( 1 ) := RTEMS.BUILD_NAME( 'P', 'A', 'R', ' ' );
|
|
||||||
|
|
||||||
if MPTEST.MULTIPROCESSING_CONFIGURATION.NODE = 1 then
|
|
||||||
|
|
||||||
TEXT_IO.PUT_LINE( "Attempting to create Test_task (Global)" );
|
|
||||||
RTEMS.TASK_CREATE(
|
|
||||||
MPTEST.TASK_NAME( 1 ),
|
|
||||||
1,
|
|
||||||
2048,
|
|
||||||
RTEMS.DEFAULT_MODES,
|
|
||||||
RTEMS.GLOBAL,
|
|
||||||
MPTEST.TASK_ID( 1 ),
|
|
||||||
STATUS
|
|
||||||
);
|
|
||||||
TEST_SUPPORT.FATAL_DIRECTIVE_STATUS(
|
|
||||||
STATUS,
|
|
||||||
RTEMS.TOO_MANY,
|
|
||||||
"TASK_CREATE"
|
|
||||||
);
|
|
||||||
TEXT_IO.PUT_LINE( "task_create correctly returned TOO_MANY" );
|
|
||||||
|
|
||||||
TEXT_IO.PUT_LINE( "Attempting to create Message Queue (Global)" );
|
|
||||||
RTEMS.MESSAGE_QUEUE_CREATE(
|
|
||||||
MPTEST.QUEUE_NAME( 1 ),
|
|
||||||
3,
|
|
||||||
RTEMS.GLOBAL + RTEMS.LIMIT,
|
|
||||||
MPTEST.QUEUE_ID( 1 ),
|
|
||||||
STATUS
|
|
||||||
);
|
|
||||||
TEST_SUPPORT.FATAL_DIRECTIVE_STATUS(
|
|
||||||
STATUS,
|
|
||||||
RTEMS.TOO_MANY,
|
|
||||||
"MESSAGE_QUEUE_CREATE"
|
|
||||||
);
|
|
||||||
TEXT_IO.PUT_LINE(
|
|
||||||
"message_queue_create correctly returned TOO_MANY"
|
|
||||||
);
|
|
||||||
|
|
||||||
TEXT_IO.PUT_LINE( "Creating Semaphore (Global)" );
|
|
||||||
RTEMS.SEMAPHORE_CREATE(
|
|
||||||
MPTEST.SEMAPHORE_NAME( 1 ),
|
|
||||||
1,
|
|
||||||
RTEMS.GLOBAL,
|
|
||||||
MPTEST.SEMAPHORE_ID( 1 ),
|
|
||||||
STATUS
|
|
||||||
);
|
|
||||||
TEST_SUPPORT.FATAL_DIRECTIVE_STATUS(
|
|
||||||
STATUS,
|
|
||||||
RTEMS.TOO_MANY,
|
|
||||||
"SEMAPHORE_CREATE"
|
|
||||||
);
|
|
||||||
TEXT_IO.PUT_LINE( "semaphore_create correctly returned TOO_MANY" );
|
|
||||||
|
|
||||||
TEXT_IO.PUT_LINE( "Creating Partition (Global)" );
|
|
||||||
RTEMS.PARTITION_CREATE(
|
|
||||||
MPTEST.PARTITION_NAME( 1 ),
|
|
||||||
MPTEST.PARTITION_AREA( 0 )'ADDRESS,
|
|
||||||
128,
|
|
||||||
64,
|
|
||||||
RTEMS.GLOBAL,
|
|
||||||
MPTEST.PARTITION_ID( 1 ),
|
|
||||||
STATUS
|
|
||||||
);
|
|
||||||
TEST_SUPPORT.FATAL_DIRECTIVE_STATUS(
|
|
||||||
STATUS,
|
|
||||||
RTEMS.TOO_MANY,
|
|
||||||
"PARTITION_CREATE"
|
|
||||||
);
|
|
||||||
TEXT_IO.PUT_LINE( "partition_create correctly returned TOO_MANY" );
|
|
||||||
|
|
||||||
end if;
|
|
||||||
|
|
||||||
TEXT_IO.PUT_LINE( "*** END OF TEST 11 ***" );
|
|
||||||
|
|
||||||
RTEMS.SHUTDOWN_EXECUTIVE( 0 );
|
|
||||||
|
|
||||||
end INIT;
|
|
||||||
|
|
||||||
end MPTEST;
|
|
||||||
@@ -1,184 +0,0 @@
|
|||||||
--
|
|
||||||
-- MPTEST / SPECIFICATION
|
|
||||||
--
|
|
||||||
-- DESCRIPTION:
|
|
||||||
--
|
|
||||||
-- This package is the specification for Test 11 of the RTEMS
|
|
||||||
-- Multiprocessor Test Suite.
|
|
||||||
--
|
|
||||||
-- DEPENDENCIES:
|
|
||||||
--
|
|
||||||
--
|
|
||||||
--
|
|
||||||
-- COPYRIGHT (c) 1989-1997.
|
|
||||||
-- On-Line Applications Research Corporation (OAR).
|
|
||||||
-- Copyright assigned to U.S. Government, 1994.
|
|
||||||
--
|
|
||||||
-- The license and distribution terms for this file may in
|
|
||||||
-- the file LICENSE in this distribution or at
|
|
||||||
-- http://www.OARcorp.com/rtems/license.html.
|
|
||||||
--
|
|
||||||
-- $Id$
|
|
||||||
--
|
|
||||||
|
|
||||||
with BSP_MPCI;
|
|
||||||
with RTEMS;
|
|
||||||
|
|
||||||
package MPTEST is
|
|
||||||
|
|
||||||
--
|
|
||||||
-- These arrays contain the IDs and NAMEs of all RTEMS tasks created
|
|
||||||
-- by this test.
|
|
||||||
--
|
|
||||||
|
|
||||||
TASK_ID : array ( RTEMS.UNSIGNED32 range 1 .. 3 ) of RTEMS.ID;
|
|
||||||
TASK_NAME : array ( RTEMS.UNSIGNED32 range 1 .. 3 ) of RTEMS.NAME;
|
|
||||||
|
|
||||||
--
|
|
||||||
-- These arrays contain the IDs and NAMEs of all RTEMS message
|
|
||||||
-- queues created by this test.
|
|
||||||
--
|
|
||||||
|
|
||||||
QUEUE_ID : array ( RTEMS.UNSIGNED32 range 1 .. 2 ) of RTEMS.ID;
|
|
||||||
QUEUE_NAME : array ( RTEMS.UNSIGNED32 range 1 .. 2 ) of RTEMS.NAME;
|
|
||||||
|
|
||||||
--
|
|
||||||
-- These arrays contain the IDs and NAMEs of all RTEMS semaphore
|
|
||||||
-- created by this test.
|
|
||||||
--
|
|
||||||
|
|
||||||
SEMAPHORE_ID : array ( RTEMS.UNSIGNED32 range 1 .. 2 ) of RTEMS.ID;
|
|
||||||
SEMAPHORE_NAME : array ( RTEMS.UNSIGNED32 range 1 .. 2 ) of RTEMS.NAME;
|
|
||||||
|
|
||||||
--
|
|
||||||
-- These arrays contain the IDs and NAMEs of all RTEMS partition
|
|
||||||
-- created by this test.
|
|
||||||
--
|
|
||||||
|
|
||||||
PARTITION_ID : array ( RTEMS.UNSIGNED32 range 1 .. 2 ) of RTEMS.ID;
|
|
||||||
PARTITION_NAME : array ( RTEMS.UNSIGNED32 range 1 .. 2 ) of RTEMS.NAME;
|
|
||||||
|
|
||||||
--
|
|
||||||
-- This is the area used for the partition.
|
|
||||||
--
|
|
||||||
|
|
||||||
PARTITION_AREA :
|
|
||||||
array ( RTEMS.UNSIGNED32 range 0 .. 1023 ) of RTEMS.UNSIGNED8;
|
|
||||||
for PARTITION_AREA'ALIGNMENT use RTEMS.STRUCTURE_ALIGNMENT;
|
|
||||||
|
|
||||||
--
|
|
||||||
-- INIT
|
|
||||||
--
|
|
||||||
-- DESCRIPTION:
|
|
||||||
--
|
|
||||||
-- This RTEMS task initializes the application.
|
|
||||||
--
|
|
||||||
|
|
||||||
procedure INIT (
|
|
||||||
ARGUMENT : in RTEMS.TASK_ARGUMENT
|
|
||||||
);
|
|
||||||
|
|
||||||
--
|
|
||||||
-- This is the Driver Address Table for this test.
|
|
||||||
--
|
|
||||||
|
|
||||||
DEVICE_DRIVERS : aliased RTEMS.DRIVER_ADDRESS_TABLE( 1 .. 1 ) :=
|
|
||||||
(1=>
|
|
||||||
(
|
|
||||||
CLOCK_DRIVER.INITIALIZE'ACCESS, -- Initialization
|
|
||||||
RTEMS.NO_DRIVER_ENTRY, -- Open
|
|
||||||
RTEMS.NO_DRIVER_ENTRY, -- Close
|
|
||||||
RTEMS.NO_DRIVER_ENTRY, -- Read
|
|
||||||
RTEMS.NO_DRIVER_ENTRY, -- Write
|
|
||||||
RTEMS.NO_DRIVER_ENTRY -- Control
|
|
||||||
)
|
|
||||||
);
|
|
||||||
|
|
||||||
--
|
|
||||||
-- This is the Initialization Tasks Table for this test.
|
|
||||||
--
|
|
||||||
|
|
||||||
INITIALIZATION_TASKS : aliased RTEMS.INITIALIZATION_TASKS_TABLE( 1 .. 1 ) :=
|
|
||||||
(1=>
|
|
||||||
(
|
|
||||||
RTEMS.BUILD_NAME( 'U', 'I', '1', ' ' ), -- task name
|
|
||||||
2048, -- stack size
|
|
||||||
1, -- priority
|
|
||||||
RTEMS.DEFAULT_ATTRIBUTES, -- attributes
|
|
||||||
MPTEST.INIT'ACCESS, -- entry point
|
|
||||||
RTEMS.NO_PREEMPT, -- initial mode
|
|
||||||
0 -- argument list
|
|
||||||
)
|
|
||||||
);
|
|
||||||
|
|
||||||
----------------------------------------------------------------------------
|
|
||||||
----------------------------------------------------------------------------
|
|
||||||
-- BEGIN SUBPACKAGE --
|
|
||||||
----------------------------------------------------------------------------
|
|
||||||
----------------------------------------------------------------------------
|
|
||||||
|
|
||||||
--
|
|
||||||
-- MPTEST.PER_NODE_CONFIGURATION / SPECIFICATION
|
|
||||||
--
|
|
||||||
-- DESCRIPTION:
|
|
||||||
--
|
|
||||||
-- This package is the specification for the subpackage
|
|
||||||
-- which will define the per node configuration parameters.
|
|
||||||
--
|
|
||||||
|
|
||||||
package PER_NODE_CONFIGURATION is
|
|
||||||
|
|
||||||
--
|
|
||||||
-- LOCAL_NODE_NUMBER
|
|
||||||
--
|
|
||||||
-- DESCRIPTION:
|
|
||||||
--
|
|
||||||
-- This function returns the node number for this node.
|
|
||||||
--
|
|
||||||
|
|
||||||
function LOCAL_NODE_NUMBER
|
|
||||||
return RTEMS.UNSIGNED32;
|
|
||||||
|
|
||||||
pragma INLINE ( LOCAL_NODE_NUMBER );
|
|
||||||
|
|
||||||
end PER_NODE_CONFIGURATION;
|
|
||||||
|
|
||||||
----------------------------------------------------------------------------
|
|
||||||
----------------------------------------------------------------------------
|
|
||||||
-- END SUBPACKAGE --
|
|
||||||
----------------------------------------------------------------------------
|
|
||||||
----------------------------------------------------------------------------
|
|
||||||
|
|
||||||
--
|
|
||||||
-- This is the Multiprocessor Configuration Table for this test.
|
|
||||||
--
|
|
||||||
|
|
||||||
MULTIPROCESSING_CONFIGURATION : aliased RTEMS.MULTIPROCESSING_TABLE := (
|
|
||||||
MPTEST.PER_NODE_CONFIGURATION.LOCAL_NODE_NUMBER,
|
|
||||||
2, -- maximum # nodes in system
|
|
||||||
0, -- maximum # global objects
|
|
||||||
0 -- maximum # proxies
|
|
||||||
);
|
|
||||||
|
|
||||||
--
|
|
||||||
-- This is the Configuration Table for this test.
|
|
||||||
--
|
|
||||||
|
|
||||||
CONFIGURATION : aliased RTEMS.CONFIGURATION_TABLE := (
|
|
||||||
RTEMS.NULL_ADDRESS, -- will be replaced by BSP
|
|
||||||
64 * 1024, -- executive RAM size
|
|
||||||
10, -- maximum # tasks
|
|
||||||
0, -- maximum # timers
|
|
||||||
1, -- maximum # semaphores
|
|
||||||
1, -- maximum # message queues
|
|
||||||
0, -- maximum # messages
|
|
||||||
1, -- maximum # partitions
|
|
||||||
0, -- maximum # regions
|
|
||||||
0, -- maximum # dp memory areas
|
|
||||||
0, -- maximum # periods
|
|
||||||
0, -- maximum # user extensions
|
|
||||||
RTEMS.MILLISECONDS_TO_MICROSECONDS(10), -- # us in a tick
|
|
||||||
50 -- # ticks in a timeslice
|
|
||||||
);
|
|
||||||
|
|
||||||
end MPTEST;
|
|
||||||
@@ -1,10 +0,0 @@
|
|||||||
*** TEST 11 -- NODE 1 ***
|
|
||||||
Attempting to create Test_task (Global)
|
|
||||||
task_create correctly returned TOO_MANY
|
|
||||||
Attempting to create Message Queue (Global)
|
|
||||||
message_queue_create correctly returned TOO_MANY
|
|
||||||
Creating Semaphore (Global)
|
|
||||||
semaphore_create correctly returned TOO_MANY
|
|
||||||
Creating Partition (Global)
|
|
||||||
partition_create correctly returned TOO_MANY
|
|
||||||
*** END OF TEST 11 ***
|
|
||||||
@@ -1,43 +0,0 @@
|
|||||||
--
|
|
||||||
-- MPTEST.PER_NODE_CONFIGURATION / BODY
|
|
||||||
--
|
|
||||||
-- DESCRIPTION:
|
|
||||||
--
|
|
||||||
-- This package is the specification for the subpackage
|
|
||||||
-- which will define the per node configuration parameters.
|
|
||||||
--
|
|
||||||
-- DEPENDENCIES:
|
|
||||||
--
|
|
||||||
--
|
|
||||||
--
|
|
||||||
-- COPYRIGHT (c) 1989-1997.
|
|
||||||
-- On-Line Applications Research Corporation (OAR).
|
|
||||||
-- Copyright assigned to U.S. Government, 1994.
|
|
||||||
--
|
|
||||||
-- The license and distribution terms for this file may in
|
|
||||||
-- the file LICENSE in this distribution or at
|
|
||||||
-- http://www.OARcorp.com/rtems/license.html.
|
|
||||||
--
|
|
||||||
-- $Id$
|
|
||||||
--
|
|
||||||
|
|
||||||
with RTEMS;
|
|
||||||
|
|
||||||
separate ( MPTEST )
|
|
||||||
|
|
||||||
package body PER_NODE_CONFIGURATION is
|
|
||||||
|
|
||||||
--PAGE
|
|
||||||
--
|
|
||||||
-- LOCAL_NODE_NUMBER
|
|
||||||
--
|
|
||||||
|
|
||||||
function LOCAL_NODE_NUMBER
|
|
||||||
return RTEMS.UNSIGNED32 is
|
|
||||||
begin
|
|
||||||
|
|
||||||
return 1;
|
|
||||||
|
|
||||||
end LOCAL_NODE_NUMBER;
|
|
||||||
|
|
||||||
end PER_NODE_CONFIGURATION;
|
|
||||||
@@ -1,2 +0,0 @@
|
|||||||
*** TEST 11 -- NODE 2 ***
|
|
||||||
*** END OF TEST 11 ***
|
|
||||||
@@ -1,43 +0,0 @@
|
|||||||
--
|
|
||||||
-- MPTEST.PER_NODE_CONFIGURATION / BODY
|
|
||||||
--
|
|
||||||
-- DESCRIPTION:
|
|
||||||
--
|
|
||||||
-- This package is the specification for the subpackage
|
|
||||||
-- which will define the per node configuration parameters.
|
|
||||||
--
|
|
||||||
-- DEPENDENCIES:
|
|
||||||
--
|
|
||||||
--
|
|
||||||
--
|
|
||||||
-- COPYRIGHT (c) 1989-1997.
|
|
||||||
-- On-Line Applications Research Corporation (OAR).
|
|
||||||
-- Copyright assigned to U.S. Government, 1994.
|
|
||||||
--
|
|
||||||
-- The license and distribution terms for this file may in
|
|
||||||
-- the file LICENSE in this distribution or at
|
|
||||||
-- http://www.OARcorp.com/rtems/license.html.
|
|
||||||
--
|
|
||||||
-- $Id$
|
|
||||||
--
|
|
||||||
|
|
||||||
with RTEMS;
|
|
||||||
|
|
||||||
separate ( MPTEST )
|
|
||||||
|
|
||||||
package body PER_NODE_CONFIGURATION is
|
|
||||||
|
|
||||||
--PAGE
|
|
||||||
--
|
|
||||||
-- LOCAL_NODE_NUMBER
|
|
||||||
--
|
|
||||||
|
|
||||||
function LOCAL_NODE_NUMBER
|
|
||||||
return RTEMS.UNSIGNED32 is
|
|
||||||
begin
|
|
||||||
|
|
||||||
return 2;
|
|
||||||
|
|
||||||
end LOCAL_NODE_NUMBER;
|
|
||||||
|
|
||||||
end PER_NODE_CONFIGURATION;
|
|
||||||
@@ -1,152 +0,0 @@
|
|||||||
--
|
|
||||||
-- MPTEST / BODY
|
|
||||||
--
|
|
||||||
-- DESCRIPTION:
|
|
||||||
--
|
|
||||||
-- This package is the implementation for Test 12 of the RTEMS
|
|
||||||
-- Multiprocessor Test Suite.
|
|
||||||
--
|
|
||||||
-- DEPENDENCIES:
|
|
||||||
--
|
|
||||||
--
|
|
||||||
--
|
|
||||||
-- COPYRIGHT (c) 1989-1997.
|
|
||||||
-- On-Line Applications Research Corporation (OAR).
|
|
||||||
-- Copyright assigned to U.S. Government, 1994.
|
|
||||||
--
|
|
||||||
-- The license and distribution terms for this file may in
|
|
||||||
-- the file LICENSE in this distribution or at
|
|
||||||
-- http://www.OARcorp.com/rtems/license.html.
|
|
||||||
--
|
|
||||||
-- $Id$
|
|
||||||
--
|
|
||||||
|
|
||||||
with INTERFACES; use INTERFACES;
|
|
||||||
with RTEMS;
|
|
||||||
with TEST_SUPPORT;
|
|
||||||
with TEXT_IO;
|
|
||||||
with UNSIGNED32_IO;
|
|
||||||
|
|
||||||
package body MPTEST is
|
|
||||||
|
|
||||||
package body PER_NODE_CONFIGURATION is separate;
|
|
||||||
|
|
||||||
--PAGE
|
|
||||||
--
|
|
||||||
-- INIT
|
|
||||||
--
|
|
||||||
|
|
||||||
procedure INIT (
|
|
||||||
ARGUMENT : in RTEMS.TASK_ARGUMENT
|
|
||||||
) is
|
|
||||||
BUFFER_ADDRESS : RTEMS.ADDRESS;
|
|
||||||
STATUS : RTEMS.STATUS_CODES;
|
|
||||||
begin
|
|
||||||
|
|
||||||
TEXT_IO.NEW_LINE( 2 );
|
|
||||||
TEXT_IO.PUT( "*** TEST 12 -- NODE " );
|
|
||||||
UNSIGNED32_IO.PUT(
|
|
||||||
MPTEST.MULTIPROCESSING_CONFIGURATION.NODE,
|
|
||||||
WIDTH => 1
|
|
||||||
);
|
|
||||||
TEXT_IO.PUT_LINE( " ***" );
|
|
||||||
|
|
||||||
MPTEST.TASK_NAME( 1 ) := RTEMS.BUILD_NAME( '1', '1', '1', ' ' );
|
|
||||||
MPTEST.TASK_NAME( 2 ) := RTEMS.BUILD_NAME( '2', '2', '2', ' ' );
|
|
||||||
|
|
||||||
MPTEST.PARTITION_NAME( 1 ) := RTEMS.BUILD_NAME( 'P', 'A', 'R', ' ' );
|
|
||||||
|
|
||||||
TEXT_IO.PUT_LINE( "Got to the initialization task" );
|
|
||||||
|
|
||||||
if MPTEST.MULTIPROCESSING_CONFIGURATION.NODE = 2 then
|
|
||||||
|
|
||||||
RTEMS.TASK_WAKE_AFTER( 1 * TEST_SUPPORT.TICKS_PER_SECOND, STATUS );
|
|
||||||
TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "TASK_WAKE_AFTER" );
|
|
||||||
|
|
||||||
TEXT_IO.PUT_LINE( "Getting ID of remote Partition (Global)" );
|
|
||||||
|
|
||||||
loop
|
|
||||||
|
|
||||||
RTEMS.PARTITION_IDENT(
|
|
||||||
MPTEST.PARTITION_NAME( 1 ),
|
|
||||||
RTEMS.SEARCH_ALL_NODES,
|
|
||||||
MPTEST.PARTITION_ID( 1 ),
|
|
||||||
STATUS
|
|
||||||
);
|
|
||||||
|
|
||||||
exit when RTEMS.IS_STATUS_SUCCESSFUL( STATUS );
|
|
||||||
|
|
||||||
end loop;
|
|
||||||
|
|
||||||
TEXT_IO.PUT_LINE(
|
|
||||||
"Attempting to delete remote Partition (Global)"
|
|
||||||
);
|
|
||||||
|
|
||||||
RTEMS.PARTITION_DELETE( MPTEST.PARTITION_ID( 1 ), STATUS );
|
|
||||||
TEST_SUPPORT.FATAL_DIRECTIVE_STATUS(
|
|
||||||
STATUS,
|
|
||||||
RTEMS.ILLEGAL_ON_REMOTE_OBJECT,
|
|
||||||
"PARTITION_DELETE"
|
|
||||||
);
|
|
||||||
|
|
||||||
TEXT_IO.PUT_LINE(
|
|
||||||
"partition_delete correctly returned ILLEGAL_ON_REMOTE_OBJECT!!"
|
|
||||||
);
|
|
||||||
|
|
||||||
TEXT_IO.PUT_LINE( "Obtaining a buffer from the global partition" );
|
|
||||||
|
|
||||||
RTEMS.PARTITION_GET_BUFFER(
|
|
||||||
MPTEST.PARTITION_ID( 1 ),
|
|
||||||
BUFFER_ADDRESS,
|
|
||||||
STATUS
|
|
||||||
);
|
|
||||||
TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "PARTITION_GET_BUFFER" );
|
|
||||||
TEXT_IO.PUT( "Address returned was : " );
|
|
||||||
UNSIGNED32_IO.PUT(
|
|
||||||
RTEMS.SUBTRACT( BUFFER_ADDRESS, RTEMS.NULL_ADDRESS ),
|
|
||||||
WIDTH => 8,
|
|
||||||
BASE => 16
|
|
||||||
);
|
|
||||||
TEXT_IO.NEW_LINE;
|
|
||||||
|
|
||||||
RTEMS.PARTITION_RETURN_BUFFER(
|
|
||||||
MPTEST.PARTITION_ID( 1 ),
|
|
||||||
BUFFER_ADDRESS,
|
|
||||||
STATUS
|
|
||||||
);
|
|
||||||
TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "PARTITION_RETURN_BUFFER" );
|
|
||||||
|
|
||||||
RTEMS.TASK_WAKE_AFTER( 2 * TEST_SUPPORT.TICKS_PER_SECOND, STATUS );
|
|
||||||
TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "TASK_WAKE_AFTER" );
|
|
||||||
|
|
||||||
else
|
|
||||||
|
|
||||||
TEXT_IO.PUT_LINE( "Creating Partition (Global)" );
|
|
||||||
RTEMS.PARTITION_CREATE(
|
|
||||||
MPTEST.PARTITION_NAME( 1 ),
|
|
||||||
MPTEST.PARTITION_AREA( 0 )'ADDRESS,
|
|
||||||
128,
|
|
||||||
64,
|
|
||||||
RTEMS.GLOBAL,
|
|
||||||
MPTEST.PARTITION_ID( 1 ),
|
|
||||||
STATUS
|
|
||||||
);
|
|
||||||
TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "PARTITION_CREATE" );
|
|
||||||
|
|
||||||
TEXT_IO.PUT_LINE( "Sleeping for three seconds" );
|
|
||||||
RTEMS.TASK_WAKE_AFTER( 3 * TEST_SUPPORT.TICKS_PER_SECOND, STATUS );
|
|
||||||
TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "TASK_WAKE_AFTER" );
|
|
||||||
|
|
||||||
TEXT_IO.PUT_LINE( "Deleting Partition (Global)" );
|
|
||||||
RTEMS.PARTITION_DELETE( MPTEST.PARTITION_ID( 1 ), STATUS );
|
|
||||||
TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "PARTITION_DELETE" );
|
|
||||||
|
|
||||||
end if;
|
|
||||||
|
|
||||||
TEXT_IO.PUT_LINE( "*** END OF TEST 12 ***" );
|
|
||||||
|
|
||||||
RTEMS.SHUTDOWN_EXECUTIVE( 0 );
|
|
||||||
|
|
||||||
end INIT;
|
|
||||||
|
|
||||||
end MPTEST;
|
|
||||||
@@ -1,182 +0,0 @@
|
|||||||
--
|
|
||||||
-- MPTEST / SPECIFICATION
|
|
||||||
--
|
|
||||||
-- DESCRIPTION:
|
|
||||||
--
|
|
||||||
-- This package is the specification for Test 12 of the RTEMS
|
|
||||||
-- Multiprocessor Test Suite.
|
|
||||||
--
|
|
||||||
-- DEPENDENCIES:
|
|
||||||
--
|
|
||||||
--
|
|
||||||
--
|
|
||||||
-- COPYRIGHT (c) 1989-1997.
|
|
||||||
-- On-Line Applications Research Corporation (OAR).
|
|
||||||
-- Copyright assigned to U.S. Government, 1994.
|
|
||||||
--
|
|
||||||
-- The license and distribution terms for this file may in
|
|
||||||
-- the file LICENSE in this distribution or at
|
|
||||||
-- http://www.OARcorp.com/rtems/license.html.
|
|
||||||
--
|
|
||||||
-- $Id$
|
|
||||||
--
|
|
||||||
|
|
||||||
with BSP_MPCI;
|
|
||||||
with RTEMS;
|
|
||||||
|
|
||||||
package MPTEST is
|
|
||||||
|
|
||||||
--
|
|
||||||
-- These arrays contain the IDs and NAMEs of all RTEMS tasks created
|
|
||||||
-- by this test.
|
|
||||||
--
|
|
||||||
|
|
||||||
TASK_ID : array ( RTEMS.UNSIGNED32 range 1 .. 3 ) of RTEMS.ID;
|
|
||||||
TASK_NAME : array ( RTEMS.UNSIGNED32 range 1 .. 3 ) of RTEMS.NAME;
|
|
||||||
|
|
||||||
--
|
|
||||||
-- These arrays contain the IDs and NAMEs of all RTEMS semaphore
|
|
||||||
-- created by this test.
|
|
||||||
--
|
|
||||||
|
|
||||||
PARTITION_ID : array ( RTEMS.UNSIGNED32 range 1 .. 2 ) of RTEMS.ID;
|
|
||||||
PARTITION_NAME : array ( RTEMS.UNSIGNED32 range 1 .. 2 ) of RTEMS.NAME;
|
|
||||||
|
|
||||||
--
|
|
||||||
-- This variable contains the ID of the remote task with which this
|
|
||||||
-- test interacts.
|
|
||||||
--
|
|
||||||
|
|
||||||
REMOTE_TID : RTEMS.ID;
|
|
||||||
|
|
||||||
--
|
|
||||||
-- This variable contains the node on which the remote task with which
|
|
||||||
-- this test interacts resides.
|
|
||||||
--
|
|
||||||
|
|
||||||
REMOTE_NODE : RTEMS.UNSIGNED32;
|
|
||||||
|
|
||||||
--
|
|
||||||
-- INIT
|
|
||||||
--
|
|
||||||
-- DESCRIPTION:
|
|
||||||
--
|
|
||||||
-- This RTEMS task initializes the application.
|
|
||||||
--
|
|
||||||
|
|
||||||
procedure INIT (
|
|
||||||
ARGUMENT : in RTEMS.TASK_ARGUMENT
|
|
||||||
);
|
|
||||||
|
|
||||||
--
|
|
||||||
-- This is the area used for the partition.
|
|
||||||
--
|
|
||||||
|
|
||||||
PARTITION_AREA :
|
|
||||||
array ( RTEMS.UNSIGNED32 range 0 .. 1023 ) of RTEMS.UNSIGNED8;
|
|
||||||
for PARTITION_AREA'ALIGNMENT use RTEMS.STRUCTURE_ALIGNMENT;
|
|
||||||
|
|
||||||
--
|
|
||||||
-- This is the Driver Address Table for this test.
|
|
||||||
--
|
|
||||||
|
|
||||||
DEVICE_DRIVERS : aliased RTEMS.DRIVER_ADDRESS_TABLE( 1 .. 1 ) :=
|
|
||||||
(1=>
|
|
||||||
(
|
|
||||||
CLOCK_DRIVER.INITIALIZE'ACCESS, -- Initialization
|
|
||||||
RTEMS.NO_DRIVER_ENTRY, -- Open
|
|
||||||
RTEMS.NO_DRIVER_ENTRY, -- Close
|
|
||||||
RTEMS.NO_DRIVER_ENTRY, -- Read
|
|
||||||
RTEMS.NO_DRIVER_ENTRY, -- Write
|
|
||||||
RTEMS.NO_DRIVER_ENTRY -- Control
|
|
||||||
)
|
|
||||||
);
|
|
||||||
|
|
||||||
--
|
|
||||||
-- This is the Initialization Tasks Table for this test.
|
|
||||||
--
|
|
||||||
|
|
||||||
INITIALIZATION_TASKS : aliased RTEMS.INITIALIZATION_TASKS_TABLE( 1 .. 1 ) :=
|
|
||||||
(1=>
|
|
||||||
(
|
|
||||||
RTEMS.BUILD_NAME( 'U', 'I', '1', ' ' ), -- task name
|
|
||||||
2048, -- stack size
|
|
||||||
1, -- priority
|
|
||||||
RTEMS.DEFAULT_ATTRIBUTES, -- attributes
|
|
||||||
MPTEST.INIT'ACCESS, -- entry point
|
|
||||||
RTEMS.NO_PREEMPT, -- initial mode
|
|
||||||
0 -- argument list
|
|
||||||
)
|
|
||||||
);
|
|
||||||
|
|
||||||
----------------------------------------------------------------------------
|
|
||||||
----------------------------------------------------------------------------
|
|
||||||
-- BEGIN SUBPACKAGE --
|
|
||||||
----------------------------------------------------------------------------
|
|
||||||
----------------------------------------------------------------------------
|
|
||||||
|
|
||||||
--
|
|
||||||
-- MPTEST.PER_NODE_CONFIGURATION / SPECIFICATION
|
|
||||||
--
|
|
||||||
-- DESCRIPTION:
|
|
||||||
--
|
|
||||||
-- This package is the specification for the subpackage
|
|
||||||
-- which will define the per node configuration parameters.
|
|
||||||
--
|
|
||||||
|
|
||||||
package PER_NODE_CONFIGURATION is
|
|
||||||
|
|
||||||
--
|
|
||||||
-- LOCAL_NODE_NUMBER
|
|
||||||
--
|
|
||||||
-- DESCRIPTION:
|
|
||||||
--
|
|
||||||
-- This function returns the node number for this node.
|
|
||||||
--
|
|
||||||
|
|
||||||
function LOCAL_NODE_NUMBER
|
|
||||||
return RTEMS.UNSIGNED32;
|
|
||||||
|
|
||||||
pragma INLINE ( LOCAL_NODE_NUMBER );
|
|
||||||
|
|
||||||
end PER_NODE_CONFIGURATION;
|
|
||||||
|
|
||||||
----------------------------------------------------------------------------
|
|
||||||
----------------------------------------------------------------------------
|
|
||||||
-- END SUBPACKAGE --
|
|
||||||
----------------------------------------------------------------------------
|
|
||||||
----------------------------------------------------------------------------
|
|
||||||
|
|
||||||
--
|
|
||||||
-- This is the Multiprocessor Configuration Table for this test.
|
|
||||||
--
|
|
||||||
|
|
||||||
MULTIPROCESSING_CONFIGURATION : aliased RTEMS.MULTIPROCESSING_TABLE := (
|
|
||||||
MPTEST.PER_NODE_CONFIGURATION.LOCAL_NODE_NUMBER,
|
|
||||||
2, -- maximum # nodes in system
|
|
||||||
32, -- maximum # global objects
|
|
||||||
32 -- maximum # proxies
|
|
||||||
);
|
|
||||||
|
|
||||||
--
|
|
||||||
-- This is the Configuration Table for this test.
|
|
||||||
--
|
|
||||||
|
|
||||||
CONFIGURATION : aliased RTEMS.CONFIGURATION_TABLE := (
|
|
||||||
RTEMS.NULL_ADDRESS, -- will be replaced by BSP
|
|
||||||
64 * 1024, -- executive RAM size
|
|
||||||
10, -- maximum # tasks
|
|
||||||
0, -- maximum # timers
|
|
||||||
0, -- maximum # semaphores
|
|
||||||
0, -- maximum # message queues
|
|
||||||
0, -- maximum # messages
|
|
||||||
1, -- maximum # partitions
|
|
||||||
0, -- maximum # regions
|
|
||||||
0, -- maximum # dp memory areas
|
|
||||||
0, -- maximum # periods
|
|
||||||
0, -- maximum # user extensions
|
|
||||||
RTEMS.MILLISECONDS_TO_MICROSECONDS(10), -- # us in a tick
|
|
||||||
50 -- # ticks in a timeslice
|
|
||||||
);
|
|
||||||
|
|
||||||
end MPTEST;
|
|
||||||
@@ -1,6 +0,0 @@
|
|||||||
*** TEST 12 -- NODE 1 ***
|
|
||||||
Got to the initialization task
|
|
||||||
Creating Partition (Global)
|
|
||||||
Sleeping for three seconds
|
|
||||||
Deleting Partition (Global)
|
|
||||||
*** END OF TEST 12 ***
|
|
||||||
@@ -1,43 +0,0 @@
|
|||||||
--
|
|
||||||
-- MPTEST.PER_NODE_CONFIGURATION / BODY
|
|
||||||
--
|
|
||||||
-- DESCRIPTION:
|
|
||||||
--
|
|
||||||
-- This package is the specification for the subpackage
|
|
||||||
-- which will define the per node configuration parameters.
|
|
||||||
--
|
|
||||||
-- DEPENDENCIES:
|
|
||||||
--
|
|
||||||
--
|
|
||||||
--
|
|
||||||
-- COPYRIGHT (c) 1989-1997.
|
|
||||||
-- On-Line Applications Research Corporation (OAR).
|
|
||||||
-- Copyright assigned to U.S. Government, 1994.
|
|
||||||
--
|
|
||||||
-- The license and distribution terms for this file may in
|
|
||||||
-- the file LICENSE in this distribution or at
|
|
||||||
-- http://www.OARcorp.com/rtems/license.html.
|
|
||||||
--
|
|
||||||
-- $Id$
|
|
||||||
--
|
|
||||||
|
|
||||||
with RTEMS;
|
|
||||||
|
|
||||||
separate ( MPTEST )
|
|
||||||
|
|
||||||
package body PER_NODE_CONFIGURATION is
|
|
||||||
|
|
||||||
--PAGE
|
|
||||||
--
|
|
||||||
-- LOCAL_NODE_NUMBER
|
|
||||||
--
|
|
||||||
|
|
||||||
function LOCAL_NODE_NUMBER
|
|
||||||
return RTEMS.UNSIGNED32 is
|
|
||||||
begin
|
|
||||||
|
|
||||||
return 1;
|
|
||||||
|
|
||||||
end LOCAL_NODE_NUMBER;
|
|
||||||
|
|
||||||
end PER_NODE_CONFIGURATION;
|
|
||||||
@@ -1,9 +0,0 @@
|
|||||||
*** TEST 12 -- NODE 2 ***
|
|
||||||
Got to the initialization task
|
|
||||||
Getting ID of remote Partition (Global)
|
|
||||||
Attempting to delete remote Partition (Global)
|
|
||||||
partition_delete correctly returned ILLEGAL_ON_REMOTE_OBJECT!!
|
|
||||||
Obtaining a buffer from the global partition
|
|
||||||
Address returned was : 0x200f0000
|
|
||||||
NOTE: Address printed will probably differ!!!
|
|
||||||
*** END OF TEST 12 ***
|
|
||||||
@@ -1,43 +0,0 @@
|
|||||||
--
|
|
||||||
-- MPTEST.PER_NODE_CONFIGURATION / BODY
|
|
||||||
--
|
|
||||||
-- DESCRIPTION:
|
|
||||||
--
|
|
||||||
-- This package is the specification for the subpackage
|
|
||||||
-- which will define the per node configuration parameters.
|
|
||||||
--
|
|
||||||
-- DEPENDENCIES:
|
|
||||||
--
|
|
||||||
--
|
|
||||||
--
|
|
||||||
-- COPYRIGHT (c) 1989-1997.
|
|
||||||
-- On-Line Applications Research Corporation (OAR).
|
|
||||||
-- Copyright assigned to U.S. Government, 1994.
|
|
||||||
--
|
|
||||||
-- The license and distribution terms for this file may in
|
|
||||||
-- the file LICENSE in this distribution or at
|
|
||||||
-- http://www.OARcorp.com/rtems/license.html.
|
|
||||||
--
|
|
||||||
-- $Id$
|
|
||||||
--
|
|
||||||
|
|
||||||
with RTEMS;
|
|
||||||
|
|
||||||
separate ( MPTEST )
|
|
||||||
|
|
||||||
package body PER_NODE_CONFIGURATION is
|
|
||||||
|
|
||||||
--PAGE
|
|
||||||
--
|
|
||||||
-- LOCAL_NODE_NUMBER
|
|
||||||
--
|
|
||||||
|
|
||||||
function LOCAL_NODE_NUMBER
|
|
||||||
return RTEMS.UNSIGNED32 is
|
|
||||||
begin
|
|
||||||
|
|
||||||
return 2;
|
|
||||||
|
|
||||||
end LOCAL_NODE_NUMBER;
|
|
||||||
|
|
||||||
end PER_NODE_CONFIGURATION;
|
|
||||||
@@ -1,328 +0,0 @@
|
|||||||
--
|
|
||||||
-- MPTEST / BODY
|
|
||||||
--
|
|
||||||
-- DESCRIPTION:
|
|
||||||
--
|
|
||||||
-- This package is the implementation for Test 13 of the RTEMS
|
|
||||||
-- Multiprocessor Test Suite.
|
|
||||||
--
|
|
||||||
-- DEPENDENCIES:
|
|
||||||
--
|
|
||||||
--
|
|
||||||
--
|
|
||||||
-- COPYRIGHT (c) 1989-1997.
|
|
||||||
-- On-Line Applications Research Corporation (OAR).
|
|
||||||
-- Copyright assigned to U.S. Government, 1994.
|
|
||||||
--
|
|
||||||
-- The license and distribution terms for this file may in
|
|
||||||
-- the file LICENSE in this distribution or at
|
|
||||||
-- http://www.OARcorp.com/rtems/license.html.
|
|
||||||
--
|
|
||||||
-- $Id$
|
|
||||||
--
|
|
||||||
|
|
||||||
with INTERFACES; use INTERFACES;
|
|
||||||
with RTEMS;
|
|
||||||
with TEST_SUPPORT;
|
|
||||||
with TEXT_IO;
|
|
||||||
with UNSIGNED32_IO;
|
|
||||||
|
|
||||||
package body MPTEST is
|
|
||||||
|
|
||||||
package body PER_NODE_CONFIGURATION is separate;
|
|
||||||
|
|
||||||
--PAGE
|
|
||||||
--
|
|
||||||
-- INIT
|
|
||||||
--
|
|
||||||
|
|
||||||
procedure INIT (
|
|
||||||
ARGUMENT : in RTEMS.TASK_ARGUMENT
|
|
||||||
) is
|
|
||||||
STATUS : RTEMS.STATUS_CODES;
|
|
||||||
begin
|
|
||||||
|
|
||||||
TEXT_IO.NEW_LINE( 2 );
|
|
||||||
TEXT_IO.PUT( "*** TEST 13 -- NODE " );
|
|
||||||
UNSIGNED32_IO.PUT(
|
|
||||||
MPTEST.MULTIPROCESSING_CONFIGURATION.NODE,
|
|
||||||
WIDTH => 1
|
|
||||||
);
|
|
||||||
TEXT_IO.PUT_LINE( " ***" );
|
|
||||||
|
|
||||||
MPTEST.TASK_NAME( 1 ) := RTEMS.BUILD_NAME( '1', '1', '1', ' ' );
|
|
||||||
MPTEST.TASK_NAME( 2 ) := RTEMS.BUILD_NAME( '2', '2', '2', ' ' );
|
|
||||||
|
|
||||||
MPTEST.QUEUE_NAME( 1 ) := RTEMS.BUILD_NAME( 'M', 'S', 'G', ' ' );
|
|
||||||
|
|
||||||
MPTEST.SEMAPHORE_NAME( 1 ) := RTEMS.BUILD_NAME( 'S', 'E', 'M', ' ' );
|
|
||||||
|
|
||||||
if MPTEST.MULTIPROCESSING_CONFIGURATION.NODE = 1 then
|
|
||||||
|
|
||||||
TEXT_IO.PUT_LINE( "Creating Message Queue (Global)" );
|
|
||||||
RTEMS.MESSAGE_QUEUE_CREATE(
|
|
||||||
MPTEST.QUEUE_NAME( 1 ),
|
|
||||||
3,
|
|
||||||
RTEMS.GLOBAL + RTEMS.LIMIT,
|
|
||||||
MPTEST.QUEUE_ID( 1 ),
|
|
||||||
STATUS
|
|
||||||
);
|
|
||||||
TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "MESSAGE_QUEUE_CREATE" );
|
|
||||||
|
|
||||||
TEXT_IO.PUT_LINE( "Creating Semaphore (Global)" );
|
|
||||||
RTEMS.SEMAPHORE_CREATE(
|
|
||||||
MPTEST.SEMAPHORE_NAME( 1 ),
|
|
||||||
1,
|
|
||||||
RTEMS.GLOBAL + RTEMS.PRIORITY,
|
|
||||||
MPTEST.SEMAPHORE_ID( 1 ),
|
|
||||||
STATUS
|
|
||||||
);
|
|
||||||
TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "SEMAPHORE_CREATE" );
|
|
||||||
|
|
||||||
RTEMS.SEMAPHORE_OBTAIN(
|
|
||||||
MPTEST.SEMAPHORE_ID( 1 ),
|
|
||||||
RTEMS.DEFAULT_OPTIONS,
|
|
||||||
RTEMS.NO_TIMEOUT,
|
|
||||||
STATUS
|
|
||||||
);
|
|
||||||
TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "SEMAPHORE_OBTAIN" );
|
|
||||||
|
|
||||||
end if;
|
|
||||||
|
|
||||||
TEXT_IO.PUT_LINE( "Creating Test_task 1 (local)" );
|
|
||||||
RTEMS.TASK_CREATE(
|
|
||||||
MPTEST.TASK_NAME( 1 ),
|
|
||||||
1,
|
|
||||||
2048,
|
|
||||||
RTEMS.TIMESLICE,
|
|
||||||
RTEMS.DEFAULT_ATTRIBUTES,
|
|
||||||
MPTEST.TASK_ID( 1 ),
|
|
||||||
STATUS
|
|
||||||
);
|
|
||||||
TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "TASK_CREATE" );
|
|
||||||
|
|
||||||
TEXT_IO.PUT_LINE( "Starting Test_task 1 (local)" );
|
|
||||||
RTEMS.TASK_START(
|
|
||||||
MPTEST.TASK_ID( 1 ),
|
|
||||||
MPTEST.TEST_TASK_1'ACCESS,
|
|
||||||
0,
|
|
||||||
STATUS
|
|
||||||
);
|
|
||||||
TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "TASK_START" );
|
|
||||||
|
|
||||||
TEXT_IO.PUT_LINE( "Creating Test_task 2 (local)" );
|
|
||||||
RTEMS.TASK_CREATE(
|
|
||||||
MPTEST.TASK_NAME( 2 ),
|
|
||||||
1,
|
|
||||||
2048,
|
|
||||||
RTEMS.TIMESLICE,
|
|
||||||
RTEMS.DEFAULT_ATTRIBUTES,
|
|
||||||
MPTEST.TASK_ID( 2 ),
|
|
||||||
STATUS
|
|
||||||
);
|
|
||||||
TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "TASK_CREATE" );
|
|
||||||
|
|
||||||
TEXT_IO.PUT_LINE( "Starting Test_task 2 (local)" );
|
|
||||||
RTEMS.TASK_START(
|
|
||||||
MPTEST.TASK_ID( 2 ),
|
|
||||||
MPTEST.TEST_TASK_2'ACCESS,
|
|
||||||
0,
|
|
||||||
STATUS
|
|
||||||
);
|
|
||||||
TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "TASK_START" );
|
|
||||||
|
|
||||||
if MPTEST.MULTIPROCESSING_CONFIGURATION.NODE = 1 then
|
|
||||||
|
|
||||||
RTEMS.TASK_WAKE_AFTER( 5 * TEST_SUPPORT.TICKS_PER_SECOND, STATUS );
|
|
||||||
TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "TASK_WAKE_AFTER" );
|
|
||||||
|
|
||||||
TEXT_IO.PUT_LINE( "*** END OF TEST 13 ***" );
|
|
||||||
|
|
||||||
RTEMS.SHUTDOWN_EXECUTIVE( 0 );
|
|
||||||
|
|
||||||
end if;
|
|
||||||
|
|
||||||
TEXT_IO.PUT_LINE( "Deleting initialization task" );
|
|
||||||
RTEMS.TASK_DELETE( RTEMS.SELF, STATUS );
|
|
||||||
TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "TASK_DELETE OF SELF" );
|
|
||||||
|
|
||||||
end INIT;
|
|
||||||
|
|
||||||
--PAGE
|
|
||||||
--
|
|
||||||
-- TEST_TASK_1
|
|
||||||
--
|
|
||||||
|
|
||||||
procedure TEST_TASK_1 (
|
|
||||||
ARGUMENT : in RTEMS.TASK_ARGUMENT
|
|
||||||
) is
|
|
||||||
COUNT : RTEMS.UNSIGNED32;
|
|
||||||
RECEIVE_BUFFER_AREA : RTEMS.BUFFER;
|
|
||||||
RECEIVE_BUFFER : RTEMS.BUFFER_POINTER;
|
|
||||||
STATUS : RTEMS.STATUS_CODES;
|
|
||||||
begin
|
|
||||||
|
|
||||||
RECEIVE_BUFFER :=
|
|
||||||
RTEMS.TO_BUFFER_POINTER( RECEIVE_BUFFER_AREA'ADDRESS );
|
|
||||||
|
|
||||||
TEXT_IO.PUT_LINE( "Getting QID of message queue" );
|
|
||||||
|
|
||||||
loop
|
|
||||||
|
|
||||||
RTEMS.MESSAGE_QUEUE_IDENT(
|
|
||||||
MPTEST.QUEUE_NAME( 1 ),
|
|
||||||
RTEMS.SEARCH_ALL_NODES,
|
|
||||||
MPTEST.QUEUE_ID( 1 ),
|
|
||||||
STATUS
|
|
||||||
);
|
|
||||||
|
|
||||||
exit when RTEMS.IS_STATUS_SUCCESSFUL( STATUS );
|
|
||||||
|
|
||||||
end loop;
|
|
||||||
|
|
||||||
if MPTEST.MULTIPROCESSING_CONFIGURATION.NODE = 1 then
|
|
||||||
|
|
||||||
TEXT_IO.PUT_LINE( "Receiving message ..." );
|
|
||||||
RTEMS.MESSAGE_QUEUE_RECEIVE(
|
|
||||||
MPTEST.QUEUE_ID( 1 ),
|
|
||||||
RECEIVE_BUFFER,
|
|
||||||
RTEMS.DEFAULT_OPTIONS,
|
|
||||||
RTEMS.NO_TIMEOUT,
|
|
||||||
STATUS
|
|
||||||
);
|
|
||||||
TEXT_IO.PUT_LINE( "How did I get back from here???" );
|
|
||||||
TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "MESSAGE_QUEUE_RECEIVE" );
|
|
||||||
|
|
||||||
end if;
|
|
||||||
|
|
||||||
RTEMS.TASK_WAKE_AFTER( TEST_SUPPORT.TICKS_PER_SECOND, STATUS );
|
|
||||||
TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "TASK_WAKE_AFTER" );
|
|
||||||
|
|
||||||
TEXT_IO.PUT_LINE( "Receiving message ..." );
|
|
||||||
RTEMS.MESSAGE_QUEUE_RECEIVE(
|
|
||||||
MPTEST.QUEUE_ID( 1 ),
|
|
||||||
RECEIVE_BUFFER,
|
|
||||||
RTEMS.DEFAULT_OPTIONS,
|
|
||||||
2 * TEST_SUPPORT.TICKS_PER_SECOND,
|
|
||||||
STATUS
|
|
||||||
);
|
|
||||||
TEST_SUPPORT.FATAL_DIRECTIVE_STATUS(
|
|
||||||
STATUS,
|
|
||||||
RTEMS.TIMEOUT,
|
|
||||||
"MESSAGE_QUEUE_RECEIVE"
|
|
||||||
);
|
|
||||||
TEST_SUPPORT.FATAL_DIRECTIVE_STATUS(
|
|
||||||
STATUS,
|
|
||||||
RTEMS.TIMEOUT,
|
|
||||||
"MESSAGE_QUEUE_OBTAIN"
|
|
||||||
);
|
|
||||||
|
|
||||||
TEXT_IO.PUT_LINE(
|
|
||||||
"message_queue_receive correctly returned TIMEOUT"
|
|
||||||
);
|
|
||||||
|
|
||||||
TEXT_IO.PUT_LINE( "Deleting self" );
|
|
||||||
RTEMS.TASK_DELETE( RTEMS.SELF, STATUS );
|
|
||||||
TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "TASK_DELETE OF SELF" );
|
|
||||||
|
|
||||||
end TEST_TASK_1;
|
|
||||||
|
|
||||||
--PAGE
|
|
||||||
--
|
|
||||||
-- TEST_TASK_2
|
|
||||||
--
|
|
||||||
|
|
||||||
procedure TEST_TASK_2 (
|
|
||||||
ARGUMENT : in RTEMS.TASK_ARGUMENT
|
|
||||||
) is
|
|
||||||
STATUS : RTEMS.STATUS_CODES;
|
|
||||||
begin
|
|
||||||
|
|
||||||
TEXT_IO.PUT_LINE( "Getting SMID of semaphore" );
|
|
||||||
|
|
||||||
loop
|
|
||||||
|
|
||||||
RTEMS.SEMAPHORE_IDENT(
|
|
||||||
MPTEST.SEMAPHORE_NAME( 1 ),
|
|
||||||
RTEMS.SEARCH_ALL_NODES,
|
|
||||||
MPTEST.SEMAPHORE_ID( 1 ),
|
|
||||||
STATUS
|
|
||||||
);
|
|
||||||
|
|
||||||
exit when RTEMS.IS_STATUS_SUCCESSFUL( STATUS );
|
|
||||||
|
|
||||||
end loop;
|
|
||||||
|
|
||||||
if MPTEST.MULTIPROCESSING_CONFIGURATION.NODE = 1 then
|
|
||||||
|
|
||||||
RTEMS.TASK_WAKE_AFTER( TEST_SUPPORT.TICKS_PER_SECOND, STATUS );
|
|
||||||
TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "TASK_WAKE_AFTER" );
|
|
||||||
|
|
||||||
TEXT_IO.PUT_LINE( "Releasing semaphore ..." );
|
|
||||||
RTEMS.SEMAPHORE_RELEASE( MPTEST.SEMAPHORE_ID( 1 ), STATUS );
|
|
||||||
TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "SEMAPHORE_RELEASE" );
|
|
||||||
|
|
||||||
RTEMS.TASK_WAKE_AFTER( TEST_SUPPORT.TICKS_PER_SECOND / 2, STATUS );
|
|
||||||
TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "TASK_WAKE_AFTER" );
|
|
||||||
|
|
||||||
TEXT_IO.PUT_LINE( "Getting semaphore ..." );
|
|
||||||
RTEMS.SEMAPHORE_OBTAIN(
|
|
||||||
MPTEST.SEMAPHORE_ID( 1 ),
|
|
||||||
RTEMS.DEFAULT_OPTIONS,
|
|
||||||
RTEMS.NO_TIMEOUT,
|
|
||||||
STATUS
|
|
||||||
);
|
|
||||||
TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "SEMAPHORE_OBTAIN" );
|
|
||||||
|
|
||||||
TEXT_IO.PUT_LINE( "Getting semaphore ..." );
|
|
||||||
RTEMS.SEMAPHORE_OBTAIN(
|
|
||||||
MPTEST.SEMAPHORE_ID( 1 ),
|
|
||||||
RTEMS.DEFAULT_OPTIONS,
|
|
||||||
RTEMS.NO_TIMEOUT,
|
|
||||||
STATUS
|
|
||||||
);
|
|
||||||
TEXT_IO.PUT_LINE( "How did I get back from here???" );
|
|
||||||
TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "SEMAPHORE_OBTAIN" );
|
|
||||||
|
|
||||||
end if;
|
|
||||||
|
|
||||||
RTEMS.TASK_WAKE_AFTER( TEST_SUPPORT.TICKS_PER_SECOND / 2, STATUS );
|
|
||||||
TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "TASK_WAKE_AFTER" );
|
|
||||||
|
|
||||||
TEXT_IO.PUT_LINE( "Getting semaphore ..." );
|
|
||||||
RTEMS.SEMAPHORE_OBTAIN(
|
|
||||||
MPTEST.SEMAPHORE_ID( 1 ),
|
|
||||||
RTEMS.DEFAULT_OPTIONS,
|
|
||||||
RTEMS.NO_TIMEOUT,
|
|
||||||
STATUS
|
|
||||||
);
|
|
||||||
TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "SEMAPHORE_OBTAIN" );
|
|
||||||
|
|
||||||
TEXT_IO.PUT_LINE( "Releasing semaphore ..." );
|
|
||||||
RTEMS.SEMAPHORE_RELEASE( MPTEST.SEMAPHORE_ID( 1 ), STATUS );
|
|
||||||
TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "SEMAPHORE_RELEASE" );
|
|
||||||
|
|
||||||
RTEMS.TASK_WAKE_AFTER( TEST_SUPPORT.TICKS_PER_SECOND, STATUS );
|
|
||||||
TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "TASK_WAKE_AFTER" );
|
|
||||||
|
|
||||||
TEXT_IO.PUT_LINE( "Getting semaphore ..." );
|
|
||||||
RTEMS.SEMAPHORE_OBTAIN(
|
|
||||||
MPTEST.SEMAPHORE_ID( 1 ),
|
|
||||||
RTEMS.DEFAULT_OPTIONS,
|
|
||||||
2 * TEST_SUPPORT.TICKS_PER_SECOND,
|
|
||||||
STATUS
|
|
||||||
);
|
|
||||||
TEST_SUPPORT.FATAL_DIRECTIVE_STATUS(
|
|
||||||
STATUS,
|
|
||||||
RTEMS.TIMEOUT,
|
|
||||||
"SEMAPHORE_OBTAIN"
|
|
||||||
);
|
|
||||||
TEXT_IO.PUT_LINE( "semaphore_obtain correctly returned TIMEOUT" );
|
|
||||||
|
|
||||||
TEXT_IO.PUT_LINE( "*** END OF TEST 13 ***" );
|
|
||||||
|
|
||||||
RTEMS.SHUTDOWN_EXECUTIVE( 0 );
|
|
||||||
|
|
||||||
end TEST_TASK_2;
|
|
||||||
|
|
||||||
end MPTEST;
|
|
||||||
@@ -1,206 +0,0 @@
|
|||||||
--
|
|
||||||
-- MPTEST / SPECIFICATION
|
|
||||||
--
|
|
||||||
-- DESCRIPTION:
|
|
||||||
--
|
|
||||||
-- This package is the specification for Test 13 of the RTEMS
|
|
||||||
-- Multiprocessor Test Suite.
|
|
||||||
--
|
|
||||||
-- DEPENDENCIES:
|
|
||||||
--
|
|
||||||
--
|
|
||||||
--
|
|
||||||
-- COPYRIGHT (c) 1989-1997.
|
|
||||||
-- On-Line Applications Research Corporation (OAR).
|
|
||||||
-- Copyright assigned to U.S. Government, 1994.
|
|
||||||
--
|
|
||||||
-- The license and distribution terms for this file may in
|
|
||||||
-- the file LICENSE in this distribution or at
|
|
||||||
-- http://www.OARcorp.com/rtems/license.html.
|
|
||||||
--
|
|
||||||
-- $Id$
|
|
||||||
--
|
|
||||||
|
|
||||||
with BSP_MPCI;
|
|
||||||
with RTEMS;
|
|
||||||
|
|
||||||
package MPTEST is
|
|
||||||
|
|
||||||
--
|
|
||||||
-- These arrays contain the IDs and NAMEs of all RTEMS tasks created
|
|
||||||
-- by this test.
|
|
||||||
--
|
|
||||||
|
|
||||||
TASK_ID : array ( RTEMS.UNSIGNED32 range 1 .. 3 ) of RTEMS.ID;
|
|
||||||
TASK_NAME : array ( RTEMS.UNSIGNED32 range 1 .. 3 ) of RTEMS.NAME;
|
|
||||||
|
|
||||||
--
|
|
||||||
-- These arrays contain the IDs and NAMEs of all RTEMS message
|
|
||||||
-- queues created by this test.
|
|
||||||
--
|
|
||||||
|
|
||||||
QUEUE_ID : array ( RTEMS.UNSIGNED32 range 1 .. 2 ) of RTEMS.ID;
|
|
||||||
QUEUE_NAME : array ( RTEMS.UNSIGNED32 range 1 .. 2 ) of RTEMS.NAME;
|
|
||||||
|
|
||||||
--
|
|
||||||
-- These arrays contain the IDs and NAMEs of all RTEMS semaphore
|
|
||||||
-- created by this test.
|
|
||||||
--
|
|
||||||
|
|
||||||
SEMAPHORE_ID : array ( RTEMS.UNSIGNED32 range 1 .. 2 ) of RTEMS.ID;
|
|
||||||
SEMAPHORE_NAME : array ( RTEMS.UNSIGNED32 range 1 .. 2 ) of RTEMS.NAME;
|
|
||||||
|
|
||||||
--
|
|
||||||
-- This variable contains the ID of the remote task with which this
|
|
||||||
-- test interacts.
|
|
||||||
--
|
|
||||||
|
|
||||||
REMOTE_TID : RTEMS.ID;
|
|
||||||
|
|
||||||
--
|
|
||||||
-- This variable contains the node on which the remote task with which
|
|
||||||
-- this test interacts resides.
|
|
||||||
--
|
|
||||||
|
|
||||||
REMOTE_NODE : RTEMS.UNSIGNED32;
|
|
||||||
|
|
||||||
--
|
|
||||||
-- INIT
|
|
||||||
--
|
|
||||||
-- DESCRIPTION:
|
|
||||||
--
|
|
||||||
-- This RTEMS task initializes the application.
|
|
||||||
--
|
|
||||||
|
|
||||||
procedure INIT (
|
|
||||||
ARGUMENT : in RTEMS.TASK_ARGUMENT
|
|
||||||
);
|
|
||||||
|
|
||||||
--
|
|
||||||
-- TEST_TASK_1
|
|
||||||
--
|
|
||||||
-- DESCRIPTION:
|
|
||||||
--
|
|
||||||
-- This is the body of one of the RTEMS tasks which constitute this test.
|
|
||||||
--
|
|
||||||
|
|
||||||
procedure TEST_TASK_1 (
|
|
||||||
ARGUMENT : in RTEMS.TASK_ARGUMENT
|
|
||||||
);
|
|
||||||
|
|
||||||
--
|
|
||||||
-- TEST_TASK_2
|
|
||||||
--
|
|
||||||
-- DESCRIPTION:
|
|
||||||
--
|
|
||||||
-- This is the body of one of the RTEMS tasks which constitute this test.
|
|
||||||
--
|
|
||||||
|
|
||||||
procedure TEST_TASK_2 (
|
|
||||||
ARGUMENT : in RTEMS.TASK_ARGUMENT
|
|
||||||
);
|
|
||||||
|
|
||||||
--
|
|
||||||
-- This is the Driver Address Table for this test.
|
|
||||||
--
|
|
||||||
|
|
||||||
DEVICE_DRIVERS : aliased RTEMS.DRIVER_ADDRESS_TABLE( 1 .. 1 ) :=
|
|
||||||
(1=>
|
|
||||||
(
|
|
||||||
CLOCK_DRIVER.INITIALIZE'ACCESS, -- Initialization
|
|
||||||
RTEMS.NO_DRIVER_ENTRY, -- Open
|
|
||||||
RTEMS.NO_DRIVER_ENTRY, -- Close
|
|
||||||
RTEMS.NO_DRIVER_ENTRY, -- Read
|
|
||||||
RTEMS.NO_DRIVER_ENTRY, -- Write
|
|
||||||
RTEMS.NO_DRIVER_ENTRY -- Control
|
|
||||||
)
|
|
||||||
);
|
|
||||||
|
|
||||||
--
|
|
||||||
-- This is the Initialization Tasks Table for this test.
|
|
||||||
--
|
|
||||||
|
|
||||||
INITIALIZATION_TASKS : aliased RTEMS.INITIALIZATION_TASKS_TABLE( 1 .. 1 ) :=
|
|
||||||
(1=>
|
|
||||||
(
|
|
||||||
RTEMS.BUILD_NAME( 'U', 'I', '1', ' ' ), -- task name
|
|
||||||
2048, -- stack size
|
|
||||||
1, -- priority
|
|
||||||
RTEMS.DEFAULT_ATTRIBUTES, -- attributes
|
|
||||||
MPTEST.INIT'ACCESS, -- entry point
|
|
||||||
RTEMS.NO_PREEMPT, -- initial mode
|
|
||||||
0 -- argument list
|
|
||||||
)
|
|
||||||
);
|
|
||||||
|
|
||||||
----------------------------------------------------------------------------
|
|
||||||
----------------------------------------------------------------------------
|
|
||||||
-- BEGIN SUBPACKAGE --
|
|
||||||
----------------------------------------------------------------------------
|
|
||||||
----------------------------------------------------------------------------
|
|
||||||
|
|
||||||
--
|
|
||||||
-- MPTEST.PER_NODE_CONFIGURATION / SPECIFICATION
|
|
||||||
--
|
|
||||||
-- DESCRIPTION:
|
|
||||||
--
|
|
||||||
-- This package is the specification for the subpackage
|
|
||||||
-- which will define the per node configuration parameters.
|
|
||||||
--
|
|
||||||
|
|
||||||
package PER_NODE_CONFIGURATION is
|
|
||||||
|
|
||||||
--
|
|
||||||
-- LOCAL_NODE_NUMBER
|
|
||||||
--
|
|
||||||
-- DESCRIPTION:
|
|
||||||
--
|
|
||||||
-- This function returns the node number for this node.
|
|
||||||
--
|
|
||||||
|
|
||||||
function LOCAL_NODE_NUMBER
|
|
||||||
return RTEMS.UNSIGNED32;
|
|
||||||
|
|
||||||
pragma INLINE ( LOCAL_NODE_NUMBER );
|
|
||||||
|
|
||||||
end PER_NODE_CONFIGURATION;
|
|
||||||
|
|
||||||
----------------------------------------------------------------------------
|
|
||||||
----------------------------------------------------------------------------
|
|
||||||
-- END SUBPACKAGE --
|
|
||||||
----------------------------------------------------------------------------
|
|
||||||
----------------------------------------------------------------------------
|
|
||||||
|
|
||||||
--
|
|
||||||
-- This is the Multiprocessor Configuration Table for this test.
|
|
||||||
--
|
|
||||||
|
|
||||||
MULTIPROCESSING_CONFIGURATION : aliased RTEMS.MULTIPROCESSING_TABLE := (
|
|
||||||
MPTEST.PER_NODE_CONFIGURATION.LOCAL_NODE_NUMBER,
|
|
||||||
2, -- maximum # nodes in system
|
|
||||||
32, -- maximum # global objects
|
|
||||||
32 -- maximum # proxies
|
|
||||||
);
|
|
||||||
|
|
||||||
--
|
|
||||||
-- This is the Configuration Table for this test.
|
|
||||||
--
|
|
||||||
|
|
||||||
CONFIGURATION : aliased RTEMS.CONFIGURATION_TABLE := (
|
|
||||||
RTEMS.NULL_ADDRESS, -- will be replaced by BSP
|
|
||||||
64 * 1024, -- executive RAM size
|
|
||||||
10, -- maximum # tasks
|
|
||||||
0, -- maximum # timers
|
|
||||||
1, -- maximum # semaphores
|
|
||||||
1, -- maximum # message queues
|
|
||||||
0, -- maximum # messages
|
|
||||||
0, -- maximum # partitions
|
|
||||||
0, -- maximum # regions
|
|
||||||
0, -- maximum # dp memory areas
|
|
||||||
0, -- maximum # periods
|
|
||||||
0, -- maximum # user extensions
|
|
||||||
RTEMS.MILLISECONDS_TO_MICROSECONDS(10), -- # us in a tick
|
|
||||||
50 -- # ticks in a timeslice
|
|
||||||
);
|
|
||||||
|
|
||||||
end MPTEST;
|
|
||||||
@@ -1,14 +0,0 @@
|
|||||||
*** TEST 13 -- NODE 1 ***
|
|
||||||
Creating Message Queue (Global)
|
|
||||||
Creating Semaphore (Global)
|
|
||||||
Creating Test_task 1 (local)
|
|
||||||
Starting Test_task 1 (local)
|
|
||||||
Creating Test_task 2 (local)
|
|
||||||
Starting Test_task 2 (local)
|
|
||||||
Getting QID of message queue
|
|
||||||
Receiving message ...
|
|
||||||
Getting SMID of semaphore
|
|
||||||
Releasing semaphore ...
|
|
||||||
Getting semaphore ...
|
|
||||||
Getting semaphore ...
|
|
||||||
*** END OF TEST 13 ***
|
|
||||||
@@ -1,43 +0,0 @@
|
|||||||
--
|
|
||||||
-- MPTEST.PER_NODE_CONFIGURATION / BODY
|
|
||||||
--
|
|
||||||
-- DESCRIPTION:
|
|
||||||
--
|
|
||||||
-- This package is the specification for the subpackage
|
|
||||||
-- which will define the per node configuration parameters.
|
|
||||||
--
|
|
||||||
-- DEPENDENCIES:
|
|
||||||
--
|
|
||||||
--
|
|
||||||
--
|
|
||||||
-- COPYRIGHT (c) 1989-1997.
|
|
||||||
-- On-Line Applications Research Corporation (OAR).
|
|
||||||
-- Copyright assigned to U.S. Government, 1994.
|
|
||||||
--
|
|
||||||
-- The license and distribution terms for this file may in
|
|
||||||
-- the file LICENSE in this distribution or at
|
|
||||||
-- http://www.OARcorp.com/rtems/license.html.
|
|
||||||
--
|
|
||||||
-- $Id$
|
|
||||||
--
|
|
||||||
|
|
||||||
with RTEMS;
|
|
||||||
|
|
||||||
separate ( MPTEST )
|
|
||||||
|
|
||||||
package body PER_NODE_CONFIGURATION is
|
|
||||||
|
|
||||||
--PAGE
|
|
||||||
--
|
|
||||||
-- LOCAL_NODE_NUMBER
|
|
||||||
--
|
|
||||||
|
|
||||||
function LOCAL_NODE_NUMBER
|
|
||||||
return RTEMS.UNSIGNED32 is
|
|
||||||
begin
|
|
||||||
|
|
||||||
return 1;
|
|
||||||
|
|
||||||
end LOCAL_NODE_NUMBER;
|
|
||||||
|
|
||||||
end PER_NODE_CONFIGURATION;
|
|
||||||
@@ -1,16 +0,0 @@
|
|||||||
*** TEST 13 -- NODE 2 ***
|
|
||||||
Creating Test_task 1 (local)
|
|
||||||
Starting Test_task 1 (local)
|
|
||||||
Creating Test_task 2 (local)
|
|
||||||
Starting Test_task 2 (local)
|
|
||||||
Deleting initialization task
|
|
||||||
Getting QID of message queue
|
|
||||||
Getting SMID of semaphore
|
|
||||||
Getting semaphore ...
|
|
||||||
Releasing semaphore ...
|
|
||||||
Receiving message ...
|
|
||||||
Getting semaphore ...
|
|
||||||
message_queue_receive correctly returned TIMEOUT
|
|
||||||
Deleting self
|
|
||||||
semaphore_obtain correctly returned TIMEOUT
|
|
||||||
*** END OF TEST 13 ***
|
|
||||||
@@ -1,43 +0,0 @@
|
|||||||
--
|
|
||||||
-- MPTEST.PER_NODE_CONFIGURATION / BODY
|
|
||||||
--
|
|
||||||
-- DESCRIPTION:
|
|
||||||
--
|
|
||||||
-- This package is the specification for the subpackage
|
|
||||||
-- which will define the per node configuration parameters.
|
|
||||||
--
|
|
||||||
-- DEPENDENCIES:
|
|
||||||
--
|
|
||||||
--
|
|
||||||
--
|
|
||||||
-- COPYRIGHT (c) 1989-1997.
|
|
||||||
-- On-Line Applications Research Corporation (OAR).
|
|
||||||
-- Copyright assigned to U.S. Government, 1994.
|
|
||||||
--
|
|
||||||
-- The license and distribution terms for this file may in
|
|
||||||
-- the file LICENSE in this distribution or at
|
|
||||||
-- http://www.OARcorp.com/rtems/license.html.
|
|
||||||
--
|
|
||||||
-- $Id$
|
|
||||||
--
|
|
||||||
|
|
||||||
with RTEMS;
|
|
||||||
|
|
||||||
separate ( MPTEST )
|
|
||||||
|
|
||||||
package body PER_NODE_CONFIGURATION is
|
|
||||||
|
|
||||||
--PAGE
|
|
||||||
--
|
|
||||||
-- LOCAL_NODE_NUMBER
|
|
||||||
--
|
|
||||||
|
|
||||||
function LOCAL_NODE_NUMBER
|
|
||||||
return RTEMS.UNSIGNED32 is
|
|
||||||
begin
|
|
||||||
|
|
||||||
return 2;
|
|
||||||
|
|
||||||
end LOCAL_NODE_NUMBER;
|
|
||||||
|
|
||||||
end PER_NODE_CONFIGURATION;
|
|
||||||
@@ -1,764 +0,0 @@
|
|||||||
--
|
|
||||||
-- MPTEST / BODY
|
|
||||||
--
|
|
||||||
-- DESCRIPTION:
|
|
||||||
--
|
|
||||||
-- This package is the implementation for Test 14 of the RTEMS
|
|
||||||
-- Multiprocessor Test Suite.
|
|
||||||
--
|
|
||||||
-- DEPENDENCIES:
|
|
||||||
--
|
|
||||||
--
|
|
||||||
--
|
|
||||||
-- COPYRIGHT (c) 1989-1997.
|
|
||||||
-- On-Line Applications Research Corporation (OAR).
|
|
||||||
-- Copyright assigned to U.S. Government, 1994.
|
|
||||||
--
|
|
||||||
-- The license and distribution terms for this file may in
|
|
||||||
-- the file LICENSE in this distribution or at
|
|
||||||
-- http://www.OARcorp.com/rtems/license.html.
|
|
||||||
--
|
|
||||||
-- $Id$
|
|
||||||
--
|
|
||||||
|
|
||||||
with INTERFACES; use INTERFACES;
|
|
||||||
with BSP;
|
|
||||||
with BSP_MPCI;
|
|
||||||
with RTEMS;
|
|
||||||
with TEST_SUPPORT;
|
|
||||||
with TEXT_IO;
|
|
||||||
with UNSIGNED32_IO;
|
|
||||||
|
|
||||||
package body MPTEST is
|
|
||||||
|
|
||||||
package body PER_NODE_CONFIGURATION is separate;
|
|
||||||
|
|
||||||
--PAGE
|
|
||||||
--
|
|
||||||
-- STOP_TEST_TSR
|
|
||||||
--
|
|
||||||
|
|
||||||
procedure STOP_TEST_TSR (
|
|
||||||
IGNORED_ID : in RTEMS.ID;
|
|
||||||
IGNORED_ADDRESS : in RTEMS.ADDRESS
|
|
||||||
) is
|
|
||||||
begin
|
|
||||||
|
|
||||||
MPTEST.STOP_TEST := TRUE;
|
|
||||||
|
|
||||||
end STOP_TEST_TSR;
|
|
||||||
|
|
||||||
--PAGE
|
|
||||||
--
|
|
||||||
-- EXIT_TEST
|
|
||||||
--
|
|
||||||
|
|
||||||
procedure EXIT_TEST is
|
|
||||||
OLD_MODE : RTEMS.MODE;
|
|
||||||
STATUS : RTEMS.STATUS_CODES;
|
|
||||||
begin
|
|
||||||
|
|
||||||
RTEMS.TASK_MODE( RTEMS.NO_PREEMPT, RTEMS.PREEMPT_MASK, OLD_MODE, STATUS );
|
|
||||||
TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "TASK_MODE" );
|
|
||||||
|
|
||||||
BSP_MPCI.PRINT_STATISTICS;
|
|
||||||
|
|
||||||
RTEMS.SHUTDOWN_EXECUTIVE( 0 );
|
|
||||||
|
|
||||||
end EXIT_TEST;
|
|
||||||
|
|
||||||
--PAGE
|
|
||||||
--
|
|
||||||
-- INIT
|
|
||||||
--
|
|
||||||
|
|
||||||
procedure INIT (
|
|
||||||
ARGUMENT : in RTEMS.TASK_ARGUMENT
|
|
||||||
) is
|
|
||||||
INDEX : RTEMS.UNSIGNED32;
|
|
||||||
STATUS : RTEMS.STATUS_CODES;
|
|
||||||
PREVIOUS_PRIORITY : RTEMS.TASK_PRIORITY;
|
|
||||||
begin
|
|
||||||
|
|
||||||
TEXT_IO.NEW_LINE( 2 );
|
|
||||||
TEXT_IO.PUT( "*** TEST 14 -- NODE " );
|
|
||||||
UNSIGNED32_IO.PUT(
|
|
||||||
MPTEST.MULTIPROCESSING_CONFIGURATION.NODE,
|
|
||||||
WIDTH => 1
|
|
||||||
);
|
|
||||||
TEXT_IO.PUT_LINE( " ***" );
|
|
||||||
|
|
||||||
MPTEST.STOP_TIMER_NAME := RTEMS.BUILD_NAME( 'S', 'T', 'O', 'P' );
|
|
||||||
|
|
||||||
MPTEST.STOP_TEST := FALSE;
|
|
||||||
|
|
||||||
RTEMS.TIMER_CREATE(
|
|
||||||
MPTEST.STOP_TIMER_NAME,
|
|
||||||
MPTEST.STOP_TIMER_ID,
|
|
||||||
STATUS
|
|
||||||
);
|
|
||||||
TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "TIMER_CREATE" );
|
|
||||||
|
|
||||||
RTEMS.TIMER_FIRE_AFTER(
|
|
||||||
MPTEST.STOP_TIMER_ID,
|
|
||||||
BSP.MAXIMUM_LONG_TEST_DURATION * TEST_SUPPORT.TICKS_PER_SECOND,
|
|
||||||
MPTEST.STOP_TEST_TSR'ACCESS,
|
|
||||||
RTEMS.NULL_ADDRESS,
|
|
||||||
STATUS
|
|
||||||
);
|
|
||||||
TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "TIMER_FIRE_AFTER" );
|
|
||||||
|
|
||||||
MPTEST.EVENT_TASK_NAME( 1 ) := RTEMS.BUILD_NAME( '1', '1', '1', ' ' );
|
|
||||||
MPTEST.EVENT_TASK_NAME( 2 ) := RTEMS.BUILD_NAME( '2', '2', '2', ' ' );
|
|
||||||
|
|
||||||
MPTEST.QUEUE_TASK_NAME( 1 ) := RTEMS.BUILD_NAME( 'M', 'T', '1', ' ' );
|
|
||||||
MPTEST.QUEUE_TASK_NAME( 2 ) := RTEMS.BUILD_NAME( 'M', 'T', '2', ' ' );
|
|
||||||
|
|
||||||
MPTEST.PARTITION_TASK_NAME( 1 ) :=
|
|
||||||
RTEMS.BUILD_NAME( 'P', 'T', '1', ' ' );
|
|
||||||
MPTEST.PARTITION_TASK_NAME( 2 ) :=
|
|
||||||
RTEMS.BUILD_NAME( 'P', 'T', '2', ' ' );
|
|
||||||
|
|
||||||
MPTEST.SEMAPHORE_TASK_NAME( 1 ) :=
|
|
||||||
RTEMS.BUILD_NAME( 'S', 'M', '1', ' ' );
|
|
||||||
MPTEST.SEMAPHORE_TASK_NAME( 2 ) :=
|
|
||||||
RTEMS.BUILD_NAME( 'S', 'M', '2', ' ' );
|
|
||||||
|
|
||||||
MPTEST.SEMAPHORE_NAME( 1 ) := RTEMS.BUILD_NAME( 'S', 'E', 'M', ' ' );
|
|
||||||
|
|
||||||
MPTEST.QUEUE_NAME( 1 ) := RTEMS.BUILD_NAME( 'M', 'S', 'G', ' ' );
|
|
||||||
|
|
||||||
MPTEST.PARTITION_NAME( 1 ) := RTEMS.BUILD_NAME( 'P', 'A', 'R', ' ' );
|
|
||||||
|
|
||||||
MPTEST.TIMER_NAME( 1 ) := RTEMS.BUILD_NAME( 'T', 'M', 'R', ' ' );
|
|
||||||
|
|
||||||
for INDEX in MPTEST.BUFFERS'FIRST .. MPTEST.BUFFERS'LAST
|
|
||||||
loop
|
|
||||||
|
|
||||||
MPTEST.BUFFERS( INDEX ) :=
|
|
||||||
RTEMS.TO_BUFFER_POINTER( MPTEST.BUFFER_AREAS( INDEX )'ADDRESS );
|
|
||||||
|
|
||||||
end loop;
|
|
||||||
|
|
||||||
if MPTEST.MULTIPROCESSING_CONFIGURATION.NODE = 1 then
|
|
||||||
|
|
||||||
TEXT_IO.PUT_LINE( "Creating Semaphore (Global)" );
|
|
||||||
RTEMS.SEMAPHORE_CREATE(
|
|
||||||
MPTEST.SEMAPHORE_NAME( 1 ),
|
|
||||||
1,
|
|
||||||
RTEMS.GLOBAL,
|
|
||||||
MPTEST.SEMAPHORE_ID( 1 ),
|
|
||||||
STATUS
|
|
||||||
);
|
|
||||||
TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "SEMAPHORE_CREATE" );
|
|
||||||
|
|
||||||
TEXT_IO.PUT_LINE( "Creating Message Queue (Global)" );
|
|
||||||
RTEMS.MESSAGE_QUEUE_CREATE(
|
|
||||||
MPTEST.QUEUE_NAME( 1 ),
|
|
||||||
1,
|
|
||||||
RTEMS.GLOBAL,
|
|
||||||
MPTEST.QUEUE_ID( 1 ),
|
|
||||||
STATUS
|
|
||||||
);
|
|
||||||
TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "MESSAGE_QUEUE_CREATE" );
|
|
||||||
|
|
||||||
TEXT_IO.PUT_LINE( "Creating Partition (Global)" );
|
|
||||||
RTEMS.PARTITION_CREATE(
|
|
||||||
MPTEST.PARTITION_NAME( 1 ),
|
|
||||||
MPTEST.PARTITION_AREA( 0 )'ADDRESS,
|
|
||||||
16#8000#,
|
|
||||||
16#3000#,
|
|
||||||
RTEMS.GLOBAL,
|
|
||||||
MPTEST.PARTITION_ID( 1 ),
|
|
||||||
STATUS
|
|
||||||
);
|
|
||||||
TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "PARTITION_CREATE" );
|
|
||||||
|
|
||||||
end if;
|
|
||||||
|
|
||||||
TEXT_IO.PUT_LINE( "Creating Event task (Global)" );
|
|
||||||
RTEMS.TASK_CREATE(
|
|
||||||
MPTEST.EVENT_TASK_NAME(
|
|
||||||
MPTEST.MULTIPROCESSING_CONFIGURATION.NODE
|
|
||||||
),
|
|
||||||
2,
|
|
||||||
2048,
|
|
||||||
RTEMS.TIMESLICE,
|
|
||||||
RTEMS.GLOBAL,
|
|
||||||
MPTEST.EVENT_TASK_ID( 1 ),
|
|
||||||
STATUS
|
|
||||||
);
|
|
||||||
TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "TASK_CREATE" );
|
|
||||||
|
|
||||||
TEXT_IO.PUT_LINE( "Starting Event task (Global)" );
|
|
||||||
RTEMS.TASK_START(
|
|
||||||
MPTEST.EVENT_TASK_ID( 1 ),
|
|
||||||
MPTEST.TEST_TASK'ACCESS,
|
|
||||||
0,
|
|
||||||
STATUS
|
|
||||||
);
|
|
||||||
TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "TASK_START" );
|
|
||||||
|
|
||||||
TEXT_IO.PUT_LINE( "Creating Semaphore task (Global)" );
|
|
||||||
RTEMS.TASK_CREATE(
|
|
||||||
MPTEST.SEMAPHORE_TASK_NAME(
|
|
||||||
MPTEST.MULTIPROCESSING_CONFIGURATION.NODE
|
|
||||||
),
|
|
||||||
2,
|
|
||||||
2048,
|
|
||||||
RTEMS.TIMESLICE,
|
|
||||||
RTEMS.GLOBAL,
|
|
||||||
MPTEST.SEMAPHORE_TASK_ID( 1 ),
|
|
||||||
STATUS
|
|
||||||
);
|
|
||||||
TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "TASK_CREATE" );
|
|
||||||
|
|
||||||
TEXT_IO.PUT_LINE( "Starting Semaphore task (Global)" );
|
|
||||||
RTEMS.TASK_START(
|
|
||||||
MPTEST.SEMAPHORE_TASK_ID( 1 ),
|
|
||||||
MPTEST.SEMAPHORE_TASK'ACCESS,
|
|
||||||
0,
|
|
||||||
STATUS
|
|
||||||
);
|
|
||||||
TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "TASK_START" );
|
|
||||||
|
|
||||||
TEXT_IO.PUT_LINE( "Creating Message Queue task (Global)" );
|
|
||||||
RTEMS.TASK_CREATE(
|
|
||||||
MPTEST.QUEUE_TASK_NAME(
|
|
||||||
MPTEST.MULTIPROCESSING_CONFIGURATION.NODE
|
|
||||||
),
|
|
||||||
2,
|
|
||||||
2048,
|
|
||||||
RTEMS.TIMESLICE,
|
|
||||||
RTEMS.GLOBAL,
|
|
||||||
MPTEST.QUEUE_TASK_ID( 1 ),
|
|
||||||
STATUS
|
|
||||||
);
|
|
||||||
TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "TASK_CREATE" );
|
|
||||||
|
|
||||||
TEXT_IO.PUT_LINE( "Starting Message Queue task (Global)" );
|
|
||||||
RTEMS.TASK_START(
|
|
||||||
MPTEST.QUEUE_TASK_ID( 1 ),
|
|
||||||
MPTEST.MESSAGE_QUEUE_TASK'ACCESS,
|
|
||||||
1, -- index of buffer
|
|
||||||
STATUS
|
|
||||||
);
|
|
||||||
TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "TASK_START" );
|
|
||||||
|
|
||||||
TEXT_IO.PUT_LINE( "Creating Partition task (Global)" );
|
|
||||||
RTEMS.TASK_CREATE(
|
|
||||||
MPTEST.PARTITION_TASK_NAME(
|
|
||||||
MPTEST.MULTIPROCESSING_CONFIGURATION.NODE
|
|
||||||
),
|
|
||||||
2,
|
|
||||||
2048,
|
|
||||||
RTEMS.TIMESLICE,
|
|
||||||
RTEMS.GLOBAL,
|
|
||||||
MPTEST.PARTITION_TASK_ID( 1 ),
|
|
||||||
STATUS
|
|
||||||
);
|
|
||||||
TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "TASK_CREATE" );
|
|
||||||
|
|
||||||
TEXT_IO.PUT_LINE( "Starting Partition task (Global)" );
|
|
||||||
RTEMS.TASK_START(
|
|
||||||
MPTEST.PARTITION_TASK_ID( 1 ),
|
|
||||||
MPTEST.PARTITION_TASK'ACCESS,
|
|
||||||
0,
|
|
||||||
STATUS
|
|
||||||
);
|
|
||||||
TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "TASK_START" );
|
|
||||||
|
|
||||||
RTEMS.TASK_SET_PRIORITY( RTEMS.SELF, 2, PREVIOUS_PRIORITY, STATUS );
|
|
||||||
TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "TASK_SET_PRIORITY" );
|
|
||||||
|
|
||||||
MPTEST.DELAYED_EVENTS_TASK( 1 );
|
|
||||||
|
|
||||||
end INIT;
|
|
||||||
|
|
||||||
--
|
|
||||||
-- DELAYED_SEND_EVENT
|
|
||||||
--
|
|
||||||
-- DESCRIPTION:
|
|
||||||
--
|
|
||||||
-- This subprogram is a timer service routine which sends an
|
|
||||||
-- event set to a waiting task.
|
|
||||||
--
|
|
||||||
|
|
||||||
procedure DELAYED_SEND_EVENT (
|
|
||||||
TIMER_ID : in RTEMS.ID;
|
|
||||||
IGNORED_ADDRESS : in RTEMS.ADDRESS
|
|
||||||
) is
|
|
||||||
STATUS : RTEMS.STATUS_CODES;
|
|
||||||
begin
|
|
||||||
|
|
||||||
RTEMS.EVENT_SEND(
|
|
||||||
MPTEST.TASK_ID( RTEMS.GET_INDEX( TIMER_ID ) ),
|
|
||||||
RTEMS.EVENT_16,
|
|
||||||
STATUS
|
|
||||||
);
|
|
||||||
TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "EVENT_SEND" );
|
|
||||||
|
|
||||||
end DELAYED_SEND_EVENT;
|
|
||||||
|
|
||||||
--
|
|
||||||
-- TEST_TASK
|
|
||||||
--
|
|
||||||
-- DESCRIPTION:
|
|
||||||
--
|
|
||||||
-- This is one of the test tasks.
|
|
||||||
--
|
|
||||||
|
|
||||||
procedure TEST_TASK (
|
|
||||||
ARGUMENT : in RTEMS.TASK_ARGUMENT
|
|
||||||
) is
|
|
||||||
REMOTE_NODE : RTEMS.UNSIGNED32;
|
|
||||||
REMOTE_TID : RTEMS.ID;
|
|
||||||
COUNT : RTEMS.UNSIGNED32;
|
|
||||||
EVENT_OUT : RTEMS.EVENT_SET;
|
|
||||||
STATUS : RTEMS.STATUS_CODES;
|
|
||||||
begin
|
|
||||||
|
|
||||||
if MPTEST.MULTIPROCESSING_CONFIGURATION.NODE = 1 then
|
|
||||||
REMOTE_NODE := 2;
|
|
||||||
else
|
|
||||||
REMOTE_NODE := 1;
|
|
||||||
end if;
|
|
||||||
|
|
||||||
TEXT_IO.PUT_LINE( "About to go to sleep!" );
|
|
||||||
RTEMS.TASK_WAKE_AFTER( 1 * TEST_SUPPORT.TICKS_PER_SECOND, STATUS );
|
|
||||||
TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "TASK_WAKE_AFTER" );
|
|
||||||
TEXT_IO.PUT_LINE( "Waking up!" );
|
|
||||||
|
|
||||||
TEXT_IO.PUT( "Remote task's name is : " );
|
|
||||||
TEST_SUPPORT.PUT_NAME( MPTEST.EVENT_TASK_NAME( REMOTE_NODE ), TRUE );
|
|
||||||
|
|
||||||
TEXT_IO.PUT_LINE( "Getting TID of remote task" );
|
|
||||||
|
|
||||||
loop
|
|
||||||
|
|
||||||
RTEMS.TASK_IDENT(
|
|
||||||
MPTEST.EVENT_TASK_NAME( REMOTE_NODE ),
|
|
||||||
RTEMS.SEARCH_ALL_NODES,
|
|
||||||
REMOTE_TID,
|
|
||||||
STATUS
|
|
||||||
);
|
|
||||||
|
|
||||||
exit when RTEMS.IS_STATUS_SUCCESSFUL( STATUS );
|
|
||||||
|
|
||||||
TEXT_IO.PUT_LINE( "task_ident" );
|
|
||||||
|
|
||||||
end loop;
|
|
||||||
|
|
||||||
if MPTEST.MULTIPROCESSING_CONFIGURATION.NODE = 1 then
|
|
||||||
TEXT_IO.PUT_LINE( "Sending events to remote task" );
|
|
||||||
|
|
||||||
loop
|
|
||||||
exit when MPTEST.STOP_TEST = TRUE;
|
|
||||||
|
|
||||||
for COUNT in 1 .. MPTEST.EVENT_TASK_DOT_COUNT
|
|
||||||
loop
|
|
||||||
RTEMS.EVENT_SEND(
|
|
||||||
REMOTE_TID,
|
|
||||||
RTEMS.EVENT_16,
|
|
||||||
STATUS
|
|
||||||
);
|
|
||||||
TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "EVENT_SEND" );
|
|
||||||
|
|
||||||
exit when MPTEST.STOP_TEST = TRUE;
|
|
||||||
|
|
||||||
end loop;
|
|
||||||
|
|
||||||
TEST_SUPPORT.PUT_DOT( "e" );
|
|
||||||
|
|
||||||
end loop;
|
|
||||||
|
|
||||||
end if;
|
|
||||||
|
|
||||||
TEXT_IO.PUT_LINE( "Receiving events from remote task" );
|
|
||||||
|
|
||||||
loop
|
|
||||||
exit when MPTEST.STOP_TEST = TRUE;
|
|
||||||
|
|
||||||
for COUNT in 1 .. MPTEST.EVENT_TASK_DOT_COUNT
|
|
||||||
loop
|
|
||||||
exit when MPTEST.STOP_TEST = TRUE;
|
|
||||||
|
|
||||||
RTEMS.EVENT_RECEIVE(
|
|
||||||
RTEMS.EVENT_16,
|
|
||||||
RTEMS.DEFAULT_OPTIONS,
|
|
||||||
RTEMS.NO_TIMEOUT,
|
|
||||||
EVENT_OUT,
|
|
||||||
STATUS
|
|
||||||
);
|
|
||||||
TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "EVENT_RECEIVE" );
|
|
||||||
|
|
||||||
end loop;
|
|
||||||
|
|
||||||
TEST_SUPPORT.PUT_DOT( "e" );
|
|
||||||
|
|
||||||
end loop;
|
|
||||||
|
|
||||||
MPTEST.EXIT_TEST;
|
|
||||||
|
|
||||||
end TEST_TASK;
|
|
||||||
|
|
||||||
--
|
|
||||||
-- DELAYED_EVENTS_TASK
|
|
||||||
--
|
|
||||||
-- DESCRIPTION:
|
|
||||||
--
|
|
||||||
-- This is one of the test tasks.
|
|
||||||
--
|
|
||||||
|
|
||||||
procedure DELAYED_EVENTS_TASK (
|
|
||||||
ARGUMENT : in RTEMS.TASK_ARGUMENT
|
|
||||||
) is
|
|
||||||
COUNT : RTEMS.UNSIGNED32;
|
|
||||||
PREVIOUS_MODE : RTEMS.MODE;
|
|
||||||
EVENTS_OUT : RTEMS.EVENT_SET;
|
|
||||||
STATUS : RTEMS.STATUS_CODES;
|
|
||||||
begin
|
|
||||||
|
|
||||||
RTEMS.TASK_MODE(
|
|
||||||
RTEMS.PREEMPT + RTEMS.TIMESLICE,
|
|
||||||
RTEMS.PREEMPT_MASK + RTEMS.TIMESLICE_MASK,
|
|
||||||
PREVIOUS_MODE,
|
|
||||||
STATUS
|
|
||||||
);
|
|
||||||
TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "TASK_MODE" );
|
|
||||||
|
|
||||||
RTEMS.TIMER_CREATE(
|
|
||||||
MPTEST.TIMER_NAME( 1 ),
|
|
||||||
MPTEST.TIMER_ID( 1 ),
|
|
||||||
STATUS
|
|
||||||
);
|
|
||||||
TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "TIMER_CREATE" );
|
|
||||||
|
|
||||||
RTEMS.TASK_IDENT(
|
|
||||||
RTEMS.SELF,
|
|
||||||
RTEMS.SEARCH_ALL_NODES,
|
|
||||||
MPTEST.TASK_ID( RTEMS.GET_INDEX( MPTEST.TIMER_ID( 1 ) ) ),
|
|
||||||
STATUS
|
|
||||||
);
|
|
||||||
TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "TASK_IDENTS" );
|
|
||||||
|
|
||||||
loop
|
|
||||||
|
|
||||||
for COUNT in 1 .. MPTEST.DELAYED_EVENT_DOT_COUNT
|
|
||||||
loop
|
|
||||||
RTEMS.TIMER_FIRE_AFTER(
|
|
||||||
MPTEST.TIMER_ID( 1 ),
|
|
||||||
1,
|
|
||||||
MPTEST.DELAYED_SEND_EVENT'ACCESS,
|
|
||||||
RTEMS.NULL_ADDRESS,
|
|
||||||
STATUS
|
|
||||||
);
|
|
||||||
TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "TIMER_FIRE_AFTER" );
|
|
||||||
|
|
||||||
RTEMS.EVENT_RECEIVE(
|
|
||||||
RTEMS.EVENT_16,
|
|
||||||
RTEMS.DEFAULT_OPTIONS,
|
|
||||||
RTEMS.NO_TIMEOUT,
|
|
||||||
EVENTS_OUT,
|
|
||||||
STATUS
|
|
||||||
);
|
|
||||||
TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "EVENT_RECEIVE" );
|
|
||||||
|
|
||||||
end loop;
|
|
||||||
|
|
||||||
TEST_SUPPORT.PUT_DOT( "." );
|
|
||||||
|
|
||||||
end loop;
|
|
||||||
|
|
||||||
MPTEST.EXIT_TEST;
|
|
||||||
|
|
||||||
end DELAYED_EVENTS_TASK;
|
|
||||||
|
|
||||||
--
|
|
||||||
-- MESSAGE_QUEUE_TASK
|
|
||||||
--
|
|
||||||
-- DESCRIPTION:
|
|
||||||
--
|
|
||||||
-- This is one of the test tasks.
|
|
||||||
--
|
|
||||||
|
|
||||||
procedure MESSAGE_QUEUE_TASK (
|
|
||||||
INDEX : in RTEMS.TASK_ARGUMENT
|
|
||||||
) is
|
|
||||||
COUNT : RTEMS.UNSIGNED32;
|
|
||||||
YIELD_COUNT : RTEMS.UNSIGNED32;
|
|
||||||
OVERFLOW_COUNT : RTEMS.UNSIGNED32_POINTER;
|
|
||||||
BUFFER_COUNT : RTEMS.UNSIGNED32_POINTER;
|
|
||||||
STATUS : RTEMS.STATUS_CODES;
|
|
||||||
begin
|
|
||||||
|
|
||||||
MPTEST.BUFFERS( INDEX ).FIELD1 := 0;
|
|
||||||
MPTEST.BUFFERS( INDEX ).FIELD2 := 0;
|
|
||||||
MPTEST.BUFFERS( INDEX ).FIELD3 := 0;
|
|
||||||
MPTEST.BUFFERS( INDEX ).FIELD4 := 0;
|
|
||||||
|
|
||||||
TEXT_IO.PUT_LINE( "Getting ID of message queue" );
|
|
||||||
|
|
||||||
loop
|
|
||||||
|
|
||||||
RTEMS.MESSAGE_QUEUE_IDENT(
|
|
||||||
MPTEST.QUEUE_NAME( 1 ),
|
|
||||||
RTEMS.SEARCH_ALL_NODES,
|
|
||||||
MPTEST.QUEUE_ID( 1 ),
|
|
||||||
STATUS
|
|
||||||
);
|
|
||||||
exit when RTEMS.IS_STATUS_SUCCESSFUL( STATUS );
|
|
||||||
|
|
||||||
TEXT_IO.PUT_LINE( "message_queue_ident FAILED!!" );
|
|
||||||
|
|
||||||
end loop;
|
|
||||||
|
|
||||||
if MPTEST.MULTIPROCESSING_CONFIGURATION.NODE = 1 then
|
|
||||||
|
|
||||||
RTEMS.MESSAGE_QUEUE_SEND(
|
|
||||||
MPTEST.QUEUE_ID( 1 ),
|
|
||||||
MPTEST.BUFFERS( INDEX ),
|
|
||||||
STATUS
|
|
||||||
);
|
|
||||||
TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "MESSAGE_QUEUE_SEND" );
|
|
||||||
|
|
||||||
OVERFLOW_COUNT := RTEMS.TO_UNSIGNED32_POINTER(
|
|
||||||
MPTEST.BUFFERS( INDEX ).FIELD1'ADDRESS
|
|
||||||
);
|
|
||||||
|
|
||||||
BUFFER_COUNT := RTEMS.TO_UNSIGNED32_POINTER(
|
|
||||||
MPTEST.BUFFERS( INDEX ).FIELD2'ADDRESS
|
|
||||||
);
|
|
||||||
|
|
||||||
else
|
|
||||||
|
|
||||||
OVERFLOW_COUNT := RTEMS.TO_UNSIGNED32_POINTER(
|
|
||||||
MPTEST.BUFFERS( INDEX ).FIELD3'ADDRESS
|
|
||||||
);
|
|
||||||
|
|
||||||
BUFFER_COUNT := RTEMS.TO_UNSIGNED32_POINTER(
|
|
||||||
MPTEST.BUFFERS( INDEX ).FIELD4'ADDRESS
|
|
||||||
);
|
|
||||||
|
|
||||||
end if;
|
|
||||||
|
|
||||||
loop
|
|
||||||
|
|
||||||
exit when MPTEST.STOP_TEST = TRUE;
|
|
||||||
|
|
||||||
YIELD_COUNT := 100;
|
|
||||||
|
|
||||||
for COUNT in 1 .. MPTEST.MESSAGE_DOT_COUNT
|
|
||||||
loop
|
|
||||||
|
|
||||||
exit when MPTEST.STOP_TEST = TRUE;
|
|
||||||
|
|
||||||
RTEMS.MESSAGE_QUEUE_RECEIVE(
|
|
||||||
MPTEST.QUEUE_ID( 1 ),
|
|
||||||
MPTEST.BUFFERS( INDEX ),
|
|
||||||
RTEMS.DEFAULT_OPTIONS,
|
|
||||||
RTEMS.NO_TIMEOUT,
|
|
||||||
STATUS
|
|
||||||
);
|
|
||||||
TEST_SUPPORT.DIRECTIVE_FAILED(
|
|
||||||
STATUS,
|
|
||||||
"MESSAGE_QUEUE_RECEIVE"
|
|
||||||
);
|
|
||||||
|
|
||||||
if BUFFER_COUNT.ALL = RTEMS.UNSIGNED32'LAST then
|
|
||||||
BUFFER_COUNT.ALL := 0;
|
|
||||||
OVERFLOW_COUNT.ALL := OVERFLOW_COUNT.ALL + 1;
|
|
||||||
else
|
|
||||||
BUFFER_COUNT.ALL := BUFFER_COUNT.ALL + 1;
|
|
||||||
end if;
|
|
||||||
|
|
||||||
RTEMS.MESSAGE_QUEUE_SEND(
|
|
||||||
MPTEST.QUEUE_ID( 1 ),
|
|
||||||
MPTEST.BUFFERS( INDEX ),
|
|
||||||
STATUS
|
|
||||||
);
|
|
||||||
TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "MESSAGE_QUEUE_SEND" );
|
|
||||||
|
|
||||||
if MPTEST.STOP_TEST = FALSE then
|
|
||||||
if MPTEST.MULTIPROCESSING_CONFIGURATION.NODE = 1 then
|
|
||||||
|
|
||||||
YIELD_COUNT := YIELD_COUNT - 1;
|
|
||||||
|
|
||||||
if YIELD_COUNT = 0 then
|
|
||||||
|
|
||||||
RTEMS.TASK_WAKE_AFTER( RTEMS.YIELD_PROCESSOR, STATUS );
|
|
||||||
TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "YIELD" );
|
|
||||||
|
|
||||||
YIELD_COUNT := 100;
|
|
||||||
|
|
||||||
end if;
|
|
||||||
|
|
||||||
end if;
|
|
||||||
|
|
||||||
end if;
|
|
||||||
|
|
||||||
end loop;
|
|
||||||
|
|
||||||
TEST_SUPPORT.PUT_DOT( "m" );
|
|
||||||
|
|
||||||
end loop;
|
|
||||||
|
|
||||||
MPTEST.EXIT_TEST;
|
|
||||||
|
|
||||||
end MESSAGE_QUEUE_TASK;
|
|
||||||
|
|
||||||
--
|
|
||||||
-- PARTITION_TASK
|
|
||||||
--
|
|
||||||
-- DESCRIPTION:
|
|
||||||
--
|
|
||||||
-- This is one of the test tasks.
|
|
||||||
--
|
|
||||||
|
|
||||||
procedure PARTITION_TASK (
|
|
||||||
IGNORED : in RTEMS.TASK_ARGUMENT
|
|
||||||
) is
|
|
||||||
COUNT : RTEMS.UNSIGNED32;
|
|
||||||
BUFFER : RTEMS.ADDRESS;
|
|
||||||
STATUS : RTEMS.STATUS_CODES;
|
|
||||||
begin
|
|
||||||
|
|
||||||
TEXT_IO.PUT_LINE( "Getting ID of partition" );
|
|
||||||
|
|
||||||
loop
|
|
||||||
|
|
||||||
RTEMS.PARTITION_IDENT(
|
|
||||||
MPTEST.PARTITION_NAME( 1 ),
|
|
||||||
RTEMS.SEARCH_ALL_NODES,
|
|
||||||
MPTEST.PARTITION_ID( 1 ),
|
|
||||||
STATUS
|
|
||||||
);
|
|
||||||
exit when RTEMS.IS_STATUS_SUCCESSFUL( STATUS );
|
|
||||||
|
|
||||||
TEXT_IO.PUT_LINE( "partition_ident FAILED!!" );
|
|
||||||
|
|
||||||
end loop;
|
|
||||||
|
|
||||||
loop
|
|
||||||
|
|
||||||
exit when MPTEST.STOP_TEST = TRUE;
|
|
||||||
|
|
||||||
for COUNT in 1 .. MPTEST.PARTITION_DOT_COUNT
|
|
||||||
loop
|
|
||||||
|
|
||||||
exit when MPTEST.STOP_TEST = TRUE;
|
|
||||||
|
|
||||||
RTEMS.PARTITION_GET_BUFFER(
|
|
||||||
MPTEST.PARTITION_ID( 1 ),
|
|
||||||
BUFFER,
|
|
||||||
STATUS
|
|
||||||
);
|
|
||||||
TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "PARTITION_GET_BUFFER" );
|
|
||||||
|
|
||||||
RTEMS.PARTITION_RETURN_BUFFER(
|
|
||||||
MPTEST.PARTITION_ID( 1 ),
|
|
||||||
BUFFER,
|
|
||||||
STATUS
|
|
||||||
);
|
|
||||||
TEST_SUPPORT.DIRECTIVE_FAILED(
|
|
||||||
STATUS,
|
|
||||||
"PARTITION_RETURN_BUFFER"
|
|
||||||
);
|
|
||||||
|
|
||||||
if MPTEST.MULTIPROCESSING_CONFIGURATION.NODE = 1 then
|
|
||||||
|
|
||||||
RTEMS.TASK_WAKE_AFTER( RTEMS.YIELD_PROCESSOR, STATUS );
|
|
||||||
TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "YIELD" );
|
|
||||||
|
|
||||||
end if;
|
|
||||||
|
|
||||||
end loop;
|
|
||||||
|
|
||||||
TEST_SUPPORT.PUT_DOT( "p" );
|
|
||||||
|
|
||||||
end loop;
|
|
||||||
|
|
||||||
MPTEST.EXIT_TEST;
|
|
||||||
|
|
||||||
end PARTITION_TASK;
|
|
||||||
|
|
||||||
--
|
|
||||||
-- SEMAPHORE_TASK
|
|
||||||
--
|
|
||||||
-- DESCRIPTION:
|
|
||||||
--
|
|
||||||
-- This is one of the test tasks.
|
|
||||||
--
|
|
||||||
|
|
||||||
procedure SEMAPHORE_TASK (
|
|
||||||
ARGUMENT : in RTEMS.TASK_ARGUMENT
|
|
||||||
) is
|
|
||||||
COUNT : RTEMS.UNSIGNED32;
|
|
||||||
YIELD_COUNT : RTEMS.UNSIGNED32;
|
|
||||||
STATUS : RTEMS.STATUS_CODES;
|
|
||||||
begin
|
|
||||||
|
|
||||||
TEXT_IO.PUT_LINE( "Getting ID of semaphore" );
|
|
||||||
|
|
||||||
loop
|
|
||||||
|
|
||||||
RTEMS.SEMAPHORE_IDENT(
|
|
||||||
MPTEST.SEMAPHORE_NAME( 1 ),
|
|
||||||
RTEMS.SEARCH_ALL_NODES,
|
|
||||||
MPTEST.SEMAPHORE_ID( 1 ),
|
|
||||||
STATUS
|
|
||||||
);
|
|
||||||
exit when RTEMS.IS_STATUS_SUCCESSFUL( STATUS );
|
|
||||||
|
|
||||||
TEXT_IO.PUT_LINE( "semaphore_ident FAILED!!" );
|
|
||||||
|
|
||||||
end loop;
|
|
||||||
|
|
||||||
loop
|
|
||||||
|
|
||||||
YIELD_COUNT := 100;
|
|
||||||
|
|
||||||
exit when MPTEST.STOP_TEST = TRUE;
|
|
||||||
|
|
||||||
for COUNT in 1 .. MPTEST.SEMAPHORE_DOT_COUNT
|
|
||||||
loop
|
|
||||||
|
|
||||||
exit when MPTEST.STOP_TEST = TRUE;
|
|
||||||
|
|
||||||
RTEMS.SEMAPHORE_OBTAIN(
|
|
||||||
MPTEST.SEMAPHORE_ID( 1 ),
|
|
||||||
RTEMS.DEFAULT_OPTIONS,
|
|
||||||
RTEMS.NO_TIMEOUT,
|
|
||||||
STATUS
|
|
||||||
);
|
|
||||||
TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "SEMAPHORE_OBTAIN" );
|
|
||||||
|
|
||||||
RTEMS.SEMAPHORE_RELEASE( MPTEST.SEMAPHORE_ID( 1 ), STATUS );
|
|
||||||
TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "SEMAPHORE_RELEASE" );
|
|
||||||
|
|
||||||
if MPTEST.MULTIPROCESSING_CONFIGURATION.NODE = 1 then
|
|
||||||
|
|
||||||
YIELD_COUNT := YIELD_COUNT - 1;
|
|
||||||
|
|
||||||
if YIELD_COUNT = 0 then
|
|
||||||
|
|
||||||
RTEMS.TASK_WAKE_AFTER( RTEMS.YIELD_PROCESSOR, STATUS );
|
|
||||||
TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "YIELD" );
|
|
||||||
|
|
||||||
YIELD_COUNT := 100;
|
|
||||||
|
|
||||||
end if;
|
|
||||||
|
|
||||||
end if;
|
|
||||||
|
|
||||||
end loop;
|
|
||||||
|
|
||||||
TEST_SUPPORT.PUT_DOT( "s" );
|
|
||||||
|
|
||||||
end loop;
|
|
||||||
|
|
||||||
MPTEST.EXIT_TEST;
|
|
||||||
|
|
||||||
end SEMAPHORE_TASK;
|
|
||||||
|
|
||||||
end MPTEST;
|
|
||||||
@@ -1,347 +0,0 @@
|
|||||||
--
|
|
||||||
-- MPTEST / SPECIFICATION
|
|
||||||
--
|
|
||||||
-- DESCRIPTION:
|
|
||||||
--
|
|
||||||
-- This package is the specification for Test 14 of the RTEMS
|
|
||||||
-- Multiprocessor Test Suite.
|
|
||||||
--
|
|
||||||
-- DEPENDENCIES:
|
|
||||||
--
|
|
||||||
--
|
|
||||||
--
|
|
||||||
-- COPYRIGHT (c) 1989-1997.
|
|
||||||
-- On-Line Applications Research Corporation (OAR).
|
|
||||||
-- Copyright assigned to U.S. Government, 1994.
|
|
||||||
--
|
|
||||||
-- The license and distribution terms for this file may in
|
|
||||||
-- the file LICENSE in this distribution or at
|
|
||||||
-- http://www.OARcorp.com/rtems/license.html.
|
|
||||||
--
|
|
||||||
-- $Id$
|
|
||||||
--
|
|
||||||
|
|
||||||
with BSP_MPCI;
|
|
||||||
with RTEMS;
|
|
||||||
|
|
||||||
package MPTEST is
|
|
||||||
|
|
||||||
--
|
|
||||||
-- These arrays contain the IDs and NAMEs of all RTEMS tasks created
|
|
||||||
-- by this test for passing event sets.
|
|
||||||
--
|
|
||||||
|
|
||||||
TASK_ID : array ( RTEMS.UNSIGNED32 range 1 .. 4 ) of RTEMS.ID;
|
|
||||||
TASK_NAME : array ( RTEMS.UNSIGNED32 range 1 .. 4 ) of RTEMS.NAME;
|
|
||||||
--
|
|
||||||
-- These arrays contain the IDs and NAMEs of all RTEMS tasks created
|
|
||||||
-- by this test for passing event sets.
|
|
||||||
--
|
|
||||||
|
|
||||||
EVENT_TASK_ID : array ( RTEMS.UNSIGNED32 range 1 .. 4 ) of RTEMS.ID;
|
|
||||||
EVENT_TASK_NAME : array ( RTEMS.UNSIGNED32 range 1 .. 4 ) of RTEMS.NAME;
|
|
||||||
|
|
||||||
--
|
|
||||||
-- These arrays contain the IDs and NAMEs of all RTEMS tasks created
|
|
||||||
-- by this test for manipulating semaphores.
|
|
||||||
--
|
|
||||||
|
|
||||||
SEMAPHORE_TASK_ID :
|
|
||||||
array ( RTEMS.UNSIGNED32 range 1 .. 4 ) of RTEMS.ID;
|
|
||||||
SEMAPHORE_TASK_NAME :
|
|
||||||
array ( RTEMS.UNSIGNED32 range 1 .. 4 ) of RTEMS.NAME;
|
|
||||||
|
|
||||||
--
|
|
||||||
-- These arrays contain the IDs and NAMEs of all RTEMS tasks created
|
|
||||||
-- by this test for passing messages.
|
|
||||||
--
|
|
||||||
|
|
||||||
QUEUE_TASK_ID : array ( RTEMS.UNSIGNED32 range 1 .. 4 ) of RTEMS.ID;
|
|
||||||
QUEUE_TASK_NAME : array ( RTEMS.UNSIGNED32 range 1 .. 4 ) of RTEMS.NAME;
|
|
||||||
|
|
||||||
--
|
|
||||||
-- These arrays contain the IDs and NAMEs of all RTEMS tasks created
|
|
||||||
-- by this test for manipulating the global partitions.
|
|
||||||
--
|
|
||||||
|
|
||||||
PARTITION_TASK_ID :
|
|
||||||
array ( RTEMS.UNSIGNED32 range 1 .. 4 ) of RTEMS.ID;
|
|
||||||
PARTITION_TASK_NAME :
|
|
||||||
array ( RTEMS.UNSIGNED32 range 1 .. 4 ) of RTEMS.NAME;
|
|
||||||
|
|
||||||
--
|
|
||||||
-- These arrays contain the IDs and NAMEs of all RTEMS partitions
|
|
||||||
-- created by this test.
|
|
||||||
--
|
|
||||||
|
|
||||||
PARTITION_ID : array ( RTEMS.UNSIGNED32 range 1 .. 4 ) of RTEMS.ID;
|
|
||||||
PARTITION_NAME : array ( RTEMS.UNSIGNED32 range 1 .. 4 ) of RTEMS.NAME;
|
|
||||||
|
|
||||||
--
|
|
||||||
-- These arrays contain the IDs and NAMEs of all RTEMS semaphores
|
|
||||||
-- created by this test.
|
|
||||||
--
|
|
||||||
|
|
||||||
SEMAPHORE_ID : array ( RTEMS.UNSIGNED32 range 1 .. 4 ) of RTEMS.ID;
|
|
||||||
SEMAPHORE_NAME : array ( RTEMS.UNSIGNED32 range 1 .. 4 ) of RTEMS.NAME;
|
|
||||||
|
|
||||||
--
|
|
||||||
-- These arrays contain the IDs and NAMEs of all RTEMS message_queues
|
|
||||||
-- created by this test.
|
|
||||||
--
|
|
||||||
|
|
||||||
QUEUE_ID : array ( RTEMS.UNSIGNED32 range 1 .. 4 ) of RTEMS.ID;
|
|
||||||
QUEUE_NAME : array ( RTEMS.UNSIGNED32 range 1 .. 4 ) of RTEMS.NAME;
|
|
||||||
|
|
||||||
--
|
|
||||||
--
|
|
||||||
-- These arrays contain the IDs and NAMEs of all RTEMS timers
|
|
||||||
-- created by this test.
|
|
||||||
--
|
|
||||||
|
|
||||||
TIMER_ID : array ( RTEMS.UNSIGNED32 range 1 .. 4 ) of RTEMS.ID;
|
|
||||||
TIMER_NAME : array ( RTEMS.UNSIGNED32 range 1 .. 4 ) of RTEMS.NAME;
|
|
||||||
|
|
||||||
--
|
|
||||||
-- The following are message buffers used to contain the test messages
|
|
||||||
-- and pointers to those buffers.
|
|
||||||
--
|
|
||||||
|
|
||||||
BUFFER_AREAS : array ( RTEMS.UNSIGNED32 range 1 .. 4 ) of RTEMS.BUFFER;
|
|
||||||
BUFFERS :
|
|
||||||
array ( RTEMS.UNSIGNED32 range 1 .. 4 ) of RTEMS.BUFFER_POINTER;
|
|
||||||
|
|
||||||
--
|
|
||||||
-- This is the area used for the partition.
|
|
||||||
--
|
|
||||||
|
|
||||||
PARTITION_AREA :
|
|
||||||
array ( RTEMS.UNSIGNED32 range 0 .. 16#7FFF# ) of RTEMS.UNSIGNED8;
|
|
||||||
for PARTITION_AREA'ALIGNMENT use RTEMS.STRUCTURE_ALIGNMENT;
|
|
||||||
|
|
||||||
--
|
|
||||||
-- The following constants control the flow of "dot" indicators
|
|
||||||
-- from the various test componenents.
|
|
||||||
--
|
|
||||||
|
|
||||||
EVENT_TASK_DOT_COUNT : constant RTEMS.UNSIGNED32 := 100;
|
|
||||||
EVENT_SEND_DOT_COUNT : constant RTEMS.UNSIGNED32 := 100;
|
|
||||||
DELAYED_EVENT_DOT_COUNT : constant RTEMS.UNSIGNED32 := 1000;
|
|
||||||
MESSAGE_DOT_COUNT : constant RTEMS.UNSIGNED32 := 200;
|
|
||||||
PARTITION_DOT_COUNT : constant RTEMS.UNSIGNED32 := 200;
|
|
||||||
SEMAPHORE_DOT_COUNT : constant RTEMS.UNSIGNED32 := 200;
|
|
||||||
|
|
||||||
--
|
|
||||||
-- These contain the IDs and NAMEs of the RTEMS timers used
|
|
||||||
-- by this test to stop.
|
|
||||||
--
|
|
||||||
|
|
||||||
STOP_TIMER_ID : RTEMS.ID;
|
|
||||||
STOP_TIMER_NAME : RTEMS.NAME;
|
|
||||||
|
|
||||||
--
|
|
||||||
-- This variable is set when the test should stop executing.
|
|
||||||
--
|
|
||||||
|
|
||||||
STOP_TEST : RTEMS.BOOLEAN;
|
|
||||||
|
|
||||||
--
|
|
||||||
-- EXIT_TEST
|
|
||||||
--
|
|
||||||
-- DESCRIPTION:
|
|
||||||
--
|
|
||||||
-- This subprogram is invoked to stop this test.
|
|
||||||
--
|
|
||||||
|
|
||||||
procedure EXIT_TEST;
|
|
||||||
|
|
||||||
--
|
|
||||||
-- DELAYED_SEND_EVENT
|
|
||||||
--
|
|
||||||
-- DESCRIPTION:
|
|
||||||
--
|
|
||||||
-- This subprogram is a timer service routine which sends an
|
|
||||||
-- event set to a waiting task.
|
|
||||||
--
|
|
||||||
|
|
||||||
procedure DELAYED_SEND_EVENT (
|
|
||||||
TIMER_ID : in RTEMS.ID;
|
|
||||||
IGNORED_ADDRESS : in RTEMS.ADDRESS
|
|
||||||
);
|
|
||||||
|
|
||||||
--
|
|
||||||
-- INIT
|
|
||||||
--
|
|
||||||
-- DESCRIPTION:
|
|
||||||
--
|
|
||||||
-- This RTEMS task initializes the application.
|
|
||||||
--
|
|
||||||
|
|
||||||
procedure INIT (
|
|
||||||
ARGUMENT : in RTEMS.TASK_ARGUMENT
|
|
||||||
);
|
|
||||||
|
|
||||||
--
|
|
||||||
-- TEST_TASK
|
|
||||||
--
|
|
||||||
-- DESCRIPTION:
|
|
||||||
--
|
|
||||||
-- This is one of the test tasks.
|
|
||||||
--
|
|
||||||
|
|
||||||
procedure TEST_TASK (
|
|
||||||
ARGUMENT : in RTEMS.TASK_ARGUMENT
|
|
||||||
);
|
|
||||||
|
|
||||||
--
|
|
||||||
-- DELAYED_EVENTS_TASK
|
|
||||||
--
|
|
||||||
-- DESCRIPTION:
|
|
||||||
--
|
|
||||||
-- This is one of the test tasks.
|
|
||||||
--
|
|
||||||
|
|
||||||
procedure DELAYED_EVENTS_TASK (
|
|
||||||
ARGUMENT : in RTEMS.TASK_ARGUMENT
|
|
||||||
);
|
|
||||||
|
|
||||||
--
|
|
||||||
-- MESSAGE_QUEUE_TASK
|
|
||||||
--
|
|
||||||
-- DESCRIPTION:
|
|
||||||
--
|
|
||||||
-- This is one of the test tasks.
|
|
||||||
--
|
|
||||||
|
|
||||||
procedure MESSAGE_QUEUE_TASK (
|
|
||||||
INDEX : in RTEMS.TASK_ARGUMENT
|
|
||||||
);
|
|
||||||
|
|
||||||
--
|
|
||||||
-- PARTITION_TASK
|
|
||||||
--
|
|
||||||
-- DESCRIPTION:
|
|
||||||
--
|
|
||||||
-- This is one of the test tasks.
|
|
||||||
--
|
|
||||||
|
|
||||||
procedure PARTITION_TASK (
|
|
||||||
IGNORED : in RTEMS.TASK_ARGUMENT
|
|
||||||
);
|
|
||||||
|
|
||||||
--
|
|
||||||
-- SEMAPHORE_TASK
|
|
||||||
--
|
|
||||||
-- DESCRIPTION:
|
|
||||||
--
|
|
||||||
-- This is one of the test tasks.
|
|
||||||
--
|
|
||||||
|
|
||||||
procedure SEMAPHORE_TASK (
|
|
||||||
ARGUMENT : in RTEMS.TASK_ARGUMENT
|
|
||||||
);
|
|
||||||
|
|
||||||
--
|
|
||||||
-- This is the Driver Address Table for this test.
|
|
||||||
--
|
|
||||||
|
|
||||||
DEVICE_DRIVERS : aliased RTEMS.DRIVER_ADDRESS_TABLE( 1 .. 1 ) :=
|
|
||||||
(1=>
|
|
||||||
(
|
|
||||||
CLOCK_DRIVER.INITIALIZE'ACCESS, -- Initialization
|
|
||||||
RTEMS.NO_DRIVER_ENTRY, -- Open
|
|
||||||
RTEMS.NO_DRIVER_ENTRY, -- Close
|
|
||||||
RTEMS.NO_DRIVER_ENTRY, -- Read
|
|
||||||
RTEMS.NO_DRIVER_ENTRY, -- Write
|
|
||||||
RTEMS.NO_DRIVER_ENTRY -- Control
|
|
||||||
)
|
|
||||||
);
|
|
||||||
|
|
||||||
--
|
|
||||||
-- This is the Initialization Tasks Table for this test.
|
|
||||||
--
|
|
||||||
|
|
||||||
INITIALIZATION_TASKS : aliased RTEMS.INITIALIZATION_TASKS_TABLE( 1 .. 1 ) :=
|
|
||||||
(1=>
|
|
||||||
(
|
|
||||||
RTEMS.BUILD_NAME( 'U', 'I', '1', ' ' ), -- task name
|
|
||||||
2048, -- stack size
|
|
||||||
1, -- priority
|
|
||||||
RTEMS.DEFAULT_ATTRIBUTES, -- attributes
|
|
||||||
MPTEST.INIT'ACCESS, -- entry point
|
|
||||||
RTEMS.TIMESLICE, -- initial mode
|
|
||||||
0 -- argument list
|
|
||||||
)
|
|
||||||
);
|
|
||||||
|
|
||||||
----------------------------------------------------------------------------
|
|
||||||
----------------------------------------------------------------------------
|
|
||||||
-- BEGIN SUBPACKAGE --
|
|
||||||
----------------------------------------------------------------------------
|
|
||||||
----------------------------------------------------------------------------
|
|
||||||
|
|
||||||
--
|
|
||||||
-- MPTEST.PER_NODE_CONFIGURATION / SPECIFICATION
|
|
||||||
--
|
|
||||||
-- DESCRIPTION:
|
|
||||||
--
|
|
||||||
-- This package is the specification for the subpackage
|
|
||||||
-- which will define the per node configuration parameters.
|
|
||||||
--
|
|
||||||
|
|
||||||
package PER_NODE_CONFIGURATION is
|
|
||||||
|
|
||||||
--
|
|
||||||
-- LOCAL_NODE_NUMBER
|
|
||||||
--
|
|
||||||
-- DESCRIPTION:
|
|
||||||
--
|
|
||||||
-- This function returns the node number for this node.
|
|
||||||
--
|
|
||||||
|
|
||||||
function LOCAL_NODE_NUMBER
|
|
||||||
return RTEMS.UNSIGNED32;
|
|
||||||
|
|
||||||
pragma INLINE ( LOCAL_NODE_NUMBER );
|
|
||||||
|
|
||||||
end PER_NODE_CONFIGURATION;
|
|
||||||
|
|
||||||
----------------------------------------------------------------------------
|
|
||||||
----------------------------------------------------------------------------
|
|
||||||
-- END SUBPACKAGE --
|
|
||||||
----------------------------------------------------------------------------
|
|
||||||
----------------------------------------------------------------------------
|
|
||||||
|
|
||||||
--
|
|
||||||
-- This is the Multiprocessor Configuration Table for this test.
|
|
||||||
--
|
|
||||||
|
|
||||||
MULTIPROCESSING_CONFIGURATION : aliased RTEMS.MULTIPROCESSING_TABLE := (
|
|
||||||
MPTEST.PER_NODE_CONFIGURATION.LOCAL_NODE_NUMBER,
|
|
||||||
2, -- maximum # nodes in system
|
|
||||||
32, -- maximum # global objects
|
|
||||||
32 -- maximum # proxies
|
|
||||||
);
|
|
||||||
|
|
||||||
--
|
|
||||||
-- This is the Configuration Table for this test.
|
|
||||||
--
|
|
||||||
|
|
||||||
CONFIGURATION : aliased RTEMS.CONFIGURATION_TABLE := (
|
|
||||||
RTEMS.NULL_ADDRESS, -- will be replaced by BSP
|
|
||||||
64 * 1024, -- executive RAM size
|
|
||||||
10, -- maximum # tasks
|
|
||||||
12, -- maximum # timers
|
|
||||||
1, -- maximum # semaphores
|
|
||||||
1, -- maximum # message queues
|
|
||||||
1, -- maximum # messages
|
|
||||||
1, -- maximum # partitions
|
|
||||||
0, -- maximum # regions
|
|
||||||
0, -- maximum # dp memory areas
|
|
||||||
0, -- maximum # periods
|
|
||||||
0, -- maximum # user extensions
|
|
||||||
RTEMS.MILLISECONDS_TO_MICROSECONDS(10), -- # us in a tick
|
|
||||||
1 -- # ticks in a timeslice
|
|
||||||
);
|
|
||||||
|
|
||||||
end MPTEST;
|
|
||||||
@@ -1,33 +0,0 @@
|
|||||||
*** TEST 14 -- NODE 1 ***
|
|
||||||
Creating Semaphore (Global)
|
|
||||||
Creating Message Queue (Global)
|
|
||||||
Creating Partition (Global)
|
|
||||||
Creating Event task (Global)
|
|
||||||
Starting Event task (Global)
|
|
||||||
Creating Semaphore task (Global)
|
|
||||||
About to go to sleep!
|
|
||||||
Starting Semaphore task (Global)
|
|
||||||
Creating Message Queue task (Global)
|
|
||||||
Getting SMID of semaphore
|
|
||||||
Starting Message Queue task (Global)
|
|
||||||
Creating Partition task (Global)
|
|
||||||
Getting ID of msg queue
|
|
||||||
Starting Partition task (Global)
|
|
||||||
Getting ID of partition
|
|
||||||
Waking up!
|
|
||||||
Remote task's name is : 222
|
|
||||||
Getting TID of remote task
|
|
||||||
Sending events to remote task
|
|
||||||
<stream of following characters>
|
|
||||||
. - indicates 100 iterations of
|
|
||||||
tm_evafter of 1 tick and event_receive.
|
|
||||||
e - indicates that 100
|
|
||||||
events have been sent to the remote task.
|
|
||||||
m - indicates 100 iterations of
|
|
||||||
message_queue_send and message_queue_receive.
|
|
||||||
p - indicates 100 iterations of
|
|
||||||
partition_get_buffer and partition_return_buffer.
|
|
||||||
s - indicates 100 iterations of
|
|
||||||
semaphore_obtain and semaphore_release.
|
|
||||||
NOTE: The characters in the stream could begin to appear whenever any
|
|
||||||
task is started.
|
|
||||||
@@ -1,43 +0,0 @@
|
|||||||
--
|
|
||||||
-- MPTEST.PER_NODE_CONFIGURATION / BODY
|
|
||||||
--
|
|
||||||
-- DESCRIPTION:
|
|
||||||
--
|
|
||||||
-- This package is the specification for the subpackage
|
|
||||||
-- which will define the per node configuration parameters.
|
|
||||||
--
|
|
||||||
-- DEPENDENCIES:
|
|
||||||
--
|
|
||||||
--
|
|
||||||
--
|
|
||||||
-- COPYRIGHT (c) 1989-1997.
|
|
||||||
-- On-Line Applications Research Corporation (OAR).
|
|
||||||
-- Copyright assigned to U.S. Government, 1994.
|
|
||||||
--
|
|
||||||
-- The license and distribution terms for this file may in
|
|
||||||
-- the file LICENSE in this distribution or at
|
|
||||||
-- http://www.OARcorp.com/rtems/license.html.
|
|
||||||
--
|
|
||||||
-- $Id$
|
|
||||||
--
|
|
||||||
|
|
||||||
with RTEMS;
|
|
||||||
|
|
||||||
separate ( MPTEST )
|
|
||||||
|
|
||||||
package body PER_NODE_CONFIGURATION is
|
|
||||||
|
|
||||||
--PAGE
|
|
||||||
--
|
|
||||||
-- LOCAL_NODE_NUMBER
|
|
||||||
--
|
|
||||||
|
|
||||||
function LOCAL_NODE_NUMBER
|
|
||||||
return RTEMS.UNSIGNED32 is
|
|
||||||
begin
|
|
||||||
|
|
||||||
return 1;
|
|
||||||
|
|
||||||
end LOCAL_NODE_NUMBER;
|
|
||||||
|
|
||||||
end PER_NODE_CONFIGURATION;
|
|
||||||
@@ -1,28 +0,0 @@
|
|||||||
*** TEST 14 -- NODE 2 ***
|
|
||||||
Creating Event task (Global)
|
|
||||||
Starting Event task (Global)
|
|
||||||
Creating Semaphore task (Global)
|
|
||||||
About to go to sleep!
|
|
||||||
Starting Semaphore task (Global)
|
|
||||||
Creating Message Queue task (Global)
|
|
||||||
Getting SMID of semaphore
|
|
||||||
Starting Message Queue task (Global)
|
|
||||||
Creating Partition task (Global)
|
|
||||||
Getting ID of msg queue
|
|
||||||
Starting Partition task (Global)
|
|
||||||
Getting ID of partition
|
|
||||||
Waking up!
|
|
||||||
Remote task's name is : 111
|
|
||||||
Getting TID of remote task
|
|
||||||
Receiving events from remote task
|
|
||||||
<stream of following characters>
|
|
||||||
. - indicates 100 iterations of
|
|
||||||
tm_evafter of 1 tick and event_receive.
|
|
||||||
e - indicates that 100
|
|
||||||
events have been sent to the remote task.
|
|
||||||
m - indicates 100 iterations of
|
|
||||||
message_queue_send and message_queue_receive.
|
|
||||||
p - indicates 100 iterations of
|
|
||||||
partition_get_buffer and partition_return_buffer.
|
|
||||||
s - indicates 100 iterations of
|
|
||||||
semaphore_obtain and semaphore_release.
|
|
||||||
@@ -1,43 +0,0 @@
|
|||||||
--
|
|
||||||
-- MPTEST.PER_NODE_CONFIGURATION / BODY
|
|
||||||
--
|
|
||||||
-- DESCRIPTION:
|
|
||||||
--
|
|
||||||
-- This package is the specification for the subpackage
|
|
||||||
-- which will define the per node configuration parameters.
|
|
||||||
--
|
|
||||||
-- DEPENDENCIES:
|
|
||||||
--
|
|
||||||
--
|
|
||||||
--
|
|
||||||
-- COPYRIGHT (c) 1989-1997.
|
|
||||||
-- On-Line Applications Research Corporation (OAR).
|
|
||||||
-- Copyright assigned to U.S. Government, 1994.
|
|
||||||
--
|
|
||||||
-- The license and distribution terms for this file may in
|
|
||||||
-- the file LICENSE in this distribution or at
|
|
||||||
-- http://www.OARcorp.com/rtems/license.html.
|
|
||||||
--
|
|
||||||
-- $Id$
|
|
||||||
--
|
|
||||||
|
|
||||||
with RTEMS;
|
|
||||||
|
|
||||||
separate ( MPTEST )
|
|
||||||
|
|
||||||
package body PER_NODE_CONFIGURATION is
|
|
||||||
|
|
||||||
--PAGE
|
|
||||||
--
|
|
||||||
-- LOCAL_NODE_NUMBER
|
|
||||||
--
|
|
||||||
|
|
||||||
function LOCAL_NODE_NUMBER
|
|
||||||
return RTEMS.UNSIGNED32 is
|
|
||||||
begin
|
|
||||||
|
|
||||||
return 2;
|
|
||||||
|
|
||||||
end LOCAL_NODE_NUMBER;
|
|
||||||
|
|
||||||
end PER_NODE_CONFIGURATION;
|
|
||||||
@@ -1,108 +0,0 @@
|
|||||||
--
|
|
||||||
-- MPTEST / BODY
|
|
||||||
--
|
|
||||||
-- DESCRIPTION:
|
|
||||||
--
|
|
||||||
-- This package is the implementation for Test 1 of the RTEMS
|
|
||||||
-- Multiprocessor Test Suite.
|
|
||||||
--
|
|
||||||
-- DEPENDENCIES:
|
|
||||||
--
|
|
||||||
--
|
|
||||||
--
|
|
||||||
-- COPYRIGHT (c) 1989-1997.
|
|
||||||
-- On-Line Applications Research Corporation (OAR).
|
|
||||||
-- Copyright assigned to U.S. Government, 1994.
|
|
||||||
--
|
|
||||||
-- The license and distribution terms for this file may in
|
|
||||||
-- the file LICENSE in this distribution or at
|
|
||||||
-- http://www.OARcorp.com/rtems/license.html.
|
|
||||||
--
|
|
||||||
-- $Id$
|
|
||||||
--
|
|
||||||
|
|
||||||
with INTERFACES; use INTERFACES;
|
|
||||||
with RTEMS;
|
|
||||||
with TEST_SUPPORT;
|
|
||||||
with TEXT_IO;
|
|
||||||
with UNSIGNED32_IO;
|
|
||||||
|
|
||||||
package body MPTEST is
|
|
||||||
|
|
||||||
package body PER_NODE_CONFIGURATION is separate;
|
|
||||||
|
|
||||||
--PAGE
|
|
||||||
--
|
|
||||||
-- INIT
|
|
||||||
--
|
|
||||||
|
|
||||||
procedure INIT (
|
|
||||||
ARGUMENT : in RTEMS.TASK_ARGUMENT
|
|
||||||
) is
|
|
||||||
C : RTEMS.CHARACTER;
|
|
||||||
TIME : RTEMS.TIME_OF_DAY;
|
|
||||||
STATUS : RTEMS.STATUS_CODES;
|
|
||||||
begin
|
|
||||||
|
|
||||||
TEXT_IO.NEW_LINE( 2 );
|
|
||||||
TEXT_IO.PUT( "*** SAMPLE MULTIPROCESSOR APPLICATION ***" );
|
|
||||||
TEXT_IO.PUT( "Creating and starting an application task" );
|
|
||||||
|
|
||||||
|
|
||||||
MPTEST.TASK_NAME( 1 ) := RTEMS.BUILD_NAME( 'T', 'A', '1', ' ' );
|
|
||||||
|
|
||||||
RTEMS.TASK_CREATE(
|
|
||||||
MPTEST.TASK_NAME( 1 ),
|
|
||||||
1,
|
|
||||||
2048,
|
|
||||||
RTEMS.INTERRUPT_LEVEL( 0 ),
|
|
||||||
RTEMS.DEFAULT_ATTRIBUTES,
|
|
||||||
MPTEST.TASK_ID( 1 ),
|
|
||||||
STATUS
|
|
||||||
);
|
|
||||||
TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "TASK_CREATE OF TA1" );
|
|
||||||
|
|
||||||
RTEMS.TASK_START(
|
|
||||||
MPTEST.TASK_ID( 1 ),
|
|
||||||
MPTEST.APPLICATION_TASK'ACCESS,
|
|
||||||
0,
|
|
||||||
STATUS
|
|
||||||
);
|
|
||||||
TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "TASK_START OF TA1" );
|
|
||||||
|
|
||||||
RTEMS.TASK_DELETE( RTEMS.SELF, STATUS );
|
|
||||||
TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "TASK_DELETE OF SELF" );
|
|
||||||
|
|
||||||
end INIT;
|
|
||||||
|
|
||||||
--PAGE
|
|
||||||
--
|
|
||||||
-- APPLICATION_TASK
|
|
||||||
--
|
|
||||||
|
|
||||||
procedure APPLICATION_TASK (
|
|
||||||
ARGUMENT : in RTEMS.TASK_ARGUMENT
|
|
||||||
) is
|
|
||||||
TIME : RTEMS.TIME_OF_DAY;
|
|
||||||
TID : RTEMS.ID;
|
|
||||||
STATUS : RTEMS.STATUS_CODES;
|
|
||||||
begin
|
|
||||||
|
|
||||||
RTEMS.TASK_IDENT( RTEMS.SELF, RTEMS.SEARCH_ALL_NODES, TID, STATUS );
|
|
||||||
TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "TASK_IDENT OF SELF" );
|
|
||||||
|
|
||||||
TEXT_IO.PUT( "This task was invoked with node argument (" );
|
|
||||||
UNSIGNED32_IO.PUT( ARGUMENT );
|
|
||||||
TEXT_IO.PUT_LINE( ")" );
|
|
||||||
|
|
||||||
TEXT_IO.PUT( "This task has the id of 0x" );
|
|
||||||
UNSIGNED32_IO.PUT( TID, BASE => 16 );
|
|
||||||
TEXT_IO.NEW_LINE;
|
|
||||||
|
|
||||||
TEXT_IO.PUT_LINE( "*** END OF SAMPLE MULTIPROCESSOR APPLICATION ***" );
|
|
||||||
|
|
||||||
RTEMS.SHUTDOWN_EXECUTIVE( 0 );
|
|
||||||
|
|
||||||
end APPLICATION_TASK;
|
|
||||||
|
|
||||||
end MPTEST;
|
|
||||||
@@ -1,166 +0,0 @@
|
|||||||
--
|
|
||||||
-- MPTEST / SPECIFICATION
|
|
||||||
--
|
|
||||||
-- DESCRIPTION:
|
|
||||||
--
|
|
||||||
-- This package is the specification for Test 1 of the RTEMS
|
|
||||||
-- Multiprocessor Test Suite.
|
|
||||||
--
|
|
||||||
-- DEPENDENCIES:
|
|
||||||
--
|
|
||||||
--
|
|
||||||
--
|
|
||||||
-- COPYRIGHT (c) 1989-1997.
|
|
||||||
-- On-Line Applications Research Corporation (OAR).
|
|
||||||
-- Copyright assigned to U.S. Government, 1994.
|
|
||||||
--
|
|
||||||
-- The license and distribution terms for this file may in
|
|
||||||
-- the file LICENSE in this distribution or at
|
|
||||||
-- http://www.OARcorp.com/rtems/license.html.
|
|
||||||
--
|
|
||||||
-- $Id$
|
|
||||||
--
|
|
||||||
|
|
||||||
with BSP_MPCI;
|
|
||||||
with RTEMS;
|
|
||||||
|
|
||||||
package MPTEST is
|
|
||||||
|
|
||||||
--
|
|
||||||
-- These arrays contain the IDs and NAMEs of all RTEMS tasks created
|
|
||||||
-- by this test.
|
|
||||||
--
|
|
||||||
|
|
||||||
TASK_ID : array ( RTEMS.UNSIGNED32 range 1 .. 3 ) of RTEMS.ID;
|
|
||||||
TASK_NAME : array ( RTEMS.UNSIGNED32 range 1 .. 3 ) of RTEMS.NAME;
|
|
||||||
|
|
||||||
--
|
|
||||||
-- INIT
|
|
||||||
--
|
|
||||||
-- DESCRIPTION:
|
|
||||||
--
|
|
||||||
-- This RTEMS task initializes the application.
|
|
||||||
--
|
|
||||||
|
|
||||||
procedure INIT (
|
|
||||||
ARGUMENT : in RTEMS.TASK_ARGUMENT
|
|
||||||
);
|
|
||||||
|
|
||||||
--
|
|
||||||
-- APPLICATION_TASK
|
|
||||||
--
|
|
||||||
-- DESCRIPTION:
|
|
||||||
--
|
|
||||||
-- This routine is as an example of an application task which
|
|
||||||
-- prints a message including its RTEMS task id. This task
|
|
||||||
-- then invokes exit to return to the monitor.
|
|
||||||
--
|
|
||||||
|
|
||||||
procedure APPLICATION_TASK (
|
|
||||||
ARGUMENT : in RTEMS.TASK_ARGUMENT
|
|
||||||
);
|
|
||||||
|
|
||||||
--
|
|
||||||
-- This is the Driver Address Table for this test.
|
|
||||||
--
|
|
||||||
|
|
||||||
DEVICE_DRIVERS : aliased RTEMS.DRIVER_ADDRESS_TABLE( 1 .. 1 ) :=
|
|
||||||
(1=>
|
|
||||||
(
|
|
||||||
CLOCK_DRIVER.INITIALIZE'ACCESS, -- Initialization
|
|
||||||
RTEMS.NO_DRIVER_ENTRY, -- Open
|
|
||||||
RTEMS.NO_DRIVER_ENTRY, -- Close
|
|
||||||
RTEMS.NO_DRIVER_ENTRY, -- Read
|
|
||||||
RTEMS.NO_DRIVER_ENTRY, -- Write
|
|
||||||
RTEMS.NO_DRIVER_ENTRY -- Control
|
|
||||||
)
|
|
||||||
);
|
|
||||||
|
|
||||||
--
|
|
||||||
-- This is the Initialization Tasks Table for this test.
|
|
||||||
--
|
|
||||||
|
|
||||||
INITIALIZATION_TASKS : aliased RTEMS.INITIALIZATION_TASKS_TABLE( 1 .. 1 ) :=
|
|
||||||
(1=>
|
|
||||||
(
|
|
||||||
RTEMS.BUILD_NAME( 'U', 'I', '1', ' ' ), -- task name
|
|
||||||
2048, -- stack size
|
|
||||||
1, -- priority
|
|
||||||
RTEMS.GLOBAL, -- attributes
|
|
||||||
MPTEST.INIT'ACCESS, -- entry point
|
|
||||||
RTEMS.NO_PREEMPT, -- initial mode
|
|
||||||
0 -- argument list
|
|
||||||
)
|
|
||||||
);
|
|
||||||
|
|
||||||
----------------------------------------------------------------------------
|
|
||||||
----------------------------------------------------------------------------
|
|
||||||
-- BEGIN SUBPACKAGE --
|
|
||||||
----------------------------------------------------------------------------
|
|
||||||
----------------------------------------------------------------------------
|
|
||||||
|
|
||||||
--
|
|
||||||
-- MPTEST.PER_NODE_CONFIGURATION / SPECIFICATION
|
|
||||||
--
|
|
||||||
-- DESCRIPTION:
|
|
||||||
--
|
|
||||||
-- This package is the specification for the subpackage
|
|
||||||
-- which will define the per node configuration parameters.
|
|
||||||
--
|
|
||||||
|
|
||||||
package PER_NODE_CONFIGURATION is
|
|
||||||
|
|
||||||
--
|
|
||||||
-- LOCAL_NODE_NUMBER
|
|
||||||
--
|
|
||||||
-- DESCRIPTION:
|
|
||||||
--
|
|
||||||
-- This function returns the node number for this node.
|
|
||||||
--
|
|
||||||
|
|
||||||
function LOCAL_NODE_NUMBER
|
|
||||||
return RTEMS.UNSIGNED32;
|
|
||||||
|
|
||||||
pragma INLINE ( LOCAL_NODE_NUMBER );
|
|
||||||
|
|
||||||
end PER_NODE_CONFIGURATION;
|
|
||||||
|
|
||||||
----------------------------------------------------------------------------
|
|
||||||
----------------------------------------------------------------------------
|
|
||||||
-- END SUBPACKAGE --
|
|
||||||
----------------------------------------------------------------------------
|
|
||||||
----------------------------------------------------------------------------
|
|
||||||
|
|
||||||
--
|
|
||||||
-- This is the Multiprocessor Configuration Table for this test.
|
|
||||||
--
|
|
||||||
|
|
||||||
MULTIPROCESSING_CONFIGURATION : aliased RTEMS.MULTIPROCESSING_TABLE := (
|
|
||||||
MPTEST.PER_NODE_CONFIGURATION.LOCAL_NODE_NUMBER,
|
|
||||||
2, -- maximum # nodes in system
|
|
||||||
33, -- maximum # global objects
|
|
||||||
33 -- maximum # proxies
|
|
||||||
);
|
|
||||||
|
|
||||||
--
|
|
||||||
-- This is the Configuration Table for this test.
|
|
||||||
--
|
|
||||||
|
|
||||||
CONFIGURATION : aliased RTEMS.CONFIGURATION_TABLE := (
|
|
||||||
RTEMS.NULL_ADDRESS, -- will be replaced by BSP
|
|
||||||
64 * 1024, -- executive RAM size
|
|
||||||
10, -- maximum # tasks
|
|
||||||
0, -- maximum # timers
|
|
||||||
0, -- maximum # semaphores
|
|
||||||
0, -- maximum # message queues
|
|
||||||
0, -- maximum # messages
|
|
||||||
0, -- maximum # partitions
|
|
||||||
0, -- maximum # regions
|
|
||||||
0, -- maximum # dp memory areas
|
|
||||||
0, -- maximum # periods
|
|
||||||
0, -- maximum # user extensions
|
|
||||||
RTEMS.MILLISECONDS_TO_MICROSECONDS(10), -- # us in a tick
|
|
||||||
50 -- # ticks in a timeslice
|
|
||||||
);
|
|
||||||
|
|
||||||
end MPTEST;
|
|
||||||
@@ -1,5 +0,0 @@
|
|||||||
*** SAMPLE MULTIPROCESSOR APPLICATION ***
|
|
||||||
Creating and starting an application task
|
|
||||||
This task was invoked with the node argument (1)
|
|
||||||
This task has the id of 0x10002
|
|
||||||
*** END OF SAMPLE MULTIPROCESSOR APPLICATION ***
|
|
||||||
@@ -1,43 +0,0 @@
|
|||||||
--
|
|
||||||
-- MPTEST.PER_NODE_CONFIGURATION / BODY
|
|
||||||
--
|
|
||||||
-- DESCRIPTION:
|
|
||||||
--
|
|
||||||
-- This package is the specification for the subpackage
|
|
||||||
-- which will define the per node configuration parameters.
|
|
||||||
--
|
|
||||||
-- DEPENDENCIES:
|
|
||||||
--
|
|
||||||
--
|
|
||||||
--
|
|
||||||
-- COPYRIGHT (c) 1989-1997.
|
|
||||||
-- On-Line Applications Research Corporation (OAR).
|
|
||||||
-- Copyright assigned to U.S. Government, 1994.
|
|
||||||
--
|
|
||||||
-- The license and distribution terms for this file may in
|
|
||||||
-- the file LICENSE in this distribution or at
|
|
||||||
-- http://www.OARcorp.com/rtems/license.html.
|
|
||||||
--
|
|
||||||
-- $Id$
|
|
||||||
--
|
|
||||||
|
|
||||||
with RTEMS;
|
|
||||||
|
|
||||||
separate ( MPTEST )
|
|
||||||
|
|
||||||
package body PER_NODE_CONFIGURATION is
|
|
||||||
|
|
||||||
--PAGE
|
|
||||||
--
|
|
||||||
-- LOCAL_NODE_NUMBER
|
|
||||||
--
|
|
||||||
|
|
||||||
function LOCAL_NODE_NUMBER
|
|
||||||
return RTEMS.UNSIGNED32 is
|
|
||||||
begin
|
|
||||||
|
|
||||||
return 1;
|
|
||||||
|
|
||||||
end LOCAL_NODE_NUMBER;
|
|
||||||
|
|
||||||
end PER_NODE_CONFIGURATION;
|
|
||||||
Some files were not shown because too many files have changed in this diff Show More
Reference in New Issue
Block a user