Ignore:
Timestamp:
Apr 29, 2017, 4:33:37 PM (7 years ago)
Author:
coas-nagasima
Message:

ファイルを追加、更新。

Location:
EcnlProtoTool/trunk/asp3_dcre
Files:
3 added
14 edited

Legend:

Unmodified
Added
Removed

  • EcnlProtoTool/trunk/asp3_dcre/arch/arm_gcc/common/core_support.S

    r270 r279  
    267267#else /* TOPPERS_CUSTOM_IDLE */
    268268        msr             cpsr_c, #CPSR_SVC_MODE  /* 割込みを許可（スーパバイザモード）*/
    269 ALABEL(dispatcher_2)
    270         b               dispatcher_2                    /* 割込みå¾
     269#endif /* TOPPERS_CUSTOM_IDLE */
     270        b               dispatcher_1                    /* 割込みå¾
    271271ち */
    272 #endif /* TOPPERS_CUSTOM_IDLE */
    273272
    274273/*

  • EcnlProtoTool/trunk/asp3_dcre/arch/arm_gcc/common/gic_support.S

    r270 r279  
    55 *  Copyright (C) 2000-2003 by Embedded and Real-Time Systems Laboratory
    66 *                              Toyohashi Univ. of Technology, JAPAN
    7  *  Copyright (C) 2006-2016 by Embedded and Real-Time Systems Laboratory
     7 *  Copyright (C) 2006-2017 by Embedded and Real-Time Systems Laboratory
    88 *              Graduate School of Information Science, Nagoya Univ., JAPAN
    99 *

  • EcnlProtoTool/trunk/asp3_dcre/arch/arm_gcc/rza1/chip_timer.c

    r270 r279  
    44 *      Advanced Standard Profile Kernel
    55 *
    6  *  Copyright (C) 2006-2016 by Embedded and Real-Time Systems Laboratory
     6 *  Copyright (C) 2006-2017 by Embedded and Real-Time Systems Laboratory
    77 *              Graduate School of Information Science, Nagoya Univ., JAPAN
    88 *

  • EcnlProtoTool/trunk/asp3_dcre/kernel/dataqueue.c

    r270 r279  
    66 *  Copyright (C) 2000-2003 by Embedded and Real-Time Systems Laboratory
    77 *                              Toyohashi Univ. of Technology, JAPAN
    8  *  Copyright (C) 2005-2016 by Embedded and Real-Time Systems Laboratory
     8 *  Copyright (C) 2005-2017 by Embedded and Real-Time Systems Laboratory
    99 *              Graduate School of Information Science, Nagoya Univ., JAPAN
    1010 *
    … …  
    612612        CHECK_ID(VALID_DTQID(dtqid));
    613613        p_dtqcb = get_dtqcb(dtqid);
    614         CHECK_ILUSE(p_dtqcb->p_dtqinib->dtqcnt > 0U);
    615614
    616615        lock_cpu();
    617616        if (p_dtqcb->p_dtqinib->dtqatr == TA_NOEXS) {
    618617                ercd = E_NOEXS;
     618        }
     619        else if (!(p_dtqcb->p_dtqinib->dtqcnt > 0U)) {
     620                ercd = E_ILUSE;
    619621        }
    620622        else {
    … …  
    628630                        }
    629631                }
    630         }
    631632        ercd = E_OK;
     633        }
    632634        unlock_cpu();
    633635

  • EcnlProtoTool/trunk/asp3_dcre/kernel/eventflag.c

    r270 r279  
    66 *  Copyright (C) 2000-2003 by Embedded and Real-Time Systems Laboratory
    77 *                              Toyohashi Univ. of Technology, JAPAN
    8  *  Copyright (C) 2005-2016 by Embedded and Real-Time Systems Laboratory
     8 *  Copyright (C) 2005-2017 by Embedded and Real-Time Systems Laboratory
    99 *              Graduate School of Information Science, Nagoya Univ., JAPAN
    1010 *
    … …  
    250250                ercd = FLGID(p_flgcb);
    251251        }
     252        unlock_cpu();
    252253
    253254  error_exit:

  • EcnlProtoTool/trunk/asp3_dcre/kernel/task_manage.c

    r270 r279  
    388388                ercd = E_NOEXS;                                                 /*ï¼»NGKI3617ï¼½*/
    389389        }
    390         else if (TSTAT_DORMANT(tstat)) {                        /*ï¼»NGKI3620ï¼½*/
    391                 *p_tskstat = TTS_DMT;
    392         }
    393         else if (TSTAT_SUSPENDED(tstat)) {
    394                 if (TSTAT_WAITING(tstat)) {
    395                         *p_tskstat = TTS_WAS;
     390        else {
     391                if (TSTAT_DORMANT(tstat)) {                             /*ï¼»NGKI3620ï¼½*/
     392                        *p_tskstat = TTS_DMT;
     393                }
     394                else if (TSTAT_SUSPENDED(tstat)) {
     395                        if (TSTAT_WAITING(tstat)) {
     396                                *p_tskstat = TTS_WAS;
     397                        }
     398                        else {
     399                                *p_tskstat = TTS_SUS;
     400                        }
     401                }
     402                else if (TSTAT_WAITING(tstat)) {
     403                        *p_tskstat = TTS_WAI;
     404                }
     405                else if (p_tcb == p_runtsk) {
     406                        *p_tskstat = TTS_RUN;
    396407                }
    397408                else {
    398                         *p_tskstat = TTS_SUS;
    399                 }
    400         }
    401         else if (TSTAT_WAITING(tstat)) {
    402                 *p_tskstat = TTS_WAI;
    403         }
    404         else if (p_tcb == p_runtsk) {
    405                 *p_tskstat = TTS_RUN;
    406         }
    407         else {
    408                 *p_tskstat = TTS_RDY;
    409         }
    410         ercd = E_OK;
     409                        *p_tskstat = TTS_RDY;
     410                }
     411                ercd = E_OK;
     412        }
    411413        unlock_cpu();
    412414

  • EcnlProtoTool/trunk/asp3_dcre/kernel/time_manage.c

    r270 r279  
    66 *  Copyright (C) 2000-2003 by Embedded and Real-Time Systems Laboratory
    77 *                              Toyohashi Univ. of Technology, JAPAN
    8  *  Copyright (C) 2005-2015 by Embedded and Real-Time Systems Laboratory
     8 *  Copyright (C) 2005-2017 by Embedded and Real-Time Systems Laboratory
    99 *              Graduate School of Information Science, Nagoya Univ., JAPAN
    1010 *
    … …  
    280280                }
    281281                switch (p_nfyinfo->nfymode & ~0x0fU) {
     282                case 0:
     283                        break;
    282284                case TENFY_SETVAR:
    283285                        CHECK_PAR(INTPTR_ALIGN(p_nfyinfo->enfy.setvar.p_var));
    … …  
    352354                break;
    353355        case TNFY_SNDDTQ:
    354                 ercd = snd_dtq(p_nfyinfo->nfy.snddtq.dtqid,
     356                ercd = psnd_dtq(p_nfyinfo->nfy.snddtq.dtqid,
    355357                                                        p_nfyinfo->nfy.snddtq.data);
    356358                break;
    … …  
    384386                        break;
    385387                case TENFY_SNDDTQ:
    386                         (void) snd_dtq(p_nfyinfo->enfy.snddtq.dtqid, (intptr_t) ercd);
     388                        (void) psnd_dtq(p_nfyinfo->enfy.snddtq.dtqid, (intptr_t) ercd);
    387389                        break;
    388390                default:

  • EcnlProtoTool/trunk/asp3_dcre/library/vasyslog.c

    r270 r279  
    6666
    6767void
    68 syslog(uint_t prio, const char *format, ...)
     68vsyslog(uint_t prio, const char *format, va_list ap)
    6969{
    7070        SYSLOG  logbuf;
    71         va_list ap;
    7271        uint_t  i;
    7372        char    sz;
    … …  
    7776        logbuf.logpar[0] = (LOGPAR) format;
    7877        i = 1U;
    79         va_start(ap, format);
    8078
    8179        while ((c = *format++) != '\0' && i < TNUM_LOGPAR) {
    … …  
    124122                }
    125123        }
    126         va_end(ap);
    127124        (void) tSysLog_eSysLog_write(prio, &logbuf);
    128125}
    129126
     127void
     128syslog(uint_t prio, const char *format, ...)
     129{
     130        va_list ap;
     131        va_start(ap, format);
     132        vsyslog(prio, format, ap);
     133        va_end(ap);
     134}
     135
     136/* mbed weak error function */
     137void
     138error(const char* format, ...) {
     139        va_list arg;
     140        va_start(arg, format);
     141        vsyslog(LOG_ERROR, format, arg);
     142        va_end(arg);
     143        ext_ker();
     144}
     145
    130146#endif /* TOPPERS_OMIT_SYSLOG */

  • EcnlProtoTool/trunk/asp3_dcre/mbed/Makefile.mbed

    r270 r279  
    6161START_OBJS = startup_RZ1AH.o
    6262SYSSVC_COBJS := $(SYSSVC_COBJS)\
    63         assert.o board.o error.o gpio.o lp_ticker_api.o mbed_interface.o\
     63        assert.o board.o gpio.o lp_ticker_api.o mbed_interface.o\
    6464        pinmap_common.o rtc_time.o semihost_api.o ticker_api.o us_ticker_api.o\
    6565        RZ_A1_Init.o cmsis_nvic.o gic.o mbed_sf_boot.o mmu_Renesas_RZ_A1.o\

  • EcnlProtoTool/trunk/asp3_dcre/mbed/targets/cmsis/TARGET_RENESAS/TARGET_RZ_A1H/mmu_Renesas_RZ_A1.c

    r270 r279  
    160160    //Define Image
    161161    __TTSection (&Image$$TTB$$ZI$$Base, (uint32_t)&Image$$RO_DATA$$Base, RO_DATA_SIZE, Sect_Normal_RO);
     162    __TTSection (&Image$$TTB$$ZI$$Base, 0x18200000, 4, Sect_Normal_Cod);
    162163    __TTSection (&Image$$TTB$$ZI$$Base, (uint32_t)&Image$$VECTORS$$Base, VECTORS_SIZE, Sect_Normal_Cod);
    163164    __TTSection (&Image$$TTB$$ZI$$Base, (uint32_t)&Image$$RW_DATA$$Base, RW_DATA_SIZE, Sect_Normal_RW);

  • EcnlProtoTool/trunk/asp3_dcre/target/gr_peach_gcc/target_kernel_impl.c

    r270 r279  
    298298target_exit(void)
    299299{
     300        static int first = 1;
     301
    300302        /*
    301303         *  チップ依存の終了処理
    … …  
    306308         *  bkpt命令によりデバッガに制御を移す（パラメータが何が良いか未検討）
    307309         */
    308         Asm("bkpt #0");
     310        if (first){
     311                first = 0;
     312                Asm("bkpt #0");
     313        }
    309314
    310315        while (true) ;

  • EcnlProtoTool/trunk/asp3_dcre/tinet/netinet/udp_usrreq.c

    r270 r279  
    485485                return E_NOEXS;
    486486
    487         return E_PAR;
     487        return E_OK/*E_PAR*/;
    488488        }
    489489
    … …  
    518518                return E_NOEXS;
    519519
    520         return E_PAR;
     520        return E_OK/*E_PAR*/;
    521521        }
    522522

  • EcnlProtoTool/trunk/asp3_dcre/tinet/tcpip_api.def

    r270 r279  
    55UDP_CRE_CEP  #udp4_cepid* { .udp4_cepatr { &ipv4addr &portno } &callback }
    66UDP6_CRE_CEP #udp6_cepid* { .udp6_cepatr { &ipv6addr &portno } &callback }
    7 VRID_TCP_REP  #vrid_tcp4_repid*
    8 VRID_TCP_CEP  #vrid_tcp4_cepid*
     7VRID_TCP4_REP  #vrid_tcp4_repid*
     8VRID_TCP4_CEP  #vrid_tcp4_cepid*
    99VRID_TCP6_REP #vrid_tcp6_repid*
    1010VRID_TCP6_CEP #vrid_tcp6_cepid*
    11 VRID_UDP_CEP  #vrid_udp4_cepid*
     11VRID_UDP4_CEP  #vrid_udp4_cepid*
    1212VRID_UDP6_CEP #vrid_udp6_cepid*

  • EcnlProtoTool/trunk/asp3_dcre/tinet/tinet.trb

    r270 r279  
    7878        $tinetCfgH.add("#define #{params[:udp6_cepid]}  #{params[:udp6_cepid].val}")
    7979end
    80 $cfgData[:VRID_TCP_REP].each do |key, params|
    81         $tinetCfgH.add("#define #{params[:tcp4_repid]}  #{params[:tcp4_repid].val + $cfgData[:TCP_CRE_REP].size}")
    82 end
    83 $cfgData[:VRID_TCP_CEP].each do |key, params|
    84         $tinetCfgH.add("#define #{params[:tcp4_cepid]}  #{params[:tcp4_cepid].val + $cfgData[:TCP_CRE_CEP].size}")
     80$cfgData[:VRID_TCP4_REP].each do |key, params|
     81        $tinetCfgH.add("#define #{params[:vrid_tcp4_repid]}     #{params[:vrid_tcp4_repid].val + $cfgData[:TCP_CRE_REP].size}")
     82end
     83$cfgData[:VRID_TCP4_CEP].each do |key, params|
     84        $tinetCfgH.add("#define #{params[:vrid_tcp4_cepid]}     #{params[:vrid_tcp4_cepid].val + $cfgData[:TCP_CRE_CEP].size}")
    8585end
    8686$cfgData[:VRID_TCP6_REP].each do |key, params|
    87         $tinetCfgH.add("#define #{params[:tcp6_repid]}  #{params[:tcp6_repid].val + $cfgData[:TCP6_CRE_REP].size}")
     87        $tinetCfgH.add("#define #{params[:vrid_tcp6_repid]}     #{params[:vrid_tcp6_repid].val + $cfgData[:TCP6_CRE_REP].size}")
    8888end
    8989$cfgData[:VRID_TCP6_CEP].each do |key, params|
    90         $tinetCfgH.add("#define #{params[:tcp6_cepid]}  #{params[:tcp6_cepid].val + $cfgData[:TCP6_CRE_CEP].size}")
    91 end
    92 $cfgData[:VRID_UDP_CEP].each do |key, params|
    93         $tinetCfgH.add("#define #{params[:udp4_cepid]}  #{params[:udp4_cepid].val + $cfgData[:UDP_CRE_CEP].size}")
     90        $tinetCfgH.add("#define #{params[:vrid_tcp6_cepid]}     #{params[:vrid_tcp6_cepid].val + $cfgData[:TCP6_CRE_CEP].size}")
     91end
     92$cfgData[:VRID_UDP4_CEP].each do |key, params|
     93        $tinetCfgH.add("#define #{params[:vrid_udp4_cepid]}     #{params[:vrid_udp4_cepid].val + $cfgData[:UDP_CRE_CEP].size}")
    9494end
    9595$cfgData[:VRID_UDP6_CEP].each do |key, params|
    96         $tinetCfgH.add("#define #{params[:udp6_cepid]}  #{params[:udp6_cepid].val + $cfgData[:UDP6_CRE_CEP].size}")
     96        $tinetCfgH.add("#define #{params[:vrid_udp6_cepid]}     #{params[:vrid_udp6_cepid].val + $cfgData[:UDP6_CRE_CEP].size}")
    9797end
    9898$tinetCfgH.add()
    … …  
    144144
    145145#       // TCP (IPv4) 受付口
    146 if $cfgData[:TCP_CRE_REP].size > 0 || $cfgData[:VRID_TCP_REP].size > 0
    147         $tinetCfgC.add()
    148         $tinetCfgC.add("#define TNUM_TCP_REPID  #{$cfgData[:TCP_CRE_REP].size + $cfgData[:VRID_TCP_REP].size}")
     146if $cfgData[:TCP_CRE_REP].size > 0 || $cfgData[:VRID_TCP4_REP].size > 0
     147        $tinetCfgC.add()
     148        $tinetCfgC.add("#define TNUM_TCP_REPID  #{$cfgData[:TCP_CRE_REP].size + $cfgData[:VRID_TCP4_REP].size}")
    149149        $tinetCfgC.add()
    150150        $tinetCfgC.add("const ID tmax_tcp_repid = (TMIN_TCP_REPID + TNUM_TCP_REPID - 1);")
    … …  
    161161                        $tinetCfgC.add("\t\t},")
    162162        end
    163         $cfgData[:VRID_TCP_REP].each do |key, params|
     163        $cfgData[:VRID_TCP4_REP].each do |key, params|
    164164                $tinetCfgC.add("\t{")
    165165                        $tinetCfgC.add("\t\t0,")
    … …  
    167167        $tinetCfgC.add("#if defined(TCP_CFG_EXTENTIONS)")
    168168                        $tinetCfgC.add("\t\tTCP_REP_FLG_DYNAMIC,")
    169                         $tinetCfgC.add("\t\tSEM_TCP_REP_LOCK#{params[:tcp4_repid].val + $cfgData[:TCP_CRE_REP].size},")
     169                        $tinetCfgC.add("\t\tSEM_TCP_REP_LOCK#{params[:vrid_tcp4_repid].val + $cfgData[:TCP_CRE_REP].size},")
    170170        $tinetCfgC.add("#endif")
    171171                        $tinetCfgC.add("\t\t},")
    … …  
    198198        $tinetCfgC.add("#if defined(TCP_CFG_EXTENTIONS)")
    199199                        $tinetCfgC.add("\t\tTCP_REP_FLG_DYNAMIC,")
    200                         $tinetCfgC.add("\t\tSEM_TCP_REP_LOCK#{params[:tcp6_repid].val + $cfgData[:TCP6_CRE_REP].size},")
     200                        $tinetCfgC.add("\t\tSEM_TCP_REP_LOCK#{params[:vrid_tcp6_repid].val + $cfgData[:TCP6_CRE_REP].size},")
    201201        $tinetCfgC.add("#endif")
    202202                        $tinetCfgC.add("\t\t},")
    … …  
    206206
    207207#       // TCP (IPv4) 通信端点
    208 if $cfgData[:TCP_CRE_CEP].size > 0 || $cfgData[:VRID_TCP_CEP].size > 0
    209         $tinetCfgC.add()
    210         $tinetCfgC.add("#define TNUM_TCP_CEPID  #{$cfgData[:TCP_CRE_CEP].size + $cfgData[:VRID_TCP_CEP].size}")
     208if $cfgData[:TCP_CRE_CEP].size > 0 || $cfgData[:VRID_TCP4_CEP].size > 0
     209        $tinetCfgC.add()
     210        $tinetCfgC.add("#define TNUM_TCP_CEPID  #{$cfgData[:TCP_CRE_CEP].size + $cfgData[:VRID_TCP4_CEP].size}")
    211211        $tinetCfgC.add()
    212212        $tinetCfgC.add("const ID tmax_tcp_cepid = (TMIN_TCP_CEPID + TNUM_TCP_CEPID - 1);")
    … …  
    228228                        $tinetCfgC.add("\t\t},")
    229229        end
    230         $cfgData[:VRID_TCP_CEP].each do |key, params|
     230        $cfgData[:VRID_TCP4_CEP].each do |key, params|
    231231                $tinetCfgC.add("\t{")
    232232                        $tinetCfgC.add("\t\t0,")
    … …  
    237237                        $tinetCfgC.add("\t\t(t_tcp_callback)(FP)NULL,")
    238238                        $tinetCfgC.add("\t\tTCP_CEP_FLG_DYNAMIC,")
    239                         $tinetCfgC.add("\t\tSEM_TCP_CEP_LOCK#{params[:tcp4_cepid].val + $cfgData[:TCP_CRE_CEP].size},")
    240                         $tinetCfgC.add("\t\tFLG_TCP_CEP_EST#{params[:tcp4_cepid].val + $cfgData[:TCP_CRE_CEP].size},")
    241                         $tinetCfgC.add("\t\tFLG_TCP_CEP_SND#{params[:tcp4_cepid].val + $cfgData[:TCP_CRE_CEP].size},")
    242                         $tinetCfgC.add("\t\tFLG_TCP_CEP_RCV#{params[:tcp4_cepid].val + $cfgData[:TCP_CRE_CEP].size},")
     239                        $tinetCfgC.add("\t\tSEM_TCP_CEP_LOCK#{params[:vrid_tcp4_cepid].val + $cfgData[:TCP_CRE_CEP].size},")
     240                        $tinetCfgC.add("\t\tFLG_TCP_CEP_EST#{params[:vrid_tcp4_cepid].val + $cfgData[:TCP_CRE_CEP].size},")
     241                        $tinetCfgC.add("\t\tFLG_TCP_CEP_SND#{params[:vrid_tcp4_cepid].val + $cfgData[:TCP_CRE_CEP].size},")
     242                        $tinetCfgC.add("\t\tFLG_TCP_CEP_RCV#{params[:vrid_tcp4_cepid].val + $cfgData[:TCP_CRE_CEP].size},")
    243243                        $tinetCfgC.add("\t\t},")
    244244        end
    … …  
    278278                        $tinetCfgC.add("\t\t(t_tcp_callback)(FP)NULL,")
    279279                        $tinetCfgC.add("\t\tTCP_CEP_FLG_DYNAMIC,")
    280                         $tinetCfgC.add("\t\tSEM_TCP_CEP_LOCK#{params[:tcp6_cepid].val + $cfgData[:TCP6_CRE_CEP].size},")
    281                         $tinetCfgC.add("\t\tFLG_TCP_CEP_EST#{params[:tcp6_cepid].val + $cfgData[:TCP6_CRE_CEP].size},")
    282                         $tinetCfgC.add("\t\tFLG_TCP_CEP_SND#{params[:tcp6_cepid].val + $cfgData[:TCP6_CRE_CEP].size},")
    283                         $tinetCfgC.add("\t\tFLG_TCP_CEP_RCV#{params[:tcp6_cepid].val + $cfgData[:TCP6_CRE_CEP].size},")
     280                        $tinetCfgC.add("\t\tSEM_TCP_CEP_LOCK#{params[:vrid_tcp6_cepid].val + $cfgData[:TCP6_CRE_CEP].size},")
     281                        $tinetCfgC.add("\t\tFLG_TCP_CEP_EST#{params[:vrid_tcp6_cepid].val + $cfgData[:TCP6_CRE_CEP].size},")
     282                        $tinetCfgC.add("\t\tFLG_TCP_CEP_SND#{params[:vrid_tcp6_cepid].val + $cfgData[:TCP6_CRE_CEP].size},")
     283                        $tinetCfgC.add("\t\tFLG_TCP_CEP_RCV#{params[:vrid_tcp6_cepid].val + $cfgData[:TCP6_CRE_CEP].size},")
    284284                        $tinetCfgC.add("\t\t},")
    285285        end
    … …  
    288288
    289289#       // UDP (IPv4) 通信端点
    290 if $cfgData[:UDP_CRE_CEP].size > 0 || $cfgData[:VRID_UDP_CEP].size > 0
    291         $tinetCfgC.add()
    292         $tinetCfgC.add("#define TNUM_UDP_CEPID  #{$cfgData[:UDP_CRE_CEP].size + $cfgData[:VRID_UDP_CEP].size}")
     290if $cfgData[:UDP_CRE_CEP].size > 0 || $cfgData[:VRID_UDP4_CEP].size > 0
     291        $tinetCfgC.add()
     292        $tinetCfgC.add("#define TNUM_UDP_CEPID  #{$cfgData[:UDP_CRE_CEP].size + $cfgData[:VRID_UDP4_CEP].size}")
    293293        $tinetCfgC.add()
    294294        $tinetCfgC.add("const ID tmax_udp_cepid = (TMIN_UDP_CEPID + TNUM_UDP_CEPID - 1);")
    … …  
    307307                        $tinetCfgC.add("\t\t},")
    308308        end
    309         $cfgData[:VRID_UDP_CEP].each do |key, params|
     309        $cfgData[:VRID_UDP4_CEP].each do |key, params|
    310310                $tinetCfgC.add("\t{")
    311311                        $tinetCfgC.add("\t\t0,")
    … …  
    313313                        $tinetCfgC.add("\t\t(t_udp_callback)(FP)NULL,")
    314314                        $tinetCfgC.add("\t\tUDP_CEP_FLG_DYNAMIC,")
    315                         $tinetCfgC.add("\t\tSEM_UDP_CEP_LOCK#{params[:udp4_cepid].val + $cfgData[:UDP_CRE_CEP].size},")
    316                         $tinetCfgC.add("\t\tTA_NULL,")
    317                         $tinetCfgC.add("\t\tTA_NULL,")
    318                         $tinetCfgC.add("\t\tDTQ_UDP_RCVQ#{params[:udp4_cepid].val + $cfgData[:UDP_CRE_CEP].size},")
     315                        $tinetCfgC.add("\t\tSEM_UDP_CEP_LOCK#{params[:vrid_udp4_cepid].val + $cfgData[:UDP_CRE_CEP].size},")
     316                        $tinetCfgC.add("\t\tTA_NULL,")
     317                        $tinetCfgC.add("\t\tTA_NULL,")
     318                        $tinetCfgC.add("\t\tDTQ_UDP_RCVQ#{params[:vrid_udp4_cepid].val + $cfgData[:UDP_CRE_CEP].size},")
    319319                        $tinetCfgC.add("\t\t},")
    320320        end
    … …  
    348348                        $tinetCfgC.add("\t\t(t_udp_callback)(FP)NULL,")
    349349                        $tinetCfgC.add("\t\tUDP_CEP_FLG_DYNAMIC,")
    350                         $tinetCfgC.add("\t\tSEM_UDP_CEP_LOCK#{params[:udp6_cepid].val + $cfgData[:UDP6_CRE_CEP].size},")
    351                         $tinetCfgC.add("\t\tTA_NULL,")
    352                         $tinetCfgC.add("\t\tTA_NULL,")
    353                         $tinetCfgC.add("\t\tDTQ_UDP_RCVQ#{params[:udp6_cepid].val + $cfgData[:UDP6_CRE_CEP].size},")
     350                        $tinetCfgC.add("\t\tSEM_UDP_CEP_LOCK#{params[:vrid_udp6_cepid].val + $cfgData[:UDP6_CRE_CEP].size},")
     351                        $tinetCfgC.add("\t\tTA_NULL,")
     352                        $tinetCfgC.add("\t\tTA_NULL,")
     353                        $tinetCfgC.add("\t\tDTQ_UDP_RCVQ#{params[:vrid_udp6_cepid].val + $cfgData[:UDP6_CRE_CEP].size},")
    354354                        $tinetCfgC.add("\t\t},")
    355355        end
    … …  
    362362
    363363#       // TCP (IPv4) 受付口
    364 if $cfgData[:TCP_CRE_REP].size > 0 || $cfgData[:VRID_TCP_REP].size > 0
     364if $cfgData[:TCP_CRE_REP].size > 0 || $cfgData[:VRID_TCP4_REP].size > 0
    365365        $cfgData[:TCP_CRE_REP].each do |key, params|
    366366                cfgInfo = { APINAME: "CRE_SEM" }
    … …  
    371371                $cfgFileInfo.push(cfgInfo)
    372372        end
    373         $cfgData[:VRID_TCP_REP].each do |key, params|
    374                 cfgInfo = { APINAME: "CRE_SEM" }
    375                 cfgInfo["semid"] = "SEM_TCP_REP_LOCK#{params[:tcp4_repid].val + $cfgData[:TCP_CRE_REP].size}"
     373        $cfgData[:VRID_TCP4_REP].each do |key, params|
     374                cfgInfo = { APINAME: "CRE_SEM" }
     375                cfgInfo["semid"] = "SEM_TCP_REP_LOCK#{params[:vrid_tcp4_repid].val + $cfgData[:TCP_CRE_REP].size}"
    376376                cfgInfo["sematr"] = NumStr.new($TA_TPRI, "TA_TPRI")
    377377                cfgInfo["isemcnt"] = 1
    … …  
    393393        $cfgData[:VRID_TCP6_REP].each do |key, params|
    394394                cfgInfo = { APINAME: "CRE_SEM" }
    395                 cfgInfo["semid"] = "SEM_TCP_REP_LOCK#{params[:tcp6_repid].val + $cfgData[:TCP6_CRE_REP].size}"
     395                cfgInfo["semid"] = "SEM_TCP_REP_LOCK#{params[:vrid_tcp6_repid].val + $cfgData[:TCP6_CRE_REP].size}"
    396396                cfgInfo["sematr"] = NumStr.new($TA_TPRI, "TA_TPRI")
    397397                cfgInfo["isemcnt"] = 1
    … …  
    402402
    403403#       // TCP (IPv4) 通信端点
    404 if $cfgData[:TCP_CRE_CEP].size > 0 || $cfgData[:VRID_TCP_CEP].size > 0
     404if $cfgData[:TCP_CRE_CEP].size > 0 || $cfgData[:VRID_TCP4_CEP].size > 0
    405405        $cfgData[:TCP_CRE_CEP].each do |key, params|
    406406                cfgInfo = { APINAME: "CRE_SEM" }
    … …  
    429429                $cfgFileInfo.push(cfgInfo)
    430430        end
    431         $cfgData[:VRID_TCP_CEP].each do |key, params|
    432                 cfgInfo = { APINAME: "CRE_SEM" }
    433                 cfgInfo["semid"] = "SEM_TCP_CEP_LOCK#{params[:tcp4_cepid].val + $cfgData[:TCP_CRE_CEP].size}"
    434                 cfgInfo["sematr"] = NumStr.new($TA_TPRI, "TA_TPRI")
    435                 cfgInfo["isemcnt"] = 1
    436                 cfgInfo["maxsem"] = 1
    437                 $cfgFileInfo.push(cfgInfo)
    438 
    439                 cfgInfo = { APINAME: "CRE_FLG" }
    440                 cfgInfo["flgid"] = "FLG_TCP_CEP_EST#{params[:tcp4_cepid].val + $cfgData[:TCP_CRE_CEP].size}"
    441                 cfgInfo["flgatr"] = NumStr.new($TA_TFIFO | $TA_WSGL, "TA_TFIFO|TA_WSGL")
    442                 cfgInfo["iflgptn"] = NumStr.new($TCP_CEP_EVT_CLOSED, "TCP_CEP_EVT_CLOSED")
    443                 $cfgFileInfo.push(cfgInfo)
    444 
    445                 cfgInfo = { APINAME: "CRE_FLG" }
    446                 cfgInfo["flgid"] = "FLG_TCP_CEP_SND#{params[:tcp4_cepid].val + $cfgData[:TCP_CRE_CEP].size}"
    447                 cfgInfo["flgatr"] = NumStr.new($TA_TFIFO | $TA_WSGL, "TA_TFIFO|TA_WSGL")
    448                 cfgInfo["iflgptn"] = NumStr.new($TCP_CEP_EVT_CLOSED, "TCP_CEP_EVT_CLOSED")
    449                 $cfgFileInfo.push(cfgInfo)
    450 
    451                 cfgInfo = { APINAME: "CRE_FLG" }
    452                 cfgInfo["flgid"] = "FLG_TCP_CEP_RCV#{params[:tcp4_cepid].val + $cfgData[:TCP_CRE_CEP].size}"
     431        $cfgData[:VRID_TCP4_CEP].each do |key, params|
     432                cfgInfo = { APINAME: "CRE_SEM" }
     433                cfgInfo["semid"] = "SEM_TCP_CEP_LOCK#{params[:vrid_tcp4_cepid].val + $cfgData[:TCP_CRE_CEP].size}"
     434                cfgInfo["sematr"] = NumStr.new($TA_TPRI, "TA_TPRI")
     435                cfgInfo["isemcnt"] = 1
     436                cfgInfo["maxsem"] = 1
     437                $cfgFileInfo.push(cfgInfo)
     438
     439                cfgInfo = { APINAME: "CRE_FLG" }
     440                cfgInfo["flgid"] = "FLG_TCP_CEP_EST#{params[:vrid_tcp4_cepid].val + $cfgData[:TCP_CRE_CEP].size}"
     441                cfgInfo["flgatr"] = NumStr.new($TA_TFIFO | $TA_WSGL, "TA_TFIFO|TA_WSGL")
     442                cfgInfo["iflgptn"] = NumStr.new($TCP_CEP_EVT_CLOSED, "TCP_CEP_EVT_CLOSED")
     443                $cfgFileInfo.push(cfgInfo)
     444
     445                cfgInfo = { APINAME: "CRE_FLG" }
     446                cfgInfo["flgid"] = "FLG_TCP_CEP_SND#{params[:vrid_tcp4_cepid].val + $cfgData[:TCP_CRE_CEP].size}"
     447                cfgInfo["flgatr"] = NumStr.new($TA_TFIFO | $TA_WSGL, "TA_TFIFO|TA_WSGL")
     448                cfgInfo["iflgptn"] = NumStr.new($TCP_CEP_EVT_CLOSED, "TCP_CEP_EVT_CLOSED")
     449                $cfgFileInfo.push(cfgInfo)
     450
     451                cfgInfo = { APINAME: "CRE_FLG" }
     452                cfgInfo["flgid"] = "FLG_TCP_CEP_RCV#{params[:vrid_tcp4_cepid].val + $cfgData[:TCP_CRE_CEP].size}"
    453453                cfgInfo["flgatr"] = NumStr.new($TA_TFIFO | $TA_WSGL, "TA_TFIFO|TA_WSGL")
    454454                cfgInfo["iflgptn"] = NumStr.new($TCP_CEP_EVT_CLOSED, "TCP_CEP_EVT_CLOSED")
    … …  
    487487        $cfgData[:VRID_TCP6_CEP].each do |key, params|
    488488                cfgInfo = { APINAME: "CRE_SEM" }
    489                 cfgInfo["semid"] = "SEM_TCP_CEP_LOCK#{params[:tcp6_cepid].val + $cfgData[:TCP6_CRE_CEP].size}"
    490                 cfgInfo["sematr"] = NumStr.new($TA_TPRI, "TA_TPRI")
    491                 cfgInfo["isemcnt"] = 1
    492                 cfgInfo["maxsem"] = 1
    493                 $cfgFileInfo.push(cfgInfo)
    494 
    495                 cfgInfo = { APINAME: "CRE_FLG" }
    496                 cfgInfo["flgid"] = "FLG_TCP_CEP_EST#{params[:tcp6_cepid].val + $cfgData[:TCP6_CRE_CEP].size}"
    497                 cfgInfo["flgatr"] = NumStr.new($TA_TFIFO | $TA_WSGL, "TA_TFIFO|TA_WSGL")
    498                 cfgInfo["iflgptn"] = NumStr.new($TCP_CEP_EVT_CLOSED, "TCP_CEP_EVT_CLOSED")
    499                 $cfgFileInfo.push(cfgInfo)
    500 
    501                 cfgInfo = { APINAME: "CRE_FLG" }
    502                 cfgInfo["flgid"] = "FLG_TCP_CEP_SND#{params[:tcp6_cepid].val + $cfgData[:TCP6_CRE_CEP].size}"
    503                 cfgInfo["flgatr"] = NumStr.new($TA_TFIFO | $TA_WSGL, "TA_TFIFO|TA_WSGL")
    504                 cfgInfo["iflgptn"] = NumStr.new($TCP_CEP_EVT_CLOSED, "TCP_CEP_EVT_CLOSED")
    505                 $cfgFileInfo.push(cfgInfo)
    506 
    507                 cfgInfo = { APINAME: "CRE_FLG" }
    508                 cfgInfo["flgid"] = "FLG_TCP_CEP_RCV#{params[:tcp6_cepid].val + $cfgData[:TCP6_CRE_CEP].size}"
     489                cfgInfo["semid"] = "SEM_TCP_CEP_LOCK#{params[:vrid_tcp6_cepid].val + $cfgData[:TCP6_CRE_CEP].size}"
     490                cfgInfo["sematr"] = NumStr.new($TA_TPRI, "TA_TPRI")
     491                cfgInfo["isemcnt"] = 1
     492                cfgInfo["maxsem"] = 1
     493                $cfgFileInfo.push(cfgInfo)
     494
     495                cfgInfo = { APINAME: "CRE_FLG" }
     496                cfgInfo["flgid"] = "FLG_TCP_CEP_EST#{params[:vrid_tcp6_cepid].val + $cfgData[:TCP6_CRE_CEP].size}"
     497                cfgInfo["flgatr"] = NumStr.new($TA_TFIFO | $TA_WSGL, "TA_TFIFO|TA_WSGL")
     498                cfgInfo["iflgptn"] = NumStr.new($TCP_CEP_EVT_CLOSED, "TCP_CEP_EVT_CLOSED")
     499                $cfgFileInfo.push(cfgInfo)
     500
     501                cfgInfo = { APINAME: "CRE_FLG" }
     502                cfgInfo["flgid"] = "FLG_TCP_CEP_SND#{params[:vrid_tcp6_cepid].val + $cfgData[:TCP6_CRE_CEP].size}"
     503                cfgInfo["flgatr"] = NumStr.new($TA_TFIFO | $TA_WSGL, "TA_TFIFO|TA_WSGL")
     504                cfgInfo["iflgptn"] = NumStr.new($TCP_CEP_EVT_CLOSED, "TCP_CEP_EVT_CLOSED")
     505                $cfgFileInfo.push(cfgInfo)
     506
     507                cfgInfo = { APINAME: "CRE_FLG" }
     508                cfgInfo["flgid"] = "FLG_TCP_CEP_RCV#{params[:vrid_tcp6_cepid].val + $cfgData[:TCP6_CRE_CEP].size}"
    509509                cfgInfo["flgatr"] = NumStr.new($TA_TFIFO | $TA_WSGL, "TA_TFIFO|TA_WSGL")
    510510                cfgInfo["iflgptn"] = NumStr.new($TCP_CEP_EVT_CLOSED, "TCP_CEP_EVT_CLOSED")
    … …  
    514514
    515515#       // UDP (IPv4) 通信端点
    516 if $cfgData[:UDP_CRE_CEP].size > 0 || $cfgData[:VRID_UDP_CEP].size > 0
     516if $cfgData[:UDP_CRE_CEP].size > 0 || $cfgData[:VRID_UDP4_CEP].size > 0
    517517        $cfgData[:UDP_CRE_CEP].each do |key, params|
    518518                cfgInfo = { APINAME: "CRE_SEM" }
    … …  
    530530                $cfgFileInfo.push(cfgInfo)
    531531        end
    532         $cfgData[:VRID_UDP_CEP].each do |key, params|
    533                 cfgInfo = { APINAME: "CRE_SEM" }
    534                 cfgInfo["semid"] = "SEM_UDP_CEP_LOCK#{params[:udp4_cepid].val + $cfgData[:UDP_CRE_CEP].size}"
     532        $cfgData[:VRID_UDP4_CEP].each do |key, params|
     533                cfgInfo = { APINAME: "CRE_SEM" }
     534                cfgInfo["semid"] = "SEM_UDP_CEP_LOCK#{params[:vrid_udp4_cepid].val + $cfgData[:UDP_CRE_CEP].size}"
    535535                cfgInfo["sematr"] = NumStr.new($TA_TPRI, "TA_TPRI")
    536536                cfgInfo["isemcnt"] = 1
    … …  
    539539
    540540                cfgInfo = { APINAME: "CRE_DTQ" }
    541                 cfgInfo["dtqid"] = "DTQ_UDP_RCVQ#{params[:udp4_cepid].val + $cfgData[:UDP_CRE_CEP].size}"
     541                cfgInfo["dtqid"] = "DTQ_UDP_RCVQ#{params[:vrid_udp4_cepid].val + $cfgData[:UDP_CRE_CEP].size}"
    542542                cfgInfo["dtqatr"] = NumStr.new($TA_TFIFO, "TA_TFIFO")
    543543                cfgInfo["dtqcnt"] = NumStr.new($NUM_DTQ_UDP_RCVQ, "NUM_DTQ_UDP_RCVQ")
    … …  
    566566        $cfgData[:VRID_UDP6_CEP].each do |key, params|
    567567                cfgInfo = { APINAME: "CRE_SEM" }
    568                 cfgInfo["semid"] = "SEM_UDP_CEP_LOCK#{params[:udp6_cepid].val + $cfgData[:UDP6_CRE_CEP].size}"
     568                cfgInfo["semid"] = "SEM_UDP_CEP_LOCK#{params[:vrid_udp6_cepid].val + $cfgData[:UDP6_CRE_CEP].size}"
    569569                cfgInfo["sematr"] = NumStr.new($TA_TPRI, "TA_TPRI")
    570570                cfgInfo["isemcnt"] = 1
    … …  
    573573
    574574                cfgInfo = { APINAME: "CRE_DTQ" }
    575                 cfgInfo["dtqid"] = "DTQ_UDP_RCVQ#{params[:udp6_cepid].val + $cfgData[:UDP6_CRE_CEP].size}"
     575                cfgInfo["dtqid"] = "DTQ_UDP_RCVQ#{params[:vrid_udp6_cepid].val + $cfgData[:UDP6_CRE_CEP].size}"
    576576                cfgInfo["dtqatr"] = NumStr.new($TA_TFIFO, "TA_TFIFO")
    577577                cfgInfo["dtqcnt"] = NumStr.new($NUM_DTQ_UDP_RCVQ, "NUM_DTQ_UDP_RCVQ")
Note: See TracChangeset for help on using the changeset viewer.