From b762862680b2fbe0c1d61193e6b20bdadc6cd359 Mon Sep 17 00:00:00 2001 From: Sebastian Huber Date: Fri, 2 Jul 2021 20:16:56 +0200 Subject: spec: Specify rtems_interrupt_cause() --- spec/rtems/intr/req/cause.yml | 351 ++++++++++++++++++++++++++++++++++++++++++ 1 file changed, 351 insertions(+) create mode 100644 spec/rtems/intr/req/cause.yml diff --git a/spec/rtems/intr/req/cause.yml b/spec/rtems/intr/req/cause.yml new file mode 100644 index 00000000..7e3a5b21 --- /dev/null +++ b/spec/rtems/intr/req/cause.yml @@ -0,0 +1,351 @@ +SPDX-License-Identifier: CC-BY-SA-4.0 OR BSD-2-Clause +copyrights: +- Copyright (C) 2021 embedded brains GmbH (http://www.embedded-brains.de) +enabled-by: true +functional-type: action +links: +- role: interface-function + uid: ../if/cause +post-conditions: +- name: Status + states: + - name: Ok + test-code: | + /* Validation is done by CheckCause() for each interrupt vector */ + text: | + The return status of ${../if/cause:/name} shall be + ${../../status/if/successful:/name}. + - name: InvId + test-code: | + T_rsc( ctx->status, RTEMS_INVALID_ID ); + text: | + The return status of ${../if/cause:/name} shall be + ${../../status/if/invalid-id:/name}. + - name: Unsat + test-code: | + /* Validation is done by CheckCause() for each interrupt vector */ + text: | + The return status of ${../if/cause:/name} shall be + ${../../status/if/unsatisfied:/name}. + test-epilogue: null + test-prologue: null +- name: Pending + states: + - name: 'Yes' + test-code: | + /* Validation is done by CheckCause() for each interrupt vector */ + text: | + The interrupt associated with the interrupt vector specified by + ${../if/cause:/params[0]/name} shall be made pending by the + ${../if/cause:/name} call. + - name: 'No' + test-code: | + /* Validation is done by CheckCause() for each interrupt vector */ + text: | + The interrupt associated with the interrupt vector specified by + ${../if/cause:/params[0]/name} shall not be made pending by the + ${../if/cause:/name} call. + test-epilogue: null + test-prologue: null +pre-conditions: +- name: Vector + states: + - name: Valid + test-code: | + ctx->valid_vector = true; + text: | + While the ${../if/cause:/params[0]/name} parameter is + associated with an interrupt vector. + - name: Invalid + test-code: | + ctx->valid_vector = false; + text: | + While the ${../if/cause:/params[0]/name} parameter is + not associated with an interrupt vector. + test-epilogue: null + test-prologue: null +- name: CanCause + states: + - name: 'Yes' + test-code: | + /* + * This pre-condition depends on the attributes of an interrupt vector, + * see CheckCause(). + */ + text: | + While the interrupt vector associated with the + ${../if/cause:/params[0]/name} parameter can be caused. + - name: 'No' + test-code: | + /* + * This pre-condition depends on the attributes of an interrupt vector, + * see CheckCause(). + */ + text: | + While the interrupt vector associated with the + ${../if/cause:/params[0]/name} parameter cannot be caused. + test-epilogue: null + test-prologue: null +rationale: null +references: [] +requirement-type: functional +skip-reasons: {} +test-action: | + if ( ctx->valid_vector ) { + for ( + ctx->vector = 0; + ctx->vector < BSP_INTERRUPT_VECTOR_COUNT; + ++ctx->vector + ) { + rtems_status_code sc; + rtems_interrupt_attributes attr; + bool has_installed_entries; + + memset( &attr, 0, sizeof( attr ) ); + sc = rtems_interrupt_get_attributes( ctx->vector, &attr ); + + if ( sc == RTEMS_INVALID_ID ) { + continue; + } + + T_rsc_success( sc ); + + has_installed_entries = HasInterruptVectorEntriesInstalled( ctx->vector ); + CheckCause( ctx, &attr, has_installed_entries ); + } + } else { + ctx->vector = BSP_INTERRUPT_VECTOR_COUNT; + ctx->status = rtems_interrupt_cause( ctx->vector ); + } +test-brief: null +test-cleanup: null +test-context: +- brief: | + This member contains the count of serviced interrupts. + description: null + member: | + volatile uint32_t interrupt_count +- brief: | + If this member is true, then the interrupt shall be cleared. + description: null + member: | + bool do_clear +- brief: | + This member contains the current vector number. + description: null + member: | + rtems_vector_number vector +- brief: | + If this member is true, then the ${../if/cause:/params[0]/name} + parameter shall be valid. + description: null + member: | + bool valid_vector +- brief: | + This member contains the return value of the ${../if/cause:/name} + call. + description: null + member: | + rtems_status_code status +test-context-support: null +test-description: null +test-header: null +test-includes: +- rtems/irq-extension.h +- bsp/irq-generic.h +- string.h +test-local-includes: +- tx-support.h +test-prepare: null +test-setup: null +test-stop: null +test-support: | + typedef RtemsIntrReqCause_Context Context; + + static bool IsEnabled( const Context *ctx ) + { + rtems_status_code sc; + bool enabled; + + enabled = false; + sc = rtems_interrupt_vector_is_enabled( ctx->vector, &enabled ); + T_rsc_success( sc ); + + return enabled; + } + + static bool IsPending( const Context *ctx ) + { + rtems_status_code sc; + bool pending; + + pending = false; + sc = rtems_interrupt_is_pending( ctx->vector, &pending ); + T_rsc_success( sc ); + + return pending; + } + + static void Disable( const Context *ctx ) + { + rtems_status_code sc; + + sc = rtems_interrupt_vector_disable( ctx->vector ); + T_rsc_success( sc ); + } + + static void Cause( const Context *ctx ) + { + rtems_status_code sc; + + sc = rtems_interrupt_cause( ctx->vector ); + T_rsc_success( sc ); + } + + static void EntryRoutine( void *arg ) + { + Context *ctx; + uint32_t count; + + (void) arg; + ctx = T_fixture_context(); + + count = ctx->interrupt_count; + ctx->interrupt_count = count + 1; + + if ( ctx->do_clear ) { + rtems_status_code sc; + + sc = rtems_interrupt_clear( ctx->vector ); + T_rsc_success( sc ); + } + + if ( count > 2 ) { + /* Some interrupts are probably cased by a peripheral */ + Disable( ctx ); + } + } + + static void CheckUnsatisfied( const Context *ctx ) + { + rtems_status_code sc; + bool pending_before; + bool pending_after; + + pending_before = true; + sc = rtems_interrupt_is_pending( ctx->vector, &pending_before ); + T_rsc_success( sc ); + + sc = rtems_interrupt_cause( ctx->vector ); + T_rsc( sc, RTEMS_UNSATISFIED ); + + pending_after = !pending_before; + sc = rtems_interrupt_is_pending( ctx->vector, &pending_after ); + T_rsc_success( sc ); + + T_eq( pending_before, pending_after ); + } + + static void CheckCause( + Context *ctx, + const rtems_interrupt_attributes *attr, + bool has_installed_entries + ) + { + rtems_status_code sc; + + if ( !attr->can_cause ) { + CheckUnsatisfied( ctx ); + } else if ( has_installed_entries ) { + /* We cannot test this vector, since it is used by a device driver */ + } else if ( !attr->is_maskable ) { + /* We can only safely test maskable interrupts */ + } else if ( IsPending( ctx ) ) { + /* + * If there is already an interrupt pending, then it is probably caused + * by a peripheral which we cannot control. + */ + } else if ( + ( attr->always_enabled || attr->can_disable ) && + ( attr->can_clear || attr->cleared_by_acknowledge ) + ) { + rtems_interrupt_entry entry; + rtems_interrupt_level level; + + ctx->interrupt_count = 0; + ctx->do_clear = attr->can_clear && !attr->cleared_by_acknowledge; + rtems_interrupt_entry_initialize( &entry, EntryRoutine, ctx, "Info" ); + sc = rtems_interrupt_entry_install( + ctx->vector, + RTEMS_INTERRUPT_UNIQUE, + &entry + ); + T_rsc_success( sc ); + + if ( !IsPending( ctx) && ( attr->can_enable || IsEnabled( ctx ) ) ) { + T_false( IsPending( ctx ) ); + + if ( attr->can_disable ) { + Disable( ctx ); + Cause( ctx ); + T_true( IsPending( ctx ) ); + + sc = rtems_interrupt_vector_enable( ctx->vector ); + T_rsc_success( sc ); + + while ( ctx->interrupt_count < 1 ) { + /* Wait */ + } + } else { + ++ctx->interrupt_count; + } + + T_false( IsPending( ctx ) ); + + rtems_interrupt_local_disable( level ); + Cause( ctx ); + T_true( IsPending( ctx ) ); + rtems_interrupt_local_enable( level ); + + while ( ctx->interrupt_count < 2 ) { + /* Wait */ + } + + T_false( IsPending( ctx ) ); + } + + sc = rtems_interrupt_entry_remove( ctx->vector, &entry ); + T_rsc_success( sc ); + } + } +test-target: testsuites/validation/tc-intr-cause.c +test-teardown: null +text: ${.:text-template} +transition-map: +- enabled-by: true + post-conditions: + Status: Ok + Pending: 'Yes' + pre-conditions: + Vector: + - Valid + CanCause: + - 'Yes' +- enabled-by: true + post-conditions: + Status: InvId + Pending: N/A + pre-conditions: + Vector: + - Invalid + CanCause: N/A +- enabled-by: true + post-conditions: + Status: Unsat + Pending: 'No' + pre-conditions: + Vector: + - Valid + CanCause: + - 'No' +type: requirement -- cgit v1.2.3