Subversion Repositories openrisc

/*  Task_1

 *

 *  This task verifies that the dual ported RAM directives work

 *  correctly by converting external addresses to internal addresses and

 *  internal addresses to external addresses.

 *

 *  Input parameters:

 *    argument - task argument

 *

 *  Output parameters:  NONE

 *

 *  COPYRIGHT (c) 1989-1999.

 *  On-Line Applications Research Corporation (OAR).

 *

 *  The license and distribution terms for this file may be

 *  found in the file LICENSE in this distribution or at

 *  http://www.OARcorp.com/rtems/license.html.

 *

 *  $Id: task1.c,v 1.2 2001-09-27 12:02:36 chris Exp $

 */

#include "system.h"

rtems_task Task_1(

  rtems_task_argument argument

)

{

  rtems_id           dpid;

  void              *to_be_converted;

  void              *converted;

  rtems_status_code  status;

  status = rtems_port_ident( Port_name[ 1 ], &dpid );

  directive_failed( status, "rtems_port_ident" );

  printf( "TA1 - rtems_port_ident - 0x%08x\n", dpid );

  to_be_converted = &External_port_area[ 0xe ];

  status = rtems_port_external_to_internal(

    Port_id[ 1 ],

    to_be_converted,

    &converted

  );

  directive_failed( status, "rtems_port_external_to_internal" );

  printf(

    "TA1 - rtems_port_external_to_internal - %p => %p\n",

    to_be_converted,

    converted

  );

  to_be_converted = &Internal_port_area[ 0xe ];

  status = rtems_port_internal_to_external(

    Port_id[ 1 ],

    to_be_converted,

    &converted

  );

  directive_failed( status, "rtems_port_internal_to_external" );

  printf(

    "TA1 - rtems_port_internal_to_external - %p => %p\n",

    to_be_converted,

    converted

  );

  to_be_converted = &Above_port_area[ 0xe ];

  status = rtems_port_external_to_internal(

    Port_id[ 1 ],

    to_be_converted,

    &converted

  );

  directive_failed( status, "rtems_port_external_to_internal" );

  printf(

    "TA1 - rtems_port_external_to_internal - %p => %p\n",

    to_be_converted,

    converted

  );

  to_be_converted = &Below_port_area[ 0xe ];

  status = rtems_port_internal_to_external(

    Port_id[ 1 ],

    to_be_converted,

    &converted

  );

  directive_failed( status, "rtems_port_internal_to_external" );

  printf(

    "TA1 - rtems_port_internal_to_external - %p => %p\n",

    to_be_converted,

    converted

  );

  status = rtems_port_delete( Port_id[ 1 ] );

  directive_failed( status, "rtems_port_delete" );

  puts( "TA1 - rtems_port_delete - DP1" );

  puts( "*** END OF TEST 23 ***" );

  exit( 0 );

}