//=================================================================////        heaptest.cxx////        Test all the memory used by heaps to check it's all valid////=================================================================//####ECOSGPLCOPYRIGHTBEGIN####// -------------------------------------------// This file is part of eCos, the Embedded Configurable Operating System.// Copyright (C) 1998, 1999, 2000, 2001, 2002 Red Hat, Inc.//// eCos is free software; you can redistribute it and/or modify it under// the terms of the GNU General Public License as published by the Free// Software Foundation; either version 2 or (at your option) any later version.//// eCos is distributed in the hope that it will be useful, but WITHOUT ANY// WARRANTY; without even the implied warranty of MERCHANTABILITY or// FITNESS FOR A PARTICULAR PURPOSE.  See the GNU General Public License// for more details.//// You should have received a copy of the GNU General Public License along// with eCos; if not, write to the Free Software Foundation, Inc.,// 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA.//// As a special exception, if other files instantiate templates or use macros// or inline functions from this file, or you compile this file and link it// with other works to produce a work based on this file, this file does not// by itself cause the resulting work to be covered by the GNU General Public// License. However the source code for this file must still be made available// in accordance with section (3) of the GNU General Public License.//// This exception does not invalidate any other reasons why a work based on// this file might be covered by the GNU General Public License.//// Alternative licenses for eCos may be arranged by contacting Red Hat, Inc.// at http://sources.redhat.com/ecos/ecos-license/// -------------------------------------------//####ECOSGPLCOPYRIGHTEND####//=================================================================//#####DESCRIPTIONBEGIN####//// Author(s):     jlarmour// Contributors:  // Date:          2001-07-17// Description:   Tests all memory allocated for use by heaps.//////####DESCRIPTIONEND####// INCLUDES#include <pkgconf/system.h>#include <pkgconf/hal.h>#include <pkgconf/memalloc.h> // config header#ifdef CYGPKG_ISOINFRA# include <pkgconf/isoinfra.h># include <stdlib.h>#endif#include <cyg/infra/testcase.h>#if !defined(CYGPKG_ISOINFRA)# define NA_MSG "Requires isoinfra package"#elif !CYGINT_ISO_MALLOC# define NA_MSG "Requires malloc"#elif !CYGINT_ISO_MALLINFO# define NA_MSG "Requires mallinfo"#endif#ifdef NA_MSGexternC voidcyg_start(void){    CYG_TEST_INIT();    CYG_TEST_NA( NA_MSG );    CYG_TEST_FINISH("Done");}#else#include <cyg/infra/diag.h>#define ERRORTHRESHOLD 10#define ITERS (cyg_test_is_simulator ? 1 : 10)#define INTALIGNED(_x_) (!((unsigned long)(_x_) & (sizeof(int)-1)))inttest_pat(unsigned char *buf, int size,         unsigned int pat, cyg_bool addrpat,         const char *testname){    unsigned char *bufptr=buf;    register unsigned int *ibufptr;    unsigned char *endptr=buf+size;    register unsigned int *endptra; // int aligned    int errors=0;    unsigned char bpat = pat & 0xFF;    endptra = (int *)((unsigned long)endptr & ~(sizeof(int)-1));        // Set to the pattern    while (!INTALIGNED(bufptr)) {        if (addrpat)            bpat = ((int)bufptr)&0xFF;        *bufptr++ = bpat;    }    ibufptr = (unsigned int *)bufptr;        while ( ibufptr < endptra ) {        if (addrpat)            pat = (unsigned int)ibufptr;        *ibufptr++ = pat;    }    bufptr = (unsigned char *)ibufptr;    while ( bufptr < endptr ) {        if (addrpat)            bpat = ((int)bufptr)&0xFF;        *bufptr++ = bpat;    }    // Now compare to the pattern    bufptr = buf;    while ( !INTALIGNED(bufptr) ) {        if (addrpat)            bpat = ((int)bufptr)&0xFF;        if ( *bufptr != bpat ) {            diag_printf( "FAIL:<Memory at 0x%08x: expected 0x%02x, read 0x%02x>\n",                          bufptr, (int)bpat, (int)*bufptr );            if ( errors++ == ERRORTHRESHOLD )                CYG_TEST_FAIL_FINISH( testname );        }        bufptr++;    }    ibufptr = (unsigned int *)bufptr;        while ( ibufptr < endptra ) {        if (addrpat)            pat = (unsigned int)ibufptr;        if ( *ibufptr != pat ) {            diag_printf( "FAIL:<Memory at 0x%08x: expected 0x%08x, read 0x%08x>\n",                          ibufptr, pat, *ibufptr );            if ( errors++ == ERRORTHRESHOLD )                CYG_TEST_FAIL_FINISH( testname );        }        ibufptr++;    }    bufptr = (unsigned char *)ibufptr;    while ( bufptr < endptr ) {        if (addrpat)            bpat = ((int)bufptr)&0xFF;        if ( *bufptr != bpat ) {            diag_printf( "FAIL:<Memory at 0x%08x: expected 0x%02x, read 0x%02x>\n",                          bufptr, (int)bpat, (int)*bufptr );            if ( errors++ == ERRORTHRESHOLD )                CYG_TEST_FAIL_FINISH( testname );        }        bufptr++;    }    if (errors)        CYG_TEST_FAIL( testname );    else        CYG_TEST_PASS( testname );    return errors;} // test_pat()externC voidcyg_start(void){    unsigned int allonesint=0, checkerboardint1=0, checkerboardint2=0;    int i;    int errors=0;    #ifdef CYGSEM_HAL_STOP_CONSTRUCTORS_ON_FLAG    cyg_hal_invoke_constructors();#endif    CYG_TEST_INIT();    CYG_TEST_INFO("Starting heaptest - testing all memory usable as heap");    CYG_TEST_INFO("Any failures reported may indicate failing RAM hardware,");    CYG_TEST_INFO("or an invalid memory map");    for (i=0; i<sizeof(int); i++) {        allonesint = allonesint << 8;        allonesint |= 0xFF;        checkerboardint1 = checkerboardint1 << 8;        checkerboardint1 |= 0xAA;        checkerboardint2 = checkerboardint2 << 8;        checkerboardint2 |= 0x55;    }    for (;;) {        struct mallinfo info;        char *buf;                info = mallinfo();        if ( info.maxfree <= 0 )            break;        buf = malloc(info.maxfree);        if (!buf) {            diag_printf("Couldn't malloc %d bytes claimed as available",                        info.maxfree);            CYG_TEST_FAIL_FINISH("heaptest");        }        diag_printf( "INFO:<Testing memory at 0x%08x of size %d for %d iterations>\n",                     buf, info.maxfree, ITERS );        for (i=0; i<ITERS; i++) {            errors += test_pat( buf, info.maxfree, 0, 0, "all zeroes" );            errors += test_pat( buf, info.maxfree, allonesint, 0,                                "all ones" );            errors += test_pat( buf, info.maxfree, checkerboardint1, 0,                                "checkerboard 1" );            errors += test_pat( buf, info.maxfree, checkerboardint2, 0,                                "checkerboard 2" );            errors += test_pat( buf, info.maxfree, 0, 1,                                "memory addr" );        }        // deliberately don't free so we get the next space    }    if (errors)        CYG_TEST_FAIL_FINISH( "heaptest errors found" );    else        CYG_TEST_PASS_FINISH( "heaptest OK" );} // cyg_start()#endif // !NA_MSG// EOF heaptest.cxx