Subversion Repositories openrisc

/*$$HEADER*/

/******************************************************************************/

/*                                                                            */

/*                    H E A D E R   I N F O R M A T I O N                     */

/*                                                                            */

/******************************************************************************/

// Project Name                   : OpenRISC Debug Proxy

// File Name                      : usb_functions.c

// Prepared By                    : jb

// Project Start                  : 2008-10-01

/*$$COPYRIGHT NOTICE*/

/******************************************************************************/

/*                                                                            */

/*                      C O P Y R I G H T   N O T I C E                       */

/*                                                                            */

/******************************************************************************/

/*

  This library is free software; you can redistribute it and/or

  modify it under the terms of the GNU Lesser General Public

  License as published by the Free Software Foundation;

  version 2.1 of the License, a copy of which is available from

  http://www.gnu.org/licenses/old-licenses/lgpl-2.1.txt.

  This library 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

  Lesser General Public License for more details.

  You should have received a copy of the GNU Lesser General Public

  License along with this library; if not, write to the Free Software

  Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA  02110-1301  USA

*/

/*$$DESCRIPTION*/

/******************************************************************************/

/*                                                                            */

/*                           D E S C R I P T I O N                            */

/*                                                                            */

/******************************************************************************/

//

// Code calling the FT2232 JTAG MPSSE driver functions. Does a majority of the 

// fiddly work when interfacing to the system via its debug module.

//

/*$$CHANGE HISTORY*/

/******************************************************************************/

/*                                                                            */

/*                         C H A N G E  H I S T O R Y                         */

/*                                                                            */

/******************************************************************************/

// Date         Version Description

//------------------------------------------------------------------------

// 081101               First revision                                  jb

#include <assert.h>

#include <stdio.h>

#include <ctype.h>

#include <string.h>

#include <stdlib.h>

#include <unistd.h>

#include <stdarg.h>

#include <sys/stat.h>

#include <sys/types.h>

#include <netinet/in.h>

#ifdef CYGWIN_COMPILE

#include <windows.h>

#include "win_FTCJTAG.h"

#else // We're on Linux or Mac OS X

#include "WinTypes.h" // We still use things from here in this file - TODO: remove this dependency

#include "FT2232cMpsseJtag.h"

#endif

#include "gdb.h"

#include "usb_functions.h"

#include "or_debug_proxy.h"

#include "usb_driver_calls.h"

// Global JTAG signals for reading/writing

DWORD dwNumBytesReturned = 0;

/* Crc of current read or written data.  */

uint32_t crc_r, crc_w = 0;

/* Generates new crc, sending in new bit input_bit */

uint32_t crc_calc(uint32_t crc, uint32_t input_bit) {

        uint32_t d = (input_bit) ? 0xfffffff : 0x0000000;

        uint32_t crc_32 = ((crc >> 31)&1) ? 0xfffffff : 0x0000000;

        crc <<= 1;

        return crc ^ ((d ^ crc_32) & DBG_CRC_POLY);

}

// Speedy bit reversing algorithms for base2 lengths

// Thanks to: http://aggregate.org/MAGIC/#Bit%20Reversal

uint32_t bit_reverse_swar_2(uint32_t x)

{

  x=(((x&0xaaaaaaaa)>>1)|((x&0x55555555)<<1));

  return x;

}

uint32_t bit_reverse_swar_4(uint32_t x)

{

  x=(((x&0xaaaaaaaa)>>1)|((x&0x55555555)<<1));

  x=(((x&0xcccccccc)>>2)|((x&0x33333333)<<2));

  return x;

}

static inline uint32_t bit_reverse_swar_8(uint32_t x)

{

  x=(((x&0xaaaaaaaa)>>1)|((x&0x55555555)<<1));

  x=(((x&0xcccccccc)>>2)|((x&0x33333333)<<2));

  x=(((x&0xf0f0f0f0)>>4)|((x&0x0f0f0f0f)<<4));

  return x;

}

uint32_t bit_reverse_swar_16(uint32_t x)

{

  x=(((x&0xaaaaaaaa)>>1)|((x&0x55555555)<<1));

  x=(((x&0xcccccccc)>>2)|((x&0x33333333)<<2));

  x=(((x&0xf0f0f0f0)>>4)|((x&0x0f0f0f0f)<<4));

  x=(((x&0xff00ff00)>>8)|((x&0x00ff00ff)<<8));

  return x;

}

uint32_t bit_reverse_swar_32(uint32_t x)

{

  x=(((x&0xaaaaaaaa)>>1)|((x&0x55555555)<<1));

  x=(((x&0xcccccccc)>>2)|((x&0x33333333)<<2));

  x=(((x&0xf0f0f0f0)>>4)|((x&0x0f0f0f0f)<<4));

  x=(((x&0xff00ff00)>>8)|((x&0x00ff00ff)<<8));

  x=(((x&0xffff0000)>>16)|((x&0x0000ffff)<<16)); // We could be on 64-bit arch!

  return x;

}

uint32_t bit_reverse_data(uint32_t data, uint32_t length){

  if (length == 2) return bit_reverse_swar_2(data);

  if (length == 4) return bit_reverse_swar_4(data);

  if (length == 8) return bit_reverse_swar_8(data);

  if (length == 16) return bit_reverse_swar_16(data);

  if (length == 32) return bit_reverse_swar_32(data);

  // Long and laborious way - hopefully never gets called anymore!

  uint32_t i,reverse=0;

  for (i=0;i<length;i++) reverse |= (((data>>i)&1)<<(length-1-i));

  return reverse;

}

// Constants that are used a lot, and were 5 bits, so might as well precalculate them

// These are from or_debug_proxy.h, so if the original values change these

// should be recalculated!!

const uint8_t DI_GO_5BITREVERSED = 0x00;

const uint8_t DI_READ_CMD_5BITREVERSED = 0x10;

const uint8_t DI_WRITE_CMD_5BITREVERSED = 0x08;

const uint8_t DI_READ_CTRL_5BITREVERSED = 0x18;

const uint8_t DI_WRITE_CTRL_5BITREVERSED = 0x04;

void usb_dbg_test() {

  uint32_t npc, ppc, r1;

  unsigned char stalled;

  printf("Stalling or1k\n");

  err = dbg_cpu0_write_ctrl(0, 0x01);      // stall or1k

  err = dbg_cpu0_read_ctrl(0, &stalled);

  if (!(stalled & 0x1)) {

    printf("or1k should be stalled\n");   // check stall or1k

    exit(1);

  }

  /* Clear Debug Reason Register (DRR) 0x3015 */

  err = dbg_cpu0_write((6 << 11) + 21, 0);

  err = dbg_cpu0_read((0 << 11) + 16, &npc);  /* Read NPC */

  err = dbg_cpu0_read((0 << 11) + 18, &ppc);  /* Read PPC */

  err = dbg_cpu0_read(0x401, &r1);  /* Read R1 */

  if (err)

    {

      printf("Jtag error %d occured; exiting.", err);

      FT2232_USB_JTAG_CloseDevice();

      exit(1);

    }

  printf("Read      npc = %.8x ppc = %.8x r1 = %.8x\n", npc, ppc, r1);

  return;

}

/*

void ensure_or1k_stalled();

// Function to check if the processor is stalled, if not, stall it.

// this is useful in the event that GDB thinks the processor is stalled, but has, in fact

// been hard reset on the board and is running.

void ensure_or1k_stalled()

{

  unsigned char stalled;

  dbg_cpu0_read_ctrl(0, &stalled);

  if ((stalled & 0x1) != 0x1)

    {

      if (DEBUG_CMDS)

        printf("Processor not stalled, like we thought\n");

      // Set the TAP controller to its OR1k chain

      usb_set_tap_ir(JI_DEBUG);

      current_chain = -1;

      // Processor isn't stalled, contrary to what we though, so stall it

      printf("Stalling or1k\n");

      dbg_cpu0_write_ctrl(0, 0x01);      // stall or1k

    }

}

*/

/*---------------------------------------------------------------------------*/

/*!Write up to 32-bits to the JTAG bus via the USB device

Write up to 32-bits to the JTAG bus.

@param[in] stream  This should store the data to be written to the bus

@param[in] num_bits  Number of bits to write on the JTAG bus

@param[in] dwTapControllerState  State to leave the JTAG TAP in when done    */

/*---------------------------------------------------------------------------*/

void usb_write_stream (uint32_t stream, uint32_t num_bits, DWORD dwTapControllerState){

  FTC_STATUS Status = FTC_SUCCESS;

  uint32_t i,num_bytes;

  WriteDataByteBuffer WriteDataBuffer;

  if ((num_bits/8)>0)num_bytes=(num_bits/8);

  else num_bytes=1;

  // First clear the buffer for the amount of data we're shifting in

  // Bytewise copy the stream into WriteDataBuffer, LSB first

  // This means if we want to send things MSb first, we need to pass them

  // to this function wrapped with a call to bit_reverse_data(data,length)

  for (i=0; i<(num_bytes)+1;i++)

    WriteDataBuffer[i] = ((stream >>(8*i)) & (0xff));

  // Now generate the CRC for what we're sending

  // data should be presented MSb first (at bit0)

  for (i=0;i<num_bits;i++)

    crc_w = crc_calc(crc_w,((stream>>i)&1));

  if (DEBUG_USB_DRVR_FUNCS)

    {

      printf("\nusb_write_stream: num_bytes=%d, WriteDataBuffer contents for %d bits:",num_bytes,num_bits);

      for (i=0;i<num_bytes+1;i++)

        printf("%x",WriteDataBuffer[num_bytes-i]);

      printf("\n");

    }

  //Status = pFT2232cMpsseJtag->JTAG_WriteDataToExternalDevice(ftHandle, false, num_bits, 

  //                   &WriteDataBuffer, num_bytes, dwTapControllerState);

  // Platform independant function call

  Status = FT2232_USB_JTAG_WriteDataToExternalDevice(false, num_bits,

                       &WriteDataBuffer, num_bytes, dwTapControllerState);

  if (Status != FTC_SUCCESS)

    printf("Write to USB device failed: status code: %ld\n",Status);

}

/*---------------------------------------------------------------------------*/

/*!Read up to 32-bits off the JTAG bus via the USB device

The return value of this should remain uint32_t as we're returning all the

data in a signal variable. We never need more than 32-bits in a single read

when using this function.

@param[in] num_bits  Number of bits to read off from the USB

@param[in] dwTapControllerState  State to leave the JTAG TAP in when done

@return: The data read from the USB device                                   */

/*---------------------------------------------------------------------------*/

uint32_t usb_read_stream(uint32_t num_bits, DWORD dwTapControllerState){

  ReadDataByteBuffer ReadDataBuffer;

  FTC_STATUS Status = FTC_SUCCESS;

  uint32_t returnVal =0;

  uint32_t i;

  // Platform independant driver call

  Status = FT2232_USB_JTAG_ReadDataFromExternalDevice(false, num_bits, &ReadDataBuffer, &dwNumBytesReturned, dwTapControllerState);

  if (DEBUG_USB_DRVR_FUNCS)

    printf("usb_read_stream: returned Status: 0x%lx from reading %u bits, \n",

           Status,num_bits);

  if (Status == FTC_SUCCESS){

    for(i=0;i<num_bits;i++){

      returnVal |= ((ReadDataBuffer[i/8]>>(i%8))&0x1)<<(num_bits-1-i);

    }

  }

  // Generate the CRC for read

  for (i=0;i<num_bits;i++)

      crc_r = crc_calc(crc_r, ((returnVal>>(num_bits-1-i))&1));

  return returnVal;

}

/* Sets TAP instruction register */

void usb_set_tap_ir(uint32_t ir) {

  WriteDataByteBuffer WriteDataBuffer;

  FTC_STATUS Status = FTC_SUCCESS;

  WriteDataBuffer[0] = ir;

  // Using global ftHandle, writing to TAP instruction register 4 bits, 

  //Status = pFT2232cMpsseJtag->JTAG_WriteDataToExternalDevice(ftHandle, true, 

  //JI_SIZE, &WriteDataBuffer, 1, RUN_TEST_IDLE_STATE);

  // Platform independant driver call

  Status = FT2232_USB_JTAG_WriteDataToExternalDevice(true, JI_SIZE, &WriteDataBuffer, 1, RUN_TEST_IDLE_STATE);

  if (DEBUG_USB_DRVR_FUNCS)

    printf("USB JTAG write of %x to instruction register returned Status: 0x%lx\n",

           ir, Status);

  current_chain = -1;

}

static uint32_t id_read_at_reset = 0;

/* Resets JTAG, and sets DEBUG scan chain */

int usb_dbg_reset() {

  // uint32_t err;

  uint32_t id;

  uint32_t reinit_count=0;

 retry_jtag_init:

  if (init_usb_jtag() > 0)

    return DBG_ERR_CRC;

  // Set ID code instruction in IR

  usb_set_tap_ir(JI_IDCODE);

  // Now read out the IDCODE for the device

  id = usb_read_stream(32, RUN_TEST_IDLE_STATE);

  // if read ID was rubbish retry init - this is probably NOT the best way to do this...

  if ((id == 0xffffffff) | (id == 0x00000002) | (id == 0x00000000)) {

    //pFT2232cMpsseJtag->JTAG_CloseDevice(gFtHandle);

    // Platform independant driver call

    FT2232_USB_JTAG_CloseDevice();

    if (reinit_count++ > 4){

      printf("JTAG TAP ID read error. Unable to detect TAP controller. \nPlease ensure debugger is connected to target correctly.\n");

      exit(1);

    }

    goto retry_jtag_init;

  }

  printf("JTAG ID = %08x\n", id & 0xffffffff);

  /* select debug scan chain and stay in it forever */

  usb_set_tap_ir(JI_DEBUG);

  id_read_at_reset = id; // Store this to check later if there's errors

  current_chain = -1;

  return DBG_ERR_OK;

}

/* counts retries and returns zero if we should abort */

static int retry_no = 0;

int retry_do() {

  unsigned char stalled;

  int tap_id_reads = 0;

  //printf("RETRY\n");

  if (retry_no == 0)

    printf("Communication error. Retrying\n");

  retry_no++;

  // Odds are if we're having a communication problem, we should 

  // just reconnect to the processor. It's probably just been reset.

  /*

    FT2232_USB_JTAG_CloseDevice();// Close the device

    if (init_usb_jtag() > 0)

    {

    if (retry_no >= NUM_HARD_RETRIES)

    return 1;

    else

    return 0;

    }

  */

  // Try a readback of the TAP ID

 read_tap:

  // Set ID code instruction in IR

  usb_set_tap_ir(JI_IDCODE);

  // Now read out the IDCODE for the device

  uint32_t id = usb_read_stream(32, RUN_TEST_IDLE_STATE);

  //Return the chain to DEBUG mode

  usb_set_tap_ir(JI_DEBUG);

  if((id&0xffffffff) != (id_read_at_reset&0xffffffff))

    {

      if (tap_id_reads == 10)

        {

          // Pretty big problem - can't even read the ID of the TAP anymore

          // So return error

          printf("Unable to read JTAG TAP ID - read %08x, expected %08x\n",

                 id, id_read_at_reset);

          return 1;

        }

      tap_id_reads++;

      goto read_tap;

    }

  current_chain = -1;

  if (retry_no == 1)

    sleep(1);

  else if ( retry_no < NUM_SOFT_RETRIES)

    return 0; // Just attempt again    

  if ((retry_no >= NUM_SOFT_RETRIES) && (retry_no < NUM_SOFT_RETRIES + NUM_HARD_RETRIES) )

      {

        // Attempt a stall of the processor and then we'll try again

        //usb_dbg_test();

        printf("Resetting or1k\n");

        err = dbg_cpu0_write_ctrl(0, 0x02);      // reset or1k

        printf("Stalling or1k\n");

        err = dbg_cpu0_write_ctrl(0, 0x01);      // stall or1k

        err = dbg_cpu0_read_ctrl(0, &stalled);

        if (!(stalled & 0x1)) {

          printf("or1k should be stalled\n");   // check stall or1k

          FT2232_USB_JTAG_CloseDevice();// Close the device

          exit(1);

        }

        //retry_no++;

        return 0;

      }

    else // Unable to get the processor going again, return 1

      return 1;

}

/* resets retry counter */

void retry_ok() {

        retry_no = 0;

}

/* Sets scan chain.  */

int usb_dbg_set_chain(int chain) {

  uint32_t status, crc_generated, crc_read;

  dbg_chain = chain;

 try_again:

  if (current_chain == chain) return DBG_ERR_OK;

  current_chain = -1;

  if (DEBUG_CMDS) printf("\n");

  if (DEBUG_CMDS) printf("set_chain %i\n", chain);

  crc_w = 0xffffffff; // reset crc write variable

  // CRC generated in usb_read/write_stream functions

  usb_write_stream((((bit_reverse_data(chain,DBGCHAIN_SIZE) & 0xf) << 1) | 1),

                   DBGCHAIN_SIZE+1 , PAUSE_TEST_DATA_REGISTER_STATE);

  usb_write_stream(bit_reverse_data(crc_w, DBG_CRC_SIZE),DBG_CRC_SIZE,

                   PAUSE_TEST_DATA_REGISTER_STATE);

  crc_r = 0xffffffff; // reset the crc_r variable

  status = (usb_read_stream(DC_STATUS_SIZE,

                            PAUSE_TEST_DATA_REGISTER_STATE) & 0xf);

  crc_generated = crc_r;

  crc_read = usb_read_stream(DBG_CRC_SIZE, RUN_TEST_IDLE_STATE);

  //printf("%x %x %x\n",status, crc_generated, crc_read);

  /* CRCs must match, otherwise retry */

  if (crc_read != crc_generated) {

     if (!retry_do()) goto try_again;

    else return DBG_ERR_CRC;

  }

  /* we should read expected status value, otherwise retry */

  if (status != 0) {

    if (!retry_do()) goto try_again;

    else return status;

  }

  /* reset retry counter */

  retry_ok();

  current_chain = chain;

  return DBG_ERR_OK;

}

/* sends out a command with 32bit address and 16bit length, if len >= 0 */

int usb_dbg_command(uint32_t type, uint32_t adr, uint32_t len) {

  uint32_t i,status, crc_generated, crc_read;

   // JTAG driver things

  FTC_STATUS Status = FTC_SUCCESS;

  WriteDataByteBuffer WriteDataBuffer;

  ReadDataByteBuffer ReadDataBuffer;

 try_again:

  usb_dbg_set_chain(dbg_chain);

  if (DEBUG_CMDS) printf("\n");

  if (DEBUG_CMDS) printf("comm %d %d %8x \n", type,len,adr);

  //Calculate CRCs first

  crc_w = 0xffffffff;

  for (i=0;i<DBGCHAIN_SIZE+1;i++)

    crc_w = crc_calc(crc_w, (DI_WRITE_CMD_5BITREVERSED >> i)  & 1);

    //crc_w = crc_calc(crc_w,

    //       ((bit_reverse_data((DI_WRITE_CMD & 0xf),DBGCHAIN_SIZE+1))>>i)&1);

  for (i=0;i<4;i++)

    crc_w = crc_calc(crc_w,((bit_reverse_data(type,4))>>i)&1);

  for (i=0;i<32;i++)

    crc_w = crc_calc(crc_w,((bit_reverse_data(adr,32))>>i)&1);

  assert(len > 0);

  for (i=0;i<16;i++)

    crc_w = crc_calc(crc_w,((bit_reverse_data(len-1,16))>>i)&1);

  // Now pack the write data buffer

  // 1-bit 0, 4-bits cmd, 4-bit type, 32-bit adr, 32-bit CRC

  // [0]

  //bits 0-4

  WriteDataBuffer[0]=(DI_WRITE_CMD_5BITREVERSED);

  //bits 5-7 

  WriteDataBuffer[0] |= ((bit_reverse_data(type,4)&0x7)<<5);

  // [1]

  // bit 0 - last bit of type

  WriteDataBuffer[1] = ((bit_reverse_data(type,4)&0x08)>>3);

  //bits 1-7 - first 7 bits of adr

  WriteDataBuffer[1] |= ((bit_reverse_data(adr,32)&0x07f)<<1);

  //[2-4] 24 bits of adr

  for(i=0;i<3;i++)

    WriteDataBuffer[2+i] = (bit_reverse_data(adr,32)>>(7+(i*8)))&0xff;

  // [5] last bit of adr in bit 0, first 7 bits of len-1 follow

  WriteDataBuffer[5] = (bit_reverse_data(adr,32)>>31)&1;

  WriteDataBuffer[5] |= (bit_reverse_data(len-1,16)&0x7f)<<1;

  // [6] bits 7-14 of (len-1)

  WriteDataBuffer[6] = (bit_reverse_data(len-1,16)>>7)&0xff;

  // [7] - last bit of len-1 and first 7 bits of the CRC

  WriteDataBuffer[7] = (bit_reverse_data(len-1,16)>>15)&1;

  //Reverse the CRC first

  crc_w = bit_reverse_data(crc_w, DBG_CRC_SIZE);

  WriteDataBuffer[7] |= (crc_w&0x7f)<<1;

  //[8-10] next 24 bits (7-30) of crc_w

  WriteDataBuffer[8] = (crc_w>>7)&0xff;

  WriteDataBuffer[9] = (crc_w>>15)&0xff;

  WriteDataBuffer[10] = (crc_w>>23)&0xff;

  //[11] final bit of crc_w

  WriteDataBuffer[11] = (crc_w>>31)&1;

  //  Status = pFT2232cMpsseJtag->JTAG_WriteReadDataToFromExternalDevice(gFtHandle,false,89+4+32 , &WriteDataBuffer, 16, &ReadDataBuffer, &dwNumBytesReturned, RUN_TEST_IDLE_STATE);

  // Platform independant driver call

  Status = FT2232_USB_JTAG_WriteReadDataToFromExternalDevice(false,89+4+32 , &WriteDataBuffer, 16, &ReadDataBuffer, &dwNumBytesReturned, RUN_TEST_IDLE_STATE);

  if (Status != FTC_SUCCESS)

    printf("USB write fail - code %ld\b",Status);

  // Now look through the read data

  // From bit1 of ReadDataBuffer[11] we should have our 4-bit status

  status = (ReadDataBuffer[11] >> 1) & 0xf;

  // Now extract the received CRC

  crc_read = 0;

  //first 3 bits (0-2)

  crc_read |= (ReadDataBuffer[11] >> 5) & 0x7;

  // middle 3 bytes (bits 3 to 26)

  for (i=0;i<3;i++)

    crc_read |= ((ReadDataBuffer[12+i]&0xff) << ((i*8)+3));

  // last 5 bits from ReadDataBuffer[15]

  crc_read |= (ReadDataBuffer[15]&0x1f)<<27;

  // Now calculate CRC on status

  crc_r = 0xffffffff;

  for(i=0;i<DC_STATUS_SIZE;i++)

    crc_r = crc_calc(crc_r, (status>>i)&1);

  crc_generated = crc_r;

  // Now bit reverse status and crc_read as we unpacked them

  // with the MSb going to the LSb

  status = bit_reverse_data(status, DC_STATUS_SIZE);

  crc_read = bit_reverse_data(crc_read, DBG_CRC_SIZE);

  //printf("%x %x %x\n", status, crc_read, crc_generated);

  /* CRCs must match, otherwise retry */

  if (crc_read != crc_generated) {

    //exit(1);//remove later

    if (!retry_do()) goto try_again;

    else return DBG_ERR_CRC;

  }

  /* we should read expected status value, otherwise retry */

  if (status != 0) {

    //exit(1);//remove later

    if (!retry_do()) goto try_again;

    else return status;

  }

  /* reset retry counter */

  retry_ok();

  return DBG_ERR_OK;

}

/* writes a ctrl reg */

int usb_dbg_ctrl(uint32_t reset, uint32_t stall) {

  uint32_t i,status, crc_generated, crc_read;

  // JTAG driver things

  FTC_STATUS Status = FTC_SUCCESS;

  WriteDataByteBuffer WriteDataBuffer;

  ReadDataByteBuffer ReadDataBuffer;

try_again:

  usb_dbg_set_chain(dbg_chain);

        if (DEBUG_CMDS) printf("\n");

        if (DEBUG_CMDS) printf("ctrl\n");