mirror of
https://gitlab.rtems.org/rtems/rtos/rtems.git
synced 2025-11-16 12:34:45 +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