Changeset 743 for trunk/softs


Ignore:
Timestamp:
Jul 10, 2014, 11:23:56 AM (10 years ago)
Author:
cfuguet
Message:

giet_tsar:

  • Using X_IO and Y_IO constanst define in the hard_config.h to designates IO cluster.
  • Using contigouos cluster id to calculate processor stack base address.
  • Several optimizations in stdio functions
Location:
trunk/softs/giet_tsar
Files:
4 edited

Legend:

Unmodified
Added
Removed

  • trunk/softs/giet_tsar/giet.S

    r629 r743  
    184184    /* XCU[cluster_xy] access to get PRIO register value                               */
    185185    mtc2    $12,    $24              /* set PADDR extension                            */
    186     lw      $15,    ($26)            /* $15 <= PRIO register value                     */
     186    lw      $15,    0($26)           /* $15 <= PRIO register value                     */
    187187    mtc2    $0,     $24              /* reset PADDR extension                          */
    188188

  • trunk/softs/giet_tsar/reset.S

    r633 r743  
    11/********************************************************************************
    2 *       File : reset.S
    3 *       Author : Alain Greiner
    4 *       Date : 15/01/2014
     2*   File : reset.S
     3*   Author : Alain Greiner
     4*   Date : 15/01/2014
    55*********************************************************************************
    66* This is a boot code for a generic multi-clusters / multi-processors
    … …  
    3434*   - Each processor initializes the stack pointer ($29) depending on proc_id.
    3535*   - Each processor initializes the CP0 EBASE register
    36 *       - Only processor 0 initializes the Interrupt vector.
     36*   - Only processor 0 initializes the Interrupt vector.
    3737*       - Only processor 0 initializes the IOPIC component.
    3838*   - Each processor initializes its private XCU mask.
    39 *       - Each processor initializes the Status Register (SR)
    40 *       - Each processor jumps to the same main address in kernel mode...
     39*   - Each processor initializes the Status Register (SR)
     40*   - Each processor jumps to the same main address in kernel mode...
    4141********************************************************************************/
    4242
    … …  
    4444#include "mips32_registers.h"
    4545
    46         .section .reset,"ax",@progbits
     46    .section .reset,"ax",@progbits
    4747
    48         .extern seg_stack_base
    49         .extern seg_xcu_base
     48    .extern seg_stack_base
     49    .extern seg_xcu_base
    5050        .extern seg_pic_base
    5151    .extern seg_kcode_base
    52         .extern _interrupt_vector
    53         .extern _ioc_isr
    54         .extern _mmc_isr
     52    .extern _interrupt_vector
     53    .extern _ioc_isr
     54    .extern _mmc_isr
    5555    .extern _tty_isr
    5656    .extern main
    5757
    58         .globl  reset                           
    59         .ent    reset
    60         .align  2
     58    .globl  reset               
     59    .ent    reset
     60    .align  2
    6161
    6262reset:
    63         .set noreorder
     63        .set noreorder
    6464
    6565/* each proc computes  proc_id, lpid, cluster_xy */
    6666    mfc0    $26,    CP0_PROCID
    67     andi    $26,    $26,    0x3FF           /* at most 1024 processors */
     67    andi    $26,    $26,    0x3FF       /* at most 1024 processors */
    6868    move    $10,    $26                 /* $10 <= proc_id  */
    6969    li      $27,    NB_PROCS_MAX
    … …  
    7373
    7474/* each proc initializes stack pointer (64K per processor) */
     75    srl     $8,     $12,    Y_WIDTH     /* $8  <= x */
     76    li      $9,     Y_SIZE
     77    mul     $8,     $8,     $9          /* $8  <= x * Y_SIZE */
     78    andi    $13,    $12,    (1<<Y_WIDTH)-1
     79    addu    $8,     $8,     $13         /* $8  <= x * Y_SIZE + y */
     80    mul     $8,     $8,     $27         /* $8  <= (x*Y_SIZE+y)*NB_PROCS_MAX */
     81    addu    $10,    $11,    $8          /* $10 <= (x*Y_SIZE+y)*NB_PROCS_MAX + lpid */
     82
    7583    la      $27,    seg_stack_base
    76     addi    $26,    $10,    1               /* $26 <= (proc_id + 1)           */
     84    addi    $26,    $10,    1           /* $26 <= (proc_id + 1)           */
    7785    sll     $26,    $26,    14          /* $26 <= (proc_id + 1) * 16K     */
    78     addu    $29,    $27,    $26             /* $29 <= seg_stack_base(proc_id) */
     86    addu    $29,    $27,    $26         /* $29 <= seg_stack_base(proc_id) */
    7987
    8088/* each proc initializes CP0 EBASE register */
    … …  
    8391
    8492/* only proc (0,0,0) initializes interrupt vector for IOC, TTY, MMC     */
    85     bne     $10,    $0,    reset_xcu
     93    bne     $10,    $0,    reset_xcu
    8694    nop
    8795
    … …  
    96104/* only proc (0,0,0) initializes IOPIC : IOPIC_ADDRESS[i] <= &XICU[0].WTI_REG[i]   */
    97105
    98     li      $26,    USE_EXT_IO
    99     beq     $26,    $0,     reset_xcu   /* IOPIC not initialised if not USE_EXT_IO */
     106#if USE_IOPIC
    100107
    101108    li      $20,    X_SIZE
    … …  
    120127
    121128    mtc2    $0,     CP2_PADDR_EXT       /* CP2_PADDR_EXT <= zero                   */
     129
     130#endif
    122131   
    123132reset_xcu:
    … …  
    140149
    141150/* initializes SR register */
    142     li      $26,    0x0000FF01         
    143     mtc0    $26,    $12                         /* SR <= kernel mode / IRQ enable */
     151    li      $26,    0x0000FF01     
     152    mtc0    $26,    $12                 /* SR <= kernel mode / IRQ enable */
    144153
    145154/* jumps to main in kernel mode */
    146     la      $26,    main
     155    la      $26,    main
    147156    jr      $26
    148157    nop
    149158
    150     .end        reset
     159    .end    reset
    151160
    152161    .set reorder

  • trunk/softs/giet_tsar/stdio.c

    r631 r743  
    2222// - NB_PROCS_MAX    : max number of processor per cluster
    2323// - NB_TTY_CHANNELS : max number of TTY channels
    24 // - USE_EXT_IO      : use external peripherals if not zero
    2524//
    2625// The follobing base addresses must be defined in the ldscript
    … …  
    3635#endif
    3736
    38 #if !defined(USE_EXT_IO)
    39 #error: you must define USE_EXT_IO in the hard_config.h file
     37#if !defined(X_IO) || !defined(Y_IO)
     38#error: you must define X_IO and Y_IO in the hard_config.h file
    4039#endif
    4140
    … …  
    6867#endif
    6968
    70 
    71 
    72 
    7369#define NB_LOCKS      256
    7470#define NB_BARRIERS   16
    … …  
    8278
    8379struct plouf;
    84 
    85 extern struct plouf seg_tty_base;
    86 extern struct plouf seg_fbf_base;
    87 extern struct plouf seg_ioc_base;
    88 extern struct plouf seg_mmc_base;
    89 extern struct plouf seg_ramdisk_base;
     80extern volatile struct plouf seg_tty_base;
     81extern volatile struct plouf seg_fbf_base;
     82extern volatile struct plouf seg_ioc_base;
     83extern volatile struct plouf seg_mmc_base;
     84extern volatile struct plouf seg_ramdisk_base;
    9085
    9186////////////////////////////////////////////////////////////////////////////////////////
    … …  
    9388////////////////////////////////////////////////////////////////////////////////////////
    9489
    95 in_unckdata int volatile    _ioc_lock    = 0;
    96 in_unckdata int volatile    _ioc_done    = 0;
    97 in_unckdata int volatile    _ioc_status;
    98 
    99 in_unckdata char volatile  _tty_get_buf[NB_TTY_CHANNELS];
    100 in_unckdata int volatile    _tty_get_full[NB_TTY_CHANNELS] = { [0 ... NB_TTY_CHANNELS-1] = 0 };
     90static in_unckdata int volatile  _ioc_lock    = 0;
     91static in_unckdata int volatile  _ioc_done    = 0;
     92static in_unckdata int volatile  _ioc_status;
     93
     94static in_unckdata char volatile _tty_get_buf[NB_TTY_CHANNELS];
     95static in_unckdata int volatile  _tty_get_full[NB_TTY_CHANNELS] = { [0 ... NB_TTY_CHANNELS-1] = 0 };
    10196
    10297////////////////////////////////////////////////////////////////////////////////////////
    … …  
    10499////////////////////////////////////////////////////////////////////////////////////////
    105100
    106 in_unckdata int volatile    _barrier_value[NB_BARRIERS] = { [0 ... NB_BARRIERS-1] = 0 };
    107 in_unckdata int volatile    _barrier_count[NB_BARRIERS] = { [0 ... NB_BARRIERS-1] = 0 };
    108 in_unckdata int volatile    _barrier_lock[NB_BARRIERS]   = { [0 ... NB_BARRIERS-1] = 0 };
     101static in_unckdata int volatile  _barrier_value[NB_BARRIERS] = { [0 ... NB_BARRIERS-1] = 0 };
     102static in_unckdata int volatile  _barrier_count[NB_BARRIERS] = { [0 ... NB_BARRIERS-1] = 0 };
     103static in_unckdata int volatile  _barrier_lock[NB_BARRIERS]  = { [0 ... NB_BARRIERS-1] = 0 };
    109104
    110105////////////////////////////////////////////////////////////////////////////////////////
    … …  
    112107////////////////////////////////////////////////////////////////////////////////////////
    113108
    114 in_unckdata int volatile    _spin_lock[NB_LOCKS] =    { [0 ... NB_LOCKS-1] = 0 };
     109static in_unckdata int volatile  _spin_lock[NB_LOCKS] = { [0 ... NB_LOCKS-1] = 0 };
    115110
    116111////////////////////////////////////////////////////////////////////////////////////////
    … …  
    189184// Returns the number of processsors controled by the GIET
    190185////////////////////////////////////////////////////////////////////////////////////////
    191 in_drivers unsigned int _procnumber()
     186in_drivers inline unsigned int _procnumber()
    192187{
    193188    return (unsigned int)(NB_PROCS_MAX * X_SIZE * Y_SIZE);
    … …  
    205200}
    206201////////////////////////////////////////////////////////////////////////////////////////
     202// Access CP0 and enable IRQs
     203////////////////////////////////////////////////////////////////////////////////////////
     204in_drivers inline void _it_enable()
     205{
     206    asm volatile(
     207            "mfc0   $8,     $12         \n" 
     208            "ori    $8,     $8,     1   \n"
     209            "mtc0   $8,     $12         \n"
     210            ::: "$8");
     211}
     212////////////////////////////////////////////////////////////////////////////////////////
    207213// Access CP0 and mask IRQs
    208214////////////////////////////////////////////////////////////////////////////////////////
    209 in_drivers void _it_mask()
    210 {
    211     int tmp;
    212     asm volatile("mfc0  %0, $12"    : "=r" (tmp) );
    213     asm volatile("ori   %0, %0, 1"  : "=r" (tmp) );
    214     asm volatile("mtc0  %0, $12"    : "=r" (tmp) );
    215 }
    216 ////////////////////////////////////////////////////////////////////////////////////////
    217 // Access CP0 and enable IRQs
    218 ////////////////////////////////////////////////////////////////////////////////////////
    219 in_drivers void _it_enable()
    220 {
    221     int tmp;
    222     asm volatile("mfc0  %0, $12"    : "=r" (tmp) );
    223     asm volatile("addi  %0, %0, -1" : "=r" (tmp) );
    224     asm volatile("mtc0  %0, $12"    : "=r" (tmp) );
    225 }
     215in_drivers inline void _it_disable()
     216{
     217    asm volatile(
     218            "li     $9,     0xFFFFFFFE  \n"
     219            "mfc0   $8,     $12         \n"
     220            "and    $8,     $8,     $9  \n"
     221            "mtc0   $8,     $12         \n"
     222            ::: "$8","$9");
     223}
     224
     225////////////////////////////////////////////////////////////////////////////////////////
     226// Access CP0 and mask IRQs
     227////////////////////////////////////////////////////////////////////////////////////////
     228in_drivers inline void _sr_write(int sr)
     229{
     230    asm volatile("mtc0  %0, $12        \n" : /* no outputs */ : "r" (sr));
     231}
     232
     233in_drivers inline int _sr_read()
     234{
     235    int ret;
     236    asm volatile("mfc0  %0, $12        \n" : "=r" (ret));
     237    return ret;
     238}
     239
    226240//////////////////////////////////////////////////////////////////////
    227241// Invalidate all cache lines corresponding to a memory buffer.
    … …  
    249263// after a temporary paddr extension.
    250264////////////////////////////////////////////////////////////////////////////
    251 in_drivers unsigned int _word_extended_read( unsigned int  cluster,
    252                                              unsigned int  address )
    253 {
    254     unsigned int value;
     265in_drivers volatile unsigned int _word_extended_read( unsigned int cluster,
     266                                                      unsigned int address )
     267{
     268    int sr = _sr_read();
     269    volatile unsigned int value;
    255270    asm volatile(
    256271            "li      $3,        0xFFFFFFFE    \n"
    257             "mfc0    $2,        $12           \n"
    258             "and     $3,        $2, $3        \n"
     272            "and     $3,        %3,     $3    \n"
    259273            "mtc0    $3,        $12           \n"     /* IRQ disabled     */
    260274
    … …  
    263277            "mtc2    $0,        $24           \n"     /* PADDR_EXT <= 0   */
    264278
    265             "li      $3,        0x00000001    \n"
    266             "mfc0    $2,        $12           \n"
    267             "or      $3,        $3, $2        \n"
    268             "mtc0    $3,        $12           \n"     /* IRQ enabled      */
    269279            : "=r" (value)
    270             : "r" (address), "r" (cluster)
    271             : "$2", "$3" );
     280            : "r" (address), "r" (cluster), "r" (sr)
     281            : "$2", "$3", "memory" );
     282
     283    _sr_write(sr);
    272284    return value;
    273285}
    … …  
    276288// after a temporary paddr extension.
    277289////////////////////////////////////////////////////////////////////////////
    278 in_drivers unsigned char _byte_extended_read( unsigned int  cluster,
    279                                               unsigned int  address )
    280 {
    281     unsigned int value;
     290in_drivers volatile unsigned char _byte_extended_read( unsigned int  cluster,
     291                                                       unsigned int  address )
     292{
     293    int sr = _sr_read();
     294    volatile unsigned char value;
    282295    asm volatile(
    283296            "li      $3,        0xFFFFFFFE    \n"
    284             "mfc0    $2,        $12           \n"
    285             "and     $3,        $2, $3        \n"
     297            "and     $3,        %3,     $3    \n"
    286298            "mtc0    $3,        $12           \n"     /* IRQ disabled     */
    287299
    … …  
    290302            "mtc2    $0,        $24           \n"     /* PADDR_EXT <= 0   */
    291303
    292             "li      $3,        0x00000001    \n"
    293             "mfc0    $2,        $12           \n"
    294             "or      $3,        $3, $2        \n"
    295             "mtc0    $3,        $12           \n"     /* IRQ enabled      */
    296304            : "=r" (value)
    297             : "r" (address), "r" (cluster)
    298             : "$2", "$3" );
    299     return (unsigned char)value;
     305            : "r" (address), "r" (cluster), "r" (sr)
     306            : "$2", "$3", "memory" );
     307
     308    _sr_write(sr);
     309    return value;
    300310}
    301311////////////////////////////////////////////////////////////////////////////
    … …  
    307317                                      unsigned int  word )
    308318{
     319    int sr = _sr_read();
    309320    asm volatile(
    310321            "li      $3,        0xFFFFFFFE    \n"
    311             "mfc0    $2,        $12           \n"
    312             "and     $3,        $2, $3        \n"
     322            "and     $3,        %3,     $3    \n"
    313323            "mtc0    $3,        $12           \n"     /* IRQ disabled     */
    314324
    … …  
    317327            "mtc2    $0,        $24           \n"     /* PADDR_EXT <= 0   */   
    318328
    319             "li      $3,        0x00000001    \n"
    320             "mfc0    $2,        $12           \n"
    321             "or      $3,        $2, $3        \n"
    322             "mtc0    $3,        $12           \n"     /* IRQ enabled      */
     329            "sync                             \n"
    323330            :
    324             : "r" (word), "r" (address), "r" (cluster)
    325             : "$2", "$3");
     331            : "r" (word), "r" (address), "r" (cluster), "r" (sr)
     332            : "$2", "$3", "memory");
     333
     334    _sr_write(sr);
    326335}
    327336////////////////////////////////////////////////////////////////////////////
    … …  
    333342                                      unsigned char byte )
    334343{
     344    int sr = _sr_read();
    335345    asm volatile(
    336346            "li      $3,        0xFFFFFFFE    \n"
    337             "mfc0    $2,        $12           \n"
    338             "and     $3,        $2, $3        \n"
     347            "and     $3,        %3,     $3    \n"
    339348            "mtc0    $3,        $12           \n"     /* IRQ disabled     */
    340349
    … …  
    343352            "mtc2    $0,        $24           \n"     /* PADDR_EXT <= 0   */   
    344353
    345             "li      $3,        0x00000001    \n"
    346             "mfc0    $2,        $12           \n"
    347             "or      $3,        $2, $3        \n"
    348             "mtc0    $3,        $12           \n"     /* IRQ enabled      */
     354            "sync                             \n"
    349355            :
    350             : "r" (byte), "r" (address), "r" (cluster)
    351             : "$2", "$3");
     356            : "r" (byte), "r" (address), "r" (cluster), "r" (sr)
     357            : "$2", "$3", "memory");
     358
     359    _sr_write(sr);
    352360}
    353361
    … …  
    417425//  - If the computed tty_id is larger than NB_TTY_CHANNELS, an error is returned.
    418426///////////////////////////////////////////////////////////////////////////////////////
    419 //  If USE_EXT_IO is set, we use the TTY controler implemented in cluster_io
    420 //  (x = X_SIZE-1 / y = Y_SIZE), which requires and extended address access.
    421 //  If USE_EXT_IO not set, we use the single channel TTY contrÃŽler in cluster (0,0).
    422 ///////////////////////////////////////////////////////////////////////////////////////
    423427
    424428///////////////////////////////////////////////////////////////////////////////////////
    … …  
    434438                           unsigned int    channel )
    435439{
    436     unsigned int    base       = (unsigned int)&seg_tty_base + channel*TTY_SPAN*4;
    437     unsigned int    nwritten   = 0;
    438     unsigned int    cluster_io = ((X_SIZE-1)<<Y_WIDTH) + Y_SIZE;
     440    unsigned int    base     = (unsigned int)&seg_tty_base + channel*TTY_SPAN*4;
     441    unsigned int    nwritten = 0;
    439442    unsigned int    status;
    440     unsigned int        i;
     443    unsigned int    i;
    441444
    442445    for ( i=0 ; i < length ; i++ )
    443446    {
    444         if( USE_EXT_IO )    // extended addressing to reach cluster_io
     447        status = _word_extended_read( CLUSTER_IO, base + TTY_STATUS*4 );
     448        if ( (status & 0x2) == 0x2 ) break;
     449        else
    445450        {
    446             status = _word_extended_read( cluster_io, base + TTY_STATUS*4 );
    447             if ( (status & 0x2) == 0x2 ) break;
    448             else
    449             {
    450                 _byte_extended_write( cluster_io, base + TTY_WRITE*4 , buffer[i] );
    451                 nwritten++;
    452             }
    453         }
    454         else                // direct addressing to cluster(0,0)
    455         {
    456             char* tty = (char*)base;
    457             if ( (tty[TTY_STATUS*4] & 0x2) == 0x2 )  break;
    458             else
    459             {
    460                 tty[TTY_WRITE*4] = buffer[i]; // write character
    461                 nwritten++;
    462             }
     451            _byte_extended_write( CLUSTER_IO, base + TTY_WRITE*4 , buffer[i] );
     452            nwritten++;
    463453        }
    464454    }
    … …  
    477467                          unsigned int   channel )
    478468{
    479     unsigned int    base       = (unsigned int)&seg_tty_base + channel*TTY_SPAN*4;
    480     unsigned int    cluster_io = ((X_SIZE-1)<<Y_WIDTH) + Y_SIZE;
    481     unsigned int    status;
    482 
    483     if( USE_EXT_IO )
    484     {
    485         status = _word_extended_read( cluster_io, base + TTY_STATUS*4 );
    486         if ( (status & 0x1) == 0x1 )
    487         {
    488             buffer[0] = (char)_word_extended_read( cluster_io, base + TTY_READ*4 );
    489             return 1;
    490         }
    491         else
    492         {
    493             return 0;
    494         }
    495     }
    496     else
    497     {
    498         char* tty = (char*)base;
    499 
    500         if((tty[TTY_STATUS*4] & 0x1) == 0x1)
    501         {
    502             buffer[0] = tty[TTY_READ*4];
    503             return 1;
    504         }
    505         else
    506         {
    507             return 0;
    508         }
    509     }
     469    unsigned int base    = (unsigned int)&seg_tty_base + channel*TTY_SPAN*4;
     470    unsigned int status;
     471
     472    status = _word_extended_read( CLUSTER_IO, base + TTY_STATUS*4 );
     473    if ( (status & 0x1) == 0x1 )
     474    {
     475        buffer[0] = (char)_word_extended_read( CLUSTER_IO, base + TTY_READ*4 );
     476        return 1;
     477    }
     478    return 0;
    510479}
    511480
    … …  
    550519    char buf[11];
    551520    unsigned int i;
    552     unsigned int first;
     521    unsigned int first = 0;
    553522
    554523    buf[10] = 0;
    … …  
    577546in_drivers void _tty_get_lock( unsigned int channel )
    578547{
    579     if ( USE_EXT_IO )  // extended addressing to cluster_io
    580     {
    581         unsigned int    cluster_io = ((X_SIZE-1)<<Y_WIDTH) + Y_SIZE;
    582         unsigned int    address    = (unsigned int)&seg_tty_base
    583                                      + ((TTY_CONFIG + channel*TTY_SPAN)*4);
    584         while ( _word_extended_read( cluster_io, address ) ) asm volatile("nop");
    585     }
    586     else               // direct addressing to cluster(0,0)
    587     {
    588         unsigned int* tty = (unsigned int *) &seg_tty_base;
    589         while ( tty[channel * TTY_SPAN + TTY_CONFIG] ) asm volatile("nop");
    590     }
     548    unsigned int base = (unsigned int)&seg_tty_base;
     549    unsigned int offset = (TTY_CONFIG + channel*TTY_SPAN) << 2;
     550    while ( _word_extended_read( CLUSTER_IO, base + offset ) );
    591551}
    592552
    … …  
    597557in_drivers void _tty_release_lock( unsigned int channel )
    598558{
    599     if ( USE_EXT_IO )  // extended addressing to cluster_io
    600     {
    601         unsigned int    cluster_io = ((X_SIZE-1)<<Y_WIDTH) + Y_SIZE;
    602         unsigned int    address    = (unsigned int)&seg_tty_base
    603                                      + ((TTY_CONFIG + channel*TTY_SPAN)*4);
    604         _word_extended_write( cluster_io, address, 0 );
    605     }
    606     else               // direct addressing to cluster(0,0)
    607     {
    608         unsigned int* tty_address = (unsigned int *) &seg_tty_base;
    609         tty_address[channel * TTY_SPAN + TTY_CONFIG] = 0;
    610     }
     559    unsigned int base    = (unsigned int)&seg_tty_base;
     560    unsigned int offset  = (TTY_CONFIG + channel*TTY_SPAN) << 2;
     561    _word_extended_write( CLUSTER_IO, base + offset, 0 );
    611562}
    612563
    … …  
    860811in_drivers void _tty_isr_indexed(size_t index)
    861812{
    862     if ( USE_EXT_IO )   // extended addressing to TTY in cluster_io
    863     {
    864         unsigned int  cluster = ((X_SIZE-1)<<Y_WIDTH) + Y_SIZE;
    865         unsigned int  base    = (unsigned int)&seg_tty_base +
    866                                 ((index*TTY_SPAN + TTY_READ)*4);
    867 
    868         _tty_get_buf[index] = (char)_word_extended_read( cluster, base );
    869     }
    870     else                // direct addressing to TTY in cluster(0,0)
    871     {
    872         char* tty = (char*)&seg_tty_base + index*TTY_SPAN*4;
    873 
    874         _tty_get_buf[index] = tty[TTY_READ*4];  // save character and reset IRQ
    875     }
     813    unsigned int base = (unsigned int)&seg_tty_base;
     814    unsigned int offset = (index*TTY_SPAN + TTY_READ) << 2;
     815
     816    _tty_get_buf[index] = _byte_extended_read(CLUSTER_IO, base + offset);
    876817    _tty_get_full[index] = 1;               // signals character available
    877818}
    … …  
    932873// reset the _ioc_done variable to zero, and releases the _ioc_lock variable.
    933874///////////////////////////////////////////////////////////////////////////////////////
    934 //  If USE_EXT_IO is set, we use the IOC controler implemented in cluster_io
    935 //  (x = X_SIZE-1 / y = Y_SIZE), which requires and extended address access.
    936 //  If USE_EXT_IO not set, we use the IOC contrÃŽler in cluster (0,0).
    937 //
    938875//  If USE_RAMDISK is set, we access a "virtual" block device controler  implemented
    939876//  as a memory-mapped segment in cluster [0,0] at address seg_ramdisk_base.
    … …  
    947884in_drivers void _ioc_get_lock()
    948885{
    949     register unsigned int*      plock = (unsigned int*)&_ioc_lock;                     
    950 
    951     asm volatile ("_ioc_llsc:                       \n"
    952                   "ll   $2,    0(%0)                \n" // $2 <= _ioc_lock
    953                   "bnez $2,    _ioc_llsc            \n" // retry  if busy
    954                   "li   $3,    1                    \n" // prepare argument for sc 
    955                   "sc   $3,    0(%0)                \n" // try to set _ioc_busy
    956                   "beqz $3,    _ioc_llsc            \n" // retry if not atomic
    957                   ::"r"(plock):"$2","$3");
     886    register unsigned int*  plock = (unsigned int*)&_ioc_lock;         
     887
     888    asm volatile (
     889            "1:                         \n"
     890            "ll     $2,     0(%0)       \n" // $2 <= _ioc_lock
     891            "bnez   $2,     1b          \n" // retry  if busy
     892            "li     $3,     1           \n" // prepare argument for sc 
     893            "sc     $3,     0(%0)       \n" // try to set _ioc_busy
     894            "beqz   $3,     1b          \n" // retry if not atomic
     895            ::"r"(plock) :"$2","$3");
    958896}
    959897
    … …  
    988926        _ioc_status = BLOCK_DEVICE_WRITE_SUCCESS;
    989927        _ioc_done   = 1;
    990     }
    991     else if ( USE_EXT_IO )   // extended addressing to cluster_io
    992     {
    993         unsigned int    cluster = ((X_SIZE-1)<<Y_WIDTH) + Y_SIZE;
    994         unsigned int    base    = (unsigned int)&seg_ioc_base;
    995 
    996         _word_extended_write( cluster, base + BLOCK_DEVICE_BUFFER*4,     (unsigned int)buffer );
    997         _word_extended_write( cluster, base + BLOCK_DEVICE_BUFFER_EXT*4, ext );
    998         _word_extended_write( cluster, base + BLOCK_DEVICE_COUNT*4,      count );
    999         _word_extended_write( cluster, base + BLOCK_DEVICE_LBA*4,        lba );
    1000         _word_extended_write( cluster, base + BLOCK_DEVICE_IRQ_ENABLE*4, 1 );
    1001         _word_extended_write( cluster, base + BLOCK_DEVICE_OP*4,         BLOCK_DEVICE_WRITE );
    1002     }
    1003     else                // direct addressing to cluster(0,0)
    1004     {
    1005         unsigned int* ioc = (unsigned int*)&seg_ioc_base;
    1006 
    1007         ioc[BLOCK_DEVICE_BUFFER]     = (unsigned int)buffer;
    1008         ioc[BLOCK_DEVICE_BUFFER_EXT] = ext;
    1009         ioc[BLOCK_DEVICE_COUNT]      = count;
    1010         ioc[BLOCK_DEVICE_LBA]        = lba;
    1011         ioc[BLOCK_DEVICE_IRQ_ENABLE] = 1;
    1012         ioc[BLOCK_DEVICE_OP]         = BLOCK_DEVICE_WRITE;
    1013     }
     928
     929        return;
     930    }
     931
     932    unsigned int base = (unsigned int)&seg_ioc_base;
     933    _word_extended_write( CLUSTER_IO, base + BLOCK_DEVICE_BUFFER*4,     (unsigned int)buffer );
     934    _word_extended_write( CLUSTER_IO, base + BLOCK_DEVICE_BUFFER_EXT*4, ext );
     935    _word_extended_write( CLUSTER_IO, base + BLOCK_DEVICE_COUNT*4,      count );
     936    _word_extended_write( CLUSTER_IO, base + BLOCK_DEVICE_LBA*4,        lba );
     937    _word_extended_write( CLUSTER_IO, base + BLOCK_DEVICE_IRQ_ENABLE*4, 1 );
     938    _word_extended_write( CLUSTER_IO, base + BLOCK_DEVICE_OP*4,         BLOCK_DEVICE_WRITE );
    1014939}
    1015940
    … …  
    1044969        _ioc_status = BLOCK_DEVICE_READ_SUCCESS;
    1045970        _ioc_done   = 1;
    1046     }
    1047     else if ( USE_EXT_IO )   // extended addressing to cluster_io
    1048     {
    1049         unsigned int    cluster = ((X_SIZE-1)<<Y_WIDTH) + Y_SIZE;
    1050         unsigned int    base    = (unsigned int)&seg_ioc_base;
    1051 
    1052         _word_extended_write( cluster, base + BLOCK_DEVICE_BUFFER*4,     (unsigned int)buffer );
    1053         _word_extended_write( cluster, base + BLOCK_DEVICE_BUFFER_EXT*4, ext );
    1054         _word_extended_write( cluster, base + BLOCK_DEVICE_COUNT*4,      count );
    1055         _word_extended_write( cluster, base + BLOCK_DEVICE_LBA*4,        lba );
    1056         _word_extended_write( cluster, base + BLOCK_DEVICE_IRQ_ENABLE*4, 1 );
    1057         _word_extended_write( cluster, base + BLOCK_DEVICE_OP*4,         BLOCK_DEVICE_READ );
    1058     }
    1059     else                // direct addressing to cluster(0,0)
    1060     {
    1061         unsigned int* ioc = (unsigned int*)&seg_ioc_base;
    1062 
    1063         ioc[BLOCK_DEVICE_BUFFER]     = (unsigned int)buffer;
    1064         ioc[BLOCK_DEVICE_BUFFER_EXT] = ext;
    1065         ioc[BLOCK_DEVICE_COUNT]      = count;
    1066         ioc[BLOCK_DEVICE_LBA]        = lba;
    1067         ioc[BLOCK_DEVICE_IRQ_ENABLE] = 1;
    1068         ioc[BLOCK_DEVICE_OP]         = BLOCK_DEVICE_READ;
    1069     }
     971
     972        return;
     973    }
     974
     975    const unsigned int base = (unsigned int)&seg_ioc_base;
     976    _word_extended_write( CLUSTER_IO, base + BLOCK_DEVICE_BUFFER*4,     (unsigned int)buffer );
     977    _word_extended_write( CLUSTER_IO, base + BLOCK_DEVICE_BUFFER_EXT*4, ext );
     978    _word_extended_write( CLUSTER_IO, base + BLOCK_DEVICE_COUNT*4,      count );
     979    _word_extended_write( CLUSTER_IO, base + BLOCK_DEVICE_LBA*4,        lba );
     980    _word_extended_write( CLUSTER_IO, base + BLOCK_DEVICE_IRQ_ENABLE*4, 1 );
     981    _word_extended_write( CLUSTER_IO, base + BLOCK_DEVICE_OP*4,         BLOCK_DEVICE_READ );
     982}
     983
     984in_drivers inline unsigned int _ioc_get_blocksize() {
     985    const unsigned int base = (unsigned int)&seg_ioc_base;
     986    return _word_extended_read( CLUSTER_IO, base + BLOCK_DEVICE_BLOCK_SIZE*4 );
    1070987}
    1071988
    … …  
    11021019in_drivers void _ioc_isr()
    11031020{
    1104     if ( USE_EXT_IO )  // extended addressing to cluster_io
    1105     {
    1106         unsigned int    cluster = ((X_SIZE-1)<<Y_WIDTH) + Y_SIZE;
    1107         unsigned int    base    = (unsigned int)&seg_ioc_base;
    1108 
    1109         _ioc_status = _word_extended_read( cluster, base + BLOCK_DEVICE_STATUS*4 );
    1110     }
    1111     else               // direct addressing to cluster(à,0)
    1112     {
    1113         unsigned int* ioc = (unsigned int*)&seg_ioc_base;
    1114    
    1115         _ioc_status = ioc[BLOCK_DEVICE_STATUS]; // save status & reset IRQ
    1116     }
    1117     _ioc_done   = 1;       // signals completion
     1021    unsigned int base = (unsigned int)&seg_ioc_base;
     1022
     1023    _ioc_status = _word_extended_read( CLUSTER_IO, base + BLOCK_DEVICE_STATUS*4 );
     1024    _ioc_done   = 1;       // signals completion
    11181025}
    11191026
    … …  
    11421049    unsigned int  src_cluster = ext;
    11431050    unsigned int  dst_address = (unsigned int)&seg_fbf_base + offset;
    1144     unsigned int  dst_cluster = ((X_SIZE-1)<<Y_WIDTH) + Y_SIZE;  // cluster_xy for I/O
     1051    unsigned int  dst_cluster = (X_IO << Y_WIDTH) | Y_IO;  // cluster_xy for I/O
    11451052
    11461053    _extended_memcpy( dst_cluster,
    … …  
    11671074    unsigned int  dst_cluster = ext;
    11681075    unsigned int  src_address = (unsigned int)&seg_fbf_base + offset;
    1169     unsigned int  src_cluster = ((X_SIZE-1)<<Y_WIDTH) + Y_SIZE;  // cluster_xy for I/O
     1076    unsigned int  src_cluster = (X_IO << Y_WIDTH) | Y_IO;  // cluster_xy for I/O
    11701077
    11711078    _extended_memcpy( dst_cluster,
    … …  
    11841091in_drivers void _mmc_isr()
    11851092{
    1186     int*         mmc_address = (int*)&seg_mmc_base;
     1093    //int*         mmc_address = (int*)&seg_mmc_base;
    11871094    unsigned int cluster_xy  = _procid() / NB_PROCS_MAX;
    11881095   
    … …  
    12251132
    12261133    register int   delay = ((_proctime() +_procid()) & 0xF) << 4;
    1227     register int * plock = (int *) &_spin_lock[index];                 
    1228 
    1229     asm volatile ("_locks_llsc:                 \n"
    1230                   "ll   $2,    0(%0)            \n"     // $2 <= _locks_lock
    1231                   "bnez $2,    _locks_delay     \n"     // random delay if busy
     1134    register int * plock = (int *) &_spin_lock[index];         
     1135
     1136    asm volatile ("_locks_llsc:             \n"
     1137                  "ll   $2,    0(%0)        \n"     // $2 <= _locks_lock
     1138                  "bnez $2,    _locks_delay \n"     // random delay if busy
    12321139                  "li   $3,    1            \n"     // prepare argument for sc 
    1233                   "sc   $3,    0(%0)            \n"     // try to set _locks_busy
     1140                  "sc   $3,    0(%0)        \n"     // try to set _locks_busy
    12341141                  "bnez $3,    _locks_ok    \n"     // exit if atomic
    12351142                  "_locks_delay:            \n"
    … …  
    12391146                  "beqz $4,    _locks_loop  \n"     // test end delay
    12401147                  "j           _locks_llsc  \n"     // retry
    1241                   "_locks_ok:                   \n"
     1148                  "_locks_ok:           \n"
    12421149                  ::"r"(plock),"r"(delay):"$2","$3","$4");
    12431150}
    … …  
    12551162in_drivers void _barrier_init(unsigned int index, unsigned int value)
    12561163{
    1257 
    1258     register int* pinit         = (int*)&_barrier_value[index];
    1259     register int* pcount        = (int*)&_barrier_count[index];
    1260     register int* plock         = (int*)&_barrier_lock[index];
     1164    register int* pinit     = (int*)&_barrier_value[index];
     1165    register int* pcount    = (int*)&_barrier_count[index];
     1166    register int* plock     = (int*)&_barrier_lock[index];
    12611167
    12621168    if ( index >= NB_BARRIERS )
    … …  
    12691175
    12701176    // parallel initialisation using atomic instructions LL/SC
    1271     asm volatile ("_barrier_init_test:                  \n"
    1272                   "ll   $2,     0(%0)                   \n"     // read barrier_value
    1273                   "bnez $2,     _barrier_init_done      \n"
    1274                   "move $3,     %3                              \n"
    1275                   "sc   $3,     0(%0)                   \n"     // try to write barrier_value
    1276                   "beqz $3,     _barrier_init_test      \n"
    1277                   "move $3,     %3                                  \n"
    1278                   "sw   $3,     0(%1)                           \n"     // barrier_count <= barrier_value
     1177    asm volatile ("_barrier_init_test:              \n"
     1178                  "ll   $2,     0(%0)               \n" // read barrier_value
     1179                  "bnez $2,     _barrier_init_done  \n"
     1180                  "move $3,     %3                  \n"
     1181                  "sc   $3,     0(%0)               \n" // try to write barrier_value
     1182                  "beqz $3,     _barrier_init_test  \n"
     1183                  "move $3, %3                      \n"
     1184                  "sw   $3, 0(%1)                   \n" // barrier_count <= barrier_value
    12791185                  "move $3, $0                      \n" //
    1280                   "sw   $3,     0(%2)                           \n"     // barrier_lock <= 0
    1281                   "_barrier_init_done:                  \n"
     1186                  "sw   $3, 0(%2)                   \n" // barrier_lock <= 0
     1187                  "_barrier_init_done:          \n"
    12821188                  ::"r"(pinit),"r"(pcount),"r"(plock),"r"(value):"$2","$3");
    12831189}
    … …  
    12951201in_drivers void _barrier_wait(unsigned int index)
    12961202{
    1297     register int*       pcount          = (int*)&_barrier_count[index];         
    1298     register int        count;
    1299 
    1300     int                lock             = _barrier_lock[index];         
     1203    register int*   pcount      = (int*)&_barrier_count[index];     
     1204    register int    count;
     1205    int             lock        = _barrier_lock[index];     
    13011206
    13021207    if ( index >= NB_BARRIERS )
    … …  
    13111216    // input : pointer on _barrier_count[index]
    13121217    // output : count = _barrier_count[index] (before decrementation)
    1313     asm volatile ("_barrier_decrement:                          \n"
    1314                   "ll   %0,     0(%1)                           \n"
    1315                   "addi $3,     %0,     -1                      \n"
    1316                   "sc   $3,     0(%1)                           \n"
    1317                   "beqz $3,     _barrier_decrement              \n"
     1218    asm volatile ("_barrier_decrement:                  \n"
     1219                  "ll   %0,     0(%1)                   \n"
     1220                  "addi $3,     %0,     -1              \n"
     1221                  "sc   $3,     0(%1)                   \n"
     1222                  "beqz $3,     _barrier_decrement      \n"
    13181223                  :"=&r"(count)
    13191224                  :"r"(pcount)
    … …  
    13231228    // and the barrier_lock variable, waking up all other waiting tasks
    13241229
    1325     if ( count == 1 )   // last task
     1230    if ( count == 1 )   // last task
    13261231    {
    13271232        _barrier_count[index] = _barrier_value[index];
    … …  
    13291234        _barrier_lock[index]   = (lock == 0) ? 1 : 0;
    13301235    }
    1331     else                // other tasks
    1332     {
    1333         while ( lock == _barrier_lock[index] )  asm volatile("nop");
     1236    else        // other tasks
     1237    {
     1238        while ( lock == _barrier_lock[index] );
    13341239    }
    13351240}

  • trunk/softs/giet_tsar/stdio.h

    r629 r743  
    4040typedef unsigned int    size_t;
    4141
    42 // global variables defined in stdio.c
     42// constants
    4343
    44 extern  int volatile    _ioc_lock;
    45 extern  int volatile    _ioc_done;
    46 extern  int volatile    _ioc_status;
    47 
    48 extern  char volatile   _tty_get_buf[];
    49 extern  int volatile    _tty_get_full[];
    50 
    51 extern int volatile     _barrier_value[];
    52 extern int volatile     _barrier_count[];
    53 extern int volatile     _barrier_lock[];
    54 
    55 extern int volatile     _spin_lock[];
     44#define CLUSTER_IO (((X_IO) << (Y_WIDTH)) | (Y_IO))
    5645
    5746// functions defined in stdio.c
    … …  
    6453                                  unsigned int src_address,
    6554                                  unsigned int length );
    66 unsigned int    _procid();
    67 unsigned int    _proctime();
    68 unsigned int    _procnumber();
     55inline unsigned int _procid();
     56inline unsigned int _proctime();
     57inline unsigned int _procnumber();
     58
     59inline unsigned int _io_cluster();
    6960
    7061unsigned int    _rand();
    … …  
    7263void            _it_mask();
    7364void            _it_enable();
     65
     66int             _sr_read();
     67void            _sr_write(int sr);
    7468
    7569void            _dcache_buf_invalidate( const void* buffer, size_t size );
    … …  
    9589void            _ioc_write( size_t lba, void* buffer, size_t count, size_t ext );
    9690void            _ioc_read (size_t lba, void* buffer, size_t count, size_t ext );
     91unsigned int    _ioc_get_blocksize();
    9792void            _ioc_completed();
    9893void            _ioc_isr();
    … …  
    115110void            _barrier_wait(size_t index);
    116111
    117 unsigned char   _byte_extended_read(  unsigned int   cluster,
    118                                       unsigned int   address );
    119 unsigned int    _word_extended_read(  unsigned int   cluster,
    120                                       unsigned int   address );
     112volatile unsigned char _byte_extended_read( unsigned int cluster,
     113                                            unsigned int address );
     114volatile unsigned int  _word_extended_read( unsigned int cluster,
     115                                            unsigned int address );
     116
    121117void            _word_extended_write( unsigned int   cluster,
    122118                                      unsigned int   address,
Note: See TracChangeset for help on using the changeset viewer.