Changeset 429

EcnlProtoTool/trunk/asp3_dcre/.cproject

-              r426
+              r429
                                                         <option id="ilg.gnuarmeclipse.managedbuild.cross.option.addtools.createflash.1804182567" name="Create flash image" superClass="ilg.gnuarmeclipse.managedbuild.cross.option.addtools.createflash" value="true" valueType="boolean"/>
                                                         <targetPlatform archList="all" binaryParser="org.eclipse.cdt.core.ELF" id="ilg.gnuarmeclipse.managedbuild.cross.targetPlatform.74647507" isAbstract="false" osList="all" superClass="ilg.gnuarmeclipse.managedbuild.cross.targetPlatform"/>
                                                         <builder buildPath="${workspace_loc:/asp3_dcre}/Debug" id="com.renesas.cdt.managedbuild.gcc.rz.builder.460934776" keepEnvironmentInBuildfile="false" managedBuildOn="false" name="GCC for Renesas Builder" superClass="com.renesas.cdt.managedbuild.gcc.rz.builder"/>
+                                                        <builder buildPath="${workspace_loc:/asp3_dcre}/Debug" id="com.renesas.cdt.managedbuild.gcc.rz.builder.460934776" keepEnvironmentInBuildfile="false" managedBuildOn="false" name="GCC for Renesas Builder" parallelBuildOn="true" parallelizationNumber="optimal" superClass="com.renesas.cdt.managedbuild.gcc.rz.builder"/>
                                                         <tool id="com.renesas.cdt.managedbuild.gcc.rz.tool.assembler.1682623852" name="Cross ARM GNU Assembler" superClass="com.renesas.cdt.managedbuild.gcc.rz.tool.assembler">
                                                                 <option id="ilg.gnuarmeclipse.managedbuild.cross.option.assembler.usepreprocessor.1607103230" name="Use preprocessor" superClass="ilg.gnuarmeclipse.managedbuild.cross.option.assembler.usepreprocessor" value="true" valueType="boolean"/>
 …
                                 <option id="toolchain.id" value="gcc-arm-embedded"/>
                                 <option id="toolchain.version" value="6.3.1.20170620"/>
+                                <option id="toolchain.enable" value="true"/>
                         </storageModule>
                 </cconfiguration>
 …
                 </configuration>
         </storageModule>
+        <storageModule moduleId="org.eclipse.cdt.make.core.buildtargets"/>
 </cproject>

EcnlProtoTool/trunk/asp3_dcre/Debug/Makefile

-              r424
+              r429
 #  Copyright (C) 2000-2003 by Embedded and Real-Time Systems Laboratory
 #                              Toyohashi Univ. of Technology, JAPAN
 #  Copyright (C) 2006-2016 by Embedded and Real-Time Systems Laboratory
+#  Copyright (C) 2006-2019 by Embedded and Real-Time Systems Laboratory
 #              Graduate School of Information Science, Nagoya Univ., JAPAN
+#
 …
+#
+#  システムサービスコールライブラリ（libsyssvc.a）のディレクトリ名
+#  （システムサービスコールライブラリもmake対象にする時は，空に定義する）
+#
+SYSSVC_LIB =
+#
 #  カーネルを関数単位でコンパイルするかどうかの定義
+#
 …
+#
 OMIT_TECS =
+#
+#  TECS関係ファイルのディレクトリの定義
+#
+TECSDIR =
+#
 …
+#
+#  依存関係ファイルを置くディレクトリの定義
+#
+DEPDIR = deps
+#  中間オブジェクトファイルと依存関係ファイルを置くディレクトリの定義
+#
+OBJDIR = obj
+DEPDIR = obj
+#
 …
 endif
+TINETDIR = tinet
+#
 #  mbedサービスの定義
 …
 #  共通コンパイルオプションの定義
+#
 COPTS := -g -std=gnu99 $(COPTS)
+COPTS := -g -std=gnu99 -ffunction-sections -fdata-sections $(COPTS)
 ifndef OMIT_WARNING_ALL
         COPTS := -Wall $(COPTS)
 …
 CDEFS := $(CDEFS)
 INCLUDES := -I. -I$(SRCDIR)/include $(INCLUDES) -I$(SRCDIR)
 LDFLAGS := $(LDFLAGS) -Wl,-Map=$(OBJNAME).map,--cref
+LDFLAGS := $(LDFLAGS) -L.
 LIBS := $(LIBS) $(CXXLIBS)
 CFLAGS = $(COPTS) $(CDEFS) $(INCLUDES)
 …
         APPL_COBJS := sample1n.o sample1.o
 endif
 APPL_COBJS := $(APPL_COBJS) log_output.o vasyslog.o t_perror.o strerror.o
+APPL_COBJS := $(APPL_COBJS) log_output.o vasyslog.o t_perror.o strerror.o mbed_stub.o
 APPL_CFLAGS := $(APPL_CFLAGS)
 ifdef APPLDIRS
 …
 endif
-TINETDIR = tinet
 ifdef TINETDIR
+        #
 …
         SUPPORT_UDP = true
+        # IGMPを有効に設定
+        #SUPPORT_IGMP = true
+        #
         #  ネットワークサービスの Makefile のインクルード
 …
 #  システムサービスに関する定義
+#
+ifdef TCINSTALL
+GCC_PATH = $(TCINSTALL)
+else
+GCC_PATH = $(shell which $(CC))/../../
+endif
+MALLOC_LIB = "${GCC_PATH}arm-none-eabi/lib/thumb/v7-ar/fpv3/hard/libc.a"
+MALLOC_OBJS = lib_a-reent.o lib_a-impure.o lib_a-malloc.o lib_a-mallocr.o lib_a-calloc.o lib_a-callocr.o lib_a-realloc.o lib_a-reallocr.o lib_a-sbrkr.o lib_a-freer.o
 SYSSVC_DIRS := $(TECSGENDIR) $(SRCDIR)/tecs_kernel \
                                 $(SYSSVC_DIRS) $(SRCDIR)/syssvc
 SYSSVC_ASMOBJS := $(SYSSVC_ASMOBJS)
 SYSSVC_COBJS := $(INIT_TECS_COBJ) $(TECS_COBJS) $(SYSSVC_COBJS) \
                                  $(CXXRTS)
+SYSSVC_COBJS := $(SYSSVC_COBJS) $(TECS_COBJS) \
+                                $(INIT_TECS_COBJ) $(CXXRTS)
 SYSSVC_CFLAGS := $(SYSSVC_CFLAGS)
 INCLUDES := $(INCLUDES) -I$(TECSGENDIR) -I$(SRCDIR)/tecs_kernel -I../../musl-1.1.18/include
+#
+#  トレースログ記録のサンプルコードに関する定義
+#
+ifdef ENABLE_TRACE
+        COPTS := $(COPTS) -DTOPPERS_ENABLE_TRACE
+        SYSSVC_DIRS := $(SYSSVC_DIRS) $(SRCDIR)/arch/tracelog
+endif
+#
 #  ターゲットファイル
+#
 .PHONY: all
 ifndef OMIT_TECS
 all: tecs
+all: tecs | $(DEPDIR)
 #       @$(MAKE) check
         @$(MAKE) check $(OBJNAME).bin
 …
 #  コンフィギュレータに関する定義
+#
+CFG_KERNEL := --kernel asp
 ifndef TINETDIR
   CFG_TRB := -T $(TARGETDIR)/target_kernel.trb
 …
   CFG_TABS := --api-table $(TINET_ROOT)/tcpip_api.def:tcpip \
                         --api-table $(SRCDIR)/kernel/kernel_api.def:kernel \
                         --symval-table $(SRCDIR)/tinet/tcpip_sym.def \
+                        --symval-table $(TINET_ROOT)/tcpip_sym.def \
                         --symval-table $(SRCDIR)/kernel/kernel_sym.def $(CFG_TABS)
 endif
 …
 CFG_COBJS := kernel_cfg.o $(CFG_COBJS)
 CFG_OBJS := $(CFG_ASMOBJS) $(CFG_COBJS)
+CFG_CFLAGS := -DTOPPERS_CB_TYPE_ONLY $(CFG_CFLAGS)
 CFG2_OUT_SRCS := kernel_cfg.h kernel_cfg.c $(CFG2_OUT_SRCS)
-CFG_CFLAGS := -DTOPPERS_CB_TYPE_ONLY $(CFG_CFLAGS)
+#
 …
                                         $(foreach file,$(KERNEL_FCSRCS),$(file:.c=.o))
 endif
+ifdef OMIT_OFFSET_H
+        OFFSET_H =
+else
+ifdef TARGET_OFFSET_TRB
         OFFSET_H = offset.h
 endif
 …
 endif
 ifndef TARGET_TCPIP_TRB
         TARGET_TCPIP_TRB := $(SRCDIR)/tinet/tinet.trb
+        TARGET_TCPIP_TRB := $(SRCDIR)/$(TINETDIR)/tinet.trb
 endif
 …
 vpath %.cfg $(APPL_DIRS)
 vpath %.cdl $(APPL_DIRS)
+vpath %.bin $(APPL_DIRS)
+#
+#  中間オブジェクトファイルを置くディレクトリの処理
+#
+APPL_ASMOBJS   := $(addprefix $(OBJDIR)/, $(APPL_ASMOBJS))
+APPL_CXXOBJS   := $(addprefix $(OBJDIR)/, $(APPL_CXXOBJS))
+APPL_COBJS     := $(addprefix $(OBJDIR)/, $(APPL_COBJS))
+SYSSVC_ASMOBJS := $(addprefix $(OBJDIR)/, $(SYSSVC_ASMOBJS))
+SYSSVC_COBJS   := $(addprefix $(OBJDIR)/, $(SYSSVC_COBJS))
+KERNEL_ASMOBJS := $(addprefix $(OBJDIR)/, $(KERNEL_ASMOBJS))
+KERNEL_COBJS   := $(addprefix $(OBJDIR)/, $(KERNEL_COBJS))
+KERNEL_LCOBJS  := $(addprefix $(OBJDIR)/, $(KERNEL_LCOBJS))
+CFG_ASMOBJS    := $(addprefix $(OBJDIR)/, $(CFG_ASMOBJS))
+CFG_COBJS      := $(addprefix $(OBJDIR)/, $(CFG_COBJS))
+CFG_DMY        := $(addprefix $(OBJDIR)/, $(CFG_DMY))
+MALLOC_OBJS    := $(addprefix $(OBJDIR)/, $(MALLOC_OBJS))
+#
 #  コンパイルのための変数の定義
+#
 KERNEL_LIB_OBJS = $(KERNEL_ASMOBJS) $(KERNEL_COBJS) $(KERNEL_LCOBJS)
+APPL_OBJS = $(APPL_ASMOBJS) $(APPL_COBJS) $(APPL_CXXOBJS)
 SYSSVC_OBJS = $(SYSSVC_ASMOBJS) $(SYSSVC_COBJS) $(HIDDEN_OBJS)
+APPL_OBJS = $(APPL_ASMOBJS) $(APPL_COBJS) $(APPL_CXXOBJS)
+KERNEL_LIB_OBJS = $(KERNEL_ASMOBJS) $(KERNEL_COBJS) $(KERNEL_LCOBJS) $(MALLOC_OBJS)
+CFG_OBJS = $(CFG_ASMOBJS) $(CFG_COBJS)
 ALL_OBJS = $(START_OBJS) $(APPL_OBJS) $(SYSSVC_OBJS) $(CFG_OBJS) \
                                                                                         $(END_OBJS) $(HIDDEN_OBJS)
 …
         OBJ_LDFLAGS := $(OBJ_LDFLAGS) -L.
 endif
+ifdef SYSSVC_LIB
+        LIBS_DEP := $(LIBS_DEP) $(SYSSVC_LIB)/libsyssvc.a
+        OBJ_LDFLAGS := $(OBJ_LDFLAGS) -L$(SYSSVC_LIB)
+        REALCLEAN_FILES := $(REALCLEAN_FILES) libsyssvc.a
+else
+        LIBS_DEP := $(LIBS_DEP) libsyssvc.a
+        OBJ_LDFLAGS := $(OBJ_LDFLAGS) -L.
+endif
 ifdef TEXT_START_ADDRESS
 …
 tecs $(TECSGEN_SRCS) $(TECS_HEADERS): $(TECSGEN_TIMESTAMP) ;
 $(TECSGEN_TIMESTAMP): $(APPL_CDL) $(TECS_IMPORTS)
         $(TECSGEN) $< -R $(INCLUDES) --cpp "$(TECS_CPP)" -g $(TECSGENDIR)
+        $(TECSGEN) $< -R $(INCLUDES) --cpp "$(subst ", \", $(TECS_CPP))" -g $(TECSGENDIR)
+#
 …
 cfg1_out.c cfg1_out.db: cfg1_out.timestamp ;
 cfg1_out.timestamp: $(APPL_CFG) $(TECSGEN_TIMESTAMP)
+        echo $(CFG_TABS)
+        $(CFG) --pass 1 --kernel asp $(INCLUDES) $(CFG_TABS) \
+        $(CFG) --pass 1 $(CFG_KERNEL) $(INCLUDES) $(CFG_TABS) \
                                                 -M $(DEPDIR)/cfg1_out_c.d $(TARGET_KERNEL_CFG) $<
 $(CFG1_OUT): $(START_OBJS) cfg1_out.o $(CFG_DMY) $(END_OBJS) $(HIDDEN_OBJS)
+$(CFG1_OUT): $(START_OBJS) $(OBJDIR)/cfg1_out.o $(CFG_DMY) $(END_OBJS) $(HIDDEN_OBJS)
         $(LINK) $(CFLAGS) $(LDFLAGS) $(CFG1_OUT_LDFLAGS) -o $(CFG1_OUT) \
                                                 $(START_OBJS) cfg1_out.o $(CFG_DMY) $(END_OBJS)
+                                                $(START_OBJS) $(OBJDIR)/cfg1_out.o $(CFG_DMY) $(LIBS) $(END_OBJS) $(HIDDEN_OBJS)
 cfg1_out.syms: $(CFG1_OUT)
 …
 $(CFG2_OUT_SRCS) cfg2_out.db: kernel_cfg.timestamp ;
 kernel_cfg.timestamp: cfg1_out.db cfg1_out.syms cfg1_out.srec
         $(CFG) --pass 2 --kernel asp $(INCLUDES) $(CFG_TRB)
+        $(CFG) --pass 2 $(CFG_KERNEL) $(INCLUDES) $(CFG_TRB)
+#
 …
 $(OFFSET_H): offset.timestamp ;
 offset.timestamp: cfg1_out.db cfg1_out.syms cfg1_out.srec
         $(CFG) --pass 2 -O --kernel asp $(INCLUDES) -T $(TARGET_OFFSET_TRB) \
+        $(CFG) --pass 2 -O $(CFG_KERNEL) $(INCLUDES) -T $(TARGET_OFFSET_TRB) \
                                 --rom-symbol cfg1_out.syms --rom-image cfg1_out.srec
 …
+#
+#  システムサービスコールライブラリファイルの生成
+#
+libsyssvc.a: $(filter-out $(OBJDIR)/tBannerMain.o, $(SYSSVC_OBJS))
+        rm -f libsyssvc.a
+        $(AR) -rcs libsyssvc.a $(filter-out $(OBJDIR)/tBannerMain.o, $(SYSSVC_OBJS))
+        $(RANLIB) libsyssvc.a
+#
+#  並列makeのための依存関係の定義
+#
+$(APPL_OBJS) $(filter-out $(CFG_DMY), $(SYSSVC_OBJS)): | kernel_cfg.timestamp
+$(APPL_ASMOBJS) $(filter-out $(CFG_DMY), $(SYSSVC_ASMOBJS)) $(KERNEL_ASMOBJS) $(CFG_ASMOBJS): \
+                                                                                                                | offset.timestamp
+#
 #  特別な依存関係の定義
+#
+tBannerMain.o: $(filter-out tBannerMain.o,$(ALL_OBJS)) $(LIBS_DEP)
+$(OBJDIR)/tBannerMain.o: $(filter-out $(OBJDIR)/tBannerMain.o,$(ALL_OBJS)) \
+                                                                                                                                $(LIBS_DEP)
+#
 …
 $(OBJFILE): $(ALL_OBJS) $(LIBS_DEP)
         $(LINK) $(CFLAGS) $(LDFLAGS) $(OBJ_LDFLAGS) -o $(OBJFILE) \
+                        -Wl,-Map=$(OBJNAME).map,--cref -Wl,--gc-sections -Wl,-e_kernel__start,--gc-keep-exported=_kernel_istk \
                         $(START_OBJS) $(APPL_OBJS) $(SYSSVC_OBJS) $(CFG_OBJS) \
+                        $(ALL_LIBS) $(END_OBJS)
+                        -Wl,--start-group $(ALL_LIBS) -Wl,--end-group $(END_OBJS)
+#
+#  依存関係フォルダの作成
+#
+$(DEPDIR):
+        mkdir $@
+#
 …
 check: check.timestamp ;
 check.timestamp: cfg2_out.db $(OBJNAME).syms $(OBJNAME).srec
         $(CFG) --pass 3 --kernel asp -O $(INCLUDES) -T $(TARGET_CHECK_TRB) \
+        $(CFG) --pass 3 $(CFG_KERNEL) -O $(INCLUDES) -T $(TARGET_CHECK_TRB) \
                                 --rom-symbol $(OBJNAME).syms --rom-image $(OBJNAME).srec
         @echo "configuration check passed"
 …
 .PHONY: clean
 clean:
         rm -f \#* *~ *.o $(DEPDIR)/*.d $(CLEAN_FILES) check.timestamp
+        rm -f \#* *~ $(OBJDIR)/*.o $(DEPDIR)/*.d $(CLEAN_FILES) check.timestamp
         rm -f $(OBJFILE) $(OBJNAME).syms $(OBJNAME).srec $(OBJNAME).bin
         rm -f kernel_cfg.timestamp $(CFG2_OUT_SRCS) cfg2_out.db
 …
         rm -f libkernel.a
 endif
+ifndef SYSSVC_LIB
+        rm -f libsyssvc.a
+endif
+        rm -f $(MALLOC_OBJS)
 .PHONY: cleankernel
 cleankernel:
         rm -f $(OFFSET_H) $(KERNEL_LIB_OBJS)
+        rm -f $(KERNEL_LIB_OBJS:%.o=$(DEPDIR)/%.d)
+        rm -f $(KERNEL_LIB_OBJS:$(OBJDIR)/%.o=$(DEPDIR)/%.d)
+.PHONY: cleansyssvc
+cleansyssvc:
+        rm -f $(SYSSVC_OBJS)
+        rm -f $(SYSSVC_OBJS:$(OBJDIR)/%.o=$(DEPDIR)/%.d)
 .PHONY: realclean
 …
 #  のみを付けてコンパイルする．
+#
 ALL_CFG_COBJS = $(CFG_COBJS) cfg1_out.o
+ALL_CFG_COBJS = $(CFG_COBJS) $(OBJDIR)/cfg1_out.o
 ALL_CFG_ASMOBJS = $(CFG_ASMOBJS)
 $(ALL_CFG_COBJS): %.o: %.c
         $(CC) -c -MD -MP -MF $(DEPDIR)/$*.d $(CFLAGS) $(CFG_CFLAGS) $<
 $(ALL_CFG_COBJS:.o=.s): %.s: %.c
         $(CC) -S $(CFLAGS) $(CFG_CFLAGS) $<
 $(ALL_CFG_ASMOBJS): %.o: %.S
         $(CC) -c -MD -MP -MF $(DEPDIR)/$*.d $(CFLAGS) $(CFG_CFLAGS) $<
+$(ALL_CFG_COBJS): $(OBJDIR)/%.o: %.c
+        $(CC) -c -o $@ -MD -MP -MF $(DEPDIR)/$*.d $(CFLAGS) $(CFG_CFLAGS) $<
+$(ALL_CFG_COBJS:$(OBJDIR)/%.o=%.s): %.s: %.c
+        $(CC) -S -o $@ $(CFLAGS) $(CFG_CFLAGS) $<
+$(ALL_CFG_ASMOBJS): $(OBJDIR)/%.o: %.S
+        $(CC) -c -o $@ -MD -MP -MF $(DEPDIR)/$*.d $(CFLAGS) $(CFG_CFLAGS) $<
+#
 …
 #  コンパイルルールの定義
+#
 $(KERNEL_COBJS): %.o: %.c
         $(CC) -c -MD -MP -MF $(DEPDIR)/$*.d $(CFLAGS) $(KERNEL_CFLAGS) $<
 $(KERNEL_COBJS:.o=.s): %.s: %.c
         $(CC) -S $(CFLAGS) $(KERNEL_CFLAGS) $<
 $(KERNEL_LCOBJS): %.o:
         $(CC) -DTOPPERS_$(*F) -o $@ -c -MD -MP -MF $(DEPDIR)/$*.d \
+$(KERNEL_COBJS): $(OBJDIR)/%.o: %.c
+        $(CC) -c -o $@ -MD -MP -MF $(DEPDIR)/$*.d $(CFLAGS) $(KERNEL_CFLAGS) $<
+$(KERNEL_COBJS:$(OBJDIR)/%.o=%.s): %.s: %.c
+        $(CC) -S -o $@ $(CFLAGS) $(KERNEL_CFLAGS) $<
+$(KERNEL_LCOBJS): $(OBJDIR)/%.o:
+        $(CC) -c -o $@ -DTOPPERS_$(*F) -MD -MP -MF $(DEPDIR)/$*.d \
                                                                         $(CFLAGS) $(KERNEL_CFLAGS) $<
+$(KERNEL_LCOBJS:.o=.s): %.s:
+        $(CC) -DTOPPERS_$(*F) -o $@ -S $(CFLAGS) $(KERNEL_CFLAGS) $<
+$(KERNEL_ASMOBJS): %.o: %.S
+        $(CC) -c -MD -MP -MF $(DEPDIR)/$*.d $(CFLAGS) $(KERNEL_CFLAGS) $<
+$(SYSSVC_COBJS): %.o: %.c
+        $(CC) -c -MD -MP -MF $(DEPDIR)/$*.d $(CFLAGS) $(SYSSVC_CFLAGS) $<
+$(SYSSVC_COBJS:.o=.s): %.s: %.c
+        $(CC) -S $(CFLAGS) $(SYSSVC_CFLAGS) $<
+$(SYSSVC_ASMOBJS): %.o: %.S
+        $(CC) -c -MD -MP -MF $(DEPDIR)/$*.d $(CFLAGS) $(SYSSVC_CFLAGS) $<
+$(APPL_COBJS): %.o: %.c
+        $(CC) -c -MD -MP -MF $(DEPDIR)/$*.d $(CFLAGS) $(APPL_CFLAGS) $<
+$(APPL_COBJS:.o=.s): %.s: %.c
+        $(CC) -S $(CFLAGS) $(APPL_CFLAGS) $<
+$(APPL_CXXOBJS): %.o: %.cpp
+        $(CXX) -c -MD -MP -MF $(DEPDIR)/$*.d $(CFLAGS) $(APPL_CFLAGS) $<
+$(APPL_CXXOBJS:.o=.s): %.s: %.cpp
+        $(CXX) -S $(CFLAGS) $(APPL_CFLAGS) $<
+$(APPL_ASMOBJS): %.o: %.S
+        $(CC) -c -MD -MP -MF $(DEPDIR)/$*.d $(CFLAGS) $(APPL_CFLAGS) $<
+$(KERNEL_LCOBJS:$(OBJDIR)/%.o=%.s): %.s:
+        $(CC) -S -o $@ -DTOPPERS_$(*F) $(CFLAGS) $(KERNEL_CFLAGS) $<
+$(KERNEL_ASMOBJS): $(OBJDIR)/%.o: %.S
+        $(CC) -c -o $@ -MD -MP -MF $(DEPDIR)/$*.d $(CFLAGS) $(KERNEL_CFLAGS) $<
+$(SYSSVC_COBJS): $(OBJDIR)/%.o: %.c
+        $(CC) -c -o $@ -MD -MP -MF $(DEPDIR)/$*.d $(CFLAGS) $(SYSSVC_CFLAGS) $<
+$(SYSSVC_COBJS:$(OBJDIR)/%.o=%.s): %.s: %.c
+        $(CC) -S -o $@ $(CFLAGS) $(SYSSVC_CFLAGS) $<
+$(SYSSVC_ASMOBJS): $(OBJDIR)/%.o: %.S
+        $(CC) -c -o $@ -MD -MP -MF $(DEPDIR)/$*.d $(CFLAGS) $(SYSSVC_CFLAGS) $<
+$(APPL_COBJS): $(OBJDIR)/%.o: %.c
+        $(CC) -c -o $@ -MD -MP -MF $(DEPDIR)/$*.d $(CFLAGS) $(APPL_CFLAGS) $<
+$(APPL_COBJS:$(OBJDIR)/%.o=%.s): %.s: %.c
+        $(CC) -S -o $@ $(CFLAGS) $(APPL_CFLAGS) $<
+$(APPL_CXXOBJS): $(OBJDIR)/%.o: %.cpp
+        $(CXX) -c -o $@ -MD -MP -MF $(DEPDIR)/$*.d $(CFLAGS) $(APPL_CFLAGS) $<
+$(APPL_CXXOBJS:$(OBJDIR)/%.o=%.s): %.s: %.cpp
+        $(CXX) -S -o $@ $(CFLAGS) $(APPL_CFLAGS) $<
+$(APPL_ASMOBJS): $(OBJDIR)/%.o: %.S
+        $(CC) -c -o $@ -MD -MP -MF $(DEPDIR)/$*.d $(CFLAGS) $(APPL_CFLAGS) $<
+$(MALLOC_OBJS): $(OBJDIR)/%.o:
+        $(AR) x $(MALLOC_LIB) $(notdir $@)
+        mv $(notdir $@) $@
+#
 #  デフォルトコンパイルルールを上書き
+#
 %.o: %.c
+$(OBJDIR)/%.o: %.c
         @echo "*** Default compile rules should not be used."
         $(CC) -c -MD -MP -MF $(DEPDIR)/$*.d $(CFLAGS) $<
+        $(CC) -c -o $@ -MD -MP -MF $(DEPDIR)/$*.d $(CFLAGS) $<
 %.s: %.c
         @echo "*** Default compile rules should not be used."
         $(CC) -S $(CFLAGS) $<
 %.o: %.cpp
+        $(CC) -S -o $@ $(CFLAGS) $<
+$(OBJDIR)/%.o: %.cpp
         @echo "*** Default compile rules should not be used."
         $(CXX) -c -MD -MP -MF $(DEPDIR)/$*.d $(CFLAGS) $<
+        $(CXX) -c -o $@ -MD -MP -MF $(DEPDIR)/$*.d $(CFLAGS) $<
 %.s: %.cpp
         @echo "*** Default compile rules should not be used."
         $(CXX) -S $(CFLAGS) $<
 %.o: %.S
+        $(CXX) -S -o $@ $(CFLAGS) $<
+$(OBJDIR)/%.o: %.S
         @echo "*** Default compile rules should not be used."
         $(CC) -c -MD -MP -MF $(DEPDIR)/$*.d $(CFLAGS) $<
+        $(CC) -c -o $@ -MD -MP -MF $(DEPDIR)/$*.d $(CFLAGS) $<

EcnlProtoTool/trunk/asp3_dcre/MANIFEST

-              r270
+              r429
 PACKAGE asp3
 VERSION 3.1.0
+VERSION 3.5.0
 configure.rb
 …
 tecs_kernel/tAlarmNotifier.c
 tecs_kernel/tAlarmNotifier_inline.h
-tecs_kernel/tCpuExceptionHandler.c
 tecs_kernel/tCyclicNotifier.c
 tecs_kernel/tCyclicNotifier_inline.h
 …
 tecs_kernel/tISR.c
 tecs_kernel/tInitializeRoutine.c
-tecs_kernel/tInterruptHandler.c
 tecs_kernel/tInterruptRequest_inline.h
 tecs_kernel/tKernel_inline.h
 …
 syssvc/tLogTask.cdl
 syssvc/tLogTaskMain.c
+syssvc/tPutLogSIOPort.c
+syssvc/tPutLogSIOPort.cdl
 syssvc/tSerialAdapter.c
 syssvc/tSerialAdapter.cdl
 …
 syssvc/tTestService.c
 syssvc/tTestService.cdl
+syssvc/tTestServiceAdapter.c
+syssvc/tTestServiceAdapter.cdl
 syssvc/test_svc.h
 …
 arch/tracelog/tTraceLog.c
 arch/tracelog/tTraceLog.cdl
+arch/simtimer/sim_timer.c
+arch/simtimer/sim_timer.cfg
+arch/simtimer/sim_timer.h
+arch/simtimer/sim_timer_cntl.h
+arch/simtimer/tSimTimerCntl.c
+arch/simtimer/tSimTimerCntl.cdl
+arch/simtimer/tSimTimerCntlAdapter.c
+arch/simtimer/tSimTimerCntlAdapter.cdl
 utils/applyrename.rb

EcnlProtoTool/trunk/asp3_dcre/README.txt

-              r321
+              r429
         TOPPERS/ASP3 Kernel（Release 3.1）
+        TOPPERS/ASP3 Kernel（Release 3.5）
                 Toyohashi Open Platform for Embedded Real-Time Systems/
                 Advanced Standard Profile Kernel
 …
 グリスト（users@toppers.jp）宛にお願いします．
+これらのメーリングリストに投稿されたメールは，ウェブサイトのメーリング
+リストアーカイブから読むことができますので，公開すべきでない情報（個人
+情報など）をメール中に含めないように注意をお願いします．
 TOPPERSユーザーズメーリングリストへの登録方法については，以下のページに
 説明があります．

EcnlProtoTool/trunk/asp3_dcre/arch/arm_gcc/MANIFEST

r270	r429
1	1	PACKAGE asp3_arch_arm_gcc
2		VERSION 3.1.0
	2	VERSION 3.2.0
3	3
4	4	MANIFEST

EcnlProtoTool/trunk/asp3_dcre/arch/arm_gcc/common/Makefile.core

-              r321
+              r429
 #               Makefileのコア依存部（ARM用）
+#
 #  $Id$
+#  $Id: Makefile.core 755 2016-06-12 10:08:22Z ertl-hiro $
+#
 …
 #  START_OBJSをstart.oに設定し，LDFLAGSに-nostdlibを追加する．
+#
+START_OBJS = start.o
+START_OBJS := start.o
+START_OBJS := $(addprefix $(OBJDIR)/, $(START_OBJS))
 $(START_OBJS): %.o: %.S
         $(CC) -c $(CFLAGS) $(KERNEL_CFLAGS) $<
+$(START_OBJS): $(OBJDIR)/%.o: %.S
+        $(CC) -c -o $@ -MD -MP -MF $(DEPDIR)/$*.d $(CFLAGS) $(KERNEL_CFLAGS) $<
 LDFLAGS := -nostdlib $(LDFLAGS)
+LDFLAGS := -nodefaultlibs $(LDFLAGS)

EcnlProtoTool/trunk/asp3_dcre/arch/arm_gcc/common/arm.c

-              r321
+              r429
  *  ARMv7におけるデータキャッシュの無効化
+ *
+ *  レベル0のキャッシュのみを無効化する．
+ *  バリアを2か所に入れているのは，ARMアーキテクチャリファレンスマニュ
+ *  アルのサンプルコードを踏襲した．
  */
 #if __TARGET_ARCH_ARM == 7
 …
 armv7_invalidate_dcache(void)
+{
+        uint32_t        reg;
+        uint32_t        clidr, ccsidr;
+        uint32_t        level, no_levels;
         uint32_t        way, no_ways, shift_way;
         uint32_t        set, no_sets, shift_set;
+        CP15_WRITE_CSSELR(0U);
+        CP15_READ_CCSIDR(reg);
+        no_sets = ((reg >> 13) & 0x7fffU) + 1;
+        shift_set = (reg & 0x07U) + 4;
+        no_ways = ((reg >> 3) & 0x3ffU) + 1;
+        shift_way = count_leading_zero(no_ways);
+        for (way = 0; way < no_ways; way++){
+                for (set = 0; set < no_sets; set++) {
+                        reg = (way << shift_way) | (set << shift_set);
+                        CP15_WRITE_DCISW(reg);
+        uint32_t        waylevel, setwaylevel;
+        CP15_READ_CLIDR(clidr);
+        no_levels = (clidr >> 24) & 0x07U;
+        for (level = 0; level < no_levels; level++) {
+                if (((clidr >> (level * 3)) & 0x07U) >= 0x02U) {
+                        CP15_WRITE_CSSELR(level << 1);
+                        inst_sync_barrier();
+                        CP15_READ_CCSIDR(ccsidr);
+                        no_sets = ((ccsidr >> 13) & 0x7fffU) + 1;
+                        shift_set = (ccsidr & 0x07U) + 4;
+                        no_ways = ((ccsidr >> 3) & 0x3ffU) + 1;
+                        shift_way = count_leading_zero(no_ways - 1);
+                        for (way = 0; way < no_ways; way++) {
+                                waylevel = (way << shift_way) | (level << 1);
+                                for (set = 0; set < no_sets; set++) {
+                                        setwaylevel = waylevel | (set << shift_set);
+                                        CP15_WRITE_DCISW(setwaylevel);
+                                }
+                        }
+                }
+        }
+        data_sync_barrier();
+}
 …
  *  ARMv7におけるデータキャッシュのクリーンと無効化
+ *
+ *  レベル0のキャッシュのみをクリーンと無効化する．
+ *  バリアを2か所に入れているのは，ARMアーキテクチャリファレンスマニュ
+ *  アルのサンプルコードを踏襲した．
  */
 #if __TARGET_ARCH_ARM == 7
 …
 armv7_clean_and_invalidate_dcache(void)
+{
+        uint32_t        reg;
+        uint32_t        clidr, ccsidr;
+        uint32_t        level, no_levels;
         uint32_t        way, no_ways, shift_way;
         uint32_t        set, no_sets, shift_set;
+        CP15_WRITE_CSSELR(0U);
+        CP15_READ_CCSIDR(reg);
+        no_sets = ((reg >> 13) & 0x7fffU) + 1;
+        shift_set = (reg & 0x07U) + 4;
+        no_ways = ((reg >> 3) & 0x3ffU) + 1;
+        shift_way = count_leading_zero(no_ways);
+        for (way = 0; way < no_ways; way++){
+                for (set = 0; set < no_sets; set++) {
+                        reg = (way << shift_way) | (set << shift_set);
+                        CP15_WRITE_DCCISW(reg);
+        uint32_t        waylevel, setwaylevel;
+        CP15_READ_CLIDR(clidr);
+        no_levels = (clidr >> 24) & 0x07U;
+        for (level = 0; level < no_levels; level++) {
+                if (((clidr >> (level * 3)) & 0x07U) >= 0x02U) {
+                        CP15_WRITE_CSSELR(level << 1);
+                        inst_sync_barrier();
+                        CP15_READ_CCSIDR(ccsidr);
+                        no_sets = ((ccsidr >> 13) & 0x7fffU) + 1;
+                        shift_set = (ccsidr & 0x07U) + 4;
+                        no_ways = ((ccsidr >> 3) & 0x3ffU) + 1;
+                        shift_way = count_leading_zero(no_ways - 1);
+                        for (way = 0; way < no_ways; way++) {
+                                waylevel = (way << shift_way) | (level << 1);
+                                for (set = 0; set < no_sets; set++) {
+                                        setwaylevel = waylevel | (set << shift_set);
+                                        CP15_WRITE_DCCISW(setwaylevel);
+                                }
+                        }
+                }
+        }
+        data_sync_barrier();
+}

EcnlProtoTool/trunk/asp3_dcre/arch/arm_gcc/common/arm.h

-              r321
+              r429
  *  Copyright (C) 2000-2003 by Embedded and Real-Time Systems Laboratory
  *                              Toyohashi Univ. of Technology, JAPAN
  *  Copyright (C) 2006-2016 by Embedded and Real-Time Systems Laboratory
+ *  Copyright (C) 2006-2019 by Embedded and Real-Time Systems Laboratory
  *              Graduate School of Information Science, Nagoya Univ., JAPAN
+ *
 …
  */
 #ifndef TOPPERS_MACRO_ONLY
+#ifndef TECSGEN
+#include "arm_insn.h"                           /* tecsgenが解釈できないためスキップ */
+#endif /* TECSGEN */
+#include "arm_insn.h"
 #endif /*  TOPPERS_MACRO_ONLY */
 …
 #define CP15_SCTLR_DCACHE               UINT_C(0x00000004)
 #define CP15_SCTLR_MMU                  UINT_C(0x00000001)
+/*
+ *  CP15のコプロセッサアクセス制御レジスタ（CPACR）の設定値
+ */
+#define CP15_CPACR_ASEDIS                       UINT_C(0x80000000)
+#define CP15_CPACR_D32DIS                       UINT_C(0x40000000)
+#define CP15_CPACR_CP11_FULLACCESS      UINT_C(0x00c00000)
+#define CP15_CPACR_CP10_FULLACCESS      UINT_C(0x00300000)
 /*
 …
 #define ARM_MMU_DSCR1_TEX010            0x02000U        /* TEXビットが010 */
 #define ARM_MMU_DSCR1_TEX100            0x04000U        /* TEXビットが100 */
-#define ARM_MMU_DSCR1_AP01                      0x00400U        /* APビットが01 */
-#define ARM_MMU_DSCR1_AP10                      0x00800U        /* APビットが10 */
-#define ARM_MMU_DSCR1_AP11                      0x00c00U        /* APビットが11 */
 #define ARM_MMU_DSCR1_CB00                      0x00000U        /* Cビットが0，Bビットが0 */
 #define ARM_MMU_DSCR1_CB01                      0x00004U        /* Cビットが0，Bビットが1 */
 …
 #define ARM_MMU_DSCR1_CB11                      0x0000cU        /* Cビットが1，Bビットが1 */
+#if __TARGET_ARCH_ARM >= 6
+#if __TARGET_ARCH_ARM < 6
+#define ARMV5_MMU_DSCR1_AP01            0x00400U        /* APビットが01 */
+#define ARMV5_MMU_DSCR1_AP10            0x00800U        /* APビットが10 */
+#define ARMV5_MMU_DSCR1_AP11            0x00c00U        /* APビットが11 */
+#else /* __TARGET_ARCH_ARM < 6 */
 #define ARMV6_MMU_DSCR1_NONGLOBAL       0x20000U        /* グローバルでない */
+#define ARMV6_MMU_DSCR1_APX0            0x00000U        /* APXビットが0 */
+#define ARMV6_MMU_DSCR1_APX1            0x08000U        /* APXビットが1 */
+#define ARMV6_MMU_DSCR1_AP001           0x00400         /* APビットが001 */
+#define ARMV6_MMU_DSCR1_AP010           0x00800         /* APビットが010 */
+#define ARMV6_MMU_DSCR1_AP011           0x00c00         /* APビットが011 */
+#define ARMV6_MMU_DSCR1_AP101           0x08400         /* APビットが101 */
+#define ARMV6_MMU_DSCR1_AP110           0x08800         /* APビットが110 */
+#define ARMV6_MMU_DSCR1_AP111           0x08c00         /* APビットが111 */
 #define ARMV6_MMU_DSCR1_ECC                     0x00200U        /* ECCが有効（MPCore）*/
 #define ARMV6_MMU_DSCR1_NOEXEC          0x00010U        /* 実行不可 */
+#endif /* __TARGET_ARCH_ARM >= 6 */
+#endif /* __TARGET_ARCH_ARM < 6 */
 /*
 …
 #define ARMV6_MMU_DSCR2_NONGLOBAL       0x0800U         /* グローバルでない */
 #define ARMV6_MMU_DSCR2_SHARED          0x0400U         /* プロセッサ間で共有 */
+#define ARMV6_MMU_DSCR2_APX0            0x0000U         /* APXビットが0 */
+#define ARMV6_MMU_DSCR2_APX1            0x0200U         /* APXビットが1 */
+#define ARMV6_MMU_DSCR2_AP01            0x0010U         /* APビットが01 */
+#define ARMV6_MMU_DSCR2_AP10            0x0020U         /* APビットが10 */
+#define ARMV6_MMU_DSCR2_AP11            0x0030U         /* APビットが11 */
+#define ARMV6_MMU_DSCR2_AP001           0x0010          /* APビットが001 */
+#define ARMV6_MMU_DSCR2_AP010           0x0020          /* APビットが010 */
+#define ARMV6_MMU_DSCR2_AP011           0x0030          /* APビットが011 */
+#define ARMV6_MMU_DSCR2_AP101           0x0210          /* APビットが101 */
+#define ARMV6_MMU_DSCR2_AP110           0x0220          /* APビットが110 */
+#define ARMV6_MMU_DSCR2_AP111           0x0230          /* APビットが111 */
 /* ラージページのディスクリプタ用 */
 …
 /*
  *  プロセッサ番号の取得
+ *  自プロセッサのインデックス（0オリジン）の取得
+ *
+ *  マルチプロセッサアフィニティレジスタを読んで，その下位8ビットを返す．
+ *  ARMv6では，マルチプロセッサをサポートしている場合にのみ使用できる．
+ *  マルチプロセッサアフィニティレジスタを読んで，その下位8ビットを返
+ *  す．ARMv6では，マルチプロセッサをサポートしている場合にのみ使用で
+ *  きる．
  */
 #if __TARGET_ARCH_ARM >= 6
 Inline uint32_t
 arm_prc_index(void)
+Inline uint_t
+get_my_prcidx(void)
+{
         uint32_t        reg;
         CP15_READ_MPIDR(reg);
         return(reg & 0xffU);
+        return((uint_t)(reg & 0xffU));
+}
 …
 #endif /* TOPPERS_MACRO_ONLY */
+/*
+ *  浮動小数点例外制御レジスタ（FPEXC）の設定値
+ */
+#define FPEXC_ENABLE            UINT_C(0x40000000)
 #endif /* TOPPERS_ARM_H */

EcnlProtoTool/trunk/asp3_dcre/arch/arm_gcc/common/arm_insn.h

-              r321
+              r429
  *  Copyright (C) 2000-2003 by Embedded and Real-Time Systems Laboratory
  *                              Toyohashi Univ. of Technology, JAPAN
  *  Copyright (C) 2006-2016 by Embedded and Real-Time Systems Laboratory
+ *  Copyright (C) 2006-2018 by Embedded and Real-Time Systems Laboratory
  *              Graduate School of Information Science, Nagoya Univ., JAPAN
+ *
 …
  *  Thumbモードではmrs/msr命令が使用できないため，関数として実現して，
  *  ARMモードに移行して実行する．
+ *
+ *  current_cpsrとset_cpsrは，__thumb__が定義されない場合にはヘッダファ
+ *  イル中で定義されるインライン関数になるため，core_rename.defに登録
+ *  せず，先頭の_kernel_を手書きしている．
  */
 …
  *  ステータスレジスタ（CPSR）の現在値の読出し
  */
+extern uint32_t current_cpsr(void);
+extern uint32_t _kernel_current_cpsr(void);
+#define current_cpsr()  _kernel_current_cpsr()
 /*
  *  ステータスレジスタ（CPSR）の現在値の変更
  */
+extern void set_cpsr(uint32_t cpsr);
+extern void _kernel_set_cpsr(uint32_t cpsr);
+#define set_cpsr(cpsr)  _kernel_set_cpsr(cpsr)
 #endif /* __thumb__ */
 …
 #define CP15_READ_ACTLR(reg)    Asm("mrc p15, 0, %0, c1, c0, 1":"=r"(reg))
 #define CP15_WRITE_ACTLR(reg)   Asm("mcr p15, 0, %0, c1, c0, 1"::"r"(reg))
+/* コプロセッサアクセス制御レジスタ */
+#define CP15_READ_CPACR(reg)    Asm("mrc p15, 0, %0, c1, c0, 2":"=r"(reg))
+#define CP15_WRITE_CPACR(reg)   Asm("mcr p15, 0, %0, c1, c0, 2"::"r"(reg))
 /*
 …
 /* ドメインアクセス制御レジスタ */
 #define CP15_WRITE_DACR(reg)    Asm("mcr p15, 0, %0, c3, c0, 0":: "r"(reg))
+#define CP15_WRITE_DACR(reg)    Asm("mcr p15, 0, %0, c3, c0, 0"::"r"(reg))
 /* コンテキストIDレジスタ（ARMv6以降）*/
 #if __TARGET_ARCH_ARM >= 6
 #define CP15_WRITE_CONTEXTIDR(reg) Asm("mcr p15, 0, %0, c13, c0, 1" ::"r"(reg))
+#define CP15_WRITE_CONTEXTIDR(reg) Asm("mcr p15, 0, %0, c13, c0, 1"::"r"(reg))
 #endif /* __TARGET_ARCH_ARM >= 6 */
 …
 #endif /* __TARGET_ARCH_ARM == 7 */
+/*
+ *  浮動小数点例外制御レジスタ（FPEXC）の現在値の読出し
+ */
+Inline uint32_t
+current_fpexc(void)
+{
+        uint32_t        fpexc;
+        Asm("vmrs %0, fpexc" : "=r"(fpexc));
+        return(fpexc);
+}
+/*
+ *  浮動小数点例外制御レジスタ（FPEXC）の現在値の変更
+ */
+Inline void
+set_fpexc(uint32_t fpexc)
+{
+        Asm("vmsr fpexc, %0" : : "r"(fpexc));
+}
 #endif /* TOPPERS_ARM_INSN_H */

EcnlProtoTool/trunk/asp3_dcre/arch/arm_gcc/common/core_cfg1_out.h

-              r321
+              r429
  */
-/*
- *  cfg1_out.cのリンクに必要な定義
- */
 #include <kernel.h>
 void sta_ker(void){}
+void sta_ker(void) { }
 STK_T *const    _kernel_istkpt;
-/*
- *  offset.hを生成するための定義
- */
-const uint8_t   MAGIC_1 = 0x12;
-const uint16_t  MAGIC_2 = 0x1234;
-const uint32_t  MAGIC_4 = 0x12345678;

EcnlProtoTool/trunk/asp3_dcre/arch/arm_gcc/common/core_check.trb

-              r321
+              r429
 #               パス3の生成スクリプトのコア依存部（ARM用）
+#
 #  $Id$
+#  $Id: core_check.trb 730 2016-04-03 02:04:52Z ertl-hiro $
+#
 …
 inhTable = SYMBOL("_kernel_inh_table")
 offset = SYMBOL("__etext") - SYMBOL("__data_start__")
 $cfgData[:DEF_INH].each do |key, params|
+$cfgData[:DEF_INH].each do |_, params|
   inthdr = PEEK(inhTable + offset + params[:inhno] * $sizeof_FP, $sizeof_FP)
 …
+#
 excTable = SYMBOL("_kernel_exc_table")
 $cfgData[:DEF_EXC].each do |key, params|
+$cfgData[:DEF_EXC].each do |_, params|
   exchdr = PEEK(excTable + params[:excno] * $sizeof_FP, $sizeof_FP)

EcnlProtoTool/trunk/asp3_dcre/arch/arm_gcc/common/core_kernel.h

-              r321
+              r429
  *  Copyright (C) 2000-2003 by Embedded and Real-Time Systems Laboratory
  *                              Toyohashi Univ. of Technology, JAPAN
  *  Copyright (C) 2004-2016 by Embedded and Real-Time Systems Laboratory
+ *  Copyright (C) 2004-2019 by Embedded and Real-Time Systems Laboratory
  *              Graduate School of Information Science, Nagoya Univ., JAPAN
+ *
 …
 /*
+ *  ターゲット定義のタスク属性
+ */
+#define TA_FPU          UINT_C(0x08)    /* FPUレジスタをコンテキストに含める */
+/*
  *  スタックの型
+ *
 …
  *  CPU例外ハンドラ番号の数
  */
 #define TNUM_EXCNO              6
+#define TNUM_EXCNO              7
 /*
  *  CPU例外ハンドラ番号の定義
  */
+#define EXCNO_UNDEF             0
+#define EXCNO_SVC               1
+#define EXCNO_PABORT    2
+#define EXCNO_DABORT    3
+#define EXCNO_IRQ               4
+#define EXCNO_FIQ               5
+#define EXCNO_UNDEF             UINT_C(0)               /* 未定義命令 */
+#define EXCNO_SVC               UINT_C(1)               /* スーパバイザコール */
+#define EXCNO_PABORT    UINT_C(2)               /* プリフェッチアボート */
+#define EXCNO_DABORT    UINT_C(3)               /* データアボート */
+#define EXCNO_IRQ               UINT_C(4)               /* IRQ割込み */
+#define EXCNO_FIQ               UINT_C(5)               /* FIQ割込み */
+#define EXCNO_FATAL             UINT_C(6)               /* フェイタルデータアボート */
 #ifndef TOPPERS_MACRO_ONLY

EcnlProtoTool/trunk/asp3_dcre/arch/arm_gcc/common/core_kernel.trb

r321	r429
6	6	#
7	7	# Copyright (C) 2015 by FUJI SOFT INCORPORATED, JAPAN
8		# Copyright (C) 2015~~,2016~~ by Embedded and Real-Time Systems Laboratory
	8	# Copyright (C) 2015-2019 by Embedded and Real-Time Systems Laboratory
9	9	# Graduate School of Information Science, Nagoya Univ., JAPAN
10	10	#
…	…
38	38	# の責任を負わない．
39	39	#
40		# $Id$
	40	# $Id: core_kernel.trb 662 2016-02-27 02:33:51Z ertl-hiro $
41	41	#
42	42
…	…
48	48	# 有効なCPU例外ハンドラ番号
49	49	#
50		$EXCNO_VALID = [ 0, 1, 2, 3, 4, 5 ]
	50	$EXCNO_VALID = [ 0, 1, 2, 3, 4, 5, 6 ]
51	51
52	52	#
53	53	# DEF_EXCで使用できるCPU例外ハンドラ番号
54	54	#
55		$EXCNO_DEFEXC_VALID = [ 0, 1, 2, 3, 5 ]
	55	$EXCNO_DEFEXC_VALID = [ 0, 1, 2, 3, 5, 6 ]
56	56
57	57	#
…	…
65	65	$kernelCfgC.comment_header("Interrupt Handler Table")
66	66
67		$kernelCfgC.add("FP _kernel_inh_table[TNUM_INHNO] = {")
	67	$kernelCfgC.add("/const/FP _kernel_inh_table[TNUM_INHNO] = {")
68	68	$INHNO_VALID.each_with_index do \|inhnoVal, index\|
69	69	$kernelCfgC.add(",") if index > 0

EcnlProtoTool/trunk/asp3_dcre/arch/arm_gcc/common/core_kernel_impl.c

-              r321
+              r429
  *  Copyright (C) 2000-2003 by Embedded and Real-Time Systems Laboratory
  *                              Toyohashi Univ. of Technology, JAPAN
  *  Copyright (C) 2006-2016 by Embedded and Real-Time Systems Laboratory
+ *  Copyright (C) 2006-2019 by Embedded and Real-Time Systems Laboratory
  *              Graduate School of Information Science, Nagoya Univ., JAPAN
+ *
 …
  */
 Inline void
 config_section_entry(ARM_MMU_CONFIG *p_ammuc)
+config_section_entry(const ARM_MMU_CONFIG *p_ammuc)
+{
         uint32_t        vaddr = p_ammuc->vaddr;
 …
         uint_t          i;
+        assert(vaddr % ARM_SECTION_SIZE == 0);
+        assert(paddr % ARM_SECTION_SIZE == 0);
+        assert(size % ARM_SECTION_SIZE == 0);
         while (size > 0) {
 #ifdef USE_ARM_SSECTION
 …
 /*
+ *  FPUの初期化
+ */
+#ifdef USE_ARM_FPU
+void
+arm_fpu_initialize(void)
+{
+        uint32_t        reg;
+        /*
+         *  CP10とCP11をアクセス可能に設定する．
+         */
+        CP15_READ_CPACR(reg);
+        reg |= (CP15_CPACR_CP10_FULLACCESS | CP15_CPACR_CP11_FULLACCESS);
+        CP15_WRITE_CPACR(reg);
+        /*
+         *  FPUをディスエーブルする．
+         */
+        set_fpexc(current_fpexc() & ~FPEXC_ENABLE);
+}
+#endif /* USE_ARM_FPU */
+/*
  *  コア依存の初期化
  */
 …
         arm_mmu_initialize();
 #endif /* USE_ARM_MMU */
+        /*
+         *  FPUの初期化
+         */
+#ifdef USE_ARM_FPU
+        arm_fpu_initialize();
+#endif /* USE_ARM_FPU */
         /*
 …
                 syslog_0(LOG_EMERG, "FIQ exception occurs.");
                 break;
+        case EXCNO_FATAL:
+                syslog_0(LOG_EMERG, "Fatal Data Abort exception occurs.");
+                break;
+        }
         xlog_sys(p_excinf);
+        if (excno == EXCNO_PABORT || excno == EXCNO_DABORT) {
+        if (excno == EXCNO_PABORT || excno == EXCNO_DABORT
+                                                                                || excno == EXCNO_FATAL) {
                 uint32_t        fsr, far;

EcnlProtoTool/trunk/asp3_dcre/arch/arm_gcc/common/core_kernel_impl.h

-              r321
+              r429
  *  Copyright (C) 2000-2003 by Embedded and Real-Time Systems Laboratory
  *                              Toyohashi Univ. of Technology, JAPAN
  *  Copyright (C) 2006-2016 by Embedded and Real-Time Systems Laboratory
+ *  Copyright (C) 2006-2019 by Embedded and Real-Time Systems Laboratory
  *              Graduate School of Information Science, Nagoya Univ., JAPAN
+ *
 …
 /*
+ *  ターゲット依存のタスク属性（エラーチェック用）
+ */
+/*#ifdef USE_ARM_FPU*/
+#define TARGET_TSKATR           (TA_FPU)
+/*#endif /* USE_ARM_FPU */
+/*
  *  エラーチェック方法の指定
  */
 …
 #define CHECK_MPF_ALIGN         4               /* 固定長メモリプール領域のアライン単位 */
 #define CHECK_MPF_NONNULL                       /* 固定長メモリプール領域の非NULLチェック */
+#define CHECK_MPK_ALIGN         4               /* カーネルメモリプール領域のアライン単位 */
+#define CHECK_MPK_NONNULL                       /* カーネルメモリプール領域の非NULL  */
+                                                                        /*                                                      チェック */
 #define CHECK_MB_ALIGN          4               /* 管理領域のアライン単位 */
 …
  *  非タスクコンテキストからのディスパッチ要求
  */
 #define request_dispatch()
+#define request_dispatch_retint()
 /*
 …
  *  割込みハンドラテーブル（kernel_cfg.c）
  */
 extern FP inh_table[TNUM_INHNO];
+extern /*const*/FP inh_table[TNUM_INHNO];
 /*
 …
  *  MMUの設定情報（メモリエリアの情報）（target_kernel_impl.c）
  */
 extern ARM_MMU_CONFIG arm_memory_area[];
+extern const ARM_MMU_CONFIG arm_memory_area[];
 /*
 …
 #ifndef TOPPERS_MACRO_ONLY
+/*
+ *  FPUの初期化
+ */
+#ifdef USE_ARM_FPU
+extern void arm_fpu_initialize(void);
+#endif /* USE_ARM_FPU */
 /*

EcnlProtoTool/trunk/asp3_dcre/arch/arm_gcc/common/core_offset.trb

-              r321
+              r429
 #               オフセットファイル生成用Rubyテンプレート（ARM用）
+#
 #  $Id$
+#  $Id: core_offset.trb 572 2016-02-01 14:40:09Z ertl-hiro $
+#
 …
 #  フィールドのオフセットの定義の生成
+#
+GenerateDefine("TCB_p_tinib", $offsetof_TCB_p_tinib)
+GenerateDefine("TCB_sp", $offsetof_TCB_sp)
+GenerateDefine("TCB_pc", $offsetof_TCB_pc)
+GenerateDefine("TINIB_exinf", $offsetof_TINIB_exinf)
+GenerateDefine("TINIB_task", $offsetof_TINIB_task)
+GenerateDefine("TINIB_stksz", $offsetof_TINIB_stksz)
+GenerateDefine("TINIB_stk", $offsetof_TINIB_stk)
+GenerateDefine("T_EXCINF_cpsr", $offsetof_T_EXCINF_cpsr)
+$offsetH.append(<<EOS)
+#define TCB_p_tinib             #{$offsetof_TCB_p_tinib}
+#define TCB_sp                  #{$offsetof_TCB_sp}
+#define TCB_pc                  #{$offsetof_TCB_pc}
+#define TINIB_tskatr    #{$offsetof_TINIB_tskatr}
+#define TINIB_exinf             #{$offsetof_TINIB_exinf}
+#define TINIB_task              #{$offsetof_TINIB_task}
+#define TINIB_stksz             #{$offsetof_TINIB_stksz}
+#define TINIB_stk               #{$offsetof_TINIB_stk}
+#define T_EXCINF_cpsr   #{$offsetof_T_EXCINF_cpsr}
+EOS

EcnlProtoTool/trunk/asp3_dcre/arch/arm_gcc/common/core_rename.def

-              r331
+              r429
 dabort_handler
 fiq_handler
-current_cpsr
-set_cpsr
 # core_kernel_impl.c
 excpt_nest_count
 arm_mmu_initialize
+arm_fpu_initialize
 core_initialize
 core_terminate
 …
 default_int_handler
 default_exc_handler
+# mpcore_kernel_impl.c
+mpcore_initialize
+mpcore_terminate
+# mpcore_timer.c
+target_hrt_initialize
+target_hrt_terminate
+target_hrt_handler
+target_ovrtimer_initialize
+target_ovrtimer_terminate
+target_ovrtimer_handler
 # gic_kernel_impl.c
 …
 pl310_invalidate_all
 pl310_clean_and_invalidate_all
-# target_kernel_impl.c
-arm_tnum_memory_area
-arm_memory_area

EcnlProtoTool/trunk/asp3_dcre/arch/arm_gcc/common/core_rename.h

-              r321
+              r429
 #define dabort_handler                          _kernel_dabort_handler
 #define fiq_handler                                     _kernel_fiq_handler
-#define current_cpsr                            _kernel_current_cpsr
-#define set_cpsr                                        _kernel_set_cpsr
 /*
 …
 #define excpt_nest_count                        _kernel_excpt_nest_count
 #define arm_mmu_initialize                      _kernel_arm_mmu_initialize
+#define arm_fpu_initialize                      _kernel_arm_fpu_initialize
 #define core_initialize                         _kernel_core_initialize
 #define core_terminate                          _kernel_core_terminate
 …
 #define default_int_handler                     _kernel_default_int_handler
 #define default_exc_handler                     _kernel_default_exc_handler
+/*
+ *  mpcore_kernel_impl.c
+ */
+#define mpcore_initialize                       _kernel_mpcore_initialize
+#define mpcore_terminate                        _kernel_mpcore_terminate
+/*
+ *  mpcore_timer.c
+ */
+#define target_hrt_initialize           _kernel_target_hrt_initialize
+#define target_hrt_terminate            _kernel_target_hrt_terminate
+#define target_hrt_handler                      _kernel_target_hrt_handler
+#define target_ovrtimer_initialize      _kernel_target_ovrtimer_initialize
+#define target_ovrtimer_terminate       _kernel_target_ovrtimer_terminate
+#define target_ovrtimer_handler         _kernel_target_ovrtimer_handler
 /*
 …
 #define pl310_clean_and_invalidate_all  _kernel_pl310_clean_and_invalidate_all
-/*
- *  target_kernel_impl.c
- */
-#define arm_tnum_memory_area            _kernel_arm_tnum_memory_area
-#define arm_memory_area                         _kernel_arm_memory_area
 #endif /* TOPPERS_CORE_RENAME_H */

EcnlProtoTool/trunk/asp3_dcre/arch/arm_gcc/common/core_sil.h

-              r321
+              r429
  *  Copyright (C) 2000-2003 by Embedded and Real-Time Systems Laboratory
  *                              Toyohashi Univ. of Technology, JAPAN
  *  Copyright (C) 2004-2016 by Embedded and Real-Time Systems Laboratory
+ *  Copyright (C) 2004-2018 by Embedded and Real-Time Systems Laboratory
  *              Graduate School of Information Science, Nagoya Univ., JAPAN
+ *
 …
  *  ステータスレジスタ（CPSR）の現在値の読出し
  */
 extern uint32_t current_cpsr(void);
 #define TOPPERS_current_cpsr()  current_cpsr()
+extern uint32_t _kernel_current_cpsr(void);
+#define TOPPERS_current_cpsr()  _kernel_current_cpsr()
 /*
  *  ステータスレジスタ（CPSR）の現在値の変更
  */
 extern void set_cpsr(uint32_t cpsr);
 #define TOPPERS_set_cpsr(cpsr)  current_cpsr(cpsr)
+extern void _kernel_set_cpsr(uint32_t cpsr);
+#define TOPPERS_set_cpsr(cpsr)  _kernel_set_cpsr(cpsr)
 #endif /* __thumb__ */
 …
 #define SIL_UNL_INT()   (TOPPERS_set_fiq_irq(TOPPERS_fiq_irq_mask))
+/*
+ *  メモリ同期バリア
+ */
+#ifdef DATA_SYNC_BARRIER
+#define TOPPERS_SIL_WRITE_SYNC()        DATA_SYNC_BARRIER()
+#elif __TARGET_ARCH_ARM <= 6
+#define TOPPERS_SIL_WRITE_SYNC() \
+                                                Asm("mcr p15, 0, %0, c7, c10, 4"::"r"(0):"memory")
+#else /* __TARGET_ARCH_ARM <= 6 */
+#define TOPPERS_SIL_WRITE_SYNC()        Asm("dsb":::"memory")
+#endif
 #endif /* TOPPERS_MACRO_ONLY */
 #endif /* TOPPERS_CORE_SIL_H */

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

-              r331
+              r429
  *  Copyright (C) 2000-2004 by Embedded and Real-Time Systems Laboratory
  *                              Toyohashi Univ. of Technology, JAPAN
  *  Copyright (C) 2006-2017 by Embedded and Real-Time Systems Laboratory
+ *  Copyright (C) 2006-2019 by Embedded and Real-Time Systems Laboratory
  *              Graduate School of Information Science, Nagoya Univ., JAPAN
+ *
 …
 /*
+ *  使用する命令セットの定義
+ */
+#ifdef USE_ARM_FPU
+        .fpu    vfpv3
+#endif /* USE_ARM_FPU */
+/*
  *  例外ベクタ
  */
 …
          *  マスク全解除状態・ディスパッチ許可状態で呼び出される．
          */
+        push    {r12,lr}                                /* 戻り番地を保存，r12はダミー */
+        push    {r12,lr}                                /* 戻り番地（lr）を保存 */
+                                                                        /* r12はアラインメントのため */
 #ifdef TOPPERS_SUPPORT_OVRHDR
         bl              ovrtimer_stop
 #endif /* TOPPERS_SUPPORT_OVRHDR */
         stmfd   sp!, {r4-r11}                   /* 非スクラッチレジスタの保存 */
+        push    {r4-r11}                                /* 非スクラッチレジスタの保存 */
         ldr             r0, =p_runtsk                   /* p_runtsk → r0 */
         ldr             r0, [r0]
+#ifdef USE_ARM_FPU
+        ldr             r2, [r0,#TCB_p_tinib]   /* p_runtsk->p_tinib → r2 */
+        ldr             r1, [r2,#TINIB_tskatr]  /* p_runtsk->p_tinib->tskatr → r1 */
+        tst             r1, #TA_FPU
+        beq             1f
+        vpush   {d8-d15}                                /* 非スクラッチFPUレジスタの保存 */
+:
+#endif /* USE_ARM_FPU */
         str             sp, [r0,#TCB_sp]                /* スタックポインタを保存 */
         adr             r1, dispatch_r
 …
 ALABEL(dispatch_r)
+        ldmfd   sp!, {r4-r11}                   /* 非スクラッチレジスタの復帰 */
+        /*
+         * 【この時点のレジスタ状態】
+         *  r4：p_runtsk（タスク切換え後）
+         */
+#ifdef USE_ARM_FPU
+        ldr             r2, [r4,#TCB_p_tinib]   /* p_runtsk->p_tinib → r2 */
+        ldr             r1, [r2,#TINIB_tskatr]  /* p_runtsk->p_tinib->tskatr → r1 */
+        tst             r1, #TA_FPU
+        vmrs    r0, fpexc
+        biceq   r0, r0, #FPEXC_ENABLE
+        orrne   r0, r0, #FPEXC_ENABLE
+        vmsr    fpexc, r0                               /* FPEXCを設定 */
+        beq             1f
+        vpop    {d8-d15}                                /* 非スクラッチFPUレジスタの復帰 */
+:
+#endif /* USE_ARM_FPU */
+        pop             {r4-r11}                                /* 非スクラッチレジスタの復帰 */
 #ifdef TOPPERS_SUPPORT_OVRHDR
         bl              ovrtimer_start
 …
         /*
+         *  各種のデバイス（特に割込みコントローラ）の設定が完了するのを待つ．
+         */
+        asm_data_sync_barrier r0
+        /*
          *      タスクコンテキストに切り換える．
          */
 …
         bl              log_dsp_enter
 #endif /* LOG_DSP_ENTER */
 ALABEL(dispatcher_0)
         /*
 …
 ALABEL(call_exit_kernel)
         msr             cpsr_c, #(CPSR_SVC_MODE AOR CPSR_INTLOCK)
         ldr             r0, =istkpt                             /* 非タスクコンテキストのスタックへ */
+        ldr             r0, =istkpt                             /* 非タスクコンテキスト用のスタックに */
         ldr             sp, [r0]
+        ldr             r0, =excpt_nest_count   /* 例外ネストカウントを1に */
+        mov             r1, #1
+        str             r1, [r0]
         b               exit_kernel
 …
         AGLOBAL(start_r)
         /*
+         *  ディスパッチャ本体から呼び出されるため，p_runtskはr4に入っている．
+         * 【この時点のレジスタ状態】
+         *  r4：p_runtsk（タスク切換え後）
          */
 ALABEL(start_r)
 …
         ldr             lr, =ext_tsk                    /* タスク本体からの戻り番地を設定 */
         ldr             r2, [r4,#TCB_p_tinib]   /* p_runtsk->p_tinib → r2 */
+#ifdef USE_ARM_FPU
+        ldr             r1, [r2,#TINIB_tskatr]  /* p_runtsk->p_tinib->tskatr → r1 */
+        tst             r1, #TA_FPU
+        vmrs    r0, fpexc
+        biceq   r0, r0, #FPEXC_ENABLE
+        orrne   r0, r0, #FPEXC_ENABLE
+        vmsr    fpexc, r0                               /* FPEXCを設定 */
+#endif /* USE_ARM_FPU */
         ldr             r0, [r2,#TINIB_exinf]   /* exinfをパラメータに */
         ldr             r1, [r2,#TINIB_task]    /* タスク起動番地にジャンプ */
 …
 #if __TARGET_ARCH_ARM < 6
         /*
          *  スーパバイザモードに切り換え，スクラッチレジスタを保存する．
+         *  スーパバイザモードに切り換え，スクラッチレジスタ＋αを保存する．
          */
         msr             cpsr_c, #(CPSR_SVC_MODE AOR CPSR_IRQ_BIT)
+        stmfd   sp!, {r0-r5,r12,lr,pc}          /* pcはスペース確保のため */
+        /*
+         *  IRQモードに戻して，戻り番地とspsr（戻り先のcpsr）を取得する．
+        push    {r0-r5,r12,lr,pc}               /* pcはスペース確保のため */
+        /*
+         *  IRQモードに戻して，戻り番地（lr-4）と戻り先のcpsr（spsr）を取
+         *  得する．
          */
         msr             cpsr_c, #(CPSR_IRQ_MODE AOR CPSR_IRQ_BIT)
 …
         /*
          *  スーパバイザモードに切り換え，戻り番地とspsrを保存する．
+         *  スーパバイザモードに切り換え，戻り番地と戻り先のcpsrを保存する．
          */
         msr             cpsr_c, #(CPSR_SVC_MODE AOR CPSR_IRQ_BIT)
         str             r2, [sp,#0x20]                  /* 戻り番地をスタックに保存 */
         push    {r1}                                    /* spsrをスタックに保存 */
+        str             r2, [sp,#0x20]                  /* 戻り番地をスタックに保存（pcの場所）*/
+        push    {r1}                                    /* 戻り先のcpsrをスタックに保存 */
 #else /* __TARGET_ARCH_ARM < 6 */
         /*
          *  戻り先（lr）とspsr（cpsr_svc）をスーパバイザモードのスタックに
          *  保存する．
+         *  戻り番地（lr）と戻り先のcpsr（spsr）をスーパバイザモードのスタッ
+         *  クに保存する．
          */
         sub             lr, lr, #4                              /* 戻り番地の算出 */
 …
         /*
          *  スーパバイザモードに切り換え，スクラッチレジスタを保存する．
+         *  スーパバイザモードに切り換え，スクラッチレジスタ＋αを保存する．
          */
         cps             #CPSR_SVC_MODE
         stmfd   sp!, {r0-r5,r12,lr}
+        push    {r0-r5,r12,lr}
 #endif /* __TARGET_ARCH_ARM < 6 */
 …
         and             r1, sp, #4
         sub             sp, sp, r1
         push    {r0,r1}                                 /* r0はスペース確保のため */
+        push    {r0,r1}                                 /* スタックポインタの調整値を保存 */
+                                                                        /* r0はスペース確保のため */
         /*
          *  例外ネストカウントをインクリメントする．割込みが非タスクコンテキ
 …
 #endif /* TOPPERS_SUPPORT_OVRHDR */
+#ifdef USE_ARM_FPU
+        /*
+         *  FPUをディスエーブルする．
+         */
+        vmrs    r0, fpexc
+        str             r0, [sp]                                /* FPEXCを保存（r0の場所）*/
+        bic             r0, r0, #FPEXC_ENABLE
+        vmsr    fpexc, r0                               /* FPEXCを設定 */
+#endif /* USE_ARM_FPU */
         /*
          *  非タスクコンテキスト用のスタックに切り換える．
 …
         /*
          *  割込みコントローラを操作し，割込み番号を取得する．
+         *
+         *  irc_begin_intは，スタックトップ（r0の場所）に，irc_end_intで用
+         *  いる情報を保存する．
          */
         bl              irc_begin_int
 …
 #else /* TNUM_INHNO <= 256 || __TARGET_ARCH_ARM <= 6 */
         movw    r3, #TNUM_INHNO
         cmp             r4, r3
+        cmp             r4, r3
 #endif /* TNUM_INHNO <= 256 || __TARGET_ARCH_ARM <= 6 */
         bhs             irq_handler_2                   /* スプリアス割込みなら */
 …
         mov     sp, r3
+#ifdef USE_ARM_FPU
+        /*
+         *  FPUを元に戻す．
+         */
+        ldr             r0, [sp]                                /* FPEXCを復帰 */
+        vmsr    fpexc, r0
+#endif /* USE_ARM_FPU */
         /*
          *  p_runtskがNULLか判定する．
 …
         pop             {r0,r1}                                 /* スタックポインタの調整を元に戻す */
         add             sp, sp, r1
         add             sp, sp, #40                             /* スクラッチレジスタを捨てる */
+        add             sp, sp, #40                             /* スクラッチレジスタ等を捨てる */
         b               dispatcher_0
 …
          */
 ALABEL(irq_handler_3)
+        /*
+         * 【この時点のレジスタ状態】
+         *  r0：p_runtsk
+         */
         ldr             r1, =p_schedtsk                 /* p_schedtsk → r1 */
         ldr             r1, [r1]
 …
          *  コンテキストを保存する．
          */
+        stmfd   sp!, {r6-r11}                   /* 非スクラッチレジスタの保存 */
+        push    {r6-r11}                                /* 残りのレジスタの保存 */
+#ifdef USE_ARM_FPU
+        ldr             r2, [r0,#TCB_p_tinib]   /* p_runtsk->p_tinib → r2 */
+        ldr             r1, [r2,#TINIB_tskatr]  /* p_runtsk->p_tinib->tskatr → r1 */
+        tst             r1, #TA_FPU
+        beq             1f                                              /* TA_FPU属性でない場合は分岐 */
+#ifdef USE_ARM_FPU_D32
+        vpush   {d16-d31}
+#endif /* USE_ARM_FPU_D32 */
+        vpush   {d0-d15}                                /* 全FPUレジスタの保存 */
+        vmrs    r1, fpscr
+        push    {r1,r2}                                 /* FPSCRの保存 */
+:                                                                      /* r2はアラインメントのため */
+#endif /* USE_ARM_FPU */
         str             sp, [r0,#TCB_sp]                /* スタックポインタを保存 */
         adr             r1, ret_int_r                   /* 実行再開番地を保存 */
 …
         /*
          *  コンテキストを復帰する．
+         */
+        ldmfd   sp!, {r6-r11}                   /* 非スクラッチレジスタの復帰 */
+         *
+         * 【この時点のレジスタ状態】
+         *  r4：p_runtsk（タスク切換え後）
+         */
+#ifdef USE_ARM_FPU
+        ldr             r2, [r4,#TCB_p_tinib]   /* p_runtsk->p_tinib → r2 */
+        ldr             r1, [r2,#TINIB_tskatr]  /* p_runtsk->p_tinib->tskatr → r1 */
+        tst             r1, #TA_FPU
+        vmrs    r0, fpexc
+        biceq   r0, r0, #FPEXC_ENABLE
+        orrne   r0, r0, #FPEXC_ENABLE
+        vmsr    fpexc, r0                               /* FPEXCを設定 */
+        beq             1f                                              /* TA_FPU属性でない場合は分岐 */
+        pop             {r1,r2}                                 /* FPSCRの復帰 */
+        vmsr    fpscr, r1
+        vpop    {d0-d15}                                /* 全FPUレジスタの復帰 */
+#ifdef USE_ARM_FPU_D32
+        vpop    {d16-d31}
+#endif /* USE_ARM_FPU_D32 */
+:
+#endif /* USE_ARM_FPU */
+        pop             {r6-r11}                                /* 残りのレジスタの復帰 */
 ALABEL(irq_handler_4)
 …
         /*
          *  割込み／CPU例外処理からのリターン
+         *  割込み処理からのリターン
+         *
          *  割込み／CPU例外処理からのリターンにより，CPUロック解除状態に遷
          *  移するようにする必要があるが，ARMはCPSRのビットによってCPUロッ
          *  ク状態を表しているため，CPSRを元に戻してリターンすればよい．
+         *  割込み処理からのリターンにより，CPUロック解除状態に遷移するよ
+         *  うにする必要があるが，ARMはCPSRのビットによってCPUロック状態を
+         *  表しているため，CPSRを元に戻してリターンすればよい．
          */
 ALABEL(irq_handler_5)
 …
 #if __TARGET_ARCH_ARM < 6
         ldmfd   sp!, {r0}                               /* 戻り先のcpsrをspsrに設定 */
+        pop             {r0}                                    /* 戻り先のcpsrをspsrに設定 */
         msr             spsr_cxsf, r0
         ldmfd   sp!, {r0-r5,r12,lr,pc}^ /* コンテキストの復帰 */
                                                                         /* ^付きなので，spsr → cpsr */
 #else /* __TARGET_ARCH_ARM < 6 */
         ldmfd   sp!, {r0-r5,r12,lr}
+        pop             {r0-r5,r12,lr}                  /* スクラッチレジスタ＋αの復帰 */
         rfefd   sp!
 #endif /* __TARGET_ARCH_ARM < 6 */
 …
         /*
          *  IビットとFビットをセットし，スーパバイザモードに切り換え，スク
          *  ラッチレジスタを保存する．
+         *  ラッチレジスタ＋αを保存する．
          */
         msr             cpsr_c, #(CPSR_SVC_MODE AOR CPSR_FIQ_IRQ_BIT)
+        stmfd   sp!, {r0-r5,r12,lr,pc}          /* pcはスペース確保のため */
+        /*
+         *  未定義モードに戻して，戻り番地とspsrを取得する．
+        push    {r0-r5,r12,lr,pc}               /* pcはスペース確保のため */
+        /*
+         *  未定義モードに戻して，戻り番地（lr）と戻り先のcpsr（spsr）を取
+         *  得する．
          */
         msr             cpsr_c, #(CPSR_UND_MODE AOR CPSR_FIQ_IRQ_BIT)
 …
         /*
          *  スーパバイザモードに切り換え，戻り番地とspsrを保存する．
+         *  スーパバイザモードに切り換え，戻り番地と戻り先のcpsrを保存する．
          */
         msr             cpsr_c, #(CPSR_SVC_MODE AOR CPSR_FIQ_IRQ_BIT)
         str             r2, [sp,#0x20]                  /* 戻り番地をスタックに保存 */
         push    {r1}                                    /* spsrをスタックに保存 */
+        str             r2, [sp,#0x20]                  /* 戻り番地をスタックに保存（pcの場所）*/
+        push    {r1}                                    /* 戻り先のcpsrをスタックに保存 */
 #else /* __TARGET_ARCH_ARM < 6 */
         /*
          *  戻り先（lr）とspsr（cpsr_svc）をスーパバイザモードのスタックに
          *  保存する．
+         *  戻り番地（lr）と戻り先のcpsr（spsr）をスーパバイザモードのスタッ
+         *  クに保存する．
          */
         srsfd   #CPSR_SVC_MODE!
         /*
          *  スーパバイザモードに切り換え，スクラッチレジスタを保存する．
+         *  スーパバイザモードに切り換え，スクラッチレジスタ＋αを保存する．
          */
         cps             #CPSR_SVC_MODE
         stmfd   sp!, {r0-r5,r12,lr}
+        push    {r0-r5,r12,lr}
 #endif /* __TARGET_ARCH_ARM < 6 */
         mov             r4, #EXCNO_UNDEF
 …
 #if __TARGET_ARCH_ARM < 6
         /*
+         *  IビットとFビットをセットし，スクラッチレジスタを保存する．
+         *  IビットとFビットをセットし，戻り番地（lr），スクラッチレジスタ
+         *  ＋α，戻り先のcpsr（spsr）を保存する（lrは二重に保存される）．
          */
         msr             cpsr_c, #(CPSR_SVC_MODE AOR CPSR_FIQ_IRQ_BIT)
+        stmfd   sp!, {r0-r5,r12,lr,pc}          /* pcはスペース確保のため */
+        /*
+         *  戻り番地とspsrを取得する．
+         */
+        mov             r2, lr
+        push    {lr}
+        push    {r0-r5,r12,lr}
         mrs             r1, spsr
+        /*
+         *  戻り番地とspsrを保存する．
+         */
+        str             r2, [sp,#0x20]                  /* 戻り番地をスタックに保存 */
+        push    {r1}                                    /* spsrをスタックに保存 */
+        push    {r1}
 #else /* __TARGET_ARCH_ARM < 6 */
         /*
          *  戻り先（lr）とspsr（cpsr_svc）をスーパバイザモードのスタックに
          *  保存する．
+         *  戻り番地（lr）と戻り先のcpsr（spsr）をスーパバイザモードのスタッ
+         *  クに保存する．
          */
         srsfd   #CPSR_SVC_MODE!
         /*
+         *  スーパバイザモードで，スクラッチレジスタを保存する．
+         */
+        cps             #CPSR_SVC_MODE                  /* 不要と思われる */
+        stmfd   sp!, {r0-r5,r12,lr}
+         *  スーパバイザモードで，スクラッチレジスタ＋αを保存する．
+         */
+        push    {r0-r5,r12,lr}
 #endif /* __TARGET_ARCH_ARM < 6 */
         mov             r4, #EXCNO_SVC
 …
         /*
          *  IビットとFビットをセットし，スーパバイザモードに切り換え，スク
          *  ラッチレジスタを保存する．
+         *  ラッチレジスタ＋αを保存する．
          */
         msr             cpsr_c, #(CPSR_SVC_MODE AOR CPSR_FIQ_IRQ_BIT)
+        stmfd   sp!, {r0-r5,r12,lr,pc}          /* pcはスペース確保のため */
+        /*
+         *  アボートモードに戻して，戻り番地とspsrを取得する．
+        push    {r0-r5,r12,lr,pc}               /* pcはスペース確保のため */
+        /*
+         *  アボートモードに戻して，戻り番地（lr）と戻り先のcpsr（spsr）を
+         *  取得する．
          */
         msr             cpsr_c, #(CPSR_ABT_MODE AOR CPSR_FIQ_IRQ_BIT)
 …
         /*
          *  スーパバイザモードに切り換え，戻り番地とspsrを保存する．
+         *  スーパバイザモードに切り換え，戻り番地と戻り先のcpsrを保存する．
          */
         msr             cpsr_c, #(CPSR_SVC_MODE AOR CPSR_FIQ_IRQ_BIT)
         str             r2, [sp,#0x20]                  /* 戻り番地をスタックに保存 */
         push    {r1}                                    /* spsrをスタックに保存 */
+        str             r2, [sp,#0x20]                  /* 戻り番地をスタックに保存（pcの場所）*/
+        push    {r1}                                    /* 戻り先のcpsrをスタックに保存 */
 #else /* __TARGET_ARCH_ARM < 6 */
         /*
          *  戻り先（lr）とspsr（cpsr_svc）をスーパバイザモードのスタックに
          *  保存する．
+         *  戻り番地（lr）と戻り先のcpsr（spsr）をスーパバイザモードのスタッ
+         *  クに保存する．
          */
         srsfd   #CPSR_SVC_MODE!
         /*
          *  スーパバイザモードに切り換え，スクラッチレジスタを保存する．
+         *  スーパバイザモードに切り換え，スクラッチレジスタ＋αを保存する．
          */
         cps             #CPSR_SVC_MODE
         stmfd   sp!, {r0-r5,r12,lr}
+        push    {r0-r5,r12,lr}
 #endif /* __TARGET_ARCH_ARM < 6 */
         mov             r4, #EXCNO_PABORT
 …
          *  データアボートが，CPU例外の入口（start_exc_entryとend_exc_entry
          *  の間）で発生した場合には，fatal_dabort_handlerに分岐する．アボー
          *  トモードのspを汎用レジスタの代わりに使用する．
          */
         ldr             sp, =start_exc_entry+8
         cmp             lr, sp
+         *  トモードのspを汎用レジスタの代わりに使用する（r13と記述している）．
+         */
+        adr             r13, start_exc_entry+8
+        cmp             lr, r13
         bcc             dabort_handler_1
         ldr             sp, =end_exc_entry+8
         cmp             lr, sp
+        adr             r13, end_exc_entry+8
+        cmp             lr, r13
         bcc             fatal_dabort_handler
 …
         /*
          *  IビットとFビットをセットし，スーパバイザモードに切り換え，スク
          *  ラッチレジスタを保存する．
+         *  ラッチレジスタ＋αを保存する．
          */
         msr             cpsr_c, #(CPSR_SVC_MODE AOR CPSR_FIQ_IRQ_BIT)
+        stmfd   sp!, {r0-r5,r12,lr,pc}          /* pcはスペース確保のため */
+        /*
+         *  アボートモードに戻して，戻り番地とspsrを取得する．
+        push    {r0-r5,r12,lr,pc}               /* pcはスペース確保のため */
+        /*
+         *  アボートモードに戻して，戻り番地（lr）と戻り先のcpsr（spsr）を
+         *  取得する．
          */
         msr             cpsr_c, #(CPSR_ABT_MODE AOR CPSR_FIQ_IRQ_BIT)
 …
         /*
          *  スーパバイザモードに切り換え，戻り番地とspsrを保存する．
+         *  スーパバイザモードに切り換え，戻り番地と戻り先のcpsrを保存する．
          */
         msr             cpsr_c, #(CPSR_SVC_MODE AOR CPSR_FIQ_IRQ_BIT)
         str             r2, [sp,#0x20]                  /* 戻り番地をスタックに保存 */
         push    {r1}                                    /* spsrをスタックに保存 */
+        str             r2, [sp,#0x20]                  /* 戻り番地をスタックに保存（pcの場所）*/
+        push    {r1}                                    /* 戻り先のcpsrをスタックに保存 */
 #else /* __TARGET_ARCH_ARM < 6 */
         /*
          *  戻り先（lr）とspsr（cpsr_svc）をスーパバイザモードのスタックに
          *  保存する．
+         *  戻り番地（lr）と戻り先のcpsr（spsr）をスーパバイザモードのスタッ
+         *  クに保存する．
          */
         srsfd   #CPSR_SVC_MODE!
         /*
          *  スーパバイザモードに切り換え，スクラッチレジスタを保存する．
+         *  スーパバイザモードに切り換え，スクラッチレジスタ＋αを保存する．
          */
         cps             #CPSR_SVC_MODE
         stmfd   sp!, {r0-r5,r12,lr}
+        push    {r0-r5,r12,lr}
 #endif /* __TARGET_ARCH_ARM < 6 */
         mov             r4, #EXCNO_DABORT
         b               exc_handler_1
-#endif /* OMIT_DABORT_HANDLER */
 /*
 …
         /*
          *  IビットとFビットをセットし，スーパバイザモードに切り換え，スタッ
          *  クポインタを初期化し，スクラッチレジスタを保存する．
+         *  クポインタを初期化し，スクラッチレジスタ＋αを保存する．
          */
         msr             cpsr_c, #(CPSR_SVC_MODE AOR CPSR_FIQ_IRQ_BIT)
         ldr             sp, =istkpt
         ldr             sp, [sp]
+        stmfd   sp!, {r0-r5,r12,lr,pc}          /* pcはスペース確保のため */
+        /*
+         *  アボートモードに戻して，戻り番地とspsrを取得する．
+        push    {r0-r5,r12,lr,pc}               /* pcはスペース確保のため */
+        /*
+         *  アボートモードに戻して，戻り番地（lr）と戻り先のcpsr（spsr）を
+         *  取得する．
          */
         msr             cpsr_c, #(CPSR_ABT_MODE AOR CPSR_FIQ_IRQ_BIT)
 …
         /*
          *  スーパバイザモードに切り換え，戻り番地とspsrを保存する．
+         *  スーパバイザモードに切り換え，戻り番地と戻り先のcpsrを保存する．
          */
         msr             cpsr_c, #(CPSR_SVC_MODE AOR CPSR_FIQ_IRQ_BIT)
         str             r2, [sp,#0x20]                  /* 戻り番地をスタックに保存 */
         push    {r1}                                    /* spsrをスタックに保存 */
+        str             r2, [sp,#0x20]                  /* 戻り番地をスタックに保存（pcの場所）*/
+        push    {r1}                                    /* 戻り先のcpsrをスタックに保存 */
 #else /* __TARGET_ARCH_ARM < 6 */
         /*
 …
         /*
          *  アボートモードに戻して，戻り先（lr）とspsr（cpsr_svc）をスーパ
          *  バイザモードのスタックに保存する．
+         *  アボートモードに戻して，戻り番地（lr）と戻り先のcpsr（spsr）を
+         *  スーパバイザモードのスタックに保存する．
          */
         cps             #CPSR_ABT_MODE
 …
         /*
          *  スーパバイザモードに切り換え，スクラッチレジスタを保存する．
+         *  スーパバイザモードに切り換え，スクラッチレジスタ＋αを保存する．
          */
         cps             #CPSR_SVC_MODE
         stmfd   sp!, {r0-r5,r12,lr}
+        push    {r0-r5,r12,lr}
 #endif /* __TARGET_ARCH_ARM < 6 */
         /*
          *  例外ネストカウントの最上位ビットを1にする．
+         *  例外ネストカウントをインクリメントする．
          */
         ldr             r2, =excpt_nest_count
         ldr             r3, [r2]
         orr             r3, r3, #0x80000000
+        add             r3, r3, #1
         str             r3, [r2]
         mov             r4, #EXCNO_DABORT
+        mov             r4, #EXCNO_FATAL
         b               exc_handler_1
+#endif /* OMIT_DABORT_HANDLER */
 /*
 …
         /*
          *  IビットとFビットをセットし，スーパバイザモードに切り換え，スク
          *  ラッチレジスタを保存する．
+         *  ラッチレジスタ＋αを保存する．
          */
         msr             cpsr_c, #(CPSR_SVC_MODE AOR CPSR_FIQ_IRQ_BIT)
+        stmfd   sp!, {r0-r5,r12,lr,pc}          /* pcはスペース確保のため */
+        /*
+         *  FIQモードに戻して，戻り番地とspsrを取得する．
+        push    {r0-r5,r12,lr,pc}               /* pcはスペース確保のため */
+        /*
+         *  FIQモードに戻して，戻り番地（lr）と戻り先のcpsr（spsr）を取得
+         *  する．
          */
         msr             cpsr_c, #(CPSR_FIQ_MODE AOR CPSR_FIQ_IRQ_BIT)
 …
         /*
          *  スーパバイザモードに切り換え，戻り番地とspsrを保存する．
+         *  スーパバイザモードに切り換え，戻り番地と戻り先のcpsrを保存する．
          */
         msr             cpsr_c, #(CPSR_SVC_MODE AOR CPSR_FIQ_IRQ_BIT)
         str             r2, [sp,#0x20]                  /* 戻り番地をスタックに保存 */
         push    {r1}                                    /* spsrをスタックに保存 */
+        str             r2, [sp,#0x20]                  /* 戻り番地をスタックに保存（pcの場所）*/
+        push    {r1}                                    /* 戻り先のcpsrをスタックに保存 */
 #else /* __TARGET_ARCH_ARM < 6 */
         /*
          *  戻り先（lr）とspsr（cpsr_svc）をスーパバイザモードのスタックに
          *  保存する．
+         *  戻り番地（lr）と戻り先のcpsr（spsr）をスーパバイザモードのスタッ
+         *  クに保存する．
          */
         srsfd   #CPSR_SVC_MODE!
         /*
          *  スーパバイザモードに切り換え，スクラッチレジスタを保存する．
+         *  スーパバイザモードに切り換え，スクラッチレジスタ＋αを保存する．
          */
         cps             #CPSR_SVC_MODE
         stmfd   sp!, {r0-r5,r12,lr}
+        push    {r0-r5,r12,lr}
 #endif /* __TARGET_ARCH_ARM < 6 */
         mov             r4, #EXCNO_FIQ
         b               exc_handler_1
 #endif /* OMIT_FIQ_HANDLER */
 ALABEL(end_exc_entry)
 /*
  *  CPU例外ハンドラ出入口処理の共通部分
+ *
- * 【この時点のレジスタ状態】
- *  r4：CPU例外ハンドラ番号
  */
 ALABEL(exc_handler_1)
         /*
+         * 【この時点のレジスタ状態】
+         *  r4：CPU例外ハンドラ番号
+         *
          *  CPU例外が発生した状況の判断に用いるために，CPU例外発生前の割
          *  込み優先度マスクと例外ネストカウントをスタックに保存する．
 …
         and             r1, sp, #4
         sub             sp, sp, r1
         push    {r0,r1}                                 /* r0はスペース確保のため */
+        push    {r0,r1}                                 /* スタックポインタの調整値を保存 */
+                                                                        /* r0はスペース確保のため */
         /*
          *  カーネル管理外のCPU例外か判定する
 …
 #endif /* TOPPERS_SUPPORT_OVRHDR */
+#ifdef USE_ARM_FPU
+        /*
+         *  FPUをディスエーブルする．
+         */
+        vmrs    r0, fpexc
+        str             r0, [sp]                                /* FPEXCを保存（r0の場所）*/
+        bic             r0, r0, #FPEXC_ENABLE
+        vmsr    fpexc, r0                               /* FPEXCを設定 */
+#endif /* USE_ARM_FPU */
         /*
          *  非タスクコンテキスト用のスタックに切り換える．
 …
         /*
          *  （必要なら）割込みコントローラを操作する．
+         *
+         *  irc_begin_excは，スタックトップ（r0の場所）に，irc_end_excで用
+         *  いる情報を保存する．
          */
         bl              irc_begin_exc
 …
         mov             sp, r3
+#ifdef USE_ARM_FPU
+        /*
+         *  FPUを元に戻す．
+         */
+        ldr             r0, [sp]                                /* FPEXCを復帰 */
+        vmsr    fpexc, r0
+#endif /* USE_ARM_FPU */
         /*
          *  p_runtskがNULLか判定する．
 …
          */
 ALABEL(exc_handler_3)
+        /*
+         * 【この時点のレジスタ状態】
+         *  r0：p_runtsk
+         */
         ldr             r1, =p_schedtsk                 /* p_schedtsk → r1 */
         ldr             r1, [r1]
 …
          *  コンテキストを保存する．
          */
+        stmfd   sp!, {r6-r11}                   /* 非スクラッチレジスタの保存 */
+        push    {r6-r11}                                /* 残りのレジスタの保存 */
+#ifdef USE_ARM_FPU
+        ldr             r2, [r0,#TCB_p_tinib]   /* p_runtsk->p_tinib → r2 */
+        ldr             r1, [r2,#TINIB_tskatr]  /* p_runtsk->p_tinib->tskatr → r1 */
+        tst             r1, #TA_FPU
+        beq             1f                                              /* TA_FPU属性でない場合は分岐 */
+#ifdef USE_ARM_FPU_D32
+        vpush   {d16-d31}
+#endif /* USE_ARM_FPU_D32 */
+        vpush   {d0-d15}                                /* 全FPUレジスタの保存 */
+        vmrs    r1, fpscr
+        push    {r1,r2}                                 /* FPSCRの保存 */
+:                                                                      /* r2はアラインメントのため */
+#endif /* USE_ARM_FPU */
         str             sp, [r0,#TCB_sp]                /* スタックポインタを保存 */
         adr             r1, ret_exc_r                   /* 実行再開番地を保存 */
 …
         /*
          *  コンテキストを復帰する．
+         */
+        ldmfd   sp!, {r6-r11}                   /* 非スクラッチレジスタの復帰 */
+         *
+         * 【この時点のレジスタ状態】
+         *  r4：p_runtsk（タスク切換え後）
+         */
+#ifdef USE_ARM_FPU
+        ldr             r2, [r4,#TCB_p_tinib]   /* p_runtsk->p_tinib → r2 */
+        ldr             r1, [r2,#TINIB_tskatr]  /* p_runtsk->p_tinib->tskatr → r1 */
+        tst             r1, #TA_FPU
+        vmrs    r0, fpexc
+        biceq   r0, r0, #FPEXC_ENABLE
+        orrne   r0, r0, #FPEXC_ENABLE
+        vmsr    fpexc, r0                               /* FPEXCを設定 */
+        beq             1f                                              /* TA_FPU属性でない場合は分岐 */
+        pop             {r1,r2}                                 /* FPSCRの復帰 */
+        vmsr    fpscr, r1
+        vpop    {d0-d15}                                /* 全FPUレジスタの復帰 */
+#ifdef USE_ARM_FPU_D32
+        vpop    {d16-d31}
+#endif /* USE_ARM_FPU_D32 */
+:
+#endif /* USE_ARM_FPU */
+        pop             {r6-r11}                                /* 残りのレジスタの復帰 */
 ALABEL(exc_handler_4)
 …
 #if __TARGET_ARCH_ARM < 6
         ldmfd   sp!, {r0}                               /* 戻り先のcpsrをspsrに設定 */
+        pop             {r0}                                    /* 戻り先のcpsrをspsrに設定 */
         msr             spsr_cxsf, r0
         ldmfd   sp!, {r0-r5,r12,lr,pc}^ /* コンテキストの復帰 */
                                                                         /* ^付きなので，spsr → cpsr */
 #else /* __TARGET_ARCH_ARM < 6 */
         ldmfd   sp!, {r0-r5,r12,lr}
+        pop             {r0-r5,r12,lr}                  /* スクラッチレジスタ＋αの復帰 */
         rfefd   sp!
 #endif /* __TARGET_ARCH_ARM < 6 */
 …
         bne             nk_exc_handler_2                /*                      ならnk_exc_handler_2に分岐 */
+#ifdef USE_ARM_FPU
+        /*
+         *  FPUをディスエーブルする．
+         */
+        vmrs    r0, fpexc
+        str             r0, [sp]                                /* FPEXCを保存（r0の場所）*/
+        bic             r0, r0, #FPEXC_ENABLE
+        vmsr    fpexc, r0                               /* FPEXCを設定 */
+#endif /* USE_ARM_FPU */
         /*
          *  非タスクコンテキスト用のスタックに切り換える．
 …
         ldr             sp, [r2]
         push    {r0,r3}                                 /* 切換え前のスタックポインタを保存 */
                                                                         /* r0はスペース確保のため */
+                                                                        /* r0はアラインメントのため */
 ALABEL(nk_exc_handler_2)
         /*
 …
         pop             {r0,r3}
         mov             sp, r3
+#ifdef USE_ARM_FPU
+        /*
+         *  FPUを元に戻す．
+         */
+        ldr             r0, [sp]                                /* FPEXCを復帰 */
+        vmsr    fpexc, r0
+#endif /* USE_ARM_FPU */
         b               exc_handler_5
 /*
  *  ステータスレジスタの操作関数
 …
         ATEXT
         AALIGN(2)
         AWEAK(current_cpsr)
 ALABEL(current_cpsr)
+        AWEAK(_kernel_current_cpsr)
+ALABEL(_kernel_current_cpsr)
         mrs             r0, cpsr_cxsf
         bx              lr
         AALIGN(2)
         AWEAK(set_cpsr)
 ALABEL(set_cpsr)
+        AWEAK(_kernel_set_cpsr)
+ALABEL(_kernel_set_cpsr)
         msr             cpsr_cxsf, r0
         bx              lr

EcnlProtoTool/trunk/asp3_dcre/arch/arm_gcc/common/core_sym.def

-              r331
+              r429
 TARGET_ARCH_ARM,__TARGET_ARCH_ARM
+USE_INTCFG_TABLE,true,bool,defined(USE_INTCFG_TABLE)
+USE_ARM_FPU,true,bool,defined(USE_ARM_FPU),false
+USE_ARM_FPU_D32,true,bool,defined(USE_ARM_FPU_D32),false
+USE_INTCFG_TABLE,true,bool,defined(USE_INTCFG_TABLE),false
+TA_FPU
 sizeof_TCB,sizeof(TCB)
 offsetof_TCB_p_tinib,"offsetof(TCB,p_tinib)"

EcnlProtoTool/trunk/asp3_dcre/arch/arm_gcc/common/core_test.h

-              r321
+              r429
  *      Advanced Standard Profile Kernel
+ *
  *  Copyright (C) 2006-2016 by Embedded and Real-Time Systems Laboratory
+ *  Copyright (C) 2006-2019 by Embedded and Real-Time Systems Laboratory
  *              Graduate School of Information Science, Nagoya Univ., JAPAN
+ *
 …
  *  の責任を負わない．
+ *
  *  $Id$
+ *  $Id: core_test.h 1244 2019-07-16 21:41:05Z ertl-hiro $
  */
 …
 /*
  *  CPU例外の発生
+ *  不正アドレスの定義（メモリのない番地に設定する）
  */
 #ifndef ILLEGAL_IADDR
 #define ILLEGAL_IADDR                   0xd0000000U             /* 不正命令アドレス */
 …
 /*
+ *  サンプルプログラムで用いるCPU例外の発生
+ */
+#if defined(USE_CPUEXC_SVC)
+#define CPUEXC1                                 EXCNO_SVC               /* スーパバイザコール */
+#define RAISE_CPU_EXCEPTION             RAISE_CPU_EXCEPTION_SVC
+#define PREPARE_RETURN_CPUEXC   PREPARE_RETURN_CPUEXC_SVC
+#elif defined(USE_CPUEXC_PABORT)
+#define CPUEXC1                                 EXCNO_PABORT    /* プリフェッチアボート */
+#define RAISE_CPU_EXCEPTION             RAISE_CPU_EXCEPTION_PABORT
+#define PREPARE_RETURN_CPUEXC   PREPARE_RETURN_CPUEXC_PABORT
+#elif defined(USE_CPUEXC_DABORT)
+#define CPUEXC1                                 EXCNO_DABORT    /* データアボート */
+#define RAISE_CPU_EXCEPTION             RAISE_CPU_EXCEPTION_DABORT
+#define PREPARE_RETURN_CPUEXC   PREPARE_RETURN_CPUEXC_DABORT
+#elif defined(USE_CPUEXC_FATAL)
+#define CPUEXC1                                 EXCNO_FATAL             /* フェイタルデータアボート */
+#define RAISE_CPU_EXCEPTION             RAISE_CPU_EXCEPTION_FATAL
+/* フェイタルデータアボート例外ハンドラからリターンしてはならない */
+#else
+#define CPUEXC1                                 EXCNO_UNDEF             /* 未定義命令 */
+#define RAISE_CPU_EXCEPTION             RAISE_CPU_EXCEPTION_UNDEF
+#define PREPARE_RETURN_CPUEXC   PREPARE_RETURN_CPUEXC_UNDEF
+#endif
+/*
  *  スーパバイザコールによるCPU例外の発生
+ *
+ *  CPU例外ハンドラから，そのままリターンすることができる．svc命令によ
+ *  りlrレジスタが上書きされるため，lrレジスタは破壊されるものと指定し
+ *  ている．
+ *  svc #0によりCPU例外を発生させる．svc命令によりlrレジスタが上書きさ
+ *  れるため，lrレジスタは破壊されるものと指定している．CPU例外ハンド
+ *  ラからそのままリターンすることで，svc命令の次の命令から実行が継続
+ *  する．
  */
+#if defined(USE_SVC_CPUEXC)
+#define CPUEXC1                                 EXCNO_SVC               /* スーパバイザコール */
+#define RAISE_CPU_EXCEPTION             Asm("svc #0":::"lr")
+#define PREPARE_RETURN_CPUEXC
+#define RAISE_CPU_EXCEPTION_SVC                 Asm("svc #0":::"lr")
+#define PREPARE_RETURN_CPUEXC_SVC
 /*
  *  プリフェッチアボートによるCPU例外の発生
+ *
+ *  プリフェッチアボートを起こした命令をスキップしてCPU例外ハンドラから
+ *  リターンするために，戻り番地はそのままで良い（ARMモードで使うことを
+ *  想定）．
+ *  不正な番地を関数の先頭番地として呼び出すことで，プリフェッチアボー
+ *  トによるCPU例外を発生させる．不正な番地に分岐した命令をスキップし
+ *  てCPU例外ハンドラからリターンするために，戻り番地には，lrレジスタ
+ *  の値（不正な番地への分岐命令からのリターン番地が入っている）を設定
+ *  する．
  */
+#elif defined(USE_PABORT_CPUEXC)
+#define CPUEXC1                                 EXCNO_PABORT    /* プリフェッチアボート */
+#define RAISE_CPU_EXCEPTION             ((void (*)(void)) ILLEGAL_IADDR)()
+#define PREPARE_RETURN_CPUEXC
+#define RAISE_CPU_EXCEPTION_PABORT              (((void (*)(void)) ILLEGAL_IADDR)())
+#define PREPARE_RETURN_CPUEXC_PABORT    (((T_EXCINF *) p_excinf)->pc \
+                                                                                        = ((T_EXCINF *) p_excinf)->lr)
 /*
  *  データアボートによるCPU例外の発生
+ *
+ *  データアボートを起こした命令をスキップしてCPU例外ハンドラからリター
+ *  ンするために，戻り番地から4を減算する（ARMモードで使うことを想定）．
+ *  不正な番地をリードすることで，データアボートによるCPU例外を発生さ
+ *  せる．データアボートを起こした命令をスキップしてCPU例外ハンドラか
+ *  らリターンするために，戻り番地から4を減算する（ARMモードで使うこと
+ *  を想定している）．
  */
+#elif defined(USE_DABORT_CPUEXC)
+#include "arm.h"
+#define CPUEXC1                                 EXCNO_DABORT    /* データアボート */
+#define RAISE_CPU_EXCEPTION             (void)(*((volatile uint32_t *) ILLEGAL_DADDR))
+#define PREPARE_RETURN_CPUEXC   ((T_EXCINF *) p_excinf)->pc -= 4U
+#define RAISE_CPU_EXCEPTION_DABORT              (void)(*((volatile uint32_t *) \
+                                                                                                                        ILLEGAL_DADDR))
+#define PREPARE_RETURN_CPUEXC_DABORT    (((T_EXCINF *) p_excinf)->pc -= 4U)
 /*
  *  フェイタルデータアボート処理
+ *  フェイタルデータアボートによるCPU例外の発生
+ *
+ *  スタックポインタを不正にして，フェイタルデータアボート処理を行わせ
+ *  る．CPU例外ハンドラからはリターンできない．
+ *  スタックポインタを不正にして，未定義命令を実行することで，フェイタ
+ *  ルデータアボートによるCPU例外を発生させる．CPU例外ハンドラからリター
+ *  ンしてはならない．
  */
+#elif defined(USE_FATAL_DABORT_CPUEXC)
+#define CPUEXC1                                 EXCNO_DABORT    /* データアボート */
+#define RAISE_CPU_EXCEPTION             Asm("mov sp, %0"::"I"(ILLEGAL_DADDR))
+#define RAISE_CPU_EXCEPTION_FATAL               Asm("mov sp, %0\n" \
+                                                                                  "\t.word 0xf0500090" \
+                                                                                  ::"I"(ILLEGAL_DADDR))
 /*
  *  未定義命令によるCPU例外の発生
+ *
+ *  RAISE_CPU_EXCEPTIONは，ARMモードで使うことを想定している．CPU例外ハ
+ *  ンドラから，そのままリターンすることができる．使用している未定義命
+ *  令は，"Multiply and multiply accumulate"命令群のエンコーディング内
+ *  における未定義命令である．
+ *  未定義命令によりCPU例外を発生させる．使用している未定義命令は，
+ *  "Multiply and multiply accumulate"命令群のエンコーディング内におけ
+ *  る未定義命令である．CPU例外ハンドラからそのままリターンすることで，
+ *  未定義命令の次の命令から実行が継続する（ARMモードで使うことを想定
+ *  している）．
  */
+#else
+#define RAISE_CPU_EXCEPTION_UNDEF               Asm(".word 0xf0500090")
+#define PREPARE_RETURN_CPUEXC_UNDEF
-#define CPUEXC1                                 EXCNO_UNDEF             /* 未定義命令 */
-#define RAISE_CPU_EXCEPTION             Asm(".word 0xf0500090")
-#define PREPARE_RETURN_CPUEXC
-#endif
 #endif /* TOPPERS_CORE_TEST_H */

EcnlProtoTool/trunk/asp3_dcre/arch/arm_gcc/common/core_unrename.h

-              r321
+              r429
 #undef dabort_handler
 #undef fiq_handler
-#undef current_cpsr
-#undef set_cpsr
 /*
 …
 #undef excpt_nest_count
 #undef arm_mmu_initialize
+#undef arm_fpu_initialize
 #undef core_initialize
 #undef core_terminate
 …
 #undef default_int_handler
 #undef default_exc_handler
+/*
+ *  mpcore_kernel_impl.c
+ */
+#undef mpcore_initialize
+#undef mpcore_terminate
+/*
+ *  mpcore_timer.c
+ */
+#undef target_hrt_initialize
+#undef target_hrt_terminate
+#undef target_hrt_handler
+#undef target_ovrtimer_initialize
+#undef target_ovrtimer_terminate
+#undef target_ovrtimer_handler
 /*
 …
 #undef pl310_clean_and_invalidate_all
-/*
- *  target_kernel_impl.c
- */
-#undef arm_tnum_memory_area
-#undef arm_memory_area
 #endif /* TOPPERS_CORE_RENAME_H */

EcnlProtoTool/trunk/asp3_dcre/arch/arm_gcc/common/gic_kernel_impl.c

r321	r429
227	227	*/
228	228	gicd_set_priority(intno, INT_IPM(intpri));
229		gicd_set_target(intno, 1U << ~~arm_prc_inde~~x());
	229	gicd_set_target(intno, 1U << get_my_prcidx());
230	230
231	231	/*

EcnlProtoTool/trunk/asp3_dcre/arch/arm_gcc/common/gic_kernel_impl.h

-              r321
+              r429
  *      Toyohashi Open Platform for Embedded Real-Time Systems
+ *
  *  Copyright (C) 2006-2017 by Embedded and Real-Time Systems Laboratory
+ *  Copyright (C) 2006-2019 by Embedded and Real-Time Systems Laboratory
  *              Graduate School of Information Science, Nagoya Univ., JAPAN
+ *
 …
  *  割込み番号の定義
  */
 #define GIC_INTNO_SGI0          0U
 #define GIC_INTNO_PPI0          16U
 #define GIC_INTNO_SPI0          32U
+#define GIC_INTNO_SGI0          UINT_C(0)
+#define GIC_INTNO_PPI0          UINT_C(16)
+#define GIC_INTNO_SPI0          UINT_C(32)
 /*
 …
 #define GICC_EOIR               GIC_REG(GICC_BASE, 0x10)
 #define GICC_RPR                GIC_REG(GICC_BASE, 0x14)
 #define GICC_HPIR               GIC_REG(GICC_BASE, 0x18)
+#define GICC_HPPIR              GIC_REG(GICC_BASE, 0x18)
 /*
 …
 gicc_set_priority(uint_t pri)
+{
         sil_wrw_mem(GICC_PMR, pri);
+        sil_swrw_mem(GICC_PMR, pri);
+}
 …
 gicd_disable_int(INTNO intno)
+{
         sil_wrw_mem(GICD_ICENABLER(intno / 32), (1U << (intno % 32)));
+        sil_swrw_mem(GICD_ICENABLER(intno / 32), (1U << (intno % 32)));
+}
 …
 gicd_enable_int(INTNO intno)
+{
         sil_wrw_mem(GICD_ISENABLER(intno / 32), (1U << (intno % 32)));
+        sil_swrw_mem(GICD_ISENABLER(intno / 32), (1U << (intno % 32)));
+}
 …
 gicd_clear_pending(INTNO intno)
+{
         sil_wrw_mem(GICD_ICPENDR(intno / 32), (1U << (intno % 32)));
+        sil_swrw_mem(GICD_ICPENDR(intno / 32), (1U << (intno % 32)));
+}
 …
 gicd_set_pending(INTNO intno)
+{
         sil_wrw_mem(GICD_ISPENDR(intno / 32), (1U << (intno % 32)));
+        sil_swrw_mem(GICD_ISPENDR(intno / 32), (1U << (intno % 32)));
+}
 …
 /*
+ *  ソフトウェア生成割込み（SGI）の生成
+ */
+Inline void
+gicd_raise_sgi(INTNO intno)
+{
+        sil_swrw_mem(GICD_SGIR, (0x02000000 | intno));
+}
+/*
  *  割込みのコンフィグレーション
  */
 …
         uint32_t        reg;
+        reg = sil_rew_mem(GICD_ICFGR(intno / 16));
+        reg &= ~(0x03U << shift);
+        reg |= (config << shift);
+        sil_wrw_mem(GICD_ICFGR(intno / 16), reg);
+        if (intno >= GIC_INTNO_PPI0) {
+                reg = sil_rew_mem(GICD_ICFGR(intno / 16));
+                reg &= ~(0x03U << shift);
+                reg |= (config << shift);
+                sil_wrw_mem(GICD_ICFGR(intno / 16), reg);
+        }
+}
 …
  *  割込みターゲットプロセッサの設定
+ *
  *  prcsは，ターゲットとするプロセッサを表すビットのビット毎論理和で指
  *  定する．
+ *  affinityは，ターゲットとするプロセッサを表すビットのビット毎論理和
+ *  で指定する．
  *              プロセッサ0 : 0x01
  *              プロセッサ1 : 0x02
 …
  */
 Inline void
 gicd_set_target(INTNO intno, uint_t prcs)
+gicd_set_target(INTNO intno, uint_t affinity)
+{
         uint_t          shift = (intno % 4) * 8;
 …
         reg = sil_rew_mem(GICD_ITARGETSR(intno / 4));
         reg &= ~(0xffU << shift);
         reg |= (prcs << shift);
+        reg |= (affinity << shift);
         sil_wrw_mem(GICD_ITARGETSR(intno / 4), reg);
+}
 …
  */
 #ifndef TOPPERS_MACRO_ONLY
+/*
+ *  割込み属性の設定のチェック
+ */
+Inline bool_t
+check_intno_cfg(INTNO intno)
+{
+        return(intcfg_table[intno] != 0U);
+}
 /*
 …
 /*
+ *  割込み要求禁止フラグが操作できる割込み番号の範囲の判定
+ */
+#ifdef GIC_SUPPORT_DISABLE_SGI
+#define VALID_INTNO_DISINT(intno)       VALID_INTNO(intno)
+#else /* GIC_SUPPORT_DISABLE_SGI */
+#define VALID_INTNO_DISINT(intno) \
+                                (GIC_INTNO_PPI0 <= (intno) && (intno) <= TMAX_INTNO)
+#endif /* GIC_SUPPORT_DISABLE_SGI */
+/*
  *  割込み要求禁止フラグのセット
+ *
+ *  intnoで指定された割込み要求ラインに対する割込み要求禁止フラグのセッ
+ *  トし，割込みを禁止する．割込み属性が設定されていない割込み要求ライ
+ *  ンが指定された場合には，falseを返す．
+ */
+Inline bool_t
+ */
+Inline void
 disable_int(INTNO intno)
+{
-        if (intcfg_table[intno] == 0U) {
-                return(false);
+        }
         gicd_disable_int(intno);
-        return(true);
+}
 /*
  *  割込み要求禁止フラグのクリア
+ *
+ *  intnoで指定された割込み要求ラインに対する割込み要求禁止フラグのクリ
+ *  アし，割込みを許可する．割込み属性が設定されていない割込み要求ライ
+ *  ンが指定された場合には，falseを返す．
+ */
+Inline void
+enable_int(INTNO intno)
+{
+        gicd_enable_int(intno);
+}
+/*
+ *  割込み要求がクリアできる割込み番号の範囲の判定
+ */
+#define VALID_INTNO_CLRINT(intno) \
+                                (GIC_INTNO_PPI0 <= (intno) && (intno) <= TMAX_INTNO)
+/*
+ *  割込み要求がクリアできる状態か？
  */
 Inline bool_t
+enable_int(INTNO intno)
+{
+        if (intcfg_table[intno] == 0U) {
+                return(false);
+check_intno_clear(INTNO intno)
+{
+        return(true);
+}
+/*
+ *  割込み要求のクリア
+ */
+Inline void
+clear_int(INTNO intno)
+{
+        gicd_clear_pending(intno);
+}
+/*
+ *  割込みが要求できる状態か？
+ */
+Inline bool_t
+check_intno_raise(INTNO intno)
+{
+        return(true);
+}
+/*
+ *  割込みの要求
+ */
+Inline void
+raise_int(INTNO intno)
+{
+        if (intno < GIC_INTNO_PPI0) {
+                gicd_raise_sgi(intno);
+        }
+        gicd_enable_int(intno);
+        return(true);
+}
+/*
+ *  割込み要求のクリア
+ */
+Inline void
+clear_int(INTNO intno)
+{
+        gicd_clear_pending(intno);
+        else {
+                gicd_set_pending(intno);
+        }
+}
 …
+}
-/*
- *  割込み要求のセット
- */
-Inline void
-raise_int(INTNO intno)
+{
-        gicd_set_pending(intno);
+}
 #endif /* TOPPERS_MACRO_ONLY */
 #endif /* TOPPERS_GIC_KERNEL_IMPL_H */

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

-              r321
+              r429
  *  Copyright (C) 2000-2003 by Embedded and Real-Time Systems Laboratory
  *                              Toyohashi Univ. of Technology, JAPAN
  *  Copyright (C) 2006-2017 by Embedded and Real-Time Systems Laboratory
+ *  Copyright (C) 2006-2018 by Embedded and Real-Time Systems Laboratory
  *              Graduate School of Information Science, Nagoya Univ., JAPAN
+ *
 …
          *  割込み要因を取得する．
          */
+#ifdef GIC_PL390_ERRATA                 /* GIC 390 Errata 801120への対策 */
+        ldr             r1, =GICC_HPPIR
+        ldr             r0, [r1]
+#endif /* GIC_PL390_ERRATA */
         ldr             r1, =GICC_IAR
         ldr             r3, [r1]
-        /*
-         *  割込み番号を求める．
-         */
         lsl             r4, r3, #22                     /* 下位10ビットを取り出す */
         lsr             r4, r4, #22
+        /*
+         *  割込み要求をクリアする．
+         */
+        and             r0, r4, #31
+        mov             r2, #1
+        lsl             r0, r2, r0
+        ldr             r2, =GICD_ICPENDR(0)
+        lsr             r1, r4, #5
+        str             r0, [r2,r1,lsl #2]
+#ifdef GIC_PL390_ERRATA                 /* GIC 390 Errata 733075への対策 */
+        movw    r0, #1023
+        cmp             r4, r0
+        beq             irc_begin_int_errata_1
+        movw    r0, #1022
+        cmp             r4, r0
+        beq             irc_begin_int_errata_1
+        cmp             r3, #0
+        bne             irc_begin_int_errata_2
+        ldr             r1, =GICD_ISACTIVER(0)          /* 割込み要求があるかチェック */
+        ldr             r0, [r1]
+        tst             r0, #0x01
+        movweq  r4, #1024                                       /* 無効な割込みとみなす */
+ALABEL(irc_begin_int_errata_1)
+        ldr             r1, =GICD_IPRIORITYR(0)         /* 割込み優先度レジスタ0に書き込み */
+        ldr             r0, [r1]
+        str             r0, [r1]
+        asm_data_sync_barrier r0
+ALABEL(irc_begin_int_errata_2)
+#endif /* GIC_PL390_ERRATA */
         /*
 …
         /*
          *  割込み番号を返値としてリターンする．
+         *  r4に割込み番号を入れた状態でリターンする．
          */
         bx              lr

EcnlProtoTool/trunk/asp3_dcre/arch/arm_gcc/common/pl310.c

r428	r429
43	43
44	44	#include "kernel_impl.h"
45		#include "~~core_~~pl310.h"
	45	#include "pl310.h"
46	46
47	47	Inline uint32_t

EcnlProtoTool/trunk/asp3_dcre/arch/arm_gcc/common/tUartPL011.c

-              r321
+              r429
 /*
+ *  TOPPERS/ASP Kernel
+ *      Toyohashi Open Platform for Embedded Real-Time Systems/
+ *      Advanced Standard Profile Kernel
+ *
+ *  Copyright (C) 2006-2016 by Embedded and Real-Time Systems Laboratory
+ *  TOPPERS Software
+ *      Toyohashi Open Platform for Embedded Real-Time Systems
+ *
+ *  Copyright (C) 2006-2018 by Embedded and Real-Time Systems Laboratory
  *              Graduate School of Information Science, Nagoya Univ., JAPAN
+ *
 …
         CELLCB  *p_cellcb = GET_CELLCB(idx);
+        /*
+         *  UARTをディスエーブル
+         */
+        sil_wrw_mem(UART_CR(ATTR_baseAddress), 0U);
+        /*
+         *  エラーフラグをクリア
+         */
+        sil_wrw_mem(UART_ECR(ATTR_baseAddress), 0U);
+        /*
+         *  FIFOを空にする
+         */
+        while (uart_pl011_getready(p_cellcb)) {
+                (void) uart_pl011_getchar(p_cellcb);
+        }
+        /*
+         *  ボーレートと通信規格を設定
+         */
+        sil_wrw_mem(UART_IBRD(ATTR_baseAddress), ATTR_ibrd);
+        sil_wrw_mem(UART_FBRD(ATTR_baseAddress), ATTR_fbrd);
+        sil_wrw_mem(UART_LCR_H(ATTR_baseAddress), ATTR_lcr_h);
+        /*
+         *  UARTをイネーブル
+         */
+        sil_wrw_mem(UART_CR(ATTR_baseAddress),
+        if (!VAR_opened) {
+                /*
+                 *  既にオープンしている場合は、二重にオープンしない．
+                 */
+                /*
+                 *  UARTをディスエーブル
+                 */
+                sil_wrw_mem(UART_CR(ATTR_baseAddress), 0U);
+                /*
+                 *  エラーフラグをクリア
+                 */
+                sil_wrw_mem(UART_ECR(ATTR_baseAddress), 0U);
+                /*
+                 *  FIFOを空にする
+                 */
+                while (uart_pl011_getready(p_cellcb)) {
+                        (void) uart_pl011_getchar(p_cellcb);
+                }
+                /*
+                 *  ボーレートと通信規格を設定
+                 */
+                sil_wrw_mem(UART_IBRD(ATTR_baseAddress), ATTR_ibrd);
+                sil_wrw_mem(UART_FBRD(ATTR_baseAddress), ATTR_fbrd);
+                sil_wrw_mem(UART_LCR_H(ATTR_baseAddress), ATTR_lcr_h);
+                /*
+                 *  UARTをイネーブル
+                 */
+                sil_wrw_mem(UART_CR(ATTR_baseAddress),
                                                 UART_CR_UARTEN|UART_CR_TXE|UART_CR_RXE);
+                VAR_opened = true;
+        }
+}
 …
         CELLCB  *p_cellcb = GET_CELLCB(idx);
+        /*
+         *  UARTをディスエーブル
+         */
+        sil_wrw_mem(UART_CR(ATTR_baseAddress), 0U);
+        if (VAR_opened) {
+                /*
+                 *  UARTをディスエーブル
+                 */
+                sil_wrw_mem(UART_CR(ATTR_baseAddress), 0U);
+                VAR_opened = false;
+        }
+}
 …
+        }
+}
+/*
+ *  SIOドライバの終了処理
+ */
+void
+eTerminate_main(CELLIDX idx)
+{
+        eSIOPort_close(idx);
+}

EcnlProtoTool/trunk/asp3_dcre/arch/arm_gcc/common/tUartPL011.cdl

-              r321
+              r429
 /*
+ *  TOPPERS/ASP Kernel
+ *      Toyohashi Open Platform for Embedded Real-Time Systems/
+ *      Advanced Standard Profile Kernel
+ *  TOPPERS Software
+ *      Toyohashi Open Platform for Embedded Real-Time Systems
+ *
  *  Copyright (C) 2015 by Ushio Laboratory
  *              Graduate School of Engineering Science, Osaka Univ., JAPAN
  *  Copyright (C) 2015,2016 by Embedded and Real-Time Systems Laboratory
+ *  Copyright (C) 2015-2018 by Embedded and Real-Time Systems Laboratory
  *              Graduate School of Information Science, Nagoya Univ., JAPAN
+ *
 …
         entry   siHandlerBody   eiISR;
+        entry   sRoutineBody    eTerminate;
         attr {
 …
                 uint8_t         lcr_h;                  /* ライン制御レジスタの設定値 */
         };
+        var {
+                bool_t          opened = false; /* オープン済み */
+        };
 };

EcnlProtoTool/trunk/asp3_dcre/arch/arm_gcc/common/uart_pl011.h

-              r321
+              r429
 /*
+ *  TOPPERS/ASP Kernel
+ *      Toyohashi Open Platform for Embedded Real-Time Systems/
+ *      Advanced Standard Profile Kernel
+ *  TOPPERS Software
+ *      Toyohashi Open Platform for Embedded Real-Time Systems
+ *
  *  Copyright (C) 2000-2003 by Embedded and Real-Time Systems Laboratory

EcnlProtoTool/trunk/asp3_dcre/arch/arm_gcc/rza1/Makefile.chip

r321	r429
2	2	# Makefile のチップ依存部（RZ/A1用）
3	3	#
4		# $Id$
	4	# $Id: Makefile.chip 720 2016-04-01 22:16:17Z ertl-hiro $
5	5	#
6	6
…	…
22	22	#
23	23	KERNEL_DIRS := $(KERNEL_DIRS) $(CHIPDIR)
	24	KERNEL_COBJS := $(KERNEL_COBJS) chip_kernel_impl.o mpcore_kernel_impl.o \
	25	gic_kernel_impl.o pl310.o chip_timer.o
24	26	KERNEL_ASMOBJS := $(KERNEL_ASMOBJS) gic_support.o
25		KERNEL_COBJS := $(KERNEL_COBJS) chip_kernel_impl.o gic_kernel_impl.o \
26		chip_timer.o
	27
	28	#
	29	# システムサービスに関する定義
	30	#
	31	SYSSVC_DIRS := $(SYSSVC_DIRS) $(CHIPDIR)
27	32
28	33	#

EcnlProtoTool/trunk/asp3_dcre/arch/arm_gcc/rza1/chip_kernel.h

-              r321
+              r429
  *      Toyohashi Open Platform for Embedded Real-Time Systems/
  *      Advanced Standard Profile Kernel
+ *
  *  Copyright (C) 2006-2016 by Embedded and Real-Time Systems Laboratory
+ *
+ *  Copyright (C) 2006-2018 by Embedded and Real-Time Systems Laboratory
  *              Graduate School of Information Science, Nagoya Univ., JAPAN
+ *
+ *
  *  上記著作権者は，以下の(1)～(4)の条件を満たす場合に限り，本ソフトウェ
  *  ア（本ソフトウェアを改変したものを含む．以下同じ）を使用・複製・改
 …
  *      由に基づく請求からも，上記著作権者およびTOPPERSプロジェクトを
  *      免責すること．
+ *
+ *
  *  本ソフトウェアは，無保証で提供されているものである．上記著作権者お
  *  よびTOPPERSプロジェクトは，本ソフトウェアに関して，特定の使用目的
 …
  *  アの利用により直接的または間接的に生じたいかなる損害に関しても，そ
  *  の責任を負わない．
+ *
+ *
  *  $Id$
  */
 …
  *              kernel.hのターゲット依存部（RZ/A1用）
+ *
  *  このヘッダファイルは，kernel.hからインクルードされる．他のファイル
  *  から直接インクルードすることはない．このファイルをインクルードする
  *  前に，t_stddef.hがインクルードされるので，それに依存してもよい．
+ *  このヘッダファイルは，target_kernel.h（または，そこからインクルー
+ *  ドされるファイル）のみからインクルードされる．他のファイルから直接
+ *  インクルードしてはならない．
  */
 …
  *  サポートできる機能の定義
+ *
+ *  ena_int／dis_intとオーバランハンドラをサポートすることができる．
+ *  ena_int／dis_int／clr_int／ras_int／prb_intとオーバランハンドラを
+ *  サポートすることができる．
  */
 #define TOPPERS_TARGET_SUPPORT_ENA_INT          /* ena_int */
 #define TOPPERS_TARGET_SUPPORT_DIS_INT          /* dis_int */
+#define TOPPERS_TARGET_SUPPORT_CLR_INT          /* clr_int */
+#define TOPPERS_TARGET_SUPPORT_RAS_INT          /* ras_int */
+#define TOPPERS_TARGET_SUPPORT_PRB_INT          /* prb_int */
 #define TOPPERS_TARGET_SUPPORT_OVRHDR
-/*
- *  高分解能タイマのタイマ周期
+ *
- *  2^32 / 33.33…を丸めた値とする．
- */
-#define TCYC_HRTCNT             128849019U
-/*
- *  高分解能タイマのカウント値の進み幅
- */
-#define TSTEP_HRTCNT    1U
-/*
- *  オーバランハンドラの残りプロセッサ時間に指定できる最大値
+ *
- *  この値をOSタイマへの設定値に変換してタイマに設定した後，タイマの現
- *  在値を読み出してμ秒単位に変換できる値としている．タイマの現在値を
- *  μ秒単位に変換する時に34を加えるため，以下の条件を満たす最大の値と
- *  する．
- *              (TMAX_OVRTIM * 33 + TMAX_OVRTIM / 3 + 1) + 34 < 2^32
- */
-#define TMAX_OVRTIM             128849017U
 /*

EcnlProtoTool/trunk/asp3_dcre/arch/arm_gcc/rza1/chip_kernel.trb

-              r321
+              r429
 #  割込み要求ライン属性に関するターゲット依存のエラーチェック
+#
 $cfgData[:CFG_INT].each do |key, params|
   if $INTNO_IRQ0 <= key && key <= $INTNO_IRQ7
+$cfgData[:CFG_INT].each do |_, params|
+  if $INTNO_IRQ0 <= params[:intno] && params[:intno] <= $INTNO_IRQ7
     # IRQ割込みの場合
     #（TA_EDGEがセットされている場合）

EcnlProtoTool/trunk/asp3_dcre/arch/arm_gcc/rza1/chip_kernel_impl.c

-              r321
+              r429
  *      Toyohashi Open Platform for Embedded Real-Time Systems/
  *      Advanced Standard Profile Kernel
+ *
+ *
  *  Copyright (C) 2000-2003 by Embedded and Real-Time Systems Laboratory
  *                              Toyohashi Univ. of Technology, JAPAN
  *  Copyright (C) 2006-2016 by Embedded and Real-Time Systems Laboratory
+ *  Copyright (C) 2006-2018 by Embedded and Real-Time Systems Laboratory
  *              Graduate School of Information Science, Nagoya Univ., JAPAN
+ *
+ *
  *  上記著作権者は，以下の(1)～(4)の条件を満たす場合に限り，本ソフトウェ
  *  ア（本ソフトウェアを改変したものを含む．以下同じ）を使用・複製・改
 …
  *      由に基づく請求からも，上記著作権者およびTOPPERSプロジェクトを
  *      免責すること．
+ *
+ *
  *  本ソフトウェアは，無保証で提供されているものである．上記著作権者お
  *  よびTOPPERSプロジェクトは，本ソフトウェアに関して，特定の使用目的
 …
  *  アの利用により直接的または間接的に生じたいかなる損害に関しても，そ
  *  の責任を負わない．
+ *
+ *
  *  $Id$
  */
 …
 #include "kernel_impl.h"
+#include <sil.h>
 #include "interrupt.h"
+#include "pl310.h"
 /*
 …
+{
         /*
          *  キャッシュをディスエーブル
+         *  MPCore依存の初期化
          */
         arm_disable_cache();
+        mpcore_initialize();
         /*
          *  コア依存の初期化
+         *  L2キャッシュコントローラ（PL310）の初期化
          */
+        core_initialize();
+        /*
+         *  キャッシュをイネーブル
+         */
+        arm_enable_cache();
+        /*
+         *  GICのディストリビュータの初期化
+         */
+        gicd_initialize();
+        /*
+         *  GICのCPUインタフェースの初期化
+         */
+        gicc_initialize();
+        /*
+         *  分岐予測の無効化とイネーブル
+         */
+        arm_invalidate_bp();
+        arm_enable_bp();
+        pl310_initialize(0x0U, ~0x0U);
+}
 /*
  *  チップ依存部の終了処理
+ *  チップ依存の終了処理
  */
 void
 chip_terminate(void)
+{
-        extern void    software_term_hook(void);
-        void (*volatile fp)(void) = software_term_hook;
         /*
+         *  software_term_hookへのポインタを，一旦volatile指定のあるfpに代
+         *  入してから使うのは，0との比較が最適化で削除されないようにするた
+         *  めである．
+         *  MPCore依存の終了処理
          */
+        if (fp != 0) {
+                (*fp)();
+        }
+        /*
+         *  GICのCPUインタフェースの終了処理
+         */
+        gicc_terminate();
+        /*
+         *  GICのディストリビュータの終了処理
+         */
+        gicd_terminate();
+        /*
+         *  コア依存の終了処理
+         */
+        core_terminate();
+        mpcore_terminate();
+}
 …
          */
         gicd_set_priority(intno, INT_IPM(intpri));
         gicd_set_target(intno, 1U << arm_prc_index());
+        gicd_set_target(intno, 1U << get_my_prcidx());
         /*

EcnlProtoTool/trunk/asp3_dcre/arch/arm_gcc/rza1/chip_kernel_impl.h

-              r321
+              r429
  *      Toyohashi Open Platform for Embedded Real-Time Systems/
  *      Advanced Standard Profile Kernel
+ *
+ *
  *  Copyright (C) 2000-2003 by Embedded and Real-Time Systems Laboratory
  *                              Toyohashi Univ. of Technology, JAPAN
  *  Copyright (C) 2006-2016 by Embedded and Real-Time Systems Laboratory
+ *  Copyright (C) 2006-2018 by Embedded and Real-Time Systems Laboratory
  *              Graduate School of Information Science, Nagoya Univ., JAPAN
+ *
+ *
  *  上記著作権者は，以下の(1)～(4)の条件を満たす場合に限り，本ソフトウェ
  *  ア（本ソフトウェアを改変したものを含む．以下同じ）を使用・複製・改
 …
  *      由に基づく請求からも，上記著作権者およびTOPPERSプロジェクトを
  *      免責すること．
+ *
+ *
  *  本ソフトウェアは，無保証で提供されているものである．上記著作権者お
  *  よびTOPPERSプロジェクトは，本ソフトウェアに関して，特定の使用目的
 …
  *  アの利用により直接的または間接的に生じたいかなる損害に関しても，そ
  *  の責任を負わない．
+ *
+ *
  *  $Id$
  */
 …
 /*
  *  MMUの使用に関する設定
+ *  デフォルトの非タスクコンテキスト用のスタック領域の定義
  */
+#define USE_ARM_MMU
+#define USE_ARM_SSECTION
+#ifndef DEFAULT_ISTKSZ
+#define DEFAULT_ISTKSZ  0x2000U                 /* 8KB */
+#endif /* DEFAULT_ISTKSZ */
 /*
 …
 /*
+ *  GIC依存部の割込み管理機能の初期化は使用しない．
+ *  GIC 390 Errataへの対策を実施
+ */
+#define GIC_PL390_ERRATA
+/*
+ *  GIC依存部の割込み管理機能の初期化は使用しない
  */
 #define OMIT_GIC_INITIALIZE_INTERRUPT
 /*
+ *  GICに関する定義，コアで共通な定義
+ *
+ *  core_kernel_impl.hは，gic_kernel_impl.hからインクルードされる．
+ *  MPCoreで共通な定義
  */
 #include "gic_kernel_impl.h"
+#include "mpcore_kernel_impl.h"
 #ifndef TOPPERS_MACRO_ONLY

EcnlProtoTool/trunk/asp3_dcre/arch/arm_gcc/rza1/chip_rename.def

-              r331
+              r429
 target_hrt_initialize
 target_hrt_terminate
-target_hrt_set_event
-target_hrt_raise_event
 target_hrt_handler
 target_ovrtimer_initialize
 target_ovrtimer_terminate
-target_ovrtimer_stop
-target_ovrtimer_get_current
 target_ovrtimer_handler

EcnlProtoTool/trunk/asp3_dcre/arch/arm_gcc/rza1/chip_rename.h

-              r321
+              r429
 #define target_hrt_initialize           _kernel_target_hrt_initialize
 #define target_hrt_terminate            _kernel_target_hrt_terminate
-#define target_hrt_set_event            _kernel_target_hrt_set_event
-#define target_hrt_raise_event          _kernel_target_hrt_raise_event
 #define target_hrt_handler                      _kernel_target_hrt_handler
 #define target_ovrtimer_initialize      _kernel_target_ovrtimer_initialize
 #define target_ovrtimer_terminate       _kernel_target_ovrtimer_terminate
-#define target_ovrtimer_stop            _kernel_target_ovrtimer_stop
-#define target_ovrtimer_get_current     _kernel_target_ovrtimer_get_current
 #define target_ovrtimer_handler         _kernel_target_ovrtimer_handler

EcnlProtoTool/trunk/asp3_dcre/arch/arm_gcc/rza1/chip_stddef.h

-              r321
+              r429
-/*
- *  TOPPERS Software
- *      Toyohashi Open Platform for Embedded Real-Time Systems
+ *
- *  Copyright (C) 2007 by Embedded and Real-Time Systems Laboratory
- *              Graduate School of Information Science, Nagoya Univ., JAPAN
- *  Copyright (C) 2011-2016 by Embedded and Real-Time Systems Laboratory
- *              Graduate School of Information Science, Nagoya Univ., JAPAN
+ *
- *  上記著作権者は，以下の(1)～(4)の条件を満たす場合に限り，本ソフトウェ
- *  ア（本ソフトウェアを改変したものを含む．以下同じ）を使用・複製・改
- *  変・再配布（以下，利用と呼ぶ）することを無償で許諾する．
- *  (1) 本ソフトウェアをソースコードの形で利用する場合には，上記の著作
- *      権表示，この利用条件および下記の無保証規定が，そのままの形でソー
- *      スコード中に含まれていること．
- *  (2) 本ソフトウェアを，ライブラリ形式など，他のソフトウェア開発に使
- *      用できる形で再配布する場合には，再配布に伴うドキュメント（利用
- *      者マニュアルなど）に，上記の著作権表示，この利用条件および下記
- *      の無保証規定を掲載すること．
- *  (3) 本ソフトウェアを，機器に組み込むなど，他のソフトウェア開発に使
- *      用できない形で再配布する場合には，次のいずれかの条件を満たすこ
- *      と．
- *    (a) 再配布に伴うドキュメント（利用者マニュアルなど）に，上記の著
- *        作権表示，この利用条件および下記の無保証規定を掲載すること．
- *    (b) 再配布の形態を，別に定める方法によって，TOPPERSプロジェクトに
- *        報告すること．
- *  (4) 本ソフトウェアの利用により直接的または間接的に生じるいかなる損
- *      害からも，上記著作権者およびTOPPERSプロジェクトを免責すること．
- *      また，本ソフトウェアのユーザまたはエンドユーザからのいかなる理
- *      由に基づく請求からも，上記著作権者およびTOPPERSプロジェクトを
- *      免責すること．
+ *
- *  本ソフトウェアは，無保証で提供されているものである．上記著作権者お
- *  よびTOPPERSプロジェクトは，本ソフトウェアに関して，特定の使用目的
- *  に対する適合性も含めて，いかなる保証も行わない．また，本ソフトウェ
- *  アの利用により直接的または間接的に生じたいかなる損害に関しても，そ
- *  の責任を負わない．
+ *
- *  $Id$
- */
 /*
  *              t_stddef.hのチップ依存部（RZ/A1用）
 …
  *  されるファイル）のみからインクルードされる．他のファイルから直接イ
  *  ンクルードしてはならない．
+ *
+ *  $Id$
  */
 …
 /*
+ *  開発環境で共通な定義
+ */
+#ifndef TOPPERS_MACRO_ONLY
+#include <stdint.h>
+#endif /* TOPPERS_MACRO_ONLY */
+#define TOPPERS_STDFLOAT_TYPE1
+#include "tool_stddef.h"
+/*
  *  コアで共通な定義
  */

EcnlProtoTool/trunk/asp3_dcre/arch/arm_gcc/rza1/chip_sym.def

r331	r429
1		TARGET_RZA1H,true,bool,defined(TARGET_RZA1H)
2		TARGET_RZA1L,true,bool,defined(TARGET_RZA1L)
	1	TARGET_RZA1H,true,bool,defined(TARGET_RZA1H),false
	2	TARGET_RZA1L,true,bool,defined(TARGET_RZA1L),false
3	3	TA_NEGEDGE
4	4	TA_POSEDGE

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

-              r321
+              r429
  *      Advanced Standard Profile Kernel
+ *
  *  Copyright (C) 2006-2017 by Embedded and Real-Time Systems Laboratory
+ *  Copyright (C) 2006-2018 by Embedded and Real-Time Systems Laboratory
  *              Graduate School of Information Science, Nagoya Univ., JAPAN
+ *
 …
 /*
- *  高分解能タイマへの割込みタイミングの設定
- */
-void
-target_hrt_set_event(HRTCNT hrtcnt)
+{
-        uint32_t        cnt = hrtcnt * 33 + hrtcnt / 3 + 1;
-        uint32_t        current;
-        /*
-         *  現在のカウント値を読み，hrtcnt後に割込みが発生するように設定する．
-         */
-        current = sil_rew_mem(OSTM_CNT(OSTM0_BASE));
-        sil_wrw_mem(OSTM_CMP(OSTM0_BASE), current + cnt);
-        /*
-         *  上で現在のカウント値を読んで以降に，cnt以上カウントアップしてい
-         *  た場合には，割込みを発生させる．
-         */
-        if (sil_rew_mem(OSTM_CNT(OSTM0_BASE)) - current >= cnt) {
-                raise_int(INTNO_OSTM0);
+        }
+}
-/*
- *  高分解能タイマ割込みの要求
- */
-void
-target_hrt_raise_event(void)
+{
-        raise_int(INTNO_OSTM0);
+}
-/*
  *  タイマ割込みハンドラ
  */
 …
         signal_time();
+}
 /*
  *  オーバランタイマドライバ
 …
 /*
- *  オーバランタイマの停止
- */
-PRCTIM
-target_ovrtimer_stop(void)
+{
-        uint32_t        cnt;
-        /*
-         *  OSタイマを停止する．
-         */
-        sil_wrb_mem(OSTM_TT(OSTM1_BASE), OSTM_TT_STOP);
-        if (probe_int(INTNO_OSTM1)) {
-                /*
-                 *  割込み要求が発生している場合
-                 */
-                clear_int(INTNO_OSTM1);
-                return(0U);
+        }
-        else {
-                cnt = sil_rew_mem(OSTM_CNT(OSTM1_BASE));
-                return((PRCTIM)((cnt + 34) / 5 * 3 / 20));
+        }
+}
-/*
- *  オーバランタイマの現在値の読出し
- */
-PRCTIM
-target_ovrtimer_get_current(void)
+{
-        uint32_t        cnt;
-        if (probe_int(INTNO_OSTM1)) {
-                /*
-                 *  割込み要求が発生している場合
-                 */
-                return(0U);
+        }
-        else {
-                cnt = sil_rew_mem(OSTM_CNT(OSTM1_BASE));
-                return((PRCTIM)((cnt + 34) / 5 * 3 / 20));
+        }
+}
-/*
  *  オーバランタイマ割込みハンドラ
+ *

EcnlProtoTool/trunk/asp3_dcre/arch/arm_gcc/rza1/chip_timer.cfg

-              r321
+              r429
 /*
  *              タイマドライバのコンフィギュレーションファイル
+ *              タイマドライバのコンフィギュレーションファイル（RZ/A1 OSタイマ用）
+ *
  *  $Id$
 …
 ATT_INI({ TA_NULL, 0, _kernel_target_hrt_initialize });
 ATT_TER({ TA_NULL, 0, _kernel_target_hrt_terminate });
 CFG_INT(INTNO_TIMER, { TA_ENAINT|INTATR_TIMER, INTPRI_TIMER });
 DEF_INH(INHNO_TIMER, { TA_NULL, _kernel_target_hrt_handler });
 …
  */
 #ifdef TOPPERS_SUPPORT_OVRHDR
 ATT_INI({ TA_NULL, 0, _kernel_target_ovrtimer_initialize });
 ATT_TER({ TA_NULL, 0, _kernel_target_ovrtimer_terminate });
 CFG_INT(INTNO_OVRTIMER, { TA_ENAINT|INTATR_OVRTIMER, INTPRI_OVRTIMER });
 DEF_INH(INHNO_OVRTIMER, { TA_NULL, _kernel_target_ovrtimer_handler });
 #endif /* TOPPERS_SUPPORT_OVRHDR */

EcnlProtoTool/trunk/asp3_dcre/arch/arm_gcc/rza1/chip_timer.h

-              r321
+              r429
  *  Copyright (C) 2000-2003 by Embedded and Real-Time Systems Laboratory
  *                              Toyohashi Univ. of Technology, JAPAN
  *  Copyright (C) 2005-2016 by Embedded and Real-Time Systems Laboratory
+ *  Copyright (C) 2005-2018 by Embedded and Real-Time Systems Laboratory
  *              Graduate School of Information Science, Nagoya Univ., JAPAN
+ *
 …
 #define TOPPERS_CHIP_TIMER_H
+#include "kernel/kernel_impl.h"
 #include <sil.h>
 #include "rza1.h"
 …
  *  生させるように設定する．
  */
+extern void target_hrt_set_event(HRTCNT hrtcnt);
+Inline void
+target_hrt_set_event(HRTCNT hrtcnt)
+{
+        uint32_t        cnt = hrtcnt * 33 + hrtcnt / 3 + 1;
+        uint32_t        current;
+        /*
+         *  現在のカウント値を読み，hrtcnt後に割込みが発生するように設定する．
+         */
+        current = sil_rew_mem(OSTM_CNT(OSTM0_BASE));
+        sil_wrw_mem(OSTM_CMP(OSTM0_BASE), current + cnt);
+        /*
+         *  上で現在のカウント値を読んで以降に，cnt以上カウントアップしてい
+         *  た場合には，割込みを発生させる．
+         */
+        if (sil_rew_mem(OSTM_CNT(OSTM0_BASE)) - current >= cnt) {
+                raise_int(INTNO_OSTM0);
+        }
+}
 /*
  *  高分解能タイマ割込みの要求
  */
+extern  void target_hrt_raise_event(void);
+Inline void
+target_hrt_raise_event(void)
+{
+        raise_int(INTNO_OSTM0);
+}
 /*
 …
  *  オーバランタイマの停止
  */
+extern PRCTIM target_ovrtimer_stop(void);
+Inline PRCTIM
+target_ovrtimer_stop(void)
+{
+        uint32_t        cnt;
+        /*
+         *  OSタイマを停止する．
+         */
+        sil_wrb_mem(OSTM_TT(OSTM1_BASE), OSTM_TT_STOP);
+        if (probe_int(INTNO_OSTM1)) {
+                /*
+                 *  割込み要求が発生している場合
+                 */
+                clear_int(INTNO_OSTM1);
+                return(0U);
+        }
+        else {
+                cnt = sil_rew_mem(OSTM_CNT(OSTM1_BASE));
+                return((PRCTIM)((cnt + 34) / 5 * 3 / 20));
+        }
+}
 /*
  *  オーバランタイマの現在値の読出し
  */
+extern PRCTIM target_ovrtimer_get_current(void);
+Inline PRCTIM
+target_ovrtimer_get_current(void)
+{
+        uint32_t        cnt;
+        if (probe_int(INTNO_OSTM1)) {
+                /*
+                 *  割込み要求が発生している場合
+                 */
+                return(0U);
+        }
+        else {
+                cnt = sil_rew_mem(OSTM_CNT(OSTM1_BASE));
+                return((PRCTIM)((cnt + 34) / 5 * 3 / 20));
+        }
+}
 /*

EcnlProtoTool/trunk/asp3_dcre/arch/arm_gcc/rza1/chip_unrename.h

-              r321
+              r429
 #undef target_hrt_initialize
 #undef target_hrt_terminate
-#undef target_hrt_set_event
-#undef target_hrt_raise_event
 #undef target_hrt_handler
 #undef target_ovrtimer_initialize
 #undef target_ovrtimer_terminate
-#undef target_ovrtimer_stop
-#undef target_ovrtimer_get_current
 #undef target_ovrtimer_handler

EcnlProtoTool/trunk/asp3_dcre/arch/arm_gcc/rza1/rza1.h

-              r321
+              r429
  *  TOPPERS Software
  *      Toyohashi Open Platform for Embedded Real-Time Systems
+ *
  *  Copyright (C) 2006-2016 by Embedded and Real-Time Systems Laboratory
+ *
+ *  Copyright (C) 2006-2018 by Embedded and Real-Time Systems Laboratory
  *              Graduate School of Information Science, Nagoya Univ., JAPAN
+ *
+ *
  *  上記著作権者は，以下の(1)～(4)の条件を満たす場合に限り，本ソフトウェ
  *  ア（本ソフトウェアを改変したものを含む．以下同じ）を使用・複製・改
 …
  *      由に基づく請求からも，上記著作権者およびTOPPERSプロジェクトを
  *      免責すること．
+ *
+ *
  *  本ソフトウェアは，無保証で提供されているものである．上記著作権者お
  *  よびTOPPERSプロジェクトは，本ソフトウェアに関して，特定の使用目的
 …
  *  アの利用により直接的または間接的に生じたいかなる損害に関しても，そ
  *  の責任を負わない．
+ *
+ *
  *  $Id$
  */
 …
 #define TOPPERS_RZA1_H
+#include <kernel.h>
 #include <sil.h>
+#include "arm.h"
 /*
 …
 /*
+ *  CP15の補助制御レジスタ（ACTLR）の設定値
+ */
+#define CP15_ACTLR_SMP          UINT_C(0x00000040)
+/*
  *  GIC依存部を使用するための定義
  */
 …
 #define GIC_TNUM_INTNO          UINT_C(538)
 #endif /* TOPPERS_RZA1H */
 #endif /* GIC_TNUM_INT */
+#endif /* GIC_TNUM_INTNO */
 /*
 …
         reg = sil_reh_mem(RZA1_IRQRR);
         reg &= ~(0x01U << (intno - INTNO_IRQ0));
         sil_wrh_mem(RZA1_IRQRR, reg);
+        sil_swrh_mem(RZA1_IRQRR, reg);
+}

EcnlProtoTool/trunk/asp3_dcre/arch/arm_gcc/rza1/scif.h

-              r321
+              r429
 /*
+ *  TOPPERS/ASP Kernel
+ *      Toyohashi Open Platform for Embedded Real-Time Systems/
+ *      Advanced Standard Profile Kernel
+ *
+ *  TOPPERS Software
+ *      Toyohashi Open Platform for Embedded Real-Time Systems
+ *
  *  Copyright (C) 2001-2011 by Industrial Technology Institute,
  *                              Miyagi Prefectural Government, JAPAN
  *  Copyright (C) 2007-2016 by Embedded and Real-Time Systems Laboratory
  *              Graduate School of Information Science, Nagoya Univ., JAPAN
+ *
+ *
  *  上記著作権者は，以下の(1)～(4)の条件を満たす場合に限り，本ソフトウェ
  *  ア（本ソフトウェアを改変したものを含む．以下同じ）を使用・複製・改
 …
  *      由に基づく請求からも，上記著作権者およびTOPPERSプロジェクトを
  *      免責すること．
+ *
+ *
  *  本ソフトウェアは，無保証で提供されているものである．上記著作権者お
  *  よびTOPPERSプロジェクトは，本ソフトウェアに関して，特定の使用目的
 …
  *  アの利用により直接的または間接的に生じたいかなる損害に関しても，そ
  *  の責任を負わない．
+ *
+ *
  *  $Id$
  */
 …
  *  シリアルモードレジスタ（SCIF_SCSMR）の設定値
  */
+#define SCIF_SCSMR_ASYNC        0x0000U         /* 調歩同期式モード */
 #define SCIF_SCSMR_SYNC         0x0080U         /* クロック同期式モード */
+#define SCIF_SCSMR_8BIT         0x0000U         /* 8ビットデータ */
 #define SCIF_SCSMR_7BIT         0x0040U         /* 7ビットデータ */
+#define SCIF_SCSMR_PARITY       0x0020U         /* パリティビットの付加 */
+#define SCIF_SCSMR_NOPARITY     0x0000U         /* パリティビットなし */
+#define SCIF_SCSMR_PARITY       0x0020U         /* パリティビット付加 */
+#define SCIF_SCSMR_EVEN         0x0000U         /* 偶数パリティ */
 #define SCIF_SCSMR_ODD          0x0010U         /* 奇数パリティ */
+#define SCIF_SCSMR_1STOP        0x0000U         /* 1ストッピビット */
 #define SCIF_SCSMR_2STOP        0x0008U         /* 2ストッピビット */
 #define SCIF_SCSMR_CKS1         0x0000U         /* P1φクロック1 */

EcnlProtoTool/trunk/asp3_dcre/arch/arm_gcc/rza1/tSCIF.c

-              r321
+              r429
 /*
+ *  TOPPERS/ASP Kernel
+ *      Toyohashi Open Platform for Embedded Real-Time Systems/
+ *      Advanced Standard Profile Kernel
+ *  TOPPERS Software
+ *      Toyohashi Open Platform for Embedded Real-Time Systems
+ *
  *  Copyright (C) 2006-2016 by Embedded and Real-Time Systems Laboratory
+ *  Copyright (C) 2006-2019 by Embedded and Real-Time Systems Laboratory
  *              Graduate School of Information Science, Nagoya Univ., JAPAN
+ *
 …
         uint_t  brr;
+        if (VAR_initialized) {
+                /*
+                 *  既に初期化している場合は、二重に初期化しない．
+                 */
+                return;
+        }
+        brr = SCIF_CLK / (32 * ATTR_baudRate) - 1;
+        assert(brr <= 255);
+        sil_wrh_mem(SCIF_SCSCR(ATTR_baseAddress), 0U);
+        sil_wrh_mem(SCIF_SCFCR(ATTR_baseAddress),
+        if (!VAR_opened) {
+                /*
+                 *  既にオープンしている場合は、二重にオープンしない．
+                 */
+                brr = SCIF_CLK / (32 * ATTR_baudRate) - 1;
+                assert(brr <= 255);
+                sil_wrh_mem(SCIF_SCSCR(ATTR_baseAddress), 0U);
+                sil_wrh_mem(SCIF_SCFCR(ATTR_baseAddress),
                                                         SCIF_SCFCR_TFRST|SCIF_SCFCR_RFRST);
+        (void) sil_reh_mem(SCIF_SCFSR(ATTR_baseAddress));
+        (void) sil_reh_mem(SCIF_SCLSR(ATTR_baseAddress));
+        sil_wrh_mem(SCIF_SCFSR(ATTR_baseAddress), 0U);
+        sil_wrh_mem(SCIF_SCLSR(ATTR_baseAddress), 0U);
+        sil_wrh_mem(SCIF_SCSCR(ATTR_baseAddress), SCIF_SCSCR_INTCLK);
+        sil_wrh_mem(SCIF_SCSMR(ATTR_baseAddress), SCIF_SCSMR_CKS1);
+        sil_wrh_mem(SCIF_SCEMR(ATTR_baseAddress), 0U);
+        sil_wrb_mem(SCIF_SCBRR(ATTR_baseAddress), (uint8_t) brr);
+        sil_wrh_mem(SCIF_SCFCR(ATTR_baseAddress),
+                (void) sil_reh_mem(SCIF_SCFSR(ATTR_baseAddress));
+                (void) sil_reh_mem(SCIF_SCLSR(ATTR_baseAddress));
+                sil_wrh_mem(SCIF_SCFSR(ATTR_baseAddress), 0U);
+                sil_wrh_mem(SCIF_SCLSR(ATTR_baseAddress), 0U);
+                sil_wrh_mem(SCIF_SCSCR(ATTR_baseAddress), SCIF_SCSCR_INTCLK);
+                sil_wrh_mem(SCIF_SCSMR(ATTR_baseAddress),
+                                                        SCIF_SCSMR_ASYNC|ATTR_mode|SCIF_SCSMR_CKS1);
+                sil_wrh_mem(SCIF_SCEMR(ATTR_baseAddress), 0U);
+                sil_wrb_mem(SCIF_SCBRR(ATTR_baseAddress), (uint8_t) brr);
+                sil_wrh_mem(SCIF_SCFCR(ATTR_baseAddress),
                                         SCIF_SCFCR_RSTRG_15|SCIF_SCFCR_RTRG_1|SCIF_SCFCR_TTRG_8);
         sil_wrh_mem(SCIF_SCSCR(ATTR_baseAddress),
+                sil_wrh_mem(SCIF_SCSCR(ATTR_baseAddress),
                                         SCIF_SCSCR_TE|SCIF_SCSCR_RE|SCIF_SCSCR_INTCLK);
+        while ((sil_reh_mem(SCIF_SCFSR(ATTR_baseAddress)) & SCIF_SCFSR_RDF) != 0U) {
+                (void) sil_reb_mem(SCIF_SCFRDR(ATTR_baseAddress));
+                sil_wrh_mem(SCIF_SCFSR(ATTR_baseAddress), (uint16_t) ~(SCIF_SCFSR_RDF));
+        }
+        sil_wrh_mem(SCIF_SCFSR(ATTR_baseAddress), 0U);
+        VAR_initialized = true;
+                while ((sil_reh_mem(SCIF_SCFSR(ATTR_baseAddress)) & SCIF_SCFSR_RDF)
+                                                                                                                                        != 0U) {
+                        (void) sil_reb_mem(SCIF_SCFRDR(ATTR_baseAddress));
+                        sil_wrh_mem(SCIF_SCFSR(ATTR_baseAddress),
+                                                        (uint16_t) ~(SCIF_SCFSR_RDF));
+                }
+                sil_wrh_mem(SCIF_SCFSR(ATTR_baseAddress), 0U);
+                VAR_opened = true;
+        }
+}
 …
         CELLCB  *p_cellcb = GET_CELLCB(idx);
+        sil_wrh_mem(SCIF_SCSCR(ATTR_baseAddress), 0U);
+        if (VAR_opened) {
+                sil_wrh_mem(SCIF_SCSCR(ATTR_baseAddress), 0U);
+                VAR_opened = false;
+        }
+}
 …
+        }
+}
+/*
+ *  SIOドライバの終了処理
+ */
+void
+eTerminate_main(CELLIDX idx)
+{
+        CELLCB  *p_cellcb = GET_CELLCB(idx);
+        if (VAR_opened) {
+                /*
+                 *  送信FIFOが空になるまで待つ
+                 */
+                while ((sil_reh_mem(SCIF_SCFSR(ATTR_baseAddress))
+                                                                                        & SCIF_SCFSR_TEND) == 0U) ;
+                /*
+                 *  ポートのクローズ
+                 */
+                eSIOPort_close(idx);
+        }
+}

EcnlProtoTool/trunk/asp3_dcre/arch/arm_gcc/rza1/tSCIF.cdl

-              r321
+              r429
  *  Copyright (C) 2015 by Ushio Laboratory
  *              Graduate School of Engineering Science, Osaka Univ., JAPAN
  *  Copyright (C) 2015,2016 by Embedded and Real-Time Systems Laboratory
+ *  Copyright (C) 2015-2018 by Embedded and Real-Time Systems Laboratory
  *              Graduate School of Information Science, Nagoya Univ., JAPAN
+ *
 …
         entry   siHandlerBody   eiRxISR;
         entry   siHandlerBody   eiTxISR;
+        entry   sRoutineBody    eTerminate;
         attr {
                 uintptr_t       baseAddress;    /* SCIFレジスタのベースアドレス */
+                uint32_t        baudRate;               /* ボーレートの設定値 */
+                uint16_t        mode;                   /* モードレジスタの設定値 */
+                uint32_t        baudRate;               /* ボーレート */
         };
         var {
                 bool_t          initialized = false;    /* 初期化済み */
+                bool_t          opened = false; /* オープン済み */
         };
 };

EcnlProtoTool/trunk/asp3_dcre/arch/gcc/tool_stddef.h

-              r321
+              r429
  *  Copyright (C) 2000-2003 by Embedded and Real-Time Systems Laboratory
  *                              Toyohashi Univ. of Technology, JAPAN
  *  Copyright (C) 2004-2011 by Embedded and Real-Time Systems Laboratory
+ *  Copyright (C) 2004-2018 by Embedded and Real-Time Systems Laboratory
  *              Graduate School of Information Science, Nagoya Univ., JAPAN
+ *
 …
+ *
  *  TOPPERS_STDINT_TYPE1: char/short/int/long longのビット長がそれぞれ
  *                        8/16/32/64ビットで，ポインタのビット長がlong
  *                        のビット長と一致する場合
+ *                        8/16/32/64ビットで，size_tとポインタのビット
+ *                        長がlongのビット長と一致する場合
  */
 #ifdef TOPPERS_STDINT_TYPE1
 …
 #define INT_LEAST8_MIN          INT8_MIN
 #define UINT_LEAST8_MAX         INT8_MAX
+#define SIZE_MAX                        ULONG_MAX
 #endif /* TOPPERS_STDINT_TYPE1 */

EcnlProtoTool/trunk/asp3_dcre/arch/tracelog/tTraceLog.c

-              r331
+              r429
  *  Copyright (C) 2000-2003 by Embedded and Real-Time Systems Laboratory
  *                              Toyohashi Univ. of Technology, JAPAN
  *  Copyright (C) 2005-2016 by Embedded and Real-Time Systems Laboratory
+ *  Copyright (C) 2005-2019 by Embedded and Real-Time Systems Laboratory
  *              Graduate School of Information Science, Nagoya Univ., JAPAN
+ *
 …
 #include "kernel/task.h"
 #include "kernel/time_event.h"
+#ifdef TOPPERS_SUPPORT_PROTECT
+#include "kernel/domain.h"
+#endif /* TOPPERS_SUPPORT_PROTECT */
 #include <sil.h>
 #include <log_output.h>
 …
+ *
  *  デフォルトでは，ログ時刻として，高分解能タイマのカウント値を用いて
  *  いる．ターゲット依存で変更する場合には，SYSLOG_GET_LOGTIMに，ログ時
+ *  いる．ターゲット依存で変更する場合には，TRACE_GET_LOGTIMに，ログ時
  *  刻を取り出すマクロを定義する．
  */
 #ifndef SYSLOG_GET_LOGTIM
 #define SYSLOG_GET_LOGTIM(p_logtim) \
+#ifndef TRACE_GET_LOGTIM
+#define TRACE_GET_LOGTIM(p_logtim) \
                                 (*(p_logtim) = target_hrt_get_current())
 #endif /* SYSLOG_GET_TIM */
 /*
  *  トレースログの開始
+#endif /* TRACE_GET_TIM */
+/*
+ *  トレースログの開始（受け口関数）
  */
 ER
 …
 /*
  *  トレースログの書込み
+ *  トレースログの書込み（受け口関数）
  */
 ER
 …
                  *  トレース時刻の設定
                  */
                 SYSLOG_GET_LOGTIM(&(((SYSLOG *) p_trace)->logtim));
+                TRACE_GET_LOGTIM(&(((SYSLOG *) p_trace)->logtim));
                 /*
 …
 /*
  *  トレースログの読出し
+ *  トレースログの読出し（受け口関数）
  */
 ER
 …
         p_tcb = (TCB *) info;
         if (p_tcb == NULL) {
                 tskid = 0;
+                tskid = TSK_NONE;
+        }
         else {
 …
+}
+#ifdef TOPPERS_SUPPORT_PROTECT
+static intptr_t
+get_somid(intptr_t info)
+{
+        SOMINIB *p_sominib;
+        ID              somid;
+        p_sominib = (SOMINIB *) info;
+        if (p_sominib == NULL) {
+                somid = TSOM_STP;
+        }
+        else {
+                somid = SOMID(p_sominib);
+        }
+        return((intptr_t) somid);
+}
+static intptr_t
+get_twd_domid(intptr_t info)
+{
+        TWDINIB *p_twdinib;
+        ID              domid;
+        p_twdinib = (TWDINIB *) info;
+        domid = (ID)(p_twdinib->p_dominib - dominib_table) + TMIN_DOMID;
+        return((intptr_t) domid);
+}
+#endif /* TOPPERS_SUPPORT_PROTECT */
 /*
  *  トレースログの表示
 …
                 tracemsg = "dispatch to task %d.";
                 break;
+#ifdef TOPPERS_SUPPORT_PROTECT
+        case LOG_TYPE_SCYC|LOG_START:
+                traceinfo[0] = get_somid(p_trace->logpar[0]);
+                tracemsg = "system cycle starts with system operating mode %d.";
+                break;
+        case LOG_TYPE_TWD|LOG_START:
+                if (p_trace->logpar[0] == 0) {
+                        tracemsg = "idle window starts.";
+                }
+                else {
+                        traceinfo[0] = get_twd_domid(p_trace->logpar[0]);
+                        tracemsg = "time window for domain %d starts.";
+                }
+                break;
+#endif /* TOPPERS_SUPPORT_PROTECT */
         case LOG_TYPE_COMMENT:
                 for (i = 1; i < TNUM_LOGPAR; i++) {
 …
+}
 /*
  *  トレースログのダンプ
  */
 void
 eTraceLog_dump(void)
+/*
+ *  トレースログのダンプ（受け口関数）
+ */
+void
+eDump_main(uintptr_t exinf)
+{
         TRACE   trace;
 …
+        }
+}
-/*
- *  トレースログのダンプ（受け口関数）
- */
-void
-tTraceLog_eDump_main(uintptr_t exinf)
+{
-        eTraceLog_dump();
+}

EcnlProtoTool/trunk/asp3_dcre/arch/tracelog/tTraceLog.cdl

-              r321
+              r429
 /*
+ *  TOPPERS/ASP Kernel
+ *      Toyohashi Open Platform for Embedded Real-Time Systems/
+ *      Advanced Standard Profile Kernel
+ *  TOPPERS Software
+ *      Toyohashi Open Platform for Embedded Real-Time Systems
+ *
  *  Copyright (C) 2015 by Ushio Laboratory
  *              Graduate School of Engineering Science, Osaka Univ., JAPAN
  *  Copyright (C) 2015,2016 by Embedded and Real-Time Systems Laboratory
+ *  Copyright (C) 2015-2018 by Embedded and Real-Time Systems Laboratory
  *              Graduate School of Information Science, Nagoya Univ., JAPAN
+ *
 …
          */
         ER              read([out] TRACE *p_trace);
-        /*
-         *  トレースログのダンプ
-         */
-        void    dump(void);
 };
 …
 celltype tTraceLog {
         entry   sTraceLog               eTraceLog;
         entry   sRoutineBody    eDump;          /* 終了処理ルーチンとの接続 */
         call    sPutLog                 cPutLog;        /* 低レベル出力との接続 */
+        entry   sRoutineBody    eDump;          /* トレースログのダンプ */
+        call    sPutLog                 cPutLog;        /* ダンプ先との接続 */
         attr {

EcnlProtoTool/trunk/asp3_dcre/arch/tracelog/trace_log.h

-              r331
+              r429
  *  Copyright (C) 2000-2003 by Embedded and Real-Time Systems Laboratory
  *                              Toyohashi Univ. of Technology, JAPAN
  *  Copyright (C) 2004-2016 by Embedded and Real-Time Systems Laboratory
+ *  Copyright (C) 2004-2019 by Embedded and Real-Time Systems Laboratory
  *              Graduate School of Information Science, Nagoya Univ., JAPAN
+ *
 …
 /*
  *              トレースログに関する設定
+ *              トレースログ機能のヘッダファイル
+ *
  *  このインクルードファイルは，target_kernel_impl.hおよび
  *  target_syssvc.hのみからインクルードされる．また，トレースログ機能の
  *  初期化や記録の開始／停止，トレースログのダンプを行うプログラムから
  *  インクルードすることを想定している．
  */
 #ifndef TOPPERS_TRACE_CONFIG_H
 #define TOPPERS_TRACE_CONFIG_H
+ *  target_syssvc.hからインクルードされる．また，トレースログ機能の初
+ *  期化や記録の開始／停止，トレースログのダンプを行うプログラムからイ
+ *  ンクルードすることを想定している．
+ */
+#ifndef TOPPERS_TRACE_LOG_H
+#define TOPPERS_TRACE_LOG_H
 /*
 …
 /*
  *  TECSで記述されたテストプログラム用のサービスを直接呼び出すための定義
+ *  TECSで記述されたトレースログ機能を直接呼び出すための定義
+ *
  *  C言語で記述されたアプリケーションから，TECSで記述されたトレースログ
 …
 Inline void
 trace_write_1(uint_t type, intptr_t arg1)
+trace_write_1(uint_t type, LOGPAR arg1)
+{
         TRACE   trace;
 …
 Inline void
 trace_write_2(uint_t type, intptr_t arg1, intptr_t arg2)
+trace_write_2(uint_t type, LOGPAR arg1, LOGPAR arg2)
+{
         TRACE   trace;
 …
 Inline void
 trace_write_3(uint_t type, intptr_t arg1, intptr_t arg2, intptr_t arg3)
+trace_write_3(uint_t type, LOGPAR arg1, LOGPAR arg2, LOGPAR arg3)
+{
         TRACE   trace;
 …
 #define trace_1(type, arg1) \
                                 trace_write_1(type, (intptr_t)(arg1))
+                                trace_write_1(type, (LOGPAR)(arg1))
 #define trace_2(type, arg1, arg2) \
                                 trace_write_2(type, (intptr_t)(arg1), (intptr_t)(arg2))
+                                trace_write_2(type, (LOGPAR)(arg1), (LOGPAR)(arg2))
 #define trace_3(type, arg1, arg2, arg3) \
                                 trace_write_3(type, (intptr_t)(arg1), (intptr_t)(arg2), \
                                                                                                                 (intptr_t)(arg3))
+                                trace_write_3(type, (LOGPAR)(arg1), (LOGPAR)(arg2), \
+                                                                                                                (LOGPAR)(arg3))
 /*
  *  トレースログのダンプ
+ *
- *  トレースログをダンプする．終了処理ルーチンとして登録することも想定
- *  している．引数として，ダンプ先となる文字出力関数へのポインタを渡す．
- *  ターゲット依存の低レベル文字出力を利用する場合には，target_putcを渡
- *  す．
  */
 Inline void
 …
  */
 #define LOG_TSKSTAT(p_tcb)              trace_2(LOG_TYPE_TSKSTAT, p_tcb, p_tcb->tstat)
+#define LOG_DSP_LEAVE(p_tcb)    trace_1(LOG_TYPE_DSP|LOG_LEAVE, p_tcb)
+#ifdef TOPPERS_SUPPORT_PROTECT
+#define LOG_SCYC_START(p_sominib)       trace_1(LOG_TYPE_SCYC|LOG_START, p_sominib)
+#define LOG_TWD_START(p_twdinib)        trace_1(LOG_TYPE_TWD|LOG_START, p_twdinib)
+#endif /* TOPPERS_SUPPORT_PROTECT */
 #define LOG_TSYSLOG_ESYSLOG_WRITE_ENTER(priority, p_syslog) \
                                                                 trace_wri_log((TRACE *) p_syslog)
 #endif /* TOPPERS_TRACE_CONFIG_H */
+#endif /* TOPPERS_TRACE_LOG_H */

EcnlProtoTool/trunk/asp3_dcre/cfg/GenFile.rb

r321	r429
37	37	# の責任を負わない．
38	38	#
39		# $Id$
	39	# $Id: GenFile.rb 111 2016-03-16 23:50:27Z ertl-hiro $
40	40	#
41	41

EcnlProtoTool/trunk/asp3_dcre/cfg/MANIFEST

r270	r429
	1	PACKAGE cfg
	2	VERSION 1.5.0
	3
1	4	MANIFEST
2	5	cfg.rb

EcnlProtoTool/trunk/asp3_dcre/cfg/SRecord.rb

-              r321
+              r429
 #  の責任を負わない．
+#
 #  $Id$
+#  $Id: SRecord.rb 161 2018-12-12 00:45:04Z ertl-hiro $
+#
 …
     end
   end
+  # 文字列としてのデータ取得
+  def get_string(address)
+    str = ""
+    targetChar = get_data(address, 1).hex
+    while (!targetChar.nil? && targetChar != 0)
+      str += targetChar.chr
+      address += 1
+      targetChar = get_data(address, 1).hex
+    end
+    return(str)
+  end
 end

EcnlProtoTool/trunk/asp3_dcre/cfg/cfg.rb

-              r331
+              r429
 #!/usr/bin/env ruby
+#!/usr/bin/env ruby -Eutf-8 -w
 # -*- coding: utf-8 -*-
+#
 …
+#
 #  Copyright (C) 2015 by FUJI SOFT INCORPORATED, JAPAN
 #  Copyright (C) 2015,2016 by Embedded and Real-Time Systems Laboratory
+#  Copyright (C) 2015-2019 by Embedded and Real-Time Systems Laboratory
 #              Graduate School of Information Science, Nagoya Univ., JAPAN
+#
 …
 #  の責任を負わない．
+#
 #  $Id$
+#  $Id: cfg.rb 175 2019-06-19 01:51:58Z ertl-hiro $
+#
 …
+#
 # 共通
 VERSION = "1.2.2"
+VERSION = "1.5.0"
 # cfg1_out関係
+CFG1_PREFIX        = "TOPPERS_cfg_"
+CFG1_MAGIC_NUM     = "TOPPERS_magic_number"
+CFG1_SIZEOF_SIGNED = "TOPPERS_sizeof_signed_t"
+CFG1_OUT_C         = "cfg1_out.c"
+CFG1_OUT_DB        = "cfg1_out.db"
+CFG1_OUT_SREC      = "cfg1_out.srec"
+CFG1_OUT_SYMS      = "cfg1_out.syms"
+CFG1_OUT_TIMESTAMP = "cfg1_out.timestamp"
+CFG1_OUT_TARGET_H  = "target_cfg1_out.h"
+CFG1_PREFIX         = "TOPPERS_cfg_"
+CFG1_MAGIC_NUM      = "TOPPERS_magic_number"
+CFG1_SIZEOF_SIGNED  = "TOPPERS_sizeof_signed_t"
+CFG1_SIZEOF_INTPTR  = "TOPPERS_sizeof_intptr_t"
+CFG1_SIZEOF_CHARPTR = "TOPPERS_sizeof_char_ptr_t"
+CFG1_OUT_C          = "cfg1_out.c"
+CFG1_OUT_DB         = "cfg1_out.db"
+CFG1_OUT_SREC       = "cfg1_out.srec"
+CFG1_OUT_SYMS       = "cfg1_out.syms"
+CFG1_OUT_TIMESTAMP  = "cfg1_out.timestamp"
+CFG1_OUT_TARGET_H   = "target_cfg1_out.h"
 # cfg2_out関係
 …
 $noParseError = 0
 def parse_error(cfgFile, message)
   error(message, "#{cfgFile.getFileName()}:#{cfgFile.getLineNo}:")
+  error(message, "#{cfgFile.getFileName}:#{cfgFile.getLineNo}:")
   if ($noParseError += 1) >= 10
     abort("too many errors emitted, stopping now")
 …
 # システムコンフィギュレーションファイルの構文解析時の警告
 def parse_warning(cfgFile, message)
   warning(message, "#{cfgFile.getFileName()}:#{cfgFile.getLineNo}:")
+  warning(message, "#{cfgFile.getFileName}:#{cfgFile.getLineNo}:")
 end
 …
 def error_ercd(errorCode, params, message)
   error_api(params, "#{errorCode}: #{message}")
-end
-# 静的API処理時の警告（エラーコード付き）
-def warning_ercd(errorCode, params, message)
-  warning_api(params, "#{errorCode}: #{message}")
 end
 …
   # ハッシュのキーとして使う時の比較も数値情報で行う
   def eql?(other)
     @val == other.val
+    @val == other
   end
 …
     if symbolData.has_key?(:VALUE)
       eval("$#{symbolName} = #{symbolData[:VALUE]}")
+      if symbolData.has_key?(:NUMSTRVAR)
+        eval("$#{symbolData[:NUMSTRVAR]} = " \
+                                        "NumStr.new(symbolData[:VALUE], symbolData[:EXPR])")
+      end
     end
   end
 …
+#
+#  インクルードディレクティブ（#include）の生成
+#
+def GenerateIncludes(genFile)
+  $cfgFileInfo.each do |cfgInfo|
+    if cfgInfo.has_key?(:DIRECTIVE)
+      genFile.add(cfgInfo[:DIRECTIVE])
+    end
+  end
+end
+#
 #  パス3の処理
+#
 …
   db = PStore.new(CFG2_OUT_DB)
   db.transaction(true) do
+    $apiDefinition = db[:apiDefinition]
+    $symbolValueTable = db[:symbolValueTable]
+    $cfgFileInfo = db[:cfgFileInfo]
+    $includeFiles = db[:includeFiles]
+    $cfgData = db[:cfgData]
+    $asmLabel = db[:asmLabel]
+    $endianLittle = db[:endianLittle]
+    $cfg2Data = db[:cfg2Data]
+  end
+  $cfg3Data = {}
+    db.roots.each do |var|
+      eval("$#{var} = db[:#{var}]")
+    end
+  end
+  #
 …
   #  パス4に引き渡す情報をファイルに生成
+  #
   if $omitOutputDb.nil?
+  if !$omitOutputDb
     db = PStore.new(CFG3_OUT_DB)
     db.transaction do
+      db[:apiDefinition] = $apiDefinition
+      db[:symbolValueTable] = $symbolValueTable
+      db[:cfgFileInfo] = $cfgFileInfo
+      db[:includeFiles] = $includeFiles
+      db[:cfgData] = $cfgData
+      db[:asmLabel] = $asmLabel
+      db[:endianLittle] = $endianLittle
+      db[:cfg3Data] = $cfg3Data
+      $globalVars.each do |var|
+        eval("db[:#{var}] = $#{var}")
+      end
     end
   end
 …
   db = PStore.new(CFG3_OUT_DB)
   db.transaction(true) do
+    $apiDefinition = db[:apiDefinition]
+    $symbolValueTable = db[:symbolValueTable]
+    $cfgFileInfo = db[:cfgFileInfo]
+    $includeFiles = db[:includeFiles]
+    $cfgData = db[:cfgData]
+    $asmLabel = db[:asmLabel]
+    $endianLittle = db[:endianLittle]
+    $cfg3Data = db[:cfg3Data] || db[:cfg2Data]
+    db.roots.each do |var|
+      eval("$#{var} = db[:#{var}]")
+    end
   end
 …
 $romImageFileName = nil
 $romSymbolFileName = nil
-$dependencyFileName = nil
 $idInputFileName = nil
 $idOutputFileName = nil
+$dependencyFileName = nil
+$omitOutputDb = false
+$supportDomain = false
+$supportClass = false
+#
 #  オプションの処理
+#
 OptionParser.new(banner="Usage: cfg.rb [options] CONFIG-FILE", 40) do |opt|
+OptionParser.new("Usage: cfg.rb [options] CONFIG-FILE", 40) do |opt|
   opt.version = VERSION
+  opt.release = nil
   opt.on("-k KERNEL", "--kernel KERNEL", "kernel profile name") do |val|
     $kernel = val
 …
     $omitOutputDb = true
   end
+  opt.on("--enable-domain", "enable DOMAIN support") do
+        $supportDomain = true
+  end
+  opt.on("--enable-class", "enable CLASS support") do
+        $supportClass = true
+  end
   opt.on("-v", "--version", "show version number") do
+    abort(opt.ver)
+    puts(opt.ver)
+    exit(0)
   end
   opt.on("-h", "--help", "show help (this)") do
+    abort(opt.help)
+    puts(opt.help)
+    exit(0)
   end
   opt.parse!(ARGV)
 …
         $supportDomain = true
 when /^fmp/
+        $supportClass = true
+when /^hrmp/
+        $supportDomain = true
         $supportClass = true
 end

EcnlProtoTool/trunk/asp3_dcre/cfg/pass1.rb

-              r360
+              r429
+#
 #  Copyright (C) 2015 by FUJI SOFT INCORPORATED, JAPAN
 #  Copyright (C) 2015-2017 by Embedded and Real-Time Systems Laboratory
+#  Copyright (C) 2015-2018 by Embedded and Real-Time Systems Laboratory
 #              Graduate School of Information Science, Nagoya Univ., JAPAN
+#
 …
 #  の責任を負わない．
+#
 #  $Id$
+#  $Id: pass1.rb 165 2019-01-11 01:29:47Z ertl-hiro $
+#
 …
   "LONG_MAX"  => { EXPR: "LONG_MAX",  SIGNED: true },
   "LONG_MIN"  => { EXPR: "LONG_MIN",  SIGNED: true },
+  "ULONG_MAX" => { EXPR: "ULONG_MAX" }
+  "ULONG_MAX" => { EXPR: "ULONG_MAX" },
+  "SIL_ENDIAN_BIG" \
+        => { EXPR: "true", BOOL: true, CONDITION: "defined(SIL_ENDIAN_BIG)" },
+  "SIL_ENDIAN_LITTLE" \
+        => { EXPR: "true", BOOL: true, CONDITION: "defined(SIL_ENDIAN_LITTLE)" }
+}
 …
+#
 $apiDefinition = { "INCLUDE" =>
   { :PARAM => [ { :NAME => :file, :STRING => true }]}}
+  { :PARAM => [ { :NAME => :file, :STRING_LITERAL => true }]}}
+#
 …
             apiParam[:EXPTYPE] = "signed_t"
             apiParam[:SIGNED] = true
+          when "^"                                      # ポインタ整数定数式パラメータ
+            apiParam[:EXPTYPE] = "uintptr_t"
+            apiParam[:INTPTR] = true
           when "&"                                      # 一般整数定数式パラメータ
             # do nothing
           when "$"                                      # 文字列定数式パラメータ
             apiParam[:STRING] = true
+            apiParam[:EXPTYPE] = "char *"
           else
             error_exit("`#{param}' is invalid")
 …
                                                 { skip_blanks: true, skip_lines: /^#/ })
     symvalCsv.each do |record|
+      symbol = {}
       # 変数名
       if record[0].nil?
         error_exit("invalid variable name in " \
                                                 "`#{symvalTableFileName}:#{symvalCsv.to_io.lineno}'")
+      end
+      symbol = {}
+      variable = record[0]
+      elsif /^(.+)\[(.+)\]$/ =~ record[0]
+        variable = $1
+        symbol[:NUMSTRVAR] = $2
+      else
+        variable = record[0]
+      end
       # 式
 …
         when /^[bB]/                            # 真偽値
           symbol[:BOOL] = true
+        when /^[iI]/                            # ポインタ整数値
+          symbol[:INTPTR] = true
         when /^[uU]/                            # 符号無し整数値
           # 何も設定しない
 …
     skipSpace(cfgFile, withinApi)
     if @line.nil?                                                       # ファイル末であればエラー終了
       error_exit("unexpexced end-of-file")
+      error_exit("#{cfgFile.getFileName}: unexpeced end-of-file")
     end
   end
 …
     end
     if apiParam.has_key?(:STRING)
+    if apiParam.has_key?(:STRING_LITERAL)
       return(param.unquote)
     else
 …
         # プリプロセッサディレクティブを読む
         case @line
+        when /^#include\b(.*)$/
+          $includeFiles.push($1.strip)
+        when /^#(ifdef|ifndef|if|endif|else|elif)\b/
+          directive = { :DIRECTIVE => @line.strip }
+        when /^#(include|ifdef|ifndef|if|endif|else|elif)\b/
+          directive = {}
+          directive[:DIRECTIVE] = @line.strip
+          directive[:_FILE_] = cfgFile.getFileName
+          directive[:_LINE_] = cfgFile.getLineNo
           $cfgFileInfo.push(directive)
         else
 …
         case apiName
         when "KERNEL_DOMAIN"
           if $supportDomain.nil?
+          if !$supportDomain
             parse_warning(cfgFile, "`KERNEL_DOMAIN' is not supported")
           end
 …
           @@nestDC.push("domain")
         when "DOMAIN"
           if $supportDomain.nil?
+          if !$supportDomain
             parse_warning(cfgFile, "`DOMAIN' is not supported")
           end
 …
           @@nestDC.push("domain")
         when "CLASS"
           if $supportClass.nil?
+          if !$supportClass
             parse_warning(cfgFile, "`CLASS' is not supported")
           end
 …
               includeFilePath = SearchFilePath(staticApi[:file])
               if includeFilePath.nil?
+                parse_error(cfgFile, "`#{staticApi[:file]}' not found")
+                error = {}
+                error[:DIRECTIVE] = "#error '#{staticApi[:file]}' not found."
+                error[:_FILE_] = cfgFile.getFileName
+                error[:_LINE_] = cfgFile.getLineNo
+                $cfgFileInfo.push(error)
               else
                 $dependencyFiles.push(includeFilePath)
 …
               $cfgFileInfo.push(staticApi)
             end
+            # ";"を読む
+            skipToToken(cfgFile, false)         # 次の文字まで読み飛ばす
+            if (/^\;(.*)$/ =~ @line)
+              @line = $1
+            else
+              parse_error(cfgFile, "`;' expected after static API")
+            end
           else
             parse_error(cfgFile, "unknown static API: #{apiName}")
 …
+  #
   def self.OutLineNumber(cfgInfo)
     @cfg1Out.add("#line #{cfgInfo[:_LINE_]} \"#{cfgInfo[:_FILE_].gsub('\\', '/')}\"")
+    @cfg1Out.add("#line #{cfgInfo[:_LINE_]} \"#{cfgInfo[:_FILE_]}\"")
   end
 …
+  #
   def self.OutClassLineNumber(cfgInfo)
     @cfg1Out.add("#line #{cfgInfo[:CLASS_LINE_]} \"#{cfgInfo[:CLASS_FILE_].gsub('\\', '/')}\"")
+    @cfg1Out.add("#line #{cfgInfo[:CLASS_LINE_]} \"#{cfgInfo[:CLASS_FILE_]}\"")
   end
 …
 EOS
+    # インクルードヘッダファイル
+    $includeFiles.each do |file|
+      @cfg1Out.add("#include #{file}")
+    # インクルードディレクティブ（#include）の生成
+    $cfgFileInfo.each do |cfgInfo|
+      if cfgInfo.has_key?(:DIRECTIVE)
+        OutLineNumber(cfgInfo)
+        @cfg1Out.add(cfgInfo[:DIRECTIVE])
+      end
     end
 …
 #include "#{CFG1_OUT_TARGET_H}"
-#if defined(SIL_ENDIAN_BIG) && defined(SIL_ENDIAN_LITTLE)
-#error Both SIL_ENDIAN_BIG and SIL_ENDIAN_LITTLE are defined.
-#endif
-#if !defined(SIL_ENDIAN_BIG) && !defined(SIL_ENDIAN_LITTLE)
-#error Neither SIL_ENDIAN_BIG nor SIL_ENDIAN_LITTLE is defined.
-#endif
 const uint32_t #{CFG1_MAGIC_NUM} = 0x12345678;
 const uint32_t #{CFG1_SIZEOF_SIGNED} = sizeof(signed_t);
+const uint32_t #{CFG1_SIZEOF_INTPTR} = sizeof(intptr_t);
+const uint32_t #{CFG1_SIZEOF_CHARPTR} = sizeof(char *);
 EOS
     # 値取得シンボルの処理
     $symbolValueTable.each do |symbolName, symbolData|
+      if symbolData.has_key?(:BOOL) || symbolData.has_key?(:SIGNED)
+      if symbolData.has_key?(:BOOL)
+        type = "signed_t"
+      elsif symbolData.has_key?(:INTPTR)
+        type = "uintptr_t"
+      elsif symbolData.has_key?(:SIGNED)
         type = "signed_t"
       else
 …
     $cfgFileInfo.each do |cfgInfo|
       if cfgInfo.has_key?(:DIRECTIVE)
+        @cfg1Out.add2(cfgInfo[:DIRECTIVE])
+        # 条件ディレクティブを出力
+        if cfgInfo[:DIRECTIVE] =~ /^#(ifdef|ifndef|if|endif|else|elif)\b/
+          OutLineNumber(cfgInfo)
+          @cfg1Out.add2(cfgInfo[:DIRECTIVE])
+        end
       else
         apiDef = $apiDefinition[cfgInfo[:APINAME]]
 …
   $cfgFileInfo = []
   $dependencyFiles = $configFileNames.dup
-  $includeFiles = []
   $domainId = { "TDOM_KERNEL" => -1, "TDOM_NONE" => -2 }
   $configFileNames.each do |configFileName|
 …
   #  パス2に引き渡す情報をファイルに生成
+  #
   if $omitOutputDb.nil?
+  if !$omitOutputDb
     db = PStore.new(CFG1_OUT_DB)
     db.transaction do
 …
       db[:symbolValueTable] = $symbolValueTable
       db[:cfgFileInfo] = $cfgFileInfo
-      db[:includeFiles] = $includeFiles
       db[:domainId] = $domainId
     end

EcnlProtoTool/trunk/asp3_dcre/cfg/pass2.rb

-              r331
+              r429
+#
 #  Copyright (C) 2015 by FUJI SOFT INCORPORATED, JAPAN
 #  Copyright (C) 2015-2017 by Embedded and Real-Time Systems Laboratory
+#  Copyright (C) 2015-2018 by Embedded and Real-Time Systems Laboratory
 #              Graduate School of Information Science, Nagoya Univ., JAPAN
+#
 …
 #  の責任を負わない．
+#
 #  $Id$
+#  $Id: pass2.rb 175 2019-06-19 01:51:58Z ertl-hiro $
+#
 …
+  #
+  #  Sレコードファイルからシンボルの文字列を取り出す
+  #
+  def self.GetSymbolString(symbol)
+    if @symbolAddress.has_key?(symbol) \
+                        && !(address = @cfg1SRec.get_value(@symbolAddress[symbol], \
+                                                                                                $sizeOfCharPtr, false)).nil?
+      return(@cfg1SRec.get_string(address))
+    else
+      return(nil)
+    end
+  end
+  #
   #  パス1の生成物の読み込み（メインの処理）
+  #
 …
     end
     # マジックナンバーの取得
+    # マジックナンバーの取得とエンディアンの設定
     if @symbolAddress.has_key?(CFG1_MAGIC_NUM)
       $asmLabel = ""
 …
     # 固定出力した変数の取得
     $sizeOfSigned = GetSymbolValue($asmLabel + CFG1_SIZEOF_SIGNED, 4, false)
+    $sizeOfIntptr = GetSymbolValue($asmLabel + CFG1_SIZEOF_INTPTR, 4, false)
+    $sizeOfCharPtr = GetSymbolValue($asmLabel + CFG1_SIZEOF_CHARPTR, 4, false)
     # 値取得シンボルの取得
 …
         end
       else
+        value = GetSymbolValue(symbol, $sizeOfSigned, \
+        if symbolData.has_key?(:INTPTR)
+          value = GetSymbolValue(symbol, $sizeOfIntptr, \
                                                                                 symbolData.has_key?(:SIGNED))
+        else
+          value = GetSymbolValue(symbol, $sizeOfSigned, \
+                                                                                symbolData.has_key?(:SIGNED))
+        end
         if !value.nil?
           symbolData[:VALUE] = value
         end
+      end
+    end
+    # SILによるエンディアン定義のチェック
+    if $symbolValueTable["SIL_ENDIAN_BIG"].has_key?(:VALUE)
+      if $symbolValueTable["SIL_ENDIAN_LITTLE"].has_key?(:VALUE)
+        error_exit("Both SIL_ENDIAN_BIG and SIL_ENDIAN_LITTLE are defined.")
+      else
+        if $endianLittle
+          error_exit("Definition of SIL_ENDIAN_BIG seems to be wrong.")
+        end
+      end
+    else
+      if $symbolValueTable["SIL_ENDIAN_LITTLE"].has_key?(:VALUE)
+        if !$endianLittle
+          error_exit("Definition of SIL_ENDIAN_LITTLE seems to be wrong.")
+        end
+      else
+        # 両方が未定義の場合のエラーチェックは，sil.hで実施する
       end
     end
 …
+    #
+    #  ドメイン生成データをコンフィギュレーションデータ（$cfgData）に格納
+    #
+    $cfgData[:CRE_DOM] = {}
+    $domainId.each do |domainName, domainVal|
+      domid = NumStr.new(domainVal, domainName)
+      $cfgData[:CRE_DOM][domainVal] = { :domid => domid }
+    #  ドメインデータ（$domData）を生成
+    #
+    if $supportDomain
+      $domData = {}
+      $domainId.each do |domainName, domainVal|
+        domid = NumStr.new(domainVal, domainName)
+        $domData[domainVal] = { :domid => domid }
+      end
+      $globalVars.push("domData")
     end
 …
+  #
   #  パラメータの値を取り出す
+  #
+  #  生成スクリプト内で追加された静的APIの場合には，apiIndexがnilになる．
+  #
   def self.GetParamValue(paramName, param, apiIndex, index, apiParam, cfgInfo)
 …
         value = nil
       end
+    elsif apiParam.has_key?(:STRING)                    # 文字列パラメータ
+      if !apiIndex.nil?
+        symbol = "#{$cfg1_prefix}valueof_#{paramName}_#{apiIndex}#{index}"
+        return(GetSymbolString(symbol))
+      else
+        return(param)
+      end
     elsif apiParam.has_key?(:EXPTYPE)                   # 整数定数式パラメータ
+      if apiIndex.nil?
+      if !apiIndex.nil?
+        symbol = "#{$cfg1_prefix}valueof_#{paramName}_#{apiIndex}#{index}"
+        if apiParam.has_key?(:INTPTR)
+          value = GetSymbolValue(symbol, $sizeOfIntptr, \
+                                                                                apiParam.has_key?(:SIGNED))
+        else
+          value = GetSymbolValue(symbol, $sizeOfSigned, \
+                                                                                apiParam.has_key?(:SIGNED))
+        end
+      else
         if param.is_a?(NumStr)
           return(param)
 …
           return(NumStr.new(param))
         end
+      else
+        symbol = "#{$cfg1_prefix}valueof_#{paramName}_#{apiIndex}#{index}"
+        value = GetSymbolValue(symbol, $sizeOfSigned, \
+                                                                        apiParam.has_key?(:SIGNED))
+      end
+    else                                                                                # 一般定数式／文字列パラメータ
+      end
+    else                                                                                # 一般定数式パラメータ
       return(param)
     end
 …
     # ID番号割り当ての前処理
-    objidParamNameList = []
     $cfgFileInfo.each do |cfgInfo|
       # プリプロセッサディレクティブは読み飛ばす
 …
             @objidValues[objidParamName][objName] = nil
           end
-          objidParamNameList.push(objidParamName)
         end
       end
 …
     # ID番号の割当て処理
+    objidParamNameList.each do |objidParamName|
+      objidList = @objidValues[objidParamName]
+    @objidValues.each do |objidParamName, objidList|
       # 未使用のID番号のリスト（使用したものから消していく）
       unusedObjidList = (1.upto(objidList.keys.size)).to_a
 …
       # クラスIDを追加
       if cfgInfo.has_key?(:CLASS)
+        if apiIndex.nil?
+          params[:class] = cfgInfo[:CLASS]
+        else
+        if !apiIndex.nil?
           symbol = "#{$cfg1_prefix}valueof_CLASS_#{apiIndex}"
           value = GetSymbolValue(symbol, $sizeOfSigned, true)
           params[:class] = NumStr.new(value, cfgInfo[:CLASS])
+        else
+          params[:class] = cfgInfo[:CLASS]
         end
       end
 …
+  #
+  #  ID番号の割当て結果の上書き
+  #
+  def self.SetObjidList(objidParamName, objidList)
+    @objidValues[objidParamName] = objidList
+  end
+  #
   #  ID番号出力ファイルの生成
+  #
 …
   db = PStore.new(CFG1_OUT_DB)
   db.transaction(true) do
+    $apiDefinition = db[:apiDefinition]
+    $symbolValueTable = db[:symbolValueTable]
+    $cfgFileInfo = db[:cfgFileInfo]
+    $includeFiles = db[:includeFiles]
+    $domainId = db[:domainId]
+  end
+  $cfg2Data = {}
+    db.roots.each do |var|
+      eval("$#{var} = db[:#{var}]")
+    end
+  end
+  #
+  #  パス3以降に引き渡す情報の定義
+  #
+  $globalVars = [ "globalVars",
+                  "apiDefinition",
+                  "symbolValueTable",
+                  "cfgFileInfo",
+                  "cfgData",
+                  "asmLabel",
+                  "endianLittle" ]
+  #
 …
   #  パス3に引き渡す情報をファイルに生成
+  #
   if $omitOutputDb.nil?
+  if !$omitOutputDb
     db = PStore.new(CFG2_OUT_DB)
     db.transaction do
+      db[:apiDefinition] = $apiDefinition
+      db[:symbolValueTable] = $symbolValueTable
+      db[:cfgFileInfo] = $cfgFileInfo
+      db[:includeFiles] = $includeFiles
+      db[:cfgData] = $cfgData
+      db[:asmLabel] = $asmLabel
+      db[:endianLittle] = $endianLittle
+      db[:cfg2Data] = $cfg2Data
+      $globalVars.each do |var|
+        eval("db[:#{var}] = $#{var}")
+      end
     end
   end

EcnlProtoTool/trunk/asp3_dcre/configure.rb

-              r331
+              r429
 #  Copyright (C) 2001-2003 by Embedded and Real-Time Systems Laboratory
 #                              Toyohashi Univ. of Technology, JAPAN
 #  Copyright (C) 2006-2016 by Embedded and Real-Time Systems Laboratory
+#  Copyright (C) 2006-2019 by Embedded and Real-Time Systems Laboratory
 #              Graduate School of Information Science, Nagoya Univ., JAPAN
+#
 …
+#
+Encoding.default_external = 'utf-8'
 require "optparse"
 require "fileutils"
 …
 #                                               ル名）名
 #  -C <cdlflle>                 コンポーネント記述ファイル（.cdlファイル）名
 #  -U <applobjs>                他のアプリケーションプログラムファイル
+#  -U <applobjs>                アプリケーションの追加のオブジェクトファイル
 #                                               （.oファイル名で指定．複数指定可）
 #  -S <syssvcobjs>              システムサービスのプログラムファイル
+#  -S <syssvcobjs>              システムサービスのオブジェクトファイル
 #                                               （.oファイル名で指定．複数指定可）
+#  -B <bannerobj>               バナー表示のオブジェクトファイル（.oファイル名で指定）
 #  -L <kernel_lib>              カーネルライブラリ（libkernel.a）のディレクトリ名
 #                                               （省略した場合，カーネルライブラリもmakeする）
 …
 #  -m <tempmakefile>    Makefileのテンプレートのファイル名の指定（デフォル
 #                                               トはsampleディレクトリのMakefile）
+#  -d <depdir>                  依存関係ファイルのディレクトリ名（デフォルトはdeps）
+#  -d <objdir>                  中間オブジェクトファイルと依存関係ファイルを置く
+#                                               ディレクトリ名（デフォルトはobjs）
 #  -w                                   TECSを使用しない
+#  -W <tecsdir>                 TECS関係ファイルのディレクトリ名（デフォルトはソー
+#                                               スファイルのディレクトリの下のtecsgen）
 #  -r                                   トレースログ記録のサンプルコードを使用するかどうか
 #                                               の指定
 …
 #  -o <options>                 コンパイルオプション（COPTSに追加）
 #  -O <options>                 シンボル定義オプション（CDEFSに追加）
+#  -k <options>                 リンカオプション（LDFLAGS等に追加）
+#  -k <options>                 リンカオプション（LDFLAGSに追加）
+#  -b <options>                 リンカオプション（LIBSに追加）
 #  -e <tinetdir>                TINET のソースの置かれているディレクトリ
 #  -i <net_if>                  ネットワークインタフェース（TINETが有効の場合は必須）
 …
+#
 #  % ../configure.rb -T gr_sakura_gcc -A sample1n \
 #                                       -e tinet -i ether -v if_rx62n -n inet4 -s tcp -U sample1.o
+#                                       -e tinet -i ether -v if_mbed -n inet4 -s tcp -U sample1.o
 #       TINETを有効にする．
 …
 $target = nil
 $appldirs = []
+$applname = nil
+$option_t = false
+$cfgfile = nil
+$cdlfile = nil
 $applobjs = []
 $syssvcobjs = []
+$bannerobj = nil
 $kernel_lib = ""
 $kernel_funcobjs = ""
+$srcdir = nil
 $srclang = "c"
+$depdir = "deps"
+$tempmakefile = nil
+$objdir = "objs"
 $omit_tecs = ""
+$tecsdir = nil
 $enable_trace = ""
 $devtooldir = ""
 $ruby = "ruby"
+$cfg = nil
+$tecsgen = nil
 $copts = []
 $cdefs = []
 $ldflags = []
+$libs = []
+#
 …
   end
   opt.on("-a appldirs",         "application directories") do |val|
     $appldirs += val.split("\s+")
+    $appldirs += val.split(/\s+/)
   end
   opt.on("-A applname",         "application program name") do |val|
 …
   end
   opt.on("-U applobjs",         "additional application object files") do |val|
     $applobjs += val.split("\s+")
+    $applobjs += val.split(/\s+/)
   end
   opt.on("-S syssvcobjs",       "system service object files") do |val|
+    $syssvcobjs += val.split("\s+")
+    $syssvcobjs += val.split(/\s+/)
+  end
+  opt.on("-B bannerobj",        "banner display object file") do |val|
+    $bannerobj = val
   end
   opt.on("-L kernel_lib",       "directory of built kernel library") do |val|
 …
   end
   opt.on("-f", "each function is complied separately in kernel") do |val|
     $kernel_funcobjs = true
+    $kernel_funcobjs = "true"
   end
   opt.on("-D srcdir",           "path of source code directory") do |val|
 …
     $tempmakefile = val
   end
   opt.on("-d depdir",           "dependency relation file directory") do |val|
     $depdir = val
+  opt.on("-d objdir",           "relocatable object file directory") do |val|
+    $objdir = val
   end
   opt.on("-w",                          "TECS is not used at all") do |val|
+    $omit_tecs = true
+    $omit_tecs = "true"
+  end
+  opt.on("-W tecsdir",          "path of TECS file directory") do |val|
+    $tecsdir = val
   end
   opt.on("-r",                          "use the sample code for trace log") do |val|
     $enable_trace = true
+    $enable_trace = "true"
   end
   opt.on("-V devtooldir",       "development tools directory") do |val|
 …
   end
   opt.on("-o options",          "compiler options") do |val|
     $copts += val.split("\s+")
+    $copts += val.split(/\s+/)
   end
   opt.on("-O options",          "symbol definition options") do |val|
     $cdefs += val.split("\s+")
+    $cdefs += val.split(/\s+/)
   end
   opt.on("-k options",          "linker options") do |val|
+    $ldflags += val.split("\s+")
+    $ldflags += val.split(/\s+/)
+  end
+  opt.on("-b options",          "linker options for linking libraries") do |val|
+    $libs += val.split(/\s+/)
   end
   opt.on("-e options",          "path of TINET directory") do |val|
 …
+#
 #  変数のデフォルト値
+#  変数のデフォルト値（文字列変数のデフォルト値は初期化で与える）
+#
 if $appldirs.empty?
 …
 end
 $applname ||= "sample1"
-if $option_t.nil?
-  $applobjs.unshift($applname + ".o")
-end
 $cfgfile ||= $applname + ".cfg"
 $cdlfile ||= $applname + ".cdl"
+$applobjs.unshift($applname + ".o") if !$option_t
+$bannerobj ||= ($omit_tecs == "") ? "tBannerMain.o" : "banner.o"
 if $srcdir.nil?
   # ソースディレクトリ名を取り出す
 …
 end
 $tempmakefile ||= $srcdir + "/sample/Makefile"
+$tecsdir ||= "\$(SRCDIR)/tecsgen"
 $cfg ||= $ruby + " \$(SRCDIR)/cfg/cfg.rb"
 $tecsgen ||= $ruby + " \$(SRCDIR)/tecsgen/tecsgen.rb"
+$tecsgen ||= $ruby + " \$(TECSDIR)/tecsgen.rb"
+#
 …
 $vartable["APPLOBJS"] = $applobjs.join(" ")
 $vartable["SYSSVCOBJS"] = $syssvcobjs.join(" ")
+$vartable["BANNEROBJ"] = $bannerobj
 $vartable["KERNEL_LIB"] = $kernel_lib
 $vartable["KERNEL_FUNCOBJS"] = $kernel_funcobjs
 …
 $vartable["SRCABSDIR"] = $srcabsdir
 $vartable["SRCLANG"] = $srclang
 $vartable["DEPDIR"] = $depdir
+$vartable["OBJDIR"] = $objdir
 $vartable["OMIT_TECS"] = $omit_tecs
+$vartable["TECSDIR"] = $tecsdir
 $vartable["ENABLE_TRACE"] = $enable_trace
 $vartable["DEVTOOLDIR"] = $devtooldir
 …
 $vartable["CDEFS"] = $cdefs.join(" ")
 $vartable["LDFLAGS"] = $ldflags.join(" ")
+$vartable["LIBS"] = $libs.join(" ")
 $vartable["OBJEXT"] = GetObjectExtension()
 $vartable["TINETDIR"] = $tinetdir
 …
 #  依存関係ファイルのディレクトリの作成
+#
 if !File.directory?($depdir)
   Dir.mkdir($depdir)
 end
+if !File.directory?($objdir)
+  Dir.mkdir($objdir)
+end

EcnlProtoTool/trunk/asp3_dcre/include/kernel.h

-              r331
+              r429
  *  Copyright (C) 2000-2003 by Embedded and Real-Time Systems Laboratory
  *                              Toyohashi Univ. of Technology, JAPAN
  *  Copyright (C) 2004-2015 by Embedded and Real-Time Systems Laboratory
+ *  Copyright (C) 2004-2019 by Embedded and Real-Time Systems Laboratory
  *              Graduate School of Information Science, Nagoya Univ., JAPAN
+ *
 …
 #endif /* TOPPERS_TARGET_SUPPORT_ENA_INT */
+#ifdef TOPPERS_TARGET_SUPPORT_CLR_INT
+#define TOPPERS_SUPPORT_CLR_INT                 /* clr_intがサポートされている */
+#endif /* TOPPERS_TARGET_SUPPORT_CLR_INT */
+#ifdef TOPPERS_TARGET_SUPPORT_RAS_INT
+#define TOPPERS_SUPPORT_RAS_INT                 /* ras_intがサポートされている */
+#endif /* TOPPERS_TARGET_SUPPORT_RAS_INT */
+#ifdef TOPPERS_TARGET_SUPPORT_PRB_INT
+#define TOPPERS_SUPPORT_PRB_INT                 /* prb_intがサポートされている */
+#endif /* TOPPERS_TARGET_SUPPORT_PRB_INT */
 #define TOPPERS_SUPPORT_DYNAMIC_CRE             /* 動的生成機能拡張 */
 …
         PRI                     itskpri;        /* タスクの起動時優先度 */
         size_t          stksz;          /* タスクのスタック領域のサイズ */
         STK_T           *stk;           /* タスクのスタック領域の先頭番地 */
+        STK_T           *stk;           /* タスクのスタック領域の先頭番地 */
 } T_CTSK;
 …
         ATR             dtqatr;         /* データキュー属性 */
         uint_t  dtqcnt;         /* データキュー管理領域に格納できるデータ数 */
         void    *dtqmb;         /* データキュー管理領域の先頭番地 */
+        void    *dtqmb;         /* データキュー管理領域の先頭番地 */
 } T_CDTQ;
 …
         PRI             maxdpri;        /* 優先度データキューに送信できるデータ優先度の最
                                                    大値 */
         void    *pdqmb;         /* 優先度データキュー管理領域の先頭番地 */
+        void    *pdqmb;         /* 優先度データキュー管理領域の先頭番地 */
 } T_CPDQ;
 …
         uint_t  blkcnt;         /* 獲得できる固定長メモリブロックの数 */
         uint_t  blksz;          /* 固定長メモリブロックのサイズ */
         MPF_T   *mpf;           /* 固定長メモリプール領域の先頭番地 */
         void    *mpfmb;         /* 固定長メモリプール管理領域の先頭番地 */
+        MPF_T   *mpf;           /* 固定長メモリプール領域の先頭番地 */
+        void    *mpfmb;         /* 固定長メモリプール管理領域の先頭番地 */
 } T_CMPF;
 …
 extern ER               dis_int(INTNO intno) throw();
 extern ER               ena_int(INTNO intno) throw();
+extern ER               clr_int(INTNO intno) throw();
+extern ER               ras_int(INTNO intno) throw();
+extern ER_BOOL  prb_int(INTNO intno) throw();
 extern ER               chg_ipm(PRI intpri) throw();
 extern ER               get_ipm(PRI *p_intpri) throw();
 …
 #define idis_int(intno)                                         dis_int(intno)
 #define iena_int(intno)                                         ena_int(intno)
+#define iclr_int(intno)                                         clr_int(intno)
+#define iras_int(intno)                                         ras_int(intno)
+#define iprb_int(intno)                                         prb_int(intno)
 #define ixsns_dpn(p_excinf)                                     xsns_dpn(p_excinf)
 …
 #define TKERNEL_MAKER   UINT_C(0x0118)  /* カーネルのメーカーコード */
 #define TKERNEL_PRID    UINT_C(0x0007)  /* カーネルの識別番号 */
 #define TKERNEL_SPVER   UINT_C(0xf631)  /* カーネル仕様のバージョン番号 */
 #define TKERNEL_PRVER   UINT_C(0x3010)  /* カーネルのバージョン番号 */
+#define TKERNEL_SPVER   UINT_C(0xf634)  /* カーネル仕様のバージョン番号 */
+#define TKERNEL_PRVER   UINT_C(0x3050)  /* カーネルのバージョン番号 */
 /*
 …
  *  システム時刻の調整できる範囲（単位：μ秒）
  */
 #define TMIN_ADJTIM             -1000000                /* システム時刻の最小調整時間 */
+#define TMIN_ADJTIM             (-1000000)              /* システム時刻の最小調整時間 */
 #define TMAX_ADJTIM             1000000                 /* システム時刻の最大調整時間 */
 …
 #define ROUND_MPF_T(blksz)      TOPPERS_ROUND_SZ(blksz, sizeof(MPF_T))
+#define COUNT_MB_T(sz)          TOPPERS_COUNT_SZ(sz, sizeof(MB_T))
+#define ROUND_MB_T(sz)          TOPPERS_ROUND_SZ(sz, sizeof(MB_T))
 #define TSZ_DTQMB(dtqcnt)       (sizeof(intptr_t) * (dtqcnt))
 #define TCNT_DTQMB(dtqcnt)      TOPPERS_COUNT_SZ(TSZ_DTQMB(dtqcnt), sizeof(MB_T))
+#define TCNT_DTQMB(dtqcnt)      COUNT_MB_T(TSZ_DTQMB(dtqcnt))
 #ifndef TSZ_PDQMB
 #define TSZ_PDQMB(pdqcnt)       (sizeof(intptr_t) * 3 * (pdqcnt))
 #endif /* TSZ_PDQMB */
 #define TCNT_PDQMB(pdqcnt)      TOPPERS_COUNT_SZ(TSZ_PDQMB(pdqcnt), sizeof(MB_T))
+#define TCNT_PDQMB(pdqcnt)      COUNT_MB_T(TSZ_PDQMB(pdqcnt))
 #define TSZ_MPFMB(blkcnt)       (sizeof(uint_t) * (blkcnt))
 #define TCNT_MPFMB(blkcnt)      TOPPERS_COUNT_SZ(TSZ_MPFMB(blkcnt), sizeof(MB_T))
+#define TCNT_MPFMB(blkcnt)      COUNT_MB_T(TSZ_MPFMB(blkcnt))
 /*

EcnlProtoTool/trunk/asp3_dcre/include/sil.h

-              r321
+              r429
  *  Copyright (C) 2000-2003 by Embedded and Real-Time Systems Laboratory
  *                              Toyohashi Univ. of Technology, JAPAN
  *  Copyright (C) 2004-2011 by Embedded and Real-Time Systems Laboratory
+ *  Copyright (C) 2004-2018 by Embedded and Real-Time Systems Laboratory
  *              Graduate School of Information Science, Nagoya Univ., JAPAN
+ *
 …
 #endif /* TOPPERS_OMIT_SIL_ACCESS */
+#ifndef TOPPERS_OMIT_SIL_SYNC_WRITE
+/*
+ *  8ビット単位の同期書込み
+ */
+#ifdef UINT8_MAX
+Inline void
+sil_swrb_mem(uint8_t *mem, uint8_t data)
+{
+        sil_wrb_mem(mem, data);
+        TOPPERS_SIL_WRITE_SYNC();
+}
+#endif /* UINT8_MAX */
+/*
+ *  16ビット単位の同期書込み
+ */
+Inline void
+sil_swrh_mem(uint16_t *mem, uint16_t data)
+{
+        sil_wrh_mem(mem, data);
+        TOPPERS_SIL_WRITE_SYNC();
+}
+Inline void
+sil_swrh_lem(uint16_t *mem, uint16_t data)
+{
+        sil_wrh_lem(mem, data);
+        TOPPERS_SIL_WRITE_SYNC();
+}
+Inline void
+sil_swrh_bem(uint16_t *mem, uint16_t data)
+{
+        sil_wrh_bem(mem, data);
+        TOPPERS_SIL_WRITE_SYNC();
+}
+/*
+ *  32ビット単位の同期書込み
+ */
+Inline void
+sil_swrw_mem(uint32_t *mem, uint32_t data)
+{
+        sil_wrw_mem(mem, data);
+        TOPPERS_SIL_WRITE_SYNC();
+}
+Inline void
+sil_swrw_lem(uint32_t *mem, uint32_t data)
+{
+        sil_wrw_lem(mem, data);
+        TOPPERS_SIL_WRITE_SYNC();
+}
+Inline void
+sil_swrw_bem(uint32_t *mem, uint32_t data)
+{
+        sil_wrw_bem(mem, data);
+        TOPPERS_SIL_WRITE_SYNC();
+}
+#endif /* TOPPERS_OMIT_SIL_SYNC_WRITE */
 #endif /* TOPPERS_MACRO_ONLY */

EcnlProtoTool/trunk/asp3_dcre/include/t_stddef.h

-              r321
+              r429
  *  Copyright (C) 2000-2003 by Embedded and Real-Time Systems Laboratory
  *                              Toyohashi Univ. of Technology, JAPAN
  *  Copyright (C) 2004-2015 by Embedded and Real-Time Systems Laboratory
+ *  Copyright (C) 2004-2019 by Embedded and Real-Time Systems Laboratory
  *              Graduate School of Information Science, Nagoya Univ., JAPAN
+ *
 …
 #endif /* UINT64_MAX */
 typedef uint32_t                PRCTIM;         /* プロセッサ時間［NGKI0573］*/
+#ifndef USE_64BIT_HRTCNT
 typedef uint32_t                HRTCNT;         /* 高分解能タイマのカウント値 */
+#else /* USE_64BIT_HRTCNT */
+#ifndef UINT64_MAX
+#error 64bit data types are required when USE_64BIT_HRTCNT.
+#endif
+typedef uint64_t                HRTCNT;         /* 高分解能タイマのカウント値 */
+#endif /* USE_64BIT_HRTCNT */
 typedef TOPPERS_fp              FP;                     /* プログラムの起動番地 */
 …
  */
 #ifndef offsetof
+#define offsetof(structure, field)      ((uintptr_t) &(((structure *) 0)->field))
+#define offsetof(structure, field) \
+                ((uintptr_t)(((char *) &(((structure *) 0)->field)) - ((char *) 0)))
 #endif /* offsetof */

EcnlProtoTool/trunk/asp3_dcre/include/t_stdlib.h

-              r321
+              r429
 extern const char       *itron_strerror(ER ercd) throw();
-/*
- *  エラーメッセージのログ出力
+ *
- *  サービスコールがエラーを返した場合に，そのファイル名，行番号，メイ
- *  ンエラーコード等を表示するための関数．
- */
-extern void             t_perror(uint_t prio, const char *file, int_t line,
-                                                                        const char *expr, ER ercd) throw();
 #ifdef __cplusplus
+}

EcnlProtoTool/trunk/asp3_dcre/include/t_syslog.h

-              r321
+              r429
 /*
+ *  TOPPERS/ASP Kernel
+ *      Toyohashi Open Platform for Embedded Real-Time Systems/
+ *      Advanced Standard Profile Kernel
+ *  TOPPERS Software
+ *      Toyohashi Open Platform for Embedded Real-Time Systems
+ *
  *  Copyright (C) 2000-2003 by Embedded and Real-Time Systems Laboratory
  *                              Toyohashi Univ. of Technology, JAPAN
  *  Copyright (C) 2004-2014 by Embedded and Real-Time Systems Laboratory
+ *  Copyright (C) 2004-2019 by Embedded and Real-Time Systems Laboratory
  *              Graduate School of Information Science, Nagoya Univ., JAPAN
+ *
 …
 #include <t_stddef.h>
+#ifndef TOPPERS_MACRO_ONLY
+#include <stdarg.h>
+#endif /* TOPPERS_MACRO_ONLY */
 /*
  *  ログ情報の種別の定義
 …
 #define LOG_TYPE_INH            UINT_C(0x11)    /* 割込みハンドラ */
 #define LOG_TYPE_ISR            UINT_C(0x12)    /* 割込みサービスルーチン */
 #define LOG_TYPE_CYC            UINT_C(0x13)    /* 周期ハンドラ */
 #define LOG_TYPE_ALM            UINT_C(0x14)    /* アラームハンドラ */
+#define LOG_TYPE_CYC            UINT_C(0x13)    /* 周期通知 */
+#define LOG_TYPE_ALM            UINT_C(0x14)    /* アラーム通知 */
 #define LOG_TYPE_OVR            UINT_C(0x15)    /* オーバランハンドラ */
 #define LOG_TYPE_EXC            UINT_C(0x16)    /* CPU例外ハンドラ */
 …
 /*
+ *  ログ情報の重要度のビットマップを作るためのマクロ
+ */
+#define LOG_MASK(prio)          (1U << (prio))
+#define LOG_UPTO(prio)          ((1U << ((prio) + 1)) - 1)
+/*
+ *  パケット形式の定義
+ */
+typedef struct t_syslog_rlog {
+        uint_t  count;          /* ログバッファ中のログの数 */
+        uint_t  lost;           /* 失われたログの数 */
+        uint_t  logmask;        /* ログバッファに記録すべき重要度 */
+        uint_t  lowmask;        /* 低レベル出力すべき重要度 */
+} T_SYSLOG_RLOG;
+ *  ログ情報の出力
+ *
+ *  ログ情報の出力は，システムログ機能のアダプタ経由で行う．
+ */
+extern ER       syslog_wri_log(uint_t prio, const SYSLOG *p_syslog) throw();
+#define syslog_write(prio, p_syslog) \
+                                                ((void) syslog_wri_log(prio, p_syslog))
 #ifndef TOPPERS_OMIT_SYSLOG
+/*
+ *  ログ情報を出力するためのライブラリ関数
+ *
+ *  TECSで記述されたシステムログ機能を直接呼び出す．
+ */
+extern ER       tSysLog_eSysLog_write(uint_t prio, const SYSLOG *p_syslog) throw();
+Inline void
+_syslog_0(uint_t prio, uint_t type)
+{
+        SYSLOG  logbuf;
+        logbuf.logtype = type;
+        (void) tSysLog_eSysLog_write(prio, &logbuf);
+}
+Inline void
+_syslog_1(uint_t prio, uint_t type, LOGPAR arg1)
+{
+        SYSLOG  logbuf;
+        logbuf.logtype = type;
+        logbuf.logpar[0] = arg1;
+        (void) tSysLog_eSysLog_write(prio, &logbuf);
+}
+Inline void
+_syslog_2(uint_t prio, uint_t type, LOGPAR arg1, LOGPAR arg2)
+{
+        SYSLOG  logbuf;
+        logbuf.logtype = type;
+        logbuf.logpar[0] = arg1;
+        logbuf.logpar[1] = arg2;
+        (void) tSysLog_eSysLog_write(prio, &logbuf);
+}
+Inline void
+_syslog_3(uint_t prio, uint_t type, LOGPAR arg1, LOGPAR arg2, LOGPAR arg3)
+/*
+ *  システムログ出力のための下位のライブラリ関数
+ */
+Inline void
+t_syslog_0(uint_t prio, uint_t type)
+{
+        SYSLOG  logbuf;
+        logbuf.logtype = type;
+        syslog_write(prio, &logbuf);
+}
+Inline void
+t_syslog_1(uint_t prio, uint_t type, LOGPAR arg1)
+{
+        SYSLOG  logbuf;
+        logbuf.logtype = type;
+        logbuf.logpar[0] = arg1;
+        syslog_write(prio, &logbuf);
+}
+Inline void
+t_syslog_2(uint_t prio, uint_t type, LOGPAR arg1, LOGPAR arg2)
+{
+        SYSLOG  logbuf;
+        logbuf.logtype = type;
+        logbuf.logpar[0] = arg1;
+        logbuf.logpar[1] = arg2;
+        syslog_write(prio, &logbuf);
+}
+Inline void
+t_syslog_3(uint_t prio, uint_t type, LOGPAR arg1, LOGPAR arg2, LOGPAR arg3)
+{
         SYSLOG  logbuf;
 …
         logbuf.logpar[1] = arg2;
         logbuf.logpar[2] = arg3;
         (void) tSysLog_eSysLog_write(prio, &logbuf);
+}
 Inline void
 _syslog_4(uint_t prio, uint_t type, LOGPAR arg1, LOGPAR arg2,
+        syslog_write(prio, &logbuf);
+}
+Inline void
+t_syslog_4(uint_t prio, uint_t type, LOGPAR arg1, LOGPAR arg2,
                                                                                         LOGPAR arg3, LOGPAR arg4)
+{
 …
         logbuf.logpar[2] = arg3;
         logbuf.logpar[3] = arg4;
         (void) tSysLog_eSysLog_write(prio, &logbuf);
+}
 Inline void
 _syslog_5(uint_t prio, uint_t type, LOGPAR arg1, LOGPAR arg2,
+        syslog_write(prio, &logbuf);
+}
+Inline void
+t_syslog_5(uint_t prio, uint_t type, LOGPAR arg1, LOGPAR arg2,
                                                                 LOGPAR arg3, LOGPAR arg4, LOGPAR arg5)
+{
 …
         logbuf.logpar[3] = arg4;
         logbuf.logpar[4] = arg5;
         (void) tSysLog_eSysLog_write(prio, &logbuf);
+}
 Inline void
 _syslog_6(uint_t prio, uint_t type, LOGPAR arg1, LOGPAR arg2,
+        syslog_write(prio, &logbuf);
+}
+Inline void
+t_syslog_6(uint_t prio, uint_t type, LOGPAR arg1, LOGPAR arg2,
                                         LOGPAR arg3, LOGPAR arg4, LOGPAR arg5, LOGPAR arg6)
+{
 …
         logbuf.logpar[4] = arg5;
         logbuf.logpar[5] = arg6;
         (void) tSysLog_eSysLog_write(prio, &logbuf);
+        syslog_write(prio, &logbuf);
+}
 …
  *  ログ情報（コメント）を出力するためのライブラリ関数（vasyslog.c）
  */
+extern void     syslog(uint_t prio, const char *format, ...) throw();
+extern void     tt_syslog(SYSLOG *p_logbuf, const char *format, va_list ap);
+Inline void
+syslog(uint_t prio, const char *format, ...)
+{
+        va_list ap;
+        SYSLOG  logbuf;
+        va_start(ap, format);
+        tt_syslog(&logbuf, format, ap);
+        va_end(ap);
+        syslog_write(prio, &logbuf);
+}
+/*
+ *  エラーメッセージを出力するためのライブラリ関数（t_perror.c）
+ */
+extern void     tt_perror(SYSLOG *p_logbuf, const char *file, int_t line,
+                                                                                        const char *expr, ER ercd);
+Inline void
+t_perror(uint_t prio, const char *file, int_t line, const char *expr, ER ercd)
+{
+        SYSLOG  logbuf;
+        tt_perror(&logbuf, file, line, expr, ercd);
+        syslog_write(prio, &logbuf);
+}
 #else /* TOPPERS_OMIT_SYSLOG */
 /*
  *  システムログ出力を抑止する場合
 …
 Inline void
 _syslog_0(uint_t prio, uint_t type)
+{
+}
 Inline void
 _syslog_1(uint_t prio, uint_t type, LOGPAR arg1)
+{
+}
 Inline void
 _syslog_2(uint_t prio, uint_t type, LOGPAR arg1, LOGPAR arg2)
+{
+}
 Inline void
 _syslog_3(uint_t prio, uint_t type, LOGPAR arg1, LOGPAR arg2, LOGPAR arg3)
+{
+}
 Inline void
 _syslog_4(uint_t prio, uint_t type, LOGPAR arg1, LOGPAR arg2,
+t_syslog_0(uint_t prio, uint_t type)
+{
+}
+Inline void
+t_syslog_1(uint_t prio, uint_t type, LOGPAR arg1)
+{
+}
+Inline void
+t_syslog_2(uint_t prio, uint_t type, LOGPAR arg1, LOGPAR arg2)
+{
+}
+Inline void
+t_syslog_3(uint_t prio, uint_t type, LOGPAR arg1, LOGPAR arg2, LOGPAR arg3)
+{
+}
+Inline void
+t_syslog_4(uint_t prio, uint_t type, LOGPAR arg1, LOGPAR arg2,
                                                                                         LOGPAR arg3, LOGPAR arg4)
+{
 …
 Inline void
 _syslog_5(uint_t prio, uint_t type, LOGPAR arg1, LOGPAR arg2,
+t_syslog_5(uint_t prio, uint_t type, LOGPAR arg1, LOGPAR arg2,
                                                                 LOGPAR arg3, LOGPAR arg4, LOGPAR arg5)
+{
 …
 Inline void
 _syslog_6(uint_t prio, uint_t type, LOGPAR arg1, LOGPAR arg2,
+t_syslog_6(uint_t prio, uint_t type, LOGPAR arg1, LOGPAR arg2,
                                         LOGPAR arg3, LOGPAR arg4, LOGPAR arg5, LOGPAR arg6)
+{
 …
+{
+}
+Inline void
+t_perror(uint_t prio, const char *file, int_t line, const char *expr, ER ercd)
+{
+}
 #endif /* TOPPERS_OMIT_SYSLOG */
 /*
  *  ログ情報（コメント）を出力するためのマクロ
+ *  システムログ出力のためのライブラリ関数
+ *
  *  formatおよび後続の引数から作成したメッセージを，重大度prioでログ情
 …
 #define syslog_0(prio, format) \
                                 _syslog_1(prio, LOG_TYPE_COMMENT, (LOGPAR)(format))
+                                t_syslog_1(prio, LOG_TYPE_COMMENT, (LOGPAR)(format))
 #define syslog_1(prio, format, arg1) \
                                 _syslog_2(prio, LOG_TYPE_COMMENT, (LOGPAR)(format), \
+                                t_syslog_2(prio, LOG_TYPE_COMMENT, (LOGPAR)(format), \
                                                                                                                 (LOGPAR)(arg1))
 #define syslog_2(prio, format, arg1, arg2) \
                                 _syslog_3(prio, LOG_TYPE_COMMENT, (LOGPAR)(format), \
+                                t_syslog_3(prio, LOG_TYPE_COMMENT, (LOGPAR)(format), \
                                                                                 (LOGPAR)(arg1), (LOGPAR)(arg2))
 #define syslog_3(prio, format, arg1, arg2, arg3) \
                                 _syslog_4(prio, LOG_TYPE_COMMENT, (LOGPAR)(format), \
+                                t_syslog_4(prio, LOG_TYPE_COMMENT, (LOGPAR)(format), \
                                                 (LOGPAR)(arg1), (LOGPAR)(arg2), (LOGPAR)(arg3))
 #define syslog_4(prio, format, arg1, arg2, arg3, arg4) \
                                 _syslog_5(prio, LOG_TYPE_COMMENT, (LOGPAR)(format), \
+                                t_syslog_5(prio, LOG_TYPE_COMMENT, (LOGPAR)(format), \
                                                 (LOGPAR)(arg1), (LOGPAR)(arg2), (LOGPAR)(arg3), \
                                                                                                                 (LOGPAR)(arg4))
 #define syslog_5(prio, format, arg1, arg2, arg3, arg4, arg5) \
                                 _syslog_6(prio, LOG_TYPE_COMMENT, (LOGPAR)(format), \
+                                t_syslog_6(prio, LOG_TYPE_COMMENT, (LOGPAR)(format), \
                                                 (LOGPAR)(arg1), (LOGPAR)(arg2), (LOGPAR)(arg3), \
                                                                                 (LOGPAR)(arg4), (LOGPAR)(arg5))
 …
 #ifndef TOPPERS_assert_fail
 #define TOPPERS_assert_fail(exp, file, line) \
                                 _syslog_3(LOG_EMERG, LOG_TYPE_ASSERT, (LOGPAR)(file), \
+                                t_syslog_3(LOG_EMERG, LOG_TYPE_ASSERT, (LOGPAR)(file), \
                                                                                 (LOGPAR)(line), (LOGPAR)(exp))
 #endif /* TOPPERS_assert_fail */

EcnlProtoTool/trunk/asp3_dcre/kernel/Makefile.kernel

-              r321
+              r429
 #  Copyright (C) 2003 by Embedded and Real-Time Systems Laboratory
 #                              Toyohashi Univ. of Technology, JAPAN
 #  Copyright (C) 2005-2016 by Embedded and Real-Time Systems Laboratory
+#  Copyright (C) 2005-2018 by Embedded and Real-Time Systems Laboratory
 #              Graduate School of Information Science, Nagoya Univ., JAPAN
+#
 …
                 wobjwai.o wobjwaitmo.o iniwque.o
 time_event = tmeini.o tmeup.o tmedown.o tmecur.o tmeset.o \
                 tmereg.o tmeenq.o tmedeq.o tmechk.o tmeltim.o sigtim.o
+time_event = tmeini.o tmeup.o tmedown.o tmecur.o tmeset.o tmereg.o \
+                tmeenqrel.o tmedeq.o tmechk.o tmeltim.o sigtim.o
 task_manage = acre_tsk.o del_tsk.o act_tsk.o can_act.o get_tst.o \
 …
                 sns_ctx.o sns_loc.o sns_dsp.o sns_dpn.o sns_ker.o
 interrupt = isrini.o isrcal.o acre_isr.o del_isr.o \
                 intini.o dis_int.o ena_int.o chg_ipm.o get_ipm.o
+interrupt = isrini.o isrcal.o acre_isr.o del_isr.o intini.o \
+                dis_int.o ena_int.o clr_int.o ras_int.o prb_int.o chg_ipm.o get_ipm.o
 exception = excini.o xsns_dpn.o
 …
 #  生成されるオブジェクトファイルの依存関係の定義
+#
 $(startup) $(startup:.o=.s): startup.c
 $(task) $(task:.o=.s): task.c
 $(taskhook) $(taskhook:.o=.s): taskhook.c
 $(wait) $(wait:.o=.s): wait.c
 $(time_event) $(time_event:.o=.s): time_event.c
 $(task_manage) $(task_manage:.o=.s): task_manage.c
 $(task_refer) $(task_refer:.o=.s): task_refer.c
 $(task_sync) $(task_sync:.o=.s): task_sync.c
 $(task_term) $(task_term:.o=.s): task_term.c
 $(semaphore) $(semaphore:.o=.s): semaphore.c
 $(eventflag) $(eventflag:.o=.s): eventflag.c
 $(dataqueue) $(dataqueue:.o=.s): dataqueue.c
 $(pridataq) $(pridataq:.o=.s): pridataq.c
 $(mutex) $(mutex:.o=.s): mutex.c
 $(mempfix) $(mempfix:.o=.s): mempfix.c
 $(time_manage) $(time_manage:.o=.s): time_manage.c
 $(cyclic) $(cyclic:.o=.s): cyclic.c
 $(alarm) $(alarm:.o=.s): alarm.c
 $(sys_manage) $(sys_manage:.o=.s): sys_manage.c
 $(interrupt) $(interrupt:.o=.s): interrupt.c
 $(exception) $(exception:.o=.s): exception.c
+$(addprefix $(OBJDIR)/, $(startup)) $(startup:.o=.s): startup.c
+$(addprefix $(OBJDIR)/, $(task)) $(task:.o=.s): task.c
+$(addprefix $(OBJDIR)/, $(taskhook)) $(taskhook:.o=.s): taskhook.c
+$(addprefix $(OBJDIR)/, $(wait)) $(wait:.o=.s): wait.c
+$(addprefix $(OBJDIR)/, $(time_event)) $(time_event:.o=.s): time_event.c
+$(addprefix $(OBJDIR)/, $(task_manage)) $(task_manage:.o=.s): task_manage.c
+$(addprefix $(OBJDIR)/, $(task_refer)) $(task_refer:.o=.s): task_refer.c
+$(addprefix $(OBJDIR)/, $(task_sync)) $(task_sync:.o=.s): task_sync.c
+$(addprefix $(OBJDIR)/, $(task_term)) $(task_term:.o=.s): task_term.c
+$(addprefix $(OBJDIR)/, $(semaphore)) $(semaphore:.o=.s): semaphore.c
+$(addprefix $(OBJDIR)/, $(eventflag)) $(eventflag:.o=.s): eventflag.c
+$(addprefix $(OBJDIR)/, $(dataqueue)) $(dataqueue:.o=.s): dataqueue.c
+$(addprefix $(OBJDIR)/, $(pridataq)) $(pridataq:.o=.s): pridataq.c
+$(addprefix $(OBJDIR)/, $(mutex)) $(mutex:.o=.s): mutex.c
+$(addprefix $(OBJDIR)/, $(mempfix)) $(mempfix:.o=.s): mempfix.c
+$(addprefix $(OBJDIR)/, $(time_manage)) $(time_manage:.o=.s): time_manage.c
+$(addprefix $(OBJDIR)/, $(cyclic)) $(cyclic:.o=.s): cyclic.c
+$(addprefix $(OBJDIR)/, $(alarm)) $(alarm:.o=.s): alarm.c
+$(addprefix $(OBJDIR)/, $(sys_manage)) $(sys_manage:.o=.s): sys_manage.c
+$(addprefix $(OBJDIR)/, $(interrupt)) $(interrupt:.o=.s): interrupt.c
+$(addprefix $(OBJDIR)/, $(exception)) $(exception:.o=.s): exception.c

EcnlProtoTool/trunk/asp3_dcre/kernel/alarm.c

-              r321
+              r429
  *  Copyright (C) 2000-2003 by Embedded and Real-Time Systems Laboratory
  *                              Toyohashi Univ. of Technology, JAPAN
  *  Copyright (C) 2005-2016 by Embedded and Real-Time Systems Laboratory
+ *  Copyright (C) 2005-2018 by Embedded and Real-Time Systems Laboratory
  *              Graduate School of Information Science, Nagoya Univ., JAPAN
+ *
 …
         ALMINIB         *p_alminib;
         ATR                     almatr;
         T_NFYINFO       nfyinfo, *p_nfyinfo;
         ER                      ercd, rercd;
+        T_NFYINFO       *p_nfyinfo;
+        ER                      ercd;
         LOG_ACRE_ALM_ENTER(pk_calm);
 …
         almatr = pk_calm->almatr;
+        nfyinfo = pk_calm->nfyinfo;
+        CHECK_RSATR(almatr, TA_NULL);
+        rercd = check_nfyinfo(&nfyinfo);
+        if (rercd != E_OK) {
+                ercd = rercd;
+        CHECK_VALIDATR(almatr, TA_NULL);
+        ercd = check_nfyinfo(&(pk_calm->nfyinfo));
+        if (ercd != E_OK) {
                 goto error_exit;
+        }
 …
                 p_alminib = (ALMINIB *)(p_almcb->p_alminib);
                 p_alminib->almatr = almatr;
                 if (nfyinfo.nfymode == TNFY_HANDLER) {
                         p_alminib->exinf = nfyinfo.nfy.handler.exinf;
                         p_alminib->nfyhdr = (NFYHDR)(nfyinfo.nfy.handler.tmehdr);
+                if (pk_calm->nfyinfo.nfymode == TNFY_HANDLER) {
+                        p_alminib->exinf = pk_calm->nfyinfo.nfy.handler.exinf;
+                        p_alminib->nfyhdr = (NFYHDR)(pk_calm->nfyinfo.nfy.handler.tmehdr);
+                }
                 else {
                         p_nfyinfo = &aalm_nfyinfo_table[p_alminib - aalminib_table];
                         *p_nfyinfo = nfyinfo;
+                        *p_nfyinfo = pk_calm->nfyinfo;
                         p_alminib->exinf = (intptr_t) p_nfyinfo;
                         p_alminib->nfyhdr = notify_handler;
 …
                         p_almcb->almsta = true;
+                }
                 tmevtb_enqueue(&(p_almcb->tmevtb), almtim);
+                tmevtb_enqueue_reltim(&(p_almcb->tmevtb), almtim);
                 ercd = E_OK;
+        }
 …
         /*
          *  通知ハンドラを，CPUロック解除状態で呼び出す．
+         *
+         *  アラーム通知の生成／削除はタスクからしか行えないため，アラーム
+         *  通知初期化ブロックをCPUロック解除状態で参照しても問題ない．
          */
         unlock_cpu();

EcnlProtoTool/trunk/asp3_dcre/kernel/alarm.trb

-              r321
+              r429
+#
 #   Copyright (C) 2015 by FUJI SOFT INCORPORATED, JAPAN
 #   Copyright (C) 2015,2016 by Embedded and Real-Time Systems Laboratory
+#   Copyright (C) 2015-2019 by Embedded and Real-Time Systems Laboratory
 #               Graduate School of Information Science, Nagoya Univ., JAPAN
+#
 …
   def prepare(key, params)
     # almatrが無効の場合（E_RSATR）［NGKI2491］
     #（TA_STA以外のビットがセットされている場合）
     if (params[:almatr] & ~($TA_STA)) != 0
+    # almatrが無効の場合（E_RSATR）［NGKI2491］［NGKI3423］［NGKI3424］
+    #（TA_NULLでない場合）
+    if (params[:almatr] != $TA_NULL)
       error_illegal_id("E_RSATR", params, :almatr, :almid)
     end

EcnlProtoTool/trunk/asp3_dcre/kernel/allfunc.h

-              r321
+              r429
  *      Advanced Standard Profile Kernel
+ *
  *  Copyright (C) 2005-2015 by Embedded and Real-Time Systems Laboratory
+ *  Copyright (C) 2005-2018 by Embedded and Real-Time Systems Laboratory
  *              Graduate School of Information Science, Nagoya Univ., JAPAN
+ *
 …
 #define TOPPERS_tmeset
 #define TOPPERS_tmereg
 #define TOPPERS_tmeenq
+#define TOPPERS_tmeenqrel
 #define TOPPERS_tmedeq
 #define TOPPERS_tmechk
 …
 #define TOPPERS_dis_int
 #define TOPPERS_ena_int
+#define TOPPERS_clr_int
+#define TOPPERS_ras_int
+#define TOPPERS_prb_int
 #define TOPPERS_chg_ipm
 #define TOPPERS_get_ipm

EcnlProtoTool/trunk/asp3_dcre/kernel/check.h

-              r321
+              r429
  *  Copyright (C) 2000-2003 by Embedded and Real-Time Systems Laboratory
  *                              Toyohashi Univ. of Technology, JAPAN
  *  Copyright (C) 2005-2015 by Embedded and Real-Time Systems Laboratory
+ *  Copyright (C) 2005-2019 by Embedded and Real-Time Systems Laboratory
  *              Graduate School of Information Science, Nagoya Univ., JAPAN
+ *
 …
 /*
- *  オブジェクト番号の範囲の判定
- */
-#ifndef VALID_INTNO_DISINT
-#define VALID_INTNO_DISINT(intno)    VALID_INTNO(intno)
-#endif /* VALID_INTNO_DISINT */
-#ifndef VALID_INTNO_CREISR
-#define VALID_INTNO_CREISR(intno)    VALID_INTNO(intno)
-#endif /* VALID_INTNO_CREISR */
-/*
  *  優先度の範囲の判定
  */
 …
                                 (TMIN_ISRPRI <= (isrpri) && (isrpri) <= TMAX_ISRPRI)
-#ifndef VALID_INTPRI_CHGIPM
-#define VALID_INTPRI_CHGIPM(intpri) \
-                                (TMIN_INTPRI <= (intpri) && (intpri) <= TIPM_ENAALL)
-#endif /* VALID_INTPRI_CHGIPM */
 /*
  *  相対時間の範囲の判定
 …
  *  タイムアウト指定値の範囲の判定
  */
+#define VALID_TMOUT(tmout)      ((tmout) <= TMAX_RELTIM || (tmout) == TMO_FEVR \
+                                                                                                        || (tmout) == TMO_POL)
+#define VALID_TMOUT(tmout)      ((tmout) <= TMAX_RELTIM || (tmout) == TMO_FEVR)
 /*
 …
 /*
  *  オブジェクトIDのチェック（E_ID）
+ *  不正ID番号のチェック（E_ID）
  */
 #define CHECK_ID(exp) do {                                                                      \
 …
 /*
  *  予約属性エラーのチェック（E_RSATR）
  */
 #define CHECK_RSATR(atr, valid_atr) do {                                        \
+ *  属性が無効なビットが立っていないかのチェック（E_RSATR）
+ */
+#define CHECK_VALIDATR(atr, valid_atr) do {                                     \
         if (((atr) & ~(valid_atr)) != 0U) {                                             \
                 ercd = E_RSATR;                                                                         \
 …
 /*
  *  不正使用エラーのチェック（E_ILUSE）
+ *  サービスコール不正使用のチェック（E_ILUSE）
  */
 #define CHECK_ILUSE(exp) do {                                                           \
 …
 /*
  *  静的なオブジェクト状態エラーのチェック（E_OBJ）
+ *  オブジェクト状態エラーのチェック（E_OBJ）
  */
 #define CHECK_OBJ(exp) do {                                                                     \

EcnlProtoTool/trunk/asp3_dcre/kernel/cyclic.c

-              r321
+              r429
  *  Copyright (C) 2000-2003 by Embedded and Real-Time Systems Laboratory
  *                              Toyohashi Univ. of Technology, JAPAN
  *  Copyright (C) 2005-2016 by Embedded and Real-Time Systems Laboratory
+ *  Copyright (C) 2005-2018 by Embedded and Real-Time Systems Laboratory
  *              Graduate School of Information Science, Nagoya Univ., JAPAN
+ *
 …
         CYCINIB         *p_cycinib;
         ATR                     cycatr;
+        T_NFYINFO       nfyinfo, *p_nfyinfo;
+        RELTIM          cyctim;
+        RELTIM          cycphs;
+        ER                      ercd, rercd;
+        RELTIM          cyctim, cycphs;
+        T_NFYINFO       *p_nfyinfo;
+        ER                      ercd;
         LOG_ACRE_CYC_ENTER(pk_ccyc);
 …
         cycatr = pk_ccyc->cycatr;
-        nfyinfo = pk_ccyc->nfyinfo;
         cyctim = pk_ccyc->cyctim;
         cycphs = pk_ccyc->cycphs;
+        CHECK_RSATR(cycatr, TA_STA);
+        rercd = check_nfyinfo(&nfyinfo);
+        if (rercd != E_OK) {
+                ercd = rercd;
+        CHECK_VALIDATR(cycatr, TA_STA);
+        ercd = check_nfyinfo(&(pk_ccyc->nfyinfo));
+        if (ercd != E_OK) {
                 goto error_exit;
+        }
 …
                 p_cycinib = (CYCINIB *)(p_cyccb->p_cycinib);
                 p_cycinib->cycatr = cycatr;
                 if (nfyinfo.nfymode == TNFY_HANDLER) {
                         p_cycinib->exinf = nfyinfo.nfy.handler.exinf;
                         p_cycinib->nfyhdr = (NFYHDR)(nfyinfo.nfy.handler.tmehdr);
+                if (pk_ccyc->nfyinfo.nfymode == TNFY_HANDLER) {
+                        p_cycinib->exinf = pk_ccyc->nfyinfo.nfy.handler.exinf;
+                        p_cycinib->nfyhdr = (NFYHDR)(pk_ccyc->nfyinfo.nfy.handler.tmehdr);
+                }
                 else {
                         p_nfyinfo = &acyc_nfyinfo_table[p_cycinib - acycinib_table];
                         *p_nfyinfo = nfyinfo;
+                        *p_nfyinfo = pk_ccyc->nfyinfo;
                         p_cycinib->exinf = (intptr_t) p_nfyinfo;
                         p_cycinib->nfyhdr = notify_handler;
 …
                 if ((p_cyccb->p_cycinib->cycatr & TA_STA) != 0U) {
                         p_cyccb->cycsta = true;
+                        tmevtb_enqueue(&(p_cyccb->tmevtb), p_cyccb->p_cycinib->cycphs);
+                        tmevtb_enqueue_reltim(&(p_cyccb->tmevtb),
+                                                                                p_cyccb->p_cycinib->cycphs);
+                }
                 else {
 …
                  *  初回の起動のためのタイムイベントを登録する［ASPD1036］．
                  */
                 tmevtb_enqueue(&(p_cyccb->tmevtb), p_cyccb->p_cycinib->cycphs);
+                tmevtb_enqueue_reltim(&(p_cyccb->tmevtb), p_cyccb->p_cycinib->cycphs);
                 ercd = E_OK;
+        }
 …
         /*
          *  通知ハンドラを，CPUロック解除状態で呼び出す．
+         *
+         *  周期通知の生成／削除はタスクからしか行えないため，周期通知初期
+         *  化ブロックをCPUロック解除状態で参照しても問題ない．
          */
         unlock_cpu();

EcnlProtoTool/trunk/asp3_dcre/kernel/cyclic.trb

-              r321
+              r429
+#
 #   Copyright (C) 2015 by FUJI SOFT INCORPORATED, JAPAN
 #   Copyright (C) 2015,2016 by Embedded and Real-Time Systems Laboratory
+#   Copyright (C) 2015-2019 by Embedded and Real-Time Systems Laboratory
 #               Graduate School of Information Science, Nagoya Univ., JAPAN
+#
 …
   def prepare(key, params)
     # cycatrが無効の場合（E_RSATR）［NGKI2383］
+    # cycatrが無効の場合（E_RSATR）［NGKI2383］［NGKI2370］［ASPS0172］
     #（TA_STA以外のビットがセットされている場合）
     if (params[:cycatr] & ~($TA_STA)) != 0
 …
     end
+    # (0 < cyctim && cyctim <= TMAX_RELTIM)でない場合（E_PAR）［NGKI2397］
+    # cyctimが有効範囲外の場合（E_PAR）［NGKI2397］
+    #（0 < cyctim && cyctim <= TMAX_RELTIMでない場合）
     if !(0 < params[:cyctim] && params[:cyctim] <= $TMAX_RELTIM)
       error_illegal_id("E_PAR", params, :cyctim, :cycid)
     end
+    # (0 <= cycphs && cycphs <= TMAX_RELTIM)でない場合（E_PAR）［NGKI2399］
+    # cycphsが有効範囲外の場合（E_PAR）［NGKI2399］
+    #（0 <= cycphs && cycphs <= TMAX_RELTIMでない場合）
     if !(0 <= params[:cycphs] && params[:cycphs] <= $TMAX_RELTIM)
       error_illegal_id("E_PAR", params, :cycphs, :cycid)

EcnlProtoTool/trunk/asp3_dcre/kernel/dataqueue.c

-              r321
+              r429
  *  Copyright (C) 2000-2003 by Embedded and Real-Time Systems Laboratory
  *                              Toyohashi Univ. of Technology, JAPAN
  *  Copyright (C) 2005-2017 by Embedded and Real-Time Systems Laboratory
+ *  Copyright (C) 2005-2018 by Embedded and Real-Time Systems Laboratory
  *              Graduate School of Information Science, Nagoya Univ., JAPAN
+ *
 …
         p_dtqmb = pk_cdtq->dtqmb;
+        CHECK_RSATR(dtqatr, TA_TPRI);
+        CHECK_VALIDATR(dtqatr, TA_TPRI);
+        if (p_dtqmb != NULL) {
+                CHECK_PAR(MB_ALIGN(p_dtqmb));
+        }
         lock_cpu();
 …
         else {
                 if (dtqcnt != 0 && p_dtqmb == NULL) {
                         p_dtqmb = kernel_malloc(sizeof(DTQMB) * dtqcnt);
+                        p_dtqmb = malloc_mpk(sizeof(DTQMB) * dtqcnt);
                         dtqatr |= TA_MBALLOC;
+                }
 …
                 p_dtqinib = (DTQINIB *)(p_dtqcb->p_dtqinib);
                 if ((p_dtqinib->dtqatr & TA_MBALLOC) != 0U) {
                         kernel_free(p_dtqinib->p_dtqmb);
+                        free_mpk(p_dtqinib->p_dtqmb);
+                }
                 p_dtqinib->dtqatr = TA_NOEXS;
 …
 snd_dtq(ID dtqid, intptr_t data)
+{
         DTQCB   *p_dtqcb;
         WINFO_SDTQ winfo_sdtq;
         ER              ercd;
+        DTQCB           *p_dtqcb;
+        WINFO_SDTQ      winfo_sdtq;
+        ER                      ercd;
         LOG_SND_DTQ_ENTER(dtqid, data);
 …
         else {
                 winfo_sdtq.data = data;
                 p_runtsk->tstat = TS_WAITING_SDTQ;
                 wobj_make_wait((WOBJCB *) p_dtqcb, (WINFO_WOBJ *) &winfo_sdtq);
+                wobj_make_wait((WOBJCB *) p_dtqcb, TS_WAITING_SDTQ,
+                                                                                        (WINFO_WOBJ *) &winfo_sdtq);
                 dispatch();
                 ercd = winfo_sdtq.winfo.wercd;
 …
+                        }
                         else {
                                 request_dispatch();
+                                request_dispatch_retint();
+                        }
+                }
 …
 tsnd_dtq(ID dtqid, intptr_t data, TMO tmout)
+{
         DTQCB   *p_dtqcb;
         WINFO_SDTQ winfo_sdtq;
         TMEVTB  tmevtb;
         ER              ercd;
+        DTQCB           *p_dtqcb;
+        WINFO_SDTQ      winfo_sdtq;
+        TMEVTB          tmevtb;
+        ER                      ercd;
         LOG_TSND_DTQ_ENTER(dtqid, data, tmout);
 …
         else {
                 winfo_sdtq.data = data;
+                p_runtsk->tstat = TS_WAITING_SDTQ;
+                wobj_make_wait_tmout((WOBJCB *) p_dtqcb, (WINFO_WOBJ *) &winfo_sdtq,
+                                                                                                                &tmevtb, tmout);
+                wobj_make_wait_tmout((WOBJCB *) p_dtqcb, TS_WAITING_SDTQ,
+                                                                (WINFO_WOBJ *) &winfo_sdtq, &tmevtb, tmout);
                 dispatch();
                 ercd = winfo_sdtq.winfo.wercd;
 …
+                        }
                         else {
                                 request_dispatch();
+                                request_dispatch_retint();
+                        }
+                }
         ercd = E_OK;
+                ercd = E_OK;
+        }
         unlock_cpu();
 …
 rcv_dtq(ID dtqid, intptr_t *p_data)
+{
         DTQCB   *p_dtqcb;
         WINFO_RDTQ winfo_rdtq;
         ER              ercd;
+        DTQCB           *p_dtqcb;
+        WINFO_RDTQ      winfo_rdtq;
+        ER                      ercd;
         LOG_RCV_DTQ_ENTER(dtqid, p_data);
 …
+        }
         else {
+                p_runtsk->tstat = TS_WAITING_RDTQ;
+                make_wait(&(winfo_rdtq.winfo));
+                make_wait(TS_WAITING_RDTQ, &(winfo_rdtq.winfo));
                 queue_insert_prev(&(p_dtqcb->rwait_queue), &(p_runtsk->task_queue));
                 winfo_rdtq.p_dtqcb = p_dtqcb;
 …
 trcv_dtq(ID dtqid, intptr_t *p_data, TMO tmout)
+{
         DTQCB   *p_dtqcb;
         WINFO_RDTQ winfo_rdtq;
         TMEVTB  tmevtb;
         ER              ercd;
+        DTQCB           *p_dtqcb;
+        WINFO_RDTQ      winfo_rdtq;
+        TMEVTB          tmevtb;
+        ER                      ercd;
         LOG_TRCV_DTQ_ENTER(dtqid, p_data, tmout);
 …
+        }
         else {
+                p_runtsk->tstat = TS_WAITING_RDTQ;
+                make_wait_tmout(&(winfo_rdtq.winfo), &tmevtb, tmout);
+                make_wait_tmout(TS_WAITING_RDTQ, &(winfo_rdtq.winfo), &tmevtb, tmout);
                 queue_insert_prev(&(p_dtqcb->rwait_queue), &(p_runtsk->task_queue));
                 winfo_rdtq.p_dtqcb = p_dtqcb;

EcnlProtoTool/trunk/asp3_dcre/kernel/dataqueue.trb

-              r321
+              r429
+#
 #   Copyright (C) 2015 by FUJI SOFT INCORPORATED, JAPAN
 #   Copyright (C) 2015,2016 by Embedded and Real-Time Systems Laboratory
+#   Copyright (C) 2015-2019 by Embedded and Real-Time Systems Laboratory
 #               Graduate School of Information Science, Nagoya Univ., JAPAN
+#
 …
     params[:dtqmb] ||= "NULL"
     # dtqatrが無効の場合（E_RSATR）［NGKI1669］
+    # dtqatrが無効の場合（E_RSATR）［NGKI1669］［NGKI1661］
     #（TA_TPRI以外のビットがセットされている場合）
     if (params[:dtqatr] & ~($TA_TPRI)) != 0

EcnlProtoTool/trunk/asp3_dcre/kernel/eventflag.c

-              r321
+              r429
  *  Copyright (C) 2000-2003 by Embedded and Real-Time Systems Laboratory
  *                              Toyohashi Univ. of Technology, JAPAN
  *  Copyright (C) 2005-2017 by Embedded and Real-Time Systems Laboratory
+ *  Copyright (C) 2005-2018 by Embedded and Real-Time Systems Laboratory
  *              Graduate School of Information Science, Nagoya Univ., JAPAN
+ *
 …
         flgatr = pk_cflg->flgatr;
         CHECK_RSATR(flgatr, TA_TPRI|TA_WMUL|TA_CLR);
+        CHECK_VALIDATR(flgatr, TA_TPRI|TA_WMUL|TA_CLR);
         lock_cpu();
 …
 set_flg(ID flgid, FLGPTN setptn)
+{
+        FLGCB   *p_flgcb;
+        QUEUE   *p_queue;
+        TCB             *p_tcb;
+        WINFO_FLG *p_winfo_flg;
+        ER              ercd;
+        FLGCB           *p_flgcb;
+        QUEUE           *p_queue;
+        TCB                     *p_tcb;
+        WINFO_FLG       *p_winfo_flg;
+        bool_t          lock;
+        ER                      ercd;
         LOG_SET_FLG_ENTER(flgid, setptn);
         CHECK_UNL();
+        lock = sense_lock();
         CHECK_ID(VALID_FLGID(flgid));
         p_flgcb = get_flgcb(flgid);
+        lock_cpu();
+        if (!lock)
+                lock_cpu();
         if (p_flgcb->p_flginib->flgatr == TA_NOEXS) {
                 ercd = E_NOEXS;
 …
+                        }
                         else {
                                 request_dispatch();
+                                request_dispatch_retint();
+                        }
+                }
                 ercd = E_OK;
+        }
+        unlock_cpu();
+        if (!lock)
+                unlock_cpu();
   error_exit:
 …
+{
         FLGCB   *p_flgcb;
+        bool_t lock;
         ER              ercd;
         LOG_CLR_FLG_ENTER(flgid, clrptn);
         CHECK_TSKCTX_UNL();
+        lock = sense_lock();
         CHECK_ID(VALID_FLGID(flgid));
         p_flgcb = get_flgcb(flgid);
+        lock_cpu();
+        if (!lock)
+                lock_cpu();
         if (p_flgcb->p_flginib->flgatr == TA_NOEXS) {
                 ercd = E_NOEXS;
 …
                 ercd = E_OK;
+        }
+        unlock_cpu();
+        if (!lock)
+                unlock_cpu();
   error_exit:
 …
 wai_flg(ID flgid, FLGPTN waiptn, MODE wfmode, FLGPTN *p_flgptn)
+{
         FLGCB   *p_flgcb;
         WINFO_FLG winfo_flg;
         ER              ercd;
+        FLGCB           *p_flgcb;
+        WINFO_FLG       winfo_flg;
+        ER                      ercd;
         LOG_WAI_FLG_ENTER(flgid, waiptn, wfmode, p_flgptn);
 …
                 winfo_flg.waiptn = waiptn;
                 winfo_flg.wfmode = wfmode;
                 p_runtsk->tstat = TS_WAITING_FLG;
                 wobj_make_wait((WOBJCB *) p_flgcb, (WINFO_WOBJ *) &winfo_flg);
+                wobj_make_wait((WOBJCB *) p_flgcb, TS_WAITING_FLG,
+                                                                                        (WINFO_WOBJ *) &winfo_flg);
                 dispatch();
                 ercd = winfo_flg.winfo.wercd;
 …
 twai_flg(ID flgid, FLGPTN waiptn, MODE wfmode, FLGPTN *p_flgptn, TMO tmout)
+{
         FLGCB   *p_flgcb;
         WINFO_FLG winfo_flg;
         TMEVTB  tmevtb;
         ER              ercd;
+        FLGCB           *p_flgcb;
+        WINFO_FLG       winfo_flg;
+        TMEVTB          tmevtb;
+        ER                      ercd;
         LOG_TWAI_FLG_ENTER(flgid, waiptn, wfmode, p_flgptn, tmout);
 …
                 winfo_flg.waiptn = waiptn;
                 winfo_flg.wfmode = wfmode;
+                p_runtsk->tstat = TS_WAITING_FLG;
+                wobj_make_wait_tmout((WOBJCB *) p_flgcb, (WINFO_WOBJ *) &winfo_flg,
+                                                                                                                &tmevtb, tmout);
+                wobj_make_wait_tmout((WOBJCB *) p_flgcb, TS_WAITING_FLG,
+                                                                (WINFO_WOBJ *) &winfo_flg, &tmevtb, tmout);
                 dispatch();
                 ercd = winfo_flg.winfo.wercd;
 …
         FLGCB   *p_flgcb;
         ER              ercd;
+        bool_t lock;
         LOG_REF_FLG_ENTER(flgid, pk_rflg);
         CHECK_TSKCTX_UNL();
+        lock = sense_lock();
         CHECK_ID(VALID_FLGID(flgid));
         p_flgcb = get_flgcb(flgid);
+        lock_cpu();
+        if (!lock)
+                lock_cpu();
         if (p_flgcb->p_flginib->flgatr == TA_NOEXS) {
                 ercd = E_NOEXS;
 …
                 ercd = E_OK;
+        }
+        unlock_cpu();
+        if (!lock)
+                unlock_cpu();
   error_exit:

EcnlProtoTool/trunk/asp3_dcre/kernel/eventflag.trb

-              r321
+              r429
+#
 #   Copyright (C) 2015 by FUJI SOFT INCORPORATED, JAPAN
 #   Copyright (C) 2015,2016 by Embedded and Real-Time Systems Laboratory
+#   Copyright (C) 2015-2019 by Embedded and Real-Time Systems Laboratory
 #               Graduate School of Information Science, Nagoya Univ., JAPAN
+#
 …
   def prepare(key, params)
     # flgatrが無効の場合（E_RSATR）［NGKI1562］
+    # flgatrが無効の場合（E_RSATR）［NGKI1562］［NGKI1550］
     #（TA_TPRI，TA_WMUL，TA_CLR以外のビットがセットされている場合）
     if (params[:flgatr] & ~($TA_TPRI|$TA_WMUL|$TA_CLR)) != 0

EcnlProtoTool/trunk/asp3_dcre/kernel/exception.trb

-              r321
+              r429
+#
 #   Copyright (C) 2015 by FUJI SOFT INCORPORATED, JAPAN
 #   Copyright (C) 2015,2016 by Embedded and Real-Time Systems Laboratory
+#   Copyright (C) 2015-2019 by Embedded and Real-Time Systems Laboratory
 #               Graduate School of Information Science, Nagoya Univ., JAPAN
+#
 …
+#
+#  DEF_EXCで使用できるCPU例外ハンドラ番号のデフォルト定義
+#
+if !defined?($EXCNO_DEFEXC_VALID)
+  $EXCNO_DEFEXC_VALID = $EXCNO_VALID
+end
+#
 #  CPU例外ハンドラに関するエラーチェック
+#
 $cfgData[:DEF_EXC].each do |key, params|
   # excnoがCPU例外ハンドラ番号として正しくない場合（E_PAR）［NGKI3134］
   if $EXCNO_VALID.index(params[:excno]).nil?
+$cfgData[:DEF_EXC].each do |_, params|
+  # excnoが有効範囲外の場合（E_PAR）［NGKI3134］
+  if !$EXCNO_DEFEXC_VALID.include?(params[:excno])
     error_illegal("E_PAR", params, :excno)
   end
   # excatrが無効の場合（E_RSATR）［NGKI3131］
+  # excatrが無効の場合（E_RSATR）［NGKI3131］［NGKI5178］［NGKI3123］
   #（TARGET_EXCATR以外のビットがセットされている場合）
   if (params[:excatr] & ~($TARGET_EXCATR)) != 0
     error_illegal_sym("E_RSATR", params, :excatr, :excno)
+  end
+  # ターゲット依存のエラーチェック
+  if defined? TargetCheckDefExc()
+    TargetCheckDefExc(params)
   end
 end
 …
     #  CPU例外ハンドラのエントリ
+    #
     $cfgData[:DEF_EXC].each do |key, params|
+    $cfgData[:DEF_EXC].each do |_, params|
       $kernelCfgC.add("EXCHDR_ENTRY(#{params[:excno]}, " \
                                                 "#{params[:excno].val}, #{params[:exchdr]})")
 …
+    #
     $kernelCfgC.add("const EXCINIB _kernel_excinib_table[TNUM_DEF_EXCNO] = {")
     $cfgData[:DEF_EXC].each_with_index do |(key, params), index|
+    $cfgData[:DEF_EXC].each_with_index do |(_, params), index|
       $kernelCfgC.add(",") if index > 0
       $kernelCfgC.append("\t{ (#{params[:excno]}), (#{params[:excatr]}), " \

EcnlProtoTool/trunk/asp3_dcre/kernel/genoffset.trb

-              r321
+              r429
 # -*- coding: utf-8 -*-
+#
+#   TOPPERS Software
+#       Toyohashi Open Platform for Embedded Real-Time Systems
+#
+#   TOPPERS/ASP Kernel
+#       Toyohashi Open Platform for Embedded Real-Time Systems/
+#       Advanced Standard Profile Kernel
+#
+#   Copyright (C) 2011-2016 by Embedded and Real-Time Systems Laboratory
+#   Copyright (C) 2011-2018 by Embedded and Real-Time Systems Laboratory
 #               Graduate School of Information Science, Nagoya Univ., JAPAN
+#
 …
 #   の責任を負わない．
+#
 #   $Id$
+#   $Id: genoffset.trb 936 2018-04-07 09:46:42Z ertl-hiro $
+#
 …
+#
+#
+#
 #  タイムスタンプファイルの指定
+#
+#
 $timeStampFileName = "offset.timestamp"
+#
+#
 #  offset.hの先頭部分の生成
+#
+#
 $offsetH = GenFile.new("offset.h")
 $offsetH.add2("/* offset.h */")
+#
+#  #defineディレクティブの生成
+#
+def GenerateDefine(symbol, value)
+  $offsetH.add("#define #{symbol}\t#{value}")
+end
+#
+#
 #  ビットのサーチ
+#
+#
 def SearchBit(val)
   (0..7).each do |valBit|
 …
 end
+#
 #  ビットフィールドのオフセットとビット位置の定義の生成
+#
 def GenerateDefineBit(label, structSize, outputSize)
+#
+#  ビットフィールドのオフセットとビット位置の算出
+#
+def BitOffsetPosition(label, structSize, outputSize)
   top = SYMBOL(label)
   if top.nil?
 …
       error_exit("bit not found in `#{label}'")
     else
       valBit = SearchBit(val)
+      position = SearchBit(val)
       case outputSize
       when "W"
         if $SIL_ENDIAN_BIG
           valBit = valBit + 24 - ((offset & 0x03) << 3)
+      when 4, "W"
+        if $endianLittle
+          position = position + ((offset & 0x03) << 3)
         else
           valBit = valBit + ((offset & 0x03) << 3)
+          position = position + 24 - ((offset & 0x03) << 3)
         end
         offset &= ~0x03
       when "H"
         if $SIL_ENDIAN_BIG
           valBit = valBit + 8 - ((offset & 0x01) << 3)
+      when 2, "H"
+        if $endianLittle
+          position = position + ((offset & 0x01) << 3)
         else
           valBit = valBit + ((offset & 0x01) << 3)
+          position = position + 8 - ((offset & 0x01) << 3)
         end
         offset &= ~0x01
       end
     end
+    $offsetH.add("#define #{label}\t#{offset}")
+    $offsetH.add("#define #{label}_bit\t#{valBit}")
+    $offsetH.add("#define #{label}_mask\t#{sprintf("0x%x", 1 << valBit)}")
+    return offset, position
   end
 end
+#
+#  バイト配置のチェック
+#
+def magicCheck(size, check)
+  label = "MAGIC_#{size}"
+  top = SYMBOL(label)
+  if top.nil?
+    error_exit("label `#{label}' not found")
+  else
+.upto(size).each do |offset|
+      if $SIL_ENDIAN_BIG
+        val = PEEK(top + offset - 1, 1)
+      else
+        val = PEEK(top + size - offset, 1)
+      end
+      if val != check.at(offset - 1)
+        error_exit("value check of `#{label}' failed")
+      end
+    end
+# 以下の定義は，過去のバージョンとの互換性のために残している．
+#
+#  #defineディレクティブの生成
+#
+def GenerateDefine(symbol, value)
+  $offsetH.add("#define #{symbol}\t#{value}")
+end
+#
+#  ビットフィールドのオフセットとビット位置の定義の生成
+#
+def GenerateDefineBit(label, structSize, outputSize)
+  offset, position = BitOffsetPosition(label, structSize, outputSize)
+  if !offset.nil?
+    GenerateDefine(label, offset)
+    GenerateDefine("#{label}_bit", position)
+    GenerateDefine("#{label}_mask", sprintf("0x%x", 1 << position))
   end
 end
-magicCheck(1, [ 0x12 ])
-magicCheck(2, [ 0x12, 0x34 ])
-magicCheck(4, [ 0x12, 0x34, 0x56, 0x78 ])

EcnlProtoTool/trunk/asp3_dcre/kernel/interrupt.c

-              r321
+              r429
  *  Copyright (C) 2000-2003 by Embedded and Real-Time Systems Laboratory
  *                              Toyohashi Univ. of Technology, JAPAN
  *  Copyright (C) 2005-2016 by Embedded and Real-Time Systems Laboratory
+ *  Copyright (C) 2005-2019 by Embedded and Real-Time Systems Laboratory
  *              Graduate School of Information Science, Nagoya Univ., JAPAN
+ *
 …
 #endif /* LOG_ENA_INT_LEAVE */
+#ifndef LOG_CLR_INT_ENTER
+#define LOG_CLR_INT_ENTER(intno)
+#endif /* LOG_CLR_INT_ENTER */
+#ifndef LOG_CLR_INT_LEAVE
+#define LOG_CLR_INT_LEAVE(ercd)
+#endif /* LOG_CLR_INT_LEAVE */
+#ifndef LOG_RAS_INT_ENTER
+#define LOG_RAS_INT_ENTER(intno)
+#endif /* LOG_RAS_INT_ENTER */
+#ifndef LOG_RAS_INT_LEAVE
+#define LOG_RAS_INT_LEAVE(ercd)
+#endif /* LOG_RAS_INT_LEAVE */
+#ifndef LOG_PRB_INT_ENTER
+#define LOG_PRB_INT_ENTER(intno)
+#endif /* LOG_PRB_INT_ENTER */
+#ifndef LOG_PRB_INT_LEAVE
+#define LOG_PRB_INT_LEAVE(ercd)
+#endif /* LOG_PRB_INT_LEAVE */
 #ifndef LOG_CHG_IPM_ENTER
 #define LOG_CHG_IPM_ENTER(intpri)
 …
 #define LOG_GET_IPM_LEAVE(ercd, p_intpri)
 #endif /* LOG_GET_IPM_LEAVE */
+/*
+ *  割込み番号の範囲の判定
+ */
+#ifndef VALID_INTNO_DISINT
+#define VALID_INTNO_DISINT(intno)       VALID_INTNO(intno)
+#endif /* VALID_INTNO_DISINT */
+#ifndef VALID_INTNO_CLRINT
+#define VALID_INTNO_CLRINT(intno)       VALID_INTNO(intno)
+#endif /* VALID_INTNO_CLRINT */
+#ifndef VALID_INTNO_RASINT
+#define VALID_INTNO_RASINT(intno)       VALID_INTNO(intno)
+#endif /* VALID_INTNO_RASINT */
+#ifndef VALID_INTNO_PRBINT
+#define VALID_INTNO_PRBINT(intno)       VALID_INTNO(intno)
+#endif /* VALID_INTNO_PRBINT */
+#ifndef VALID_INTNO_CREISR
+#define VALID_INTNO_CREISR(intno)       VALID_INTNO(intno)
+#endif /* VALID_INTNO_CREISR */
+/*
+ *  割込み優先度の範囲の判定
+ */
+#ifndef VALID_INTPRI_CHGIPM
+#define VALID_INTPRI_CHGIPM(intpri)     \
+                                        (TMIN_INTPRI <= (intpri) && (intpri) <= TIPM_ENAALL)
+#endif /* VALID_INTPRI_CHGIPM */
 /*
 …
         isrpri = pk_cisr->isrpri;
         CHECK_RSATR(isratr, TARGET_ISRATR);
+        CHECK_VALIDATR(isratr, TARGET_ISRATR);
         CHECK_PAR(VALID_INTNO_CREISR(intno));
         CHECK_PAR(FUNC_ALIGN(isr));
 …
                 lock_cpu();
+        }
+        if (disable_int(intno)) {                                       /*［NGKI3086］*/
+        if (check_intno_cfg(intno)) {
+                disable_int(intno);                                             /*［NGKI3086］*/
                 ercd = E_OK;
+        }
 …
                 lock_cpu();
+        }
+        if (enable_int(intno)) {                                        /*［NGKI3099］*/
+        if (check_intno_cfg(intno)) {
+                enable_int(intno);                                              /*［NGKI3099］*/
                 ercd = E_OK;
+        }
 …
 #endif /* TOPPERS_SUPPORT_ENA_INT */
 #endif /* TOPPERS_ena_int */
+/*
+ *  割込み要求のクリア［NGKI3920］
+ */
+#ifdef TOPPERS_clr_int
+#ifdef TOPPERS_SUPPORT_CLR_INT                                  /*［NGKI3927］*/
+ER
+clr_int(INTNO intno)
+{
+        bool_t  locked;
+        ER              ercd;
+        LOG_CLR_INT_ENTER(intno);
+        CHECK_PAR(VALID_INTNO_CLRINT(intno));           /*［NGKI3921］［NGKI3930］*/
+        locked = sense_lock();
+        if (!locked) {
+                lock_cpu();
+        }
+        if (check_intno_cfg(intno) && check_intno_clear(intno)) {
+                clear_int(intno);                                               /*［NGKI3924］*/
+                ercd = E_OK;
+        }
+        else {
+                ercd = E_OBJ;                                                   /*［NGKI3923］［NGKI3929］*/
+        }
+        if (!locked) {
+                unlock_cpu();
+        }
+  error_exit:
+        LOG_CLR_INT_LEAVE(ercd);
+        return(ercd);
+}
+#endif /* TOPPERS_SUPPORT_CLR_INT */
+#endif /* TOPPERS_clr_int */
+/*
+ *  割込みの要求［NGKI3932］
+ */
+#ifdef TOPPERS_ras_int
+#ifdef TOPPERS_SUPPORT_RAS_INT                                  /*［NGKI3939］*/
+ER
+ras_int(INTNO intno)
+{
+        bool_t  locked;
+        ER              ercd;
+        LOG_RAS_INT_ENTER(intno);
+        CHECK_PAR(VALID_INTNO_RASINT(intno));           /*［NGKI3933］［NGKI3942］*/
+        locked = sense_lock();
+        if (!locked) {
+                lock_cpu();
+        }
+        if (check_intno_cfg(intno) && check_intno_raise(intno)) {
+                raise_int(intno);                                               /*［NGKI3936］*/
+                ercd = E_OK;
+        }
+        else {
+                ercd = E_OBJ;                                                   /*［NGKI3935］［NGKI3941］*/
+        }
+        if (!locked) {
+                unlock_cpu();
+        }
+  error_exit:
+        LOG_RAS_INT_LEAVE(ercd);
+        return(ercd);
+}
+#endif /* TOPPERS_SUPPORT_RAS_INT */
+#endif /* TOPPERS_ras_int */
+/*
+ *  割込み要求のチェック［NGKI3944］
+ */
+#ifdef TOPPERS_prb_int
+#ifdef TOPPERS_SUPPORT_PRB_INT                                  /*［NGKI3951］*/
+ER_BOOL
+prb_int(INTNO intno)
+{
+        bool_t  locked;
+        ER_BOOL ercd;
+        LOG_PRB_INT_ENTER(intno);
+        CHECK_PAR(VALID_INTNO_PRBINT(intno));           /*［NGKI3945］［NGKI3952］*/
+        locked = sense_lock();
+        if (!locked) {
+                lock_cpu();
+        }
+        if (check_intno_cfg(intno)) {
+                ercd = (ER_BOOL) probe_int(intno);              /*［NGKI3948］*/
+        }
+        else {
+                ercd = E_OBJ;                                                   /*［NGKI3947］*/
+        }
+        if (!locked) {
+                unlock_cpu();
+        }
+  error_exit:
+        LOG_PRB_INT_LEAVE(ercd);
+        return(ercd);
+}
+#endif /* TOPPERS_SUPPORT_PRB_INT */
+#endif /* TOPPERS_prb_int */
 /*
 …
         t_set_ipm(intpri);                                                      /*［NGKI3111］*/
         if (intpri == TIPM_ENAALL && enadsp) {
+                dspflg = true;
+                p_schedtsk = search_schedtsk();
+                set_dspflg();
                 if (p_runtsk->raster && p_runtsk->enater) {
                         task_terminate(p_runtsk);

EcnlProtoTool/trunk/asp3_dcre/kernel/interrupt.trb

-              r321
+              r429
+#
 #   Copyright (C) 2015 by FUJI SOFT INCORPORATED, JAPAN
 #   Copyright (C) 2015,2016 by Embedded and Real-Time Systems Laboratory
+#   Copyright (C) 2015-2019 by Embedded and Real-Time Systems Laboratory
 #               Graduate School of Information Science, Nagoya Univ., JAPAN
+#
 …
 #   の責任を負わない．
+#
 #   $Id$
+#   $Id: interrupt.trb 1167 2019-02-03 17:06:17Z ertl-hiro $
+#
 …
 #  フォルト定義
+#
 if $INTNO_CREISR_VALID.nil?
+if !defined?($INTNO_CREISR_VALID)
   $INTNO_CREISR_VALID = $INTNO_VALID
 end
 if $INHNO_CREISR_VALID.nil?
+if !defined?($INHNO_CREISR_VALID)
   $INHNO_CREISR_VALID = $INHNO_VALID
 end
 …
 #  CFG_INTで使用できる割込み優先度のデフォルト定義
+#
 if $INTPRI_CFGINT_VALID.nil?
+if !defined?($INTPRI_CFGINT_VALID)
   $INTPRI_CFGINT_VALID = $TMIN_INTPRI.upto($TMAX_INTPRI).to_a
 end
 …
 #  割込み要求ラインに関するエラーチェック
+#
 $cfgData[:CFG_INT].each do |key, params|
   #     intnoが割込み番号として正しくない場合（E_PAR）［NGKI2972］
   if $INTNO_VALID.index(params[:intno]).nil?
+$cfgData[:CFG_INT].each do |_, params|
+  # intnoが有効範囲外の場合（E_PAR）［NGKI2972］
+  if !$INTNO_VALID.include?(params[:intno])
     error_illegal("E_PAR", params, :intno)
   end
   #     intatrが無効の場合（E_RSATR）［NGKI2969］
+  # intatrが無効の場合（E_RSATR）［NGKI2969］［NGKI2944］［NGKI2945］
   #（TA_ENAINT，TA_EDGE，TARGET_INTATR以外のビットがセットされている場合）
   if (params[:intatr] & ~($TA_ENAINT|$TA_EDGE|$TARGET_INTATR)) != 0
 …
   end
   #     intpriがCFG_INTに対する割込み優先度として正しくない場合（E_PAR）
   #     ［NGKI2973］
   if $INTPRI_CFGINT_VALID.index(params[:intpri]).nil?
     error_illegal_sym("E_OBJ", params, :intpri, :intno)
   end
   # カーネル管理外に固定されているintnoに対して，intpriにTMIN_INTPRIよ
   #     りも小さい値が指定されなかった場合（E_OBJ）［NGKI2983］
   if !$INTNO_FIX_NONKERNEL.nil?
+    if !$INTNO_FIX_NONKERNEL.index(params[:intno]).nil?
       if params[:intpri] >= $TMIN_INTPRI
         error_ercd("E_OBJ", params, "%%intno must have higher priority " \
+  # intpriがCFG_INTに対する割込み優先度として正しくない場合（E_PAR）
+  # ［NGKI2973］
+  if !$INTPRI_CFGINT_VALID.include?(params[:intpri])
+    error_illegal_sym("E_PAR", params, :intpri, :intno)
+  end
+  # カーネル管理外に固定されているintnoに対して，intpriにTMIN_INTPRI以
+  # 上の値が指定された場合（E_OBJ）［NGKI2983］
+  if defined?($INTNO_FIX_NONKERNEL) \
+                                && $INTNO_FIX_NONKERNEL.include?(params[:intno])
+    if params[:intpri] >= $TMIN_INTPRI
+      error_ercd("E_OBJ", params, "%%intno must have higher priority " \
                                                                                         "than TMIN_INTPRI in %apiname")
+      end
+    end
+  end
+  #     カーネル管理に固定されているintnoに対して，intpriにTMIN_INTPRIより
+  #     も小さい値が指定された場合（E_OBJ）［NGKI2984］
+  if !$INTNO_FIX_KERNEL.nil?
+    if !$INTNO_FIX_KERNEL.index(params[:intno]).nil?
+      if params[:intpri] < $TMIN_INTPRI
+        error_ercd("E_OBJ", params, "%%intno must have lower or equal " \
+    end
+  end
+  # カーネル管理に固定されているintnoに対して，intpriにTMIN_INTPRIより
+  # も小さい値が指定された場合（E_OBJ）［NGKI2984］
+  if defined?($INTNO_FIX_KERNEL) \
+                                && $INTNO_FIX_KERNEL.include?(params[:intno])
+    if params[:intpri] < $TMIN_INTPRI
+      error_ercd("E_OBJ", params, "%%intno must have lower or equal " \
                                                                         "priority to TMIN_INTPRI in %apiname")
+      end
+    end
+    end
+  end
+  # ターゲット依存のエラーチェック［NGKI2985］
+  if defined? TargetCheckCfgInt()
+    TargetCheckCfgInt(params)
   end
 end
 …
 #  割込みハンドラに関するエラーチェック
+#
 $cfgData[:DEF_INH].each do |key, params|
   # inhnoが割込みハンドラ番号として正しくない場合（E_PAR）［NGKI3055］
   if $INHNO_VALID.index(params[:inhno]).nil?
+$cfgData[:DEF_INH].each do |_, params|
+  # inhnoが有効範囲外の場合（E_PAR）［NGKI3055］
+  if !$INHNO_VALID.include?(params[:inhno])
     error_illegal("E_PAR", params, :inhno)
   end
   # inhatrが無効の場合（E_RSATR）［NGKI3052］
+  # inhatrが無効の場合（E_RSATR）［NGKI3052］［NGKI2957］［NGKI2959］
   #（TARGET_INHATR以外のビットがセットされている場合）
   if (params[:inhatr] & ~($TARGET_INHATR)) != 0
 …
   end
   #     カーネル管理外に固定されているinhnoに対して，inhatrにTA_NONKERNELが
   #     指定されていない場合（E_RSATR）［NGKI3067］
   if !$INHNO_FIX_NONKERNEL.nil?
+    if !$INHNO_FIX_NONKERNEL.index(params[:inhno]).nil?
       if (params[:inhatr] & $TA_NONKERNEL) == 0
         error_ercd("E_RSATR", params, "%%inhno must be " \
+  # カーネル管理外に固定されているinhnoに対して，inhatrにTA_NONKERNELが
+  # 指定されていない場合（E_RSATR）［NGKI3067］
+  if defined?($INHNO_FIX_NONKERNEL) \
+                                && $INHNO_FIX_NONKERNEL.include?(params[:inhno])
+    if (params[:inhatr] & $TA_NONKERNEL) == 0
+      error_ercd("E_RSATR", params, "%%inhno must be " \
                                                                 "non-kernel interrupt in %apiname")
+      end
+    end
+  end
+  #     カーネル管理に固定されているinhnoに対して，inhatrにTA_NONKERNELが指
+  #     定されている場合（E_RSATR）［NGKI3068］
+  if !$INHNO_FIX_KERNEL.nil?
+    if !$INHNO_FIX_KERNEL.index(params[:inhno]).nil?
+      if (params[:inhatr] & $TA_NONKERNEL) != 0
+        error_ercd("E_RSATR", params, "%%inhno must not be " \
+    end
+  end
+  # カーネル管理に固定されているinhnoに対して，inhatrにTA_NONKERNELが指
+  # 定されている場合（E_RSATR）［NGKI3068］
+  if defined?($INHNO_FIX_KERNEL) \
+                                && $INHNO_FIX_KERNEL.include?(params[:inhno])
+    if (params[:inhatr] & $TA_NONKERNEL) != 0
+      error_ercd("E_RSATR", params, "%%inhno must not be " \
                                                                 "non-kernel interrupt in %apiname")
       end
     end
+  end
   if $toIntnoVal.has_key?(params[:inhno].val)
+    end
+  end
+  if $INHNO_CREISR_VALID.include?(params[:inhno])
+    # 割込みハンドラ番号に対応する割込み番号がある場合
     intnoVal = $toIntnoVal[params[:inhno].val]
 …
     else
       intnoParams = $cfgData[:CFG_INT][intnoVal]
       if (params[:inhatr] & $TA_NONKERNEL) == 0
         # inhatrにTA_NONKERNELが指定されておらず，inhnoに対応するintno
 …
     end
   end
+  # ターゲット依存のエラーチェック［NGKI3078］
+  if defined? TargetCheckDefInh()
+    TargetCheckDefInh(params)
+  end
 end
 …
 #  割込みサービスルーチン（ISR）に関するエラーチェック
+#
 $cfgData[:CRE_ISR].sort.each do |key, params|
   #     isratrが無効の場合（E_RSATR）［NGKI2998］
+$cfgData[:CRE_ISR].sort.each do |_, params|
+  # isratrが無効の場合（E_RSATR）［NGKI2998］［NGKI2952］［NGKI5176］
   #（TARGET_ISRATR以外のビットがセットされている場合）
   if (params[:isratr] & ~($TARGET_ISRATR)) != 0
 …
   end
+  #     intnoがCRE_ISRに対する割込み番号として正しくない場合（E_PAR）
+  #     ［NGKI3003］
+  if $INTNO_CREISR_VALID.index(params[:intno]).nil?
+  # intnoが有効範囲外の場合（E_PAR）［NGKI3003］
+  if !$INTNO_CREISR_VALID.include?(params[:intno])
     error_illegal("E_PAR", params, "intno")
   end
   #     (TMIN_ISRPRI <= isrpri && isrpri <= TMAX_ISRPRI)でない場合（E_PAR）
   #     ［NGKI3005］
+  # isrpriが有効範囲外の場合（E_PAR）［NGKI3005］
+  #（TMIN_ISRPRI <= isrpri && isrpri <= TMAX_ISRPRIでない場合）
   if !($TMIN_ISRPRI <= params[:isrpri] && params[:isrpri] <= $TMAX_ISRPRI)
     error_illegal("E_PAR", params, "isrpri")
   end
+end
+$INTNO_CREISR_VALID.each do |intnoVal|
+  # 割込み番号intnoに対して登録されたISRのリストの作成
+  isrParamsList = []
+  $cfgData[:CRE_ISR].sort.each do |key, params|
+    if params[:intno] == intnoVal
+      isrParamsList.push(params)
+    end
+  end
+  #     割込み番号intnoに対して登録されたISRが存在する場合
+  if isrParamsList.size > 0
+    inhnoVal = $toInhnoVal[intnoVal]
+    # intnoに対応するinhnoに対してDEF_INHがある場合（E_OBJ）［NGKI3013］
+    if $cfgData[:DEF_INH].has_key?(inhnoVal)
+      inhnoParams = $cfgData[:DEF_INH][inhnoVal]
+      error_ercd("E_OBJ", isrParamsList[0], "%%intno in %apiname " \
+                                        "is duplicated with inhno #{inhnoParams[:inhno]}")
+    end
+    # intnoに対するCFG_INTがない場合（E_OBJ）［NGKI3012］
+    if !$cfgData[:CFG_INT].has_key?(intnoVal)
+      error_ercd("E_OBJ", isrParamsList[0], "%%intno in %apiname " \
+  # intnoに対応するinhnoに対してDEF_INHがある場合（E_OBJ）［NGKI3013］
+  inhnoVal = $toInhnoVal[params[:intno].val]
+  if $cfgData[:DEF_INH].has_key?(inhnoVal)
+    error_ercd("E_OBJ", params, "%%intno in %apiname is duplicated " \
+                                        "with inhno #{$cfgData[:DEF_INH][inhnoVal][:inhno]}")
+  end
+  # intnoに対するCFG_INTがない場合（E_OBJ）［NGKI3012］
+  if !$cfgData[:CFG_INT].has_key?(params[:intno])
+    error_ercd("E_OBJ", params, "%%intno in %apiname " \
                                                                         "is not configured with CFG_INT")
+    else
+      intnoParams = $cfgData[:CFG_INT][intnoVal]
+      # intnoに対してCFG_INTで設定された割込み優先度がTMIN_INTPRIよりも
+      # 小さい場合（E_OBJ）［NGKI3014］
+      if intnoParams[:intpri] < $TMIN_INTPRI
+        error_ercd("E_OBJ", isrParamsList[0],
+                                                "intpri `#{intnoParams[:intpri]}' configured for " \
+                                                "%%intno with CFG_INT in higher than TMIN_INTPRI")
+      end
+    end
+  else
+    intnoParams = $cfgData[:CFG_INT][params[:intno]]
+    # intnoでカーネル管理外の割込みを指定した場合（E_OBJ）［NGKI3014］
+    #（intnoに対してCFG_INTで設定された割込み優先度がTMIN_INTPRIよりも小
+    #  さい場合）
+    if intnoParams[:intpri] < $TMIN_INTPRI
+      error_ercd("E_OBJ", params,
+                                        "intpri `#{intnoParams[:intpri]}' configured for " \
+                                        "%%intno with CFG_INT in higher than TMIN_INTPRI")
+    end
+  end
+  # ターゲット依存のエラーチェック
+  if defined? TargetCheckCreIsr()
+    TargetCheckCreIsr(params)
   end
 end
 …
   inhnoVal = $toInhnoVal[intnoVal]
   # 次のDEF_INHに相当するデータを生成
+  # 次の静的APIに相当するデータを生成
   # DEF_INH(inhno, { TA_NULL, _kernel_inthdr_<intno> } );
   $cfgData[:DEF_INH][inhnoVal] = {
 …
+  }
   # 割込みサービスルーチン用の割込みハンドラ
+  # 割込みサービスルーチンを呼び出す割込みハンドラの生成［NGKI2941］
   $kernelCfgC.add("void")
   $kernelCfgC.add("_kernel_inthdr_#{intnoVal}(void)")
 …
 # 割込みサービスルーチン生成順序テーブルの生成
+$kernelCfgC.add("const ID _kernel_isrorder_table[TNUM_SISRID] = { ")
+$kernelCfgC.append("\t")
+$cfgData[:CRE_ISR].each_with_index do |(key, params), index|
+  $kernelCfgC.append(", ") if index > 0
+  $kernelCfgC.append("#{params[:isrid]}")
+end
+$kernelCfgC.add
+$kernelCfgC.add2("};")
+if $cfgData[:CRE_ISR].size != 0
+  $kernelCfgC.add("const ID _kernel_isrorder_table[TNUM_SISRID] = { ")
+  $kernelCfgC.append("\t")
+  $cfgData[:CRE_ISR].each_with_index do |(_, params), index|
+    $kernelCfgC.append(", ") if index > 0
+    $kernelCfgC.append("#{params[:isrid]}")
+  end
+  $kernelCfgC.add
+  $kernelCfgC.add2("};")
+else
+  $kernelCfgC.add2("TOPPERS_EMPTY_LABEL(const ID, " \
+                                                                                "_kernel_isrorder_table);")
+end
+#
 …
     #  割込みハンドラのエントリ
+    #
     $cfgData[:DEF_INH].each do |key, params|
+    $cfgData[:DEF_INH].each do |_, params|
       if (params[:inhatr] & $TA_NONKERNEL) == 0
         $kernelCfgC.add("INTHDR_ENTRY(#{params[:inhno]}, " \
 …
+    #
     $kernelCfgC.add("const INHINIB _kernel_inhinib_table[TNUM_DEF_INHNO] = {")
     $cfgData[:DEF_INH].each_with_index do |(key, params), index|
+    $cfgData[:DEF_INH].each_with_index do |(_, params), index|
       $kernelCfgC.add(",") if index > 0
       if (params[:inhatr] & $TA_NONKERNEL) == 0
 …
   if $cfgData[:CFG_INT].size != 0
     $kernelCfgC.add("const INTINIB _kernel_intinib_table[TNUM_CFG_INTNO] = {")
     $cfgData[:CFG_INT].each_with_index do |(key, params), index|
+    $cfgData[:CFG_INT].each_with_index do |(_, params), index|
       $kernelCfgC.add(",") if index > 0
       $kernelCfgC.append("\t{ (#{params[:intno]}), (#{params[:intatr]}), " \

EcnlProtoTool/trunk/asp3_dcre/kernel/kernel.trb

-              r321
+              r429
+#
 #   Copyright (C) 2015 by FUJI SOFT INCORPORATED, JAPAN
 #   Copyright (C) 2015,2016 by Embedded and Real-Time Systems Laboratory
+#   Copyright (C) 2015-2019 by Embedded and Real-Time Systems Laboratory
 #               Graduate School of Information Science, Nagoya Univ., JAPAN
+#
 …
 #   の責任を負わない．
+#
 #   $Id$
+#   $Id: kernel.trb 1167 2019-02-03 17:06:17Z ertl-hiro $
+#
 …
+#
 #  インクルードディレクティブ（#include）
+#  インクルードディレクティブ（#include）の生成
+#
 $kernelCfgC.comment_header("Include Directives")
+$includeFiles.each do |file|
+  $kernelCfgC.add("#include #{file}")
+end
+GenerateIncludes($kernelCfgC)
 $kernelCfgC.add()
 …
   def AllocStack(stack, size)
     # 大きい方に丸めたサイズで確保する［NGKI1050］［NGKI3220］
     $kernelCfgC.add("/*static*/ STK_T #{stack}[COUNT_STK_T(#{size})];")
+    $kernelCfgC.add("static STK_T #{stack}[COUNT_STK_T(#{size})];")
     return("ROUND_STK_T(#{size})")
   end
 …
     @OBJ_S = obj_s.tr("a-z", "A-Z")
     @objid = (obj + "id").to_sym
+    @noobj = ("no" + obj).to_sym
     @api = "CRE_#{@OBJ}".to_sym
+    @aidapi = "AID_#{@OBJ}".to_sym
     @inibList = { "#{@OBJ_S}INIB" => "a#{@obj_s}inib_table"}
   end
 …
     # AID_@OBJの処理
     numAutoObjid = 0
     $cfgData["AID_#{@OBJ}".to_sym].each do |key, params|
       numAutoObjid += params["no#{@obj}".to_sym]
+    $cfgData[@aidapi].each do |_, params|
+      numAutoObjid += params[@noobj]
     end
     numObjid = $cfgData[@api].size + numAutoObjid
 …
     # オブジェクトのID番号のマクロ定義の生成
     $cfgData[@api].sort.each do |key, params|
+    $cfgData[@api].sort.each do |_, params|
       $kernelCfgH.add("#define #{params[@objid]}\t#{params[@objid].val}")
     end
 …
     # オブジェクトのID番号を保持する変数
     if $USE_EXTERNAL_ID
       $cfgData[@api].sort.each do |key, params|
+      $cfgData[@api].sort.each do |_, params|
         $kernelCfgC.add("const ID #{params[@objid]}_id" \
                                                                                 " = #{params[@objid].val};")
 …
   nfymode1 = nfymode & 0x0f
   nfymode2 = nfymode & ~0x0f
   par1 = params[:par1]
+  # par1 = params[:par1]
   par2 = params[:par2]
 …
     error_api(params, "too many parameters for nfymode `#{nfymode}' " \
                                                                                         "in %apiname of %#{objid}")
   elsif nfymode == $TNFY_HANDLER
+  elsif nfymode1 == $TNFY_HANDLER && nfymode2 == 0              #［NGKI3721］
     # タイムイベントハンドラの呼出し
     funcname = "(NFYHDR)(#{par2})"
 …
     # イベント通知処理の処理
     if nfymode1 == $TNFY_SETVAR && nfymode2 == 0
+    if nfymode1 == $TNFY_SETVAR && nfymode2 == 0                #［NGKI3721］
       # 変数の設定
       $kernelCfgC.add("\t*((intptr_t *) exinf) = (#{par2});")
     elsif nfymode1 == $TNFY_INCVAR && nfymode2 == 0
+    elsif nfymode1 == $TNFY_INCVAR && nfymode2 == 0             #［NGKI3721］
       # 変数のインクリメント
       $kernelCfgC.add("\t(void) loc_cpu();")
 …
       $kernelCfgC.add("\t#{errorCode}psnd_dtq(((ID) exinf), #{par2});")
     else
+      # nfymodeの値が正しくない場合（E_PAR）［NGKI3730］
       error_illegal_id("E_PAR", params, :nfymode, objid)
     end
     if nfymode2 != 0
       # エラー通知処理の処理
       $kernelCfgC.add("\tif (ercd != E_OK) {")
       if nfymode2 == $TENFY_SETVAR
 …
                                                                                                         " (intptr_t) ercd);")
       else
+        # nfymodeの値が正しくない場合（E_PAR）［NGKI3730］
         error_illegal_id("E_PAR", params, :nfymode, objid)
       end
 …
 if $cfgData[:DEF_ICS].size == 0
   # DEF_ICSがない場合のデフォルト値の設定
   if $DEFAULT_ISTK.nil?
+  if !defined?($DEFAULT_ISTK)
     # スタック領域の自動割付け
     istksz = AllocStack("_kernel_istack", "DEFAULT_ISTKSZ")
 …
   end
 else
   # 静的API「DEF_ICS」が複数ある（E_OBJ）［NGKI3216］
+  # 静的API「DEF_ICS」が複数ある場合（E_OBJ）［NGKI3216］
   if $cfgData[:DEF_ICS].size > 1
     error("E_OBJ: too many DEF_ICS")
 …
   # DEF_ICSがある場合の処理
   params = $cfgData[:DEF_ICS][1]
+  params0 = $cfgData[:DEF_ICS][1]
   # パラメータが省略された時のデフォルト値の設定
   params[:istk] ||= "NULL"
+  params0[:istk] ||= "NULL"
   # istkszがターゲット定義の最小値（TARGET_MIN_ISTKSZ，未定義の場合は1）
   # よりも小さい場合（E_PAR）［NGKI3254］
   if params[:istksz] < $TARGET_MIN_ISTKSZ
     error_wrong("E_PAR", params, :istksz, "too small")
   end
   if params[:istk] == "NULL"
+  if params0[:istksz] < $TARGET_MIN_ISTKSZ
+    error_wrong("E_PAR", params0, :istksz, "too small")
+  end
+  if params0[:istk] == "NULL"
     # スタック領域の自動割付け
     istksz = AllocStack("_kernel_istack", params[:istksz])
+    istksz = AllocStack("_kernel_istack", params0[:istksz])
     istk = "_kernel_istack"
   else
     # istkszがスタック領域のサイズとして正しくない場合（E_PAR）［NGKI3222］
     if (params[:istksz] & ($CHECK_STKSZ_ALIGN - 1)) != 0
       error_wrong("E_PAR", params, :istksz, "not aligned")
     end
     istksz = "(#{params[:istksz]})"
     istk = "(void *)(#{params[:istk]})"
+    # istkszがターゲット定義の制約に合致しない場合（E_PAR）［NGKI3222］
+    if (params0[:istksz] & ($CHECK_STKSZ_ALIGN - 1)) != 0
+      error_wrong("E_PAR", params0, :istksz, "not aligned")
+    end
+    istksz = "(#{params0[:istksz]})"
+    istk = "(void *)(#{params0[:istk]})"
   end
 end
 …
+#
 #  カーネルが割り付けるメモリ領域
+#
 $kernelCfgC.comment_header("Memory Area Allocated by Kernel")
 if $cfgData[:DEF_KMM].size == 0
   # DEF_KMMがない場合のデフォルト値の設定
   kmmsz = "0"
   kmm = "NULL"
+#  カーネルメモリプール領域
+#
+$kernelCfgC.comment_header("Kernel Memory Pool Area")
+if $cfgData[:DEF_MPK].size == 0
+  # DEF_MPKがない場合のデフォルト値の設定
+  mpksz = "0"
+  mpk = "NULL"
 else
   # 静的API「DEF_KMM」が複数ある（E_OBJ）
   if ($cfgData[:DEF_KMM].size > 1)
     error("E_OBJ: too many DEF_KMM")
   end
   # DEF_KMMがある場合の処理
   params = $cfgData[:DEF_KMM][1]
+  # 静的API「DEF_MPK」が複数ある（E_OBJ）［NGKI5073］
+  if ($cfgData[:DEF_MPK].size > 1)
+    error("E_OBJ: too many DEF_MPK")
+  end
+  # DEF_MPKがある場合の処理
+  params0 = $cfgData[:DEF_MPK][1]
   # パラメータが省略された時のデフォルト値の設定
   params[:kmm] ||= "NULL"
   # kmmszが0の場合（E_PAR）
   if params[:kmmsz] == 0
     error_wrong("E_PAR", params, :kmmsz, "zero")
   end
   if params[:kmm] == "NULL"
     # カーネルが割り付けるメモリ領域の自動割付け
     $kernelCfgC.add("static MB_T _kernel_memory" \
                                         "[TOPPERS_COUNT_SZ(#{params[:kmmsz]}, sizeof(MB_T))];")
     kmmsz = "TOPPERS_ROUND_SZ(#{params[:kmmsz]}, sizeof(MB_T))"
     kmm = "_kernel_memory"
+  params0[:mpk] ||= "NULL"
+  # mpkszが0の場合（E_PAR）［NGKI5071］
+  if params0[:mpksz] == 0
+    error_wrong("E_PAR", params0, :mpksz, "zero")
+  end
+  if params0[:mpk] == "NULL"
+    # カーネルメモリプール領域の自動割付け
+    $kernelCfgC.add("static MB_T _kernel_memory_pool" \
+                                        "[COUNT_MB_T(#{params0[:mpksz]})];")
+    mpksz = "ROUND_MB_T(#{params0[:mpksz]})"
+    mpk = "_kernel_memory_pool"
   else
+    # kmmszがカーネルが割り付けるメモリ領域のサイズとして正しくない場合
+    # （E_PAR）
+    if (params[:kmmsz] & ($CHECK_MB_ALIGN - 1)) != 0
+      error_wrong("E_PAR", params, :kmmsz, "not aligned")
+    end
+    kmmsz = "(#{params[:kmmsz]})"
+    kmm = "(void *)(#{params[:kmm]})"
+    # mpkszがターゲット定義の制約に合致しない場合（E_PAR）［NGKI5083］
+    if (params0[:mpksz] & ($CHECK_MB_ALIGN - 1)) != 0
+      error_wrong("E_PAR", params0, :mpksz, "not aligned")
+    end
+    mpksz = "(#{params0[:mpksz]})"
+    mpk = "(void *)(#{params0[:mpk]})"
   end
 end
 $kernelCfgC.add(<<EOS)
 const size_t _kernel_kmmsz = #{kmmsz};
 MB_T *const _kernel_kmm = #{kmm};
+const size_t _kernel_mpksz = #{mpksz};
+MB_T *const _kernel_mpk = #{mpk};
 EOS
 …
 #  初期化ルーチン機能
+#
+# kernel_cfg.hの生成
+$kernelCfgH.add2("#define TNUM_INIRTN\t#{$cfgData[:ATT_INI].size}")
+# kernel_cfg.cの生成
 $kernelCfgC.comment_header("Initialization Routine")
 # エラーチェック
 $cfgData[:ATT_INI].each do |key, params|
   # iniatrが無効の場合（E_RSATR）［NGKI3241］
+$cfgData[:ATT_INI].each do |_, params|
+  # iniatrが無効の場合（E_RSATR）［NGKI3241］［NGKI3202］［NGKI3203］
   #（TA_NULLでない場合）
   if (params[:iniatr] != $TA_NULL)
 …
 end
+# 初期化ルーチンの実行関数の生成
+$kernelCfgC.append(<<EOS)
+void
+_kernel_call_inirtn(void)
+{
+EOS
+$cfgData[:ATT_INI].each do |key, params|
+  $kernelCfgC.add("\t((INIRTN)(#{params[:inirtn]}))" \
+                                                                "((intptr_t)(#{params[:exinf]}));")
+end
+$kernelCfgC.add2("}")
+# 初期化ルーチンの数の定義
+$kernelCfgC.add2("const uint_t _kernel_tnum_inirtn = TNUM_INIRTN;");
+# 初期化ルーチンテーブルの生成
+if $cfgData[:ATT_INI].size > 0
+  $kernelCfgC.add("const INIRTNB _kernel_inirtnb_table[TNUM_INIRTN] = {")
+  $cfgData[:ATT_INI].each_with_index do |(_, params), index|
+    $kernelCfgC.add(",") if index > 0
+    $kernelCfgC.append("\t{ (INIRTN)(#{params[:inirtn]}), " \
+                                                                "(intptr_t)(#{params[:exinf]}) }")
+  end
+  $kernelCfgC.add
+  $kernelCfgC.add2("};")
+else
+  $kernelCfgC.add2("TOPPERS_EMPTY_LABEL(const INIRTNB, " \
+                                                                                "_kernel_inirtnb_table);")
+end
+#
 #  終了処理ルーチン機能
+#
+# kernel_cfg.hの生成
+$kernelCfgH.add2("#define TNUM_TERRTN\t#{$cfgData[:ATT_TER].size}")
+# kernel_cfg.cの生成
 $kernelCfgC.comment_header("Termination Routine")
 # エラーチェック
 $cfgData[:ATT_TER].each do |key, params|
   # teratrが無効の場合（E_RSATR）［NGKI3248］
+$cfgData[:ATT_TER].each do |_, params|
+  # teratrが無効の場合（E_RSATR）［NGKI3248］［NGKI3208］［NGKI3209］
   #（TA_NULLでない場合）
   if (params[:teratr] != $TA_NULL)
 …
 end
+# 終了処理ルーチンの実行関数の生成
+$kernelCfgC.append(<<EOS)
+void
+_kernel_call_terrtn(void)
+{
+EOS
+$cfgData[:ATT_TER].reverse_each do |key, params|
+  $kernelCfgC.add("\t((TERRTN)(#{params[:terrtn]}))" \
+                                                                "((intptr_t)(#{params[:exinf]}));")
+end
+$kernelCfgC.add2("}")
+# 終了処理ルーチンの数の定義
+$kernelCfgC.add2("const uint_t _kernel_tnum_terrtn = TNUM_TERRTN;");
+# 終了処理ルーチンテーブルの生成
+if $cfgData[:ATT_TER].size > 0
+  $kernelCfgC.add("const TERRTNB _kernel_terrtnb_table[TNUM_TERRTN] = {")
+  $cfgData[:ATT_TER].reverse_each.each_with_index do |(_, params), index|
+    $kernelCfgC.add(",") if index > 0
+    $kernelCfgC.append("\t{ (TERRTN)(#{params[:terrtn]}), " \
+                                                                "(intptr_t)(#{params[:exinf]}) }")
+  end
+  $kernelCfgC.add
+  $kernelCfgC.add2("};")
+else
+  $kernelCfgC.add2("TOPPERS_EMPTY_LABEL(const TERRTNB, " \
+                                                                                "_kernel_terrtnb_table);")
+end
+#

EcnlProtoTool/trunk/asp3_dcre/kernel/kernel_api.def

r331	r429
23	23	DEF_EXC .excno* { .excatr &exchdr }
24	24	DEF_ICS { .istksz &istk? }
25		DEF_~~KMM { .kmmsz &kmm~~? }
	25	DEF_MPK { .mpksz &mpk? }
26	26	ATT_INI { .iniatr &exinf &inirtn }
27	27	ATT_TER { .teratr &exinf &terrtn }

EcnlProtoTool/trunk/asp3_dcre/kernel/kernel_check.trb

-              r321
+              r429
 # -*- coding: utf-8 -*-
+#
+#
 #   TOPPERS/ASP Kernel
 #       Toyohashi Open Platform for Embedded Real-Time Systems/
 …
+#
 #   Copyright (C) 2015 by FUJI SOFT INCORPORATED, JAPAN
 #   Copyright (C) 2015,2016 by Embedded and Real-Time Systems Laboratory
+#   Copyright (C) 2015-2019 by Embedded and Real-Time Systems Laboratory
 #               Graduate School of Information Science, Nagoya Univ., JAPAN
+#
 …
 #   の責任を負わない．
+#
 #   $Id$
+#   $Id: kernel_check.trb 1167 2019-02-03 17:06:17Z ertl-hiro $
+#
 …
+#
+#
+#
 #  タイムスタンプファイルの指定
+#
+#
 $timeStampFileName = "check.timestamp"
 …
 #  データセクションのLMAからVMAへのコピー
+#
 if !$lmaList.nil?
+if defined?($lmaList)
   $lmaList.each do |lma|
     startData = SYMBOL(lma[:START_DATA])
 …
     # 通知処理のパラメータが2つの場合
     epar1 = params[:par3]
     epar2 = params[:par4]
+    # epar2 = params[:par4]
   else
     # 通知処理のパラメータが1つの場合
     epar1 = params[:par2]
+    epar2 = params[:par3]
+  end
+  #     タイムイベントハンドラの先頭番地のチェック［NGKI3693］
+    # epar2 = params[:par3]
+  end
+  # タイムイベントハンドラの先頭番地が，プログラムの先頭番地として正し
+  # くない場合（E_PAR）［NGKI3693］
   if nfymode == $TNFY_HANDLER
     tmehdr = nfyhdr
 …
   end
   #     イベント通知処理の変数の番地とオブジェクトIDのチェック
+  # イベント通知処理の変数の番地とオブジェクトIDのチェック
   if nfymode1 == $TNFY_SETVAR || nfymode1 == $TNFY_INCVAR
     # 変数の設定／インクリメントによるタイムイベントの通知
 …
     params1[:p_var] = par1
+    # 変数の番地のチェック［NGKI3699］［NGKI3897］
+    # 通知方法中の変数の番地が，intptr_t型の変数の番地として正しくない
+    # 場合（E_PAR）［NGKI3699］［NGKI3897］
     if (p_var & ($CHECK_INTPTR_ALIGN - 1)) != 0
       error_wrong_id("E_PAR", params1, :p_var, objid, "not aligned")
 …
     params1[:tskid] = par1
     # タスクIDのチェック［NGKI3704］
+    # 通知方法中のタスクIDが有効範囲外の場合（E_ID）［NGKI3704］
     if !($TMIN_TSKID <= tskid && tskid <= $tmax_tskid)
       error_illegal_id("E_ID", params1, :tskid, objid)
 …
     params1[:semid] = par1
     # セマフォIDのチェック［NGKI3707］
+    # 通知方法中のセマフォIDが有効範囲外の場合（E_ID）［NGKI3707］
     if !($TMIN_SEMID <= semid && semid <= $tmax_semid)
       error_illegal_id("E_ID", params1, :semid, objid)
 …
     params1[:flgid] = par1
     # イベントフラグIDのチェック［NGKI3710］
+    # 通知方法中のイベントフラグIDが有効範囲外の場合（E_ID）［NGKI3710］
     if !($TMIN_FLGID <= flgid && flgid <= $tmax_flgid)
       error_illegal_id("E_ID", params1, :flgid, objid)
 …
     params1[:dtqid] = par1
     # データキューIDのチェック［NGKI3713］
+    # 通知方法中のデータキューIDが有効範囲外の場合（E_ID）［NGKI3713］
     if !($TMIN_DTQID <= dtqid && dtqid <= $tmax_dtqid)
       error_illegal_id("E_ID", params1, :dtqid, objid)
 …
     params1[:p_var] = epar1
+    # 変数の番地のチェック［NGKI3701］［NGKI3897］
+    # 通知方法中の変数の番地が，intptr_t型の変数の番地として正しくない
+    # 場合（E_PAR）［NGKI3701］［NGKI3897］
     if (p_var & ($CHECK_INTPTR_ALIGN - 1)) != 0
       error_wrong_id("E_PAR", params1, :p_var, objid, "not aligned")
 …
     params1[:tskid] = epar1
     # タスクIDのチェック［NGKI3704］
+    # 通知方法中のタスクIDが有効範囲外の場合（E_ID）［NGKI3704］
     if !($TMIN_TSKID <= tskid && tskid <= $tmax_tskid)
       error_illegal_id("E_ID", params1, :tskid, objid)
 …
     params1[:semid] = epar1
     # セマフォIDのチェック［NGKI3707］
+    # 通知方法中のセマフォIDが有効範囲外の場合（E_ID）［NGKI3707］
     if !($TMIN_SEMID <= semid && semid <= $tmax_semid)
       error_illegal_id("E_ID", params1, :semid, objid)
 …
     params1[:flgid] = epar1
     # イベントフラグIDのチェック［NGKI3710］
+    # 通知方法中のイベントフラグIDが有効範囲外の場合（E_ID）［NGKI3710］
     if !($TMIN_FLGID <= flgid && flgid <= $tmax_flgid)
       error_illegal_id("E_ID", params1, :flgid, objid)
 …
     params1[:dtqid] = epar1
     # データキューIDのチェック［NGKI3715］
+    # 通知方法中のデータキューIDが有効範囲外の場合（E_ID）［NGKI3715］
     if !($TMIN_DTQID <= dtqid && dtqid <= $tmax_dtqid)
       error_illegal_id("E_ID", params1, :dtqid, objid)
 …
 end
+#
+#
 #  タスクに関するチェック
+#
+#
 tinib = SYMBOL("_kernel_tinib_table")
 $cfgData[:CRE_TSK].sort.each do |key, params|
+  # taskがプログラムの先頭番地として正しくない場合（E_PAR）［NGKI1033］
   task = PEEK(tinib + $offsetof_TINIB_task, $sizeof_TASK)
-  # タスクの先頭番地のチェック［NGKI1033］
   if (task & ($CHECK_FUNC_ALIGN - 1)) != 0
     error_wrong_id("E_PAR", params, :task, :tskid, "not aligned")
 …
   end
   # タスクのスタック領域の先頭番地のチェック［NGKI1056］
+  # stkがターゲット定義の制約に合致しない場合（E_PAR）［NGKI1056］
   if $USE_TSKINICTXB
     stk = GetStackTskinictxb(key, params, tinib)
 …
 end
+#
+#
 #  固定長メモリプールに関するチェック
+#
+#
 mpfinib = SYMBOL("_kernel_mpfinib_table")
 $cfgData[:CRE_MPF].sort.each do |key, params|
+$cfgData[:CRE_MPF].sort.each do |_, params|
   mpf = PEEK(mpfinib + $offsetof_MPFINIB_mpf, $sizeof_void_ptr)
   # 固定長メモリプール領域の先頭番地のチェック［NGKI2249］
+  # mpfがターゲット定義の制約に合致しない場合（E_PAR）［NGKI2249］
   if (mpf & ($CHECK_MPF_ALIGN - 1)) != 0
     error_wrong_id("E_PAR", params, :mpf, :mpfid, "not aligned")
 …
 end
+#
+#
 #  周期通知に関するチェック
+#
+#
 cycinib = SYMBOL("_kernel_cycinib_table")
 $cfgData[:CRE_CYC].sort.each do |key, params|
 …
   nfyhdr = PEEK(cycinib + $offsetof_CYCINIB_nfyhdr, $sizeof_NFYHDR)
   #     通知情報のチェック
+  # 通知情報のチェック
   checkNotifyHandler(key, params, :cycid, exinf, nfyhdr)
 …
 end
+#
+#
 #  アラーム通知に関するチェック
+#
+#
 alminib = SYMBOL("_kernel_alminib_table")
 $cfgData[:CRE_ALM].sort.each do |key, params|
 …
   nfyhdr = PEEK(alminib + $offsetof_ALMINIB_nfyhdr, $sizeof_NFYHDR)
   #     通知情報のチェック
+  # 通知情報のチェック
   checkNotifyHandler(key, params, :almid, exinf, nfyhdr)
 …
+#
 isrinib = SYMBOL("_kernel_isrinib_table")
 $cfgData[:CRE_ISR].sort.each do |key, params|
+$cfgData[:CRE_ISR].sort.each do |_, params|
   isr = PEEK(isrinib + $offsetof_ISRINIB_isr, $sizeof_ISR)
   # 割込みサービスルーチンの先頭番地のチェック［NGKI3004］
+  # isrがプログラムの先頭番地として正しくない場合［NGKI3004］
   if (isr & ($CHECK_FUNC_ALIGN - 1)) != 0
     error_wrong_id("E_PAR", params, :isr, :isrid, "not aligned")
 …
 end
+#
+#
 #  非タスクコンテキスト用のスタック領域に関するチェック
+#
 istkAddr = SYMBOL("_kernel_istk")
+if !istkAddr.nil?
   istk = PEEK(istkAddr, $sizeof_void_ptr)
   # 非タスクコンテキスト用のスタック領域の先頭番地のチェック［NGKI3222］
+#
+if $cfgData[:DEF_ICS].size > 0
+  params0 = $cfgData[:DEF_ICS][1]
+  istk = PEEK(SYMBOL("_kernel_istk"), $sizeof_void_ptr)
+  # istkがターゲット定義の制約に合致しない場合（E_PAR）［NGKI3222］
   if (istk & ($CHECK_STACK_ALIGN - 1)) != 0
     error_wrong("E_PAR", $cfgData[:DEF_ICS][1], :istk, "not aligned")
+    error_wrong("E_PAR", params0, :istk, "not aligned")
   end
   if $CHECK_STACK_NONNULL && istk == 0
+    error_wrong("E_PAR", $cfgData[:DEF_ICS][1], :istk, "null")
+  end
+end
+#
+#  カーネルが割り付けるメモリ領域に関するチェック
+#
+kmmAddr = SYMBOL("_kernel_kmm")
+if !kmmAddr.nil?
+  kmm = PEEK(kmmAddr, $sizeof_void_ptr)
+  # カーネルが割り付けるメモリ領域の先頭番地のチェック
+  if (kmm & ($CHECK_MB_ALIGN - 1)) != 0
+    error_wrong("E_PAR", $cfgData[:DEF_KMM][1], :kmm, "not aligned")
+  end
+end
+    error_wrong("E_PAR", params0, :istk, "null")
+  end
+end
+#
+#  カーネルメモリプール領域に関するチェック
+#
+if $cfgData[:DEF_MPK].size > 0
+  params0 = $cfgData[:DEF_MPK][1]
+  mpk = PEEK(SYMBOL("_kernel_mpk"), $sizeof_void_ptr)
+  # mpkがターゲット定義の制約に合致しない場合（E_PAR）［NGKI5083］
+  if (mpk & ($CHECK_MPK_ALIGN - 1)) != 0
+    error_wrong("E_PAR", params0, :mpk, "not aligned")
+  end
+  if $CHECK_MPK_NONNULL && mpk == 0
+    error_wrong("E_PAR", params0, :mpk, "null")
+  end
+end
+#
+#  初期化ルーチンに関するチェック
+#
+inirtnb = SYMBOL("_kernel_inirtnb_table")
+$cfgData[:ATT_INI].each do |_, params|
+  inirtn = PEEK(inirtnb + $offsetof_INIRTNB_inirtn, $sizeof_INIRTN)
+  # inirtnがプログラムの先頭番地として正しくない場合（E_PAR）［NGKI3243］
+  if (inirtn & ($CHECK_FUNC_ALIGN - 1)) != 0
+    error_wrong("E_PAR", params, :inirtn, "not aligned")
+  end
+  if $CHECK_FUNC_NONNULL && inirtn == 0
+    error_wrong("E_PAR", params, :inirtn, "null")
+  end
+  inirtnb += $sizeof_INIRTNB
+end
+#
+#  終了処理ルーチンに関するチェック
+#
+terrtnb = SYMBOL("_kernel_terrtnb_table")
+$cfgData[:ATT_TER].each do |_, params|
+  terrtn = PEEK(terrtnb + $offsetof_TERRTNB_terrtn, $sizeof_TERRTN)
+  # terrtnがプログラムの先頭番地として正しくない場合（E_PAR）［NGKI3250］
+  if (terrtn & ($CHECK_FUNC_ALIGN - 1)) != 0
+    error_wrong("E_PAR", params, :terrtn, "not aligned")
+  end
+  if $CHECK_FUNC_NONNULL && terrtn == 0
+    error_wrong("E_PAR", params, :terrtn, "null")
+  end
+  terrtnb += $sizeof_TERRTNB
+end

EcnlProtoTool/trunk/asp3_dcre/kernel/kernel_impl.h

-              r321
+              r429
  *  Copyright (C) 2000-2003 by Embedded and Real-Time Systems Laboratory
  *                              Toyohashi Univ. of Technology, JAPAN
  *  Copyright (C) 2004-2016 by Embedded and Real-Time Systems Laboratory
+ *  Copyright (C) 2004-2018 by Embedded and Real-Time Systems Laboratory
  *              Graduate School of Information Science, Nagoya Univ., JAPAN
+ *
 …
 /*
  *  型キャストを行うマクロの定義
  */
 #ifndef CAST
 #define CAST(type, val)         ((type)(val))
 #endif /* CAST */
+ *  トレースログに関する設定
+ */
+#ifdef TOPPERS_ENABLE_TRACE
+#include "arch/tracelog/trace_log.h"
+#endif /* TOPPERS_ENABLE_TRACE */
 /*
 …
 #endif /* TARGET_ISRATR */
+#ifndef TARGET_MIN_STKSZ                        /* タスクのスタックサイズの最小値 */
+#define TARGET_MIN_STKSZ        1U              /* 未定義の場合は0でないことをチェック */
+#endif /* TARGET_MIN_STKSZ */
 /*
  *  ヘッダファイルを持たないモジュールの関数・変数の宣言
 …
 /*
+ *  初期化ルーチンの実行（kernel_cfg.c）
+ */
+extern void     call_inirtn(void);
+/*
+ *  終了処理ルーチンの実行（kernel_cfg.c）
+ */
+extern void     call_terrtn(void);
+ *  初期化ルーチン関係の定義（kernel_cfg.c）
+ */
+typedef struct initialization_routine_block {
+        INIRTN          inirtn;                                 /* 初期化ルーチンの先頭番地 */
+        intptr_t        exinf;                                  /* 初期化ルーチンの拡張情報 */
+} INIRTNB;
+extern const uint_t     tnum_inirtn;            /* 初期化ルーチンの数 */
+extern const INIRTNB inirtnb_table[];   /* 初期化ルーチンブロックテーブル */
+/*
+ *  終了処理ルーチン関係の定義（kernel_cfg.c）
+ */
+typedef struct termination_routine_block {
+        TERRTN          terrtn;                                 /* 終了処理ルーチンの先頭番地 */
+        intptr_t        exinf;                                  /* 終了処理ルーチンの拡張情報 */
+} TERRTNB;
+extern const uint_t     tnum_terrtn;            /* 終了処理ルーチンの数 */
+extern const TERRTNB terrtnb_table[];   /* 終了処理ルーチンブロックテーブル */
 /*
 …
 /*
  *  カーネルが割り付けるメモリ領域（kernel_cfg.c）
  */
 extern const size_t     kmmsz;          /* カーネルが割り付けるメモリ領域のサイズ */
 extern MB_T *const      kmm;            /* カーネルが割り付けるメモリ領域の先頭番地 */
+ *  カーネルメモリプール領域（kernel_cfg.c）
+ */
+extern const size_t     mpksz;          /* カーネルメモリプール領域のサイズ */
+extern MB_T *const      mpk;            /* カーネルメモリプール領域の先頭番地 */
 /*
 …
 /*
+ *  カーネルメモリプール領域有効フラグ（startup.c）
+ */
+extern bool_t   mpk_valid;
+/*
  *  カーネルの起動（startup.c）
  */
 …
 /*
+ *  カーネルの割り付けるメモリ領域の管理（startup.c）
+ */
+extern void initialize_kmm(void);
+extern void *kernel_malloc(size_t size);
+extern void kernel_free(void *ptr);
+ *  メモリプール領域の管理（startup.c）
+ */
+extern bool_t initialize_mempool(MB_T *mempool, size_t size);
+extern void *malloc_mempool(MB_T *mempool, size_t size);
+extern void free_mempool(MB_T *mempool, void *ptr);
+/*
+ *  カーネルメモリプール領域からのメモリ獲得／解放
+ */
+Inline void *
+malloc_mpk(size_t size)
+{
+        if (mpk_valid) {
+                return(malloc_mempool(mpk, size));
+        }
+        else {
+                return(NULL);
+        }
+}
+Inline void
+free_mpk(void *ptr)
+{
+        if (mpk_valid) {
+                free_mempool(mpk, ptr);
+        }
+}
 /*
 …
 /*
  *  通知方法のエラーチェック
+ *  通知方法のエラーチェック（time_manage.c）
  */
 extern ER check_nfyinfo(const T_NFYINFO *p_nfyinfo);
 /*
  *  通知ハンドラ
+ *  通知ハンドラ（time_manage.c）
  */
 extern void notify_handler(intptr_t exinf);

EcnlProtoTool/trunk/asp3_dcre/kernel/kernel_rename.def

-              r331
+              r429
 # startup.c
 kerflg
+mpk_valid
 exit_kernel
 initialize_kmm
+kernel_malloc
+kernel_free
+initialize_mempool
+malloc_mempool
+free_mempool
 # task.c
 …
 set_hrt_event
 tmevtb_register
 tmevtb_enqueue
+tmevtb_enqueue_reltim
 tmevtb_dequeue
 check_adjtim
 …
 # kernel_cfg.c
 initialize_object
+call_inirtn
+call_terrtn
+tnum_inirtn
+inirtnb_table
+tnum_terrtn
+terrtnb_table
 tmax_tskid
 tmax_stskid
 …
 istk
 istkpt
+kmmsz
+kmm
+mpksz
+mpk
+# tTraceLog.c
+log_dsp_enter
+log_dsp_leave
+log_inh_enter
+log_inh_leave
+log_exc_enter
+log_exc_leave
 INCLUDE "target"

EcnlProtoTool/trunk/asp3_dcre/kernel/kernel_rename.h

-              r321
+              r429
  */
 #define kerflg                                          _kernel_kerflg
+#define mpk_valid                                       _kernel_mpk_valid
 #define exit_kernel                                     _kernel_exit_kernel
 #define initialize_kmm                          _kernel_initialize_kmm
 #define kernel_malloc                           _kernel_kernel_malloc
 #define kernel_free                                     _kernel_kernel_free
+#define initialize_mempool                      _kernel_initialize_mempool
+#define malloc_mempool                          _kernel_malloc_mempool
+#define free_mempool                            _kernel_free_mempool
 /*
 …
 #define set_hrt_event                           _kernel_set_hrt_event
 #define tmevtb_register                         _kernel_tmevtb_register
 #define tmevtb_enqueue                          _kernel_tmevtb_enqueue
+#define tmevtb_enqueue_reltim           _kernel_tmevtb_enqueue_reltim
 #define tmevtb_dequeue                          _kernel_tmevtb_dequeue
 #define check_adjtim                            _kernel_check_adjtim
 …
  */
 #define initialize_object                       _kernel_initialize_object
+#define call_inirtn                                     _kernel_call_inirtn
+#define call_terrtn                                     _kernel_call_terrtn
+#define tnum_inirtn                                     _kernel_tnum_inirtn
+#define inirtnb_table                           _kernel_inirtnb_table
+#define tnum_terrtn                                     _kernel_tnum_terrtn
+#define terrtnb_table                           _kernel_terrtnb_table
 #define tmax_tskid                                      _kernel_tmax_tskid
 #define tmax_stskid                                     _kernel_tmax_stskid
 …
 #define istk                                            _kernel_istk
 #define istkpt                                          _kernel_istkpt
+#define kmmsz                                           _kernel_kmmsz
+#define kmm                                                     _kernel_kmm
+#define mpksz                                           _kernel_mpksz
+#define mpk                                                     _kernel_mpk
+/*
+ *  tTraceLog.c
+ */
+#define log_dsp_enter                           _kernel_log_dsp_enter
+#define log_dsp_leave                           _kernel_log_dsp_leave
+#define log_inh_enter                           _kernel_log_inh_enter
+#define log_inh_leave                           _kernel_log_inh_leave
+#define log_exc_enter                           _kernel_log_exc_enter
+#define log_exc_leave                           _kernel_log_exc_leave

EcnlProtoTool/trunk/asp3_dcre/kernel/kernel_sym.def

-              r331
+              r429
+USE_EXTERNAL_ID,true,bool,defined(USE_EXTERNAL_ID)
+SIL_ENDIAN_BIG,true,bool,defined(SIL_ENDIAN_BIG)
+SIL_ENDIAN_LITTLE,true,bool,defined(SIL_ENDIAN_LITTLE)
+USE_EXTERNAL_ID,true,bool,defined(USE_EXTERNAL_ID),false
 TA_NULL
 TA_ACT
 …
 TMIN_CYCID,,signed
 TMIN_ALMID,,signed
 USE_TSKINICTXB,true,bool,defined(USE_TSKINICTXB)
 OMIT_INITIALIZE_INTERRUPT,true,bool,defined(OMIT_INITIALIZE_INTERRUPT)
 USE_INHINIB_TABLE,true,bool,defined(USE_INHINIB_TABLE)
 USE_INTINIB_TABLE,true,bool,defined(USE_INTINIB_TABLE)
 OMIT_INITIALIZE_EXCEPTION,true,bool,defined(OMIT_INITIALIZE_EXCEPTION)
 DEFAULT_ISTK,,,defined(DEFAULT_ISTK)
 TARGET_TSKATR,,,defined(TARGET_TSKATR),0
+USE_TSKINICTXB,true,bool,defined(USE_TSKINICTXB),false
+OMIT_INITIALIZE_INTERRUPT,true,bool,defined(OMIT_INITIALIZE_INTERRUPT),false
+USE_INHINIB_TABLE,true,bool,defined(USE_INHINIB_TABLE),false
+USE_INTINIB_TABLE,true,bool,defined(USE_INTINIB_TABLE),false
+OMIT_INITIALIZE_EXCEPTION,true,bool,defined(OMIT_INITIALIZE_EXCEPTION),false
+DEFAULT_ISTK,,intptr,defined(DEFAULT_ISTK)
+TARGET_TSKATR
 TARGET_INTATR,,,defined(TARGET_INTATR),0
 TARGET_INHATR,,,defined(TARGET_INHATR),0
 TARGET_ISRATR,,,defined(TARGET_ISRATR),0
+TARGET_ISRATR
 TARGET_EXCATR,,,defined(TARGET_EXCATR),0
 TARGET_MIN_STKSZ,,,defined(TARGET_MIN_STKSZ),1
+TARGET_MIN_STKSZ
 TARGET_MIN_ISTKSZ,,,defined(TARGET_MIN_ISTKSZ),1
 CHECK_STKSZ_ALIGN,,,defined(CHECK_STKSZ_ALIGN),1
 CHECK_INTPTR_ALIGN,,,defined(CHECK_INTPTR_ALIGN),1
 CHECK_INTPTR_NONNULL,true,bool,defined(CHECK_INTPTR_NONNULL)
+CHECK_INTPTR_NONNULL,true,bool,defined(CHECK_INTPTR_NONNULL),false
 CHECK_FUNC_ALIGN,,,defined(CHECK_FUNC_ALIGN),1
 CHECK_FUNC_NONNULL,true,bool,defined(CHECK_FUNC_NONNULL)
+CHECK_FUNC_NONNULL,true,bool,defined(CHECK_FUNC_NONNULL),false
 CHECK_STACK_ALIGN,,,defined(CHECK_STACK_ALIGN),1
 CHECK_STACK_NONNULL,true,bool,defined(CHECK_STACK_NONNULL)
+CHECK_STACK_NONNULL,true,bool,defined(CHECK_STACK_NONNULL),false
 CHECK_MPF_ALIGN,,,defined(CHECK_MPF_ALIGN),1
+CHECK_MPF_NONNULL,true,bool,defined(CHECK_MPF_NONNULL)
+CHECK_MPF_NONNULL,true,bool,defined(CHECK_MPF_NONNULL),false
+CHECK_MPK_ALIGN,,,defined(CHECK_MPK_ALIGN),1
+CHECK_MPK_NONNULL,true,bool,defined(CHECK_MPK_NONNULL),false
 CHECK_MB_ALIGN,,,defined(CHECK_MB_ALIGN),1
 sizeof_void_ptr,sizeof(void*)
 …
 offsetof_ISRINIB_isrpri,"offsetof(ISRINIB,isrpri)"
 sizeof_INHINIB,sizeof(INHINIB),,!defined(OMIT_INITIALIZE_INTERRUPT)
 offset_INHINIB_inhno,"offsetof(INHINIB,inhno)",,!defined(OMIT_INITIALIZE_INTERRUPT)
 offset_INHINIB_inhatr,"offsetof(INHINIB,inhatr)",,!defined(OMIT_INITIALIZE_INTERRUPT),,
 offset_INHINIB_int_entry,"offsetof(INHINIB,int_entry)",,!defined(OMIT_INITIALIZE_INTERRUPT),,
+offsetof_INHINIB_inhno,"offsetof(INHINIB,inhno)",,!defined(OMIT_INITIALIZE_INTERRUPT)
+offsetof_INHINIB_inhatr,"offsetof(INHINIB,inhatr)",,!defined(OMIT_INITIALIZE_INTERRUPT),,
+offsetof_INHINIB_int_entry,"offsetof(INHINIB,int_entry)",,!defined(OMIT_INITIALIZE_INTERRUPT),,
 sizeof_INTINIB,sizeof(INTINIB),,!defined(OMIT_INITIALIZE_INTERRUPT)
 offset_INTINIB_intno,"offsetof(INTINIB,intno)",,!defined(OMIT_INITIALIZE_INTERRUPT)
 offset_INTINIB_intatr,"offsetof(INTINIB,intatr)",,!defined(OMIT_INITIALIZE_INTERRUPT)
 offset_INTINIB_intpri,"offsetof(INTINIB,intpri)",,!defined(OMIT_INITIALIZE_INTERRUPT)
+offsetof_INTINIB_intno,"offsetof(INTINIB,intno)",,!defined(OMIT_INITIALIZE_INTERRUPT)
+offsetof_INTINIB_intatr,"offsetof(INTINIB,intatr)",,!defined(OMIT_INITIALIZE_INTERRUPT)
+offsetof_INTINIB_intpri,"offsetof(INTINIB,intpri)",,!defined(OMIT_INITIALIZE_INTERRUPT)
 sizeof_EXCINIB,sizeof(EXCINIB),,!defined(OMIT_INITIALIZE_EXCEPTION)
+offset_EXCINIB_excno,"offsetof(EXCINIB,excno)",,!defined(OMIT_INITIALIZE_EXCEPTION)
+offset_EXCINIB_excatr,"offsetof(EXCINIB,excatr)",,!defined(OMIT_INITIALIZE_EXCEPTION)
+offset_EXCINIB_exc_entry,"offsetof(EXCINIB,exc_entry)",,!defined(OMIT_INITIALIZE_EXCEPTION)
+offsetof_EXCINIB_excno,"offsetof(EXCINIB,excno)",,!defined(OMIT_INITIALIZE_EXCEPTION)
+offsetof_EXCINIB_excatr,"offsetof(EXCINIB,excatr)",,!defined(OMIT_INITIALIZE_EXCEPTION)
+offsetof_EXCINIB_exc_entry,"offsetof(EXCINIB,exc_entry)",,!defined(OMIT_INITIALIZE_EXCEPTION)
+sizeof_INIRTNB,sizeof(INIRTNB)
+offsetof_INIRTNB_inirtn,"offsetof(INIRTNB,inirtn)"
+offsetof_INIRTNB_exinf,"offsetof(INIRTNB,exinf)"
+sizeof_TERRTNB,sizeof(TERRTNB)
+offsetof_TERRTNB_terrtn,"offsetof(TERRTNB,terrtn)"
+offsetof_TERRTNB_exinf,"offsetof(TERRTNB,exinf)"

EcnlProtoTool/trunk/asp3_dcre/kernel/kernel_unrename.h

-              r321
+              r429
  */
 #undef kerflg
+#undef mpk_valid
 #undef exit_kernel
 #undef initialize_kmm
 #undef kernel_malloc
 #undef kernel_free
+#undef initialize_mempool
+#undef malloc_mempool
+#undef free_mempool
 /*
 …
 #undef set_hrt_event
 #undef tmevtb_register
 #undef tmevtb_enqueue
+#undef tmevtb_enqueue_reltim
 #undef tmevtb_dequeue
 #undef check_adjtim
 …
  */
 #undef initialize_object
+#undef call_inirtn
+#undef call_terrtn
+#undef tnum_inirtn
+#undef inirtnb_table
+#undef tnum_terrtn
+#undef terrtnb_table
 #undef tmax_tskid
 #undef tmax_stskid
 …
 #undef istk
 #undef istkpt
+#undef kmmsz
+#undef kmm
+#undef mpksz
+#undef mpk
+/*
+ *  tTraceLog.c
+ */
+#undef log_dsp_enter
+#undef log_dsp_leave
+#undef log_inh_enter
+#undef log_inh_leave
+#undef log_exc_enter
+#undef log_exc_leave

EcnlProtoTool/trunk/asp3_dcre/kernel/mempfix.c

-              r321
+              r429
  *  Copyright (C) 2000-2003 by Embedded and Real-Time Systems Laboratory
  *                              Toyohashi Univ. of Technology, JAPAN
  *  Copyright (C) 2005-2016 by Embedded and Real-Time Systems Laboratory
+ *  Copyright (C) 2005-2018 by Embedded and Real-Time Systems Laboratory
  *              Graduate School of Information Science, Nagoya Univ., JAPAN
+ *
 …
         p_mpfmb = pk_cmpf->mpfmb;
         CHECK_RSATR(mpfatr, TA_TPRI);
+        CHECK_VALIDATR(mpfatr, TA_TPRI);
         CHECK_PAR(blkcnt != 0);
         CHECK_PAR(blksz != 0);
 …
         else {
                 if (mpf == NULL) {
                         mpf = kernel_malloc(ROUND_MPF_T(blksz) * blkcnt);
+                        mpf = malloc_mpk(ROUND_MPF_T(blksz) * blkcnt);
                         mpfatr |= TA_MEMALLOC;
+                }
 …
                 else {
                         if (p_mpfmb == NULL) {
                                 p_mpfmb = kernel_malloc(sizeof(MPFMB) * blkcnt);
+                                p_mpfmb = malloc_mpk(sizeof(MPFMB) * blkcnt);
                                 mpfatr |= TA_MBALLOC;
+                        }
                         if (p_mpfmb == NULL) {
                                 if (mpf == NULL) {
                                         kernel_free(mpf);
+                                if (pk_cmpf->mpf == NULL) {
+                                        free_mpk(mpf);
+                                }
                                 ercd = E_NOMEM;
 …
                 p_mpfinib = (MPFINIB *)(p_mpfcb->p_mpfinib);
                 if ((p_mpfinib->mpfatr & TA_MEMALLOC) != 0U) {
                         kernel_free(p_mpfinib->mpf);
+                        free_mpk(p_mpfinib->mpf);
+                }
                 if ((p_mpfinib->mpfatr & TA_MBALLOC) != 0U) {
                         kernel_free(p_mpfinib->p_mpfmb);
+                        free_mpk(p_mpfinib->p_mpfmb);
+                }
                 p_mpfinib->mpfatr = TA_NOEXS;
 …
 get_mpf(ID mpfid, void **p_blk)
+{
         MPFCB   *p_mpfcb;
         WINFO_MPF winfo_mpf;
         ER              ercd;
+        MPFCB           *p_mpfcb;
+        WINFO_MPF       winfo_mpf;
+        ER                      ercd;
         LOG_GET_MPF_ENTER(mpfid, p_blk);
 …
+        }
         else {
                 p_runtsk->tstat = TS_WAITING_MPF;
                 wobj_make_wait((WOBJCB *) p_mpfcb, (WINFO_WOBJ *) &winfo_mpf);
+                wobj_make_wait((WOBJCB *) p_mpfcb, TS_WAITING_MPF,
+                                                                                        (WINFO_WOBJ *) &winfo_mpf);
                 dispatch();
                 ercd = winfo_mpf.winfo.wercd;
 …
 tget_mpf(ID mpfid, void **p_blk, TMO tmout)
+{
         MPFCB   *p_mpfcb;
         WINFO_MPF winfo_mpf;
         TMEVTB  tmevtb;
         ER              ercd;
+        MPFCB           *p_mpfcb;
+        WINFO_MPF       winfo_mpf;
+        TMEVTB          tmevtb;
+        ER                      ercd;
         LOG_TGET_MPF_ENTER(mpfid, p_blk, tmout);
 …
+        }
         else {
+                p_runtsk->tstat = TS_WAITING_MPF;
+                wobj_make_wait_tmout((WOBJCB *) p_mpfcb, (WINFO_WOBJ *) &winfo_mpf,
+                                                                                                                &tmevtb, tmout);
+                wobj_make_wait_tmout((WOBJCB *) p_mpfcb, TS_WAITING_MPF,
+                                                                (WINFO_WOBJ *) &winfo_mpf, &tmevtb, tmout);
                 dispatch();
                 ercd = winfo_mpf.winfo.wercd;

EcnlProtoTool/trunk/asp3_dcre/kernel/mempfix.trb

-              r321
+              r429
+#
 #   Copyright (C) 2015 by FUJI SOFT INCORPORATED, JAPAN
 #   Copyright (C) 2015,2016 by Embedded and Real-Time Systems Laboratory
+#   Copyright (C) 2015-2019 by Embedded and Real-Time Systems Laboratory
 #               Graduate School of Information Science, Nagoya Univ., JAPAN
+#
 …
     params[:mpfmb] ||= "NULL"
     # mpfatrが無効の場合（E_RSATR）［NGKI2225］
+    # mpfatrが無効の場合（E_RSATR）［NGKI2225］［NGKI2218］
     #（TA_TPRI以外のビットがセットされている場合）
     if (params[:mpfatr] & ~($TA_TPRI)) != 0

EcnlProtoTool/trunk/asp3_dcre/kernel/mutex.c

-              r321
+              r429
  *      Advanced Standard Profile Kernel
+ *
  *  Copyright (C) 2005-2016 by Embedded and Real-Time Systems Laboratory
+ *  Copyright (C) 2005-2018 by Embedded and Real-Time Systems Laboratory
  *              Graduate School of Information Science, Nagoya Univ., JAPAN
+ *
 …
+        }
         else {
                 CHECK_RSATR(mtxatr, TA_TPRI);                   /*［NGKI2025］*/
+                CHECK_VALIDATR(mtxatr, TA_TPRI);                /*［NGKI2025］*/
+        }
 …
 loc_mtx(ID mtxid)
+{
         MTXCB   *p_mtxcb;
         WINFO_MTX winfo_mtx;
         ER              ercd;
+        MTXCB           *p_mtxcb;
+        WINFO_MTX       winfo_mtx;
+        ER                      ercd;
         LOG_LOC_MTX_ENTER(mtxid);
 …
+        }
         else {
                 p_runtsk->tstat = TS_WAITING_MTX;
                 wobj_make_wait((WOBJCB *) p_mtxcb, (WINFO_WOBJ *) &winfo_mtx);
+                wobj_make_wait((WOBJCB *) p_mtxcb, TS_WAITING_MTX,
+                                                                                        (WINFO_WOBJ *) &winfo_mtx);
                 dispatch();
                 ercd = winfo_mtx.winfo.wercd;
 …
 tloc_mtx(ID mtxid, TMO tmout)
+{
         MTXCB   *p_mtxcb;
         WINFO_MTX winfo_mtx;
         TMEVTB  tmevtb;
         ER              ercd;
+        MTXCB           *p_mtxcb;
+        WINFO_MTX       winfo_mtx;
+        TMEVTB          tmevtb;
+        ER                      ercd;
         LOG_TLOC_MTX_ENTER(mtxid, tmout);
 …
+        }
         else {
+                p_runtsk->tstat = TS_WAITING_MTX;
+                wobj_make_wait_tmout((WOBJCB *) p_mtxcb, (WINFO_WOBJ *) &winfo_mtx,
+                                                                                                                &tmevtb, tmout);
+                wobj_make_wait_tmout((WOBJCB *) p_mtxcb, TS_WAITING_MTX,
+                                                                (WINFO_WOBJ *) &winfo_mtx, &tmevtb, tmout);
                 dispatch();
                 ercd = winfo_mtx.winfo.wercd;

EcnlProtoTool/trunk/asp3_dcre/kernel/mutex.trb

-              r321
+              r429
+#
 #   Copyright (C) 2015 by FUJI SOFT INCORPORATED, JAPAN
 #   Copyright (C) 2015,2016 by Embedded and Real-Time Systems Laboratory
+#   Copyright (C) 2015-2019 by Embedded and Real-Time Systems Laboratory
 #               Graduate School of Information Science, Nagoya Univ., JAPAN
+#
 …
   def prepare(key, params)
     # mtxatrが無効の場合（E_RSATR）［NGKI2025］
     # （TA_NULL，TA_TPRI，TA_CEILINGのいずれでもない場合）
+    # mtxatrが無効の場合（E_RSATR）［NGKI2025］［NGKI2010］
+    #（TA_NULL，TA_TPRI，TA_CEILINGのいずれでもない場合）
     if !(params[:mtxatr] == $TA_NULL || params[:mtxatr] == $TA_TPRI \
                                                                                 || params[:mtxatr] == $TA_CEILING)
 …
     if params[:mtxatr] == $TA_CEILING
       # 優先度上限ミューテックスの場合
       # ceilpriが未指定の場合はエラーとする
       if params[:ceilpri].nil?
+      # ceilpriの記述が省略されている場合［NGKI2035］
+      if !params.has_key?(:ceilpri)
         error_api(params, "ceilpri must be specified in %apiname of %mtxid")
       # (TMIN_TPRI <= ceilpri && ceilpri <= TMAX_TPRI)でない場合（E_PAR）
       # ［NGKI2037］
+      # ceilpriが有効範囲外の場合（E_PAR）［NGKI2037］
+      #（TMIN_TPRI <= ceilpri && ceilpri <= TMAX_TPRIでない場合）
       elsif !($TMIN_TPRI <= params[:ceilpri] && params[:ceilpri] <= $TMAX_TPRI)
         error_illegal_id("E_PAR", params, :ceilpri, :mtxid)
 …
     else
       # 優先度上限ミューテックスでない場合
       # ceilpriが指定されている場合は警告メッセージを出す
       if !params[:ceilpri].nil?
+      # ceilpriが記述されている場合は警告メッセージを出す
+      if params.has_key?(:ceilpri)
         warning_api(params, "%%ceilpri is ignored in %apiname of %mtxid")
       end

EcnlProtoTool/trunk/asp3_dcre/kernel/pridataq.c

-              r321
+              r429
  *  Copyright (C) 2000-2003 by Embedded and Real-Time Systems Laboratory
  *                              Toyohashi Univ. of Technology, JAPAN
  *  Copyright (C) 2005-2016 by Embedded and Real-Time Systems Laboratory
+ *  Copyright (C) 2005-2018 by Embedded and Real-Time Systems Laboratory
  *              Graduate School of Information Science, Nagoya Univ., JAPAN
+ *
 …
         p_pdqmb = pk_cpdq->pdqmb;
         CHECK_RSATR(pdqatr, TA_TPRI);
+        CHECK_VALIDATR(pdqatr, TA_TPRI);
         CHECK_PAR(VALID_DPRI(maxdpri));
+        if (p_pdqmb != NULL) {
+                CHECK_PAR(MB_ALIGN(p_pdqmb));
+        }
         lock_cpu();
 …
         else {
                 if (pdqcnt != 0 && p_pdqmb == NULL) {
                         p_pdqmb = kernel_malloc(sizeof(PDQMB) * pdqcnt);
+                        p_pdqmb = malloc_mpk(sizeof(PDQMB) * pdqcnt);
                         pdqatr |= TA_MBALLOC;
+                }
 …
                 p_pdqinib = (PDQINIB *)(p_pdqcb->p_pdqinib);
                 if ((p_pdqinib->pdqatr & TA_MBALLOC) != 0U) {
                         kernel_free(p_pdqinib->p_pdqmb);
+                        free_mpk(p_pdqinib->p_pdqmb);
+                }
                 p_pdqinib->pdqatr = TA_NOEXS;
 …
 snd_pdq(ID pdqid, intptr_t data, PRI datapri)
+{
         PDQCB   *p_pdqcb;
         WINFO_SPDQ winfo_spdq;
         ER              ercd;
+        PDQCB           *p_pdqcb;
+        WINFO_SPDQ      winfo_spdq;
+        ER                      ercd;
         LOG_SND_PDQ_ENTER(pdqid, data, datapri);
 …
                 winfo_spdq.data = data;
                 winfo_spdq.datapri = datapri;
                 p_runtsk->tstat = TS_WAITING_SPDQ;
                 wobj_make_wait((WOBJCB *) p_pdqcb, (WINFO_WOBJ *) &winfo_spdq);
+                wobj_make_wait((WOBJCB *) p_pdqcb, TS_WAITING_SPDQ,
+                                                                                        (WINFO_WOBJ *) &winfo_spdq);
                 dispatch();
                 ercd = winfo_spdq.winfo.wercd;
 …
+                        }
                         else {
                                 request_dispatch();
+                                request_dispatch_retint();
+                        }
+                }
 …
 tsnd_pdq(ID pdqid, intptr_t data, PRI datapri, TMO tmout)
+{
         PDQCB   *p_pdqcb;
         WINFO_SPDQ winfo_spdq;
         TMEVTB  tmevtb;
         ER              ercd;
+        PDQCB           *p_pdqcb;
+        WINFO_SPDQ      winfo_spdq;
+        TMEVTB          tmevtb;
+        ER                      ercd;
         LOG_TSND_PDQ_ENTER(pdqid, data, datapri, tmout);
 …
                 winfo_spdq.data = data;
                 winfo_spdq.datapri = datapri;
+                p_runtsk->tstat = TS_WAITING_SPDQ;
+                wobj_make_wait_tmout((WOBJCB *) p_pdqcb, (WINFO_WOBJ *) &winfo_spdq,
+                                                                                                                &tmevtb, tmout);
+                wobj_make_wait_tmout((WOBJCB *) p_pdqcb, TS_WAITING_SPDQ,
+                                                                (WINFO_WOBJ *) &winfo_spdq, &tmevtb, tmout);
                 dispatch();
                 ercd = winfo_spdq.winfo.wercd;
 …
 rcv_pdq(ID pdqid, intptr_t *p_data, PRI *p_datapri)
+{
         PDQCB   *p_pdqcb;
         WINFO_RPDQ winfo_rpdq;
         ER              ercd;
+        PDQCB           *p_pdqcb;
+        WINFO_RPDQ      winfo_rpdq;
+        ER                      ercd;
         LOG_RCV_PDQ_ENTER(pdqid, p_data, p_datapri);
 …
+        }
         else {
+                p_runtsk->tstat = TS_WAITING_RPDQ;
+                make_wait(&(winfo_rpdq.winfo));
+                make_wait(TS_WAITING_RPDQ, &(winfo_rpdq.winfo));
                 queue_insert_prev(&(p_pdqcb->rwait_queue), &(p_runtsk->task_queue));
                 winfo_rpdq.p_pdqcb = p_pdqcb;
 …
 trcv_pdq(ID pdqid, intptr_t *p_data, PRI *p_datapri, TMO tmout)
+{
         PDQCB   *p_pdqcb;
         WINFO_RPDQ winfo_rpdq;
         TMEVTB  tmevtb;
         ER              ercd;
+        PDQCB           *p_pdqcb;
+        WINFO_RPDQ      winfo_rpdq;
+        TMEVTB          tmevtb;
+        ER                      ercd;
         LOG_TRCV_PDQ_ENTER(pdqid, p_data, p_datapri, tmout);
 …
+        }
         else {
+                p_runtsk->tstat = TS_WAITING_RPDQ;
+                make_wait_tmout(&(winfo_rpdq.winfo), &tmevtb, tmout);
+                make_wait_tmout(TS_WAITING_RPDQ, &(winfo_rpdq.winfo), &tmevtb, tmout);
                 queue_insert_prev(&(p_pdqcb->rwait_queue), &(p_runtsk->task_queue));
                 winfo_rpdq.p_pdqcb = p_pdqcb;

EcnlProtoTool/trunk/asp3_dcre/kernel/pridataq.trb

-              r321
+              r429
+#
 #   Copyright (C) 2015 by FUJI SOFT INCORPORATED, JAPAN
 #   Copyright (C) 2015,2016 by Embedded and Real-Time Systems Laboratory
+#   Copyright (C) 2015-2019 by Embedded and Real-Time Systems Laboratory
 #               Graduate School of Information Science, Nagoya Univ., JAPAN
+#
 …
     params[:pdqmb] ||= "NULL"
     # pdqatrが無効の場合（E_RSATR）［NGKI1804］
+    # pdqatrが無効の場合（E_RSATR）［NGKI1804］［NGKI1795］
     #（TA_TPRI以外のビットがセットされている場合）
     if (params[:pdqatr] & ~($TA_TPRI)) != 0
 …
     end
+    # (TMIN_DPRI <= maxdpri && maxdpri <= TMAX_DPRI)でない場合（E_PAR）
     # ［NGKI1819］
+        # maxdpriが有効範囲外の場合（E_PAR）［NGKI1819］
+    #（TMIN_DPRI <= maxdpri && maxdpri <= TMAX_DPRIでない場合）
     if !($TMIN_DPRI <= params[:maxdpri] && params[:maxdpri] <= $TMAX_DPRI)
       error_illegal_id("E_PAR", params, :maxdpri, :pdqid)

EcnlProtoTool/trunk/asp3_dcre/kernel/semaphore.c

-              r321
+              r429
  *  Copyright (C) 2000-2003 by Embedded and Real-Time Systems Laboratory
  *                              Toyohashi Univ. of Technology, JAPAN
  *  Copyright (C) 2005-2016 by Embedded and Real-Time Systems Laboratory
+ *  Copyright (C) 2005-2018 by Embedded and Real-Time Systems Laboratory
  *              Graduate School of Information Science, Nagoya Univ., JAPAN
+ *
 …
         maxsem = pk_csem->maxsem;
         CHECK_RSATR(sematr, TA_TPRI);
+        CHECK_VALIDATR(sematr, TA_TPRI);
         CHECK_PAR(0 <= isemcnt && isemcnt <= maxsem);
         CHECK_PAR(1 <= maxsem && maxsem <= TMAX_MAXSEM);
 …
+                        }
                         else {
                                 request_dispatch();
+                                request_dispatch_retint();
+                        }
+                }
 …
 wai_sem(ID semid)
+{
         SEMCB   *p_semcb;
         WINFO_SEM winfo_sem;
         ER              ercd;
+        SEMCB           *p_semcb;
+        WINFO_SEM       winfo_sem;
+        ER                      ercd;
         LOG_WAI_SEM_ENTER(semid);
 …
+        }
         else {
                 p_runtsk->tstat = TS_WAITING_SEM;
                 wobj_make_wait((WOBJCB *) p_semcb, (WINFO_WOBJ *) &winfo_sem);
+                wobj_make_wait((WOBJCB *) p_semcb, TS_WAITING_SEM,
+                                                                                        (WINFO_WOBJ *) &winfo_sem);
                 dispatch();
                 ercd = winfo_sem.winfo.wercd;
 …
 twai_sem(ID semid, TMO tmout)
+{
         SEMCB   *p_semcb;
         WINFO_SEM winfo_sem;
         TMEVTB  tmevtb;
         ER              ercd;
+        SEMCB           *p_semcb;
+        WINFO_SEM       winfo_sem;
+        TMEVTB          tmevtb;
+        ER                      ercd;
         LOG_TWAI_SEM_ENTER(semid, tmout);
 …
+        }
         else {
+                p_runtsk->tstat = TS_WAITING_SEM;
+                wobj_make_wait_tmout((WOBJCB *) p_semcb, (WINFO_WOBJ *) &winfo_sem,
+                                                                                                                &tmevtb, tmout);
+                wobj_make_wait_tmout((WOBJCB *) p_semcb, TS_WAITING_SEM,
+                                                                (WINFO_WOBJ *) &winfo_sem, &tmevtb, tmout);
                 dispatch();
                 ercd = winfo_sem.winfo.wercd;

EcnlProtoTool/trunk/asp3_dcre/kernel/semaphore.trb

-              r321
+              r429
+#
 #   Copyright (C) 2015 by FUJI SOFT INCORPORATED, JAPAN
 #   Copyright (C) 2015,2016 by Embedded and Real-Time Systems Laboratory
+#   Copyright (C) 2015-2019 by Embedded and Real-Time Systems Laboratory
 #               Graduate School of Information Science, Nagoya Univ., JAPAN
+#
 …
   def prepare(key, params)
     # sematrが無効の場合（E_RSATR）［NGKI1456］
+    # sematrが無効の場合（E_RSATR）［NGKI1456］［NGKI1448］
     #（TA_TPRI以外のビットがセットされている場合）
     if (params[:sematr] & ~($TA_TPRI)) != 0
 …
     end
+    # (1 <= maxsem && maxsem <= TMAX_MAXSEM)でない場合（E_PAR）［NGKI1468］
+    # maxsemが有効範囲外の場合（E_PAR）［NGKI1468］
+    #（1 <= maxsem && maxsem <= TMAX_MAXSEMでない場合）
     if !(1 <= params[:maxsem] && params[:maxsem] <= $TMAX_MAXSEM)
       error_illegal_id("E_PAR", params, :maxsem, :semid)
     end
+    # (0 <= isemcnt && isemcnt <= maxsem)でない場合（E_PAR）［NGKI1466］
+    # isemcntが有効範囲外の場合（E_PAR）［NGKI1466］
+    #（0 <= isemcnt && isemcnt <= maxsemでない場合）
     if !(0 <= params[:isemcnt] && params[:isemcnt] <= params[:maxsem])
       error_wrong_id("E_PAR", params, :isemcnt, :semid, "too large")

EcnlProtoTool/trunk/asp3_dcre/kernel/startup.c

-              r321
+              r429
  *  Copyright (C) 2000-2003 by Embedded and Real-Time Systems Laboratory
  *                              Toyohashi Univ. of Technology, JAPAN
  *  Copyright (C) 2005-2016 by Embedded and Real-Time Systems Laboratory
+ *  Copyright (C) 2005-2018 by Embedded and Real-Time Systems Laboratory
  *              Graduate School of Information Science, Nagoya Univ., JAPAN
+ *
 …
 /*
+ *  カーネルメモリプール領域有効フラグ
+ */
+bool_t  mpk_valid;
+/*
  *  カーネルの起動
  */
 …
 sta_ker(void)
+{
+        uint_t  i;
         /*
          *  TECSの初期化
 …
          *  する必要がある．
          */
+        initialize_kmm();
+        if (mpk != NULL) {
+                mpk_valid = initialize_mempool(mpk, mpksz);
+        }
+        else {
+                mpk_valid = false;
+        }
         initialize_tmevt();                                                             /*［ASPD1061］*/
         initialize_object();
 …
          *  初期化ルーチンの実行
          */
+        call_inirtn();
+        for (i = 0; i < tnum_inirtn; i++) {
+                (*(inirtnb_table[i].inirtn))(inirtnb_table[i].exinf);
+        }
         /*
 …
 exit_kernel(void)
+{
+        uint_t  i;
         /*
          *  終了処理ルーチンの実行
          */
+        call_terrtn();
+        for (i = 0; i < tnum_terrtn; i++) {
+                (*(terrtnb_table[i].terrtn))(terrtnb_table[i].exinf);
+        }
         /*
 …
 /*
  *  カーネルの割り付けるメモリ領域の管理
+ *  デフォルトのメモリプール管理機能
+ *
+ *  メモリ領域を先頭から順に割り当て，解放されたメモリ領域を再利用しな
+ *  いメモリ管理モジュール．
+ *  メモリプール領域の先頭から順に割り当てを行い，すべてのメモリ領域が
+ *  解放されるまで解放されたメモリ領域を再利用しないメモリプール管理機
+ *  能．
  */
 #ifdef TOPPERS_kermem
+#ifndef OMIT_KMM_ALLOCONLY
+static void     *kmm_brk;
+void
+initialize_kmm(void)
+{
+        kmm_brk = ((char *) kmm) + kmmsz;
+#ifndef OMIT_MEMPOOL_DEFAULT
+typedef struct {
+        void    *brk;           /* メモリプール領域の未使用領域の先頭番地 */
+        void    *limit;         /* メモリプール領域の上限 */
+        uint_t  count;          /* 割り当てたメモリ領域の数 */
+} MEMPOOLCB;
+bool_t
+initialize_mempool(MB_T *mempool, size_t size)
+{
+        MEMPOOLCB       *p_mempoolcb = ((MEMPOOLCB *) mempool);
+        if (size >= sizeof(MEMPOOLCB)) {
+                p_mempoolcb->brk = ((char *) mempool) + sizeof(MEMPOOLCB);
+                p_mempoolcb->limit = ((char *) mempool) + size;
+                p_mempoolcb->count = 0;
+                return(true);
+        }
+        else {
+                return(false);
+        }
+}
 void *
+kernel_malloc(size_t size)
+{
+        if (((char *) kmm_brk) - ((char *) kmm) >= size) {
+                kmm_brk = ((char *) kmm_brk) - size;
+                return(kmm_brk);
+malloc_mempool(MB_T *mempool, size_t size)
+{
+        MEMPOOLCB       *p_mempoolcb = ((MEMPOOLCB *) mempool);
+        void            *brk;
+        brk = ((MEMPOOLCB *) mempool)->brk;
+        if (((char *)(p_mempoolcb->limit)) - ((char *) brk) >= size) {
+                p_mempoolcb->brk = ((char *) brk) + size;
+                p_mempoolcb->count += 1;
+                return(brk);
+        }
         else {
 …
 void
+kernel_free(void *ptr)
+{
+}
+#endif /* OMIT_KMM_ALLOCONLY */
+free_mempool(MB_T *mempool, void *ptr)
+{
+        MEMPOOLCB       *p_mempoolcb = ((MEMPOOLCB *) mempool);
+        p_mempoolcb->count -= 1;
+        if (p_mempoolcb->count == 0) {
+                p_mempoolcb->brk = ((char *) mempool) + sizeof(MEMPOOLCB);
+        }
+}
+#endif /* OMIT_MEMPOOL_DEFAULT */
 #endif /* TOPPERS_kermem */

EcnlProtoTool/trunk/asp3_dcre/kernel/sys_manage.c

-              r321
+              r429
  *  Copyright (C) 2000-2003 by Embedded and Real-Time Systems Laboratory
  *                              Toyohashi Univ. of Technology, JAPAN
  *  Copyright (C) 2005-2015 by Embedded and Real-Time Systems Laboratory
+ *  Copyright (C) 2005-2019 by Embedded and Real-Time Systems Laboratory
  *              Graduate School of Information Science, Nagoya Univ., JAPAN
+ *
 …
+                }
                 else {
                         request_dispatch();
+                        request_dispatch_retint();
+                }
+        }
 …
 get_tid(ID *p_tskid)
+{
+        bool_t lock;
         ER              ercd;
         LOG_GET_TID_ENTER(p_tskid);
+        CHECK_UNL();                                                            /*［NGKI2707］*/
+        lock_cpu();
+        //CHECK_UNL();                                                          /*［NGKI2707］*/
+        lock = sense_lock();
+        if (!lock)
+                lock_cpu();
         *p_tskid = (p_runtsk == NULL) ? TSK_NONE : TSKID(p_runtsk);
+        ercd = E_OK;
+        unlock_cpu();
+        ercd = E_OK;                                                            /*［NGKI2710］［NGKI2709］*/
+        if (!lock)
+                unlock_cpu();
   error_exit:
 …
         enadsp = true;
         if (t_get_ipm() == TIPM_ENAALL) {
+                dspflg = true;
+                p_schedtsk = search_schedtsk();
+                set_dspflg();
                 if (p_runtsk->raster && p_runtsk->enater) {
                         task_terminate(p_runtsk);

EcnlProtoTool/trunk/asp3_dcre/kernel/task.c

-              r321
+              r429
  *  Copyright (C) 2000-2003 by Embedded and Real-Time Systems Laboratory
  *                              Toyohashi Univ. of Technology, JAPAN
  *  Copyright (C) 2005-2014 by Embedded and Real-Time Systems Laboratory
+ *  Copyright (C) 2005-2017 by Embedded and Real-Time Systems Laboratory
  *              Graduate School of Information Science, Nagoya Univ., JAPAN
+ *
 …
                 p_tcb->actque = false;
                 make_dormant(p_tcb);
+                p_tcb->p_lastmtx = NULL;
                 if ((p_tcb->p_tinib->tskatr & TA_ACT) != 0U) {
                         make_active(p_tcb);
 …
+ *
  *  実行すべきタスクを更新するのは，実行できるタスクがなかった場合と，
+ *  p_tcbの優先度が実行すべきタスクの優先度よりも高い場合である．
+ *  p_tcbで指定されるタスクの優先度が実行すべきタスクの優先度よりも高
+ *  い場合である．
  */
 #ifdef TOPPERS_tskrun
 …
  *  実行できる状態から他の状態への遷移
+ *
+ *  実行すべきタスクを更新するのは，p_tcbが実行すべきタスクであった場合
+ *  である．p_tcbと同じ優先度のタスクが他にある場合は，p_tcbの次のタス
+ *  クが実行すべきタスクになる．そうでない場合は，レディキューをサーチ
+ *  する必要がある．
+ *  実行すべきタスクを更新するのは，p_tcbで指定されるタスクが実行すべ
+ *  きタスクであった場合である．p_tcbで指定されるタスクと同じ優先度の
+ *  タスクが他にある場合は，そのタスクの次のタスクが実行すべきタスクに
+ *  なる．そうでない場合は，レディキューをサーチする必要がある．
+ *
+ *  自タスクに対してこの関数が呼ばれるのは，タスクディスパッチ可能状態
+ *  に限られる．またこの関数は，非タスクコンテキストから呼ばれることは
+ *  ないため，p_runtskとp_schedtskは必ず一致している．そのため，p_tcb
+ *  とp_schedtskが一致するときは，必ずタスクディスパッチ可能状態である．
  */
 #ifdef TOPPERS_tsknrun
 …
  *  タスクの優先度の変更
+ *
+ *  タスクが実行できる状態の場合には，レディキューの中での位置を変更す
+ *  る．オブジェクトの待ちキューの中で待ち状態になっている場合には，待
+ *  ちキューの中での位置を変更する．
+ *
+ *  実行すべきタスクを更新するのは，(1) p_tcbが実行すべきタスクであって，
+ *  その優先度を下げた場合，(2) p_tcbが実行すべきタスクではなく，変更後
+ *  の優先度が実行すべきタスクの優先度よりも高い場合である．(1)の場合に
+ *  は，レディキューをサーチする必要がある．
+ *  p_tcbで指定されるタスクが実行できる状態の場合には，レディキューの
+ *  中での位置を変更する．オブジェクトの待ちキューの中で待ち状態になっ
+ *  ている場合には，待ちキューの中での位置を変更する．
+ *
+ *  実行すべきタスクを更新するのは，(1) p_tcbで指定されるタスクが実行
+ *  すべきタスクであった場合には，優先度を下げた（または優先度が変わら
+ *  なかった）時，(2) p_tcbで指定されるタスクが実行すべきタスクでなかっ
+ *  た場合には，変更後の優先度が実行すべきタスクの優先度よりも高いか同
+ *  じ時（同じ場合に更新が必要になるのは，実際には，mtxmodeがtrueの場
+ *  合のみ）である．(1)の場合には，レディキューをサーチする必要がある．
  */
 #ifdef TOPPERS_tskpri
 …
+                        }
                         else {
+                                if (mtxmode ? newpri <= p_schedtsk->priority
+                                                        : newpri < p_schedtsk->priority) {
+                                        p_schedtsk = p_tcb;
+                                if (newpri <= p_schedtsk->priority) {
+                                        p_schedtsk = (TCB *)(ready_queue[newpri].p_next);
+                                }
+                        }

EcnlProtoTool/trunk/asp3_dcre/kernel/task.h

-              r321
+              r429
  *  Copyright (C) 2000-2003 by Embedded and Real-Time Systems Laboratory
  *                              Toyohashi Univ. of Technology, JAPAN
  *  Copyright (C) 2005-2015 by Embedded and Real-Time Systems Laboratory
+ *  Copyright (C) 2005-2017 by Embedded and Real-Time Systems Laboratory
  *              Graduate School of Information Science, Nagoya Univ., JAPAN
+ *
 …
  *  が，実行効率が悪くなるために採用していない．他のオブジェクトについ
  *  ても同様に扱う．
+ *
- *  タスク初期化ブロックには，DEF_TEXで定義されるタスク例外処理ルーチ
- *  ンに関する情報も含む．
  */
 typedef struct task_initialization_block {
 …
         BIT_FIELD_UINT  tstat : 8;              /* タスク状態（内部表現）*/
         BIT_FIELD_UINT  bpriority : 8;  /* ベース優先度（内部表現）*/
         BIT_FIELD_UINT  priority : 8    /* 現在の優先度（内部表現）*/;
+        BIT_FIELD_UINT  priority : 8;   /* 現在の優先度（内部表現）*/
 #endif /* UINT8_MAX */
         BIT_FIELD_BOOL  actque : 1;             /* 起動要求キューイング */
 …
  *  実行できる状態への遷移
+ *
+ *  p_tcbで指定されるタスクをレディキューに挿入する．レディキューに挿入
+ *  したタスクの優先度が，実行すべきタスクの優先度よりも高い場合は，実
+ *  行すべきタスクを更新する．
+ *  p_tcbで指定されるタスクをレディキューに挿入する．また，必要な場合
+ *  には，実行すべきタスクを更新する．
  */
 extern void     make_runnable(TCB *p_tcb);
 …
 /*
+ *  タスクディスパッチ可能状態への遷移
+ *
+ *  タスクディスパッチ可能状態であることを示すフラグ（dspflg）をtrueに
+ *  し，実行すべきタスクを更新する．
+ */
+Inline void
+set_dspflg(void)
+{
+        dspflg = true;
+        p_schedtsk = search_schedtsk();
+}
+/*
  *  休止状態への遷移
+ *
 …
  *  必要な場合には，実行すべきタスクを更新する．
+ *
+ *  p_tcbで指定されるタスクの優先順位は，優先度が同じタスクの中で，
+ *  mtxmodeがfalseの時は最低，mtxmodeがtrueの時は最高とする．
+ *  p_tcbで指定されるタスクが実行できる状態である場合，その優先順位は，
+ *  優先度が同じタスクの中で，mtxmodeがfalseの時は最低，mtxmodeがtrue
+ *  の時は最高とする．
  */
 extern void     change_priority(TCB *p_tcb, uint_t newpri, bool_t mtxmode);
 …
  *  レディキューの回転
+ *
  *  レディキュー中の，p_queueで指定されるタスクキューを回転させる．また，
  *  必要な場合には，実行すべきタスクを更新する．
+ *  レディキュー中の，p_queueで指定されるタスクキューを回転させる．ま
+ *  た，必要な場合には，実行すべきタスクを更新する．
  */
 extern void     rotate_ready_queue(QUEUE *p_queue);

EcnlProtoTool/trunk/asp3_dcre/kernel/task.trb

-              r321
+              r429
+#
 #   Copyright (C) 2015 by FUJI SOFT INCORPORATED, JAPAN
 #   Copyright (C) 2015,2016 by Embedded and Real-Time Systems Laboratory
+#   Copyright (C) 2015-2019 by Embedded and Real-Time Systems Laboratory
 #               Graduate School of Information Science, Nagoya Univ., JAPAN
+#
 …
     params[:stk] ||= "NULL"
+    # tskatrが無効の場合（E_RSATR）［NGKI1028］
+    # tskatrが無効の場合（E_RSATR）［NGKI1028］［NGKI3526］［ASPS0009］
+    # ［NGKI1016］
     #（TA_ACT，TA_NOACTQUE，TARGET_TSKATR以外のビットがセットされている場合）
     if (params[:tskatr] & ~($TA_ACT|$TA_NOACTQUE|$TARGET_TSKATR)) != 0
 …
     end
+    # (TMIN_TPRI <= itskpri && itskpri <= TMAX_TPRI)でない場合［NGKI1034］
+    # itskpriが有効範囲外の場合（E_PAR）［NGKI1034］
+    #（TMIN_TPRI <= itskpri && itskpri <= TMAX_TPRIでない場合）
     if !($TMIN_TPRI <= params[:itskpri] && params[:itskpri] <= $TMAX_TPRI)
       error_illegal_id("E_PAR", params, :itskpri, :tskid)
 …
     # stkszがターゲット定義の最小値（TARGET_MIN_STKSZ，未定義の場合は1）
     # よりも小さい場合［NGKI1042］
+    # よりも小さい場合（E_PAR）［NGKI1042］
     if params[:stksz] < $TARGET_MIN_STKSZ
       error_wrong_id("E_PAR", params, :stksz, :tskid, "too small")
 …
       params[:tinib_stk] = stkName
     else
       # stkszがスタック領域のサイズとして正しくない場合［NGKI1056］
+      # stkszがターゲット定義の制約に合致しない場合（E_PAR）［NGKI1056］
       if (params[:stksz] & ($CHECK_STKSZ_ALIGN - 1)) != 0
         error_wrong_id("E_PAR", params, :stksz, :tskid, "not aligned")
 …
       params[:tinib_stksz] = params[:stksz]
       params[:tinib_stk] = "(void *)(#{params[:stk]})"
+    end
+    # ターゲット依存の処理（ターゲット依存のエラーチェックを含む）
+    if defined? TargetTaskPrepare()
+      TargetTaskPrepare(key, params)
     end
   end
 …
 end
+# タスクが1つも登録されていない場合［NGKI0033］
+if $cfgData[:CRE_TSK].size() == 0
+  error("no task is registered")
+end
+#
 #  タスク管理に関する情報の生成
+#
 $kernelCfgC.comment_header("Task Management Functions")
-if $cfgData[:CRE_TSK].size() == 0
-  error("no task is registered")
-end
 TaskObject.new.generate()
 …
 $kernelCfgC.add("const ID _kernel_torder_table[TNUM_STSKID] = { ")
 $kernelCfgC.append("\t")
 $cfgData[:CRE_TSK].each_with_index do |(key, params), index|
+$cfgData[:CRE_TSK].each_with_index do |(_, params), index|
   $kernelCfgC.append(", ") if index > 0
   $kernelCfgC.append("#{params[:tskid]}")

EcnlProtoTool/trunk/asp3_dcre/kernel/task_manage.c

-              r321
+              r429
  *  Copyright (C) 2000-2003 by Embedded and Real-Time Systems Laboratory
  *                              Toyohashi Univ. of Technology, JAPAN
  *  Copyright (C) 2005-2017 by Embedded and Real-Time Systems Laboratory
+ *  Copyright (C) 2005-2018 by Embedded and Real-Time Systems Laboratory
  *              Graduate School of Information Science, Nagoya Univ., JAPAN
+ *
 …
 #ifdef TOPPERS_acre_tsk
-#ifndef TARGET_MIN_STKSZ
-#define TARGET_MIN_STKSZ        1U              /* 未定義の場合は0でないことをチェック */
-#endif /* TARGET_MIN_STKSZ */
 ER_UINT
 acre_tsk(const T_CTSK *pk_ctsk)
 …
         stk = pk_ctsk->stk;
         CHECK_RSATR(tskatr, TA_ACT|TA_NOACTQUE|TARGET_TSKATR);
+        CHECK_VALIDATR(tskatr, TA_ACT|TA_NOACTQUE|TARGET_TSKATR);
         CHECK_PAR(FUNC_ALIGN(task));
         CHECK_PAR(FUNC_NONNULL(task));
 …
                 if (stk == NULL) {
                         stksz = ROUND_STK_T(stksz);
                         stk = kernel_malloc(stksz);
+                        stk = malloc_mpk(stksz);
                         tskatr |= TA_MEMALLOC;
+                }
 …
                         p_tcb->actque = false;
+                        p_tcb->p_lastmtx = NULL;
                         make_dormant(p_tcb);
                         if ((p_tcb->p_tinib->tskatr & TA_ACT) != 0U) {
                                 make_active(p_tcb);
+                                if (p_runtsk != p_schedtsk) {
+                                        dispatch();
+                                }
+                        }
                         ercd = TSKID(p_tcb);
 …
 #else /* USE_TSKINICTXB */
                 if ((p_tinib->tskatr & TA_MEMALLOC) != 0U) {    /*［NGKI1109］*/
                         kernel_free(p_tinib->stk);
+                        free_mpk(p_tinib->stk);
+                }
 #endif /* USE_TSKINICTXB */
 …
+                        }
                         else {
                                 request_dispatch();
+                                request_dispatch_retint();
+                        }
+                }
 …
+        }
         if (tskpri == TPRI_INI) {
+                /*
+                 *  以下の代入文は，対象タスクが未登録の場合に無効なフィールド
+                 *  を参照するが，その場合はnewbpriの値を使わないので，問題な
+                 *  い．
+                 */
                 newbpri = p_tcb->p_tinib->ipriority;    /*［NGKI1199］*/
+        }

EcnlProtoTool/trunk/asp3_dcre/kernel/task_refer.c

-              r321
+              r429
  *      Advanced Standard Profile Kernel
+ *
  *  Copyright (C) 2005-2014 by Embedded and Real-Time Systems Laboratory
+ *  Copyright (C) 2005-2018 by Embedded and Real-Time Systems Laboratory
  *              Graduate School of Information Science, Nagoya Univ., JAPAN
+ *
 …
 /*
  *  タスクの状態参照
+ *  タスクの状態参照［NGKI1217］
  */
 #ifdef TOPPERS_ref_tsk
 …
         LOG_REF_TSK_ENTER(tskid, pk_rtsk);
         CHECK_TSKCTX_UNL();
+        CHECK_TSKCTX_UNL();                                                     /*［NGKI1218］［NGKI1219］*/
         if (tskid == TSK_SELF) {
                 p_tcb = p_runtsk;
+                p_tcb = p_runtsk;                                               /*［NGKI1248］*/
+        }
         else {
                 CHECK_ID(VALID_TSKID(tskid));
+                CHECK_ID(VALID_TSKID(tskid));                   /*［NGKI1220］*/
                 p_tcb = get_tcb(tskid);
+        }
 …
         lock_cpu();
         if (p_tcb->p_tinib->tskatr == TA_NOEXS) {
                 ercd = E_NOEXS;
+                ercd = E_NOEXS;                                                 /*［NGKI1221］*/
+        }
         else {
 …
                 if (TSTAT_DORMANT(tstat)) {
                         /*
                          *  対象タスクが休止状態の場合
+                         *  対象タスクが休止状態の場合［NGKI1225］
                          */
                         pk_rtsk->tskstat = TTS_DMT;
 …
                 else {
                         /*
                          *  タスク状態の取出し
+                         *  タスク状態の取出し［NGKI1225］
                          */
                         if (TSTAT_SUSPENDED(tstat)) {
 …
                         /*
                          *  現在優先度とベース優先度の取出し
+                         *  現在優先度とベース優先度の取出し［NGKI1227］
                          */
                         pk_rtsk->tskpri = EXT_TSKPRI(p_tcb->priority);
 …
                         if (TSTAT_WAITING(tstat)) {
                                 /*
+                                 *  待ち要因と待ち対象のオブジェクトのIDの取出し
+                                 *  待ち要因と待ち対象のオブジェクトのIDの取出し［NGKI1229］
+                                 *  ［NGKI1231］
                                  */
                                 switch (tstat) {
+                                switch (tstat & TS_WAITING_MASK) {
                                 case TS_WAITING_SLP:
                                         pk_rtsk->tskwait = TTW_SLP;
 …
                                  */
                                 if (p_tcb->p_winfo->p_tmevtb != NULL) {
                                         pk_rtsk->lefttmo
+                                        pk_rtsk->lefttmo                        /*［NGKI1233］［NGKI1235］*/
                                                         = (TMO) tmevt_lefttim(p_tcb->p_winfo->p_tmevtb);
+                                }
                                 else {
                                         pk_rtsk->lefttmo = TMO_FEVR;
+                                }
+                        }
                         /*
                          *  起床要求キューイング数の取出し
+                                        pk_rtsk->lefttmo = TMO_FEVR;    /*［NGKI1234］*/
+                                }
+                        }
+                        /*
+                         *  起床要求キューイング数の取出し［NGKI1239］
                          */
                         pk_rtsk->wupcnt = p_tcb->wupque ? 1U : 0U;
                         /*
                          *  タスク終了要求状態の取出し
+                         *  タスク終了要求状態の取出し［NGKI3467］
                          */
                         pk_rtsk->raster = p_tcb->raster;
                         /*
                          *  タスク終了禁止状態の取出し
+                         *  タスク終了禁止状態の取出し［NGKI3468］
                          */
                         pk_rtsk->dister = !(p_tcb->enater);
 …
                 /*
                  *  起動要求キューイング数の取出し
+                 *  起動要求キューイング数の取出し［NGKI1238］
                  */
                 pk_rtsk->actcnt = p_tcb->actque ? 1U : 0U;

EcnlProtoTool/trunk/asp3_dcre/kernel/task_sync.c

-              r321
+              r429
  *  Copyright (C) 2000-2003 by Embedded and Real-Time Systems Laboratory
  *                              Toyohashi Univ. of Technology, JAPAN
  *  Copyright (C) 2005-2015 by Embedded and Real-Time Systems Laboratory
+ *  Copyright (C) 2005-2018 by Embedded and Real-Time Systems Laboratory
  *              Graduate School of Information Science, Nagoya Univ., JAPAN
+ *
 …
 /*
  *  起床待ち
+ *  起床待ち［NGKI1252］
  */
 #ifdef TOPPERS_slp_tsk
 …
         LOG_SLP_TSK_ENTER();
         CHECK_DISPATCH();
+        CHECK_DISPATCH();                                                       /*［NGKI1254］*/
         lock_cpu_dsp();
         if (p_runtsk->raster) {
                 ercd = E_RASTER;
+                ercd = E_RASTER;                                                /*［NGKI3455］*/
+        }
         else if (p_runtsk->wupque) {
+                p_runtsk->wupque = false;
+                ercd = E_OK;
+        }
+        else {
+                p_runtsk->tstat = TS_WAITING_SLP;
+                make_wait(&winfo);
+                p_runtsk->wupque = false;                               /*［NGKI1259］*/
+                ercd = E_OK;
+        }
+        else {
+                make_wait(TS_WAITING_SLP, &winfo);              /*［NGKI1260］*/
                 LOG_TSKSTAT(p_runtsk);
                 dispatch();
 …
 /*
  *  起床待ち（タイムアウトあり）
+ *  起床待ち（タイムアウトあり）［NGKI1253］
  */
 #ifdef TOPPERS_tslp_tsk
 …
         LOG_TSLP_TSK_ENTER(tmout);
         CHECK_DISPATCH();
         CHECK_PAR(VALID_TMOUT(tmout));
+        CHECK_DISPATCH();                                                       /*［NGKI1254］*/
+        CHECK_PAR(VALID_TMOUT(tmout));                          /*［NGKI1256］*/
         lock_cpu_dsp();
         if (p_runtsk->raster) {
                 ercd = E_RASTER;
+                ercd = E_RASTER;                                                /*［NGKI3455］*/
+        }
         else if (p_runtsk->wupque) {
                 p_runtsk->wupque = false;
+                p_runtsk->wupque = false;                               /*［NGKI1259］*/
                 ercd = E_OK;
+        }
         else if (tmout == TMO_POL) {
+                ercd = E_TMOUT;
+        }
+        else {
+                p_runtsk->tstat = TS_WAITING_SLP;
+                make_wait_tmout(&winfo, &tmevtb, tmout);
+                ercd = E_TMOUT;                                                 /*［NGKI1257］*/
+        }
+        else {                                                                          /*［NGKI1260］*/
+                make_wait_tmout(TS_WAITING_SLP, &winfo, &tmevtb, tmout);
                 LOG_TSKSTAT(p_runtsk);
                 dispatch();
 …
 /*
  *  タスクの起床
+ *  タスクの起床［NGKI3531］
  */
 #ifdef TOPPERS_wup_tsk
 …
         LOG_WUP_TSK_ENTER(tskid);
         CHECK_UNL();
+        CHECK_UNL();                                                            /*［NGKI1265］*/
         if (tskid == TSK_SELF && !sense_context()) {
                 p_tcb = p_runtsk;
+        }
         else {
                 CHECK_ID(VALID_TSKID(tskid));
+                p_tcb = p_runtsk;                                               /*［NGKI1275］*/
+        }
+        else {
+                CHECK_ID(VALID_TSKID(tskid));                   /*［NGKI1267］*/
                 p_tcb = get_tcb(tskid);
+        }
 …
         lock_cpu();
         if (p_tcb->p_tinib->tskatr == TA_NOEXS) {
                 ercd = E_NOEXS;
+                ercd = E_NOEXS;                                                 /*［NGKI1268］*/
+        }
         else if (TSTAT_DORMANT(p_tcb->tstat)) {
                 ercd = E_OBJ;
+                ercd = E_OBJ;                                                   /*［NGKI1270］*/
+        }
         else if (TSTAT_WAIT_SLP(p_tcb->tstat)) {
                 wait_complete(p_tcb);
+                wait_complete(p_tcb);                                   /*［NGKI1271］*/
                 if (p_runtsk != p_schedtsk) {
                         if (!sense_context()) {
 …
+                        }
                         else {
                                 request_dispatch();
+                                request_dispatch_retint();
+                        }
+                }
 …
+        }
         else if (!(p_tcb->wupque)) {
                 p_tcb->wupque = true;
                 ercd = E_OK;
+        }
         else {
                 ercd = E_QOVR;
+                p_tcb->wupque = true;                                   /*［NGKI1273］*/
+                ercd = E_OK;
+        }
+        else {
+                ercd = E_QOVR;                                                  /*［NGKI1274］*/
+        }
         unlock_cpu();
 …
 /*
  *  タスク起床要求のキャンセル
+ *  タスク起床要求のキャンセル［NGKI1276］
  */
 #ifdef TOPPERS_can_wup
 …
         LOG_CAN_WUP_ENTER(tskid);
         CHECK_TSKCTX_UNL();
+        CHECK_TSKCTX_UNL();                                                     /*［NGKI1277］［NGKI1278］*/
         if (tskid == TSK_SELF) {
                 p_tcb = p_runtsk;
+        }
         else {
                 CHECK_ID(VALID_TSKID(tskid));
+                p_tcb = p_runtsk;                                               /*［NGKI1285］*/
+        }
+        else {
+                CHECK_ID(VALID_TSKID(tskid));                   /*［NGKI1280］*/
                 p_tcb = get_tcb(tskid);
+        }
 …
         lock_cpu();
         if (p_tcb->p_tinib->tskatr == TA_NOEXS) {
                 ercd = E_NOEXS;
+                ercd = E_NOEXS;                                                 /*［NGKI1281］*/
+        }
         else if (TSTAT_DORMANT(p_tcb->tstat)) {
                 ercd = E_OBJ;
+        }
         else {
                 ercd = p_tcb->wupque ? 1 : 0;
                 p_tcb->wupque = false;
+                ercd = E_OBJ;                                                   /*［NGKI1283］*/
+        }
+        else {
+                ercd = p_tcb->wupque ? 1 : 0;                   /*［NGKI1284］*/
+                p_tcb->wupque = false;                                  /*［NGKI1284］*/
+        }
         unlock_cpu();
 …
 /*
  *  待ち状態の強制解除
+ *  待ち状態の強制解除［NGKI3532］
  */
 #ifdef TOPPERS_rel_wai
 …
         LOG_REL_WAI_ENTER(tskid);
         CHECK_UNL();
         CHECK_ID(VALID_TSKID(tskid));
+        CHECK_UNL();                                                            /*［NGKI1290］*/
+        CHECK_ID(VALID_TSKID(tskid));                           /*［NGKI1292］*/
         p_tcb = get_tcb(tskid);
         lock_cpu();
         if (p_tcb->p_tinib->tskatr == TA_NOEXS) {
                 ercd = E_NOEXS;
+                ercd = E_NOEXS;                                                 /*［NGKI1293］*/
+        }
         else if (!TSTAT_WAITING(p_tcb->tstat)) {
                 ercd = E_OBJ;
+        }
         else {
                 wait_dequeue_wobj(p_tcb);
+                ercd = E_OBJ;                                                   /*［NGKI1295］*/
+        }
+        else {
+                wait_dequeue_wobj(p_tcb);                               /*［NGKI1296］*/
                 wait_dequeue_tmevtb(p_tcb);
                 p_tcb->p_winfo->wercd = E_RLWAI;
+                p_tcb->p_winfo->wercd = E_RLWAI;                /*［NGKI1297］*/
                 make_non_wait(p_tcb);
                 if (p_runtsk != p_schedtsk) {
 …
+                        }
                         else {
                                 request_dispatch();
+                                request_dispatch_retint();
+                        }
+                }
 …
 /*
  *  強制待ち状態からの再開
+ *  強制待ち状態からの再開［NGKI1312］
  */
 #ifdef TOPPERS_rsm_tsk
 …
         LOG_RSM_TSK_ENTER(tskid);
         CHECK_TSKCTX_UNL();
         CHECK_ID(VALID_TSKID(tskid));
+        CHECK_TSKCTX_UNL();                                                     /*［NGKI1313］［NGKI1314］*/
+        CHECK_ID(VALID_TSKID(tskid));                           /*［NGKI1316］*/
         p_tcb = get_tcb(tskid);
         lock_cpu();
         if (p_tcb->p_tinib->tskatr == TA_NOEXS) {
                 ercd = E_NOEXS;
+                ercd = E_NOEXS;                                                 /*［NGKI1317］*/
+        }
         else if (!TSTAT_SUSPENDED(p_tcb->tstat)) {
                 ercd = E_OBJ;
+        }
         else if (!TSTAT_WAITING(p_tcb->tstat)) {
+                ercd = E_OBJ;                                                   /*［NGKI1319］*/
+        }
+        else {
                 /*
                  *  強制待ち状態から実行できる状態への遷移
+                 *  強制待ちからの再開［NGKI1320］
                  */
+                p_tcb->tstat = TS_RUNNABLE;
+                LOG_TSKSTAT(p_tcb);
+                make_runnable(p_tcb);
+                if (p_runtsk != p_schedtsk) {
+                        dispatch();
+                if (!TSTAT_WAITING(p_tcb->tstat)) {
+                        p_tcb->tstat = TS_RUNNABLE;
+                        LOG_TSKSTAT(p_tcb);
+                        make_runnable(p_tcb);
+                        if (p_runtsk != p_schedtsk) {
+                                dispatch();
+                        }
+                }
+                ercd = E_OK;
+        }
+        else {
+                /*
+                 *  二重待ち状態から待ち状態への遷移
+                 */
+                p_tcb->tstat &= ~TS_SUSPENDED;
+                LOG_TSKSTAT(p_tcb);
+                else {
+                        p_tcb->tstat &= ~TS_SUSPENDED;
+                        LOG_TSKSTAT(p_tcb);
+                }
                 ercd = E_OK;
+        }
 …
 /*
  *  自タスクの遅延
+ *  自タスクの遅延［NGKI1348］
  */
 #ifdef TOPPERS_dly_tsk
 …
         LOG_DLY_TSK_ENTER(dlytim);
         CHECK_DISPATCH();
         CHECK_PAR(VALID_RELTIM(dlytim));
+        CHECK_DISPATCH();                                                       /*［NGKI1349］*/
+        CHECK_PAR(VALID_RELTIM(dlytim));                        /*［NGKI1351］*/
         lock_cpu_dsp();
         if (p_runtsk->raster) {
                 ercd = E_RASTER;
+        }
         else {
                 p_runtsk->tstat = TS_WAITING_DLY;
+                ercd = E_RASTER;                                                /*［NGKI3456］*/
+        }
+        else {
+                p_runtsk->tstat = TS_WAITING_DLY;               /*［NGKI1353］*/
                 make_non_runnable(p_runtsk);
                 p_runtsk->p_winfo = &winfo;
 …
                 tmevtb.callback = (CBACK) wait_tmout_ok;
                 tmevtb.arg = (void *) p_runtsk;
                 tmevtb_enqueue(&tmevtb, dlytim);
+                tmevtb_enqueue_reltim(&tmevtb, dlytim);
                 LOG_TSKSTAT(p_runtsk);
                 dispatch();

EcnlProtoTool/trunk/asp3_dcre/kernel/task_term.c

-              r321
+              r429
  *  Copyright (C) 2000-2003 by Embedded and Real-Time Systems Laboratory
  *                              Toyohashi Univ. of Technology, JAPAN
  *  Copyright (C) 2005-2014 by Embedded and Real-Time Systems Laboratory
+ *  Copyright (C) 2005-2017 by Embedded and Real-Time Systems Laboratory
  *              Graduate School of Information Science, Nagoya Univ., JAPAN
+ *
 …
 ext_tsk(void)
+{
-        PRI             intpri;
         ER              ercd;
 …
+        }
+        intpri = t_get_ipm();
+        if (!enadsp || intpri != TIPM_ENAALL) {
+        if (!dspflg) {
                 if (!enadsp) {
                         /*
 …
                         enadsp = true;
+                }
                 if (intpri != TIPM_ENAALL) {
+                if (t_get_ipm() != TIPM_ENAALL) {
                         /*
                          *  割込み優先度マスク（IPM）がTIPM_ENAALL以外の状態で
 …
                         t_set_ipm(TIPM_ENAALL);
+                }
+                dspflg = true;
+                p_schedtsk = search_schedtsk();
+                set_dspflg();
+        }

EcnlProtoTool/trunk/asp3_dcre/kernel/time_event.c

-              r321
+              r429
  *  Copyright (C) 2000-2003 by Embedded and Real-Time Systems Laboratory
  *                              Toyohashi Univ. of Technology, JAPAN
  *  Copyright (C) 2005-2016 by Embedded and Real-Time Systems Laboratory
+ *  Copyright (C) 2005-2019 by Embedded and Real-Time Systems Laboratory
  *              Graduate School of Information Science, Nagoya Univ., JAPAN
+ *
 …
 /*
+ *  TCYC_HRTCNTの定義のチェック
+ */
+#if defined(USE_64BIT_HRTCNT) && defined(TCYC_HRTCNT)
+#error TCYC_HRTCNT must not be defined when USE_64BIT_HRTCNT.
+#endif
+/*
  *  TSTEP_HRTCNTの範囲チェック
  */
 …
 /*
+ *  HRTCNT_BOUNDの範囲チェック
+ */
+ *  HRTCNT_BOUNDの定義のチェック
+ */
+#ifndef USE_64BIT_HRTCNT
 #if HRTCNT_BOUND >= 4294000000U
 #error HRTCNT_BOUND is too large.
 …
 #endif /* HRTCNT_BOUND >= TCYC_HRTCNT */
 #endif /* TCYC_HRTCNT */
+#else /* USE_64BIT_HRTCNT */
+#ifdef HRTCNT_BOUND
+#error USE_64BIT_HRTCNT is not supported on this target.
+#endif /* HRTCNT_BOUND */
+#endif /* USE_64BIT_HRTCNT */
 /*
 …
+        }
 #endif /* TCYC_HRTCNT */
+        current_hrtcnt = new_hrtcnt;                                    /*［ASPD1016］*/
         previous_evttim = current_evttim;
         current_evttim += (EVTTIM) hrtcnt_advance;              /*［ASPD1015］*/
-        current_hrtcnt = new_hrtcnt;                                    /*［ASPD1016］*/
         boundary_evttim = current_evttim - BOUNDARY_MARGIN;     /*［ASPD1011］*/
 …
         if (p_last_tmevtn < p_top_tmevtn) {
+                /*
+                 *  タイムイベントがない場合
+                 */
+#ifdef USE_64BIT_HRTCNT
+                target_hrt_clear_event();
+#else /* USE_64BIT_HRTCNT */
                 target_hrt_set_event(HRTCNT_BOUND);                     /*［ASPD1007］*/
+#endif /* USE_64BIT_HRTCNT */
+        }
         else if (EVTTIM_LE(top_evttim, current_evttim)) {
 …
         else {
                 hrtcnt = (HRTCNT)(top_evttim - current_evttim);
+#ifdef USE_64BIT_HRTCNT
+                target_hrt_set_event(hrtcnt);
+#else /* USE_64BIT_HRTCNT */
                 if (hrtcnt > HRTCNT_BOUND) {
                         target_hrt_set_event(HRTCNT_BOUND);             /*［ASPD1006］*/
 …
                         target_hrt_set_event(hrtcnt);                   /*［ASPD1002］*/
+                }
+#endif /* USE_64BIT_HRTCNT */
+        }
+}
 …
+ *
  */
 #ifdef TOPPERS_tmeenq
+#ifdef TOPPERS_tmeenqrel
 void
 tmevtb_enqueue(TMEVTB *p_tmevtb, RELTIM time)
+tmevtb_enqueue_reltim(TMEVTB *p_tmevtb, RELTIM time)
+{
         /*
 …
+}
 #endif /* TOPPERS_tmeenq */
+#endif /* TOPPERS_tmeenqrel */
 /*
 …
 bool_t
 check_adjtim(int_t adjtim)
+check_adjtim(int32_t adjtim)
+{
         if (adjtim > 0) {
                 return(p_last_tmevtn >= p_top_tmevtn    /*［NGKI3588］*/
                                         && EVTTIM_LE(top_evttim, current_evttim - TMAX_ADJTIM));
+                                        && EVTTIM_LE(top_evttim + TMAX_ADJTIM, current_evttim));
+        }
         else if (adjtim < 0) {                                          /*［NGKI3589］*/
 …
         TMEVTB  *p_tmevtb;
         bool_t  callflag;
+#ifndef TOPPERS_OMIT_SYSLOG
+        uint_t  nocall = 0;
+#endif /* TOPPERS_OMIT_SYSLOG */
         assert(sense_context());
 …
                         (*(p_tmevtb->callback))(p_tmevtb->arg);
                         callflag = true;
+#ifndef TOPPERS_OMIT_SYSLOG
+                        nocall += 1;
+#endif /* TOPPERS_OMIT_SYSLOG */
+                }
         } while (callflag);                                                             /*［ASPD1020］*/
+#ifndef TOPPERS_OMIT_SYSLOG
+        /*
+         *  タイムイベントが処理されなかった場合．
+         */
+        if (nocall == 0) {
+                syslog_0(LOG_NOTICE, "no time event is processed in hrt interrupt.");
+        }
+#endif /* TOPPERS_OMIT_SYSLOG */
         /*
          *  高分解能タイマ割込みの発生タイミングを設定する［ASPD1025］．

EcnlProtoTool/trunk/asp3_dcre/kernel/time_event.h

-              r321
+              r429
  *  Copyright (C) 2000-2003 by Embedded and Real-Time Systems Laboratory
  *                              Toyohashi Univ. of Technology, JAPAN
  *  Copyright (C) 2005-2015 by Embedded and Real-Time Systems Laboratory
+ *  Copyright (C) 2005-2019 by Embedded and Real-Time Systems Laboratory
  *              Graduate School of Information Science, Nagoya Univ., JAPAN
+ *
 …
  *  の発生時刻，コールバック関数，コールバック関数へ渡す引数は，
  *  p_tmevtbが指すタイムイベントブロック中に設定しておく．
+ *
+ *  高分解能タイマ割込みの発生タイミングの設定を行わないため，カーネル
+ *  の初期化時か，高分解能タイマ割込みの処理中で，それが必要ない場合に
+ *  のみ使用する．
  */
 extern void             tmevtb_register(TMEVTB *p_tmevtb);
 …
  *  ントブロック中に設定しておく．
  */
 extern void             tmevtb_enqueue(TMEVTB *p_tmevtb, RELTIM time);
+extern void             tmevtb_enqueue_reltim(TMEVTB *p_tmevtb, RELTIM time);
 /*
 …
  *  ベント時刻を取得した後に呼び出すことを想定している．
  */
 extern bool_t   check_adjtim(int_t adjtim);
+extern bool_t   check_adjtim(int32_t adjtim);
 /*

EcnlProtoTool/trunk/asp3_dcre/kernel/time_manage.c

-              r321
+              r429
 #include "time_event.h"
 #include "target_timer.h"
+#include <sil.h>
 /*
 …
+{
         ER              ercd;
+        bool_t lock;
         LOG_SET_TIM_ENTER(systim);
+        CHECK_TSKCTX_UNL();                                                     /*［NGKI3564］［NGKI3565］*/
+        lock_cpu();
+        //CHECK_TSKCTX_UNL();                                                   /*［NGKI3564］［NGKI3565］*/
+        CHECK_TSKCTX();
+        lock = sense_lock();
+        if (!lock)
+                lock_cpu();
         update_current_evttim();                                        /*［ASPD1059］*/
         systim_offset = systim - monotonic_evttim;      /*［ASPD1060］*/
         ercd = E_OK;
+        unlock_cpu();
+        if (!lock)
+                unlock_cpu();
   error_exit:
 …
+{
         ER              ercd;
+        bool_t lock;
         LOG_GET_TIM_ENTER(p_systim);
+        CHECK_TSKCTX_UNL();                                                     /*［NGKI2350］［NGKI2351］*/
+        lock_cpu();
+        //CHECK_TSKCTX_UNL();                                                   /*［NGKI2350］［NGKI2351］*/
+        CHECK_TSKCTX();
+        lock = sense_lock();
+        if (!lock)
+                lock_cpu();
         update_current_evttim();                                        /*［ASPD1057］*/
         *p_systim = systim_offset + monotonic_evttim;   /*［ASPD1058］*/
         ercd = E_OK;
+        unlock_cpu();
+        if (!lock)
+                unlock_cpu();
   error_exit:
 …
+                }
+                set_hrt_event();                                                /*［ASPD1056］*/
+                if (!in_signal_time) {
+                        set_hrt_event();                                        /*［ASPD1056］*/
+                }
                 ercd = E_OK;
+        }

EcnlProtoTool/trunk/asp3_dcre/kernel/wait.c

-              r321
+              r429
  *  Copyright (C) 2000-2003 by Embedded and Real-Time Systems Laboratory
  *                              Toyohashi Univ. of Technology, JAPAN
  *  Copyright (C) 2005-2015 by Embedded and Real-Time Systems Laboratory
+ *  Copyright (C) 2005-2018 by Embedded and Real-Time Systems Laboratory
  *              Graduate School of Information Science, Nagoya Univ., JAPAN
+ *
 …
 void
 make_wait_tmout(WINFO *p_winfo, TMEVTB *p_tmevtb, TMO tmout)
+make_wait_tmout(uint_t tstat, WINFO *p_winfo, TMEVTB *p_tmevtb, TMO tmout)
+{
+        p_runtsk->tstat = tstat;
         make_non_runnable(p_runtsk);
         p_runtsk->p_winfo = p_winfo;
 …
                 p_tmevtb->callback = (CBACK) wait_tmout;
                 p_tmevtb->arg = (void *) p_runtsk;
                 tmevtb_enqueue(p_tmevtb, (RELTIM) tmout);
+                tmevtb_enqueue_reltim(p_tmevtb, (RELTIM) tmout);
+        }
+}
 …
         make_non_wait(p_tcb);
         if (p_runtsk != p_schedtsk) {
                 request_dispatch();
+                request_dispatch_retint();
+        }
 …
         make_non_wait(p_tcb);
         if (p_runtsk != p_schedtsk) {
                 request_dispatch();
+                request_dispatch_retint();
+        }
 …
 void
 wobj_make_wait(WOBJCB *p_wobjcb, WINFO_WOBJ *p_winfo_wobj)
+wobj_make_wait(WOBJCB *p_wobjcb, uint_t tstat, WINFO_WOBJ *p_winfo_wobj)
+{
         make_wait(&(p_winfo_wobj->winfo));
+        make_wait(tstat, &(p_winfo_wobj->winfo));
         wobj_queue_insert(p_wobjcb);
         p_winfo_wobj->p_wobjcb = p_wobjcb;
 …
 void
 wobj_make_wait_tmout(WOBJCB *p_wobjcb, WINFO_WOBJ *p_winfo_wobj,
                                                                 TMEVTB *p_tmevtb, TMO tmout)
+wobj_make_wait_tmout(WOBJCB *p_wobjcb, uint_t tstat,
+                                                WINFO_WOBJ *p_winfo_wobj, TMEVTB *p_tmevtb, TMO tmout)
+{
         make_wait_tmout(&(p_winfo_wobj->winfo), p_tmevtb, tmout);
+        make_wait_tmout(tstat, &(p_winfo_wobj->winfo), p_tmevtb, tmout);
         wobj_queue_insert(p_wobjcb);
         p_winfo_wobj->p_wobjcb = p_wobjcb;

EcnlProtoTool/trunk/asp3_dcre/kernel/wait.h

-              r321
+              r429
  *  Copyright (C) 2000 by Embedded and Real-Time Systems Laboratory
  *                              Toyohashi Univ. of Technology, JAPAN
  *  Copyright (C) 2005-2014 by Embedded and Real-Time Systems Laboratory
+ *  Copyright (C) 2005-2018 by Embedded and Real-Time Systems Laboratory
  *              Graduate School of Information Science, Nagoya Univ., JAPAN
+ *
 …
  *  待ち状態への遷移
+ *
+ *  実行中のタスクを待ち状態に遷移させる．具体的には，実行中のタスクを
+ *  レディキューから削除し，TCBのp_winfoフィールド，WINFOのp_tmevtbフィー
+ *  ルドを設定する．
+ */
+Inline void
+make_wait(WINFO *p_winfo)
+{
+ *  実行中のタスクを待ち状態に遷移させる．具体的には，実行中のタスクの
+ *  タスク状態をtstatにしてレディキューから削除し，TCBのp_winfoフィー
+ *  ルド，WINFOのp_tmevtbフィールドを設定する．
+ */
+Inline void
+make_wait(uint_t tstat, WINFO *p_winfo)
+{
+        p_runtsk->tstat = tstat;
         make_non_runnable(p_runtsk);
         p_runtsk->p_winfo = p_winfo;
 …
+ *
  *  実行中のタスクを，タイムアウト指定付きで待ち状態に遷移させる．具体
+ *  的には，実行中のタスクをレディキューから削除し，TCBのp_winfoフィー
+ *  ルド，WINFOのp_tmevtbフィールドを設定する．また，タイムイベントブ
+ *  ロックを登録する．
+ */
+extern void     make_wait_tmout(WINFO *p_winfo, TMEVTB *p_tmevtb, TMO tmout);
+ *  的には，実行中のタスクのタスク状態をtstatにしてレディキューから削
+ *  除し，TCBのp_winfoフィールド，WINFOのp_tmevtbフィールドを設定する．
+ *  また，タイムイベントブロックを登録する．
+ */
+extern void     make_wait_tmout(uint_t tstat, WINFO *p_winfo,
+                                                                        TMEVTB *p_tmevtb, TMO tmout);
 /*
 …
  *  wobj_make_wait_tmoutは，タイムイベントブロックの登録も行う．
  */
+extern void     wobj_make_wait(WOBJCB *p_wobjcb, WINFO_WOBJ *p_winfo);
+extern void     wobj_make_wait_tmout(WOBJCB *p_wobjcb, WINFO_WOBJ *p_winfo,
+                                                                                        TMEVTB *p_tmevtb, TMO tmout);
+extern void     wobj_make_wait(WOBJCB *p_wobjcb, uint_t tstat,
+                                                                                        WINFO_WOBJ *p_winfo_wobj);
+extern void     wobj_make_wait_tmout(WOBJCB *p_wobjcb, uint_t tstat,
+                                                WINFO_WOBJ *p_winfo_wobj, TMEVTB *p_tmevtb, TMO tmout);
 /*

EcnlProtoTool/trunk/asp3_dcre/library/log_output.c

-              r321
+              r429
  *  Copyright (C) 2000-2003 by Embedded and Real-Time Systems Laboratory
  *                              Toyohashi Univ. of Technology, JAPAN
  *  Copyright (C) 2004-2014 by Embedded and Real-Time Systems Laboratory
+ *  Copyright (C) 2004-2018 by Embedded and Real-Time Systems Laboratory
  *              Graduate School of Information Science, Nagoya Univ., JAPAN
+ *
 …
                 syslog_printf((const char *)(p_syslog->logpar[0]),
                                                                 &(p_syslog->logpar[1]), putc);
+                (*putc)('\n');
                 break;
         case LOG_TYPE_ASSERT:
                 syslog_printf("%s:%u: Assertion `%s' failed.",
                                                                 &(p_syslog->logpar[0]), putc);
+                (*putc)('\n');
                 break;
         default:

EcnlProtoTool/trunk/asp3_dcre/library/t_perror.c

-              r321
+              r429
  *  Copyright (C) 2000-2003 by Embedded and Real-Time Systems Laboratory
  *                              Toyohashi Univ. of Technology, JAPAN
  *  Copyright (C) 2004-2006 by Embedded and Real-Time Systems Laboratory
+ *  Copyright (C) 2004-2018 by Embedded and Real-Time Systems Laboratory
  *              Graduate School of Information Science, Nagoya Univ., JAPAN
+ *
 …
 #include <t_stdlib.h>
+#ifndef TOPPERS_OMIT_SYSLOG
+static const char       message[] = "%s (%d) reported by `%s' in line %d of `%s'.";
 void
+t_perror(uint_t prio, const char *file, int_t line, const char *expr, ER ercd)
+tt_perror(SYSLOG *p_logbuf, const char *file, int_t line,
+                                                                                        const char *expr, ER ercd)
+{
+        syslog_5(prio, "%s (%d) reported by `%s' in line %d of `%s'.",
+                                                itron_strerror(ercd), SERCD(ercd), expr, line, file);
+        p_logbuf->logtype = LOG_TYPE_COMMENT;
+        p_logbuf->logpar[0] = (LOGPAR) message;
+        p_logbuf->logpar[1] = (LOGPAR) itron_strerror(ercd);
+        p_logbuf->logpar[2] = (LOGPAR) SERCD(ercd);
+        p_logbuf->logpar[3] = (LOGPAR) expr;
+        p_logbuf->logpar[4] = (LOGPAR) line;
+        p_logbuf->logpar[5] = (LOGPAR) file;
+}
+}
+#endif /* TOPPERS_OMIT_SYSLOG */

EcnlProtoTool/trunk/asp3_dcre/library/vasyslog.c

-              r321
+              r429
  *  Copyright (C) 2000-2003 by Embedded and Real-Time Systems Laboratory
  *                              Toyohashi Univ. of Technology, JAPAN
  *  Copyright (C) 2004-2014 by Embedded and Real-Time Systems Laboratory
+ *  Copyright (C) 2004-2018 by Embedded and Real-Time Systems Laboratory
  *              Graduate School of Information Science, Nagoya Univ., JAPAN
+ *
 …
 void
 vsyslog(uint_t prio, const char *format, va_list ap)
+tt_syslog(SYSLOG *p_logbuf, const char *format, va_list ap)
+{
-        SYSLOG  logbuf;
         uint_t  i;
         char    sz;
         char    c;
         logbuf.logtype = LOG_TYPE_COMMENT;
         logbuf.logpar[0] = (LOGPAR) format;
+        p_logbuf->logtype = LOG_TYPE_COMMENT;
+        p_logbuf->logpar[0] = (LOGPAR) format;
         i = 1U;
 …
                 switch (c) {
                 case 'd':
                         logbuf.logpar[i++] = (sz == 'l') ? (LOGPAR) va_arg(ap, long_t)
                                                            : (sz == 't') ? (LOGPAR) va_arg(ap, int32_t)
                                                            : (sz == 'T') ? (LOGPAR) va_arg(ap, SYSTIM)
                                                            : (LOGPAR) va_arg(ap, int_t);
+                        p_logbuf->logpar[i++] = (sz == 'l') ? (LOGPAR) va_arg(ap, long_t)
+                                                                  : (sz == 't') ? (LOGPAR) va_arg(ap, int32_t)
+                                                                  : (sz == 'T') ? (LOGPAR) va_arg(ap, SYSTIM)
+                                                                  : (LOGPAR) va_arg(ap, int_t);
                         break;
                 case 'u':
                 case 'x':
                 case 'X':
                         logbuf.logpar[i++] = (sz == 'l') ? (LOGPAR) va_arg(ap, ulong_t)
                                                            : (sz == 't') ? (LOGPAR) va_arg(ap, uint32_t)
                                                            : (sz == 'T') ? (LOGPAR) va_arg(ap, SYSTIM)
                                                            : (LOGPAR) va_arg(ap, uint_t);
+                        p_logbuf->logpar[i++] = (sz == 'l') ? (LOGPAR) va_arg(ap, ulong_t)
+                                                                  : (sz == 't') ? (LOGPAR) va_arg(ap, uint32_t)
+                                                                  : (sz == 'T') ? (LOGPAR) va_arg(ap, SYSTIM)
+                                                                  : (LOGPAR) va_arg(ap, uint_t);
                         break;
                 case 'p':
                         logbuf.logpar[i++] = (LOGPAR) va_arg(ap, void *);
+                        p_logbuf->logpar[i++] = (LOGPAR) va_arg(ap, void *);
                         break;
                 case 'c':
                         logbuf.logpar[i++] = (LOGPAR) va_arg(ap, int);
+                        p_logbuf->logpar[i++] = (LOGPAR) va_arg(ap, int);
                         break;
                 case 's':
                         logbuf.logpar[i++] = (LOGPAR) va_arg(ap, const char *);
+                        p_logbuf->logpar[i++] = (LOGPAR) va_arg(ap, const char *);
                         break;
                 case '\0':
 …
+                }
+        }
-        (void) tSysLog_eSysLog_write(prio, &logbuf);
+}
-void
-syslog(uint_t prio, const char *format, ...)
+{
-        va_list ap;
-        va_start(ap, format);
-        vsyslog(prio, format, ap);
-        va_end(ap);
+}
-/* mbed weak error function */
-void
-error(const char* format, ...) {
-        va_list arg;
-        va_start(arg, format);
-        vsyslog(LOG_ERROR, format, arg);
-        va_end(arg);
-        ext_ker();
+}

EcnlProtoTool/trunk/asp3_dcre/mbed/Makefile.mbed

-              r321
+              r429
+#
 INCLUDES := $(INCLUDES)\
+        -I$(MBEDDIR)/api\
+        -I$(MBEDDIR)\
+        -I$(MBEDDIR)/cmsis\
+        -I$(MBEDDIR)/cmsis/TARGET_CORTEX_A\
         -I$(MBEDDIR)/hal\
+        -I$(MBEDDIR)/targets/cmsis\
+        -I$(MBEDDIR)/targets/cmsis/TARGET_RENESAS/TARGET_RZ_A1H\
+        -I$(MBEDDIR)/targets/cmsis/TARGET_RENESAS/TARGET_RZ_A1H/inc\
+        -I$(MBEDDIR)/targets/cmsis/TARGET_RENESAS/TARGET_RZ_A1H/inc/iodefines\
+        -I$(MBEDDIR)/targets/hal/TARGET_RENESAS/TARGET_RZ_A1H\
+        -I$(MBEDDIR)/targets/hal/TARGET_RENESAS/TARGET_RZ_A1H/TARGET_MBED_MBRZA1H
+        -I$(MBEDDIR)/platform\
+        -I$(MBEDDIR)/targets/TARGET_RENESAS\
+        -I$(MBEDDIR)/targets/TARGET_RENESAS/TARGET_RZA1XX\
+        -I$(MBEDDIR)/targets/TARGET_RENESAS/TARGET_RZA1XX/TARGET_RZ_A1H\
+        -I$(MBEDDIR)/targets/TARGET_RENESAS/TARGET_RZA1XX/TARGET_RZ_A1H/TARGET_MBED_MBRZA1H\
+        -I$(MBEDDIR)/targets/TARGET_RENESAS/TARGET_RZA1XX/TARGET_RZ_A1H/device\
+        -I$(MBEDDIR)/targets/TARGET_RENESAS/TARGET_RZA1XX/TARGET_RZ_A1H/device/inc\
+        -I$(MBEDDIR)/targets/TARGET_RENESAS/TARGET_RZA1XX/TARGET_RZ_A1H/device/inc/iobitmasks\
+        -I$(MBEDDIR)/targets/TARGET_RENESAS/TARGET_RZA1XX/TARGET_RZ_A1H/device/inc/iodefines\
+        -I$(MBEDDIR)/targets/TARGET_RENESAS/TARGET_RZA1XX/common\
+        -I$(MBEDDIR)/rtos/TARGET_CORTEX
 COPTS := $(COPTS)\
   -mthumb\
 …
   -mno-unaligned-access
 CDEFS := $(CDEFS)\
+        -DTARGET_RZ_A1H\
+        -DTARGET_MBRZA1H\
+        -DTOOLCHAIN_GCC_ARM\
+        -DTOOLCHAIN_GCC\
+        -DTARGET_CORTEX_A\
+        -DMBED_BUILD_TIMESTAMP=1460441486.52\
+        -DTARGET_RENESAS\
+        -D__FPU_PRESENT
+        -DARM_MATH_CA9 \
+        -DDEVICE_ANALOGIN=1 \
+        -DDEVICE_CAN=1 \
+        -DDEVICE_EMAC=1 \
+        -DDEVICE_ETHERNET=1 \
+        -DDEVICE_FLASH=1 \
+        -DDEVICE_I2C=1 \
+        -DDEVICE_I2CSLAVE=1 \
+        -DDEVICE_I2C_ASYNCH=1 \
+        -DDEVICE_INTERRUPTIN=1 \
+        -DDEVICE_LPTICKER=1 \
+        -DDEVICE_PORTIN=1 \
+        -DDEVICE_PORTINOUT=1 \
+        -DDEVICE_PORTOUT=1 \
+        -DDEVICE_PWMOUT=1 \
+        -DDEVICE_RTC=1 \
+        -DDEVICE_SEMIHOST=1 \
+        -DDEVICE_SERIAL=1 \
+        -DDEVICE_SERIAL_ASYNCH=1 \
+        -DDEVICE_SERIAL_FC=1 \
+        -DDEVICE_SLEEP=1 \
+        -DDEVICE_SPI=1 \
+        -DDEVICE_SPISLAVE=1 \
+        -DDEVICE_SPI_ASYNCH=1 \
+        -DDEVICE_STDIO_MESSAGES=1 \
+        -DDEVICE_USTICKER=1 \
+        -DMBED_BUILD_TIMESTAMP=1550103323.92 \
+        -DTARGET_A9 \
+        -DTARGET_CORTEX \
+        -DTARGET_CORTEX_A \
+        -DTARGET_FF_ARDUINO \
+        -DTARGET_LIKE_CORTEX_A9 \
+        -DTARGET_LIKE_MBED \
+        -DTARGET_MBRZA1H \
+        -DTARGET_RELEASE \
+        -DTARGET_RENESAS \
+        -DTARGET_RZA1H \
+        -DTARGET_RZ_A1H \
+        -DTARGET_RZ_A1XX \
+        -DTARGET_RZ_A1_EMAC \
+        -DTOOLCHAIN_GCC \
+        -DTOOLCHAIN_GCC_ARM \
+        -DTOOLCHAIN_object \
+        -D__CMSIS_RTOS \
+        -D__CORTEX_A9 \
+        -D__EVAL \
+        -D__FPU_PRESENT=1 \
+        -D__MBED_CMSIS_RTOS_CA9 \
+        -D__MBED__=1 \
+        -DIRQ_GIC_LINE_COUNT=587 \
+        #-DDEVICE_STDIO_MESSAGES=1
+#
 …
+#
 SYSSVC_DIRS := $(SYSSVC_DIRS)\
+        $(MBEDDIR)/common\
+        $(MBEDDIR)/targets/cmsis/TARGET_RENESAS/TARGET_RZ_A1H\
+        $(MBEDDIR)/targets/cmsis/TARGET_RENESAS/TARGET_RZ_A1H/TOOLCHAIN_GCC_ARM\
+        $(MBEDDIR)/targets/cmsis/TOOLCHAIN_GCC/TARGET_CORTEX_A\
+        $(MBEDDIR)/targets/hal/TARGET_RENESAS/TARGET_RZ_A1H
+SYSSVC_ASMOBJS := $(SYSSVC_ASMOBJS)\
+        cache.o
+START_OBJS = startup_RZ1AH.o
+        $(MBEDDIR)\
+        $(MBEDDIR)/hal\
+        $(MBEDDIR)/platform\
+        $(MBEDDIR)/cmsis/TARGET_CORTEX_A\
+        $(MBEDDIR)/targets/TARGET_RENESAS\
+        $(MBEDDIR)/targets/TARGET_RENESAS/TARGET_RZA1XX\
+        $(MBEDDIR)/targets/TARGET_RENESAS/TARGET_RZA1XX/TARGET_RZ_A1H\
+        $(MBEDDIR)/targets/TARGET_RENESAS/TARGET_RZA1XX/TARGET_RZ_A1H/TARGET_MBED_MBRZA1H\
+        $(MBEDDIR)/targets/TARGET_RENESAS/TARGET_RZA1XX/TARGET_RZ_A1H/device\
+        $(MBEDDIR)/targets/TARGET_RENESAS/TARGET_RZA1XX/TARGET_RZ_A1H/device/TOOLCHAIN_GCC_ARM\
+        $(MBEDDIR)/targets/TARGET_RENESAS/TARGET_RZA1XX/common
+SYSSVC_ASMOBJS := $(SYSSVC_ASMOBJS)
+START_OBJS := startup_RZ1AH.o
+START_OBJS := $(addprefix $(OBJDIR)/, $(START_OBJS))
 SYSSVC_COBJS := $(SYSSVC_COBJS)\
+        assert.o board.o gpio.o lp_ticker_api.o mbed_interface.o\
+        pinmap_common.o rtc_time.o semihost_api.o ticker_api.o us_ticker_api.o\
+        RZ_A1_Init.o cmsis_nvic.o gic.o mbed_sf_boot.o mmu_Renesas_RZ_A1.o\
+        nvic_wrapper.o pl310.o rza_io_regrw.o system_MBRZA1H.o\
+        analogin_api.o can_api.o ethernet_api.o gpio_api.o gpio_irq_api.o i2c_api.o\
+        pinmap.o port_api.o pwmout_api.o rtc_api.o serial_api.o spi_api.o
+        #wait_api.o us_ticker.o
+CFG_DMY := cfg_dmy.o mmu_Renesas_RZ_A1.o mbed_sf_boot.o RZ_A1_Init.o system_MBRZA1H.o cache.o pl310.o gic.o
+        mbed_critical_section_api.o mbed_flash_api.o mbed_gpio.o mbed_lp_ticker_api.o\
+        mbed_lp_ticker_wrapper.o mbed_pinmap_common.o mbed_sleep_manager.o mbed_mktime.o\
+        mbed_ticker_api.o mbed_us_ticker_api.o mbed_assert.o mbed_board.o\
+        mbed_critical.o mbed_error.o mbed_error_hist.o mbed_interface.o\
+        mbed_rtc_time.o mbed_semihost_api.o mbed_stats.o\
+        PeripheralPins.o RZ_A1_Init.o mbed_sf_boot.o mmu_RZ_A1H.o\
+        system_RZ_A1H.o trng_api_esp32.o analogin_api.o can_api.o cmsis_nvic.o\
+        irq_ctrl_gic.o nvic_wrapper.o rza_io_regrw.o ethernet_api.o flash_api.o\
+        gpio_api.o gpio_irq_api.o i2c_api.o lp_ticker.o mtu2.o pinmap.o port_api.o\
+        pwmout_api.o rtc_api.o serial_api.o sleep.o spi_api.o trng_api.o us_ticker.o
+        #mbed_wait_api_no_rtos.o
+CFG_DMY := cfg_dmy.o mmu_RZ_A1H.o mbed_sf_boot.o RZ_A1_Init.o system_RZ_A1H.o irq_ctrl_gic.o

EcnlProtoTool/trunk/asp3_dcre/mbed/hal/analogin_api.h

-              r321
+              r429
+/** \addtogroup hal */
+/** @{*/
 /* mbed Microcontroller Library
  * Copyright (c) 2006-2013 ARM Limited
 …
 #endif
+/** Analogin hal structure. analogin_s is declared in the target's hal
+ */
 typedef struct analogin_s analogin_t;
+void     analogin_init    (analogin_t *obj, PinName pin);
+float    analogin_read    (analogin_t *obj);
+/**
+ * \defgroup hal_analogin Analogin hal functions
+ * @{
+ */
+/** Initialize the analogin peripheral
+ *
+ * Configures the pin used by analogin.
+ * @param obj The analogin object to initialize
+ * @param pin The analogin pin name
+ */
+void analogin_init(analogin_t *obj, PinName pin);
+/** Read the input voltage, represented as a float in the range [0.0, 1.0]
+ *
+ * @param obj The analogin object
+ * @return A floating value representing the current input voltage
+ */
+float analogin_read(analogin_t *obj);
+/** Read the value from analogin pin, represented as an unsigned 16bit value
+ *
+ * @param obj The analogin object
+ * @return An unsigned 16bit value representing the current input voltage
+ */
 uint16_t analogin_read_u16(analogin_t *obj);
+/**@}*/
 #ifdef __cplusplus
 …
 #endif
+/** @}*/

EcnlProtoTool/trunk/asp3_dcre/mbed/hal/analogout_api.h

-              r321
+              r429
+/** \addtogroup hal */
+/** @{*/
 /* mbed Microcontroller Library
  * Copyright (c) 2006-2013 ARM Limited
 …
 #endif
+/** Analogout hal structure. dac_s is declared in the target's hal
+ */
 typedef struct dac_s dac_t;
+void     analogout_init     (dac_t *obj, PinName pin);
+void     analogout_free     (dac_t *obj);
+void     analogout_write    (dac_t *obj, float value);
+void     analogout_write_u16(dac_t *obj, uint16_t value);
+float    analogout_read     (dac_t *obj);
+uint16_t analogout_read_u16 (dac_t *obj);
+/**
+ * \defgroup hal_analogout Analogout hal functions
+ * @{
+ */
+/** Initialize the analogout peripheral
+ *
+ * Configures the pin used by analogout.
+ * @param obj The analogout object to initialize
+ * @param pin The analogout pin name
+ */
+void analogout_init(dac_t *obj, PinName pin);
+/** Release the analogout object
+ *
+ * Note: This is not currently used in the mbed-drivers
+ * @param obj The analogout object
+ */
+void analogout_free(dac_t *obj);
+/** Set the output voltage, specified as a percentage (float)
+ *
+ * @param obj The analogin object
+ * @param value The floating-point output voltage to be set
+ */
+void analogout_write(dac_t *obj, float value);
+/** Set the output voltage, specified as unsigned 16-bit
+ *
+ * @param obj The analogin object
+ * @param value The unsigned 16-bit output voltage to be set
+ */
+void analogout_write_u16(dac_t *obj, uint16_t value);
+/** Read the current voltage value on the pin
+ *
+ * @param obj The analogin object
+ * @return A floating-point value representing the current voltage on the pin,
+ *     measured as a percentage
+ */
+float analogout_read(dac_t *obj);
+/** Read the current voltage value on the pin, as a normalized unsigned 16bit value
+ *
+ * @param obj The analogin object
+ * @return An unsigned 16-bit value representing the current voltage on the pin
+ */
+uint16_t analogout_read_u16(dac_t *obj);
+/**@}*/
 #ifdef __cplusplus
 …
 #endif
+/** @}*/

EcnlProtoTool/trunk/asp3_dcre/mbed/hal/buffer.h

-              r321
+              r429
+/** \addtogroup hal */
+/** @{*/
 /* mbed Microcontroller Library
  * Copyright (c) 2014-2015 ARM Limited
 …
 #endif
+/** @}*/

EcnlProtoTool/trunk/asp3_dcre/mbed/hal/can_api.h

-              r321
+              r429
+/** \addtogroup hal */
+/** @{*/
 /* mbed Microcontroller Library
  * Copyright (c) 2006-2013 ARM Limited
+ * Copyright (c) 2006-2016 ARM Limited
+ *
  * Licensed under the Apache License, Version 2.0 (the "License");
 …
 #include "PinNames.h"
 #include "PeripheralNames.h"
 #include "can_helper.h"
+#include "hal/can_helper.h"
 #ifdef __cplusplus
 …
 void          can_init     (can_t *obj, PinName rd, PinName td);
+void          can_init_freq(can_t *obj, PinName rd, PinName td, int hz);
 void          can_free     (can_t *obj);
 int           can_frequency(can_t *obj, int hz);
 …
 #endif
+/** @}*/

EcnlProtoTool/trunk/asp3_dcre/mbed/hal/dma_api.h

-              r321
+              r429
+/** \addtogroup hal */
+/** @{*/
 /* mbed Microcontroller Library
  * Copyright (c) 2014-2015 ARM Limited
 …
 #endif
+/** @}*/

EcnlProtoTool/trunk/asp3_dcre/mbed/hal/ethernet_api.h

-              r321
+              r429
+/** \addtogroup hal */
+/** @{*/
 /* mbed Microcontroller Library
  * Copyright (c) 2006-2013 ARM Limited
 …
 int ethernet_send(void);
 // recieve from ethernet buffer, returning packet size, or 0 if no packet
+// receive from ethernet buffer, returning packet size, or 0 if no packet
 int ethernet_receive(void);
 …
 #endif
+/** @}*/

EcnlProtoTool/trunk/asp3_dcre/mbed/hal/gpio_api.h

-              r321
+              r429
+/** \addtogroup hal */
+/** @{*/
 /* mbed Microcontroller Library
  * Copyright (c) 2006-2013 ARM Limited
 …
 #define MBED_GPIO_API_H
+#include <stdint.h>
 #include "device.h"
 …
 #endif
+/* Set the given pin as GPIO
+/**
+ * \defgroup hal_gpio GPIO HAL functions
+ * @{
+ */
+/** Set the given pin as GPIO
+ *
  * @param pin The pin to be set as GPIO
  * @return The GPIO port mask for this pin
  **/
 uint32_t gpio_set(PinName pin);
 /* Checks if gpio object is connected (pin was not initialized with NC)
  * @param pin The pin to be set as GPIO
 …
 int gpio_is_connected(const gpio_t *obj);
+/* GPIO object */
+/** Initialize the GPIO pin
+ *
+ * @param obj The GPIO object to initialize
+ * @param pin The GPIO pin to initialize
+ */
 void gpio_init(gpio_t *obj, PinName pin);
+void gpio_mode (gpio_t *obj, PinMode mode);
+void gpio_dir  (gpio_t *obj, PinDirection direction);
+/** Set the input pin mode
+ *
+ * @param obj  The GPIO object
+ * @param mode The pin mode to be set
+ */
+void gpio_mode(gpio_t *obj, PinMode mode);
+/** Set the pin direction
+ *
+ * @param obj       The GPIO object
+ * @param direction The pin direction to be set
+ */
+void gpio_dir(gpio_t *obj, PinDirection direction);
+/** Set the output value
+ *
+ * @param obj   The GPIO object
+ * @param value The value to be set
+ */
 void gpio_write(gpio_t *obj, int value);
-int  gpio_read (gpio_t *obj);
+// the following set of functions are generic and are implemented in the common gpio.c file
+/** Read the input value
+ *
+ * @param obj The GPIO object
+ * @return An integer value 1 or 0
+ */
+int gpio_read(gpio_t *obj);
+// the following functions are generic and implemented in the common gpio.c file
+// TODO: fix, will be moved to the common gpio header file
+/** Init the input pin and set mode to PullDefault
+ *
+ * @param gpio The GPIO object
+ * @param pin The pin name
+ */
 void gpio_init_in(gpio_t* gpio, PinName pin);
+/** Init the input pin and set the mode
+ *
+ * @param gpio  The GPIO object
+ * @param pin  The pin name
+ * @param mode The pin mode to be set
+ */
 void gpio_init_in_ex(gpio_t* gpio, PinName pin, PinMode mode);
+/** Init the output pin as an output, with predefined output value 0
+ *
+ * @param gpio The GPIO object
+ * @param pin The pin name
+ * @return An integer value 1 or 0
+ */
 void gpio_init_out(gpio_t* gpio, PinName pin);
+/** Init the pin as an output and set the output value
+ *
+ * @param gpio  The GPIO object
+ * @param pin   The pin name
+ * @param value The value to be set
+ */
 void gpio_init_out_ex(gpio_t* gpio, PinName pin, int value);
+/** Init the pin to be in/out
+ *
+ * @param gpio      The GPIO object
+ * @param pin       The pin name
+ * @param direction The pin direction to be set
+ * @param mode      The pin mode to be set
+ * @param value     The value to be set for an output pin
+ */
 void gpio_init_inout(gpio_t* gpio, PinName pin, PinDirection direction, PinMode mode, int value);
+/**@}*/
 #ifdef __cplusplus
 …
 #endif
+/** @}*/

EcnlProtoTool/trunk/asp3_dcre/mbed/hal/gpio_irq_api.h

-              r321
+              r429
+/** \addtogroup hal */
+/** @{*/
 /* mbed Microcontroller Library
  * Copyright (c) 2006-2013 ARM Limited
 …
 #endif
+/** GPIO IRQ events
+ */
 typedef enum {
     IRQ_NONE,
 …
 } gpio_irq_event;
+/** GPIO IRQ HAL structure. gpio_irq_s is declared in the target's HAL
+ */
 typedef struct gpio_irq_s gpio_irq_t;
 typedef void (*gpio_irq_handler)(uint32_t id, gpio_irq_event event);
+int  gpio_irq_init(gpio_irq_t *obj, PinName pin, gpio_irq_handler handler, uint32_t id);
+/**
+ * \defgroup hal_gpioirq GPIO IRQ HAL functions
+ * @{
+ */
+/** Initialize the GPIO IRQ pin
+ *
+ * @param obj     The GPIO object to initialize
+ * @param pin     The GPIO pin name
+ * @param handler The handler to be attached to GPIO IRQ
+ * @param id      The object ID (id != 0, 0 is reserved)
+ * @return -1 if pin is NC, 0 otherwise
+ */
+int gpio_irq_init(gpio_irq_t *obj, PinName pin, gpio_irq_handler handler, uint32_t id);
+/** Release the GPIO IRQ PIN
+ *
+ * @param obj The gpio object
+ */
 void gpio_irq_free(gpio_irq_t *obj);
+void gpio_irq_set (gpio_irq_t *obj, gpio_irq_event event, uint32_t enable);
+/** Enable/disable pin IRQ event
+ *
+ * @param obj    The GPIO object
+ * @param event  The GPIO IRQ event
+ * @param enable The enable flag
+ */
+void gpio_irq_set(gpio_irq_t *obj, gpio_irq_event event, uint32_t enable);
+/** Enable GPIO IRQ
+ *
+ * This is target dependent, as it might enable the entire port or just a pin
+ * @param obj The GPIO object
+ */
 void gpio_irq_enable(gpio_irq_t *obj);
+/** Disable GPIO IRQ
+ *
+ * This is target dependent, as it might disable the entire port or just a pin
+ * @param obj The GPIO object
+ */
 void gpio_irq_disable(gpio_irq_t *obj);
+/**@}*/
 #ifdef __cplusplus
 …
 #endif
+/** @}*/

EcnlProtoTool/trunk/asp3_dcre/mbed/hal/i2c_api.h

-              r321
+              r429
+/** \addtogroup hal */
+/** @{*/
 /* mbed Microcontroller Library
  * Copyright (c) 2006-2015 ARM Limited
 …
 #include "device.h"
+#include "buffer.h"
+#include "hal/buffer.h"
+#if DEVICE_I2C_ASYNCH
+#include "hal/dma_api.h"
+#endif
 #if DEVICE_I2C
 /**
  * @defgroup I2CEvents I2C Events Macros
+ * @defgroup hal_I2CEvents I2C Events Macros
+ *
  * @{
 …
 #if DEVICE_I2C_ASYNCH
 /** Asynch i2c hal structure
+/** Asynch I2C HAL structure
  */
 typedef struct {
     struct i2c_s    i2c;     /**< Target specific i2c structure */
+    struct i2c_s    i2c;     /**< Target specific I2C structure */
     struct buffer_s tx_buff; /**< Tx buffer */
     struct buffer_s rx_buff; /**< Rx buffer */
 …
 #else
 /** Non-asynch i2c hal structure
+/** Non-asynch I2C HAL structure
  */
 typedef struct i2c_s i2c_t;
 …
 /**
  * \defgroup GeneralI2C I2C Configuration Functions
+ * \defgroup hal_GeneralI2C I2C Configuration Functions
  * @{
  */
 /** Initialize the I2C peripheral. It sets the default parameters for I2C
+ *  peripheral, and configure its specifieds pins.
+ *  @param obj  The i2c object
+ *  peripheral, and configures its specifieds pins.
+ *
+ *  @param obj  The I2C object
  *  @param sda  The sda pin
  *  @param scl  The scl pin
 …
 void i2c_init(i2c_t *obj, PinName sda, PinName scl);
+/** Configure the I2C frequency.
+ *  @param obj The i2c object
+/** Configure the I2C frequency
+ *
+ *  @param obj The I2C object
  *  @param hz  Frequency in Hz
  */
 void i2c_frequency(i2c_t *obj, int hz);
+/** Send START command.
+ *  @param obj The i2c object
+/** Send START command
+ *
+ *  @param obj The I2C object
  */
 int  i2c_start(i2c_t *obj);
+/** Send STOP command.
+ *  @param obj The i2c object
+/** Send STOP command
+ *
+ *  @param obj The I2C object
  */
 int  i2c_stop(i2c_t *obj);
+/** Blocking reading data.
+ *  @param obj     The i2c object
+/** Blocking reading data
+ *
+ *  @param obj     The I2C object
  *  @param address 7-bit address (last bit is 1)
  *  @param data    The buffer for receiving
 …
  *  @return Number of read bytes
  */
+int  i2c_read(i2c_t *obj, int address, char *data, int length, int stop);
+/** Blocking sending data.
+ *  @param obj     The i2c object
+int i2c_read(i2c_t *obj, int address, char *data, int length, int stop);
+/** Blocking sending data
+ *
+ *  @param obj     The I2C object
  *  @param address 7-bit address (last bit is 0)
  *  @param data    The buffer for sending
  *  @param length  Number of bytes to wrte
+ *  @param length  Number of bytes to write
  *  @param stop    Stop to be generated after the transfer is done
+ *  @return Number of written bytes
+ */
+int  i2c_write(i2c_t *obj, int address, const char *data, int length, int stop);
+/** Reset I2C peripheral. TODO: The action here. Most of the implementation sends stop().
+ *  @param obj The i2c object
+ *  @return
+ *      zero or non-zero - Number of written bytes
+ *      negative - I2C_ERROR_XXX status
+ */
+int i2c_write(i2c_t *obj, int address, const char *data, int length, int stop);
+/** Reset I2C peripheral. TODO: The action here. Most of the implementation sends stop()
+ *
+ *  @param obj The I2C object
  */
 void i2c_reset(i2c_t *obj);
+/** Read one byte.
+ *  @param obj The i2c object
+/** Read one byte
+ *
+ *  @param obj The I2C object
  *  @param last Acknoledge
  *  @return The read byte
  */
+int  i2c_byte_read(i2c_t *obj, int last);
+/** Write one byte.
+ *  @param obj The i2c object
+int i2c_byte_read(i2c_t *obj, int last);
+/** Write one byte
+ *
+ *  @param obj The I2C object
  *  @param data Byte to be written
  *  @return 1 if NAK was received, 0 if ACK was received, 2 for timeout.
  */
 int  i2c_byte_write(i2c_t *obj, int data);
+ *  @return 0 if NAK was received, 1 if ACK was received, 2 for timeout.
+ */
+int i2c_byte_write(i2c_t *obj, int data);
 /**@}*/
 …
 /** Configure I2C as slave or master.
  *  @param obj The I2C object
+ *  @param enable_slave Enable i2c hardware so you can receive events with ::i2c_slave_receive
  *  @return non-zero if a value is available
  */
 …
 /** Configure I2C as slave or master.
  *  @param obj The I2C object
+ *  @param data    The buffer for receiving
+ *  @param length  Number of bytes to read
  *  @return non-zero if a value is available
  */
 …
 /** Configure I2C as slave or master.
  *  @param obj The I2C object
+ *  @param data    The buffer for sending
+ *  @param length  Number of bytes to write
  *  @return non-zero if a value is available
  */
 …
 /**
+ * \defgroup AsynchI2C Asynchronous I2C Hardware Abstraction Layer
+ * @{
+ */
+/** Start i2c asynchronous transfer.
+ * \defgroup hal_AsynchI2C Asynchronous I2C Hardware Abstraction Layer
+ * @{
+ */
+/** Start I2C asynchronous transfer
+ *
  *  @param obj       The I2C object
  *  @param tx        The buffer to send
  *  @param tx_length The number of words to transmit
  *  @param rx        The buffer to receive
  *  @param rx_length The number of words to receive
  *  @param address   The address to be set - 7bit or 9 bit
+ *  @param tx        The transmit buffer
+ *  @param tx_length The number of bytes to transmit
+ *  @param rx        The receive buffer
+ *  @param rx_length The number of bytes to receive
+ *  @param address   The address to be set - 7bit or 9bit
  *  @param stop      If true, stop will be generated after the transfer is done
  *  @param handler   The I2C IRQ handler to be set
+ *  @param event     Event mask for the transfer. See \ref hal_I2CEvents
  *  @param hint      DMA hint usage
  */
 …
 /** The asynchronous IRQ handler
+ *
  *  @param obj The I2C object which holds the transfer information
  *  @return event flags if a transfer termination condition was met or 0 otherwise.
+ *  @return Event flags if a transfer termination condition was met, otherwise return 0.
  */
 uint32_t i2c_irq_handler_asynch(i2c_t *obj);
+/** Attempts to determine if I2C peripheral is already in use.
+ *  @param obj The I2C object
+ *  @return non-zero if the I2C module is active or zero if it is not
+/** Attempts to determine if the I2C peripheral is already in use
+ *
+ *  @param obj The I2C object
+ *  @return Non-zero if the I2C module is active or zero if it is not
  */
 uint8_t i2c_active(i2c_t *obj);
+/** Abort ongoing asynchronous transaction.
+/** Abort asynchronous transfer
+ *
+ *  This function does not perform any check - that should happen in upper layers.
  *  @param obj The I2C object
  */
 …
 #endif
+/** @}*/

EcnlProtoTool/trunk/asp3_dcre/mbed/hal/lp_ticker_api.h

-              r321
+              r429
+/** \addtogroup hal */
+/** @{*/
 /* mbed Microcontroller Library
  * Copyright (c) 2015 ARM Limited
 …
 #include "device.h"
 #if DEVICE_LOWPOWERTIMER
 #include "ticker_api.h"
+#if DEVICE_LPTICKER
+#include "hal/ticker_api.h"
 #ifdef __cplusplus
 …
 /**
+ * \defgroup LpTicker Low Power Ticker Functions
+ * \defgroup hal_lp_ticker Low Power Ticker
+ * Low level interface to the low power ticker of a target
+ *
+ * # Defined behavior
+ * * Has a reported frequency between 4KHz and 64KHz - verified by ::lp_ticker_info_test
+ * * Has a counter that is at least 12 bits wide - verified by ::lp_ticker_info_test
+ * * Continues operating in deep sleep mode - verified by ::lp_ticker_deepsleep_test
+ * * All behavior defined by the @ref hal_ticker_shared "ticker specification"
+ *
+ * # Undefined behavior
+ * * See the @ref hal_ticker_shared "ticker specification"
+ * * Calling any function other than lp_ticker_init after calling lp_ticker_free
+ *
+ * # Potential bugs
+ * * Glitches due to ripple counter - Verified by ::lp_ticker_glitch_test
+ *
+ * @see hal_lp_ticker_tests
+ *
  * @{
  */
+/**
+ * \defgroup hal_lp_ticker_tests Low Power Ticker tests
+ * Tests to validate the proper implementation of the low power ticker
+ *
+ * To run the low power ticker hal tests use the command:
+ *
+ *     mbed test -t <toolchain> -m <target> -n tests-mbed_hal-common_ticker*,tests-mbed_hal-lp_ticker*
+ *
+ */
+typedef void (*ticker_irq_handler_type)(const ticker_data_t *const);
+/** Set low power ticker IRQ handler
+ *
+ * @param ticker_irq_handler IRQ handler to be connected
+ *
+ * @return previous ticker IRQ handler
+ *
+ * @note by default IRQ handler is set to ::ticker_irq_handler
+ * @note this function is primarily for testing purposes and it's not required part of HAL implementation
+ *
+ */
+ticker_irq_handler_type set_lp_ticker_irq_handler(ticker_irq_handler_type ticker_irq_handler);
 /** Get low power ticker's data
+ *
  * @return The low power ticker data
  */
 const ticker_data_t* get_lp_ticker_data(void);
+const ticker_data_t *get_lp_ticker_data(void);
 /** The wrapper for ticker_irq_handler, to pass lp ticker's data
 …
 /** Initialize the low power ticker
+ *
+ * Initialize or re-initialize the ticker. This resets all the
+ * clocking and prescaler registers, along with disabling
+ * the compare interrupt.
+ *
+ * Pseudo Code:
+ * @code
+ * void lp_ticker_init()
+ * {
+ *     // Enable clock gate so processor can read LPTMR registers
+ *     POWER_CTRL |= POWER_CTRL_LPTMR_Msk;
+ *
+ *     // Disable the timer and ensure it is powered down
+ *     LPTMR_CTRL &= ~(LPTMR_CTRL_ENABLE_Msk | LPTMR_CTRL_COMPARE_ENABLE_Msk);
+ *
+ *     // Configure divisors - no division necessary
+ *     LPTMR_PRESCALE = 0;
+ *     LPTMR_CTRL |= LPTMR_CTRL_ENABLE_Msk;
+ *
+ *     // Install the interrupt handler
+ *     NVIC_SetVector(LPTMR_IRQn, (uint32_t)lp_ticker_irq_handler);
+ *     NVIC_EnableIRQ(LPTMR_IRQn);
+ * }
+ * @endcode
  */
 void lp_ticker_init(void);
+/** Read the current counter
+ *
+ * @return The current timer's counter value in microseconds
+/** Deinitialize the lower power ticker
+ *
+ * Powerdown the lp ticker in preparation for sleep, powerdown, or reset.
+ *
+ * After calling this function no other ticker functions should be called except
+ * lp_ticker_init(). Calling any function other than init after freeing is
+ * undefined.
+ *
+ * @note This function stops the ticker from counting.
+ */
+void lp_ticker_free(void);
+/** Read the current tick
+ *
+ * If no rollover has occurred, the seconds passed since lp_ticker_init()
+ * was called can be found by dividing the ticks returned by this function
+ * by the frequency returned by ::lp_ticker_get_info.
+ *
+ * @return The current timer's counter value in ticks
+ *
+ * Pseudo Code:
+ * @code
+ * uint32_t lp_ticker_read()
+ * {
+ *     uint16_t count;
+ *     uint16_t last_count;
+ *
+ *     // Loop until the same tick is read twice since this
+ *     // is ripple counter on a different clock domain.
+ *     count = LPTMR_COUNT;
+ *     do {
+ *         last_count = count;
+ *         count = LPTMR_COUNT;
+ *     } while (last_count != count);
+ *
+ *     return count;
+ * }
+ * @endcode
  */
 uint32_t lp_ticker_read(void);
 …
 /** Set interrupt for specified timestamp
+ *
+ * @param timestamp The time in microseconds to be set
+ * @param timestamp The time in ticks to be set
+ *
+ * @note no special handling needs to be done for times in the past
+ * as the common timer code will detect this and call
+ * lp_ticker_fire_interrupt() if this is the case
+ *
+ * @note calling this function with timestamp of more than the supported
+ * number of bits returned by ::lp_ticker_get_info results in undefined
+ * behavior.
+ *
+ * Pseudo Code:
+ * @code
+ * void lp_ticker_set_interrupt(timestamp_t timestamp)
+ * {
+ *     LPTMR_COMPARE = timestamp;
+ *     LPTMR_CTRL |= LPTMR_CTRL_COMPARE_ENABLE_Msk;
+ * }
+ * @endcode
  */
 void lp_ticker_set_interrupt(timestamp_t timestamp);
 …
 /** Disable low power ticker interrupt
+ *
+ * Pseudo Code:
+ * @code
+ * void lp_ticker_disable_interrupt(void)
+ * {
+ *     // Disable the compare interrupt
+ *     LPTMR_CTRL &= ~LPTMR_CTRL_COMPARE_ENABLE_Msk;
+ * }
+ * @endcode
  */
 void lp_ticker_disable_interrupt(void);
 …
 /** Clear the low power ticker interrupt
+ *
+ * Pseudo Code:
+ * @code
+ * void lp_ticker_clear_interrupt(void)
+ * {
+ *     // Write to the ICR (interrupt clear register) of the LPTMR
+ *     LPTMR_ICR = LPTMR_ICR_COMPARE_Msk;
+ * }
+ * @endcode
  */
 void lp_ticker_clear_interrupt(void);
+/** Set pending interrupt that should be fired right away.
+ *
+ * Pseudo Code:
+ * @code
+ * void lp_ticker_fire_interrupt(void)
+ * {
+ *     NVIC_SetPendingIRQ(LPTMR_IRQn);
+ * }
+ * @endcode
+ */
+void lp_ticker_fire_interrupt(void);
+/** Get frequency and counter bits of this ticker.
+ *
+ * Pseudo Code:
+ * @code
+ * const ticker_info_t* lp_ticker_get_info()
+ * {
+ *     static const ticker_info_t info = {
+ *         32768,      // 32KHz
+ *         16          // 16 bit counter
+ *     };
+ *     return &info;
+ * }
+ * @endcode
+ */
+const ticker_info_t *lp_ticker_get_info(void);
 /**@}*/
 …
 #endif
+/** @}*/

EcnlProtoTool/trunk/asp3_dcre/mbed/hal/pinmap.h

-              r321
+              r429
+/** \addtogroup hal */
+/** @{*/
 /* mbed Microcontroller Library
  * Copyright (c) 2006-2013 ARM Limited
 …
 #endif
+/** @}*/

EcnlProtoTool/trunk/asp3_dcre/mbed/hal/port_api.h

-              r321
+              r429
+/** \addtogroup hal */
+/** @{*/
 /* mbed Microcontroller Library
  * Copyright (c) 2006-2013 ARM Limited
 …
 #endif
+/** Port HAL structure. port_s is declared in the target's HAL
+ */
 typedef struct port_s port_t;
+/**
+ * \defgroup hal_port Port HAL functions
+ * @{
+ */
+/** Get the pin name from the port's pin number
+ *
+ * @param port  The port name
+ * @param pin_n The pin number within the specified port
+ * @return The pin name for the port's pin number
+ */
 PinName port_pin(PortName port, int pin_n);
+void port_init (port_t *obj, PortName port, int mask, PinDirection dir);
+void port_mode (port_t *obj, PinMode mode);
+void port_dir  (port_t *obj, PinDirection dir);
+/** Initilize the port
+ *
+ * @param obj  The port object to initialize
+ * @param port The port name
+ * @param mask The bitmask to identify which bits in the port should be included (0 - ignore)
+ * @param dir  The port direction
+ */
+void port_init(port_t *obj, PortName port, int mask, PinDirection dir);
+/** Set the input port mode
+ *
+ * @param obj  The port object
+ * @param mode THe port mode to be set
+ */
+void port_mode(port_t *obj, PinMode mode);
+/** Set port direction (in/out)
+ *
+ * @param obj The port object
+ * @param dir The port direction to be set
+ */
+void port_dir(port_t *obj, PinDirection dir);
+/** Write value to the port
+ *
+ * @param obj   The port object
+ * @param value The value to be set
+ */
 void port_write(port_t *obj, int value);
+int  port_read (port_t *obj);
+/** Read the current value on the port
+ *
+ * @param obj The port object
+ * @return An integer with each bit corresponding to an associated port pin setting
+ */
+int port_read(port_t *obj);
+/**@}*/
 #ifdef __cplusplus
 …
 #endif
+/** @}*/

EcnlProtoTool/trunk/asp3_dcre/mbed/hal/pwmout_api.h

-              r321
+              r429
+/** \addtogroup hal */
+/** @{*/
 /* mbed Microcontroller Library
  * Copyright (c) 2006-2013 ARM Limited
 …
 #endif
+/** Pwmout hal structure. pwmout_s is declared in the target's hal
+ */
 typedef struct pwmout_s pwmout_t;
+void pwmout_init         (pwmout_t* obj, PinName pin);
+void pwmout_free         (pwmout_t* obj);
+/**
+ * \defgroup hal_pwmout Pwmout hal functions
+ * @{
+ */
+void  pwmout_write       (pwmout_t* obj, float percent);
+float pwmout_read        (pwmout_t* obj);
+/** Initialize the pwm out peripheral and configure the pin
+ *
+ * @param obj The pwmout object to initialize
+ * @param pin The pwmout pin to initialize
+ */
+void pwmout_init(pwmout_t *obj, PinName pin);
+void pwmout_period       (pwmout_t* obj, float seconds);
+void pwmout_period_ms    (pwmout_t* obj, int ms);
+void pwmout_period_us    (pwmout_t* obj, int us);
+/** Deinitialize the pwmout object
+ *
+ * @param obj The pwmout object
+ */
+void pwmout_free(pwmout_t *obj);
+void pwmout_pulsewidth   (pwmout_t* obj, float seconds);
+void pwmout_pulsewidth_ms(pwmout_t* obj, int ms);
+void pwmout_pulsewidth_us(pwmout_t* obj, int us);
+/** Set the output duty-cycle in range <0.0f, 1.0f>
+ *
+ * Value 0.0f represents 0 percentage, 1.0f represents 100 percent.
+ * @param obj     The pwmout object
+ * @param percent The floating-point percentage number
+ */
+void pwmout_write(pwmout_t *obj, float percent);
+/** Read the current float-point output duty-cycle
+ *
+ * @param obj The pwmout object
+ * @return A floating-point output duty-cycle
+ */
+float pwmout_read(pwmout_t *obj);
+/** Set the PWM period specified in seconds, keeping the duty cycle the same
+ *
+ * Periods smaller than microseconds (the lowest resolution) are set to zero.
+ * @param obj     The pwmout object
+ * @param seconds The floating-point seconds period
+ */
+void pwmout_period(pwmout_t *obj, float seconds);
+/** Set the PWM period specified in miliseconds, keeping the duty cycle the same
+ *
+ * @param obj The pwmout object
+ * @param ms  The milisecond period
+ */
+void pwmout_period_ms(pwmout_t *obj, int ms);
+/** Set the PWM period specified in microseconds, keeping the duty cycle the same
+ *
+ * @param obj The pwmout object
+ * @param us  The microsecond period
+ */
+void pwmout_period_us(pwmout_t *obj, int us);
+/** Set the PWM pulsewidth specified in seconds, keeping the period the same.
+ *
+ * @param obj     The pwmout object
+ * @param seconds The floating-point pulsewidth in seconds
+ */
+void pwmout_pulsewidth(pwmout_t *obj, float seconds);
+/** Set the PWM pulsewidth specified in miliseconds, keeping the period the same.
+ *
+ * @param obj The pwmout object
+ * @param ms  The floating-point pulsewidth in miliseconds
+ */
+void pwmout_pulsewidth_ms(pwmout_t *obj, int ms);
+/** Set the PWM pulsewidth specified in microseconds, keeping the period the same.
+ *
+ * @param obj The pwmout object
+ * @param us  The floating-point pulsewidth in microseconds
+ */
+void pwmout_pulsewidth_us(pwmout_t *obj, int us);
+/**@}*/
 #ifdef __cplusplus
 …
 #endif
+/** @}*/

EcnlProtoTool/trunk/asp3_dcre/mbed/hal/rtc_api.h

-              r321
+              r429
  * limitations under the License.
  */
+/** \addtogroup hal */
+/** @{*/
 #ifndef MBED_RTC_API_H
 #define MBED_RTC_API_H
 #include "device.h"
-#if DEVICE_RTC
 #include <time.h>
 …
 #endif
+/**
+ * \defgroup hal_rtc RTC hal
+ *
+ * The RTC hal provides a low level interface to the Real Time Counter (RTC) of a
+ * target.
+ *
+ * # Defined behaviour
+ * * The function ::rtc_init is safe to call repeatedly - Verified by test ::rtc_init_test.
+ * * RTC accuracy is at least 10% - Verified by test ::rtc_accuracy_test.
+ * * Init/free doesn't stop RTC from counting - Verified by test ::rtc_persist_test.
+ * * Software reset doesn't stop RTC from counting - Verified by test ::rtc_reset_test.
+ * * Sleep modes don't stop RTC from counting - Verified by test ::rtc_sleep_test.
+ * * Shutdown mode doesn't stop RTC from counting - Not verified.
+ * * The functions ::rtc_write/::rtc_read provides availability to set/get RTC time
+ * - Verified by test ::rtc_write_read_test.
+ * * The functions ::rtc_isenabled returns 1 if the RTC is counting and the time has been set,
+ * 0 otherwise - Verified by test ::rtc_enabled_test.
+ *
+ * # Undefined behaviour
+ * * Calling any function other than ::rtc_init before the initialisation of the RTC
+ *
+ * # Potential bugs
+ * * Incorrect overflow handling - Verified by ::rtc_range_test
+ * * Glitches due to ripple counter - Verified by ::rtc_glitch_test
+ *
+ * @see hal_rtc_tests
+ *
+ * @{
+ */
+/**
+ * \defgroup hal_rtc_tests RTC hal tests
+ * The RTC test validate proper implementation of the RTC hal.
+ *
+ * To run the RTC hal tests use the command:
+ *
+ *     mbed test -t <toolchain> -m <target> -n tests-mbed_hal-rtc*
+ */
+/** Initialize the RTC peripheral
+ *
+ * Powerup the RTC in perpetration for access. This function must be called
+ * before any other RTC functions ares called. This does not change the state
+ * of the RTC. It just enables access to it.
+ *
+ * @note This function is safe to call repeatedly - Tested by ::rtc_init_test
+ *
+ * Example Implementation Pseudo Code:
+ * @code
+ * void rtc_init()
+ * {
+ *     // Enable clock gate so processor can read RTC registers
+ *     POWER_CTRL |= POWER_CTRL_RTC_Msk;
+ *
+ *     // See if the RTC is already setup
+ *     if (!(RTC_STATUS & RTC_STATUS_COUNTING_Msk)) {
+ *
+ *         // Setup the RTC clock source
+ *         RTC_CTRL |= RTC_CTRL_CLK32_Msk;
+ *     }
+ * }
+ * @endcode
+ */
 void rtc_init(void);
+/** Deinitialize RTC
+ *
+ * Powerdown the RTC in preparation for sleep, powerdown or reset. That should only
+ * affect the CPU domain and not the time keeping logic.
+ * After this function is called no other RTC functions should be called
+ * except for ::rtc_init.
+ *
+ * @note This function does not stop the RTC from counting - Tested by ::rtc_persist_test
+ *
+ * Example Implementation Pseudo Code:
+ * @code
+ * void rtc_free()
+ * {
+ *     // Disable clock gate since processor no longer needs to read RTC registers
+ *     POWER_CTRL &= ~POWER_CTRL_RTC_Msk;
+ * }
+ * @endcode
+ */
 void rtc_free(void);
+/** Check if the RTC has the time set and is counting
+ *
+ * @retval 0 The time reported by the RTC is not valid
+ * @retval 1 The time has been set the RTC is counting
+ *
+ * Example Implementation Pseudo Code:
+ * @code
+ * int rtc_isenabled()
+ * {
+ *     if (RTC_STATUS & RTC_STATUS_COUNTING_Msk) {
+ *         return 1;
+ *     } else {
+ *         return 0;
+ *     }
+ * }
+ * @endcode
+ */
 int rtc_isenabled(void);
+/** Get the current time from the RTC peripheral
+ *
+ * @return The current time in seconds
+ *
+ * @note Some RTCs are not synchronized with the main clock. If
+ * this is the case with your RTC then you must read the RTC time
+ * in a loop to prevent reading the wrong time due to a glitch.
+ * The test ::rtc_glitch_test is intended to catch this bug.
+ *
+ * Example implementation for an unsynchronized ripple counter:
+ * @code
+ * time_t rtc_read()
+ * {
+ *     uint32_t val;
+ *     uint32_t last_val;
+ *
+ *     // Loop until the same value is read twice
+ *     val = RTC_SECONDS;
+ *     do {
+ *         last_val = val;
+ *         val = RTC_SECONDS;
+ *     } while (last_val != val);
+ *
+ *     return (time_t)val;
+ * }
+ * @endcode
+ */
 time_t rtc_read(void);
+/** Write the current time in seconds to the RTC peripheral
+ *
+ * @param t The current time to be set in seconds.
+ *
+ * Example Implementation Pseudo Code:
+ * @code
+ * void rtc_write(time_t t)
+ * {
+ *     RTC_SECONDS = t;
+ * }
+ * @endcode
+ */
 void rtc_write(time_t t);
+/**@}*/
 #ifdef __cplusplus
 …
 #endif
+#endif
+/** @}*/

EcnlProtoTool/trunk/asp3_dcre/mbed/hal/serial_api.h

-              r321
+              r429
+/** \addtogroup hal */
+/** @{*/
 /* mbed Microcontroller Library
  * Copyright (c) 2006-2013 ARM Limited
 …
 #include "device.h"
 #include "buffer.h"
 #include "dma_api.h"
+#include "hal/buffer.h"
+#include "hal/dma_api.h"
 #if DEVICE_SERIAL
 …
 #if DEVICE_SERIAL_ASYNCH
 /** Asynch serial hal structure
+/** Asynch serial HAL structure
  */
 typedef struct {
     struct serial_s serial;  /**< Target specific serial structure */
     struct buffer_s tx_buff; /**< Tx buffer */
     struct buffer_s rx_buff; /**< Rx buffer */
+    struct buffer_s tx_buff; /**< TX buffer */
+    struct buffer_s rx_buff; /**< RX buffer */
     uint8_t char_match;      /**< Character to be matched */
     uint8_t char_found;      /**< State of the matched character */
 …
 #else
 /** Non-asynch serial hal structure
+/** Non-asynch serial HAL structure
  */
 typedef struct serial_s serial_t;
 …
 /**
  * \defgroup GeneralSerial Serial Configuration Functions
+ * \defgroup hal_GeneralSerial Serial Configuration Functions
  * @{
  */
 /** Initialize the serial peripheral. It sets the default parameters for serial
  *  peripheral, and configure its specifieds pins.
+ *
  * @param obj The serial object
  * @param tx  The TX pin
  * @param rx  The RX pin
+ *  peripheral, and configures its specifieds pins.
+ *
+ * @param obj The serial object
+ * @param tx  The TX pin name
+ * @param rx  The RX pin name
  */
 void serial_init(serial_t *obj, PinName tx, PinName rx);
 …
 void serial_format(serial_t *obj, int data_bits, SerialParity parity, int stop_bits);
 /** The serial interrupt handler registration.
+/** The serial interrupt handler registration
+ *
  * @param obj     The serial object
  * @param handler The interrupt handler which will be invoked when interrupt fires.
+ * @param handler The interrupt handler which will be invoked when the interrupt fires
  * @param id      The SerialBase object
  */
 …
 int  serial_getc(serial_t *obj);
 /** Put a character. This is a blocking call, waiting for a peripheral to be available
+/** Send a character. This is a blocking call, waiting for a peripheral to be available
  *  for writing
+ *
 …
+ *
  * @param obj The serial object
  * @return Non-zero value if a character can be read, 0 if nothing to read.
+ * @return Non-zero value if a character can be read, 0 if nothing to read
  */
 int  serial_readable(serial_t *obj);
 …
 /** Configure the TX pin for UART function.
+ *
  * @param tx The pin used for TX
+ * @param tx The pin name used for TX
  */
 void serial_pinout_tx(PinName tx);
 …
  * @param obj    The serial object
  * @param type   The type of the flow control. Look at the available FlowControl types.
  * @param rxflow The tx pin
  * @param txflow The rx pin
+ * @param rxflow The TX pin name
+ * @param txflow The RX pin name
  */
 void serial_set_flow_control(serial_t *obj, FlowControl type, PinName rxflow, PinName txflow);
 …
 /**
  * \defgroup AsynchSerial Asynchronous Serial Hardware Abstraction Layer
+ * \defgroup hal_AsynchSerial Asynchronous Serial Hardware Abstraction Layer
  * @{
  */
 …
+ *
  * @param obj       The serial object
  * @param tx        The buffer for sending
  * @param tx_length The number of words to transmit
  * @param tx_width  The bit width of buffer word
+ * @param tx        The transmit buffer
+ * @param tx_length The number of bytes to transmit
+ * @param tx_width  Deprecated argument
  * @param handler   The serial handler
  * @param event     The logical OR of events to be registered
  * @param hint      A suggestion for how to use DMA with this transfer
  * @return Returns number of data transfered, or 0 otherwise
+ * @return Returns number of data transfered, otherwise returns 0
  */
 int serial_tx_asynch(serial_t *obj, const void *tx, size_t tx_length, uint8_t tx_width, uint32_t handler, uint32_t event, DMAUsage hint);
 …
+ *
  * @param obj        The serial object
  * @param rx         The buffer for sending
  * @param rx_length  The number of words to transmit
  * @param rx_width   The bit width of buffer word
+ * @param rx         The receive buffer
+ * @param rx_length  The number of bytes to receive
+ * @param rx_width   Deprecated argument
  * @param handler    The serial handler
  * @param event      The logical OR of events to be registered
 …
+ *
  * @param obj The serial object
  * @return Returns event flags if a RX transfer termination condition was met or 0 otherwise
+ * @return Returns event flags if an RX transfer termination condition was met; otherwise returns 0
  */
 int serial_irq_handler_asynch(serial_t *obj);
 /** Abort the ongoing TX transaction. It disables the enabled interupt for TX and
  *  flush TX hardware buffer if TX FIFO is used
+ *  flushes the TX hardware buffer if TX FIFO is used
+ *
  * @param obj The serial object
 …
 void serial_tx_abort_asynch(serial_t *obj);
 /** Abort the ongoing RX transaction It disables the enabled interrupt for RX and
  *  flush RX hardware buffer if RX FIFO is used
+/** Abort the ongoing RX transaction. It disables the enabled interrupt for RX and
+ *  flushes the RX hardware buffer if RX FIFO is used
+ *
  * @param obj The serial object
 …
 #endif
+/** @}*/

EcnlProtoTool/trunk/asp3_dcre/mbed/hal/sleep_api.h

-              r321
+              r429
+/** \addtogroup hal */
+/** @{*/
 /* mbed Microcontroller Library
  * Copyright (c) 2006-2013 ARM Limited
 …
 #endif
+/**
+ * \defgroup hal_sleep sleep hal requirements
+ * Low level interface to the sleep mode of a target.
+ *
+ * # Defined behaviour
+ *
+ * * Sleep mode
+ *   * wake-up time should be less than 10 us - Verified by sleep_usticker_test().
+ *   * the processor can be woken up by any internal peripheral interrupt  - Verified by sleep_usticker_test().
+ *   * all peripherals operate as in run mode - not verified.
+ *   * the processor can be woken up by external pin interrupt - not verified.
+ * * Deep sleep
+ *   * the wake-up time should be less than 10 ms - Verified by deepsleep_lpticker_test().
+ *   * lp ticker should wake up a target from this mode - Verified by deepsleep_lpticker_test().
+ *   * RTC should wake up a target from this mode - not verified.
+ *   * an external interrupt on a pin should wake up a target from this mode - not verified.
+ *   * a watchdog timer should wake up a target from this mode - not verified.
+ *   * High-speed clocks are turned off - Verified by deepsleep_high_speed_clocks_turned_off_test().
+ *   * RTC keeps time - Verified by rtc_sleep_test().
+ *
+ * # Undefined behaviour
+ *
+ * * peripherals aside from RTC, GPIO and lp ticker result in undefined behaviour in deep sleep.
+ * @{
+ */
+/**
+ * \defgroup hal_sleep_tests sleep hal tests
+ * The sleep HAL tests ensure driver conformance to defined behaviour.
+ *
+ * To run the sleep hal tests use the command:
+ *
+ *     mbed test -t <toolchain> -m <target> -n tests-mbed_hal-sleep*
+ *
+ */
 /** Send the microcontroller to sleep
+ *
  * The processor is setup ready for sleep, and sent to sleep using __WFI(). In this mode, the
+ * The processor is setup ready for sleep, and sent to sleep. In this mode, the
  * system clock to the core is stopped until a reset or an interrupt occurs. This eliminates
  * dynamic power used by the processor, memory systems and buses. The processor, peripheral and
 …
  * The processor can be woken up by any internal peripheral interrupt or external pin interrupt.
+ *
+ * @note
+ *  The mbed interface semihosting is disconnected as part of going to sleep, and can not be restored.
+ * Flash re-programming and the USB serial port will remain active, but the mbed program will no longer be
+ * able to access the LocalFileSystem
+ * The wake-up time shall be less than 10 us.
+ *
  */
 void sleep(void);
+void hal_sleep(void);
 /** Send the microcontroller to deep sleep
+ *
  * This processor is setup ready for deep sleep, and sent to sleep using __WFI(). This mode
  * has the same sleep features as sleep plus it powers down peripherals and clocks. All state
  * is still maintained.
+ * has the same sleep features as sleep plus it powers down peripherals and high frequency clocks.
+ * All state is still maintained.
+ *
  * The processor can only be woken up by an external interrupt on a pin or a watchdog timer.
+ * The processor can only be woken up by low power ticker, RTC, an external interrupt on a pin or a watchdog timer.
+ *
+ * @note
+ *  The mbed interface semihosting is disconnected as part of going to sleep, and can not be restored.
+ * Flash re-programming and the USB serial port will remain active, but the mbed program will no longer be
+ * able to access the LocalFileSystem
+ * The wake-up time shall be less than 10 ms.
  */
+void deepsleep(void);
+void hal_deepsleep(void);
+/**@}*/
 #ifdef __cplusplus
 …
 #endif
+/** @}*/

EcnlProtoTool/trunk/asp3_dcre/mbed/hal/spi_api.h

-              r321
+              r429
+/** \addtogroup hal */
+/** @{*/
 /* mbed Microcontroller Library
  * Copyright (c) 2006-2013 ARM Limited
 …
 #include "device.h"
 #include "dma_api.h"
 #include "buffer.h"
+#include "hal/dma_api.h"
+#include "hal/buffer.h"
 #if DEVICE_SPI
 …
 #define SPI_EVENT_ALL         (SPI_EVENT_ERROR | SPI_EVENT_COMPLETE | SPI_EVENT_RX_OVERFLOW)
 #define SPI_EVENT_INTERNAL_TRANSFER_COMPLETE (1 << 30) // internal flag to report an event occurred
+#define SPI_EVENT_INTERNAL_TRANSFER_COMPLETE (1 << 30) // Internal flag to report that an event occurred
 #define SPI_FILL_WORD         (0xFFFF)
+#define SPI_FILL_CHAR         (0xFF)
 #if DEVICE_SPI_ASYNCH
 /** Asynch spi hal structure
+/** Asynch SPI HAL structure
  */
 typedef struct {
     struct spi_s spi;        /**< Target specific spi structure */
+    struct spi_s spi;        /**< Target specific SPI structure */
     struct buffer_s tx_buff; /**< Tx buffer */
     struct buffer_s rx_buff; /**< Rx buffer */
 …
 #else
 /** Non-asynch spi hal structure
+/** Non-asynch SPI HAL structure
  */
 typedef struct spi_s spi_t;
 …
 /**
  * \defgroup GeneralSPI SPI Configuration Functions
+ * \defgroup hal_GeneralSPI SPI Configuration Functions
  * @{
  */
 …
 /** Configure the SPI format
+ *
+ * Set the number of bits per frame, configure clock polarity and phase, shift order and master/slave mode
+ * Set the number of bits per frame, configure clock polarity and phase, shift order and master/slave mode.
+ * The default bit order is MSB.
  * @param[in,out] obj   The SPI object to configure
  * @param[in]     bits  The number of bits per frame
 …
 int  spi_master_write(spi_t *obj, int value);
+/** Write a block out in master mode and receive a value
+ *
+ *  The total number of bytes sent and received will be the maximum of
+ *  tx_length and rx_length. The bytes written will be padded with the
+ *  value 0xff.
+ *
+ * @param[in] obj        The SPI peripheral to use for sending
+ * @param[in] tx_buffer  Pointer to the byte-array of data to write to the device
+ * @param[in] tx_length  Number of bytes to write, may be zero
+ * @param[in] rx_buffer  Pointer to the byte-array of data to read from the device
+ * @param[in] rx_length  Number of bytes to read, may be zero
+ * @param[in] write_fill Default data transmitted while performing a read
+ * @returns
+ *      The number of bytes written and read from the device. This is
+ *      maximum of tx_length and rx_length.
+ */
+int spi_master_block_write(spi_t *obj, const char *tx_buffer, int tx_length, char *rx_buffer, int rx_length, char write_fill);
 /** Check if a value is available to read
+ *
 …
 /** Begin the SPI transfer. Buffer pointers and lengths are specified in tx_buff and rx_buff
+ *
  * @param[in] obj       The SPI object which holds the transfer information
  * @param[in] tx        The buffer to send
  * @param[in] tx_length The number of words to transmit
  * @param[in] rx        The buffer to receive
  * @param[in] rx_length The number of words to receive
+ * @param[in] obj       The SPI object that holds the transfer information
+ * @param[in] tx        The transmit buffer
+ * @param[in] tx_length The number of bytes to transmit
+ * @param[in] rx        The receive buffer
+ * @param[in] rx_length The number of bytes to receive
  * @param[in] bit_width The bit width of buffer words
  * @param[in] event     The logical OR of events to be registered
 …
  * Reads the received values out of the RX FIFO, writes values into the TX FIFO and checks for transfer termination
  * conditions, such as buffer overflows or transfer complete.
  * @param[in] obj     The SPI object which holds the transfer information
  * @return event flags if a transfer termination condition was met or 0 otherwise.
+ * @param[in] obj     The SPI object that holds the transfer information
+ * @return Event flags if a transfer termination condition was met; otherwise 0.
  */
 uint32_t spi_irq_handler_asynch(spi_t *obj);
 /** Attempts to determine if the SPI peripheral is already in use.
+/** Attempts to determine if the SPI peripheral is already in use
+ *
  * If a temporary DMA channel has been allocated, peripheral is in use.
 …
  * there are any bytes in the FIFOs.
  * @param[in] obj The SPI object to check for activity
  * @return non-zero if the SPI port is active or zero if it is not.
+ * @return Non-zero if the SPI port is active or zero if it is not.
  */
 uint8_t spi_active(spi_t *obj);
 …
 #endif // MBED_SPI_API_H
+/** @}*/

EcnlProtoTool/trunk/asp3_dcre/mbed/hal/ticker_api.h

-              r321
+              r429
+/** \addtogroup hal */
+/** @{*/
 /* mbed Microcontroller Library
  * Copyright (c) 2015 ARM Limited
 …
 #define MBED_TICKER_API_H
+#include <stdint.h>
+#include <stdbool.h>
 #include "device.h"
+/**
+ * Legacy format representing a timestamp in us.
+ * Given it is modeled as a 32 bit integer, this type can represent timestamp
+ * up to 4294 seconds (71 minutes).
+ * Prefer using us_timestamp_t which store timestamp as 64 bits integer.
+ */
 typedef uint32_t timestamp_t;
+/**
+ * A us timestamp stored in a 64 bit integer.
+ * Can store timestamp up to 584810 years.
+ */
+typedef uint64_t us_timestamp_t;
 /** Ticker's event structure
  */
 typedef struct ticker_event_s {
     timestamp_t            timestamp; /**< Event's timestamp */
+    us_timestamp_t         timestamp; /**< Event's timestamp */
     uint32_t               id;        /**< TimerEvent object */
     struct ticker_event_s *next;      /**< Next event in the queue */
 …
 typedef void (*ticker_event_handler)(uint32_t id);
+/** Information about the ticker implementation
+ */
+typedef struct {
+    uint32_t frequency;                           /**< Frequency in Hz this ticker runs at */
+    uint32_t bits;                                /**< Number of bits this ticker supports */
+} ticker_info_t;
 /** Ticker's interface structure - required API for a ticker
 …
     void (*clear_interrupt)(void);                /**< Clear interrupt function */
     void (*set_interrupt)(timestamp_t timestamp); /**< Set interrupt function */
+    void (*fire_interrupt)(void);                 /**< Fire interrupt right-away */
+    void (*free)(void);                           /**< Disable function */
+    const ticker_info_t *(*get_info)(void);       /**< Return info about this ticker's implementation */
 } ticker_interface_t;
 /** Tickers events queue structure
+/** Ticker's event queue structure
  */
 typedef struct {
     ticker_event_handler event_handler; /**< Event handler */
     ticker_event_t *head;               /**< A pointer to head */
+    uint32_t frequency;                 /**< Frequency of the timer in Hz */
+    uint32_t bitmask;                   /**< Mask to be applied to time values read */
+    uint32_t max_delta;                 /**< Largest delta in ticks that can be used when scheduling */
+    uint64_t max_delta_us;              /**< Largest delta in us that can be used when scheduling */
+    uint32_t tick_last_read;            /**< Last tick read */
+    uint64_t tick_remainder;            /**< Ticks that have not been added to base_time */
+    us_timestamp_t present_time;        /**< Store the timestamp used for present time */
+    bool initialized;                   /**< Indicate if the instance is initialized */
+    bool dispatching;                   /**< The function ticker_irq_handler is dispatching */
+    bool suspended;                     /**< Indicate if the instance is suspended */
+    uint8_t frequency_shifts;           /**< If frequency is a value of 2^n, this is n, otherwise 0 */
 } ticker_event_queue_t;
 /** Tickers data structure
+/** Ticker's data structure
  */
 typedef struct {
     const ticker_interface_t *interface; /**< Ticker's interface */
     ticker_event_queue_t *queue;         /**< Ticker's events queue */
+    ticker_event_queue_t *queue;         /**< Ticker's event queue */
 } ticker_data_t;
 …
 #endif
+/** Initialize a ticker and sets the event handler
+ *
+ * @param data    The ticker's data
+/**
+ * \defgroup hal_ticker Ticker HAL functions
+ * @{
+ */
+/** Initialize a ticker and set the event handler
+ *
+ * @param ticker The ticker object.
  * @param handler A handler to be set
  */
 void ticker_set_handler(const ticker_data_t *const data, ticker_event_handler handler);
 /** Irq handler which goes through the events to trigger events in the past.
+ *
  * @param data    The ticker's data
  */
 void ticker_irq_handler(const ticker_data_t *const data);
+void ticker_set_handler(const ticker_data_t *const ticker, ticker_event_handler handler);
+/** IRQ handler that goes through the events to trigger overdue events.
+ *
+ * @param ticker The ticker object.
+ */
+void ticker_irq_handler(const ticker_data_t *const ticker);
 /** Remove an event from the queue
+ *
+ * @param data The ticker's data
+ * @param obj  The event's queue to be removed
+ */
+void ticker_remove_event(const ticker_data_t *const data, ticker_event_t *obj);
+/** Insert an event from the queue
+ *
+ * @param data      The ticker's data
+ * @param obj       The event's queue to be removed
+ * @param ticker The ticker object.
+ * @param obj  The event object to be removed from the queue
+ */
+void ticker_remove_event(const ticker_data_t *const ticker, ticker_event_t *obj);
+/** Insert an event to the queue
+ *
+ * The event will be executed in timestamp - ticker_read().
+ *
+ * @warning This function does not consider timestamp in the past. If an event
+ * is inserted with a timestamp less than the current timestamp then the event
+ * will be executed in timestamp - ticker_read() us.
+ * The internal counter wrap very quickly it is hard to decide weither an
+ * event is in the past or in 1 hour.
+ *
+ * @note prefer the use of ticker_insert_event_us which allows registration of
+ * absolute timestamp.
+ *
+ * @param ticker    The ticker object.
+ * @param obj       The event object to be inserted to the queue
  * @param timestamp The event's timestamp
  * @param id        The event object
  */
+void ticker_insert_event(const ticker_data_t *const data, ticker_event_t *obj, timestamp_t timestamp, uint32_t id);
+/** Read the current ticker's timestamp
+ *
+ * @param data The ticker's data
+void ticker_insert_event(const ticker_data_t *const ticker, ticker_event_t *obj, timestamp_t timestamp, uint32_t id);
+/** Insert an event to the queue
+ *
+ * The event will be executed in timestamp - ticker_read_us() us.
+ *
+ * @note If an event is inserted with a timestamp less than the current
+ * timestamp then the event will be scheduled immediately resulting in
+ * an instant call to event handler.
+ *
+ * @param ticker    The ticker object.
+ * @param obj       The event object to be inserted to the queue
+ * @param timestamp The event's timestamp
+ * @param id        The event object
+ */
+void ticker_insert_event_us(const ticker_data_t *const ticker, ticker_event_t *obj, us_timestamp_t timestamp, uint32_t id);
+/** Read the current (relative) ticker's timestamp
+ *
+ * @warning Return a relative timestamp because the counter wrap every 4294
+ * seconds.
+ *
+ * @param ticker The ticker object.
  * @return The current timestamp
  */
+timestamp_t ticker_read(const ticker_data_t *const data);
+timestamp_t ticker_read(const ticker_data_t *const ticker);
+/** Read the current (absolute) ticker's timestamp
+ *
+ * @warning Return an absolute timestamp counting from the initialization of the
+ * ticker.
+ *
+ * @param ticker The ticker object.
+ * @return The current timestamp
+ */
+us_timestamp_t ticker_read_us(const ticker_data_t *const ticker);
 /** Read the next event's timestamp
+ *
+ * @param data The ticker's data
+ * @param ticker        The ticker object.
+ * @param timestamp     The timestamp object.
  * @return 1 if timestamp is pending event, 0 if there's no event pending
  */
+int ticker_get_next_timestamp(const ticker_data_t *const data, timestamp_t *timestamp);
+int ticker_get_next_timestamp(const ticker_data_t *const ticker, timestamp_t *timestamp);
+/** Suspend this ticker
+ *
+ * When suspended reads will always return the same time and no
+ * events will be dispatched. When suspended the common layer
+ * will only ever call the interface function clear_interrupt()
+ * and that is only if ticker_irq_handler is called.
+ *
+ *
+ * @param ticker        The ticker object.
+ */
+void ticker_suspend(const ticker_data_t *const ticker);
+/** Resume this ticker
+ *
+ * When resumed the ticker will ignore any time that has passed
+ * and continue counting up where it left off.
+ *
+ * @param ticker        The ticker object.
+ */
+void ticker_resume(const ticker_data_t *const ticker);
+/* Private functions
+ *
+ * @cond PRIVATE
+ *
+ */
+int _ticker_match_interval_passed(timestamp_t prev_tick, timestamp_t cur_tick, timestamp_t match_tick);
+/*
+ * @endcond PRIVATE
+ *
+ */
+/**@}*/
 #ifdef __cplusplus
 …
 #endif
+/** @}*/

EcnlProtoTool/trunk/asp3_dcre/mbed/hal/us_ticker_api.h

-              r321
+              r429
+/** \addtogroup hal */
+/** @{*/
 /* mbed Microcontroller Library
  * Copyright (c) 2006-2015 ARM Limited
 …
 #include <stdint.h>
 #include "ticker_api.h"
+#include "hal/ticker_api.h"
 #ifdef __cplusplus
 …
 /**
+ * \defgroup UsTicker Microseconds Ticker Functions
+ * \defgroup hal_us_ticker Microsecond Ticker
+ * Low level interface to the microsecond ticker of a target
+ *
+ * # Defined behavior
+ * * Has a reported frequency between 250KHz and 8MHz - Verified by test ::us_ticker_info_test
+ * * Has a counter that is at least 16 bits wide - Verified by test ::us_ticker_info_test
+ * * All behavior defined by the @ref hal_ticker_shared "ticker specification"
+ *
+ * # Undefined behavior
+ * * See the @ref hal_ticker_shared "ticker specification"
+ *
+ * @see hal_us_ticker_tests
+ *
  * @{
  */
+/**
+ * \defgroup hal_us_ticker_tests Microsecond Ticker tests
+ * Tests to validate the proper implementation of the microsecond ticker
+ *
+ * To run the microsecond ticker hal tests use the command:
+ *
+ *     mbed test -t <toolchain> -m <target> -n tests-mbed_hal-common_ticker*,tests-mbed_hal-us_ticker*
+ *
+ * @see hal_ticker_tests
+ *
+ */
+/**
+ * \defgroup hal_ticker_shared Ticker Hal
+ * Low level interface to the ticker of a target
+ *
+ * # Defined behavior
+ * * The function ticker_init is safe to call repeatedly - Verified by test ::ticker_init_test
+ * * The function ticker_init allows the ticker to keep counting and disables the ticker interrupt - Verified by test ::ticker_init_test
+ * * Ticker frequency is non-zero and counter is at least 8 bits - Verified by ::ticker_info_test
+ * * The ticker rolls over at (1 << bits) and continues counting starting from 0 - Verified by ::ticker_overflow_test
+ * * The ticker counts at the specified frequency +- 10% - Verified by ::ticker_frequency_test
+ * * The ticker increments by 1 each tick - Verified by ::ticker_increment_test
+ * * The ticker interrupt fires only when the ticker times increments to or past the value set by ticker_set_interrupt.
+ * Verified by ::ticker_interrupt_test and ::ticker_past_test
+ * * It is safe to call ticker_set_interrupt repeatedly before the handler is called - Verified by ::ticker_repeat_reschedule_test
+ * * The function ticker_fire_interrupt causes ticker_irq_handler to be called immediately from interrupt context -
+ * Verified by ::ticker_fire_now_test
+ * * The ticker operations ticker_read, ticker_clear_interrupt, ticker_set_interrupt and ticker_fire_interrupt
+ * take less than 20us to complete - Verified by ::ticker_speed_test
+ *
+ * # Undefined behavior
+ * * Calling any function other than ticker_init before the initialization of the ticker
+ * * Whether ticker_irq_handler is called a second time if the time wraps and matches the value set by ticker_set_interrupt again
+ * * Calling ticker_set_interrupt with a value that has more than the supported number of bits
+ * * Calling any function other than us_ticker_init after calling us_ticker_free
+ *
+ * # Potential bugs
+ * * Drift due to reschedule - Verified by ::ticker_repeat_reschedule_test
+ * * Incorrect overflow handling of timers - Verified by ::ticker_overflow_test
+ * * Interrupting at a time of 0 - Verified by ::ticker_overflow_test
+ * * Interrupt triggered more than once - Verified by ::ticker_interrupt_test
+ *
+ * @ingroup hal_us_ticker
+ * @ingroup hal_lp_ticker
+ */
+/**
+ * \defgroup hal_ticker_tests Ticker Tests
+ * Tests to validate the proper implementation of a ticker
+ *
+ * To run the ticker hal tests use the command:
+ *
+ *     mbed test -t <toolchain> -m <target> -n tests-mbed_hal-common_ticker*
+ *
+ * @ingroup hal_us_ticker
+ * @ingroup hal_lp_ticker
+ */
+typedef void (*ticker_irq_handler_type)(const ticker_data_t *const);
+/** Set ticker IRQ handler
+ *
+ * @param ticker_irq_handler IRQ handler to be connected
+ *
+ * @return previous ticker IRQ handler
+ *
+ * @note by default IRQ handler is set to ::ticker_irq_handler
+ * @note this function is primarily for testing purposes and it's not required part of HAL implementation
+ *
+ */
+ticker_irq_handler_type set_us_ticker_irq_handler(ticker_irq_handler_type ticker_irq_handler);
 /** Get ticker's data
+ *
  * @return The low power ticker data
  */
 const ticker_data_t* get_us_ticker_data(void);
+ * @return The microsecond ticker data
+ */
+const ticker_data_t *get_us_ticker_data(void);
 …
 /** Initialize the ticker
+ *
+ * Initialize or re-initialize the ticker. This resets all the
+ * clocking and prescaler registers, along with disabling
+ * the compare interrupt.
+ *
+ * @note Initialization properties tested by ::ticker_init_test
+ *
+ * Pseudo Code:
+ * @code
+ * void us_ticker_init()
+ * {
+ *     // Enable clock gate so processor can read TIMER registers
+ *     POWER_CTRL |= POWER_CTRL_TIMER_Msk;
+ *
+ *     // Disable the timer and ensure it is powered down
+ *     TIMER_CTRL &= ~(TIMER_CTRL_ENABLE_Msk | TIMER_CTRL_COMPARE_ENABLE_Msk);
+ *
+ *     // Configure divisors
+ *     uint32_t prescale = SystemCoreClock / 1000000;
+ *     TIMER_PRESCALE = prescale - 1;
+ *     TIMER_CTRL |= TIMER_CTRL_ENABLE_Msk;
+ *
+ *     // Install the interrupt handler
+ *     NVIC_SetVector(TIMER_IRQn, (uint32_t)us_ticker_irq_handler);
+ *     NVIC_EnableIRQ(TIMER_IRQn);
+ * }
+ * @endcode
  */
 void us_ticker_init(void);
+/** Deinitialize the us ticker
+ *
+ * Powerdown the us ticker in preparation for sleep, powerdown, or reset.
+ *
+ * After this function is called, no other ticker functions should be called
+ * except us_ticker_init(), calling any function other than init is undefined.
+ *
+ * @note This function stops the ticker from counting.
+ *
+ * Pseudo Code:
+ * @code
+ * uint32_t us_ticker_free()
+ * {
+ *     // Disable timer
+ *     TIMER_CTRL &= ~TIMER_CTRL_ENABLE_Msk;
+ *
+ *     // Disable the compare interrupt
+ *     TIMER_CTRL &= ~TIMER_CTRL_COMPARE_ENABLE_Msk;
+ *
+ *     // Disable timer interrupt
+ *     NVIC_DisableIRQ(TIMER_IRQn);
+ *
+ *     // Disable clock gate so processor cannot read TIMER registers
+ *     POWER_CTRL &= ~POWER_CTRL_TIMER_Msk;
+ * }
+ * @endcode
+ *
+ */
+void us_ticker_free(void);
 /** Read the current counter
+ *
+ * @return The current timer's counter value in microseconds
+ * Read the current counter value without performing frequency conversions.
+ * If no rollover has occurred, the seconds passed since us_ticker_init()
+ * was called can be found by dividing the ticks returned by this function
+ * by the frequency returned by ::us_ticker_get_info.
+ *
+ * @return The current timer's counter value in ticks
+ *
+ * Pseudo Code:
+ * @code
+ * uint32_t us_ticker_read()
+ * {
+ *     return TIMER_COUNT;
+ * }
+ * @endcode
  */
 uint32_t us_ticker_read(void);
 …
 /** Set interrupt for specified timestamp
+ *
+ * @param timestamp The time in microseconds to be set
+ * @param timestamp The time in ticks to be set
+ *
+ * @note no special handling needs to be done for times in the past
+ * as the common timer code will detect this and call
+ * us_ticker_fire_interrupt() if this is the case
+ *
+ * @note calling this function with timestamp of more than the supported
+ * number of bits returned by ::us_ticker_get_info results in undefined
+ * behavior.
+ *
+ * Pseudo Code:
+ * @code
+ * void us_ticker_set_interrupt(timestamp_t timestamp)
+ * {
+ *     TIMER_COMPARE = timestamp;
+ *     TIMER_CTRL |= TIMER_CTRL_COMPARE_ENABLE_Msk;
+ * }
+ * @endcode
  */
 void us_ticker_set_interrupt(timestamp_t timestamp);
 …
 /** Disable us ticker interrupt
+ *
+ * Pseudo Code:
+ * @code
+ * void us_ticker_disable_interrupt(void)
+ * {
+ *     // Disable the compare interrupt
+ *     TIMER_CTRL &= ~TIMER_CTRL_COMPARE_ENABLE_Msk;
+ * }
+ * @endcode
  */
 void us_ticker_disable_interrupt(void);
 …
 /** Clear us ticker interrupt
+ *
+ * Pseudo Code:
+ * @code
+ * void us_ticker_clear_interrupt(void)
+ * {
+ *     // Write to the ICR (interrupt clear register) of the TIMER
+ *     TIMER_ICR = TIMER_ICR_COMPARE_Msk;
+ * }
+ * @endcode
  */
 void us_ticker_clear_interrupt(void);
+/** Set pending interrupt that should be fired right away.
+ *
+ * The ticker should be initialized prior calling this function.
+ *
+ * Pseudo Code:
+ * @code
+ * void us_ticker_fire_interrupt(void)
+ * {
+ *     NVIC_SetPendingIRQ(TIMER_IRQn);
+ * }
+ * @endcode
+ */
+void us_ticker_fire_interrupt(void);
+/** Get frequency and counter bits of this ticker.
+ *
+ * Pseudo Code:
+ * @code
+ * const ticker_info_t* us_ticker_get_info()
+ * {
+ *     static const ticker_info_t info = {
+ *         1000000,    // 1 MHz
+ *         32          // 32 bit counter
+ *     };
+ *     return &info;
+ * }
+ * @endcode
+ */
+const ticker_info_t *us_ticker_get_info(void);
 /**@}*/
 …
 #endif
+/** @}*/

EcnlProtoTool/trunk/asp3_dcre/sample/Makefile

-              r331
+              r429
 #  Copyright (C) 2000-2003 by Embedded and Real-Time Systems Laboratory
 #                              Toyohashi Univ. of Technology, JAPAN
 #  Copyright (C) 2006-2016 by Embedded and Real-Time Systems Laboratory
+#  Copyright (C) 2006-2019 by Embedded and Real-Time Systems Laboratory
 #              Graduate School of Information Science, Nagoya Univ., JAPAN
+#
 …
+#
+#  TECS関係ファイルのディレクトリの定義
+#
+TECSDIR = @(TECSDIR)
+#
 #  トレースログを取得するかどうかの定義
+#
 …
+#
+#  依存関係ファイルを置くディレクトリの定義
+#
+DEPDIR = @(DEPDIR)
+#  中間オブジェクトファイルと依存関係ファイルを置くディレクトリの定義
+#
+OBJDIR = @(OBJDIR)
+DEPDIR = @(OBJDIR)
+#
 …
         -include $(TECSGENDIR)/Makefile.tecsgen
 endif
+TINETDIR =
+#
 …
         APPL_COBJS := @(APPLOBJS)
 endif
 APPL_COBJS := $(APPL_COBJS) log_output.o vasyslog.o t_perror.o strerror.o
+APPL_COBJS := $(APPL_COBJS) log_output.o vasyslog.o t_perror.o strerror.o mbed_stub.o
 APPL_CFLAGS := $(APPL_CFLAGS)
 ifdef APPLDIRS
 …
 endif
+#
+#  ネットワークサービスの定義
+#
+NO_USE_TINET_LIBRARY = true
+#  ネットワークインタフェースの選択、何れか一つ選択する。
+NET_IF = ether
+#  イーサネット・ディバイスドライバの選択
+NET_DEV = if_mbed
+#  ネットワーク層の選択
+#SUPPORT_INET6 = true
+SUPPORT_INET4 = true
+#  API に組込む機能の選択
+#API_CFG_IP4MAPPED_ADDR = true
+#  トランスポート層の選択
+SUPPORT_TCP = true
+#SUPPORT_UDP = true
+#
+#  システムサービスの Makefile のインクルード
+#
+include $(SRCDIR)/tinet/Makefile.tinet
+ifdef TINETDIR
+        #
+        #  ネットワークサービスの定義
+        #
+        NO_USE_TINET_LIBRARY = true
+        #  ネットワークインタフェースの選択、何れか一つ選択する。
+        NET_IF = ether
+        #  イーサネット・ディバイスドライバの選択
+        NET_DEV = if_mbed
+        #  ネットワーク層の選択
+        #SUPPORT_INET6 = true
+        SUPPORT_INET4 = true
+        #  API に組込む機能の選択
+        #API_CFG_IP4MAPPED_ADDR = true
+        #  トランスポート層の選択
+        SUPPORT_TCP = true
+        #SUPPORT_UDP = true
+        # IGMPを有効に設定
+        #SUPPORT_IGMP = true
+        #
+        #  ネットワークサービスの Makefile のインクルード
+        #
+        include $(SRCDIR)/$(TINETDIR)/Makefile.tinet
+endif
+#
 …
                                 $(SYSSVC_DIRS) $(SRCDIR)/syssvc
 SYSSVC_ASMOBJS := $(SYSSVC_ASMOBJS)
 SYSSVC_COBJS := $(INIT_TECS_COBJ) $(TECS_COBJS) $(SYSSVC_COBJS) \
                                 @(SYSSVCOBJS) $(CXXRTS)
+SYSSVC_COBJS := $(SYSSVC_COBJS) $(TECS_COBJS) \
+                                $(INIT_TECS_COBJ) $(CXXRTS)
 SYSSVC_CFLAGS := $(SYSSVC_CFLAGS)
 INCLUDES := $(INCLUDES) -I$(TECSGENDIR) -I$(SRCDIR)/tecs_kernel
+#
+#  トレースログ記録のサンプルコードに関する定義
+#
+ifdef ENABLE_TRACE
+        COPTS := $(COPTS) -DTOPPERS_ENABLE_TRACE
+        SYSSVC_DIRS := $(SYSSVC_DIRS) $(SRCDIR)/arch/tracelog
+endif
+#
 #  ターゲットファイル
+#
 .PHONY: all
 ifndef OMIT_TECS
 all: tecs
+all: tecs | $(DEPDIR)
 #       @$(MAKE) check
         @$(MAKE) check $(OBJNAME).bin
 …
 #  コンフィギュレータに関する定義
+#
+CFG_TABS := --api-table $(SRCDIR)/tinet/tcpip_api.def:tcpip \
+CFG_KERNEL := --kernel asp
+ifndef TINETDIR
+  CFG_TRB := -T $(TARGETDIR)/target_kernel.trb
+  CFG_TABS := --api-table $(SRCDIR)/kernel/kernel_api.def \
+                        --symval-table $(SRCDIR)/kernel/kernel_sym.def $(CFG_TABS)
+else
+  CFG_TRB := -T $(TINET_ROOT)/tinet.trb:tcpip -T $(TARGETDIR)/target_kernel.trb:kernel
+  CFG_TABS := --api-table $(TINET_ROOT)/tcpip_api.def:tcpip \
                         --api-table $(SRCDIR)/kernel/kernel_api.def:kernel \
                         --symval-table $(SRCDIR)/tinet/tcpip_sym.def \
+                        --symval-table $(TINET_ROOT)/tcpip_sym.def \
                         --symval-table $(SRCDIR)/kernel/kernel_sym.def $(CFG_TABS)
+endif
 CFG_ASMOBJS := $(CFG_ASMOBJS)
 CFG_COBJS := kernel_cfg.o $(CFG_COBJS)
+CFG_OBJS := $(CFG_ASMOBJS) $(CFG_COBJS)
+CFG_CFLAGS := -DTOPPERS_CB_TYPE_ONLY $(CFG_CFLAGS)
 CFG2_OUT_SRCS := kernel_cfg.h kernel_cfg.c $(CFG2_OUT_SRCS)
-CFG_CFLAGS := -DTOPPERS_CB_TYPE_ONLY $(CFG_CFLAGS)
+#
 …
                                         $(foreach file,$(KERNEL_FCSRCS),$(file:.c=.o))
 endif
+ifdef OMIT_OFFSET_H
+        OFFSET_H =
+else
+ifdef TARGET_OFFSET_TRB
         OFFSET_H = offset.h
 endif
 …
 endif
 ifndef TARGET_TCPIP_TRB
         TARGET_TCPIP_TRB := $(SRCDIR)/tinet/tinet.trb
+        TARGET_TCPIP_TRB := $(SRCDIR)/$(TINETDIR)/tinet.trb
 endif
 …
+#
+#  中間オブジェクトファイルを置くディレクトリの処理
+#
+APPL_ASMOBJS   := $(addprefix $(OBJDIR)/, $(APPL_ASMOBJS))
+APPL_CXXOBJS   := $(addprefix $(OBJDIR)/, $(APPL_CXXOBJS))
+APPL_COBJS     := $(addprefix $(OBJDIR)/, $(APPL_COBJS))
+SYSSVC_ASMOBJS := $(addprefix $(OBJDIR)/, $(SYSSVC_ASMOBJS))
+SYSSVC_COBJS   := $(addprefix $(OBJDIR)/, $(SYSSVC_COBJS))
+KERNEL_ASMOBJS := $(addprefix $(OBJDIR)/, $(KERNEL_ASMOBJS))
+KERNEL_COBJS   := $(addprefix $(OBJDIR)/, $(KERNEL_COBJS))
+KERNEL_LCOBJS  := $(addprefix $(OBJDIR)/, $(KERNEL_LCOBJS))
+CFG_ASMOBJS    := $(addprefix $(OBJDIR)/, $(CFG_ASMOBJS))
+CFG_COBJS      := $(addprefix $(OBJDIR)/, $(CFG_COBJS))
+#
 #  コンパイルのための変数の定義
+#
+APPL_OBJS = $(APPL_ASMOBJS) $(APPL_COBJS) $(APPL_CXXOBJS)
+SYSSVC_OBJS = $(SYSSVC_ASMOBJS) $(SYSSVC_COBJS)
 KERNEL_LIB_OBJS = $(KERNEL_ASMOBJS) $(KERNEL_COBJS) $(KERNEL_LCOBJS)
+SYSSVC_OBJS = $(SYSSVC_ASMOBJS) $(SYSSVC_COBJS)
+APPL_OBJS = $(APPL_ASMOBJS) $(APPL_COBJS) $(APPL_CXXOBJS)
+CFG_OBJS = $(CFG_ASMOBJS) $(CFG_COBJS)
 ALL_OBJS = $(START_OBJS) $(APPL_OBJS) $(SYSSVC_OBJS) $(CFG_OBJS) \
                                                                                         $(END_OBJS) $(HIDDEN_OBJS)
 …
 tecs $(TECSGEN_SRCS) $(TECS_HEADERS): $(TECSGEN_TIMESTAMP) ;
 $(TECSGEN_TIMESTAMP): $(APPL_CDL) $(TECS_IMPORTS)
         $(TECSGEN) $< -R $(INCLUDES) --cpp "$(TECS_CPP)" -g $(TECSGENDIR)
+        $(TECSGEN) $< -R $(INCLUDES) --cpp "$(subst ", \", $(TECS_CPP))" -g $(TECSGENDIR)
+#
 …
 cfg1_out.c cfg1_out.db: cfg1_out.timestamp ;
 cfg1_out.timestamp: $(APPL_CFG) $(TECSGEN_TIMESTAMP)
         $(CFG) --pass 1 --kernel asp $(INCLUDES) $(CFG_TABS) \
+        $(CFG) --pass 1 $(CFG_KERNEL) $(INCLUDES) $(CFG_TABS) \
                                                 -M $(DEPDIR)/cfg1_out_c.d $(TARGET_KERNEL_CFG) $<
 $(CFG1_OUT): $(START_OBJS) cfg1_out.o $(CFG_DMY) $(END_OBJS) $(HIDDEN_OBJS)
+$(CFG1_OUT): $(START_OBJS) $(OBJDIR)/cfg1_out.o $(CFG_DMY) $(END_OBJS) $(HIDDEN_OBJS)
         $(LINK) $(CFLAGS) $(LDFLAGS) $(CFG1_OUT_LDFLAGS) -o $(CFG1_OUT) \
                                                 $(START_OBJS) cfg1_out.o $(CFG_DMY) $(END_OBJS)
+                                                $(START_OBJS) $(OBJDIR)/cfg1_out.o $(CFG_DMY) $(LIBS) $(END_OBJS)
 cfg1_out.syms: $(CFG1_OUT)
 …
 $(CFG2_OUT_SRCS) cfg2_out.db: kernel_cfg.timestamp ;
 kernel_cfg.timestamp: cfg1_out.db cfg1_out.syms cfg1_out.srec
         $(CFG) --pass 2 --kernel asp $(INCLUDES) -T $(TARGET_TCPIP_TRB):tcpip -T $(TARGET_KERNEL_TRB):kernel
+        $(CFG) --pass 2 $(CFG_KERNEL) $(INCLUDES) $(CFG_TRB)
+#
 …
 $(OFFSET_H): offset.timestamp ;
 offset.timestamp: cfg1_out.db cfg1_out.syms cfg1_out.srec
         $(CFG) --pass 2 -O --kernel asp $(INCLUDES) -T $(TARGET_OFFSET_TRB) \
+        $(CFG) --pass 2 -O $(CFG_KERNEL) $(INCLUDES) -T $(TARGET_OFFSET_TRB) \
                                 --rom-symbol cfg1_out.syms --rom-image cfg1_out.srec
 …
+#
+#  並列makeのための依存関係の定義
+#
+$(APPL_OBJS) $(SYSSVC_OBJS): | kernel_cfg.timestamp
+$(APPL_ASMOBJS) $(SYSSVC_ASMOBJS) $(KERNEL_ASMOBJS) $(CFG_ASMOBJS): \
+                                                                                                                | offset.timestamp
+#
 #  特別な依存関係の定義
+#
+tBannerMain.o: $(filter-out tBannerMain.o,$(ALL_OBJS)) $(LIBS_DEP)
+$(OBJDIR)/@(BANNEROBJ): $(filter-out $(OBJDIR)/@(BANNEROBJ),$(ALL_OBJS)) \
+                                                                                                                                $(LIBS_DEP)
+#
 …
+#
 $(OBJFILE): $(ALL_OBJS) $(LIBS_DEP)
         $(LINK) $(CFLAGS) $(LDFLAGS) $(OBJ_LDFLAGS) -o $(OBJFILE) \
+        $(LINK) $(CFLAGS) $(LDFLAGS) $(OBJ_LDFLAGS) -o $(OBJFILE) -Wl,-Map=$(OBJNAME).map,--cref \
                         $(START_OBJS) $(APPL_OBJS) $(SYSSVC_OBJS) $(CFG_OBJS) \
                         $(ALL_LIBS) $(END_OBJS)
+#
+#  依存関係フォルダの作成
+#
+$(DEPDIR):
+        mkdir $@
+#
 …
 check: check.timestamp ;
 check.timestamp: cfg2_out.db $(OBJNAME).syms $(OBJNAME).srec
         $(CFG) --pass 3 --kernel asp -O $(INCLUDES) -T $(TARGET_CHECK_TRB) \
+        $(CFG) --pass 3 $(CFG_KERNEL) -O $(INCLUDES) -T $(TARGET_CHECK_TRB) \
                                 --rom-symbol $(OBJNAME).syms --rom-image $(OBJNAME).srec
         @echo "configuration check passed"
 …
 .PHONY: clean
 clean:
         rm -f \#* *~ *.o $(DEPDIR)/*.d $(CLEAN_FILES) check.timestamp
+        rm -f \#* *~ $(OBJDIR)/*.o $(DEPDIR)/*.d $(CLEAN_FILES) check.timestamp
         rm -f $(OBJFILE) $(OBJNAME).syms $(OBJNAME).srec $(OBJNAME).bin
         rm -f kernel_cfg.timestamp $(CFG2_OUT_SRCS) cfg2_out.db
 …
 cleankernel:
         rm -f $(OFFSET_H) $(KERNEL_LIB_OBJS)
         rm -f $(KERNEL_LIB_OBJS:%.o=$(DEPDIR)/%.d)
+        rm -f $(KERNEL_LIB_OBJS:$(OBJDIR)/%.o=$(DEPDIR)/%.d)
 .PHONY: realclean
 …
 #  のみを付けてコンパイルする．
+#
 ALL_CFG_COBJS = $(CFG_COBJS) cfg1_out.o
+ALL_CFG_COBJS = $(CFG_COBJS) $(OBJDIR)/cfg1_out.o
 ALL_CFG_ASMOBJS = $(CFG_ASMOBJS)
 $(ALL_CFG_COBJS): %.o: %.c
         $(CC) -c -MD -MP -MF $(DEPDIR)/$*.d $(CFLAGS) $(CFG_CFLAGS) $<
 $(ALL_CFG_COBJS:.o=.s): %.s: %.c
         $(CC) -S $(CFLAGS) $(CFG_CFLAGS) $<
 $(ALL_CFG_ASMOBJS): %.o: %.S
         $(CC) -c -MD -MP -MF $(DEPDIR)/$*.d $(CFLAGS) $(CFG_CFLAGS) $<
+$(ALL_CFG_COBJS): $(OBJDIR)/%.o: %.c
+        $(CC) -c -o $@ -MD -MP -MF $(DEPDIR)/$*.d $(CFLAGS) $(CFG_CFLAGS) $<
+$(ALL_CFG_COBJS:$(OBJDIR)/%.o=%.s): %.s: %.c
+        $(CC) -S -o $@ $(CFLAGS) $(CFG_CFLAGS) $<
+$(ALL_CFG_ASMOBJS): $(OBJDIR)/%.o: %.S
+        $(CC) -c -o $@ -MD -MP -MF $(DEPDIR)/$*.d $(CFLAGS) $(CFG_CFLAGS) $<
+#
 …
 #  コンパイルルールの定義
+#
 $(KERNEL_COBJS): %.o: %.c
         $(CC) -c -MD -MP -MF $(DEPDIR)/$*.d $(CFLAGS) $(KERNEL_CFLAGS) $<
 $(KERNEL_COBJS:.o=.s): %.s: %.c
         $(CC) -S $(CFLAGS) $(KERNEL_CFLAGS) $<
 $(KERNEL_LCOBJS): %.o:
         $(CC) -DTOPPERS_$(*F) -o $@ -c -MD -MP -MF $(DEPDIR)/$*.d \
+$(KERNEL_COBJS): $(OBJDIR)/%.o: %.c
+        $(CC) -c -o $@ -MD -MP -MF $(DEPDIR)/$*.d $(CFLAGS) $(KERNEL_CFLAGS) $<
+$(KERNEL_COBJS:$(OBJDIR)/%.o=%.s): %.s: %.c
+        $(CC) -S -o $@ $(CFLAGS) $(KERNEL_CFLAGS) $<
+$(KERNEL_LCOBJS): $(OBJDIR)/%.o:
+        $(CC) -c -o $@ -DTOPPERS_$(*F) -MD -MP -MF $(DEPDIR)/$*.d \
                                                                         $(CFLAGS) $(KERNEL_CFLAGS) $<
 $(KERNEL_LCOBJS:.o=.s): %.s:
         $(CC) -DTOPPERS_$(*F) -o $@ -S $(CFLAGS) $(KERNEL_CFLAGS) $<
 $(KERNEL_ASMOBJS): %.o: %.S
         $(CC) -c -MD -MP -MF $(DEPDIR)/$*.d $(CFLAGS) $(KERNEL_CFLAGS) $<
 $(SYSSVC_COBJS): %.o: %.c
         $(CC) -c -MD -MP -MF $(DEPDIR)/$*.d $(CFLAGS) $(SYSSVC_CFLAGS) $<
 $(SYSSVC_COBJS:.o=.s): %.s: %.c
         $(CC) -S $(CFLAGS) $(SYSSVC_CFLAGS) $<
 $(SYSSVC_ASMOBJS): %.o: %.S
         $(CC) -c -MD -MP -MF $(DEPDIR)/$*.d $(CFLAGS) $(SYSSVC_CFLAGS) $<
 $(APPL_COBJS): %.o: %.c
         $(CC) -c -MD -MP -MF $(DEPDIR)/$*.d $(CFLAGS) $(APPL_CFLAGS) $<
 $(APPL_COBJS:.o=.s): %.s: %.c
         $(CC) -S $(CFLAGS) $(APPL_CFLAGS) $<
 $(APPL_CXXOBJS): %.o: %.cpp
         $(CXX) -c -MD -MP -MF $(DEPDIR)/$*.d $(CFLAGS) $(APPL_CFLAGS) $<
 $(APPL_CXXOBJS:.o=.s): %.s: %.cpp
         $(CXX) -S $(CFLAGS) $(APPL_CFLAGS) $<
 $(APPL_ASMOBJS): %.o: %.S
         $(CC) -c -MD -MP -MF $(DEPDIR)/$*.d $(CFLAGS) $(APPL_CFLAGS) $<
+$(KERNEL_LCOBJS:$(OBJDIR)/%.o=%.s): %.s:
+        $(CC) -S -o $@ -DTOPPERS_$(*F) $(CFLAGS) $(KERNEL_CFLAGS) $<
+$(KERNEL_ASMOBJS): $(OBJDIR)/%.o: %.S
+        $(CC) -c -o $@ -MD -MP -MF $(DEPDIR)/$*.d $(CFLAGS) $(KERNEL_CFLAGS) $<
+$(SYSSVC_COBJS): $(OBJDIR)/%.o: %.c
+        $(CC) -c -o $@ -MD -MP -MF $(DEPDIR)/$*.d $(CFLAGS) $(SYSSVC_CFLAGS) $<
+$(SYSSVC_COBJS:$(OBJDIR)/%.o=%.s): %.s: %.c
+        $(CC) -S -o $@ $(CFLAGS) $(SYSSVC_CFLAGS) $<
+$(SYSSVC_ASMOBJS): $(OBJDIR)/%.o: %.S
+        $(CC) -c -o $@ -MD -MP -MF $(DEPDIR)/$*.d $(CFLAGS) $(SYSSVC_CFLAGS) $<
+$(APPL_COBJS): $(OBJDIR)/%.o: %.c
+        $(CC) -c -o $@ -MD -MP -MF $(DEPDIR)/$*.d $(CFLAGS) $(APPL_CFLAGS) $<
+$(APPL_COBJS:$(OBJDIR)/%.o=%.s): %.s: %.c
+        $(CC) -S -o $@ $(CFLAGS) $(APPL_CFLAGS) $<
+$(APPL_CXXOBJS): $(OBJDIR)/%.o: %.cpp
+        $(CXX) -c -o $@ -MD -MP -MF $(DEPDIR)/$*.d $(CFLAGS) $(APPL_CFLAGS) $<
+$(APPL_CXXOBJS:$(OBJDIR)/%.o=%.s): %.s: %.cpp
+        $(CXX) -S -o $@ $(CFLAGS) $(APPL_CFLAGS) $<
+$(APPL_ASMOBJS): $(OBJDIR)/%.o: %.S
+        $(CC) -c -o $@ -MD -MP -MF $(DEPDIR)/$*.d $(CFLAGS) $(APPL_CFLAGS) $<
+#
 #  デフォルトコンパイルルールを上書き
+#
 %.o: %.c
+$(OBJDIR)/%.o: %.c
         @echo "*** Default compile rules should not be used."
         $(CC) -c -MD -MP -MF $(DEPDIR)/$*.d $(CFLAGS) $<
+        $(CC) -c -o $@ -MD -MP -MF $(DEPDIR)/$*.d $(CFLAGS) $<
 %.s: %.c
         @echo "*** Default compile rules should not be used."
         $(CC) -S $(CFLAGS) $<
 %.o: %.cpp
+        $(CC) -S -o $@ $(CFLAGS) $<
+$(OBJDIR)/%.o: %.cpp
         @echo "*** Default compile rules should not be used."
         $(CXX) -c -MD -MP -MF $(DEPDIR)/$*.d $(CFLAGS) $<
+        $(CXX) -c -o $@ -MD -MP -MF $(DEPDIR)/$*.d $(CFLAGS) $<
 %.s: %.cpp
         @echo "*** Default compile rules should not be used."
         $(CXX) -S $(CFLAGS) $<
 %.o: %.S
+        $(CXX) -S -o $@ $(CFLAGS) $<
+$(OBJDIR)/%.o: %.S
         @echo "*** Default compile rules should not be used."
         $(CC) -c -MD -MP -MF $(DEPDIR)/$*.d $(CFLAGS) $<
+        $(CC) -c -o $@ -MD -MP -MF $(DEPDIR)/$*.d $(CFLAGS) $<

EcnlProtoTool/trunk/asp3_dcre/sample/sample1.c

-              r331
+              r429
  *  Copyright (C) 2000-2003 by Embedded and Real-Time Systems Laboratory
  *                              Toyohashi Univ. of Technology, JAPAN
  *  Copyright (C) 2004-2016 by Embedded and Real-Time Systems Laboratory
+ *  Copyright (C) 2004-2019 by Embedded and Real-Time Systems Laboratory
  *              Graduate School of Information Science, Nagoya Univ., JAPAN
+ *
 …
  *  プログラムの概要:
+ *
  *  ユーザインタフェースを受け持つメインタスク（タスクID: MAIN_TASK，優
  *  先度: MAIN_PRIORITY）と，3つの並行実行されるタスク（タスクID:
  *  TASK1～TASK3，初期優先度: MID_PRIORITY）で構成される．また，起動周
  *  期が2秒の周期ハンドラ（周期ハンドラID: CYCHDR1）を用いる．
+ *
  *  並行実行されるタスクは，task_loop回空ループを実行する度に，タスクが
  *  実行中であることをあらわすメッセージを表示する．空ループを実行する
  *  のは，空ループなしでメッセージを出力すると，多量のメッセージが出力
  *  され，プログラムの動作が確認しずらくなるためである．また，低速なシ
+ *  ユーザインタフェースを受け持つメインタスク（MAIN_TASK）と，3つの並
+ *  行実行されるタスク（TASK1～TASK3），例外処理タスク（EXC_TASK）の5
+ *  つのタスクを用いる．これらの他に，システムログタスクが動作する．ま
+ *  た，周期ハンドラ，アラームハンドラ，割込みサービスルーチン，CPU例
+ *  外ハンドラをそれぞれ1つ用いる．
+ *
+ *  並行実行されるタスクは，task_loop回のループを実行する度に，タスク
+ *  が実行中であることをあらわすメッセージを表示する．ループを実行する
+ *  のは，プログラムの動作を確認しやすくするためである．また，低速なシ
  *  リアルポートを用いてメッセージを出力する場合に，すべてのメッセージ
  *  が出力できるように，メッセージの量を制限するという理由もある．
+ *
+ *  周期ハンドラは，三つの優先度（HIGH_PRIORITY，MID_PRIORITY，
+ *  LOW_PRIORITY）のレディキューを回転させる．プログラムの起動直後は，
+ *  周期ハンドラは停止状態になっている．
+ *
+ *  メインタスクは，シリアルI/Oポートからの文字入力を行い（文字入力を
+ *  待っている間は，並行実行されるタスクが実行されている），入力された
+ *  文字に対応した処理を実行する．入力された文字と処理の関係は次の通り．
+ *  周期ハンドラ，アラームハンドラ，割込みサービスルーチンは，3つの優
+ *  先度（HIGH_PRIORITY，MID_PRIORITY，LOW_PRIORITY）のレディキューを
+ *  回転させる．周期ハンドラは，プログラムの起動直後は停止状態になって
+ *  いる．
+ *
+ *  CPU例外ハンドラは，CPU例外からの復帰が可能な場合には，例外処理タス
+ *  クを起動する．例外処理タスクは，CPU例外を起こしたタスクに対して，
+ *  終了要求を行う．
+ *
+ *  メインタスクは，シリアルポートからの文字入力を行い（文字入力を待っ
+ *  ている間は，並行実行されるタスクが実行されている），入力された文字
+ *  に対応した処理を実行する．入力された文字と処理の関係は次の通り．
  *  Control-Cまたは'Q'が入力されると，プログラムを終了する．
+ *
 …
  *  'b' : アラームハンドラを5秒後に起動するよう動作開始させる．
  *  'B' : アラームハンドラを動作停止させる．
+ *  'z' : 対象タスクにCPU例外を発生させる（タスクを終了させる）．
+ *  'Z' : 対象タスクにCPUロック状態でCPU例外を発生させる（プログラムを
+ *        終了する）．
+ *  'z' : 対象タスクにCPU例外を発生させる（ターゲットによっては復帰可能）．
+ *  'Z' : 対象タスクにCPUロック状態でCPU例外を発生させる（復帰不可能）．
  *  '@' : タスク3をacre_tskにより生成する．
  *  '!' : 対象タスクをdel_tskにより削除する．
  *  '$' : アラームハンドラをacre_almにより生成する．
  *  '#' : アラームハンドラをdel_almにより削除する．
  *  'V' : fch_hrtで高分解能タイマを2回読む．
+ *  'V' : 短いループを挟んで，fch_hrtで高分解能タイマを2回読む．
  *  'v' : 発行したシステムコールを表示する（デフォルト）．
  *  'q' : 発行したシステムコールを表示しない．
 …
 #include "kernel_cfg.h"
 #include "sample1.h"
-/*#include "sample1n.h"*/
 /*
 …
 /*
+ *  プロセッサ時間の消費
+ *
+ *  ループによりプロセッサ時間を消費する．最適化ができないように，ルー
+ *  プ内でvolatile変数を読み込む．
+ */
+static volatile long_t  volatile_var;
+static void
+consume_time(ulong_t ctime)
+{
+        ulong_t         i;
+        for (i = 0; i < ctime; i++) {
+                (void) volatile_var;
+        }
+}
+/*
  *  並行実行されるタスクへのメッセージ領域
  */
 …
  *  並行実行されるタスク
  */
 void task(intptr_t exinf)
+{
+        volatile ulong_t        i;
+void
+task(intptr_t exinf)
+{
         int_t           n = 0;
         int_t           tskno = (int_t) exinf;
 …
                 syslog(LOG_NOTICE, "task%d is running (%03d).   %s",
                                                                                 tskno, ++n, graph[tskno-1]);
                 for (i = 0; i < task_loop; i++);
+                consume_time(task_loop);
                 c = message[tskno-1];
                 message[tskno-1] = 0;
 …
 /*
+ *  割込みハンドラ
+ *  割込みサービスルーチン
+ *
+ *  HIGH_PRIORITY，MID_PRIORITY，LOW_PRIORITY の各優先度のレディキュー
+ *  を回転させる．
  */
 #ifdef INTNO1
+void intno1_isr(intptr_t exinf)
+void
+intno1_isr(intptr_t exinf)
+{
         intno1_clear();
 …
                                         "sns_dpn() is not true in CPU exception handler.");
+        }
         syslog(LOG_INFO, "sns_loc = %d sns_dsp = %d xsns_dpn = %d",
+        syslog(LOG_INFO, "sns_loc = %d, sns_dsp = %d, xsns_dpn = %d",
                                                                 sns_loc(), sns_dsp(), xsns_dpn(p_excinf));
 …
+        }
-#ifdef PREPARE_RETURN_CPUEXC
-        PREPARE_RETURN_CPUEXC;
         SVC_PERROR(get_tid(&cpuexc_tskid));
         SVC_PERROR(act_tsk(EXC_TASK));
-#else /* PREPARE_RETURN_CPUEXC */
-        syslog(LOG_NOTICE, "Sample program ends with exception.");
-        SVC_PERROR(ext_ker());
-        assert(0);
-#endif /* PREPARE_RETURN_CPUEXC */
+}
 …
  *  を回転させる．
  */
+void cyclic_handler(intptr_t exinf)
+void
+cyclic_handler(intptr_t exinf)
+{
         SVC_PERROR(rot_rdq(HIGH_PRIORITY));
 …
  *  を回転させる．
  */
+void alarm_handler(intptr_t exinf)
+void
+alarm_handler(intptr_t exinf)
+{
         SVC_PERROR(rot_rdq(HIGH_PRIORITY));
 …
  *  例外処理タスク
  */
+void exc_task(intptr_t exinf)
+void
+exc_task(intptr_t exinf)
+{
         SVC_PERROR(ras_ter(cpuexc_tskid));
 …
  *  メインタスク
  */
+void main_task(intptr_t exinf)
+void
+main_task(intptr_t exinf)
+{
         char    c;
 …
         PRI             tskpri;
 #ifndef TASK_LOOP
-        volatile ulong_t        i;
         SYSTIM  stime1, stime2;
 #endif /* TASK_LOOP */
 …
          *  ループ回数の設定
+         *
          *  並行実行されるタスク内での空ループの回数（task_loop）は，空ルー
          *  プの実行時間が約0.4秒になるように設定する．この設定のために，
          *  LOOP_REF回の空ループの実行時間を，その前後でget_timを呼ぶことで
          *  測定し，その測定結果から空ループの実行時間が0.4秒になるループ回
          *  数を求め，task_loopに設定する．
+         *  並行実行されるタスク内でのループの回数（task_loop）は，ループ
+         *  の実行時間が約0.4秒になるように設定する．この設定のために，
+         *  LOOP_REF回のループの実行時間を，その前後でget_timを呼ぶことで
+         *  測定し，その測定結果から空ループの実行時間が0.4秒になるループ
+         *  回数を求め，task_loopに設定する．
+         *
+         *  LOOP_REFは，デフォルトでは1,000,000に設定しているが，想定したよ
+         *  り遅いプロセッサでは，サンプルプログラムの実行開始に時間がかか
+         *  りすぎるという問題を生じる．逆に想定したより速いプロセッサでは，
+         *  LOOP_REF回の空ループの実行時間が短くなり，task_loopに設定する値
+         *  の誤差が大きくなるという問題がある．
+         *
+         *  そこで，そのようなターゲットでは，target_test.hで，LOOP_REFを適
+         *  切な値に定義するのが望ましい．
+         *  LOOP_REFは，デフォルトでは1,000,000に設定しているが，想定した
+         *  より遅いプロセッサでは，サンプルプログラムの実行開始に時間がか
+         *  かりすぎるという問題を生じる．逆に想定したより速いプロセッサで
+         *  は，LOOP_REF回のループの実行時間が短くなり，task_loopに設定す
+         *  る値の誤差が大きくなるという問題がある．そこで，そのようなター
+         *  ゲットでは，target_test.hで，LOOP_REFを適切な値に定義すること
+         *  とする．
+         *
          *  また，task_loopの値を固定したい場合には，その値をTASK_LOOPにマ
          *  クロ定義する．TASK_LOOPがマクロ定義されている場合，上記の測定を
          *  行わずに，TASK_LOOPに定義された値を空ループの回数とする．
+         *  クロ定義する．TASK_LOOPがマクロ定義されている場合，上記の測定
+         *  を行わずに，TASK_LOOPに定義された値をループの回数とする．
+         *
          * ターゲットによっては，空ループの実行時間の1回目の測定で，本来よ
          * りも長めになるものがある．このようなターゲットでは，MEASURE_TWICE
          * をマクロ定義することで，1回目の測定結果を捨てて，2回目の測定結果
          * を使う．
+         *  ターゲットによっては，ループの実行時間の1回目の測定で，本来より
+         *  も長めになるものがある．このようなターゲットでは，MEASURE_TWICE
+         *  をマクロ定義することで，1回目の測定結果を捨てて，2回目の測定結
+         *  果を使う．
          */
 #ifdef TASK_LOOP
 …
 #ifdef MEASURE_TWICE
-        task_loop = LOOP_REF;
         SVC_PERROR(get_tim(&stime1));
         for (i = 0; i < task_loop; i++);
+        consume_time(LOOP_REF);
         SVC_PERROR(get_tim(&stime2));
 #endif /* MEASURE_TWICE */
-        task_loop = LOOP_REF;
         SVC_PERROR(get_tim(&stime1));
         for (i = 0; i < task_loop; i++);
+        consume_time(LOOP_REF);
         SVC_PERROR(get_tim(&stime2));
         task_loop = LOOP_REF * 400LU / (ulong_t)(stime2 - stime1) * 1000LU;
 …
                         break;
                 case 'c':
                         syslog(LOG_INFO, "#sta_cyc(1)");
+                        syslog(LOG_INFO, "#sta_cyc(CYCHDR1)");
                         SVC_PERROR(sta_cyc(CYCHDR1));
                         break;
                 case 'C':
                         syslog(LOG_INFO, "#stp_cyc(1)");
+                        syslog(LOG_INFO, "#stp_cyc(CYCHDR1)");
                         SVC_PERROR(stp_cyc(CYCHDR1));
                         break;
                 case 'b':
                         syslog(LOG_INFO, "#sta_alm(1, 5000000)");
+                        syslog(LOG_INFO, "#sta_alm(ALMHDR1, 5000000)");
                         SVC_PERROR(sta_alm(ALMHDR1, 5000000));
                         break;
                 case 'B':
                         syslog(LOG_INFO, "#stp_alm(1)");
+                        syslog(LOG_INFO, "#stp_alm(ALMHDR1)");
                         SVC_PERROR(stp_alm(ALMHDR1));
                         break;
 …
                         ctsk.stksz = STACK_SIZE;
                         ctsk.stk = NULL;
+                        SVC_PERROR(TASK3 = acre_tsk(&ctsk));
+                        syslog(LOG_NOTICE, "task3 is created with tskid = %d.",
+                        SVC_PERROR(ercd = acre_tsk(&ctsk));
+                        if (ercd >= 0) {
+                                TASK3 = ercd;
+                                syslog(LOG_NOTICE, "task3 is created with tskid = %d.",
                                                                                                                 (int_t) TASK3);
+                        }
                         break;
                 case '!':
 …
                         calm.nfyinfo.nfy.handler.exinf = (intptr_t) 0;
                         calm.nfyinfo.nfy.handler.tmehdr = (TMEHDR) alarm_handler;
+                        SVC_PERROR(ALMHDR1 = acre_alm(&calm));
+                        syslog(LOG_NOTICE, "alarm handler is created with almid = %d.",
+                        SVC_PERROR(ercd = acre_alm(&calm));
+                        if (ercd >= 0) {
+                                ALMHDR1 = ercd;
+                                syslog(LOG_NOTICE, "alarm handler is created with almid = %d.",
                                                                                                                 (int_t) ALMHDR1);
+                        }
                         break;
                 case '#':
                         syslog(LOG_INFO, "#del_alm(1)");
+                        syslog(LOG_INFO, "#del_alm(ALMHDR1)");
                         SVC_PERROR(del_alm(ALMHDR1));
                         break;
 …
                 case 'V':
                         hrtcnt1 = fch_hrt();
+                        consume_time(1000LU);
                         hrtcnt2 = fch_hrt();
                         syslog(LOG_NOTICE, "hrtcnt1 = %tu, hrtcnt2 = %tu",
                                                                                 hrtcnt1, hrtcnt2);
+                                                                (uint32_t) hrtcnt1, (uint32_t) hrtcnt2);
                         break;
 …
 #endif /* BIT_KERNEL */
+                case '\003':
+                case 'Q':
+                        break;
                 default:
+                        syslog(LOG_INFO, "Unknown command: '%c'.", c);
                         break;
+                }

EcnlProtoTool/trunk/asp3_dcre/sample/sample1.cdl

-              r321
+              r429
 /*
+ *  システムログ機能の組上げ記述
+ *              システムログ機能のアダプタの組上げ記述
+ *
+ *  システムログ機能のアダプタは，C言語で記述されたコードから，TECSベー
+ *  スのシステムログ機能を呼び出すためのセルである．システムログ機能の
+ *  サービスコール（syslog，syslog_0～syslog_5，t_perrorを含む）を呼び
+ *  出さない場合には，以下のセルの組上げ記述を削除してよい．
+ */
+cell tSysLogAdapter SysLogAdapter {
+        cSysLog = SysLog.eSysLog;
+};
+/*
+ *              シリアルインタフェースドライバのアダプタの組上げ記述
+ *
+ *  シリアルインタフェースドライバのアダプタは，C言語で記述されたコー
+ *  ドから，TECSベースのシリアルインタフェースドライバを呼び出すための
+ *  セルである．シリアルインタフェースドライバのサービスコールを呼び出
+ *  さない場合には，以下のセルの組上げ記述を削除してよい．
+ */
+cell tSerialAdapter SerialAdapter {
+        cSerialPort[0] = SerialPort1.eSerialPort;
+};
+/*
+ *              システムログ機能の組上げ記述
+ *
  *  システムログ機能を外す場合には，以下のセルの組上げ記述を削除し，コ
 …
 /*
+ *  C言語で記述されたアプリケーションから，TECSベースのシステムログ機能
+ *  を呼び出すためのアダプタの組上げ記述
+ *
+ *  システムログ機能のサービスコール（syslog関数とsyslog_0関数～syslog_5
+ *  関数以外のもの）ルをC言語で記述されたアプリケーションから呼び出さな
+ *  い場合には，以下のセルの組上げ記述を削除すればよい．
+ */
+cell tSysLogAdapter SysLogAdapter {
+        cSysLog = SysLog.eSysLog;
+};
+/*
+ *  シリアルインタフェースドライバの組上げ記述
+ *              シリアルインタフェースドライバの組上げ記述
+ *
  *  シリアルインタフェースドライバを外す場合には，以下のセルの組上げ記
 …
 /*
+ *  C言語で記述されたアプリケーションから，TECSベースのシリアルインタ
+ *  フェースドライバを呼び出すためのアダプタの組上げ記述
+ *
+ *  シリアルインタフェースドライバのサービスコールをC言語で記述されたア
+ *  プリケーションから呼び出さない場合には，以下のセルの組上げ記述を削
+ *  除すればよい．
+ */
+cell tSerialAdapter SerialAdapter {
+        cSerialPort[0] = SerialPort1.eSerialPort;
+};
+/*
+ *  システムログタスクの組上げ記述
+ *              システムログタスクの組上げ記述
+ *
  *  システムログタスクを外す場合には，以下のセルの組上げ記述を削除すれ
 …
 /*
  *  カーネル起動メッセージ出力の組上げ記述
+ *              カーネル起動メッセージ出力の組上げ記述
+ *
  *  カーネル起動メッセージの出力を外す場合には，以下のセルの組上げ記述

EcnlProtoTool/trunk/asp3_dcre/sample/sample1.cfg

r321	r429
21	21	DEF_EXC(CPUEXC1, { TA_NULL, cpuexc_handler });
22	22	#endif /* CPUEXC1 */
23		DEF_~~KMM({ KMM~~_SIZE, NULL });
	23	DEF_MPK({ MPK_SIZE, NULL });

EcnlProtoTool/trunk/asp3_dcre/sample/sample1.h

-              r321
+              r429
  *  Copyright (C) 2000-2003 by Embedded and Real-Time Systems Laboratory
  *                              Toyohashi Univ. of Technology, JAPAN
  *  Copyright (C) 2004-2016 by Embedded and Real-Time Systems Laboratory
+ *  Copyright (C) 2004-2018 by Embedded and Real-Time Systems Laboratory
  *              Graduate School of Information Science, Nagoya Univ., JAPAN
+ *
 …
 #define EXC_PRIORITY    1               /* 例外処理タスクの優先度 */
 #define MAIN_PRIORITY   6               /* メインタスクの優先度 */
+#define MAIN_PRIORITY   5               /* メインタスクの優先度 */
                                                                 /* HIGH_PRIORITYより高くすること */
 …
 #endif /* STACK_SIZE */
 #ifndef KMM_SIZE
 #define KMM_SIZE                (STACK_SIZE * 16)       /* カーネルが割り付ける   */
 #endif /* KMM_SIZE */                                           /*     メモリ領域のサイズ */
+#ifndef MPK_SIZE                                        /* カーネルメモリプール領域のサイズ */
+#define MPK_SIZE                (STACK_SIZE * 16)
+#endif /* MPK_SIZE */
 #ifndef LOOP_REF

EcnlProtoTool/trunk/asp3_dcre/sample/sample1n.h

r331	r429
62	62
63	63	extern void net_syslog(uint_t prio, const char *format, ...) throw();
64		~~extern~~ ER_UINT net_serial_rea_dat(ID portid, char *buf, uint_t len) throw();
	64	static ER_UINT net_serial_rea_dat(ID portid, char *buf, uint_t len) throw();
65	65	extern ER net_serial_ctl_por(ID portid, uint_t ioctl) throw();
66	66

EcnlProtoTool/trunk/asp3_dcre/sample/tSample2.c

-              r321
+              r429
  *      Toyohashi Open Platform for Embedded Real-Time Systems/
  *      Advanced Standard Profile Kernel
+ *
+ *
  *  Copyright (C) 2015-2016 by Ushio Laboratory
  *              Graduate School of Engineering Science, Osaka Univ., JAPAN
  *  Copyright (C) 2015-2016 by Embedded and Real-Time Systems Laboratory
+ *  Copyright (C) 2015-2019 by Embedded and Real-Time Systems Laboratory
  *              Graduate School of Information Science, Nagoya Univ., JAPAN
+ *
 …
 /*
  *  サンプルプログラム(1)の本体
+ *
  *  ASPカーネルの基本的な動作を確認するためのサンプルプログラム．
+ *  サンプルプログラム(2)の本体
+ *
+ *  ASPカーネルの基本的な動作を確認するためのサンプルプログラム（TECS版）．
+ *
  *  プログラムの概要:
+ *
  *  ユーザインタフェースを受け持つメインタスク（タスクID: MAIN_TASK，優
  *  先度: MAIN_PRIORITY）と，3つの並行実行されるタスク（タスクID:
  *  TASK1～TASK3，初期優先度: MID_PRIORITY）で構成される．また，起動周
  *  期が2秒の周期ハンドラ（周期ハンドラID: CYCHDR1）を用いる．
+ *
  *  並行実行されるタスクは，task_loop回空ループを実行する度に，タスクが
  *  実行中であることをあらわすメッセージを表示する．空ループを実行する
  *  のは，空ループなしでメッセージを出力すると，多量のメッセージが出力
  *  され，プログラムの動作が確認しずらくなるためである．また，低速なシ
+ *  ユーザインタフェースを受け持つメインタスク（MainTask）と，3つの並
+ *  行実行されるタスク（Task1～Task3），例外処理タスク（ExceptionTask）
+ *  の5つのタスクを用いる．これらの他に，システムログタスクが動作する．
+ *  また，周期ハンドラ，アラームハンドラ，割込みサービスルーチン，CPU
+ *  例外ハンドラをそれぞれ1つ用いる．
+ *
+ *  並行実行されるタスクは，task_loop回のループを実行する度に，タスク
+ *  が実行中であることをあらわすメッセージを表示する．ループを実行する
+ *  のは，プログラムの動作を確認しやすくするためである．また，低速なシ
  *  リアルポートを用いてメッセージを出力する場合に，すべてのメッセージ
  *  が出力できるように，メッセージの量を制限するという理由もある．
+ *
+ *  周期ハンドラは，三つの優先度（HIGH_PRIORITY，MID_PRIORITY，
+ *  LOW_PRIORITY）のレディキューを回転させる．プログラムの起動直後は，
+ *  周期ハンドラは停止状態になっている．
+ *
+ *  メインタスクは，シリアルI/Oポートからの文字入力を行い（文字入力を
+ *  待っている間は，並列実行されるタスクが実行されている），入力された
+ *  文字に対応した処理を実行する．入力された文字と処理の関係は次の通り．
+ *  周期ハンドラ，アラームハンドラ，割込みサービスルーチンは，3つの優
+ *  先度（HIGH_PRIORITY，MID_PRIORITY，LOW_PRIORITY）のレディキューを
+ *  回転させる．周期ハンドラは，プログラムの起動直後は停止状態になって
+ *  いる．
+ *
+ *  CPU例外ハンドラは，CPU例外からの復帰が可能な場合には，例外処理タス
+ *  クを起動する．例外処理タスクは，CPU例外を起こしたタスクに対して，
+ *  終了要求を行う．
+ *
+ *  メインタスクは，シリアルポートからの文字入力を行い（文字入力を待っ
+ *  ている間は，並行実行されるタスクが実行されている），入力された文字
+ *  に対応した処理を実行する．入力された文字と処理の関係は次の通り．
  *  Control-Cまたは'Q'が入力されると，プログラムを終了する．
+ *
 …
  *  'b' : アラームハンドラを5秒後に起動するよう動作開始させる．
  *  'B' : アラームハンドラを動作停止させる．
  *  'z' : 対象タスクにCPU例外を発生させる（タスクを終了させる）．
  *  'Z' : 対象タスクにCPUロック状態でCPU例外を発生させる（プログラムを
  *        終了する）．
  *  'V' : fetchHighResolutionTimerで高分解能タイマを2回読む．
+ *  'z' : 対象タスクにCPU例外を発生させる（ターゲットによっては復帰可能）．
+ *  'Z' : 対象タスクにCPUロック状態でCPU例外を発生させる（復帰不可能）．
+ *  'V' : 短いループを挟んで，fetchHighResolutionTimerで高分解能タイマを
+ *        2回読む．
  *  'v' : 発行したシステムコールを表示する（デフォルト）．
  *  'q' : 発行したシステムコールを表示しない．
+ * 呼び口関数 #_TCPF_#
+ * require port: signature:sKernel context:task
+ *   ER             getExtendedInformation( intptr_t* p_exinf );
+ *   ER             sleep( );
+ *   ER             sleepTimeout( TMO timeout );
+ *   ER             delay( RELTIM delayTime );
+ *   ER             exit( );
+ *   ER             disableTerminate( );
+ *   ER             enableTerminate( );
+ *   bool_t         senseTerminate( );
+ *   ER             setTime( SYSTIM systemTime );
+ *   ER             getTime( SYSTIM* p_systemTime );
+ *   ER             adjustTime( int32_t adjustTime );
+ *   HRTCNT         fetchHighResolutionTimer( );
+ *   ER             rotateReadyQueue( PRI taskPriority );
+ *   ER             getTaskId( ID* p_taskId );
+ *   ER             getLoad( PRI taskPriority, uint_t* p_load );
+ *   ER             getNthTask( PRI taskPriority, uint_t nth, ID* p_taskID );
+ *   ER             lockCpu( );
+ *   ER             unlockCpu( );
+ *   ER             disableDispatch( );
+ *   ER             enableDispatch( );
+ *   bool_t         senseContext( );
+ *   bool_t         senseLock( );
+ *   bool_t         senseDispatch( );
+ *   bool_t         senseDispatchPendingState( );
+ *   bool_t         senseKernel( );
+ *   ER             exitKernel( );
+ *   ER             changeInterruptPriorityMask( PRI interruptPriority );
+ *   ER             getInterruptPriorityMask( PRI* p_interruptPriority );
+ * require port: signature:siKernel context:non-task
+ *   HRTCNT         ciKernel_fetchHighResolutionTimer( );
+ *   ER             ciKernel_rotateReadyQueue( PRI taskPriority );
+ *   ER             ciKernel_getTaskId( ID* p_taskId );
+ *   ER             ciKernel_lockCpu( );
+ *   ER             ciKernel_unlockCpu( );
+ *   bool_t         ciKernel_senseContext( );
+ *   bool_t         ciKernel_senseLock( );
+ *   bool_t         ciKernel_senseDispatch( );
+ *   bool_t         ciKernel_senseDispatchPendingState( );
+ *   bool_t         ciKernel_senseKernel( );
+ *   ER             ciKernel_exitKernel( );
+ *   bool_t         ciKernel_exceptionSenseDispatchPendingState( const void* p_exceptionInformation );
+ * call port: cTask signature: sTask context:task
+ *   ER             cTask_activate( subscript );
+ *   ER_UINT        cTask_cancelActivate( subscript );
+ *   ER             cTask_getTaskState( subscript, STAT* p_tskstat );
+ *   ER             cTask_changePriority( subscript, PRI priority );
+ *   ER             cTask_getPriority( subscript, PRI* p_priority );
+ *   ER             cTask_refer( subscript, T_RTSK* pk_taskStatus );
+ *   ER             cTask_wakeup( subscript );
+ *   ER_UINT        cTask_cancelWakeup( subscript );
+ *   ER             cTask_releaseWait( subscript );
+ *   ER             cTask_suspend( subscript );
+ *   ER             cTask_resume( subscript );
+ *   ER             cTask_raiseTerminate( subscript );
+ *   ER             cTask_terminate( subscript );
+ *       subscript:  0...(NCP_cTask-1)
+ * call port: cExceptionTask signature: sTask context:task
+ *   ER             cExceptionTask_activate( );
+ *   ER_UINT        cExceptionTask_cancelActivate( );
+ *   ER             cExceptionTask_getTaskState( STAT* p_tskstat );
+ *   ER             cExceptionTask_changePriority( PRI priority );
+ *   ER             cExceptionTask_getPriority( PRI* p_priority );
+ *   ER             cExceptionTask_refer( T_RTSK* pk_taskStatus );
+ *   ER             cExceptionTask_wakeup( );
+ *   ER_UINT        cExceptionTask_cancelWakeup( );
+ *   ER             cExceptionTask_releaseWait( );
+ *   ER             cExceptionTask_suspend( );
+ *   ER             cExceptionTask_resume( );
+ *   ER             cExceptionTask_raiseTerminate( );
+ *   ER             cExceptionTask_terminate( );
+ * call port: cCyclic signature: sCyclic context:task
+ *   ER             cCyclic_start( );
+ *   ER             cCyclic_stop( );
+ *   ER             cCyclic_refer( T_RCYC* pk_cyclicHandlerStatus );
+ * call port: cAlarm signature: sAlarm context:task
+ *   ER             cAlarm_start( RELTIM alarmTime );
+ *   ER             cAlarm_stop( );
+ *   ER             cAlarm_refer( T_RALM* pk_alarmStatus );
+ * call port: cSerialPort signature: sSerialPort context:task optional:true
+ *   bool_t     is_cSerialPort_joined()                     check if joined
+ *   ER             cSerialPort_open( );
+ *   ER             cSerialPort_close( );
+ *   ER_UINT        cSerialPort_read( char* buffer, uint_t length );
+ *   ER_UINT        cSerialPort_write( const char* buffer, uint_t length );
+ *   ER             cSerialPort_control( uint_t ioControl );
+ *   ER             cSerialPort_refer( T_SERIAL_RPOR* pk_rpor );
+ * call port: cSysLog signature: sSysLog context:task
+ *   ER             cSysLog_write( uint_t priority, const SYSLOG* p_syslog );
+ *   ER_UINT        cSysLog_read( SYSLOG* p_syslog );
+ *   ER             cSysLog_mask( uint_t logMask, uint_t lowMask );
+ *   ER             cSysLog_refer( T_SYSLOG_RLOG* pk_rlog );
+ *   ER             cSysLog_flush( );
+ * #[</PREAMBLE>]# */
+ */
 #include "tSample2_tecsgen.h"
 …
 /*
+ *  プロセッサ時間の消費
+ *
+ *  ループによりプロセッサ時間を消費する．最適化ができないように，ルー
+ *  プ内でvolatile変数を読み込む．
+ */
+static volatile long_t  volatile_var;
+static void
+consume_time(ulong_t ctime)
+{
+        ulong_t         i;
+        for (i = 0; i < ctime; i++) {
+                (void) volatile_var;
+        }
+}
+/*
  *  並行実行されるタスクへのメッセージ領域
  */
 …
  *  並行実行されるタスク
  */
 void eSampleTask_main(int_t subscript)
+{
+        volatile ulong_t        i;
+void
+eSampleTask_main(int_t subscript)
+{
         int_t           n = 0;
         int_t           tskno = subscript + 1;
 …
                 syslog(LOG_NOTICE, "task%d is running (%03d).   %s",
                                                                                 tskno, ++n, graph[tskno-1]);
                 for (i = 0; i < task_loop; i++);
+                consume_time(task_loop);
                 c = message[tskno-1];
                 message[tskno-1] = 0;
 …
 /*
+ *  割込みサービスルーチン
+ *
+ *  HIGH_PRIORITY，MID_PRIORITY，LOW_PRIORITY の各優先度のレディキュー
+ *  を回転させる．
+ */
+#ifdef INTNO1
+void
+eiISR_main(void)
+{
+        intno1_clear();
+        SVC_PERROR(ciKernel_rotateReadyQueue(HIGH_PRIORITY));
+        SVC_PERROR(ciKernel_rotateReadyQueue(MID_PRIORITY));
+        SVC_PERROR(ciKernel_rotateReadyQueue(LOW_PRIORITY));
+}
+#endif /* INTNO1 */
+/*
  *  CPU例外ハンドラ
  */
 ID      cpuexc_tskid;           /* CPU例外を起こしたタスクのID */
 …
 void
 cpuexc_handler(void *p_excinf)
+eiCpuExceptionHandler_main(const void *p_excinf)
+{
         syslog(LOG_NOTICE, "CPU exception handler (p_excinf = %08p).", p_excinf);
         if (ciKernel_senseContext() != true) {
                 syslog(LOG_WARNING,
                                         "ciKernel_senseContext() is not true in CPU exception handler.");
+                syslog(LOG_WARNING, "ciKernel_senseContext() is not true"
+                                                                                        " in CPU exception handler.");
+        }
         if (ciKernel_senseDispatchPendingState() != true) {
+                syslog(LOG_WARNING,
+                                        "ciKernel_senseDispatchPendingState() is not true in CPU exception handler.");
+        }
+        syslog(LOG_INFO, "ciKernel_senseLock() = %d ciKernel_senseDispatch() = %d ciKernel_exceptionSenseDispatchPendingState() = %d",
+                   ciKernel_senseLock(), ciKernel_senseDispatch(), ciKernel_exceptionSenseDispatchPendingState(p_excinf));
+                syslog(LOG_WARNING, "ciKernel_senseDispatchPendingState() is not true"
+                                                                                        " in CPU exception handler.");
+        }
+        syslog(LOG_INFO, "ciKernel_senseLock() = %d, ciKernel_senseDispatch() = %d",
+                                                ciKernel_senseLock(), ciKernel_senseDispatch());
+        syslog(LOG_INFO, "ciKernel_exceptionSenseDispatchPendingState() = %d",
+                                                ciKernel_exceptionSenseDispatchPendingState(p_excinf));
         if (ciKernel_exceptionSenseDispatchPendingState(p_excinf)) {
                 syslog(LOG_NOTICE, "Sample program ends with exception.");
                 SVC_PERROR(ciKernel_senseKernel());
+                SVC_PERROR(ciKernel_exitKernel());
                 assert(0);
+        }
-#ifdef PREPARE_RETURN_CPUEXC
-        PREPARE_RETURN_CPUEXC;
         SVC_PERROR(ciKernel_getTaskId(&cpuexc_tskid));
         cExceptionTask_activate();
-#else /* PREPARE_RETURN_CPUEXC */
-        syslog(LOG_NOTICE, "Sample program ends with exception.");
-        SVC_PERROR(ciKernel_exitKernel());
-        assert(0);
-#endif /* PREPARE_RETURN_CPUEXC */
+}
 …
  *  を回転させる．
  */
+/* #[<ENTRY_FUNC>]# eiCyclicHandler_main
+ * name:         eiCyclicHandler_main
+ * global_name:  tSample2_eiCyclicHandler_main
+ * oneway:
+ * #[/ENTRY_FUNC>]# */
+void
+eiCyclicHandler_main()
+void
+eiCyclicHandler_main(void)
+{
         SVC_PERROR(ciKernel_rotateReadyQueue(HIGH_PRIORITY));
 …
  *  を回転させる．
  */
+/* #[<ENTRY_FUNC>]# eiAlarmHandler_main
+ * name:         eiAlarmHandler_main
+ * global_name:  tSample2_eiAlarmHandler_main
+ * oneway:
+ * #[/ENTRY_FUNC>]# */
+void
+eiAlarmHandler_main()
+void
+eiAlarmHandler_main(void)
+{
         SVC_PERROR(ciKernel_rotateReadyQueue(HIGH_PRIORITY));
 …
         SVC_PERROR(ciKernel_rotateReadyQueue(LOW_PRIORITY));
+}
 /*
  *  例外処理タスク
  */
+/* #[<ENTRY_FUNC>]# eExceptionTask_main
+ * name:         eExceptionTask_main
+ * global_name:  tSample2_eExceptionTask_main
+ * oneway:
+ * #[/ENTRY_FUNC>]# */
+void eExceptionTask_main()
+void
+eExceptionTask_main(void)
+{
         SVC_PERROR(ras_ter(cpuexc_tskid));
+}
 /*
  *  メインタスク
  */
+/* 属性の設定 *//* #[<ENTRY_FUNC>]# eMainTask_main
+ * name:         eMainTask_main
+ * global_name:  tSample2_eMainTask_main
+ * oneway:
+ * #[/ENTRY_FUNC>]# */
+void
+eMainTask_main()
+void
+eMainTask_main(void)
+{
         char    c;
-        volatile ulong_t        i;
-        ulong_t j;
         int_t   tskno = 1;
         ER_UINT ercd;
         PRI             tskpri;
+#ifndef TASK_LOOP
         SYSTIM  stime1, stime2;
+#endif /* TASK_LOOP */
         HRTCNT  hrtcnt1, hrtcnt2;
+        if (is_cSerialPort_joined()) {
+                SVC_PERROR(cSysLog_mask(LOG_UPTO(LOG_INFO), LOG_UPTO(LOG_ERROR)));
+        } else {
+                /*
+                 *  シリアル出力ができない場合、ログメッセージを全て
+                 *  低レベル出力により出力する。
+                 */
+                SVC_PERROR(cSysLog_mask(LOG_UPTO(LOG_INFO), LOG_UPTO(LOG_DEBUG)));
+        }
+        SVC_PERROR(cSysLog_mask(LOG_UPTO(LOG_INFO), LOG_UPTO(LOG_EMERG)));
         syslog(LOG_NOTICE, "Sample program starts.");
 …
          *  ない．
          */
+        if (is_cSerialPort_joined()) {
+                ercd = cSerialPort_open();
+                if (ercd < 0 && MERCD(ercd) != E_OBJ) {
+                        syslog(LOG_ERROR, "%s (%d) reported by `cSerialPort_open'.",
+                                                                                itron_strerror(ercd), SERCD(ercd));
+                }
+                SVC_PERROR(cSerialPort_control(IOCTL_CRLF | IOCTL_FCSND | IOCTL_FCRCV));
+        }
+        ercd = cSerialPort_open();
+        if (ercd < 0 && MERCD(ercd) != E_OBJ) {
+                syslog(LOG_ERROR, "%s (%d) reported by `cSerialPort_open'.",
+                                                                        itron_strerror(ercd), SERCD(ercd));
+        }
+        SVC_PERROR(cSerialPort_control(IOCTL_CRLF | IOCTL_FCSND | IOCTL_FCRCV));
         /*
          *  ループ回数の設定
+         *
          *  並行実行されるタスク内での空ループの回数（task_loop）は，空ルー
          *  プの実行時間が約0.4秒になるように設定する．この設定のために，
          *  LOOP_REF回の空ループの実行時間を，その前後でget_timを呼ぶことで
          *  測定し，その測定結果から空ループの実行時間が0.4秒になるループ回
          *  数を求め，task_loopに設定する．
+         *  並行実行されるタスク内でのループの回数（task_loop）は，ループ
+         *  の実行時間が約0.4秒になるように設定する．この設定のために，
+         *  LOOP_REF回のループの実行時間を，その前後でgetTimeを呼ぶことで
+         *  測定し，その測定結果から空ループの実行時間が0.4秒になるループ
+         *  回数を求め，task_loopに設定する．
+         *
+         *  LOOP_REFは，デフォルトでは1,000,000に設定しているが，想定したよ
+         *  り遅いプロセッサでは，サンプルプログラムの実行開始に時間がかか
+         *  りすぎるという問題を生じる．逆に想定したより速いプロセッサでは，
+         *  LOOP_REF回の空ループの実行時間が短くなり，task_loopに設定する値
+         *  の誤差が大きくなるという問題がある．
+         *
+         *  そこで，そのようなターゲットでは，target_test.hで，LOOP_REFを適
+         *  切な値に定義するのが望ましい．
+         *  LOOP_REFは，デフォルトでは1,000,000に設定しているが，想定した
+         *  より遅いプロセッサでは，サンプルプログラムの実行開始に時間がか
+         *  かりすぎるという問題を生じる．逆に想定したより速いプロセッサで
+         *  は，LOOP_REF回のループの実行時間が短くなり，task_loopに設定す
+         *  る値の誤差が大きくなるという問題がある．そこで，そのようなター
+         *  ゲットでは，target_test.hで，LOOP_REFを適切な値に定義すること
+         *  とする．
+         *
          *  また，task_loopの値を固定したい場合には，その値をTASK_LOOPにマ
          *  クロ定義する．TASK_LOOPがマクロ定義されている場合，上記の測定を
          *  行わずに，TASK_LOOPに定義された値を空ループの回数とする．
+         *  クロ定義する．TASK_LOOPがマクロ定義されている場合，上記の測定
+         *  を行わずに，TASK_LOOPに定義された値をループの回数とする．
+         *
          * ターゲットによっては，空ループの実行時間の1回目の測定で，本来よ
          * りも長めになるものがある．このようなターゲットでは，MEASURE_TWICE
          * をマクロ定義することで，1回目の測定結果を捨てて，2回目の測定結果
          * を使う．
+         *  ターゲットによっては，ループの実行時間の1回目の測定で，本来より
+         *  も長めになるものがある．このようなターゲットでは，MEASURE_TWICE
+         *  をマクロ定義することで，1回目の測定結果を捨てて，2回目の測定結
+         *  果を使う．
          */
 #ifdef TASK_LOOP
 …
 #ifdef MEASURE_TWICE
+        task_loop = LOOP_REF;
+        SVC_PERROR(get_tim(&stime1));
+        for (i = 0; i < task_loop; i++);
+        SVC_PERROR(get_tim(&stime2));
+        SVC_PERROR(getTime(&stime1));
+        consume_time(LOOP_REF);
+        SVC_PERROR(getTime(&stime2));
 #endif /* MEASURE_TWICE */
+        task_loop = LOOP_REF;
+        SVC_PERROR(get_tim(&stime1));
+        for (i = 0; i < task_loop; i++);
+        SVC_PERROR(get_tim(&stime2));
+        SVC_PERROR(getTime(&stime1));
+        consume_time(LOOP_REF);
+        SVC_PERROR(getTime(&stime2));
         task_loop = LOOP_REF * 400LU / (ulong_t)(stime2 - stime1) * 1000LU;
 …
          *  タスクの起動
          */
+        SVC_PERROR(cTask_activate( 1 ));
+        SVC_PERROR(cTask_activate( 2 ));
+        SVC_PERROR(cTask_activate( 3 ));
+        SVC_PERROR(cTask_activate(1));
+        SVC_PERROR(cTask_activate(2));
+        SVC_PERROR(cTask_activate(3));
         /*
          *  メインループ
          */
+        if (is_cSerialPort_joined()) {
+                do {
+                        SVC_PERROR(cSerialPort_read(&c, 1));
+                        switch (c) {
+                        case 'e':
+                        case 's':
+                        case 'S':
+                        case 'd':
+                        case 'y':
+                        case 'Y':
+                        case 'z':
+                        case 'Z':
+                                message[tskno-1] = c;
+                                break;
+                        case '1':
+                                tskno = 1;
+                                break;
+                        case '2':
+                                tskno = 2;
+                                break;
+                        case '3':
+                                tskno = 3;
+                                break;
+                        case 'a':
+                                syslog(LOG_INFO, "#cTask_activate(%d)", tskno);
+                                SVC_PERROR(cTask_activate(tskno));
+                                break;
+                        case 'A':
+                                syslog(LOG_INFO, "#cTask_cancelActivate(%d)", tskno);
+                                SVC_PERROR(cTask_cancelActivate(tskno));
+                                if (ercd >= 0) {
+                                        syslog(LOG_NOTICE, "cTask_cancelActivate(%d) returns %d", tskno, ercd);
+                                }
+                                break;
+                        case 't':
+                                syslog(LOG_INFO, "#cTask_terminate(%d)", tskno);
+                                SVC_PERROR(cTask_terminate(tskno));
+                                break;
+                        case '>':
+                                syslog(LOG_INFO, "#cTask_changePriority(%d, HIGH_PRIORITY)", tskno);
+                                SVC_PERROR(cTask_changePriority(tskno, HIGH_PRIORITY));
+                                break;
+                        case '=':
+                                syslog(LOG_INFO, "#cTask_changePriority(%d, MID_PRIORITY)", tskno);
+                                SVC_PERROR(cTask_changePriority(tskno, MID_PRIORITY));
+                                break;
+                        case '<':
+                                syslog(LOG_INFO, "#(cTask_changePriority(%d, LOW_PRIORITY)", tskno);
+                                SVC_PERROR(cTask_changePriority(tskno, LOW_PRIORITY));
+                                break;
+                        case 'G':
+                                syslog(LOG_INFO, "#cTask_getPriority(%d, &tskpri)", tskno);
+                                SVC_PERROR(ercd = cTask_getPriority(tskno, &tskpri));
+                                if (ercd >= 0) {
+                                        syslog(LOG_NOTICE, "priority of task %d is %d", tskno, tskpri);
+                                }
+                                break;
+                        case 'w':
+                                syslog(LOG_INFO, "#cTask_wakeup(%d)", tskno);
+                                SVC_PERROR(cTask_wakeup(tskno));
+                                break;
+                        case 'W':
+                                syslog(LOG_INFO, "#cTask_cancelWakeup(%d)", tskno);
+                                SVC_PERROR(ercd = cTask_cancelWakeup(tskno));
+                                if (ercd >= 0) {
+                                        syslog(LOG_NOTICE, "cTask_cancelWakeup(%d) returns %d", tskno, ercd);
+                                }
+                                break;
+                        case 'l':
+                                syslog(LOG_INFO, "#cTask_releaseWait(%d)", tskno);
+                                SVC_PERROR(cTask_releaseWait(tskno));
+                                break;
+                        case 'u':
+                                syslog(LOG_INFO, "#cTask_suspend(%d)", tskno);
+                                SVC_PERROR(cTask_suspend(tskno));
+                                break;
+                        case 'm':
+                                syslog(LOG_INFO, "#cTask_resume(%d)", tskno);
+                                SVC_PERROR(cTask_resume(tskno));
+                                break;
+                        case 'x':
+                                syslog(LOG_INFO, "#cTask_raiseTerminate(%d)", tskno);
+                                SVC_PERROR(cTask_raiseTerminate(tskno));
+                                break;
+                        case 'X':
+                                syslog(LOG_INFO, "#cTask_raiseTerminate(%d)", tskno);
+                                SVC_PERROR(cTask_raiseTerminate(tskno));
+                                break;
+                        case 'r':
+                                syslog(LOG_INFO, "#rotateReadyQueue(three priorities)");
+                                SVC_PERROR(rotateReadyQueue(HIGH_PRIORITY));
+                                SVC_PERROR(rotateReadyQueue(MID_PRIORITY));
+                                SVC_PERROR(rotateReadyQueue(LOW_PRIORITY));
+                                break;
+                        case 'c':
+                                syslog(LOG_INFO, "#cCyclic_start(1)");
+                                SVC_PERROR(cCyclic_start());
+                                break;
+                        case 'C':
+                                syslog(LOG_INFO, "#cCyclic_stop(1)");
+                                SVC_PERROR(cCyclic_stop());
+                                break;
+                        case 'b':
+                                syslog(LOG_INFO, "#cAlarm_start(1, 5000000)");
+                                SVC_PERROR(cAlarm_start(5000000));
+                                break;
+                        case 'B':
+                                syslog(LOG_INFO, "#cAlarm_stop()(1)");
+                                SVC_PERROR(cAlarm_stop());
+                                break;
+                        case 'V':
+                                hrtcnt1 = fetchHighResolutionTimer();
+                                hrtcnt2 = fetchHighResolutionTimer();
+                                syslog(LOG_NOTICE, "hrtcnt1 = %tu, hrtcnt2 = %tu",
+                                                                                        hrtcnt1, hrtcnt2);
+                                break;
+                        case 'v':
+                                SVC_PERROR(cSysLog_mask(LOG_UPTO(LOG_INFO),
+                                                                                        LOG_UPTO(LOG_EMERG)));
+                                break;
+                        case 'q':
+                                SVC_PERROR(cSysLog_mask(LOG_UPTO(LOG_NOTICE),
+                                                                                        LOG_UPTO(LOG_EMERG)));
+                                break;
+#ifdef BIT_KERNEL
+                        case ' ':
+                                SVC_PERROR(lockCpu());
+                                {
+                                        extern ER       bit_kernel(void);
+                                        SVC_PERROR(ercd = bit_kernel());
+                                        if (ercd >= 0) {
+                                                syslog(LOG_NOTICE, "bit_kernel passed.");
+                                        }
+                                }
+                                SVC_PERROR(unlockCpu());
+                                break;
+#endif /* BIT_KERNEL */
+                        default:
+                                break;
+        do {
+                SVC_PERROR(cSerialPort_read(&c, 1));
+                switch (c) {
+                case 'e':
+                case 's':
+                case 'S':
+                case 'd':
+                case 'y':
+                case 'Y':
+                case 'z':
+                case 'Z':
+                        message[tskno-1] = c;
+                        break;
+                case '1':
+                        tskno = 1;
+                        break;
+                case '2':
+                        tskno = 2;
+                        break;
+                case '3':
+                        tskno = 3;
+                        break;
+                case 'a':
+                        syslog(LOG_INFO, "#cTask_activate(%d)", tskno);
+                        SVC_PERROR(cTask_activate(tskno));
+                        break;
+                case 'A':
+                        syslog(LOG_INFO, "#cTask_cancelActivate(%d)", tskno);
+                        SVC_PERROR(ercd = cTask_cancelActivate(tskno));
+                        if (ercd >= 0) {
+                                syslog(LOG_NOTICE, "cTask_cancelActivate(%d) returns %d",
+                                                                                                                        tskno, ercd);
+                        }
+                } while (c != '\003' && c != 'Q');
+        } else {
+                syslog(LOG_NOTICE, "cSerialPort of tSample2 is not joined.");
+                syslog(LOG_NOTICE, "Sample program will halt after 40 seconds.");
+                for (j = 0; j < 100; j++) {
+                        for (i = 0; i < task_loop; i++);
+                        break;
+                case 't':
+                        syslog(LOG_INFO, "#cTask_terminate(%d)", tskno);
+                        SVC_PERROR(cTask_terminate(tskno));
+                        break;
+                case '>':
+                        syslog(LOG_INFO, "#cTask_changePriority(%d, HIGH_PRIORITY)", tskno);
+                        SVC_PERROR(cTask_changePriority(tskno, HIGH_PRIORITY));
+                        break;
+                case '=':
+                        syslog(LOG_INFO, "#cTask_changePriority(%d, MID_PRIORITY)", tskno);
+                        SVC_PERROR(cTask_changePriority(tskno, MID_PRIORITY));
+                        break;
+                case '<':
+                        syslog(LOG_INFO, "#(cTask_changePriority(%d, LOW_PRIORITY)", tskno);
+                        SVC_PERROR(cTask_changePriority(tskno, LOW_PRIORITY));
+                        break;
+                case 'G':
+                        syslog(LOG_INFO, "#cTask_getPriority(%d, &tskpri)", tskno);
+                        SVC_PERROR(ercd = cTask_getPriority(tskno, &tskpri));
+                        if (ercd >= 0) {
+                                syslog(LOG_NOTICE, "priority of task %d is %d", tskno, tskpri);
+                        }
+                        break;
+                case 'w':
+                        syslog(LOG_INFO, "#cTask_wakeup(%d)", tskno);
+                        SVC_PERROR(cTask_wakeup(tskno));
+                        break;
+                case 'W':
+                        syslog(LOG_INFO, "#cTask_cancelWakeup(%d)", tskno);
+                        SVC_PERROR(ercd = cTask_cancelWakeup(tskno));
+                        if (ercd >= 0) {
+                                syslog(LOG_NOTICE, "cTask_cancelWakeup(%d) returns %d",
+                                                                                                                        tskno, ercd);
+                        }
+                        break;
+                case 'l':
+                        syslog(LOG_INFO, "#cTask_releaseWait(%d)", tskno);
+                        SVC_PERROR(cTask_releaseWait(tskno));
+                        break;
+                case 'u':
+                        syslog(LOG_INFO, "#cTask_suspend(%d)", tskno);
+                        SVC_PERROR(cTask_suspend(tskno));
+                        break;
+                case 'm':
+                        syslog(LOG_INFO, "#cTask_resume(%d)", tskno);
+                        SVC_PERROR(cTask_resume(tskno));
+                        break;
+                case 'x':
+                        syslog(LOG_INFO, "#cTask_raiseTerminate(%d)", tskno);
+                        SVC_PERROR(cTask_raiseTerminate(tskno));
+                        break;
+                case 'X':
+                        syslog(LOG_INFO, "#cTask_raiseTerminate(%d)", tskno);
+                        SVC_PERROR(cTask_raiseTerminate(tskno));
+                        break;
+                case 'r':
+                        syslog(LOG_INFO, "#rotateReadyQueue(three priorities)");
+                        SVC_PERROR(rotateReadyQueue(HIGH_PRIORITY));
+                        SVC_PERROR(rotateReadyQueue(MID_PRIORITY));
+                        SVC_PERROR(rotateReadyQueue(LOW_PRIORITY));
+                        break;
+                case 'c':
+                        syslog(LOG_INFO, "#cCyclic_start()");
+                        SVC_PERROR(cCyclic_start());
+                        break;
+                case 'C':
+                        syslog(LOG_INFO, "#cCyclic_stop()");
+                        SVC_PERROR(cCyclic_stop());
+                        break;
+                case 'b':
+                        syslog(LOG_INFO, "#cAlarm_start(5000000)");
+                        SVC_PERROR(cAlarm_start(5000000));
+                        break;
+                case 'B':
+                        syslog(LOG_INFO, "#cAlarm_stop()");
+                        SVC_PERROR(cAlarm_stop());
+                        break;
+                case 'V':
+                        hrtcnt1 = fetchHighResolutionTimer();
+                        consume_time(1000LU);
+                        hrtcnt2 = fetchHighResolutionTimer();
+                        syslog(LOG_NOTICE, "hrtcnt1 = %tu, hrtcnt2 = %tu",
+                                                                (uint32_t) hrtcnt1, (uint32_t) hrtcnt2);
+                        break;
+                case 'v':
+                        SVC_PERROR(cSysLog_mask(LOG_UPTO(LOG_INFO),
+                                                                                LOG_UPTO(LOG_EMERG)));
+                        break;
+                case 'q':
+                        SVC_PERROR(cSysLog_mask(LOG_UPTO(LOG_NOTICE),
+                                                                                LOG_UPTO(LOG_EMERG)));
+                        break;
+                case '\003':
+                case 'Q':
+                        break;
+                default:
+                        syslog(LOG_INFO, "Unknown command: '%c'.", c);
+                        break;
+                }
+        }
+        } while (c != '\003' && c != 'Q');
         syslog(LOG_NOTICE, "Sample program ends.");
         SVC_PERROR(ciKernel_exitKernel());
+        SVC_PERROR(exitKernel());
         assert(0);
+}

EcnlProtoTool/trunk/asp3_dcre/sample/tSample2.cdl

-              r321
+              r429
  *  $Id$
  */
 /*
  *  カーネルオブジェクトの定義
  */
 import("kernel.cdl");
+import(<kernel.cdl>);
 /*
 …
 import("syssvc/tSerialPort.cdl");
 import("syssvc/tSysLog.cdl");
+import("syssvc/tSysLogAdapter.cdl");
 import("syssvc/tLogTask.cdl");
 import("syssvc/tBanner.cdl");
 …
 /*
+ *  サンプルプログラムのC言語ヘッダファイルの取り込み
+ */
+import_C("tSample2.h");
+/*
  *  「セルの組上げ記述」とは，"cell"で始まる行から，それに対応する"};"
  *  の行までのことを言う．
 …
 /*
+ *  システムログ機能の組上げ記述
+ *              システムログ機能のアダプタの組上げ記述
+ *
+ *  システムログ機能のアダプタは，C言語で記述されたコードから，TECSベー
+ *  スのシステムログ機能を呼び出すためのセルである．システムログ機能の
+ *  サービスコール（syslog，syslog_0～syslog_5，t_perrorを含む）を呼び
+ *  出さない場合には，以下のセルの組上げ記述を削除してよい．
+ */
+cell tSysLogAdapter SysLogAdapter {
+        cSysLog = SysLog.eSysLog;
+};
+/*
+ *              システムログ機能の組上げ記述
+ *
  *  システムログ機能を外す場合には，以下のセルの組上げ記述を削除し，コ
 …
         initLowMask = C_EXP("LOG_UPTO(LOG_EMERG)");
                                                                                 /* 低レベル出力すべき重要度 */
         /* 低レベル出力との結合 */
         cPutLog = PutLogTarget.ePutLog;
 …
 /*
  *  シリアルインタフェースドライバの組上げ記述
+ *              シリアルインタフェースドライバの組上げ記述
+ *
  *  シリアルインタフェースドライバを外す場合には，以下のセルの組上げ記
 …
 /*
  *  システムログタスクの組上げ記述
+ *              システムログタスクの組上げ記述
+ *
  *  システムログタスクを外す場合には，以下のセルの組上げ記述を削除すれ
 …
 /*
  *  カーネル起動メッセージ出力の組上げ記述
+ *              カーネル起動メッセージ出力の組上げ記述
+ *
  *  カーネル起動メッセージの出力を外す場合には，以下のセルの組上げ記述
 …
 /*
  *  サンプルプログラムの定義
+ *              サンプルプログラムのセルタイプの定義
  */
 [singleton]
 …
         call sAlarm         cAlarm;
         [optional] call sSerialPort     cSerialPort;/* シリアルドライバとの接続 */
+        call sSerialPort        cSerialPort;    /* シリアルドライバとの接続 */
         call sSysLog            cSysLog;                /* システムログ機能との接続 */
 …
         entry sTaskBody         eExceptionTask; /* 例外処理タスク */
+        entry siHandlerBody eiCyclicHandler;/* 周期ハンドラ*/
+        entry siHandlerBody eiAlarmHandler; /* アラームハンドラ */
+};
+/*
+ *  組み上げ記述
+ */
+/* Sample2のプロトタイプ宣言 */
+cell tSample2 Sample2;
+cell tKernel ASPKernel{
+        entry siHandlerBody eiCyclicHandler;    /* 周期ハンドラ*/
+        entry siHandlerBody eiAlarmHandler;             /* アラームハンドラ */
+        entry siHandlerBody     eiISR;                          /* 割込みサービスルーチン */
+        entry siCpuExceptionHandlerBody eiCpuExceptionHandler;
+                                                                                        /* CPU例外ハンドラ */
+};
+/*
+ *              組み上げ記述
+ */
+cell tKernel ASPKernel {
 };
 …
 cell tAlarmHandler AlarmHandler {
+        /* 呼び口の結合 */
         ciHandlerBody = Sample2.eiAlarmHandler;
 };
+cell tInterruptRequest InterruptRequest {
+        /* 属性の設定 */
+        interruptNumber = C_EXP("INTNO1");
+        attribute = C_EXP("INTNO1_INTATR");
+        interruptPriority = C_EXP("INTNO1_INTPRI");
+};
+cell tISR InterruptServiceRoutine {
+        /* 呼び口の結合 */
+        ciISRBody = Sample2.eiISR;
+        /* 属性の設定 */
+        attribute = C_EXP("TA_NULL");
+        interruptNumber = C_EXP("INTNO1");
+};
+cell tCpuExceptionHandler CpuExceptionHandler {
+        /* 呼び口の結合 */
+        ciCpuExceptionHandlerBody = Sample2.eiCpuExceptionHandler;
+        /* 属性の設定 */
+        cpuExceptionHandlerNumber = C_EXP("CPUEXC1");
+};
 cell tSample2 Sample2 {
         /* 呼び口の結合 */
         cTask[ 0 ] = MainTask.eTask;
         cTask[ 1 ] = Task1.eTask;
         cTask[ 2 ] = Task2.eTask;
         cTask[ 3 ] = Task3.eTask;
+        cTask[0] = MainTask.eTask;
+        cTask[1] = Task1.eTask;
+        cTask[2] = Task2.eTask;
+        cTask[3] = Task3.eTask;
         cExceptionTask = ExceptionTask.eTask;

EcnlProtoTool/trunk/asp3_dcre/sample/tSample2.cfg

-              r321
+              r429
  *  $Id$
  */
+INCLUDE("gen/tecsgen.cfg");
+#include "tSample2.h"
+#ifdef CPUEXC1
+DEF_EXC(CPUEXC1, { TA_NULL, cpuexc_handler });
+#endif /* CPUEXC1 */
+INCLUDE("tecsgen.cfg");

EcnlProtoTool/trunk/asp3_dcre/sample/tSample2.h

-              r321
+              r429
  *  Copyright (C) 2000-2003 by Embedded and Real-Time Systems Laboratory
  *                              Toyohashi Univ. of Technology, JAPAN
  *  Copyright (C) 2004-2007 by Embedded and Real-Time Systems Laboratory
+ *  Copyright (C) 2004-2018 by Embedded and Real-Time Systems Laboratory
  *              Graduate School of Information Science, Nagoya Univ., JAPAN
+ *
 …
 #define EXC_PRIORITY    1               /* 例外処理タスクの優先度 */
 #define MAIN_PRIORITY   6               /* メインタスクの優先度 */
+#define MAIN_PRIORITY   5               /* メインタスクの優先度 */
                                                                 /* HIGH_PRIORITYより高くすること */
 …
 /*
  *  関数のプロトタイプ宣言
+ *  必要な定義のチェック
  */
+#ifndef TOPPERS_MACRO_ONLY
+//extern void   task(intptr_t exinf);
+extern void     main_task(intptr_t exinf);
+extern void     cyclic_handler(intptr_t exinf);
+extern void     alarm_handler(intptr_t exinf);
+extern void     cpuexc_handler(void *p_excinf);
+#endif /* TOPPERS_MACRO_ONLY */
+#ifndef INTNO1
+#error INTNO1 is necessary for this sample program.
+#endif /* INTNO1 */
+#ifndef CPUEXC1
+#error CPUEXC1 is necessary for this sample program.
+#endif /* CPUEXC1 */

EcnlProtoTool/trunk/asp3_dcre/syssvc/histogram.h

-              r321
+              r429
  *      Toyohashi Open Platform for Embedded Real-Time Systems
+ *
  *  Copyright (C) 2006-2016 by Embedded and Real-Time Systems Laboratory
+ *  Copyright (C) 2006-2018 by Embedded and Real-Time Systems Laboratory
  *              Graduate School of Information Science, Nagoya Univ., JAPAN
+ *
 …
  *  実行時間分布計測の初期化
  */
 extern void     init_hist(ID histid);
+extern ER       init_hist(ID histid);
 /*
  *  実行時間計測の開始
  */
 extern void     begin_measure(ID histid);
+extern ER       begin_measure(ID histid);
 /*
  *  実行時間計測の終了
  */
 extern void     end_measure(ID histid);
+extern ER       end_measure(ID histid);
 /*
  *  実行時間分布計測の表示
  */
 extern void     print_hist(ID histid);
+extern ER       print_hist(ID histid);
 #ifdef __cplusplus

EcnlProtoTool/trunk/asp3_dcre/syssvc/serial.h

-              r321
+              r429
 /*
+ *  TOPPERS/ASP Kernel
+ *      Toyohashi Open Platform for Embedded Real-Time Systems/
+ *      Advanced Standard Profile Kernel
+ *  TOPPERS Software
+ *      Toyohashi Open Platform for Embedded Real-Time Systems
+ *
  *  Copyright (C) 2000-2003 by Embedded and Real-Time Systems Laboratory
 …
 #define TOPPERS_SERIAL_H
-#include <kernel.h>
 #ifdef __cplusplus
 extern "C" {
 #endif
+#include <kernel.h>
 /*
 …
 } T_SERIAL_RPOR;
+#ifdef TOPPERS_OMIT_TECS
+/*
+ *  シリアルインタフェースドライバの初期化ルーチン
+ */
+extern void             serial_initialize(intptr_t exinf) throw();
+/*
+ *  シリアルインタフェースドライバからの未送信文字の取出し
+ */
+extern bool_t   serial_get_chr(ID portid, char *p_c) throw();
+#endif
 /*
  *  シリアルインタフェースドライバのサービスコール
 …
 extern ER               serial_opn_por(ID portid) throw();
 extern ER               serial_cls_por(ID portid) throw();
 extern ER_UINT  serial_rea_dat(ID portid, char *buf, uint_t len) throw();
+extern ER_UINT  serial_trea_dat(ID portid, char *buf, uint_t len, TMO tmout) throw();
 extern ER_UINT  serial_wri_dat(ID portid, const char *buf, uint_t len) throw();
 extern ER               serial_ctl_por(ID portid, uint_t ioctl) throw();
 extern ER               serial_ref_por(ID portid, T_SERIAL_RPOR *pk_rpor) throw();
+Inline ER_UINT  serial_rea_dat(ID portid, char *buf, uint_t len)
+{
+        return serial_trea_dat(portid, buf, len, TMO_FEVR);
+}
 /*

EcnlProtoTool/trunk/asp3_dcre/syssvc/syslog.h

-              r321
+              r429
 /*
+ *  TOPPERS/ASP Kernel
+ *      Toyohashi Open Platform for Embedded Real-Time Systems/
+ *      Advanced Standard Profile Kernel
+ *  TOPPERS Software
+ *      Toyohashi Open Platform for Embedded Real-Time Systems
+ *
  *  Copyright (C) 2000-2003 by Embedded and Real-Time Systems Laboratory
 …
 #include <t_syslog.h>
+#ifdef TOPPERS_OMIT_TECS
+/*
+ *  ログバッファのサイズ
+ */
+#ifndef TCNT_SYSLOG_BUFFER
+#define TCNT_SYSLOG_BUFFER      32              /* ログバッファのサイズ */
+#endif /* TCNT_SYSLOG_BUFFER */
+/*
+ *  システムログ機能の初期化
+ */
+extern void     syslog_initialize(intptr_t exinf) throw();
+#endif
+/*
+ *  ログ情報の重要度のビットマップを作るためのマクロ
+ */
+#define LOG_MASK(prio)          (1U << (prio))
+#define LOG_UPTO(prio)          ((1U << ((prio) + 1)) - 1)
+/*
+ *  パケット形式の定義
+ */
+typedef struct t_syslog_rlog {
+        uint_t  count;          /* ログバッファ中のログの数 */
+        uint_t  lost;           /* 失われたログの数 */
+        uint_t  logmask;        /* ログバッファに記録すべき重要度 */
+        uint_t  lowmask;        /* 低レベル出力すべき重要度 */
+} T_SYSLOG_RLOG;
 /*
  *  ログ情報の出力
 …
  *  出力すべきログ情報の重要度の設定
  */
 extern ER       syslog_msk_log(uint_t logmask, uint_t lowmask) throw();
+extern ER               syslog_msk_log(uint_t logmask, uint_t lowmask) throw();
 /*
  *  ログバッファの状態参照
  */
 extern ER       syslog_ref_log(T_SYSLOG_RLOG *pk_rlog) throw();
+extern ER               syslog_ref_log(T_SYSLOG_RLOG *pk_rlog) throw();
 /*
  *  低レベル出力によるすべてのログ情報の出力
  */
 extern ER       syslog_fls_log(void) throw();
+extern ER               syslog_fls_log(void) throw();
 #ifdef __cplusplus

EcnlProtoTool/trunk/asp3_dcre/syssvc/tBanner.cdl

-              r321
+              r429
 /*
+ *  TOPPERS/ASP Kernel
+ *      Toyohashi Open Platform for Embedded Real-Time Systems/
+ *      Advanced Standard Profile Kernel
+ *  TOPPERS Software
+ *      Toyohashi Open Platform for Embedded Real-Time Systems
+ *
  *  Copyright (C) 2016 by Embedded and Real-Time Systems Laboratory

EcnlProtoTool/trunk/asp3_dcre/syssvc/tBannerMain.c

-              r321
+              r429
  *  Copyright (C) 2000-2003 by Embedded and Real-Time Systems Laboratory
  *                              Toyohashi Univ. of Technology, JAPAN
  *  Copyright (C) 2004-2017 by Embedded and Real-Time Systems Laboratory
+ *  Copyright (C) 2004-2019 by Embedded and Real-Time Systems Laboratory
  *              Graduate School of Information Science, Nagoya Univ., JAPAN
+ *
 …
 "Copyright (C) 2000-2003 by Embedded and Real-Time Systems Laboratory\n"
 "                            Toyohashi Univ. of Technology, JAPAN\n"
 "Copyright (C) 2004-2017 by Embedded and Real-Time Systems Laboratory\n"
+"Copyright (C) 2004-2019 by Embedded and Real-Time Systems Laboratory\n"
 "            Graduate School of Information Science, Nagoya Univ., JAPAN\n"
 "%s";

EcnlProtoTool/trunk/asp3_dcre/syssvc/tHistogram.c

-              r321
+              r429
  *      Toyohashi Open Platform for Embedded Real-Time Systems
+ *
  *  Copyright (C) 2006-2016 by Embedded and Real-Time Systems Laboratory
+ *  Copyright (C) 2006-2018 by Embedded and Real-Time Systems Laboratory
  *              Graduate School of Information Science, Nagoya Univ., JAPAN
+ *
 …
 #include "tHistogram_tecsgen.h"
-#define syslog_write    cSysLog_write
 #include <t_syslog.h>
-#include <log_output.h>
 /*
  *  実行時間分布計測の初期化（受け口関数）
  */
+void
+ER
 eHistogram_initialize(CELLIDX idx)
+{
 …
         VAR_over = 0U;
         VAR_under = 0U;
+        return(E_OK);
+}
 …
  *  実行時間計測の開始（受け口関数）
  */
+void
+ER
 eHistogram_beginMeasure(CELLIDX idx)
+{
 …
         HIST_BM_HOOK();
         HIST_GET_TIM(&VAR_begin_time);
+        return(E_OK);
+}
 …
  *  実行時間計測の終了（受け口関数）
  */
+void
+ER
 eHistogram_endMeasure(CELLIDX idx)
+{
 …
                 VAR_under++;
+        }
+        return(E_OK);
+}
 …
  *  実行時間分布計測の表示（受け口関数）
  */
+void
+ER
 eHistogram_print(CELLIDX idx)
+{
 …
                 syslog_1(LOG_NOTICE, "> INT_MAX : %d", VAR_under);
+        }
+        return(E_OK);
+}

EcnlProtoTool/trunk/asp3_dcre/syssvc/tHistogram.cdl

-              r321
+              r429
  *      Toyohashi Open Platform for Embedded Real-Time Systems
+ *
  *  Copyright (C) 2016 by Embedded and Real-Time Systems Laboratory
+ *  Copyright (C) 2016-2018 by Embedded and Real-Time Systems Laboratory
  *              Graduate School of Information Science, Nagoya Univ., JAPAN
+ *
 …
          *  実行時間分布計測の初期化
          */
         void    initialize(void);
+        ER      initialize(void);
         /*
          *  実行時間計測の開始
          */
         void    beginMeasure(void);
+        ER      beginMeasure(void);
         /*
          *  実行時間計測の終了
          */
         void    endMeasure(void);
+        ER      endMeasure(void);
         /*
          *  実行時間分布計測の表示
          */
         void    print(void);
+        ER      print(void);
 };

EcnlProtoTool/trunk/asp3_dcre/syssvc/tHistogramAdapter.c

-              r321
+              r429
 /*
+ *  TOPPERS/ASP Kernel
+ *      Toyohashi Open Platform for Embedded Real-Time Systems/
+ *      Advanced Standard Profile Kernel
+ *  TOPPERS Software
+ *      Toyohashi Open Platform for Embedded Real-Time Systems
+ *
  *  Copyright (C) 2016 by Embedded and Real-Time Systems Laboratory
+ *  Copyright (C) 2016-2018 by Embedded and Real-Time Systems Laboratory
  *              Graduate School of Information Science, Nagoya Univ., JAPAN
+ *
 …
 /*
+ *  実行時間分布計測IDの範囲の判定
+ */
+#define VALID_HISTID(histid)    (1 <= histid && histid <= N_CP_cHistogram)
+/*
  *  実行時間分布計測の初期化（サービスコール）
  */
+void
+ER
 init_hist(ID histid)
+{
+        assert(1 <= histid && histid <= N_CP_cHistogram);
+        return(cHistogram_initialize(histid - 1));
+        ER              ercd;
+        if (!VALID_HISTID(histid)) {
+                ercd = E_ID;
+        }
+        else {
+                ercd = cHistogram_initialize(histid - 1);
+        }
+        return(ercd);
+}
 …
  *  実行時間計測の開始
  */
+void
+ER
 begin_measure(ID histid)
+{
+        assert(1 <= histid && histid <= N_CP_cHistogram);
+        return(cHistogram_beginMeasure(histid - 1));
+        ER              ercd;
+        if (!VALID_HISTID(histid)) {
+                ercd = E_ID;
+        }
+        else {
+                ercd = cHistogram_beginMeasure(histid - 1);
+        }
+        return(ercd);
+}
 …
  *  実行時間計測の終了
  */
+void
+ER
 end_measure(ID histid)
+{
+        assert(1 <= histid && histid <= N_CP_cHistogram);
+        return(cHistogram_endMeasure(histid - 1));
+        ER              ercd;
+        if (!VALID_HISTID(histid)) {
+                ercd = E_ID;
+        }
+        else {
+                ercd = cHistogram_endMeasure(histid - 1);
+        }
+        return(ercd);
+}
 …
  *  実行時間分布計測の表示
  */
+void
+ER
 print_hist(ID histid)
+{
+        assert(1 <= histid && histid <= N_CP_cHistogram);
+        return(cHistogram_print(histid - 1));
+        ER              ercd;
+        if (!VALID_HISTID(histid)) {
+                ercd = E_ID;
+        }
+        else {
+                ercd = cHistogram_print(histid - 1);
+        }
+        return(ercd);
+}

EcnlProtoTool/trunk/asp3_dcre/syssvc/tLogTask.cdl

-              r321
+              r429
 /*
+ *  TOPPERS/ASP Kernel
+ *      Toyohashi Open Platform for Embedded Real-Time Systems/
+ *      Advanced Standard Profile Kernel
+ *  TOPPERS Software
+ *      Toyohashi Open Platform for Embedded Real-Time Systems
+ *
  *  Copyright (C) 2015 by Ushio Laboratory

EcnlProtoTool/trunk/asp3_dcre/syssvc/tLogTaskMain.c

-              r321
+              r429
 /*
+ *  TOPPERS/ASP Kernel
+ *      Toyohashi Open Platform for Embedded Real-Time Systems/
+ *      Advanced Standard Profile Kernel
+ *  TOPPERS Software
+ *      Toyohashi Open Platform for Embedded Real-Time Systems
+ *
  *  Copyright (C) 2000-2003 by Embedded and Real-Time Systems Laboratory
  *                              Toyohashi Univ. of Technology, JAPAN
  *  Copyright (C) 2005-2016 by Embedded and Real-Time Systems Laboratory
+ *  Copyright (C) 2005-2018 by Embedded and Real-Time Systems Laboratory
  *              Graduate School of Information Science, Nagoya Univ., JAPAN
+ *
 …
+        }
         else {
                 for (;;) {
+                while (true) {
                         if (cSysLog_refer(&rlog) < 0) {
                                 ercd = E_SYS;
 …
                         rercd = dly_tsk(ATTR_flushWait);
                         if (rercd < 0) {
                                 ercd = (rercd == E_RLWAI) ? rercd : E_SYS;
+                                ercd = (MERCD(rercd) == E_RLWAI) ? rercd : E_SYS;
                                 goto error_exit;
+                        }
 …
+{
         SYSLOG  syslog;
-        uint_t  lost;
         ER_UINT rercd;
 …
         syslog_0(LOG_NOTICE, "System logging task is started.");
+        for (;;) {
+                lost = 0U;
+        while (true) {
                 while ((rercd = cSysLog_read(&syslog)) >= 0) {
+                        lost += (uint_t) rercd;
+                        if (lost > 0U) {
+                                syslog_lostmsg(lost, logtask_putc);
+                                lost = 0U;
+                        if (((uint_t) rercd) > 0U) {
+                                syslog_lostmsg((uint_t) rercd, logtask_putc);
+                        }
                         syslog_print(&syslog, logtask_putc);
-                        logtask_putc('\n');
+                }
+                if (lost > 0U) {
+                        syslog_lostmsg(lost, logtask_putc);
+                }
+                dly_tsk(ATTR_interval);
+                (void) dly_tsk(ATTR_interval);
+        }
+}
 …
                         syslog_lostmsg((uint_t) rercd, target_fput_log);
+                }
+                if (syslog.logtype >= LOG_TYPE_COMMENT) {
+                        syslog_print(&syslog, target_fput_log);
+                        target_fput_log('\n');
+                }
+                syslog_print(&syslog, target_fput_log);
+        }
+}

EcnlProtoTool/trunk/asp3_dcre/syssvc/tSerialAdapter.c

-              r321
+              r429
 /*
+ *  TOPPERS/ASP Kernel
+ *      Toyohashi Open Platform for Embedded Real-Time Systems/
+ *      Advanced Standard Profile Kernel
+ *  TOPPERS Software
+ *      Toyohashi Open Platform for Embedded Real-Time Systems
+ *
  *  Copyright (C) 2015,2016 by Embedded and Real-Time Systems Laboratory
 …
  */
 ER_UINT
 serial_rea_dat(ID portid, char *buf, uint_t len)
+serial_trea_dat(ID portid, char *buf, uint_t len, TMO tmout)
+{
         if (sns_dpn()) {                                /* コンテキストのチェック */
 …
+        }
         return(cSerialPort_read(portid - 1, buf, len));
+        return(cSerialPort_read(portid - 1, buf, len, tmout));
+}

EcnlProtoTool/trunk/asp3_dcre/syssvc/tSerialPort.cdl

-              r321
+              r429
 /*
+ *  TOPPERS/ASP Kernel
+ *      Toyohashi Open Platform for Embedded Real-Time Systems/
+ *      Advanced Standard Profile Kernel
+ *  TOPPERS Software
+ *      Toyohashi Open Platform for Embedded Real-Time Systems
+ *
  *  Copyright (C) 2015 by Ushio Laboratory
 …
         ER              open(void);
         ER              close(void);
         ER_UINT read([out,size_is(length)] char *buffer, [in] uint_t length);
+        ER_UINT read([out,size_is(length)] char *buffer, [in] uint_t length, [in] TMO tmout);
         ER_UINT write([in,size_is(length)] const char *buffer, [in] uint_t length);
         ER              control([in] uint_t ioControl);

EcnlProtoTool/trunk/asp3_dcre/syssvc/tSerialPortMain.c

-              r321
+              r429
 /*
+ *  TOPPERS/ASP Kernel
+ *      Toyohashi Open Platform for Embedded Real-Time Systems/
+ *      Advanced Standard Profile Kernel
+ *  TOPPERS Software
+ *      Toyohashi Open Platform for Embedded Real-Time Systems
+ *
  *  Copyright (C) 2000-2003 by Embedded and Real-Time Systems Laboratory
  *                              Toyohashi Univ. of Technology, JAPAN
  *  Copyright (C) 2006-2015 by Embedded and Real-Time Systems Laboratory
+ *  Copyright (C) 2006-2018 by Embedded and Real-Time Systems Laboratory
  *              Graduate School of Information Science, Nagoya Univ., JAPAN
+ *
 …
 /*
  *  シリアルポートへの文字送信
+ *  SIOポートへの文字送信
+ *
  *  p_cellcbで指定されるSIOポートに対して，文字cを送信する．文字を送信
  *  レジスタにいれた場合にはtrueを返す．そうでない場合には，送信レジス
  *  タが空いたことを通知するコールバック関数を許可し，falseを返す．この
  *  関数は，CPUロック状態で呼び出される．
+ *  p_cellcbで指定されるシリアルポートに対応するSIOポートに対して，文
+ *  字cを送信する．文字を送信レジスタにいれた場合にはtrueを返す．そう
+ *  でない場合には，送信レジスタが空いたことを通知するコールバック関数
+ *  を許可し，falseを返す．この関数は，CPUロック状態で呼び出される．
  */
 Inline bool_t
 …
+{
         bool_t  buffer_full;
+        ER              ercd, rercd;
+        ER_BOOL ercd;
+        ER              rercd;
         /*
 …
  *  シリアルポートからの1文字受信
  */
 static bool_t
+static ER_BOOL
 serialPort_readChar(CELLCB *p_cellcb, char *p_c)
+{
         bool_t  buffer_empty;
         ER              ercd;
+        ER_BOOL ercd;
         SVC(loc_cpu(), gen_ercd_sys(p_cellcb));
 …
  */
 ER_UINT
 eSerialPort_read(CELLIDX idx, char *buffer, uint_t length)
+eSerialPort_read(CELLIDX idx, char *buffer, uint_t length, TMO tmout)
+{
         CELLCB  *p_cellcb;
 …
         while (reacnt < length) {
                 if (buffer_empty) {
+                        SVC(rercd = cReceiveSemaphore_wait(),
+                                                                                gen_ercd_wait(rercd, p_cellcb));
+                        rercd = cReceiveSemaphore_waitTimeout(tmout);
+                        if (rercd == E_TMOUT)
+                                return E_TMOUT;
+                        if (rercd < 0) {
+                                gen_ercd_wait(rercd, p_cellcb);
+                                ercd = rercd;
+                                goto error_exit;
+                        }
+                }
                 SVC(rercd = serialPort_readChar(p_cellcb, &c), rercd);
 …
         if (VAR_receiveFlowControl != '\0') {
                 /*
                  *  START/STOP を送信する．
+                 *  START/STOPを送信する．
                  */
                 (void) cSIOPort_putChar(VAR_receiveFlowControl);
 …
                  */
                 VAR_sendStopped = false;
                 if (VAR_sendCount > 0U) {
+                while (VAR_sendCount > 0U) {
                         c = VAR_sendBuffer[VAR_sendReadPointer];
                         if (serialPort_sendChar(p_cellcb, c)) {
 …
                                 VAR_sendCount--;
+                        }
+                        else {
+                                break;
+                        }
+                }
+        }

EcnlProtoTool/trunk/asp3_dcre/syssvc/tSysLog.c

-              r321
+              r429
 /*
+ *  TOPPERS/ASP Kernel
+ *      Toyohashi Open Platform for Embedded Real-Time Systems/
+ *      Advanced Standard Profile Kernel
+ *  TOPPERS Software
+ *      Toyohashi Open Platform for Embedded Real-Time Systems
+ *
  *  Copyright (C) 2000-2003 by Embedded and Real-Time Systems Laboratory
  *                              Toyohashi Univ. of Technology, JAPAN
  *  Copyright (C) 2005-2016 by Embedded and Real-Time Systems Laboratory
+ *  Copyright (C) 2005-2018 by Embedded and Real-Time Systems Laboratory
  *              Graduate School of Information Science, Nagoya Univ., JAPAN
+ *
 …
 #include <t_syslog.h>
 #include <log_output.h>
+/*
+ *  トレースログに関する設定
+ */
+#ifdef TOPPERS_ENABLE_TRACE
+#include "arch/tracelog/trace_log.h"
+#endif /* TOPPERS_ENABLE_TRACE */
+/*
+ *  ターゲット依存情報の定義
+ */
 #include "target_syssvc.h"
 …
         if ((VAR_lowMask & LOG_MASK(priority)) != 0U) {
                 syslog_print(p_syslog, low_putchar);
-                low_putchar('\n');
+        }
 …
         while ((rercd = eSysLog_read(&logbuf)) >= 0) {
                 if (rercd > 0) {
+                if (((uint_t) rercd) > 0U) {
                         syslog_lostmsg((uint_t) rercd, low_putchar);
+                }
+                if (logbuf.logtype >= LOG_TYPE_COMMENT) {
+                        syslog_print(&logbuf, low_putchar);
+                        low_putchar('\n');
+                }
+        }
+        SIL_UNL_INT();
+        return(E_OK);
+}
+                syslog_print(&logbuf, low_putchar);
+        }
+        SIL_UNL_INT();
+        return(E_OK);
+}

EcnlProtoTool/trunk/asp3_dcre/syssvc/tSysLog.cdl

-              r321
+              r429
 /*
+ *  TOPPERS/ASP Kernel
+ *      Toyohashi Open Platform for Embedded Real-Time Systems/
+ *      Advanced Standard Profile Kernel
+ *  TOPPERS Software
+ *      Toyohashi Open Platform for Embedded Real-Time Systems
+ *
  *  Copyright (C) 2015 by Ushio Laboratory
 …
 /*
  *  システムログ出力に関する定義
+ *  システムログ機能に関する定義
  */
 import_C("t_syslog.h");
+import_C("syssvc/syslog.h");
 /*

EcnlProtoTool/trunk/asp3_dcre/syssvc/tSysLogAdapter.c

-              r321
+              r429
 /*
+ *  TOPPERS/ASP Kernel
+ *      Toyohashi Open Platform for Embedded Real-Time Systems/
+ *      Advanced Standard Profile Kernel
+ *  TOPPERS Software
+ *      Toyohashi Open Platform for Embedded Real-Time Systems
+ *
  *  Copyright (C) 2015,2016 by Embedded and Real-Time Systems Laboratory

EcnlProtoTool/trunk/asp3_dcre/syssvc/tTestService.c

-              r321
+              r429
 /*
+ *  TOPPERS/ASP Kernel
+ *      Toyohashi Open Platform for Embedded Real-Time Systems/
+ *      Advanced Standard Profile Kernel
+ *  TOPPERS Software
+ *      Toyohashi Open Platform for Embedded Real-Time Systems
+ *
  *  Copyright (C) 2016 by Embedded and Real-Time Systems Laboratory
+ *  Copyright (C) 2016-2018 by Embedded and Real-Time Systems Laboratory
  *              Graduate School of Information Science, Nagoya Univ., JAPAN
+ *
 …
  *  テストプログラムの開始（受け口関数）
  */
+void
+ER
 eTestService_start(const char *progname)
+{
         syslog_1(LOG_NOTICE, "Test program: %s", progname);
         VAR_check_count = 0U;
+}
+/*
+ *      自己診断関数の設定
+ */
+void
+eTestService_setBuiltInTest(Descriptor(sBuiltInTest) desc)
+{
+        cBuiltInTest_set_descriptor(desc);
+        return(E_OK);
+}
 …
  *      チェックポイント（受け口関数）
  */
+void
+ER
 eTestService_checkPoint(uint_t count)
+{
 …
          */
         SIL_UNL_INT();
+        return(E_OK);
+}
 …
  *      完了チェックポイント（受け口関数）
  */
+void
+ER
 eTestService_finishPoint(uint_t count)
+{
 …
+        }
         test_finish();
+        return(E_OK);
+}
 …
  *      条件チェックのエラー処理（受け口関数）
  */
+void
+ER
 eTestService_assertError(const char *expr, const char *file, int_t line)
+{
 …
                                                                                                 expr, file, line);
         test_finish();
+}
+/*
+ *      エラーコードチェックのエラー処理（受け口関数）
+ */
+void
+eTestService_serviceError(ER ercd, const char *file, int_t line)
+{
+        syslog_3(LOG_ERROR, "## Unexpected error %s detected at %s:%u.\007",
+                                                                                itron_strerror(ercd), file, line);
+        test_finish();
+        return(E_OK);
+}
 …
  */
 ER
+eTestService_serviceError(ER ercd, const char *file, int_t line)
+{
+        syslog_3(LOG_ERROR, "## Unexpected error %s detected at %s:%u.\007",
+                                                                                itron_strerror(ercd), file, line);
+        test_finish();
+        return(E_OK);
+}
+/*
+ *      割込み優先度マスクの取得（受け口関数）
+ */
+ER
 eTestService_getInterruptPriorityMask(PRI *p_ipm)
+{

EcnlProtoTool/trunk/asp3_dcre/syssvc/tTestService.cdl

-              r321
+              r429
 /*
+ *  TOPPERS/ASP Kernel
+ *      Toyohashi Open Platform for Embedded Real-Time Systems/
+ *      Advanced Standard Profile Kernel
+ *  TOPPERS Software
+ *      Toyohashi Open Platform for Embedded Real-Time Systems
+ *
  *  Copyright (C) 2016 by Embedded and Real-Time Systems Laboratory
+ *  Copyright (C) 2016-2018 by Embedded and Real-Time Systems Laboratory
  *              Graduate School of Information Science, Nagoya Univ., JAPAN
+ *
 …
  *  自己診断サービスのシグニチャ
  */
+[callback]
 signature sBuiltInTest {
         ER              builtInTest(void);
 …
 /*
  *  テストプログラム用サービスのシグニチャ
+ *
- *  setBuiltInTestは，TECSの中では動的結合を使って実現すべきであるが，
- *  C言語のアプリケーションから呼び出しやすくするために，TECSの作法違
- *  反のコードとなっている．
+ *
  *  getInterruptPriorityMaskは，そのままカーネルを呼び出すだけの関数で
 …
  */
 signature sTestService {
+        void    start([in, string] const char *progname);
+        void    setBuiltInTest([in] Descriptor(sBuiltInTest) desc);
+        void    checkPoint([in] uint_t count);
+        void    finishPoint([in] uint_t count);
+        void    assertError([in, string] const char *expr,
+        ER              start([in, string] const char *progname);
+        ER              checkPoint([in] uint_t count);
+        ER              finishPoint([in] uint_t count);
+        ER              assertError([in, string] const char *expr,
                                                         [in, string] const char *file, [in] int_t line);
         void    serviceError([in] ER ercd,
+        ER              serviceError([in] ER ercd,
                                                         [in, string] const char *file, [in] int_t line);
         ER              getInterruptPriorityMask([out] PRI *p_ipm);
 …
 [singleton, active]
 celltype tTestService {
         entry           sTestService    eTestService;
         [dynamic, optional] call        sBuiltInTest    cBuiltInTest;
         call            sSysLog                 cSysLog;
+        entry                           sTestService    eTestService;
+        call                            sSysLog                 cSysLog;
+        [optional] call         sBuiltInTest    cBuiltInTest;
         var {
 …
         };
 };
-/*
- *  自己診断サービスのディスクリプタを取得するシグニチャ
- */
-signature sGetBuiltInTestDescriptor {
-        ER              getDescriptor([out] Descriptor(sBuiltInTest) *p_desc,
-                                                                                                                [in] int_t i);
-};
-/*
- *  自己診断サービスのディスクリプタを取得するセルタイプ
- */
-[singleton, active]
-celltype tBuiltInTestAdaptor {
-        [ref_desc] call sBuiltInTest                            cBuiltInTest[];
-        entry                   sGetBuiltInTestDescriptor       eGetBuiltInTestDescriptor;
-};

EcnlProtoTool/trunk/asp3_dcre/syssvc/test_svc.h

-              r321
+              r429
 /*
+ *  TOPPERS/ASP Kernel
+ *      Toyohashi Open Platform for Embedded Real-Time Systems/
+ *      Advanced Standard Profile Kernel
+ *  TOPPERS Software
+ *      Toyohashi Open Platform for Embedded Real-Time Systems
+ *
  *  Copyright (C) 2005-2016 by Embedded and Real-Time Systems Laboratory
+ *  Copyright (C) 2005-2018 by Embedded and Real-Time Systems Laboratory
  *              Graduate School of Information Science, Nagoya Univ., JAPAN
+ *
 …
 /*
+ *  TECSで記述されたテストプログラム用のサービスを直接呼び出すための定義
+ *
+ *  C言語で記述されたアプリケーションから，TECSで記述されたテストプログ
+ *  ラム用のサービスを呼び出すためには，アダプタを用いるのが正当な方法
+ *  であるが，テストプログラム用のサービスがシングルトンであることを利
+ *  用して直接呼び出す．
+ *  テストプログラム用サービスのサービスコール
  */
+extern void     tTestService_eTestService_start(const char* progname);
+extern void     tTestService_eTestService_setBuiltInTest(void *desc);
+extern void     tTestService_eTestService_checkPoint(uint_t count);
+extern void     tTestService_eTestService_finishPoint(uint_t count);
+extern void     tTestService_eTestService_assertError(const char* expr,
+                                                                                        const char* file, int_t line);
+extern void     tTestService_eTestService_serviceError(ER ercd,
+                                                                                        const char* file, int_t line);
+extern ER       tTestService_eTestService_getInterruptPriorityMask(PRI* p_ipm);
+/*
+ *  テストプログラムの開始
+ */
+Inline void
+test_start(const char *progname)
+{
+        tTestService_eTestService_start(progname);
+}
+/*
+ *      自己診断関数の設定
+ */
+Inline void
+set_bit_service(void *bit_service)
+{
+        tTestService_eTestService_setBuiltInTest(bit_service);
+}
+/*
+ *      チェックポイント
+ */
+Inline void
+check_point(uint_t count)
+{
+        tTestService_eTestService_checkPoint(count);
+}
+/*
+ *      完了チェックポイント
+ */
+Inline void
+check_finish(uint_t count)
+{
+        tTestService_eTestService_finishPoint(count);
+}
+extern void     test_start(const char *progname);
+extern void     check_point(uint_t count);
+extern void     check_finish(uint_t count);
+extern void     check_assert_error(const char *expr, const char *file, int_t line);
+extern void     check_ercd_error(ER ercd, const char *file, int_t line);
+extern ER       get_interrupt_priority_mask(PRI *p_ipm);
 /*
  *      条件チェック
  */
-Inline void
-check_assert_error(const char *expr, const char *file, int_t line)
+{
-        tTestService_eTestService_assertError(expr, file, line);
+}
 #define check_assert(exp) \
         ((void)(!(exp) ? (check_assert_error(#exp, __FILE__, __LINE__), 0) : 0))
 …
  *      エラーコードチェック
  */
-Inline void
-check_ercd_error(ER ercd, const char *file, int_t line)
+{
-        tTestService_eTestService_serviceError(ercd, file, line);
+}
 #define check_ercd(ercd, expected_ercd) \
         ((void)((ercd) != (expected_ercd) ? \
 …
  *      割込み優先度マスクのチェック
  */
 #define check_ipm(ipm) do {                                                                                             \
         PRI             intpri;                                                                                                         \
         ER              ercd;                                                                                                           \
+                                                                                                                                                \
         ercd = tTestService_eTestService_getInterruptPriorityMask(&intpri);     \
         check_ercd(ercd, E_OK);                                                                                         \
         check_assert(intpri == ipm);                                                                            \
+#define check_ipm(ipm) do {                                                     \
+        PRI             intpri;                                                                 \
+        ER              ercd;                                                                   \
+                                                                                                        \
+        ercd = get_interrupt_priority_mask(&intpri);    \
+        check_ercd(ercd, E_OK);                                                 \
+        check_assert(intpri == ipm);                                    \
 } while (false);
 …
 #endif
-/*
- *  TECSで記述された自己診断サービスを直接呼び出すための定義
+ *
- *  C言語で記述されたアプリケーションから，TECSで記述された自己診断サー
- *  ビスを呼び出すためには，アダプタを用いるのが正当な方法であるが，自
- *  己診断サービスがシングルトンであることを利用して直接呼び出す．
- */
-extern ER       tBuiltInTestAdaptor_eGetBuiltInTestDescriptor_getDescriptor
-                                                                                                (void **p_desc, int_t i);
-Inline void *
-get_bit_kernel(void)
+{
-        void    *desc;
-        tBuiltInTestAdaptor_eGetBuiltInTestDescriptor_getDescriptor(&desc, 0);
-        return(desc);
+}
-Inline void *
-get_bit_mutex(void)
+{
-        void    *desc;
-        tBuiltInTestAdaptor_eGetBuiltInTestDescriptor_getDescriptor(&desc, 1);
-        return(desc);
+}
 #endif /* TOPPERS_TEST_SVC_H */

EcnlProtoTool/trunk/asp3_dcre/target/gr_peach_gcc/Makefile.target

-              r321
+              r429
 #               Makefile のターゲット依存部（GR-PEACH用）
+#
 #  $Id$
+#  $Id: Makefile.target 732 2016-04-03 03:08:05Z ertl-hiro $
+#
 …
+#
 #  MPCoreの種類の定義
+#  FPUサポートとコーリングコンベンション
+#
+MPCORE_TYPE = CA9
+#  FPUを使用する場合は，USE_ARM_FPUをマクロ定義し，使用するコーリング
+#  コンベンションに応じて，-mfloat-abi=softfpまたは-mfloat-abi=hardオ
+#  プションをつける．
+#
+#CDEFS := $(CDEFS) -DUSE_ARM_FPU
+#COPTS := $(COPTS) -mfloat-abi=softfp
+COPTS := $(COPTS) -mfloat-abi=hard
+#
 …
+#
 KERNEL_DIRS := $(KERNEL_DIRS) $(TARGETDIR)
 KERNEL_COBJS := $(KERNEL_COBJS) target_kernel_impl.o core_pl310.o
+KERNEL_COBJS := $(KERNEL_COBJS) target_kernel_impl.o
 KERNEL_ASMOBJS := $(KERNEL_ASMOBJS) target_support.o
 …
         CDEFS := $(CDEFS) -DTOPPERS_EXECUTE_ON_ROM
         #LDSCRIPT = $(TARGETDIR)/gr_peach_rom.ld
         LDSCRIPT = $(SRCDIR)/mbed/targets/cmsis/TARGET_RENESAS/TARGET_RZ_A1H/TOOLCHAIN_GCC_ARM/RZA1H.ld
+        LDSCRIPT = $(SRCDIR)/mbed/targets/TARGET_RENESAS/TARGET_RZA1XX/TARGET_RZ_A1H/device/TOOLCHAIN_GCC_ARM/RZA1H.ld
 else
         CDEFS := $(CDEFS) -DTOPPERS_EXECUTE_ON_RAM
 …
+#
 #  GNU開発環境のターゲットアーキテクチャの定義
+#  チップ依存部
+#
+GCC_TARGET = arm-none-eabi
+#GCC_TARGET = arm-atollic-eabi
+#
+#  トレースログ記録のサンプルコードに関する定義
+#
+ifeq ($(ENABLE_TRACE),true)
+        COPTS := $(COPTS) -DTOPPERS_ENABLE_TRACE
+        SYSSVC_DIRS := $(SYSSVC_DIRS) $(SRCDIR)/arch/tracelog
+endif
+#
+#  チップ依存部のインクルード
+#
+include $(SRCDIR)/arch/arm_gcc/rza1/Makefile.chip
+include $(SRCDIR)/arch/$(CORE)_$(TOOL)/$(CHIP)/Makefile.chip

EcnlProtoTool/trunk/asp3_dcre/target/gr_peach_gcc/Makefile.tinet

r321	r429
29	29	# 接的または間接的に生じたいかなる損害に関しても，その責任を負わない．
30	30	#
31		# @(#) $Id$
	31	# @(#) $Id: Makefile.tinet,v 1.6 2012/07/18 04:17:01 abe Exp abe $
32	32	#
33	33

EcnlProtoTool/trunk/asp3_dcre/target/gr_peach_gcc/cfg_dmy.c

-              r321
+              r429
 #include "MBRZA1H.h"
+#include <stdlib.h>
 IRQHandler _kernel_inh_table[Renesas_RZ_A1_IRQ_MAX+1];
+IRQHandler _kernel_inh_table[RZ_A1_IRQ_MAX+1];
 uint32_t _kernel_excpt_nest_count = 0;
 …
+{
+}
 void _kernel_irq_handler()
+{
 …
+{
+}
+void __libc_init_array()
+{
+}
+void *memset(void *dst, int c, size_t size)
+{
+        return NULL;
+}
+void *memcpy(void *dst, void * src, size_t size)
+{
+        return NULL;
+}
+int main()
+{
+}
+void exit(int exitcd)
+{
+}

EcnlProtoTool/trunk/asp3_dcre/target/gr_peach_gcc/gr_peach.h

-              r321
+              r429
 /*
+ *  TOPPERS/ASP Kernel
+ *      Toyohashi Open Platform for Embedded Real-Time Systems/
+ *      Advanced Standard Profile Kernel
+ *
+ *  TOPPERS Software
+ *      Toyohashi Open Platform for Embedded Real-Time Systems
+ *
  *  Copyright (C) 2011-2016 by Embedded and Real-Time Systems Laboratory
  *              Graduate School of Information Science, Nagoya Univ., JAPAN
+ *
+ *
  *  上記著作権者は，以下の(1)～(4)の条件を満たす場合に限り，本ソフトウェ
  *  ア（本ソフトウェアを改変したものを含む．以下同じ）を使用・複製・改
 …
  *      由に基づく請求からも，上記著作権者およびTOPPERSプロジェクトを
  *      免責すること．
+ *
+ *
  *  本ソフトウェアは，無保証で提供されているものである．上記著作権者お
  *  よびTOPPERSプロジェクトは，本ソフトウェアに関して，特定の使用目的
 …
  *  アの利用により直接的または間接的に生じたいかなる損害に関しても，そ
  *  の責任を負わない．
+ *
+ *
+ *  $Id$
  */
 …
 /*
+ *  ボーレート設定
+ */
+#define UART_BAUDRATE           115200
+/*
  *  LEDの点灯／消灯
  */

EcnlProtoTool/trunk/asp3_dcre/target/gr_peach_gcc/gr_peach_ram.ld

-              r321
+              r429
 /*
  *  $Id$
+ *  $Id: gr_peach_ram.ld 720 2016-04-01 22:16:17Z ertl-hiro $
  */
 OUTPUT_FORMAT("elf32-littlearm", "elf32-bigarm","elf32-littlearm")
+OUTPUT_FORMAT("elf32-littlearm", "elf32-bigarm", "elf32-littlearm")
 OUTPUT_ARCH(arm)
 ENTRY(start);

EcnlProtoTool/trunk/asp3_dcre/target/gr_peach_gcc/gr_peach_rom.ld

-              r321
+              r429
 /*
  *  $Id$
+ *  $Id: gr_peach_rom.ld 720 2016-04-01 22:16:17Z ertl-hiro $
  */
 OUTPUT_FORMAT("elf32-littlearm", "elf32-bigarm","elf32-littlearm")
+OUTPUT_FORMAT("elf32-littlearm", "elf32-bigarm", "elf32-littlearm")
 OUTPUT_ARCH(arm)
 ENTRY(start);

EcnlProtoTool/trunk/asp3_dcre/target/gr_peach_gcc/tSIOPortGRPeach.cdl

-              r321
+              r429
  *  Copyright (C) 2015 by Ushio Laboratory
  *              Graduate School of Engineering Science, Osaka Univ., JAPAN
  *  Copyright (C) 2015,2016 by Embedded and Real-Time Systems Laboratory
+ *  Copyright (C) 2015-2018 by Embedded and Real-Time Systems Laboratory
  *              Graduate School of Information Science, Nagoya Univ., JAPAN
+ *
 …
 /*
  *  GR-PEACHとRZ/A1に関する定義
+ *  GR-PEACHのハードウェア資源の定義
  */
 import_C("gr_peach.h");
 import_C("rza1.h");
 /*
  *  FIFO内蔵シリアルコミュニケーションインタフェース用 簡易SIOドライバ
  */
 import("tSCIF.cdl");
+import_C("device.h");
+/*
+ *  シリアルインタフェースドライバのチップ依存部（RZ/A1用）
+ */
+import("tMbedSerial.cdl");
 /*
 …
         call                    sSIOPort        cSIOPort;
         [inline] entry  siSIOCBR        eiSIOCBR;
-        /*
-         *  割込み要求ライン操作のための結合
-         */
-        call    sInterruptRequest       cRxInterruptRequest;
-        call    sInterruptRequest       cTxInterruptRequest;
 };
 …
  *  ト）のセルタイプ
  */
-[active]
 composite tSIOPortGRPeach {
         /*
 …
          */
         attr {
+                uintptr_t       baseAddress;                            /* ベースアドレス */
+                INTNO           rxInterruptNumber;                      /* 受信割込み番号 */
+                INTNO           txInterruptNumber;                      /* 送信割込み番号 */
+                PRI                     isrPriority = 1;                        /* ISR優先度 */
+                PRI                     interruptPriority = -4;         /* 割込み優先度 */
+                int32_t tx;                                                             /* 送信Pin */
+                int32_t rx;                                                             /* 受信Pin */
                 uint32_t        baudRate = 115200;                      /* ボーレートの設定値 */
         };
 …
          *  SIOドライバ
          */
+        cell tSCIF SCIF {
+                baseAddress = composite.baseAddress;
+        cell tMbedSerial MbedSerial {
+                tx          = composite.tx;
+                rx          = composite.rx;
                 baudRate    = composite.baudRate;
                 ciSIOCBR    = SIOPortMain.eiSIOCBR;
 …
         cell tSIOPortGRPeachMain SIOPortMain {
                 ciSIOCBR            => composite.ciSIOCBR;
+                cSIOPort            = SCIF.eSIOPort;
+                cRxInterruptRequest = RxInterruptRequest.eInterruptRequest;
+                cTxInterruptRequest = TxInterruptRequest.eInterruptRequest;
+                cSIOPort            = MbedSerial.eSIOPort;
         };
         composite.eSIOPort => SIOPortMain.eSIOPort;
-        /*
-         *  SIOの受信割込みサービスルーチンと割込み要求ライン
-         */
-        cell tISR RxISRInstance {
-                interruptNumber = composite.rxInterruptNumber;
-                isrPriority     = composite.isrPriority;
-                ciISRBody       = SCIF.eiRxISR;
-        };
-        cell tInterruptRequest RxInterruptRequest {
-                interruptNumber   = composite.rxInterruptNumber;
-                interruptPriority = composite.interruptPriority;
-        };
-        /*
-         *  SIOの受信割込みサービスルーチンと割込み要求ライン
-         */
-        cell tISR TxISRInstance {
-                interruptNumber = composite.txInterruptNumber;
-                isrPriority     = composite.isrPriority;
-                ciISRBody       = SCIF.eiTxISR;
-        };
-        cell tInterruptRequest TxInterruptRequest {
-                interruptNumber   = composite.txInterruptNumber;
-                interruptPriority = composite.interruptPriority;
-        };
 };
 …
  *  サンプルプログラムが使うポートが，SIOPortTarget1に固定されているた
  *  め，ポート1とポート3を入れ換えている．具体的には，SIOPortTarget1は
  *  SCIFのチャネル2（チャネル番号は0から始まるので，ポート3のこと）に，
  *  SIOPortTarget3はSCIFのチャネル0につながっている．
+ *  MbedSerialのチャネル2（チャネル番号は0から始まるので，ポート3のこと）に，
+ *  SIOPortTarget3はMbedSerialのチャネル0につながっている．
  */
 [prototype]
 cell tSIOPortGRPeach SIOPortTarget1 {
         /* 属性の設定 */
+        baseAddress       = C_EXP("SCIF2_BASE");
+        rxInterruptNumber = C_EXP("INTNO_SCIF2_RXI");
+        txInterruptNumber = C_EXP("INTNO_SCIF2_TXI");
+        tx = C_EXP("P6_3");
+        rx = C_EXP("P6_2");
 };
 …
 cell tSIOPortGRPeach SIOPortTarget2 {
         /* 属性の設定 */
+        baseAddress       = C_EXP("SCIF1_BASE");
+        rxInterruptNumber = C_EXP("INTNO_SCIF1_RXI");
+        txInterruptNumber = C_EXP("INTNO_SCIF1_TXI");
+        tx = C_EXP("P2_5");
+        rx = C_EXP("P2_6");
 };
 …
 cell tSIOPortGRPeach SIOPortTarget3 {
         /* 属性の設定 */
+        baseAddress       = C_EXP("SCIF0_BASE");
+        rxInterruptNumber = C_EXP("INTNO_SCIF0_RXI");
+        txInterruptNumber = C_EXP("INTNO_SCIF0_TXI");
+        tx = C_EXP("P4_12");
+        rx = C_EXP("P4_13");
 };
 …
 cell tSIOPortGRPeach SIOPortTarget4 {
         /* 属性の設定 */
+        baseAddress       = C_EXP("SCIF3_BASE");
+        rxInterruptNumber = C_EXP("INTNO_SCIF3_RXI");
+        txInterruptNumber = C_EXP("INTNO_SCIF3_TXI");
+        tx = C_EXP("P2_14");
+        rx = C_EXP("P2_15");
 };
 …
 cell tSIOPortGRPeach SIOPortTarget5 {
         /* 属性の設定 */
+        baseAddress       = C_EXP("SCIF4_BASE");
+        rxInterruptNumber = C_EXP("INTNO_SCIF4_RXI");
+        txInterruptNumber = C_EXP("INTNO_SCIF4_TXI");
+        tx = C_EXP("P4_14");
+        rx = C_EXP("P4_15");
 };
 …
 cell tSIOPortGRPeach SIOPortTarget6 {
         /* 属性の設定 */
+        baseAddress       = C_EXP("SCIF5_BASE");
+        rxInterruptNumber = C_EXP("INTNO_SCIF5_RXI");
+        txInterruptNumber = C_EXP("INTNO_SCIF5_TXI");
+        tx = C_EXP("P5_3");
+        rx = C_EXP("P5_4");
 };
 …
 cell tSIOPortGRPeach SIOPortTarget7 {
         /* 属性の設定 */
+        baseAddress       = C_EXP("SCIF6_BASE");
+        rxInterruptNumber = C_EXP("INTNO_SCIF6_RXI");
+        txInterruptNumber = C_EXP("INTNO_SCIF6_TXI");
+        tx = C_EXP("P8_8");
+        rx = C_EXP("P8_9");
 };
 …
 cell tSIOPortGRPeach SIOPortTarget8 {
         /* 属性の設定 */
+        baseAddress       = C_EXP("SCIF7_BASE");
+        rxInterruptNumber = C_EXP("INTNO_SCIF7_RXI");
+        txInterruptNumber = C_EXP("INTNO_SCIF7_TXI");
+};
+        tx = C_EXP("P5_0");
+        rx = C_EXP("P5_1");
+};
+[prototype]
+cell tSIOPortGRPeach SIOPortTarget9 {
+        /* 属性の設定 */
+        tx = C_EXP("P8_14");
+        rx = C_EXP("P8_15");
+};
+[prototype]
+cell tSIOPortGRPeach SIOPortTarget10 {
+        /* 属性の設定 */
+        tx = C_EXP("P8_13");
+        rx = C_EXP("P8_11");
+};
+[prototype]
+cell tSIOPortGRPeach SIOPortTarget11 {
+        /* 属性の設定 */
+        tx = C_EXP("P11_10");
+        rx = C_EXP("P11_11");
+};
+[prototype]
+cell tSIOPortGRPeach SIOPortTarget12 {
+        /* 属性の設定 */
+        tx = C_EXP("P6_6");
+        rx = C_EXP("P6_7");
+};
+[prototype]
+cell tSIOPortGRPeach SIOPortTarget13 {
+        /* 属性の設定 */
+        tx = C_EXP("P5_6");
+        rx = C_EXP("P5_7");
+};
+[prototype]
+cell tSIOPortGRPeach SIOPortTarget14 {
+        /* 属性の設定 */
+        tx = C_EXP("P11_1");
+        rx = C_EXP("P11_2");
+};
+[prototype]
+cell tSIOPortGRPeach SIOPortTarget15 {
+        /* 属性の設定 */
+        tx = C_EXP("P7_4");
+        rx = C_EXP("P7_5");
+};

EcnlProtoTool/trunk/asp3_dcre/target/gr_peach_gcc/tSIOPortGRPeachMain_inline.h

-              r321
+              r429
          */
         cSIOPort_open();
-        /*
-         *  SIOの割込みマスクを解除する．
-         */
-        cRxInterruptRequest_enable();
-        cTxInterruptRequest_enable();
+}
 …
          */
         cSIOPort_close();
-        /*
-         *  SIOの割込みをマスクする．
-         */
-        cRxInterruptRequest_disable();
-        cTxInterruptRequest_disable();
+}

EcnlProtoTool/trunk/asp3_dcre/target/gr_peach_gcc/target.cdl

-              r321
+              r429
  *  Copyright (C) 2015 by Ushio Laboratory
  *              Graduate School of Engineering Science, Osaka Univ., JAPAN
  *  Copyright (C) 2015,2016 by Embedded and Real-Time Systems Laboratory
+ *  Copyright (C) 2015-2018 by Embedded and Real-Time Systems Laboratory
  *              Graduate School of Information Science, Nagoya Univ., JAPAN
+ *
 …
 /*
+ *              コンポーネント記述ファイルのターゲット依存部（GR-PEACH用）
+ */
+/*
  *  タスクのスタックサイズのデフォルト
  */
 …
  *  ターゲット依存のセルタイプの定義
  */
 import("tPutLogGRPeach.cdl");
+import("syssvc/tPutLogSIOPort.cdl");
 import("tSIOPortGRPeach.cdl");
 …
  *  低レベル出力の組み上げ記述
  */
 cell tPutLogGRPeach PutLogTarget {
+cell tPutLogSIOPort PutLogTarget {
         /* SIOドライバとの結合 */
         cSIOPort = SIOPortTarget1.eSIOPort;

EcnlProtoTool/trunk/asp3_dcre/target/gr_peach_gcc/target_check.trb

r321	r429
1	1	# -- coding: utf-8 --
2	2	#
3		# パス3の生成スクリプトのターゲット依存部（GR-PEACH用）
	3	# パス3の生成スクリプトのターゲット依存部
	4	#
	5	# $Id: target_check.trb 1071 2018-11-25 01:27:37Z ertl-hiro $
4	6	#
5	7

EcnlProtoTool/trunk/asp3_dcre/target/gr_peach_gcc/target_kernel.cfg

r321	r429
4	4	* $Id$
5	5	*/
6		INCLUDE("target_timer.cfg")
	6	INCLUDE("target_timer.cfg");

EcnlProtoTool/trunk/asp3_dcre/target/gr_peach_gcc/target_kernel.h

-              r321
+              r429
-/*
- *  TOPPERS/ASP Kernel
- *      Toyohashi Open Platform for Embedded Real-Time Systems/
- *      Advanced Standard Profile Kernel
+ *
- *  Copyright (C) 2006-2016 by Embedded and Real-Time Systems Laboratory
- *              Graduate School of Information Science, Nagoya Univ., JAPAN
+ *
- *  上記著作権者は，以下の(1)～(4)の条件を満たす場合に限り，本ソフトウェ
- *  ア（本ソフトウェアを改変したものを含む．以下同じ）を使用・複製・改
- *  変・再配布（以下，利用と呼ぶ）することを無償で許諾する．
- *  (1) 本ソフトウェアをソースコードの形で利用する場合には，上記の著作
- *      権表示，この利用条件および下記の無保証規定が，そのままの形でソー
- *      スコード中に含まれていること．
- *  (2) 本ソフトウェアを，ライブラリ形式など，他のソフトウェア開発に使
- *      用できる形で再配布する場合には，再配布に伴うドキュメント（利用
- *      者マニュアルなど）に，上記の著作権表示，この利用条件および下記
- *      の無保証規定を掲載すること．
- *  (3) 本ソフトウェアを，機器に組み込むなど，他のソフトウェア開発に使
- *      用できない形で再配布する場合には，次のいずれかの条件を満たすこ
- *      と．
- *    (a) 再配布に伴うドキュメント（利用者マニュアルなど）に，上記の著
- *        作権表示，この利用条件および下記の無保証規定を掲載すること．
- *    (b) 再配布の形態を，別に定める方法によって，TOPPERSプロジェクトに
- *        報告すること．
- *  (4) 本ソフトウェアの利用により直接的または間接的に生じるいかなる損
- *      害からも，上記著作権者およびTOPPERSプロジェクトを免責すること．
- *      また，本ソフトウェアのユーザまたはエンドユーザからのいかなる理
- *      由に基づく請求からも，上記著作権者およびTOPPERSプロジェクトを
- *      免責すること．
+ *
- *  本ソフトウェアは，無保証で提供されているものである．上記著作権者お
- *  よびTOPPERSプロジェクトは，本ソフトウェアに関して，特定の使用目的
- *  に対する適合性も含めて，いかなる保証も行わない．また，本ソフトウェ
- *  アの利用により直接的または間接的に生じたいかなる損害に関しても，そ
- *  の責任を負わない．
+ *
- *  $Id$
- */
 /*
  *              kernel.hのターゲット依存部（GR-PEACH用）
 …
  *  から直接インクルードすることはない．このファイルをインクルードする
  *  前に，t_stddef.hがインクルードされるので，それに依存してもよい．
+ *
+ *  $Id$
  */
 #ifndef TOPPERS_TARGET_KERNEL_H
 #define TOPPERS_TARGET_KERNEL_H
+/*
+ *  高分解能タイマのタイマ周期
+ *
+ *  2^32 / 33.33…を丸めた値とする．
+ */
+#define TCYC_HRTCNT             128849019U
+/*
+ *  高分解能タイマのカウント値の進み幅
+ */
+#define TSTEP_HRTCNT    1U
+/*
+ *  オーバランハンドラの残りプロセッサ時間に指定できる最大値
+ *
+ *  この値をOSタイマへの設定値に変換してタイマに設定した後，タイマの現
+ *  在値を読み出してμ秒単位に変換できる値としている．タイマの現在値を
+ *  μ秒単位に変換する時に34を加えるため，以下の条件を満たす最大の値と
+ *  する．
+ *              (TMAX_OVRTIM * 33 + TMAX_OVRTIM / 3 + 1) + 34 < 2^32
+ */
+#define TMAX_OVRTIM             128849017U
 /*

EcnlProtoTool/trunk/asp3_dcre/target/gr_peach_gcc/target_kernel.trb

r321	r429
1	1	# -- coding: utf-8 --
2	2	#
3		# パス2の生成スクリプトのターゲット依存部（GR-PEACH用）
	3	# パス2の生成スクリプトのターゲット依存部
	4	#
	5	# $Id: target_kernel.trb 1071 2018-11-25 01:27:37Z ertl-hiro $
4	6	#
5	7
…	…
7	9	# 生成スクリプトのチップ依存部
8	10	#
9		IncludeTrb("chip_kernel.trb")
	11	IncludeTrb("chip_kernel.trb");

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

-              r321
+              r429
  *      Toyohashi Open Platform for Embedded Real-Time Systems/
  *      Advanced Standard Profile Kernel
+ *
  *  Copyright (C) 2007-2016 by Embedded and Real-Time Systems Laboratory
+ *
+ *  Copyright (C) 2007-2018 by Embedded and Real-Time Systems Laboratory
  *              Graduate School of Information Science, Nagoya Univ., JAPAN
+ *
+ *
  *  上記著作権者は，以下の(1)～(4)の条件を満たす場合に限り，本ソフトウェ
  *  ア（本ソフトウェアを改変したものを含む．以下同じ）を使用・複製・改
 …
  *      由に基づく請求からも，上記著作権者およびTOPPERSプロジェクトを
  *      免責すること．
+ *
+ *
  *  本ソフトウェアは，無保証で提供されているものである．上記著作権者お
  *  よびTOPPERSプロジェクトは，本ソフトウェアに関して，特定の使用目的
 …
  *  アの利用により直接的または間接的に生じたいかなる損害に関しても，そ
  *  の責任を負わない．
+ *
+ *
  *  $Id$
  */
 …
 #include "rza1.h"
 #include "scif.h"
+#include "core_pl310.h"
+#include "us_ticker_api.h"
+/*
+ * C++のグローバルコンストラクタ呼び出し
+ */
+void __libc_init_array()
+{
+        /* グローバルコンストラクタでOS APIを呼び出す場合は、
+           タスクが起動してから行う */
+}
 /*
 …
  *  MMUへの設定属性（第1レベルディスクリプタ）
  */
 #define MMU_ATTR_RAM    (ARM_MMU_DSCR1_SHARED|ARMV6_MMU_DSCR1_APX0 \
                                                         |ARM_MMU_DSCR1_TEX001|ARM_MMU_DSCR1_AP11 \
+                                                        |ARM_MMU_DSCR1_CB11)
 #define MMU_ATTR_IODEV  (ARM_MMU_DSCR1_SHARED|ARMV6_MMU_DSCR1_APX0 \
                                                         |ARM_MMU_DSCR1_TEX000|ARM_MMU_DSCR1_AP11 \
+                                                        |ARM_MMU_DSCR1_CB01|ARMV6_MMU_DSCR1_NOEXEC)
+#define MMU_ATTR_RAM    (ARM_MMU_DSCR1_SHARED|ARM_MMU_DSCR1_TEX001 \
+                                                        |ARMV6_MMU_DSCR1_AP011|ARM_MMU_DSCR1_CB11)
+#define MMU_ATTR_IODEV  (ARM_MMU_DSCR1_SHARED|ARM_MMU_DSCR1_TEX000 \
+                                                        |ARMV6_MMU_DSCR1_AP011|ARM_MMU_DSCR1_CB01 \
+                                                        |ARMV6_MMU_DSCR1_NOEXEC)
 /*
  *  MMUの設定情報（メモリエリアの情報）
  */
 ARM_MMU_CONFIG arm_memory_area[] = {
+const ARM_MMU_CONFIG arm_memory_area[] = {
         { SPI_ADDR, SPI_ADDR, SPI_SIZE, MMU_ATTR_RAM },
         { SRAM_ADDR, SRAM_ADDR, SRAM_SIZE, MMU_ATTR_RAM },
 …
  *  システムログの低レベル出力のための初期化
+ *
  *  セルタイプtPutLogGRPeach内に実装されている関数を直接呼び出す．
  */
 extern void     tPutLogGRPeach_initialize(void);
+ *  セルタイプtPutLogSIOPort内に実装されている関数を直接呼び出す．
+ */
+extern void     tPutLogSIOPort_initialize(void);
 /*
 …
         /*
-         *  L2キャッシュコントローラ（PL310）の初期化
-         */
-        /*pl310_initialize(0x0U, ~0x0U);*/
-        /*
          *  LEDを青色に点灯させる
          */
 …
         /*
          *  低レベル出力用にSIOを初期化
+         *  SIOを初期化
          */
 #ifndef TOPPERS_OMIT_TECS
         tPutLogGRPeach_initialize();
+        tPutLogSIOPort_initialize();
 #endif /* TOPPERS_OMIT_TECS */
+}
 …
+{
         static int first = 1;
+        extern void    software_term_hook(void);
+        void (*volatile fp)(void) = software_term_hook;
+        /*
+         *  software_term_hookへのポインタを，一旦volatile指定のあるfpに代
+         *  入してから使うのは，0との比較が最適化で削除されないようにするた
+         *  めである．
+         */
+        if (fp != 0) {
+                (*fp)();
+        }
         /*
 …
         rza1_config_port(RZA1_PORT_P(6), led, set);
+}
-void us_ticker_init(void)
+{
+}
-uint32_t us_ticker_read()
+{
-        ER ret;
-        SYSTIM now;
-        ret = get_tim(&now);
-        if(ret != E_OK)
-                return 0;
-        return now;
+}
-void us_ticker_set_interrupt(timestamp_t timestamp)
+{
-        Asm("bkpt #0");
+}
-void us_ticker_disable_interrupt(void)
+{
+}
-void us_ticker_clear_interrupt(void)
+{
+}
-void wait(float s)
+{
-        wait_us(s * 1000000.0f);
+}
-void wait_ms(int ms)
+{
-        wait_us(ms * 1000);
+}
-void wait_us(int us)
+{
-        ER ret;
-        ret = dly_tsk(us);
-        if (ret == E_CTX){
-                uint32_t start = us_ticker_read();
-                while ((us_ticker_read() - start) < (uint32_t)us);
+        }
+}

EcnlProtoTool/trunk/asp3_dcre/target/gr_peach_gcc/target_kernel_impl.h

-              r321
+              r429
  *      Toyohashi Open Platform for Embedded Real-Time Systems/
  *      Advanced Standard Profile Kernel
+ *
+ *
  *  Copyright (C) 2000-2003 by Embedded and Real-Time Systems Laboratory
  *                              Toyohashi Univ. of Technology, JAPAN
  *  Copyright (C) 2006-2016 by Embedded and Real-Time Systems Laboratory
+ *  Copyright (C) 2006-2018 by Embedded and Real-Time Systems Laboratory
  *              Graduate School of Information Science, Nagoya Univ., JAPAN
+ *
+ *
  *  上記著作権者は，以下の(1)～(4)の条件を満たす場合に限り，本ソフトウェ
  *  ア（本ソフトウェアを改変したものを含む．以下同じ）を使用・複製・改
 …
  *      由に基づく請求からも，上記著作権者およびTOPPERSプロジェクトを
  *      免責すること．
+ *
+ *
  *  本ソフトウェアは，無保証で提供されているものである．上記著作権者お
  *  よびTOPPERSプロジェクトは，本ソフトウェアに関して，特定の使用目的
 …
  *  アの利用により直接的または間接的に生じたいかなる損害に関しても，そ
  *  の責任を負わない．
+ *
+ *
  *  $Id$
  */
 …
 /*
- *  トレースログに関する設定
- */
-#ifdef TOPPERS_ENABLE_TRACE
-#include "arch/tracelog/trace_log.h"
-#endif /* TOPPERS_ENABLE_TRACE */
-/*
- *  デフォルトの非タスクコンテキスト用のスタック領域の定義
- */
-#define DEFAULT_ISTKSZ  0x2000U         /* 8KB */
-/*
  *  微少時間待ちのための定義（本来はSILのターゲット依存部）
  */
 #define SIL_DLY_TIM1    352
 #define SIL_DLY_TIM2    200
+#define SIL_DLY_TIM1    110
+#define SIL_DLY_TIM2    72
 /*
 …
  *  ターゲットシステム依存の初期化
  */
 extern void target_initialize(void);
+extern void     target_initialize(void);
 /*
 …
  *  システムを終了する時に使う．
  */
 extern void target_exit(void) NoReturn;
+extern void     target_exit(void) NoReturn;
 #endif /* TOPPERS_MACRO_ONLY */

EcnlProtoTool/trunk/asp3_dcre/target/gr_peach_gcc/target_rename.def

-              r331
+              r429
 # target_kernel_impl.c
+arm_tnum_memory_area
+arm_memory_area
 target_initialize
 target_exit
-# tTraceLog.c
-log_dsp_enter
-log_dsp_leave
-log_inh_enter
-log_inh_leave
-log_exc_enter
-log_exc_leave
 INCLUDE "chip"

EcnlProtoTool/trunk/asp3_dcre/target/gr_peach_gcc/target_rename.h

-              r321
+              r429
  *  target_kernel_impl.c
  */
+#define arm_tnum_memory_area            _kernel_arm_tnum_memory_area
+#define arm_memory_area                         _kernel_arm_memory_area
 #define target_initialize                       _kernel_target_initialize
 #define target_exit                                     _kernel_target_exit
-/*
- *  tTraceLog.c
- */
-#define log_dsp_enter                           _kernel_log_dsp_enter
-#define log_dsp_leave                           _kernel_log_dsp_leave
-#define log_inh_enter                           _kernel_log_inh_enter
-#define log_inh_leave                           _kernel_log_inh_leave
-#define log_exc_enter                           _kernel_log_exc_enter
-#define log_exc_leave                           _kernel_log_exc_leave

EcnlProtoTool/trunk/asp3_dcre/target/gr_peach_gcc/target_sil.h

-              r321
+              r429
 /*
+ *  TOPPERS Software
+ *      Toyohashi Open Platform for Embedded Real-Time Systems
+ *
+ *  Copyright (C) 2007-2015 by Embedded and Real-Time Systems Laboratory
+ *              Graduate School of Information Science, Nagoya Univ., JAPAN
+ *
+ *  上記著作権者は，以下の(1)～(4)の条件を満たす場合に限り，本ソフトウェ
+ *  ア（本ソフトウェアを改変したものを含む．以下同じ）を使用・複製・改
+ *  変・再配布（以下，利用と呼ぶ）することを無償で許諾する．
+ *  (1) 本ソフトウェアをソースコードの形で利用する場合には，上記の著作
+ *      権表示，この利用条件および下記の無保証規定が，そのままの形でソー
+ *      スコード中に含まれていること．
+ *  (2) 本ソフトウェアを，ライブラリ形式など，他のソフトウェア開発に使
+ *      用できる形で再配布する場合には，再配布に伴うドキュメント（利用
+ *      者マニュアルなど）に，上記の著作権表示，この利用条件および下記
+ *      の無保証規定を掲載すること．
+ *  (3) 本ソフトウェアを，機器に組み込むなど，他のソフトウェア開発に使
+ *      用できない形で再配布する場合には，次のいずれかの条件を満たすこ
+ *      と．
+ *    (a) 再配布に伴うドキュメント（利用者マニュアルなど）に，上記の著
+ *        作権表示，この利用条件および下記の無保証規定を掲載すること．
+ *    (b) 再配布の形態を，別に定める方法によって，TOPPERSプロジェクトに
+ *        報告すること．
+ *  (4) 本ソフトウェアの利用により直接的または間接的に生じるいかなる損
+ *      害からも，上記著作権者およびTOPPERSプロジェクトを免責すること．
+ *      また，本ソフトウェアのユーザまたはエンドユーザからのいかなる理
+ *      由に基づく請求からも，上記著作権者およびTOPPERSプロジェクトを
+ *      免責すること．
+ *
+ *  本ソフトウェアは，無保証で提供されているものである．上記著作権者お
+ *  よびTOPPERSプロジェクトは，本ソフトウェアに関して，特定の使用目的
+ *  に対する適合性も含めて，いかなる保証も行わない．また，本ソフトウェ
+ *  アの利用により直接的または間接的に生じたいかなる損害に関しても，そ
+ *  の責任を負わない．
+ *
+ *  $Id$
+ */
+/*
+ *              sil.hのチップ依存部（GR-PEACH用）
+ *              sil.hのターゲット依存部（GR-PEACH用）
+ *
  *  このヘッダファイルは，sil.hからインクルードされる．他のファイルから
  *  直接インクルードすることはない．このファイルをインクルードする前に，
  *  t_stddef.hがインクルードされるので，それに依存してもよい．
+ *
+ *  $Id$
  */
 …
  *  コアで共通な定義（チップ依存部は飛ばす）
  */
-#ifndef TECSGEN
 #include "core_sil.h"
-#endif /* TECSGEN */
 #endif /* TOPPERS_TARGET_SIL_H */

EcnlProtoTool/trunk/asp3_dcre/target/gr_peach_gcc/target_stddef.h

-              r321
+              r429
-/*
- *  TOPPERS Software
- *      Toyohashi Open Platform for Embedded Real-Time Systems
+ *
- *  Copyright (C) 2007-2016 by Embedded and Real-Time Systems Laboratory
- *              Graduate School of Information Science, Nagoya Univ., JAPAN
+ *
- *  上記著作権者は，以下の(1)～(4)の条件を満たす場合に限り，本ソフトウェ
- *  ア（本ソフトウェアを改変したものを含む．以下同じ）を使用・複製・改
- *  変・再配布（以下，利用と呼ぶ）することを無償で許諾する．
- *  (1) 本ソフトウェアをソースコードの形で利用する場合には，上記の著作
- *      権表示，この利用条件および下記の無保証規定が，そのままの形でソー
- *      スコード中に含まれていること．
- *  (2) 本ソフトウェアを，ライブラリ形式など，他のソフトウェア開発に使
- *      用できる形で再配布する場合には，再配布に伴うドキュメント（利用
- *      者マニュアルなど）に，上記の著作権表示，この利用条件および下記
- *      の無保証規定を掲載すること．
- *  (3) 本ソフトウェアを，機器に組み込むなど，他のソフトウェア開発に使
- *      用できない形で再配布する場合には，次のいずれかの条件を満たすこ
- *      と．
- *    (a) 再配布に伴うドキュメント（利用者マニュアルなど）に，上記の著
- *        作権表示，この利用条件および下記の無保証規定を掲載すること．
- *    (b) 再配布の形態を，別に定める方法によって，TOPPERSプロジェクトに
- *        報告すること．
- *  (4) 本ソフトウェアの利用により直接的または間接的に生じるいかなる損
- *      害からも，上記著作権者およびTOPPERSプロジェクトを免責すること．
- *      また，本ソフトウェアのユーザまたはエンドユーザからのいかなる理
- *      由に基づく請求からも，上記著作権者およびTOPPERSプロジェクトを
- *      免責すること．
+ *
- *  本ソフトウェアは，無保証で提供されているものである．上記著作権者お
- *  よびTOPPERSプロジェクトは，本ソフトウェアに関して，特定の使用目的
- *  に対する適合性も含めて，いかなる保証も行わない．また，本ソフトウェ
- *  アの利用により直接的または間接的に生じたいかなる損害に関しても，そ
- *  の責任を負わない．
+ *
- *  $Id$
- */
 /*
  *              t_stddef.hのターゲット依存部（GR-PEACH用）
 …
  *  イルからは直接インクルードすることはない．他のヘッダファイルに先立っ
  *  て処理されるため，他のヘッダファイルに依存してはならない．
+ *
+ *  $Id$
  */
 …
 /*
+ *  開発環境で共通な定義
+ */
+#ifndef TOPPERS_MACRO_ONLY
+#include <stdint.h>
+#endif /* TOPPERS_MACRO_ONLY */
+#define TOPPERS_STDFLOAT_TYPE1
+#include "tool_stddef.h"
+/*
+ *  チッブ依存で共通な定義
+ *  チッブで共通な定義
  */
 #include "chip_stddef.h"

EcnlProtoTool/trunk/asp3_dcre/target/gr_peach_gcc/target_support.S

-              r321
+              r429
 #define CAST(type, val)         (val)           /* 型キャストを行うマクロ */
 #include "kernel_impl.h"
 #include "core_pl310.h"
+#include "pl310.h"
 #include "core_asm.inc"
 …
         ldrb    r0, [r2]                /* ダミーリード */
         /*
+        /*
          *  クロック関係の初期化
+         *
 …
 #ifdef TOPPERS_RZA1H
         /*
+        /*
          *  画像処理クロックを「×2/3」に（266.67MHz）
          */
 …
 #endif /* TOPPERS_RZA1H */
         /*
+        /*
          *  ソフトウェアスタンバイ復帰中でなくなるまで待つ
          */

EcnlProtoTool/trunk/asp3_dcre/target/gr_peach_gcc/target_syssvc.h

-              r426
+              r429
 /*
+ *  TOPPERS/ASP Kernel
+ *      Toyohashi Open Platform for Embedded Real-Time Systems/
+ *      Advanced Standard Profile Kernel
+ *
+ *  Copyright (C) 2000-2003 by Embedded and Real-Time Systems Laboratory
+ *                              Toyohashi Univ. of Technology, JAPAN
+ *  Copyright (C) 2005-2016 by Embedded and Real-Time Systems Laboratory
+ *              Graduate School of Information Science, Nagoya Univ., JAPAN
+ *
+ *  上記著作権者は，以下の(1)～(4)の条件を満たす場合に限り，本ソフトウェ
+ *  ア（本ソフトウェアを改変したものを含む．以下同じ）を使用・複製・改
+ *  変・再配布（以下，利用と呼ぶ）することを無償で許諾する．
+ *  (1) 本ソフトウェアをソースコードの形で利用する場合には，上記の著作
+ *      権表示，この利用条件および下記の無保証規定が，そのままの形でソー
+ *      スコード中に含まれていること．
+ *  (2) 本ソフトウェアを，ライブラリ形式など，他のソフトウェア開発に使
+ *      用できる形で再配布する場合には，再配布に伴うドキュメント（利用
+ *      者マニュアルなど）に，上記の著作権表示，この利用条件および下記
+ *      の無保証規定を掲載すること．
+ *  (3) 本ソフトウェアを，機器に組み込むなど，他のソフトウェア開発に使
+ *      用できない形で再配布する場合には，次のいずれかの条件を満たすこ
+ *      と．
+ *    (a) 再配布に伴うドキュメント（利用者マニュアルなど）に，上記の著
+ *        作権表示，この利用条件および下記の無保証規定を掲載すること．
+ *    (b) 再配布の形態を，別に定める方法によって，TOPPERSプロジェクトに
+ *        報告すること．
+ *  (4) 本ソフトウェアの利用により直接的または間接的に生じるいかなる損
+ *      害からも，上記著作権者およびTOPPERSプロジェクトを免責すること．
+ *      また，本ソフトウェアのユーザまたはエンドユーザからのいかなる理
+ *      由に基づく請求からも，上記著作権者およびTOPPERSプロジェクトを
+ *      免責すること．
+ *
+ *  本ソフトウェアは，無保証で提供されているものである．上記著作権者お
+ *  よびTOPPERSプロジェクトは，本ソフトウェアに関して，特定の使用目的
+ *  に対する適合性も含めて，いかなる保証も行わない．また，本ソフトウェ
+ *  アの利用により直接的または間接的に生じたいかなる損害に関しても，そ
+ *  の責任を負わない．
+ *
+ *  $Id$
+ */
+/*
+ *              システムサービスのターゲット依存部（GR-PEACH用）
+ *              システムサービスのターゲット依存部
+ *
  *  システムサービスのターゲット依存部のヘッダファイル．システムサービ
  *  スのターゲット依存の設定は，できる限りコンポーネント記述ファイルで
  *  記述し，このファイルに記述するものは最小限とする．
+ *
+ *  $Id$
  */
 #ifndef TOPPERS_TARGET_SYSSVC_H
 #define TOPPERS_TARGET_SYSSVC_H
-#include "gr_peach.h"
-/*
- *  トレースログに関する設定
- */
-#ifdef TOPPERS_ENABLE_TRACE
-#include "arch/tracelog/trace_log.h"
-#endif /* TOPPERS_ENABLE_TRACE */
 /*

EcnlProtoTool/trunk/asp3_dcre/target/gr_peach_gcc/target_test.h

-              r321
+              r429
  *      Toyohashi Open Platform for Embedded Real-Time Systems/
  *      Advanced Standard Profile Kernel
+ *
+ *
  *  Copyright (C) 2007-2016 by Embedded and Real-Time Systems Laboratory
  *              Graduate School of Information Science, Nagoya Univ., JAPAN
+ *
+ *
  *  上記著作権者は，以下の(1)～(4)の条件を満たす場合に限り，本ソフトウェ
  *  ア（本ソフトウェアを改変したものを含む．以下同じ）を使用・複製・改
 …
  *      由に基づく請求からも，上記著作権者およびTOPPERSプロジェクトを
  *      免責すること．
+ *
+ *
  *  本ソフトウェアは，無保証で提供されているものである．上記著作権者お
  *  よびTOPPERSプロジェクトは，本ソフトウェアに関して，特定の使用目的
 …
  *  アの利用により直接的または間接的に生じたいかなる損害に関しても，そ
  *  の責任を負わない．
+ *
+ *
  *  $Id$
  */
 …
 /*
  *  サンプルプログラムで使用する割込みに関する定義
+ *  サンプルプログラム／テストプログラムで使用する割込みに関する定義
  */
 #define INTNO1                          INTNO_IRQ5
 #define INTNO1_INTATR           TA_ENAINT|TA_NEGEDGE
 #define INTNO1_INTPRI           -15
+#define INTNO1_INTPRI           (-15)
 #define intno1_clear()          rza1_clear_irq(INTNO_IRQ5)

EcnlProtoTool/trunk/asp3_dcre/target/gr_peach_gcc/target_timer.cfg

-              r321
+              r429
  */
-#include "gr_peach.h"
 #include "target_timer.h"
 /*
  *  チップ依存部（RZ/A1用）
+ *  チップ依存部
  */
 INCLUDE("chip_timer.cfg");

EcnlProtoTool/trunk/asp3_dcre/target/gr_peach_gcc/target_timer.h

-              r321
+              r429
 /*
+ *  TOPPERS/ASP Kernel
+ *      Toyohashi Open Platform for Embedded Real-Time Systems/
+ *      Advanced Standard Profile Kernel
+ *
+ *  Copyright (C) 2007-2016 by Embedded and Real-Time Systems Laboratory
+ *              Graduate School of Information Science, Nagoya Univ., JAPAN
+ *
+ *  上記著作権者は，以下の(1)～(4)の条件を満たす場合に限り，本ソフトウェ
+ *  ア（本ソフトウェアを改変したものを含む．以下同じ）を使用・複製・改
+ *  変・再配布（以下，利用と呼ぶ）することを無償で許諾する．
+ *  (1) 本ソフトウェアをソースコードの形で利用する場合には，上記の著作
+ *      権表示，この利用条件および下記の無保証規定が，そのままの形でソー
+ *      スコード中に含まれていること．
+ *  (2) 本ソフトウェアを，ライブラリ形式など，他のソフトウェア開発に使
+ *      用できる形で再配布する場合には，再配布に伴うドキュメント（利用
+ *      者マニュアルなど）に，上記の著作権表示，この利用条件および下記
+ *      の無保証規定を掲載すること．
+ *  (3) 本ソフトウェアを，機器に組み込むなど，他のソフトウェア開発に使
+ *      用できない形で再配布する場合には，次のいずれかの条件を満たすこ
+ *      と．
+ *    (a) 再配布に伴うドキュメント（利用者マニュアルなど）に，上記の著
+ *        作権表示，この利用条件および下記の無保証規定を掲載すること．
+ *    (b) 再配布の形態を，別に定める方法によって，TOPPERSプロジェクトに
+ *        報告すること．
+ *  (4) 本ソフトウェアの利用により直接的または間接的に生じるいかなる損
+ *      害からも，上記著作権者およびTOPPERSプロジェクトを免責すること．
+ *      また，本ソフトウェアのユーザまたはエンドユーザからのいかなる理
+ *      由に基づく請求からも，上記著作権者およびTOPPERSプロジェクトを
+ *      免責すること．
+ *
+ *  本ソフトウェアは，無保証で提供されているものである．上記著作権者お
+ *  よびTOPPERSプロジェクトは，本ソフトウェアに関して，特定の使用目的
+ *  に対する適合性も含めて，いかなる保証も行わない．また，本ソフトウェ
+ *  アの利用により直接的または間接的に生じたいかなる損害に関しても，そ
+ *  の責任を負わない．
+ *
+ *              タイマドライバ
+ *
  *  $Id$
- */
-/*
- *              タイマドライバ（GR-PEACH用）
  */
 …
 /*
  *  チップで共通な定義（RZ/A1用）
+ *  チップで共通な定義
  */
 #include "chip_timer.h"

EcnlProtoTool/trunk/asp3_dcre/target/gr_peach_gcc/target_unrename.h

-              r321
+              r429
  *  target_kernel_impl.c
  */
+#undef arm_tnum_memory_area
+#undef arm_memory_area
 #undef target_initialize
 #undef target_exit
-/*
- *  tTraceLog.c
- */
-#undef log_dsp_enter
-#undef log_dsp_leave
-#undef log_inh_enter
-#undef log_inh_leave
-#undef log_exc_enter
-#undef log_exc_leave

EcnlProtoTool/trunk/asp3_dcre/target/gr_peach_gcc/target_user.txt

-              r331
+              r429
                 GR-PEACH依存部 ユーザーズマニュアル
                 対応バージョン: Release 3.1
                 最終更新: 2016年4月2日
+                対応バージョン: Release 3.5.0
+                最終更新: 2019年10月6日
 このドキュメントは，TOPPERS/ASP3カーネルのGR-PEACHターゲット依存部を使
 …
      Advanced Standard Profile Kernel
  Copyright (C) 2008-2016 by Embedded and Real-Time Systems Laboratory
+ Copyright (C) 2008-2019 by Embedded and Real-Time Systems Laboratory
              Graduate School of Information Science, Nagoya Univ., JAPAN
  上記著作権者は，以下の(1)〜(4)の条件を満たす場合に限り，本ソフトウェ
+ 上記著作権者は，以下の(1)～(4)の条件を満たす場合に限り，本ソフトウェ
  ア（本ソフトウェアを改変したものを含む．以下同じ）を使用・複製・改
  変・再配布（以下，利用と呼ぶ）することを無償で許諾する．
 …
  の責任を負わない．
  $Id: target_user.txt 1145 2017-02-06 04:26:43Z coas-nagasima $
+ $Id: target_user.txt 1280 2019-10-06 01:47:52Z ertl-hiro $
 ----------------------------------------------------------------------
 …
 ○目次
+１．GR-PEACHターゲット依存部の概要
+.1 対応するターゲットシステムとターゲット略称
+.2 ターゲット依存部の構成
+.3 依存している個別パッケージのバージョン番号
+.4 開発環境／デバッグ環境と動作確認条件
+.5 メモリマップ
+２．ターゲット定義事項の規定
+３．ドライバ関連の情報
+.1 タイマドライバ
+.2 シリアルインタフェースドライバ
+.3 システムログの低レベル出力
+４．システム構築手順と実行手順
+.1 ROM実行の場合の構築手順と実行手順
+.2 RAM実行の場合の構築手順と実行手順
+.3 ドライバのインストール
+５．リファレンス
+.1 ディレクトリ構成・ファイル構成
+.2 バージョン履歴
 …
                 arm_gcc/doc/            ARM依存部に関するドキュメント
                 gcc/                            GCC開発環境依存部
-                tracelog/                       トレースログ記録のサンプルコード
 .3 依存している個別パッケージのバージョン番号
 GR-PEACHターゲット依存部（バージョン 3.1.0）の個別パッケージが依存して
+GR-PEACHターゲット依存部（バージョン 3.4.0）の個別パッケージが依存して
 いる個別パッケージと，動作確認を行ったバージョンは次の通り．
         個別パッケージの名称      バージョン   個別パッケージファイル名
         ------------------------------------------------------------------
         ターゲット非依存部               3.1.0           asp3-3.1.0.tar.gz
+        ターゲット非依存部               3.4.0           asp3-3.4.0.tar.gz
 .4 開発環境／デバッグ環境と動作確認条件
+開発環境として，以下のURLからプリビルド版をダウンロードすることができる
+GCC ARM Embeddedを用いている．
+        https://launchpad.net/gcc-arm-embedded/
+開発環境として，以下のURLからプリビルド版をダウンロードすることができ
+るGNU ARM Embedded Toolchainを用いている（Cortex-MとCortex-R向けの開発
+環境であるが，Cortex-A向けにも使用できる）．
+        https://developer.arm.com/open-source/gnu-toolchain/gnu-rm
 動作確認を行ったバージョンは次の通り．
         gcc: version 4.8.3 20140228
         binutils（objcopy，objdump）：2.23.2.20140228
 デバッグ環境として，オンボードのCMSIS-DAPから，OpenOCDを経由して，GDBを
+用いる環境で動作確認を行っている．動作確認を行ったデバッグ環境のバージョ
 ンは次の通り．
+        gcc: 7.3.1 20180622
+        binutils（objcopy，objdump）：2.30.0.20180329
+デバッグ環境として，オンボードのCMSIS-DAPから，OpenOCDを経由して，GDB
+を用いる環境で動作確認を行っている．動作確認を行ったデバッグ環境のバー
+ジョンは次の通り．
         gdb: 7.6.0.20140228-cvs
         openocd: 0.10.0-dev-00287-g85cec24
+古いバージョンのOpenOCDでは正しく動作しないことが報告されているため，注
+意が必要である．
+GUIベースの開発環境／デバッグ環境として，Atollic TrueStudioを用いること
+ができる．
+新しいgdb（8.1.0.20180315-git）を使用したところ，OpenOCDとうまく接続で
+きなかったため，やや古いgdbを使用している．また，異なるバージョンの
+OpenOCDでは正しく動作しないことが報告されているため，注意が必要である．
+GUIベースの開発環境／デバッグ環境として，Atollic TrueSTUDIOを用いるこ
+とができる．
 .5 メモリマップ
 …
 xe8000000 - 0xffffffff：I/O領域（384MB），予約領域を含む
+内蔵SRAM領域の先頭の16KBは，ブートローダを置くために使用する．
+シリアルフラッシュメモリの先頭の16KBは，ブートローダを置くために使用す
+る．
 RAM実行の場合は，以下のメモリマップを想定している．
 x20000000 - 0x200fffff：内蔵SRAM（1MB）… ROM領域として使用
 x20100000 - 0x209fffff：内蔵SRAM（9MB）
+x20000000 - 0x200fffff：ROMとみなす内蔵SRAM領域（1MB）
+x20100000 - 0x209fffff：RAMとみなす内蔵SRAM領域（9MB）
 x3fe00000 - 0x3fffffff：I/O領域（2MB），予約領域を含む
 xe8000000 - 0xffffffff：I/O領域（384MB），予約領域を含む
 …
 メモリマップを変更する場合には，target_kernel_impl.cとgr_peach_rom.ld
 （または，pr_peach_ram.kd）を修正する必要がある．
+（または，pr_peach_ram.ld）を修正する必要がある．
 …
 装されている．ARMコア依存部およびRZ/A1チップ依存部におけるターゲット定
 義事項の規定については，「ARM依存部 ユーザーズマニュアル」を参照するこ
 と．それらの規定以外に，GR-PEACHターゲット定義の事項はない．
+と．
 …
 コミュニケーションインタフェースをサポートしている．
+USB経由でホストと接続できるポートは，SCIFのチャネル2（チャネル番号は0か
+ら始まるので，ポート3に相当）である．一方，sample1.cdlでは，ログタスク
+およびサンプルプログラムが使うポートがポート1となっているため，ポート1
+とポート3を入れ換えている．すなわち，シリアルインタフェースドライバのポー
+ト1がSCIFのチャネル2，ポート2がチャネル1，ポート3がチャネル0，ポート4が
+チャネル3，…に対応している．
+GR-PEACHでUSB経由でホストと接続できるポートは，SCIFのチャネル2（チャネ
+ル番号は0から始まるので，ポート3に相当）である．一方，サンプルプログラ
+ム（sample1.cdl）では，ログタスクおよびサンプルプログラムが使うポート
+がポート1となっているため，ポート1とポート3を入れ換えている．すなわち，
+シリアルインタフェースドライバのポート1がSCIFのチャネル2，ポート2がチャ
+ネル1，ポート3がチャネル0，ポート4がチャネル3，…に対応している．この
+対応を変更するには，tSIOPortGRPeach.cdlを修正する必要がある．
+各ポートは，以下の通りに設定している．
         ボーレート：115200bps
 …
         パリティ：なし
         ストップビット：1ビット
+        フロー制御：なし
 この対応を変更するには，tSIOPortGRPeach.cdlを修正する必要がある．
+この設定は，RZ/A1チップ依存部で行っているが，tSIOPortGRPeach.cdlを修正
+することで変更することができる．
 .3 システムログの低レベル出力
 …
                 renesas_rza1h_swd.cfg   OpenOCDの起動スクリプト
                 sf_boot.c                               ブートローダ（ROM実行用）
-                tPutLogGRPeach.c                システムログの低レベル出力
-                tPutLogGRPeach.cdl              システムログの低レベル出力のコンポーネント記述
                 tSIOPortGRPeach.cdl             シリアルインタフェースドライバのターゲット
                                                                 依存部（GR-PEACH用）のコンポーネント記述
-                tSIOPortGRPeachMain_inline.h    シリアルインタフェースドライバの
-                                                                ターゲット依存部（GR-PEACH用）
                 target.cdl                              コンポーネント記述ファイルのターゲット依存部
                 target_cfg1_out.h               cfg1_out.cのリンクに必要なスタブの定義
 …
 年5月15日      Release 3.1.0           最初の一般公開
+年7月21日      Release 3.2.0
+年4月19日      Release 3.3.0
+年3月20日      Release 3.4.0
+年10月6日      Release 3.5.0
 以上

EcnlProtoTool/trunk/asp3_dcre/target/gr_peach_gcc/tinet_target_config.h

-              r331
+              r429
 #define NUM_IF_MBED_RXBUF               NUM_OF_RX_DESCRIPTOR    /* 受信バッファ数                      */
 #define TMO_IF_MBED_GET_NET_BUF 1000    /* [ms]、受信用 net_buf 獲得タイムアウト    */
+#define TMO_IF_MBED_GET_NET_BUF 1000    /* [us]、受信用 net_buf 獲得タイムアウト    */
                                         /* [s]、 送信タイムアウト                        */
 #define TMO_IF_MBED_XMIT                (2*IF_TIMER_HZ)
 /*#define IF_MBED_CFG_ACCEPT_ALL                 マルチキャスト、エラーフレームも受信するときはコメントを外す。*/
+/*
+ *  Bluetooth USB PAN に関する定義
+ */
+#define NUM_IF_BTUSB_TXBUF              2       /* 送信バッファ数                      */
+#define NUM_IF_BTUSB_RXBUF              2       /* 受信バッファ数                      */
+#define IF_BTUSB_BUF_PAGE_SIZE  1518    /* バッファサイズ */
+#define TMO_IF_BTUSB_GET_NET_BUF        1000    /* [us]、受信用 net_buf 獲得タイムアウト    */
+                                        /* [s]、 送信タイムアウト                        */
+#define TMO_IF_BTUSB_XMIT               (2*IF_TIMER_HZ)
 /*

EcnlProtoTool/trunk/asp3_dcre/tecs_kernel/kernel.cdl

-              r321
+              r429
  *  Copyright (C) 2015,2016 by Ushio Laboratory
  *              Graduate School of Engineering Science, Osaka Univ., JAPAN
  *  Copyright (C) 2015,2016 by Embedded and Real-Time Systems Laboratory
+ *  Copyright (C) 2015-2018 by Embedded and Real-Time Systems Laboratory
  *              Graduate School of Information Science, Nagoya Univ., JAPAN
+ *
 …
         ER              sendForce([in] intptr_t data);
         ER              receive([out] intptr_t *p_data);
         ER              receivePolling([out] intptr_t *p_Data);
+        ER              receivePolling([out] intptr_t *p_data);
         ER              receiveTimeout([out] intptr_t *p_data, [in] TMO timeout);
         ER              initialize(void);
 …
         ER              unlock(void);
         ER              initialize(void);
         ER              refer([out] T_RSEM *pk_mutexStatus);
+        ER              refer([out] T_RMTX *pk_mutexStatus);
 };
 …
         attr {
                 ID                              id = C_EXP("ALMID_$id$");
+                ID                              id = C_EXP("CYCID_$id$");
                 [omit] ATR              attribute = C_EXP("TA_NULL");
                 [omit] bool_t   ignoreErrors = false;
 …
 /*
  *  周期通知にユーザーハンドラを指定するための複合セルタイプ
+ *  周期通知にタイムイベントハンドラを指定するための複合セルタイプ
  */
 [active]
 …
         attr {
                 ID                              id = C_EXP("ALMID_$id$");
+                ID                              id = C_EXP("CYCID_$id$");
                 [omit] ATR              attribute = C_EXP("TA_NULL");
                 [omit] RELTIM   cycleTime;
 …
 /*
  *  アラーム通知にユーザーハンドラを指定するための複合セルタイプ
+ *  アラーム通知にタイムイベントハンドラを指定するための複合セルタイプ
  */
 [active]
 …
         ER              disable(void);
         ER              enable(void);
+        ER              clear(void);
+        ER              raise(void);
+        ER_BOOL probe(void);
 };
 …
         attr {
+                INHNO                   interruptHandlerNumber;
+                [omit] ATR              attribute = C_EXP("TA_NULL");
+        };
+        factory {
+                write("tecsgen.cfg",
+                                "DEF_INH(%s, { %s, tInterruptHandler_start });", attribute);
+                [omit] INHNO    interruptHandlerNumber;
+                [omit] ATR              attribute = C_EXP("TA_NULL");
+        };
+        factory {
+                write("tecsgen.cfg", "DEF_INH(%s, { %s, $id$_start });",
+                                                                        interruptHandlerNumber, attribute);
+                write("$ct$_tecsgen.h",
+                                "#ifndef TOPPERS_MACRO_ONLY\n"
+                                "extern void $id$_start(void);\n"
+                                "#endif /* TOPPERS_MACRO_ONLY */\n");
+                write("$ct$.c",
+                                "void $id$_start()\n"
+                                "{\n"
+                                "    CELLCB *p_cellcb = $cbp$;\n"
+                                "    ciInterruptHandlerBody_main();\n"
+                                "}\n");
         };
         FACTORY {
                 write("tecsgen.cfg", "#include \"$ct$_tecsgen.h\"");
+        };
+                write("$ct$.c", "#include \"$ct$_tecsgen.h\"");
+        };
+};
+/*
+ *  CPU例外ハンドラ本体のシグニチャ
+ */
+[context("non-task")]
+signature siCpuExceptionHandlerBody {
+        void    main([in] const void *p_excinf);
 };
 …
 [active]
 celltype tCpuExceptionHandler {
+        call    siHandlerBody   ciCpuExceptionHandlerBody;
+        attr {
+                EXCNO                   cpuExceptionHandlerNumber;
+                [omit] ATR              attribute = C_EXP("TA_NULL");
+        };
+        factory {
+                write("tecsgen.cfg",
+                                "DEF_EXC(%s, { %s, tCpuExceptionHandler_start });", attribute);
+        call    siCpuExceptionHandlerBody       ciCpuExceptionHandlerBody;
+        attr {
+                [omit] EXCNO    cpuExceptionHandlerNumber;
+                [omit] ATR              attribute = C_EXP("TA_NULL");
+        };
+        factory {
+                write("tecsgen.cfg", "DEF_EXC(%s, { %s, $id$_start });",
+                                                                        cpuExceptionHandlerNumber, attribute);
+                write("$ct$_tecsgen.h",
+                                "#ifndef TOPPERS_MACRO_ONLY\n"
+                                "extern void $id$_start(void *p_excinf);\n"
+                                "#endif /* TOPPERS_MACRO_ONLY */\n");
+                write("$ct$.c",
+                                "void $id$_start(void *p_excinf)\n"
+                                "{\n"
+                                "    CELLCB *p_cellcb = $cbp$;\n"
+                                "    ciCpuExceptionHandlerBody_main(p_excinf);\n"
+                                "}\n");
         };
         FACTORY {
                 write("tecsgen.cfg", "#include \"$ct$_tecsgen.h\"");
+                write("$ct$.c", "#include \"$ct$_tecsgen.h\"");
         };
 };

EcnlProtoTool/trunk/asp3_dcre/tecs_kernel/tAlarmNotifier_inline.h

r321	r429
6	6	* Copyright (C) 2015 by Ushio Laboratory
7	7	* Graduate School of Engineering Science, Osaka Univ., JAPAN
8		* Copyright (C) 2015 by Embedded and Real-Time Systems Laboratory
	8	* Copyright (C) 2015-2018 by Embedded and Real-Time Systems Laboratory
9	9	* Graduate School of Information Science, Nagoya Univ., JAPAN
10	10	*
…	…
81	81	{
82	82	CELLCB *p_cellcb = GET_CELLCB(idx);
83		return(ista_alm(ATTR_id, alarmTime));
	83	return(sta_alm(ATTR_id, alarmTime));
84	84	}
85	85
…	…
91	91	{
92	92	CELLCB *p_cellcb = GET_CELLCB(idx);
93		return(istp_alm(ATTR_id));
	93	return(stp_alm(ATTR_id));
94	94	}
95	95

EcnlProtoTool/trunk/asp3_dcre/tecs_kernel/tFixedSizeMemoryPool_inline.h

r321	r429
51	51	{
52	52	CELLCB *p_cellcb = GET_CELLCB(idx);
53		return(get_mpf( ATTR_id, p_block));
	53	return(get_mpf(ATTR_id, p_block));
54	54	}
55	55

EcnlProtoTool/trunk/asp3_dcre/tecs_kernel/tInitializeRoutine.c

-              r321
+              r429
  *  初期化ルーチン本体の呼出し
  */
+void  tInitializeRoutine_start(intptr_t exinf)
+void
+tInitializeRoutine_start(intptr_t exinf)
+{
         CELLCB  *p_cellcb = (CELLCB *) exinf;

EcnlProtoTool/trunk/asp3_dcre/tecs_kernel/tInterruptRequest_inline.h

-              r321
+              r429
  *  Copyright (C) 2015 by Ushio Laboratory
  *              Graduate School of Engineering Science, Osaka Univ., JAPAN
  *  Copyright (C) 2015 by Embedded and Real-Time Systems Laboratory
+ *  Copyright (C) 2015-2017 by Embedded and Real-Time Systems Laboratory
  *              Graduate School of Information Science, Nagoya Univ., JAPAN
+ *
 …
+}
+/*
+ *  割込み要求のクリア
+ */
+Inline ER
+eInterruptRequest_clear(CELLIDX idx)
+{
+        CELLCB  *p_cellcb = GET_CELLCB(idx);
+        return(clr_int(ATTR_interruptNumber));
+}
+/*
+ *  割込みの要求
+ */
+Inline ER
+eInterruptRequest_raise(CELLIDX idx)
+{
+        CELLCB  *p_cellcb = GET_CELLCB(idx);
+        return(ras_int(ATTR_interruptNumber));
+}
+/*
+ *  割込み要求のチェック
+ */
+Inline ER_BOOL
+eInterruptRequest_probe(CELLIDX idx)
+{
+        CELLCB  *p_cellcb = GET_CELLCB(idx);
+        return(prb_int(ATTR_interruptNumber));
+}
 #endif /* TOPPERS_TINTERRUPTREQUEST_INLINE_H */

EcnlProtoTool/trunk/asp3_dcre/tecs_kernel/tKernel_inline.h

-              r321
+              r429
 eKernel_getNthTask(PRI taskPriority, uint_t nth, ID* p_taskID)
+{
+        return (get_nth(taskPriority, nth, p_taskID));
+}
+        return(get_nth(taskPriority, nth, p_taskID));
+}
 /*
  *  CPUロック状態への遷移

EcnlProtoTool/trunk/asp3_dcre/tecs_kernel/tMutex_inline.h

r321	r429
71	71	{
72	72	CELLCB *p_cellcb = GET_CELLCB(idx);
73		return(ploc_mtx(ATTR_id, timeout));
	73	return(tloc_mtx(ATTR_id, timeout));
74	74	}
75	75

EcnlProtoTool/trunk/asp3_dcre/tecs_kernel/tTask_inline.h

r321	r429
6	6	* Copyright (C) 2015 by Ushio Laboratory
7	7	* Graduate School of Engineering Science, Osaka Univ., JAPAN
8		* Copyright (C) 2015 by Embedded and Real-Time Systems Laboratory
	8	* Copyright (C) 2015-2019 by Embedded and Real-Time Systems Laboratory
9	9	* Graduate School of Information Science, Nagoya Univ., JAPAN
10	10	*
…	…
191	191	{
192	192	CELLCB *p_cellcb= GET_CELLCB(idx);
193		return(iwup_tsk(ATTR_id));
	193	return(wup_tsk(ATTR_id));
194	194	}
195	195
…	…
201	201	{
202	202	CELLCB *p_cellcb = GET_CELLCB(idx);
203		return(irel_wai(ATTR_id));
	203	return(rel_wai(ATTR_id));
204	204	}
205	205

EcnlProtoTool/trunk/asp3_dcre/tecs_kernel/tTerminateRoutine.c

-              r321
+              r429
  *  終了処理ルーチン本体の呼出し
  */
 void  tTerminateRoutine_start(intptr_t exinf)
+void
+tTerminateRoutine_start(intptr_t exinf)
+{
         CELLCB  *p_cellcb = (CELLCB *) exinf;

EcnlProtoTool/trunk/asp3_dcre/tecs_kernel/tecs_kernel.h

-              r321
+              r429
 #include <kernel.h>
+extern void     tTask_start(intptr_t exinf);
+extern void tTimeEventHandler_start(intptr_t exinf);
+extern void tTask_start(intptr_t exinf);
 extern void tISR_start(intptr_t exinf);
-extern void tInterruptHandler_start(void);
-extern void tCpuExceptionHandler_start(void *p_excinf);
 extern void tInitializeRoutine_start(intptr_t exinf);

EcnlProtoTool/trunk/asp3_dcre/tecsgen/MANIFEST_for_asp3

-              r270
+              r429
 tecslib/core/tecs_lang.rb
 tecslib/core/tecsgen.rb
+tecslib/core/tecsinfo.rb
+tecslib/core/tool_info.rb
 tecslib/core/types.rb
+tecslib/core/unjoin_plugin.rb
 tecslib/core/value.rb
 …
 tecslib/plugin/CellPlugin.rb
 tecslib/plugin/CelltypePlugin.rb
+tecslib/plugin/CompositePlugin.rb
 tecslib/plugin/DomainPlugin.rb
 tecslib/plugin/Mruby2CBridgePlugin.rb
 tecslib/plugin/MrubyBridgePlugin.rb
+tecslib/plugin/MultiPlugin.rb
 tecslib/plugin/NotifierPlugin.rb
 tecslib/plugin/RPCPlugin.rb
 …
 tecs/rpc/tTDR_inline.h
 tecs/rpc/tecs_rpc.h
+tecs/rpc/tMessageBufferCEP.cdl
+tecs/rpc/tMessageBufferCEP_inline.h
+tecs/rpc/tMessageBufferChannel.cdl

EcnlProtoTool/trunk/asp3_dcre/tecsgen/MANIFEST_tecsgen_body

-              r270
+              r429
 Makefile
+tecscde
+tecscde.rb
 tecsgen
 tecsgen.rb
+tecsgen_rcov.rb
 tecsmerge
 tecsmerge.rb
+tecslib/version.rb
+cdelib/Makefile
+cdelib/cell_plugin_dialog.rb
+cdelib/cell_plugin_dialog_ui_definition.rb
+cdelib/palette.rb
+cdelib/saveload.rb
+cdelib/tcontrol.rb
+cdelib/tmodel.rb
+cdelib/tview.rb
+cdelib/version.rb
+tecs/TECSInfo/TECSInfo.cdl
+tecs/TECSInfo/TECSInfoAccessor.cdl
+tecs/TECSInfo/nTECSInfo_tArrayTypeInfo.c
+tecs/TECSInfo/nTECSInfo_tBoolTypeInfo.c
+tecs/TECSInfo/nTECSInfo_tCallInfo.c
+tecs/TECSInfo/nTECSInfo_tCellInfo.c
+tecs/TECSInfo/nTECSInfo_tCelltypeInfo.c
+tecs/TECSInfo/nTECSInfo_tDefinedTypeInfo.c
+tecs/TECSInfo/nTECSInfo_tDescriptorTypeInfo.c
+tecs/TECSInfo/nTECSInfo_tEntryInfo.c
+tecs/TECSInfo/nTECSInfo_tFloatTypeInfo.c
+tecs/TECSInfo/nTECSInfo_tFunctionInfo.c
+tecs/TECSInfo/nTECSInfo_tIntTypeInfo.c
+tecs/TECSInfo/nTECSInfo_tNamespaceInfo.c
+tecs/TECSInfo/nTECSInfo_tParamInfo.c
+tecs/TECSInfo/nTECSInfo_tPtrTypeInfo.c
+tecs/TECSInfo/nTECSInfo_tRawEntryDescriptorInfo.c
+tecs/TECSInfo/nTECSInfo_tRegionInfo.c
+tecs/TECSInfo/nTECSInfo_tSignatureInfo.c
+tecs/TECSInfo/nTECSInfo_tStructTypeInfo.c
+tecs/TECSInfo/nTECSInfo_tTECSInfoAccessor.c
+tecs/TECSInfo/nTECSInfo_tTECSInfoSub.c
+tecs/TECSInfo/nTECSInfo_tTECSInfo_inline.h
+tecs/TECSInfo/nTECSInfo_tTypeInfo.c
+tecs/TECSInfo/nTECSInfo_tVarDeclInfo.c
+tecs/TECSInfo/nTECSInfo_tVoidTypeInfo.c
+tecs/TECSInfo/tTECSInfoAccessor.c
+tecs/TLSFMalloc/README-TLSF.txt
+tecs/TLSFMalloc/tTLSFMalloc.cdl
+tecs/TLSFMalloc/tTLSFMalloc_inline.h
+tecs/mruby/README-mruby.txt
+tecs/mruby/TECSPointer.h
+tecs/mruby/TECSStruct.h
+tecs/mruby/mruby.cdl
+tecs/mruby/mrubyBridge.txt
+tecs/mruby/mrubyInitializer.cdl
+tecs/mruby/mrubyPointers.cdl
+tecs/mruby/mrubyTECSPointer.txt
+tecs/mruby/mrubyTECSStruct.txt
+tecs/mruby/mrubyVMs.cdl
+tecs/mruby/nMruby_tBoolPointer.c
+tecs/mruby/nMruby_tCharPointer.c
+tecs/mruby/nMruby_tDouble64Pointer.c
+tecs/mruby/nMruby_tFloat32Pointer.c
+tecs/mruby/nMruby_tInt16Pointer.c
+tecs/mruby/nMruby_tInt32Pointer.c
+tecs/mruby/nMruby_tInt64Pointer.c
+tecs/mruby/nMruby_tInt8Pointer.c
+tecs/mruby/nMruby_tIntPointer.c
+tecs/mruby/nMruby_tLongPointer.c
+tecs/mruby/nMruby_tMruby.c
+tecs/mruby/nMruby_tMrubyCyclicTaskBody.c
+tecs/mruby/nMruby_tMrubyProc.c
+tecs/mruby/nMruby_tMrubyTaskBody.c
+tecs/mruby/nMruby_tMrubyVM.c
+tecs/mruby/nMruby_tSCharPointer.c
+tecs/mruby/nMruby_tShortPointer.c
+tecs/mruby/nMruby_tTECSInitializer.c
+tecs/mruby/nMruby_tUCharPointer.c
+tecs/mruby/nMruby_tUInt16Pointer.c
+tecs/mruby/nMruby_tUInt32Pointer.c
+tecs/mruby/nMruby_tUInt64Pointer.c
+tecs/mruby/nMruby_tUInt8Pointer.c
+tecs/mruby/nMruby_tUIntPointer.c
+tecs/mruby/nMruby_tULongPointer.c
+tecs/mruby/nMruby_tUShortPointer.c
+tecs/mruby/sMruby.cdl
+tecs/mruby/tMruby.cdl
+tecs/mruby/tecs_mruby.h
+tecs/posix/posix.cdl
+tecs/rpc/PPAllocator.cdl
+tecs/rpc/RPCTask.cdl
+tecs/rpc/TDR.cdl
+tecs/rpc/rpc.cdl
+tecs/rpc/rpc_string.h
+tecs/rpc/sChannel.cdl
+tecs/rpc/sRPCErrorHandler.cdl
+tecs/rpc/tDataqueueAdaptor_inline.h
+tecs/rpc/tDataqueueOWChannel.cdl
+tecs/rpc/tMessageBufferCEP.cdl
+tecs/rpc/tMessageBufferCEP_inline.h
+tecs/rpc/tMessageBufferChannel.cdl
+tecs/rpc/tNBOTDR_inline.h
+tecs/rpc/tPPAllocator.c
+tecs/rpc/tRPCDedicatedTaskMain.c
+tecs/rpc/tRPCDedicatedTaskMainWithOpener.c
+tecs/rpc/tRPCSharedChannelMan.c
+tecs/rpc/tRPCSharedTaskMain.c
+tecs/rpc/tRPCSharedTaskMainWithOpener.c
+tecs/rpc/tSocketChannel.cdl
+tecs/rpc/tSocketClient.c
+tecs/rpc/tSocketServer.c
+tecs/rpc/tTDR_inline.h
+tecs/rpc/tTINETChannel.cdl
+tecs/rpc/tTINETClient.c
+tecs/rpc/tTINETServer.c
+tecs/rpc/tecs_rpc.h
+tecs/sMalloc.cdl
+tecs/tecs.h
+tecs/tecs.xsd
 tecslib/core/C_parser.tab.rb
 tecslib/core/C_parser.y.rb
 …
 tecslib/core/tecs_lang.rb
 tecslib/core/tecsgen.rb
+tecslib/core/tecsinfo.rb
+tecslib/core/tool_info.rb
 tecslib/core/types.rb
+tecslib/core/unjoin_plugin.rb
 tecslib/core/value.rb
 tecslib/messages/messages_console_en_US.rb
 tecslib/messages/messages_console_ja_JP.rb
 tecslib/messages/messages_file_en_US.rb
 tecslib/messages/messages_file_ja_JP.rb
 tecslib/plugin/ATK1AlarmPlugin.rb
 tecslib/plugin/ATK1DelayTaskPlugin.rb
 …
 tecslib/plugin/CellPlugin.rb
 tecslib/plugin/CelltypePlugin.rb
+tecslib/plugin/CompositePlugin.rb
 tecslib/plugin/DomainPlugin.rb
 tecslib/plugin/HRP2AlarmHandlerPlugin.rb
 …
 tecslib/plugin/HRP2SemaphorePlugin.rb
 tecslib/plugin/HRP2TaskPlugin.rb
+tecslib/plugin/HRPHandlerPlugin.rb
+tecslib/plugin/HRPKernelObjectManager.rb
+tecslib/plugin/HRPKernelObjectPlugin.rb
+tecslib/plugin/HRPObjectPlugin.rb
+tecslib/plugin/HRPPlugin.rb
+tecslib/plugin/HRPRPCPlugin.rb
+tecslib/plugin/HRPSVCPlugin.rb
+tecslib/plugin/HRPTaskPlugin.rb
 tecslib/plugin/Mruby2CBridgePlugin.rb
+tecslib/plugin/MrubyBridgeCellPlugin.rb
+tecslib/plugin/MrubyBridgeCelltypePlugin.rb
+tecslib/plugin/MrubyBridgeCompositePlugin.rb
 tecslib/plugin/MrubyBridgePlugin.rb
+tecslib/plugin/MrubyBridgeSignaturePlugin.rb
+tecslib/plugin/MultiPlugin.rb
 tecslib/plugin/NotifierPlugin.rb
 tecslib/plugin/OpaqueMarshalerPlugin.rb
 tecslib/plugin/OpaqueRPCPlugin.rb
 tecslib/plugin/RPCPlugin.rb
+tecslib/plugin/RepeatCellPlugin.rb
+tecslib/plugin/RepeatJoinPlugin.rb
 tecslib/plugin/SharedOpaqueRPCPlugin.rb
 tecslib/plugin/SharedRPCPlugin.rb
 tecslib/plugin/SignaturePlugin.rb
 tecslib/plugin/TECS2CBridgePlugin.rb
+tecslib/plugin/TECSInfoPlugin.rb
 tecslib/plugin/ThroughPlugin.rb
 tecslib/plugin/TracePlugin.rb
 …
 tecslib/plugin/lib/GenParamCopy.rb
 tecslib/plugin/lib/GenTransparentMarshaler.rb
+tecs/mruby/TECSPointer.h
+tecs/mruby/TECSStruct.h
+tecs/mruby/mruby.cdl
+tecs/mruby/mrubyInitializer.cdl
+tecs/mruby/mrubyPointers.cdl
+tecs/mruby/mrubyVMs.cdl
+tecs/mruby/nMruby_tBoolPointer.c
+tecs/mruby/nMruby_tCharPointer.c
+tecs/mruby/nMruby_tDouble64Pointer.c
+tecs/mruby/nMruby_tFloat32Pointer.c
+tecs/mruby/nMruby_tInt16Pointer.c
+tecs/mruby/nMruby_tInt32Pointer.c
+tecs/mruby/nMruby_tInt64Pointer.c
+tecs/mruby/nMruby_tInt8Pointer.c
+tecs/mruby/nMruby_tIntPointer.c
+tecs/mruby/nMruby_tLongPointer.c
+tecs/mruby/nMruby_tMruby.c
+tecs/mruby/nMruby_tMrubyProc.c
+tecs/mruby/nMruby_tMrubyProc_1_0.c
+tecs/mruby/nMruby_tSCharPointer.c
+tecs/mruby/nMruby_tShortPointer.c
+tecs/mruby/nMruby_tTECSInitializer.c
+tecs/mruby/nMruby_tUCharPointer.c
+tecs/mruby/nMruby_tUInt16Pointer.c
+tecs/mruby/nMruby_tUInt32Pointer.c
+tecs/mruby/nMruby_tUInt64Pointer.c
+tecs/mruby/nMruby_tUInt8Pointer.c
+tecs/mruby/nMruby_tUIntPointer.c
+tecs/mruby/nMruby_tULongPointer.c
+tecs/mruby/nMruby_tUShortPointer.c
+tecs/mruby/tMruby.cdl
+tecs/mruby/tecs_mruby.h
+tecs/posix/posix.cdl
+tecs/rpc/PPAllocator.cdl
+tecs/rpc/RPCTask.cdl
+tecs/rpc/TDR.cdl
+tecs/rpc/rpc.cdl
+tecs/rpc/rpc_string.h
+tecs/rpc/sChannel.cdl
+tecs/rpc/sRPCErrorHandler.cdl
+tecs/rpc/tDataqueueAdaptor_inline.h
+tecs/rpc/tDataqueueOWChannel.cdl
+tecs/rpc/tNBOTDR_inline.h
+tecs/rpc/tPPAllocator.c
+tecs/rpc/tRPCDedicatedTaskMain.c
+tecs/rpc/tRPCDedicatedTaskMainWithOpener.c
+tecs/rpc/tRPCSharedChannelMan.c
+tecs/rpc/tRPCSharedTaskMain.c
+tecs/rpc/tRPCSharedTaskMainWithOpener.c
+tecs/rpc/tSocketChannel.cdl
+tecs/rpc/tSocketClient.c
+tecs/rpc/tSocketServer.c
+tecs/rpc/tTDR_inline.h
+tecs/rpc/tTINETChannel.cdl
+tecs/rpc/tTINETClient.c
+tecs/rpc/tTINETServer.c
+tecs/rpc/tecs_rpc.h
+tecs/tecs.h
+tecs/tecs.xsd
+tecslib/plugin/lib/MrubyBridgeCelltypePluginModule.rb
+tecslib/version.rb

EcnlProtoTool/trunk/asp3_dcre/tecsgen/Makefile

-              r321
+              r429
 #   の責任を負わない．
+#
 #   $Id$
+#   $Id: Makefile 2640 2017-06-03 11:27:12Z okuma-top $
 #++
 …
 C_TAB = $(LIB_PATH)/C_parser.tab.rb
 EXERB_EXE = tecsgen.exe
-EXERB_EXY = tecsgen.exy
 all: generator
 …
         racc -v -g -o $(GEN_TAB_DEB) $(BNF)     # yydebug を有効にする
-# exerb : $(EXERB_EXE)
-exerb :
-        @echo "!!! please build using ActiveScriptRuby !!!"
-        exit 1
-# $(EXERB_EXE) : $(EXERB_EXY) $(GEN_SRC) $(PLUGIN_SRC)
-#       exerb  $(EXERB_EXY)
-# tecsgen.exy.ini から tecsgen.exy を生成するのは util/release.sh により行われる
-# MANIFEST に記載のバージョン番号が、tecsgen.exy.ini の文字列置換により、埋め込まれる
-exerb_check : $(EXERB_EXE)
-$(EXERB_EXE) : $(EXERB_EXY) $(GEN_SRC) $(PLUGIN_SRC)
-        @echo "### Need make_tecsgen_exerb on ActiveScriptRuby to update tecsgen.exerb ###"
 print_error :   # エラーメッセージを拾い出す
         grep -e "Generator\.error" -e cdl_error $(LIB_PATH)/*.rb \
                 | grep -v bnf.tab.rb \
                 | sed -e "s/\s*Generator\.error(/  /" -e "s/\s*cdl_error(//" -e "s/).*$$//"
+                | sed -e "s/\s*Generator\.error(//" -e "s/\s*cdl_error[0-9]*(//" -e "s/).*$$//"
 print_error2 :  # エラーメッセージを拾い出す

EcnlProtoTool/trunk/asp3_dcre/tecsgen/in_exerb.rb

r321	r429
35	35	# の責任を負わない．
36	36	#
37		# $Id$
	37	# $Id: in_exerb.rb 1011 2016-07-11 02:20:01Z coas-nagasima $
38	38	#++
39	39

EcnlProtoTool/trunk/asp3_dcre/tecsgen/tecs/mruby/TECSPointer.h

-              r321
+              r429
         {                                                                                                                                       \
                 if( sizeof( type ) > sizeof( mrb_int ) ){                                               \
                         if( val >= (((type)1) << (sizeof(mrb_int)*8-1))                         \
                                 || val < -(((type)1) << (sizeof(mrb_int)*8-1)) )                \
+                        if( val > TYPE ## _MAX                          \
+                                || val < TYPE ## _MIN )         \
                                 /* '=' unecessary for negative value    */                              \
                                 /* ignore warning on int32_t */                                                 \
 …
         {                                                                                                                                       \
                 if( sizeof( type ) > sizeof( mrb_int ) ){                                               \
                         if( val >= (((type)1) << (sizeof(mrb_int)*8)))                          \
+      if( val > TYPE ## _MAX )                        \
                                 /* '=' unecessary for negative value    */                              \
                                 /* ignore warning on int32_t */                                                 \
 …
 VALCHECK_MRB_INT( Int16, INT16, int16_t )
 VALCHECK_UINT( UInt8, UINT8, uint8_t )
 #define VALCHECK_MRB_UInt8
+#define VALCHECK_MRB_UInt8(mrb,val)
 VALCHECK_UINT( UInt16, UINT16, uint16_t )
 #define VALCHECK_MRB_UInt16
+#define VALCHECK_MRB_UInt16(mrb,val)
 VALCHECK_INT( Int32, INT32, int32_t )
 #define VALCHECK_MRB_Int32
+#define VALCHECK_MRB_Int32(mrb,val)
 VALCHECK_UINT( UInt32, UINT32, uint32_t )
 #define VALCHECK_MRB_UInt32
+#define VALCHECK_MRB_UInt32(mrb,val)
 VALCHECK_INT( Int64, INT64, int64_t )
 …
 VALCHECK_MRB_UINT( UInt64, UINT64, uint64_t )
 #else
 #define VALCHECK_MRB_Int64      // 範囲チェックが無意味であるため、警告が出るのを回避する
 #define VALCHECK_MRB_UInt64      // 範囲チェックが無意味であるため、警告が出るのを回避する
+#define VALCHECK_MRB_Int64(mrb,val)      // 範囲チェックが無意味であるため、警告が出るのを回避する
+#define VALCHECK_MRB_UInt64(mrb,val)      // 範囲チェックが無意味であるため、警告が出るのを回避する
 #endif

EcnlProtoTool/trunk/asp3_dcre/tecsgen/tecs/mruby/TECSStruct.h

r321	r429
105	105	Struct_ ## TAG ## _initialize( mrb_state *mrb, mrb_value self) \
106	106	{ \
107		~~mrb_int length; \~~
108		~~struct TAG *structBody; \~~
109	107	\
110	108	DATA_TYPE( self ) = &Struct ## TAG ## Body_mrb_data_type; \

EcnlProtoTool/trunk/asp3_dcre/tecsgen/tecs/mruby/mruby.cdl

-              r321
+              r429
+/*
+ *   Copyright (C) 2008-2017 by TOPPERS Project
+ *
+ *  上記著作権者は，以下の(1)～(4)の条件を満たす場合に限り，本ソフトウェ
+ *  ア（本ソフトウェアを改変したものを含む．以下同じ）を使用・複製・改
+ *  変・再配布（以下，利用と呼ぶ）することを無償で許諾する．
+ *  (1) 本ソフトウェアをソースコードの形で利用する場合には，上記の著作
+ *      権表示，この利用条件および下記の無保証規定が，そのままの形でソー
+ *      スコード中に含まれていること．
+ *  (2) 本ソフトウェアを，ライブラリ形式など，他のソフトウェア開発に使
+ *      用できる形で再配布する場合には，再配布に伴うドキュメント（利用
+ *      者マニュアルなど）に，上記の著作権表示，この利用条件および下記
+ *      の無保証規定を掲載すること．
+ *  (3) 本ソフトウェアを，機器に組み込むなど，他のソフトウェア開発に使
+ *      用できない形で再配布する場合には，次のいずれかの条件を満たすこ
+ *      と．
+ *    (a) 再配布に伴うドキュメント（利用者マニュアルなど）に，上記の著
+ *        作権表示，この利用条件および下記の無保証規定を掲載すること．
+ *    (b) 再配布の形態を，別に定める方法によって，TOPPERSプロジェクトに
+ *        報告すること．
+ *  (4) 本ソフトウェアの利用により直接的または間接的に生じるいかなる損
+ *      害からも，上記著作権者およびTOPPERSプロジェクトを免責すること．
+ *      また，本ソフトウェアのユーザまたはエンドユーザからのいかなる理
+ *      由に基づく請求からも，上記著作権者およびTOPPERSプロジェクトを
+ *      免責すること．
+ *
+ *  本ソフトウェアは，無保証で提供されているものである．上記著作権者お
+ *  よびTOPPERSプロジェクトは，本ソフトウェアに関して，特定の使用目的
+ *  に対する適合性も含めて，いかなる保証も行わない．また，本ソフトウェ
+ *  アの利用により直接的または間接的に生じたいかなる損害に関しても，そ
+ *  の責任を負わない．
+ *
+ *  @(#) $Id$
+ */
 import_C( "tecs_mruby.h" );

EcnlProtoTool/trunk/asp3_dcre/tecsgen/tecs/mruby/mrubyInitializer.cdl

-              r321
+              r429
+/*
+ *   Copyright (C) 2008-2017 by TOPPERS Project
+ *
+ *  上記著作権者は，以下の(1)～(4)の条件を満たす場合に限り，本ソフトウェ
+ *  ア（本ソフトウェアを改変したものを含む．以下同じ）を使用・複製・改
+ *  変・再配布（以下，利用と呼ぶ）することを無償で許諾する．
+ *  (1) 本ソフトウェアをソースコードの形で利用する場合には，上記の著作
+ *      権表示，この利用条件および下記の無保証規定が，そのままの形でソー
+ *      スコード中に含まれていること．
+ *  (2) 本ソフトウェアを，ライブラリ形式など，他のソフトウェア開発に使
+ *      用できる形で再配布する場合には，再配布に伴うドキュメント（利用
+ *      者マニュアルなど）に，上記の著作権表示，この利用条件および下記
+ *      の無保証規定を掲載すること．
+ *  (3) 本ソフトウェアを，機器に組み込むなど，他のソフトウェア開発に使
+ *      用できない形で再配布する場合には，次のいずれかの条件を満たすこ
+ *      と．
+ *    (a) 再配布に伴うドキュメント（利用者マニュアルなど）に，上記の著
+ *        作権表示，この利用条件および下記の無保証規定を掲載すること．
+ *    (b) 再配布の形態を，別に定める方法によって，TOPPERSプロジェクトに
+ *        報告すること．
+ *  (4) 本ソフトウェアの利用により直接的または間接的に生じるいかなる損
+ *      害からも，上記著作権者およびTOPPERSプロジェクトを免責すること．
+ *      また，本ソフトウェアのユーザまたはエンドユーザからのいかなる理
+ *      由に基づく請求からも，上記著作権者およびTOPPERSプロジェクトを
+ *      免責すること．
+ *
+ *  本ソフトウェアは，無保証で提供されているものである．上記著作権者お
+ *  よびTOPPERSプロジェクトは，本ソフトウェアに関して，特定の使用目的
+ *  に対する適合性も含めて，いかなる保証も行わない．また，本ソフトウェ
+ *  アの利用により直接的または間接的に生じたいかなる損害に関しても，そ
+ *  の責任を負わない．
+ *
+ *  @(#) $Id$
+ */
 namespace nMruby{

EcnlProtoTool/trunk/asp3_dcre/tecsgen/tecs/mruby/mrubyPointers.cdl

-              r321
+              r429
+/*
+ *   Copyright (C) 2008-2017 by TOPPERS Project
+ *
+ *  上記著作権者は，以下の(1)～(4)の条件を満たす場合に限り，本ソフトウェ
+ *  ア（本ソフトウェアを改変したものを含む．以下同じ）を使用・複製・改
+ *  変・再配布（以下，利用と呼ぶ）することを無償で許諾する．
+ *  (1) 本ソフトウェアをソースコードの形で利用する場合には，上記の著作
+ *      権表示，この利用条件および下記の無保証規定が，そのままの形でソー
+ *      スコード中に含まれていること．
+ *  (2) 本ソフトウェアを，ライブラリ形式など，他のソフトウェア開発に使
+ *      用できる形で再配布する場合には，再配布に伴うドキュメント（利用
+ *      者マニュアルなど）に，上記の著作権表示，この利用条件および下記
+ *      の無保証規定を掲載すること．
+ *  (3) 本ソフトウェアを，機器に組み込むなど，他のソフトウェア開発に使
+ *      用できない形で再配布する場合には，次のいずれかの条件を満たすこ
+ *      と．
+ *    (a) 再配布に伴うドキュメント（利用者マニュアルなど）に，上記の著
+ *        作権表示，この利用条件および下記の無保証規定を掲載すること．
+ *    (b) 再配布の形態を，別に定める方法によって，TOPPERSプロジェクトに
+ *        報告すること．
+ *  (4) 本ソフトウェアの利用により直接的または間接的に生じるいかなる損
+ *      害からも，上記著作権者およびTOPPERSプロジェクトを免責すること．
+ *      また，本ソフトウェアのユーザまたはエンドユーザからのいかなる理
+ *      由に基づく請求からも，上記著作権者およびTOPPERSプロジェクトを
+ *      免責すること．
+ *
+ *  本ソフトウェアは，無保証で提供されているものである．上記著作権者お
+ *  よびTOPPERSプロジェクトは，本ソフトウェアに関して，特定の使用目的
+ *  に対する適合性も含めて，いかなる保証も行わない．また，本ソフトウェ
+ *  アの利用により直接的または間接的に生じたいかなる損害に関しても，そ
+ *  の責任を負わない．
+ *
+ *  @(#) $Id$
+ */
 // Pointer celltypes

EcnlProtoTool/trunk/asp3_dcre/tecsgen/tecs/mruby/mrubyVMs.cdl

-              r321
+              r429
+/*
+ *   Copyright (C) 2008-2017 by TOPPERS Project
+ *
+ *  上記著作権者は，以下の(1)～(4)の条件を満たす場合に限り，本ソフトウェ
+ *  ア（本ソフトウェアを改変したものを含む．以下同じ）を使用・複製・改
+ *  変・再配布（以下，利用と呼ぶ）することを無償で許諾する．
+ *  (1) 本ソフトウェアをソースコードの形で利用する場合には，上記の著作
+ *      権表示，この利用条件および下記の無保証規定が，そのままの形でソー
+ *      スコード中に含まれていること．
+ *  (2) 本ソフトウェアを，ライブラリ形式など，他のソフトウェア開発に使
+ *      用できる形で再配布する場合には，再配布に伴うドキュメント（利用
+ *      者マニュアルなど）に，上記の著作権表示，この利用条件および下記
+ *      の無保証規定を掲載すること．
+ *  (3) 本ソフトウェアを，機器に組み込むなど，他のソフトウェア開発に使
+ *      用できない形で再配布する場合には，次のいずれかの条件を満たすこ
+ *      と．
+ *    (a) 再配布に伴うドキュメント（利用者マニュアルなど）に，上記の著
+ *        作権表示，この利用条件および下記の無保証規定を掲載すること．
+ *    (b) 再配布の形態を，別に定める方法によって，TOPPERSプロジェクトに
+ *        報告すること．
+ *  (4) 本ソフトウェアの利用により直接的または間接的に生じるいかなる損
+ *      害からも，上記著作権者およびTOPPERSプロジェクトを免責すること．
+ *      また，本ソフトウェアのユーザまたはエンドユーザからのいかなる理
+ *      由に基づく請求からも，上記著作権者およびTOPPERSプロジェクトを
+ *      免責すること．
+ *
+ *  本ソフトウェアは，無保証で提供されているものである．上記著作権者お
+ *  よびTOPPERSプロジェクトは，本ソフトウェアに関して，特定の使用目的
+ *  に対する適合性も含めて，いかなる保証も行わない．また，本ソフトウェ
+ *  アの利用により直接的または間接的に生じたいかなる損害に関しても，そ
+ *  の責任を負わない．
+ *
+ *  @(#) $Id$
+ */
 import( <posix.cdl> );
 /*
+ * tools/mruby/mruby.c から cInit_initializeBridge( mrb ) を呼び出すように変更したもの
+ * POSIX 環境用の VM
+ * mrbgems の mrbgems/mruby-bin-mruby/tools/mruby/mruby.c を参考に作成したもの
  */
 namespace nMruby{

EcnlProtoTool/trunk/asp3_dcre/tecsgen/tecs/mruby/nMruby_tBoolPointer.c

-              r321
+              r429
+/*
+ *   Copyright (C) 2008-2017 by TOPPERS Project
+ *
+ *  上記著作権者は，以下の(1)～(4)の条件を満たす場合に限り，本ソフトウェ
+ *  ア（本ソフトウェアを改変したものを含む．以下同じ）を使用・複製・改
+ *  変・再配布（以下，利用と呼ぶ）することを無償で許諾する．
+ *  (1) 本ソフトウェアをソースコードの形で利用する場合には，上記の著作
+ *      権表示，この利用条件および下記の無保証規定が，そのままの形でソー
+ *      スコード中に含まれていること．
+ *  (2) 本ソフトウェアを，ライブラリ形式など，他のソフトウェア開発に使
+ *      用できる形で再配布する場合には，再配布に伴うドキュメント（利用
+ *      者マニュアルなど）に，上記の著作権表示，この利用条件および下記
+ *      の無保証規定を掲載すること．
+ *  (3) 本ソフトウェアを，機器に組み込むなど，他のソフトウェア開発に使
+ *      用できない形で再配布する場合には，次のいずれかの条件を満たすこ
+ *      と．
+ *    (a) 再配布に伴うドキュメント（利用者マニュアルなど）に，上記の著
+ *        作権表示，この利用条件および下記の無保証規定を掲載すること．
+ *    (b) 再配布の形態を，別に定める方法によって，TOPPERSプロジェクトに
+ *        報告すること．
+ *  (4) 本ソフトウェアの利用により直接的または間接的に生じるいかなる損
+ *      害からも，上記著作権者およびTOPPERSプロジェクトを免責すること．
+ *      また，本ソフトウェアのユーザまたはエンドユーザからのいかなる理
+ *      由に基づく請求からも，上記著作権者およびTOPPERSプロジェクトを
+ *      免責すること．
+ *
+ *  本ソフトウェアは，無保証で提供されているものである．上記著作権者お
+ *  よびTOPPERSプロジェクトは，本ソフトウェアに関して，特定の使用目的
+ *  に対する適合性も含めて，いかなる保証も行わない．また，本ソフトウェ
+ *  アの利用により直接的または間接的に生じたいかなる損害に関しても，そ
+ *  の責任を負わない．
+ *
+ *  @(#) $Id$
+ */
 /* #[<PREAMBLE>]#
  * #[<...>]# から #[</...>]# で囲まれたコメントは編集しないでください

EcnlProtoTool/trunk/asp3_dcre/tecsgen/tecs/mruby/nMruby_tCharPointer.c

-              r321
+              r429
+/*
+ *   Copyright (C) 2008-2017 by TOPPERS Project
+ *
+ *  上記著作権者は，以下の(1)～(4)の条件を満たす場合に限り，本ソフトウェ
+ *  ア（本ソフトウェアを改変したものを含む．以下同じ）を使用・複製・改
+ *  変・再配布（以下，利用と呼ぶ）することを無償で許諾する．
+ *  (1) 本ソフトウェアをソースコードの形で利用する場合には，上記の著作
+ *      権表示，この利用条件および下記の無保証規定が，そのままの形でソー
+ *      スコード中に含まれていること．
+ *  (2) 本ソフトウェアを，ライブラリ形式など，他のソフトウェア開発に使
+ *      用できる形で再配布する場合には，再配布に伴うドキュメント（利用
+ *      者マニュアルなど）に，上記の著作権表示，この利用条件および下記
+ *      の無保証規定を掲載すること．
+ *  (3) 本ソフトウェアを，機器に組み込むなど，他のソフトウェア開発に使
+ *      用できない形で再配布する場合には，次のいずれかの条件を満たすこ
+ *      と．
+ *    (a) 再配布に伴うドキュメント（利用者マニュアルなど）に，上記の著
+ *        作権表示，この利用条件および下記の無保証規定を掲載すること．
+ *    (b) 再配布の形態を，別に定める方法によって，TOPPERSプロジェクトに
+ *        報告すること．
+ *  (4) 本ソフトウェアの利用により直接的または間接的に生じるいかなる損
+ *      害からも，上記著作権者およびTOPPERSプロジェクトを免責すること．
+ *      また，本ソフトウェアのユーザまたはエンドユーザからのいかなる理
+ *      由に基づく請求からも，上記著作権者およびTOPPERSプロジェクトを
+ *      免責すること．
+ *
+ *  本ソフトウェアは，無保証で提供されているものである．上記著作権者お
+ *  よびTOPPERSプロジェクトは，本ソフトウェアに関して，特定の使用目的
+ *  に対する適合性も含めて，いかなる保証も行わない．また，本ソフトウェ
+ *  アの利用により直接的または間接的に生じたいかなる損害に関しても，そ
+ *  の責任を負わない．
+ *
+ *  @(#) $Id$
+ */
 /* #[<PREAMBLE>]#
  * #[<...>]# から #[</...>]# で囲まれたコメントは編集しないでください

EcnlProtoTool/trunk/asp3_dcre/tecsgen/tecs/mruby/nMruby_tDouble64Pointer.c

-              r321
+              r429
+/*
+ *   Copyright (C) 2008-2017 by TOPPERS Project
+ *
+ *  上記著作権者は，以下の(1)～(4)の条件を満たす場合に限り，本ソフトウェ
+ *  ア（本ソフトウェアを改変したものを含む．以下同じ）を使用・複製・改
+ *  変・再配布（以下，利用と呼ぶ）することを無償で許諾する．
+ *  (1) 本ソフトウェアをソースコードの形で利用する場合には，上記の著作
+ *      権表示，この利用条件および下記の無保証規定が，そのままの形でソー
+ *      スコード中に含まれていること．
+ *  (2) 本ソフトウェアを，ライブラリ形式など，他のソフトウェア開発に使
+ *      用できる形で再配布する場合には，再配布に伴うドキュメント（利用
+ *      者マニュアルなど）に，上記の著作権表示，この利用条件および下記
+ *      の無保証規定を掲載すること．
+ *  (3) 本ソフトウェアを，機器に組み込むなど，他のソフトウェア開発に使
+ *      用できない形で再配布する場合には，次のいずれかの条件を満たすこ
+ *      と．
+ *    (a) 再配布に伴うドキュメント（利用者マニュアルなど）に，上記の著
+ *        作権表示，この利用条件および下記の無保証規定を掲載すること．
+ *    (b) 再配布の形態を，別に定める方法によって，TOPPERSプロジェクトに
+ *        報告すること．
+ *  (4) 本ソフトウェアの利用により直接的または間接的に生じるいかなる損
+ *      害からも，上記著作権者およびTOPPERSプロジェクトを免責すること．
+ *      また，本ソフトウェアのユーザまたはエンドユーザからのいかなる理
+ *      由に基づく請求からも，上記著作権者およびTOPPERSプロジェクトを
+ *      免責すること．
+ *
+ *  本ソフトウェアは，無保証で提供されているものである．上記著作権者お
+ *  よびTOPPERSプロジェクトは，本ソフトウェアに関して，特定の使用目的
+ *  に対する適合性も含めて，いかなる保証も行わない．また，本ソフトウェ
+ *  アの利用により直接的または間接的に生じたいかなる損害に関しても，そ
+ *  の責任を負わない．
+ *
+ *  @(#) $Id$
+ */
 /* #[<PREAMBLE>]#
  * #[<...>]# から #[</...>]# で囲まれたコメントは編集しないでください

EcnlProtoTool/trunk/asp3_dcre/tecsgen/tecs/mruby/nMruby_tFloat32Pointer.c

-              r321
+              r429
+/*
+ *   Copyright (C) 2008-2017 by TOPPERS Project
+ *
+ *  上記著作権者は，以下の(1)～(4)の条件を満たす場合に限り，本ソフトウェ
+ *  ア（本ソフトウェアを改変したものを含む．以下同じ）を使用・複製・改
+ *  変・再配布（以下，利用と呼ぶ）することを無償で許諾する．
+ *  (1) 本ソフトウェアをソースコードの形で利用する場合には，上記の著作
+ *      権表示，この利用条件および下記の無保証規定が，そのままの形でソー
+ *      スコード中に含まれていること．
+ *  (2) 本ソフトウェアを，ライブラリ形式など，他のソフトウェア開発に使
+ *      用できる形で再配布する場合には，再配布に伴うドキュメント（利用
+ *      者マニュアルなど）に，上記の著作権表示，この利用条件および下記
+ *      の無保証規定を掲載すること．
+ *  (3) 本ソフトウェアを，機器に組み込むなど，他のソフトウェア開発に使
+ *      用できない形で再配布する場合には，次のいずれかの条件を満たすこ
+ *      と．
+ *    (a) 再配布に伴うドキュメント（利用者マニュアルなど）に，上記の著
+ *        作権表示，この利用条件および下記の無保証規定を掲載すること．
+ *    (b) 再配布の形態を，別に定める方法によって，TOPPERSプロジェクトに
+ *        報告すること．
+ *  (4) 本ソフトウェアの利用により直接的または間接的に生じるいかなる損
+ *      害からも，上記著作権者およびTOPPERSプロジェクトを免責すること．
+ *      また，本ソフトウェアのユーザまたはエンドユーザからのいかなる理
+ *      由に基づく請求からも，上記著作権者およびTOPPERSプロジェクトを
+ *      免責すること．
+ *
+ *  本ソフトウェアは，無保証で提供されているものである．上記著作権者お
+ *  よびTOPPERSプロジェクトは，本ソフトウェアに関して，特定の使用目的
+ *  に対する適合性も含めて，いかなる保証も行わない．また，本ソフトウェ
+ *  アの利用により直接的または間接的に生じたいかなる損害に関しても，そ
+ *   *  の責任を負わない．
+ *
+ *  @(#) $Id$
+ */
 /* #[<PREAMBLE>]#
  * #[<...>]# から #[</...>]# で囲まれたコメントは編集しないでください

EcnlProtoTool/trunk/asp3_dcre/tecsgen/tecs/mruby/nMruby_tInt16Pointer.c

-              r321
+              r429
+/*
+ *   Copyright (C) 2008-2017 by TOPPERS Project
+ *
+ *  上記著作権者は，以下の(1)～(4)の条件を満たす場合に限り，本ソフトウェ
+ *  ア（本ソフトウェアを改変したものを含む．以下同じ）を使用・複製・改
+ *  変・再配布（以下，利用と呼ぶ）することを無償で許諾する．
+ *  (1) 本ソフトウェアをソースコードの形で利用する場合には，上記の著作
+ *      権表示，この利用条件および下記の無保証規定が，そのままの形でソー
+ *      スコード中に含まれていること．
+ *  (2) 本ソフトウェアを，ライブラリ形式など，他のソフトウェア開発に使
+ *      用できる形で再配布する場合には，再配布に伴うドキュメント（利用
+ *      者マニュアルなど）に，上記の著作権表示，この利用条件および下記
+ *      の無保証規定を掲載すること．
+ *  (3) 本ソフトウェアを，機器に組み込むなど，他のソフトウェア開発に使
+ *      用できない形で再配布する場合には，次のいずれかの条件を満たすこ
+ *      と．
+ *    (a) 再配布に伴うドキュメント（利用者マニュアルなど）に，上記の著
+ *        作権表示，この利用条件および下記の無保証規定を掲載すること．
+ *    (b) 再配布の形態を，別に定める方法によって，TOPPERSプロジェクトに
+ *        報告すること．
+ *  (4) 本ソフトウェアの利用により直接的または間接的に生じるいかなる損
+ *      害からも，上記著作権者およびTOPPERSプロジェクトを免責すること．
+ *      また，本ソフトウェアのユーザまたはエンドユーザからのいかなる理
+ *      由に基づく請求からも，上記著作権者およびTOPPERSプロジェクトを
+ *      免責すること．
+ *
+ *  本ソフトウェアは，無保証で提供されているものである．上記著作権者お
+ *  よびTOPPERSプロジェクトは，本ソフトウェアに関して，特定の使用目的
+ *  に対する適合性も含めて，いかなる保証も行わない．また，本ソフトウェ
+ *  アの利用により直接的または間接的に生じたいかなる損害に関しても，そ
+ *  の責任を負わない．
+ *
+ *  @(#) $Id$
+ */
 /* #[<PREAMBLE>]#
  * #[<...>]# から #[</...>]# で囲まれたコメントは編集しないでください

EcnlProtoTool/trunk/asp3_dcre/tecsgen/tecs/mruby/nMruby_tInt32Pointer.c

-              r321
+              r429
+/*
+ *   Copyright (C) 2008-2017 by TOPPERS Project
+ *
+ *  上記著作権者は，以下の(1)～(4)の条件を満たす場合に限り，本ソフトウェ
+ *  ア（本ソフトウェアを改変したものを含む．以下同じ）を使用・複製・改
+ *  変・再配布（以下，利用と呼ぶ）することを無償で許諾する．
+ *  (1) 本ソフトウェアをソースコードの形で利用する場合には，上記の著作
+ *      権表示，この利用条件および下記の無保証規定が，そのままの形でソー
+ *      スコード中に含まれていること．
+ *  (2) 本ソフトウェアを，ライブラリ形式など，他のソフトウェア開発に使
+ *      用できる形で再配布する場合には，再配布に伴うドキュメント（利用
+ *      者マニュアルなど）に，上記の著作権表示，この利用条件および下記
+ *      の無保証規定を掲載すること．
+ *  (3) 本ソフトウェアを，機器に組み込むなど，他のソフトウェア開発に使
+ *      用できない形で再配布する場合には，次のいずれかの条件を満たすこ
+ *      と．
+ *    (a) 再配布に伴うドキュメント（利用者マニュアルなど）に，上記の著
+ *        作権表示，この利用条件および下記の無保証規定を掲載すること．
+ *    (b) 再配布の形態を，別に定める方法によって，TOPPERSプロジェクトに
+ *        報告すること．
+ *  (4) 本ソフトウェアの利用により直接的または間接的に生じるいかなる損
+ *      害からも，上記著作権者およびTOPPERSプロジェクトを免責すること．
+ *      また，本ソフトウェアのユーザまたはエンドユーザからのいかなる理
+ *      由に基づく請求からも，上記著作権者およびTOPPERSプロジェクトを
+ *      免責すること．
+ *
+ *  本ソフトウェアは，無保証で提供されているものである．上記著作権者お
+ *  よびTOPPERSプロジェクトは，本ソフトウェアに関して，特定の使用目的
+ *  に対する適合性も含めて，いかなる保証も行わない．また，本ソフトウェ
+ *  アの利用により直接的または間接的に生じたいかなる損害に関しても，そ
+ *  の責任を負わない．
+ *
+ *  @(#) $Id$
+ */
 /* #[<PREAMBLE>]#
  * #[<...>]# から #[</...>]# で囲まれたコメントは編集しないでください

EcnlProtoTool/trunk/asp3_dcre/tecsgen/tecs/mruby/nMruby_tInt64Pointer.c

-              r321
+              r429
+/*
+ *  Copyright (C) 2012 by Ubiquitous Computing and Networking Laboratory
+ *                Ritsumeikan Univ., JAPAN
+ *  上記著作権者は，以下の(1)～(4)の条件を満たす場合に限り，本ソフトウェ
+ *  ア（本ソフトウェアを改変したものを含む．以下同じ）を使用・複製・改
+ *  変・再配布（以下，利用と呼ぶ）することを無償で許諾する．
+ *  (1) 本ソフトウェアをソースコードの形で利用する場合には，上記の著作
+ *      権表示，この利用条件および下記の無保証規定が，そのままの形でソー
+ *      スコード中に含まれていること．
+ *  (2) 本ソフトウェアを，ライブラリ形式など，他のソフトウェア開発に使
+ *      用できる形で再配布する場合には，再配布に伴うドキュメント（利用
+ *      者マニュアルなど）に，上記の著作権表示，この利用条件および下記
+ *      の無保証規定を掲載すること．
+ *  (3) 本ソフトウェアを，機器に組み込むなど，他のソフトウェア開発に使
+ *      用できない形で再配布する場合には，次のいずれかの条件を満たすこ
+ *      と．
+ *    (a) 再配布に伴うドキュメント（利用者マニュアルなど）に，上記の著
+ *        作権表示，この利用条件および下記の無保証規定を掲載すること．
+ *    (b) 再配布の形態を，別に定める方法によって，TOPPERSプロジェクトに
+ *        報告すること．
+ *  (4) 本ソフトウェアの利用により直接的または間接的に生じるいかなる損
+ *      害からも，上記著作権者およびTOPPERSプロジェクトを免責すること．
+ *      また，本ソフトウェアのユーザまたはエンドユーザからのいかなる理
+ *      由に基づく請求からも，上記著作権者およびTOPPERSプロジェクトを
+ *      免責すること．
+ *
+ *  本ソフトウェアは，無保証で提供されているものである．上記著作権者お
+ *  よびTOPPERSプロジェクトは，本ソフトウェアに関して，特定の使用目的
+ *  に対する適合性も含めて，いかなる保証も行わない．また，本ソフトウェ
+ *  アの利用により直接的または間接的に生じたいかなる損害に関しても，そ
+ *  の責任を負わない．
+ *
+ *  @(#) $Id$
+ */
 /* #[<PREAMBLE>]#
  * #[<...>]# から #[</...>]# で囲まれたコメントは編集しないでください

EcnlProtoTool/trunk/asp3_dcre/tecsgen/tecs/mruby/nMruby_tInt8Pointer.c

-              r321
+              r429
+/*
+ *   Copyright (C) 2008-2017 by TOPPERS Project
+ *
+ *  上記著作権者は，以下の(1)～(4)の条件を満たす場合に限り，本ソフトウェ
+ *  ア（本ソフトウェアを改変したものを含む．以下同じ）を使用・複製・改
+ *  変・再配布（以下，利用と呼ぶ）することを無償で許諾する．
+ *  (1) 本ソフトウェアをソースコードの形で利用する場合には，上記の著作
+ *      権表示，この利用条件および下記の無保証規定が，そのままの形でソー
+ *      スコード中に含まれていること．
+ *  (2) 本ソフトウェアを，ライブラリ形式など，他のソフトウェア開発に使
+ *      用できる形で再配布する場合には，再配布に伴うドキュメント（利用
+ *      者マニュアルなど）に，上記の著作権表示，この利用条件および下記
+ *      の無保証規定を掲載すること．
+ *  (3) 本ソフトウェアを，機器に組み込むなど，他のソフトウェア開発に使
+ *      用できない形で再配布する場合には，次のいずれかの条件を満たすこ
+ *      と．
+ *    (a) 再配布に伴うドキュメント（利用者マニュアルなど）に，上記の著
+ *        作権表示，この利用条件および下記の無保証規定を掲載すること．
+ *    (b) 再配布の形態を，別に定める方法によって，TOPPERSプロジェクトに
+ *        報告すること．
+ *  (4) 本ソフトウェアの利用により直接的または間接的に生じるいかなる損
+ *      害からも，上記著作権者およびTOPPERSプロジェクトを免責すること．
+ *      また，本ソフトウェアのユーザまたはエンドユーザからのいかなる理
+ *      由に基づく請求からも，上記著作権者およびTOPPERSプロジェクトを
+ *      免責すること．
+ *
+ *  本ソフトウェアは，無保証で提供されているものである．上記著作権者お
+ *  よびTOPPERSプロジェクトは，本ソフトウェアに関して，特定の使用目的
+ *  に対する適合性も含めて，いかなる保証も行わない．また，本ソフトウェ
+ *  アの利用により直接的または間接的に生じたいかなる損害に関しても，そ
+ *  の責任を負わない．
+ *
+ *  @(#) $Id$
+ */
 /* #[<PREAMBLE>]#
  * #[<...>]# から #[</...>]# で囲まれたコメントは編集しないでください

EcnlProtoTool/trunk/asp3_dcre/tecsgen/tecs/mruby/nMruby_tIntPointer.c

-              r321
+              r429
+/*
+ *   Copyright (C) 2008-2017 by TOPPERS Project
+ *
+ *  上記著作権者は，以下の(1)～(4)の条件を満たす場合に限り，本ソフトウェ
+ *  ア（本ソフトウェアを改変したものを含む．以下同じ）を使用・複製・改
+ *  変・再配布（以下，利用と呼ぶ）することを無償で許諾する．
+ *  (1) 本ソフトウェアをソースコードの形で利用する場合には，上記の著作
+ *      権表示，この利用条件および下記の無保証規定が，そのままの形でソー
+ *      スコード中に含まれていること．
+ *  (2) 本ソフトウェアを，ライブラリ形式など，他のソフトウェア開発に使
+ *      用できる形で再配布する場合には，再配布に伴うドキュメント（利用
+ *      者マニュアルなど）に，上記の著作権表示，この利用条件および下記
+ *      の無保証規定を掲載すること．
+ *  (3) 本ソフトウェアを，機器に組み込むなど，他のソフトウェア開発に使
+ *      用できない形で再配布する場合には，次のいずれかの条件を満たすこ
+ *      と．
+ *    (a) 再配布に伴うドキュメント（利用者マニュアルなど）に，上記の著
+ *        作権表示，この利用条件および下記の無保証規定を掲載すること．
+ *    (b) 再配布の形態を，別に定める方法によって，TOPPERSプロジェクトに
+ *        報告すること．
+ *  (4) 本ソフトウェアの利用により直接的または間接的に生じるいかなる損
+ *      害からも，上記著作権者およびTOPPERSプロジェクトを免責すること．
+ *      また，本ソフトウェアのユーザまたはエンドユーザからのいかなる理
+ *      由に基づく請求からも，上記著作権者およびTOPPERSプロジェクトを
+ *      免責すること．
+ *
+ *  本ソフトウェアは，無保証で提供されているものである．上記著作権者お
+ *  よびTOPPERSプロジェクトは，本ソフトウェアに関して，特定の使用目的
+ *  に対する適合性も含めて，いかなる保証も行わない．また，本ソフトウェ
+ *  アの利用により直接的または間接的に生じたいかなる損害に関しても，そ
+ *  の責任を負わない．
+ *
+ *  @(#) $Id$
+ */
 /* #[<PREAMBLE>]#
  * #[<...>]# から #[</...>]# で囲まれたコメントは編集しないでください

EcnlProtoTool/trunk/asp3_dcre/tecsgen/tecs/mruby/nMruby_tLongPointer.c

-              r321
+              r429
+/*
+ *   Copyright (C) 2008-2017 by TOPPERS Project
+ *
+ *  上記著作権者は，以下の(1)～(4)の条件を満たす場合に限り，本ソフトウェ
+ *  ア（本ソフトウェアを改変したものを含む．以下同じ）を使用・複製・改
+ *  変・再配布（以下，利用と呼ぶ）することを無償で許諾する．
+ *  (1) 本ソフトウェアをソースコードの形で利用する場合には，上記の著作
+ *      権表示，この利用条件および下記の無保証規定が，そのままの形でソー
+ *      スコード中に含まれていること．
+ *  (2) 本ソフトウェアを，ライブラリ形式など，他のソフトウェア開発に使
+ *      用できる形で再配布する場合には，再配布に伴うドキュメント（利用
+ *      者マニュアルなど）に，上記の著作権表示，この利用条件および下記
+ *      の無保証規定を掲載すること．
+ *  (3) 本ソフトウェアを，機器に組み込むなど，他のソフトウェア開発に使
+ *      用できない形で再配布する場合には，次のいずれかの条件を満たすこ
+ *      と．
+ *    (a) 再配布に伴うドキュメント（利用者マニュアルなど）に，上記の著
+ *        作権表示，この利用条件および下記の無保証規定を掲載すること．
+ *    (b) 再配布の形態を，別に定める方法によって，TOPPERSプロジェクトに
+ *        報告すること．
+ *  (4) 本ソフトウェアの利用により直接的または間接的に生じるいかなる損
+ *      害からも，上記著作権者およびTOPPERSプロジェクトを免責すること．
+ *      また，本ソフトウェアのユーザまたはエンドユーザからのいかなる理
+ *      由に基づく請求からも，上記著作権者およびTOPPERSプロジェクトを
+ *      免責すること．
+ *
+ *  本ソフトウェアは，無保証で提供されているものである．上記著作権者お
+ *  よびTOPPERSプロジェクトは，本ソフトウェアに関して，特定の使用目的
+ *  に対する適合性も含めて，いかなる保証も行わない．また，本ソフトウェ
+ *  アの利用により直接的または間接的に生じたいかなる損害に関しても，そ
+ *  の責任を負わない．
+ *
+ *  @(#) $Id$
+ */
 /* #[<PREAMBLE>]#
  * #[<...>]# から #[</...>]# で囲まれたコメントは編集しないでください

EcnlProtoTool/trunk/asp3_dcre/tecsgen/tecs/mruby/nMruby_tMruby.c

-              r321
+              r429
+/*
+ *   Copyright (C) 2008-2017 by TOPPERS Project
+ *
+ *  上記著作権者は，以下の(1)～(4)の条件を満たす場合に限り，本ソフトウェ
+ *  ア（本ソフトウェアを改変したものを含む．以下同じ）を使用・複製・改
+ *  変・再配布（以下，利用と呼ぶ）することを無償で許諾する．
+ *  (1) 本ソフトウェアをソースコードの形で利用する場合には，上記の著作
+ *      権表示，この利用条件および下記の無保証規定が，そのままの形でソー
+ *      スコード中に含まれていること．
+ *  (2) 本ソフトウェアを，ライブラリ形式など，他のソフトウェア開発に使
+ *      用できる形で再配布する場合には，再配布に伴うドキュメント（利用
+ *      者マニュアルなど）に，上記の著作権表示，この利用条件および下記
+ *      の無保証規定を掲載すること．
+ *  (3) 本ソフトウェアを，機器に組み込むなど，他のソフトウェア開発に使
+ *      用できない形で再配布する場合には，次のいずれかの条件を満たすこ
+ *      と．
+ *    (a) 再配布に伴うドキュメント（利用者マニュアルなど）に，上記の著
+ *        作権表示，この利用条件および下記の無保証規定を掲載すること．
+ *    (b) 再配布の形態を，別に定める方法によって，TOPPERSプロジェクトに
+ *        報告すること．
+ *  (4) 本ソフトウェアの利用により直接的または間接的に生じるいかなる損
+ *      害からも，上記著作権者およびTOPPERSプロジェクトを免責すること．
+ *      また，本ソフトウェアのユーザまたはエンドユーザからのいかなる理
+ *      由に基づく請求からも，上記著作権者およびTOPPERSプロジェクトを
+ *      免責すること．
+ *
+ *  本ソフトウェアは，無保証で提供されているものである．上記著作権者お
+ *  よびTOPPERSプロジェクトは，本ソフトウェアに関して，特定の使用目的
+ *  に対する適合性も含めて，いかなる保証も行わない．また，本ソフトウェ
+ *  アの利用により直接的または間接的に生じたいかなる損害に関しても，そ
+ *  の責任を負わない．
+ *
+ *  @(#) $Id$
+ */
 /* #[<PREAMBLE>]#
  * #[<...>]# から #[</...>]# で囲まれたコメントは編集しないでください

EcnlProtoTool/trunk/asp3_dcre/tecsgen/tecs/mruby/nMruby_tMrubyProc.c

-              r321
+              r429
 /*
+ * This file comes from mruby. (renamed from tools/mruby/mruby.c)
+ * This file is distributed under ruby's license. (not under TOPPERS license)
+ *   see https://github.com/mruby/mruby
+ * A little modification is done to to call initializer registering TECS components.
+ *   Copyright (C) 2008-2017 by TOPPERS Project
+ *
+ * このファイルは、mruby のものです。
+ * mruby のライセンスのもとで、配布されます。(TOPPERS ライセンスではありません)
+ *  参照：  https://github.com/mruby/mruby
+ * TECS コンポーネントを登録する初期化子を呼ぶため、少しの修正がなされています。
+ *  上記著作権者は，以下の(1)～(4)の条件を満たす場合に限り，本ソフトウェ
+ *  ア（本ソフトウェアを改変したものを含む．以下同じ）を使用・複製・改
+ *  変・再配布（以下，利用と呼ぶ）することを無償で許諾する．
+ *  (1) 本ソフトウェアをソースコードの形で利用する場合には，上記の著作
+ *      権表示，この利用条件および下記の無保証規定が，そのままの形でソー
+ *      スコード中に含まれていること．
+ *  (2) 本ソフトウェアを，ライブラリ形式など，他のソフトウェア開発に使
+ *      用できる形で再配布する場合には，再配布に伴うドキュメント（利用
+ *      者マニュアルなど）に，上記の著作権表示，この利用条件および下記
+ *      の無保証規定を掲載すること．
+ *  (3) 本ソフトウェアを，機器に組み込むなど，他のソフトウェア開発に使
+ *      用できない形で再配布する場合には，次のいずれかの条件を満たすこ
+ *      と．
+ *    (a) 再配布に伴うドキュメント（利用者マニュアルなど）に，上記の著
+ *        作権表示，この利用条件および下記の無保証規定を掲載すること．
+ *    (b) 再配布の形態を，別に定める方法によって，TOPPERSプロジェクトに
+ *        報告すること．
+ *  (4) 本ソフトウェアの利用により直接的または間接的に生じるいかなる損
+ *      害からも，上記著作権者およびTOPPERSプロジェクトを免責すること．
+ *      また，本ソフトウェアのユーザまたはエンドユーザからのいかなる理
+ *      由に基づく請求からも，上記著作権者およびTOPPERSプロジェクトを
+ *      免責すること．
+ *
+ *  本ソフトウェアは，無保証で提供されているものである．上記著作権者お
+ *  よびTOPPERSプロジェクトは，本ソフトウェアに関して，特定の使用目的
+ *  に対する適合性も含めて，いかなる保証も行わない．また，本ソフトウェ
+ *  アの利用により直接的または間接的に生じたいかなる損害に関しても，そ
+ *  の責任を負わない．
+ *
+ *  @(#) $Id$
  */
+#include "nMruby_tMrubyProc_tecsgen.h"
+/*
+ * 以前の nMruby_tMrubyProc.c は、mruby の本体に含まれていた
+ *    mrbgems/mruby-bin-mruby/tools/mruby/mruby.c
+ * をベースに TECS のコードを足していたが、TOPPERS ライセンスと異なるため
+ * 新たに書き下ろした。（小さなコードのため、概ね似たようなものになるが。
+ */
 #include <stdio.h>
 …
 #include <string.h>
 #include "mruby.h"
+#include "mruby/string.h"
 #include "mruby/array.h"
 #include "mruby/compile.h"
 …
 #include "mruby/variable.h"
+#ifndef ENABLE_STDIO
+static void
+p(mrb_state *mrb, mrb_value obj)
+{
+  obj = mrb_funcall(mrb, obj, "inspect", 0);
+  fwrite(RSTRING_PTR(obj), RSTRING_LEN(obj), 1, stdout);
+  putc('\n', stdout);
+}
+#else
+#define p(mrb,obj) mrb_p(mrb,obj)
+/* #[<PREAMBLE>]#
+ * Don't edit the comments between #[<...>]# and #[</...>]#
+ * These comment are used by tecsmerege when merging.
+ *
+ * attr access macro #_CAAM_#
+ * mrb              mrb_state*       VAR_mrb
+ *
+ * call port function #_TCPF_#
+ * call port: cInit signature: nMruby_sInitializeBridge context:task optional:true
+ *   bool_t     is_cInit_joined()                     check if joined
+ *   void           cInit_initializeBridge( const mrb_state* mrb );
+ *
+ * #[</PREAMBLE>]# */
+/* プロトタイプ宣言や変数の定義をここに書きます #_PAC_# */
+#include "nMruby_tMrubyProc_tecsgen.h"
+#ifndef E_OK
+#define E_OK    0               /* success */
+#define E_ID    (-18)   /* illegal ID */
 #endif
+void mrb_show_version(mrb_state *);
+void mrb_show_copyright(mrb_state *);
+/* 受け口関数 #_TEPF_# */
+/* #[<ENTRY_PORT>]# eMain
+ * entry port: eMain
+ * signature:  nPosix_sMain
+ * context:    task
+ * #[</ENTRY_PORT>]# */
+struct _args {
+  FILE *rfp;
+  char* cmdline;
+  mrb_bool fname        : 1;
+  mrb_bool mrbfile      : 1;
+  mrb_bool check_syntax : 1;
+  mrb_bool verbose      : 1;
+  int argc;
+  char** argv;
+};
+/* #[<ENTRY_FUNC>]# eMain_main
+ * name:         eMain_main
+ * global_name:  nMruby_tMrubyProc_eMain_main
+ * oneway:       false
+ * #[</ENTRY_FUNC>]# */
+int
+eMain_main(CELLIDX idx, int argc, const char** argv)
+{
+        CELLCB  *p_cellcb;
+  mrb_state *mrb;
+  mrbc_context* context;
+  if (VALID_IDX(idx)) {
+                p_cellcb = GET_CELLCB(idx);
+        }
+        else {
+                /* エラー処理コードをここに記述します */
+      return -1;
+        } /* end if VALID_IDX(idx) */
+static void
+usage(const char *name)
+{
   static const char *const usage_msg[] = {
   "switches:",
   "-b           load and execute RiteBinary (mrb) file",
   "-c           check syntax only",
   "-e 'command' one line of script",
   "-v           print version number, then run in verbose mode",
   "--verbose    run in verbose mode",
   "--version    print the version",
   "--copyright  print the copyright",
   NULL
   };
   const char *const *p = usage_msg;
+        /* ここに処理本体を記述します #_TEFB_# */
+  if (argc != 2) {
+      printf("usage: %s script.rb\n", argv[0]);
+      goto error_return;
+  }
+  mrb = mrb_open();
+  if( mrb == 0 ){
+      printf("%s: mrb_open() failed\n", argv[0]);
+      goto error_return;
+  }
+  context = mrbc_context_new(mrb);
+  if (context == 0) {
+      printf("%s: mrbc_context_new() failed\n", argv[0]);
+      goto error_close;
+  }
+  printf("Usage: %s [switches] programfile\n", name);
+  while (*p)
+    printf("  %s\n", *p++);
+  /*--------   ARGV   ----------*/
+  {
+      mrb_value ARGV = mrb_ary_new_capa(mrb, argc);
+      int  i;
+      for (i = 0; i < argc; i++) {
+          mrb_ary_push(mrb, ARGV, mrb_str_new_cstr(mrb, argv[i]));
+      }
+      mrb_define_global_const(mrb, "ARGV", ARGV);
+  }
+  /*--------   $0   ----------*/
+  {
+      mrb_sym zero_sym = mrb_intern_lit(mrb, "$0");
+      mrbc_filename(mrb, context, argv[0]);
+      mrb_gv_set(mrb, zero_sym, mrb_str_new_cstr(mrb, argv[0]));
+  }
+  /* ------- register TECS bridge classes -------*/
+  if (is_cInit_joined()) {
+      cInit_initializeBridge(mrb);
+  }
+  /*--------  load .rb file -------*/
+  {
+      FILE *file = fopen(argv[1], "r");
+      if (file == NULL) {
+          printf("file not found: %s\n", argv[1]);
+          goto error_free;
+      }
+      mrb_value val = mrb_load_file_cxt(mrb, file, context);
+      if (mrb->exc) {
+          if(! mrb_undef_p(val)){
+              mrb_print_error(mrb);
+          }
+      }
+  }
+  /*---------- success case --------*/
+  mrbc_context_free(mrb, context);
+  mrb_close( mrb );
+  return 0;
+  /*---------- error case ----------*/
+error_free:
+  mrbc_context_free(mrb, context);
+error_close:
+  mrb_close( mrb );
+error_return:
+  return -1;
+}
+static int
+parse_args(mrb_state *mrb, int argc, char **argv, struct _args *args)
+{
+  char **origargv = argv;
+  static const struct _args args_zero = { 0 };
+  *args = args_zero;
+  for (argc--,argv++; argc > 0; argc--,argv++) {
+    char *item;
+    if (argv[0][0] != '-') break;
+    if (strlen(*argv) <= 1) {
+      argc--; argv++;
+      args->rfp = stdin;
+      break;
+    }
+    item = argv[0] + 1;
+    switch (*item++) {
+    case 'b':
+      args->mrbfile = TRUE;
+      break;
+    case 'c':
+      args->check_syntax = TRUE;
+      break;
+    case 'e':
+      if (item[0]) {
+        goto append_cmdline;
+      }
+      else if (argc > 1) {
+        argc--; argv++;
+        item = argv[0];
+append_cmdline:
+        if (!args->cmdline) {
+          size_t buflen;
+          char *buf;
+          buflen = strlen(item) + 1;
+          buf = (char *)mrb_malloc(mrb, buflen);
+          memcpy(buf, item, buflen);
+          args->cmdline = buf;
+        }
+        else {
+          size_t cmdlinelen;
+          size_t itemlen;
+          cmdlinelen = strlen(args->cmdline);
+          itemlen = strlen(item);
+          args->cmdline =
+            (char *)mrb_realloc(mrb, args->cmdline, cmdlinelen + itemlen + 2);
+          args->cmdline[cmdlinelen] = '\n';
+          memcpy(args->cmdline + cmdlinelen + 1, item, itemlen + 1);
+        }
+      }
+      else {
+        printf("%s: No code specified for -e\n", *origargv);
+        return EXIT_SUCCESS;
+      }
+      break;
+    case 'v':
+      if (!args->verbose) mrb_show_version(mrb);
+      args->verbose = TRUE;
+      break;
+    case '-':
+      if (strcmp((*argv) + 2, "version") == 0) {
+        mrb_show_version(mrb);
+        exit(EXIT_SUCCESS);
+      }
+      else if (strcmp((*argv) + 2, "verbose") == 0) {
+        args->verbose = TRUE;
+        break;
+      }
+      else if (strcmp((*argv) + 2, "copyright") == 0) {
+        mrb_show_copyright(mrb);
+        exit(EXIT_SUCCESS);
+      }
+    default:
+      return EXIT_FAILURE;
+    }
+  }
+  if (args->rfp == NULL && args->cmdline == NULL) {
+    if (*argv == NULL) args->rfp = stdin;
+    else {
+      args->rfp = fopen(argv[0], args->mrbfile ? "rb" : "r");
+      if (args->rfp == NULL) {
+        printf("%s: Cannot open program file. (%s)\n", *origargv, *argv);
+        return EXIT_FAILURE;
+      }
+      args->fname = TRUE;
+      args->cmdline = argv[0];
+      argc--; argv++;
+    }
+  }
+  args->argv = (char **)mrb_realloc(mrb, args->argv, sizeof(char*) * (argc + 1));
+  memcpy(args->argv, argv, (argc+1) * sizeof(char*));
+  args->argc = argc;
+  return EXIT_SUCCESS;
+}
+static void
+cleanup(mrb_state *mrb, struct _args *args)
+{
+  if (args->rfp && args->rfp != stdin)
+    fclose(args->rfp);
+  if (args->cmdline && !args->fname)
+    mrb_free(mrb, args->cmdline);
+  if (args->argv)
+    mrb_free(mrb, args->argv);
+  mrb_close(mrb);
+}
+int
+// main(int argc, char **argv)
+eMain_main( CELLIDX idx, int argc, const char **argv)
+{
+  CELLCB   *p_cellcb = GET_CELLCB( idx );
+  mrb_state *mrb = mrb_open();
+  int n = -1;
+  int i;
+  struct _args args;
+  mrb_value ARGV;
+  mrbc_context *c;
+  mrb_value v;
+  mrb_sym zero_sym;
+  cInit_initializeBridge( mrb );    // TECS
+  if (mrb == NULL) {
+    fputs("Invalid mrb_state, exiting mruby\n", stderr);
+    return EXIT_FAILURE;
+  }
+  n = parse_args(mrb, argc, (char **)argv, &args);
+  if (n == EXIT_FAILURE || (args.cmdline == NULL && args.rfp == NULL)) {
+    cleanup(mrb, &args);
+    usage(argv[0]);
+    return n;
+  }
+  ARGV = mrb_ary_new_capa(mrb, args.argc);
+  for (i = 0; i < args.argc; i++) {
+    mrb_ary_push(mrb, ARGV, mrb_str_new_cstr(mrb, args.argv[i]));
+  }
+  mrb_define_global_const(mrb, "ARGV", ARGV);
+  c = mrbc_context_new(mrb);
+  if (args.verbose)
+    c->dump_result = TRUE;
+  if (args.check_syntax)
+    c->no_exec = TRUE;
+  /* Set $0 */
+  zero_sym = mrb_intern_lit(mrb, "$0");
+  if (args.rfp) {
+    char *cmdline;
+    cmdline = args.cmdline ? args.cmdline : "-";
+    mrbc_filename(mrb, c, cmdline);
+    mrb_gv_set(mrb, zero_sym, mrb_str_new_cstr(mrb, cmdline));
+  }
+  else {
+    mrbc_filename(mrb, c, "-e");
+    mrb_gv_set(mrb, zero_sym, mrb_str_new_lit(mrb, "-e"));
+  }
+  /* Load program */
+  if (args.mrbfile) {
+    v = mrb_load_irep_file_cxt(mrb, args.rfp, c);
+  }
+  else if (args.rfp) {
+    v = mrb_load_file_cxt(mrb, args.rfp, c);
+  }
+  else {
+    v = mrb_load_string_cxt(mrb, args.cmdline, c);
+  }
+  mrbc_context_free(mrb, c);
+  if (mrb->exc) {
+    if (!mrb_undef_p(v)) {
+      mrb_print_error(mrb);
+    }
+    n = -1;
+  }
+  else if (args.check_syntax) {
+    printf("Syntax OK\n");
+  }
+  cleanup(mrb, &args);
+  return n == 0 ? EXIT_SUCCESS : EXIT_FAILURE;
+}
+/* #[<POSTAMBLE>]#
+ *   Put non-entry functions below.
+ * #[</POSTAMBLE>]#*/

EcnlProtoTool/trunk/asp3_dcre/tecsgen/tecs/mruby/nMruby_tSCharPointer.c

-              r321
+              r429
+/*
+ *  Copyright (C) 2008-2017 by TOPPERS Project
+ *
+ *  上記著作権者は，以下の(1)～(4)の条件を満たす場合に限り，本ソフトウェ
+ *  ア（本ソフトウェアを改変したものを含む．以下同じ）を使用・複製・改
+ *  変・再配布（以下，利用と呼ぶ）することを無償で許諾する．
+ *  (1) 本ソフトウェアをソースコードの形で利用する場合には，上記の著作
+ *      権表示，この利用条件および下記の無保証規定が，そのままの形でソー
+ *      スコード中に含まれていること．
+ *  (2) 本ソフトウェアを，ライブラリ形式など，他のソフトウェア開発に使
+ *      用できる形で再配布する場合には，再配布に伴うドキュメント（利用
+ *      者マニュアルなど）に，上記の著作権表示，この利用条件および下記
+ *      の無保証規定を掲載すること．
+ *  (3) 本ソフトウェアを，機器に組み込むなど，他のソフトウェア開発に使
+ *      用できない形で再配布する場合には，次のいずれかの条件を満たすこ
+ *      と．
+ *    (a) 再配布に伴うドキュメント（利用者マニュアルなど）に，上記の著
+ *        作権表示，この利用条件および下記の無保証規定を掲載すること．
+ *    (b) 再配布の形態を，別に定める方法によって，TOPPERSプロジェクトに
+ *        報告すること．
+ *  (4) 本ソフトウェアの利用により直接的または間接的に生じるいかなる損
+ *      害からも，上記著作権者およびTOPPERSプロジェクトを免責すること．
+ *      また，本ソフトウェアのユーザまたはエンドユーザからのいかなる理
+ *      由に基づく請求からも，上記著作権者およびTOPPERSプロジェクトを
+ *      免責すること．
+ *
+ *  本ソフトウェアは，無保証で提供されているものである．上記著作権者お
+ *  よびTOPPERSプロジェクトは，本ソフトウェアに関して，特定の使用目的
+ *  に対する適合性も含めて，いかなる保証も行わない．また，本ソフトウェ
+ *  アの利用により直接的または間接的に生じたいかなる損害に関しても，そ
+ *  の責任を負わない．
+ *
+ *  @(#) $Id$
+ */
 /* #[<PREAMBLE>]#
  * #[<...>]# から #[</...>]# で囲まれたコメントは編集しないでください

EcnlProtoTool/trunk/asp3_dcre/tecsgen/tecs/mruby/nMruby_tShortPointer.c

-              r321
+              r429
+/*
+ *  Copyright (C) 2008-2017 by TOPPERS Project
+ *
+ *  上記著作権者は，以下の(1)～(4)の条件を満たす場合に限り，本ソフトウェ
+ *  ア（本ソフトウェアを改変したものを含む．以下同じ）を使用・複製・改
+ *  変・再配布（以下，利用と呼ぶ）することを無償で許諾する．
+ *  (1) 本ソフトウェアをソースコードの形で利用する場合には，上記の著作
+ *      権表示，この利用条件および下記の無保証規定が，そのままの形でソー
+ *      スコード中に含まれていること．
+ *  (2) 本ソフトウェアを，ライブラリ形式など，他のソフトウェア開発に使
+ *      用できる形で再配布する場合には，再配布に伴うドキュメント（利用
+ *      者マニュアルなど）に，上記の著作権表示，この利用条件および下記
+ *      の無保証規定を掲載すること．
+ *  (3) 本ソフトウェアを，機器に組み込むなど，他のソフトウェア開発に使
+ *      用できない形で再配布する場合には，次のいずれかの条件を満たすこ
+ *      と．
+ *    (a) 再配布に伴うドキュメント（利用者マニュアルなど）に，上記の著
+ *        作権表示，この利用条件および下記の無保証規定を掲載すること．
+ *    (b) 再配布の形態を，別に定める方法によって，TOPPERSプロジェクトに
+ *        報告すること．
+ *  (4) 本ソフトウェアの利用により直接的または間接的に生じるいかなる損
+ *      害からも，上記著作権者およびTOPPERSプロジェクトを免責すること．
+ *      また，本ソフトウェアのユーザまたはエンドユーザからのいかなる理
+ *      由に基づく請求からも，上記著作権者およびTOPPERSプロジェクトを
+ *      免責すること．
+ *
+ *  本ソフトウェアは，無保証で提供されているものである．上記著作権者お
+ *  よびTOPPERSプロジェクトは，本ソフトウェアに関して，特定の使用目的
+ *  に対する適合性も含めて，いかなる保証も行わない．また，本ソフトウェ
+ *  アの利用により直接的または間接的に生じたいかなる損害に関しても，そ
+ *  の責任を負わない．
+ *
+ *  @(#) $Id$
+ */
 /* #[<PREAMBLE>]#
  * #[<...>]# から #[</...>]# で囲まれたコメントは編集しないでください

EcnlProtoTool/trunk/asp3_dcre/tecsgen/tecs/mruby/nMruby_tTECSInitializer.c

-              r321
+              r429
+/*
+ *  Copyright (C) 2008-2017 by TOPPERS Project
+ *
+ *  上記著作権者は，以下の(1)～(4)の条件を満たす場合に限り，本ソフトウェ
+ *  ア（本ソフトウェアを改変したものを含む．以下同じ）を使用・複製・改
+ *  変・再配布（以下，利用と呼ぶ）することを無償で許諾する．
+ *  (1) 本ソフトウェアをソースコードの形で利用する場合には，上記の著作
+ *      権表示，この利用条件および下記の無保証規定が，そのままの形でソー
+ *      スコード中に含まれていること．
+ *  (2) 本ソフトウェアを，ライブラリ形式など，他のソフトウェア開発に使
+ *      用できる形で再配布する場合には，再配布に伴うドキュメント（利用
+ *      者マニュアルなど）に，上記の著作権表示，この利用条件および下記
+ *      の無保証規定を掲載すること．
+ *  (3) 本ソフトウェアを，機器に組み込むなど，他のソフトウェア開発に使
+ *      用できない形で再配布する場合には，次のいずれかの条件を満たすこ
+ *      と．
+ *    (a) 再配布に伴うドキュメント（利用者マニュアルなど）に，上記の著
+ *        作権表示，この利用条件および下記の無保証規定を掲載すること．
+ *    (b) 再配布の形態を，別に定める方法によって，TOPPERSプロジェクトに
+ *        報告すること．
+ *  (4) 本ソフトウェアの利用により直接的または間接的に生じるいかなる損
+ *      害からも，上記著作権者およびTOPPERSプロジェクトを免責すること．
+ *      また，本ソフトウェアのユーザまたはエンドユーザからのいかなる理
+ *      由に基づく請求からも，上記著作権者およびTOPPERSプロジェクトを
+ *      免責すること．
+ *
+ *  本ソフトウェアは，無保証で提供されているものである．上記著作権者お
+ *  よびTOPPERSプロジェクトは，本ソフトウェアに関して，特定の使用目的
+ *  に対する適合性も含めて，いかなる保証も行わない．また，本ソフトウェ
+ *  アの利用により直接的または間接的に生じたいかなる損害に関しても，そ
+ *  の責任を負わない．
+ *
+ *  @(#) $Id$
+ */
 /* #[<PREAMBLE>]#
  * #[<...>]# から #[</...>]# で囲まれたコメントは編集しないでください

EcnlProtoTool/trunk/asp3_dcre/tecsgen/tecs/mruby/nMruby_tUCharPointer.c

-              r321
+              r429
+/*
+ *  Copyright (C) 2008-2017 by TOPPERS Project
+ *
+ *  上記著作権者は，以下の(1)～(4)の条件を満たす場合に限り，本ソフトウェ
+ *  ア（本ソフトウェアを改変したものを含む．以下同じ）を使用・複製・改
+ *  変・再配布（以下，利用と呼ぶ）することを無償で許諾する．
+ *  (1) 本ソフトウェアをソースコードの形で利用する場合には，上記の著作
+ *      権表示，この利用条件および下記の無保証規定が，そのままの形でソー
+ *      スコード中に含まれていること．
+ *  (2) 本ソフトウェアを，ライブラリ形式など，他のソフトウェア開発に使
+ *      用できる形で再配布する場合には，再配布に伴うドキュメント（利用
+ *      者マニュアルなど）に，上記の著作権表示，この利用条件および下記
+ *      の無保証規定を掲載すること．
+ *  (3) 本ソフトウェアを，機器に組み込むなど，他のソフトウェア開発に使
+ *      用できない形で再配布する場合には，次のいずれかの条件を満たすこ
+ *      と．
+ *    (a) 再配布に伴うドキュメント（利用者マニュアルなど）に，上記の著
+ *        作権表示，この利用条件および下記の無保証規定を掲載すること．
+ *    (b) 再配布の形態を，別に定める方法によって，TOPPERSプロジェクトに
+ *        報告すること．
+ *  (4) 本ソフトウェアの利用により直接的または間接的に生じるいかなる損
+ *      害からも，上記著作権者およびTOPPERSプロジェクトを免責すること．
+ *      また，本ソフトウェアのユーザまたはエンドユーザからのいかなる理
+ *      由に基づく請求からも，上記著作権者およびTOPPERSプロジェクトを
+ *      免責すること．
+ *
+ *  本ソフトウェアは，無保証で提供されているものである．上記著作権者お
+ *  よびTOPPERSプロジェクトは，本ソフトウェアに関して，特定の使用目的
+ *  に対する適合性も含めて，いかなる保証も行わない．また，本ソフトウェ
+ *  アの利用により直接的または間接的に生じたいかなる損害に関しても，そ
+ *  の責任を負わない．
+ *
+ *  @(#) $Id$
+ */
 /* #[<PREAMBLE>]#
  * #[<...>]# から #[</...>]# で囲まれたコメントは編集しないでください

EcnlProtoTool/trunk/asp3_dcre/tecsgen/tecs/mruby/nMruby_tUInt16Pointer.c

-              r321
+              r429
+/*
+ *  Copyright (C) 2008-2017 by TOPPERS Project
+ *
+ *  上記著作権者は，以下の(1)～(4)の条件を満たす場合に限り，本ソフトウェ
+ *  ア（本ソフトウェアを改変したものを含む．以下同じ）を使用・複製・改
+ *  変・再配布（以下，利用と呼ぶ）することを無償で許諾する．
+ *  (1) 本ソフトウェアをソースコードの形で利用する場合には，上記の著作
+ *      権表示，この利用条件および下記の無保証規定が，そのままの形でソー
+ *      スコード中に含まれていること．
+ *  (2) 本ソフトウェアを，ライブラリ形式など，他のソフトウェア開発に使
+ *      用できる形で再配布する場合には，再配布に伴うドキュメント（利用
+ *      者マニュアルなど）に，上記の著作権表示，この利用条件および下記
+ *      の無保証規定を掲載すること．
+ *  (3) 本ソフトウェアを，機器に組み込むなど，他のソフトウェア開発に使
+ *      用できない形で再配布する場合には，次のいずれかの条件を満たすこ
+ *      と．
+ *    (a) 再配布に伴うドキュメント（利用者マニュアルなど）に，上記の著
+ *        作権表示，この利用条件および下記の無保証規定を掲載すること．
+ *    (b) 再配布の形態を，別に定める方法によって，TOPPERSプロジェクトに
+ *        報告すること．
+ *  (4) 本ソフトウェアの利用により直接的または間接的に生じるいかなる損
+ *      害からも，上記著作権者およびTOPPERSプロジェクトを免責すること．
+ *      また，本ソフトウェアのユーザまたはエンドユーザからのいかなる理
+ *      由に基づく請求からも，上記著作権者およびTOPPERSプロジェクトを
+ *      免責すること．
+ *
+ *  本ソフトウェアは，無保証で提供されているものである．上記著作権者お
+ *  よびTOPPERSプロジェクトは，本ソフトウェアに関して，特定の使用目的
+ *  に対する適合性も含めて，いかなる保証も行わない．また，本ソフトウェ
+ *  アの利用により直接的または間接的に生じたいかなる損害に関しても，そ
+ *  の責任を負わない．
+ *
+ *  @(#) $Id$
+ */
 /* #[<PREAMBLE>]#
  * #[<...>]# から #[</...>]# で囲まれたコメントは編集しないでください

EcnlProtoTool/trunk/asp3_dcre/tecsgen/tecs/mruby/nMruby_tUInt32Pointer.c

-              r321
+              r429
+/*
+ *  Copyright (C) 2008-2017 by TOPPERS Project
+ *
+ *  上記著作権者は，以下の(1)～(4)の条件を満たす場合に限り，本ソフトウェ
+ *  ア（本ソフトウェアを改変したものを含む．以下同じ）を使用・複製・改
+ *  変・再配布（以下，利用と呼ぶ）することを無償で許諾する．
+ *  (1) 本ソフトウェアをソースコードの形で利用する場合には，上記の著作
+ *      権表示，この利用条件および下記の無保証規定が，そのままの形でソー
+ *      スコード中に含まれていること．
+ *  (2) 本ソフトウェアを，ライブラリ形式など，他のソフトウェア開発に使
+ *      用できる形で再配布する場合には，再配布に伴うドキュメント（利用
+ *      者マニュアルなど）に，上記の著作権表示，この利用条件および下記
+ *      の無保証規定を掲載すること．
+ *  (3) 本ソフトウェアを，機器に組み込むなど，他のソフトウェア開発に使
+ *      用できない形で再配布する場合には，次のいずれかの条件を満たすこ
+ *      と．
+ *    (a) 再配布に伴うドキュメント（利用者マニュアルなど）に，上記の著
+ *        作権表示，この利用条件および下記の無保証規定を掲載すること．
+ *    (b) 再配布の形態を，別に定める方法によって，TOPPERSプロジェクトに
+ *        報告すること．
+ *  (4) 本ソフトウェアの利用により直接的または間接的に生じるいかなる損
+ *      害からも，上記著作権者およびTOPPERSプロジェクトを免責すること．
+ *      また，本ソフトウェアのユーザまたはエンドユーザからのいかなる理
+ *      由に基づく請求からも，上記著作権者およびTOPPERSプロジェクトを
+ *      免責すること．
+ *
+ *  本ソフトウェアは，無保証で提供されているものである．上記著作権者お
+ *  よびTOPPERSプロジェクトは，本ソフトウェアに関して，特定の使用目的
+ *  に対する適合性も含めて，いかなる保証も行わない．また，本ソフトウェ
+ *  アの利用により直接的または間接的に生じたいかなる損害に関しても，そ
+ *  の責任を負わない．
+ *
+ *  @(#) $Id$
+ */
 /* #[<PREAMBLE>]#
  * #[<...>]# から #[</...>]# で囲まれたコメントは編集しないでください

EcnlProtoTool/trunk/asp3_dcre/tecsgen/tecs/mruby/nMruby_tUInt64Pointer.c

-              r321
+              r429
+/*
+ *  Copyright (C) 2008-2017 by TOPPERS Project
+ *
+ *  上記著作権者は，以下の(1)～(4)の条件を満たす場合に限り，本ソフトウェ
+ *  ア（本ソフトウェアを改変したものを含む．以下同じ）を使用・複製・改
+ *  変・再配布（以下，利用と呼ぶ）することを無償で許諾する．
+ *  (1) 本ソフトウェアをソースコードの形で利用する場合には，上記の著作
+ *      権表示，この利用条件および下記の無保証規定が，そのままの形でソー
+ *      スコード中に含まれていること．
+ *  (2) 本ソフトウェアを，ライブラリ形式など，他のソフトウェア開発に使
+ *      用できる形で再配布する場合には，再配布に伴うドキュメント（利用
+ *      者マニュアルなど）に，上記の著作権表示，この利用条件および下記
+ *      の無保証規定を掲載すること．
+ *  (3) 本ソフトウェアを，機器に組み込むなど，他のソフトウェア開発に使
+ *      用できない形で再配布する場合には，次のいずれかの条件を満たすこ
+ *      と．
+ *    (a) 再配布に伴うドキュメント（利用者マニュアルなど）に，上記の著
+ *        作権表示，この利用条件および下記の無保証規定を掲載すること．
+ *    (b) 再配布の形態を，別に定める方法によって，TOPPERSプロジェクトに
+ *        報告すること．
+ *  (4) 本ソフトウェアの利用により直接的または間接的に生じるいかなる損
+ *      害からも，上記著作権者およびTOPPERSプロジェクトを免責すること．
+ *      また，本ソフトウェアのユーザまたはエンドユーザからのいかなる理
+ *      由に基づく請求からも，上記著作権者およびTOPPERSプロジェクトを
+ *      免責すること．
+ *
+ *  本ソフトウェアは，無保証で提供されているものである．上記著作権者お
+ *  よびTOPPERSプロジェクトは，本ソフトウェアに関して，特定の使用目的
+ *  に対する適合性も含めて，いかなる保証も行わない．また，本ソフトウェ
+ *  アの利用により直接的または間接的に生じたいかなる損害に関しても，そ
+ *  の責任を負わない．
+ *
+ *  @(#) $Id$
+ */
 /* #[<PREAMBLE>]#
  * #[<...>]# から #[</...>]# で囲まれたコメントは編集しないでください

EcnlProtoTool/trunk/asp3_dcre/tecsgen/tecs/mruby/nMruby_tUInt8Pointer.c

-              r321
+              r429
+/*
+ *  Copyright (C) 2008-2017 by TOPPERS Project
+ *
+ *  上記著作権者は，以下の(1)～(4)の条件を満たす場合に限り，本ソフトウェ
+ *  ア（本ソフトウェアを改変したものを含む．以下同じ）を使用・複製・改
+ *  変・再配布（以下，利用と呼ぶ）することを無償で許諾する．
+ *  (1) 本ソフトウェアをソースコードの形で利用する場合には，上記の著作
+ *      権表示，この利用条件および下記の無保証規定が，そのままの形でソー
+ *      スコード中に含まれていること．
+ *  (2) 本ソフトウェアを，ライブラリ形式など，他のソフトウェア開発に使
+ *      用できる形で再配布する場合には，再配布に伴うドキュメント（利用
+ *      者マニュアルなど）に，上記の著作権表示，この利用条件および下記
+ *      の無保証規定を掲載すること．
+ *  (3) 本ソフトウェアを，機器に組み込むなど，他のソフトウェア開発に使
+ *      用できない形で再配布する場合には，次のいずれかの条件を満たすこ
+ *      と．
+ *    (a) 再配布に伴うドキュメント（利用者マニュアルなど）に，上記の著
+ *        作権表示，この利用条件および下記の無保証規定を掲載すること．
+ *    (b) 再配布の形態を，別に定める方法によって，TOPPERSプロジェクトに
+ *        報告すること．
+ *  (4) 本ソフトウェアの利用により直接的または間接的に生じるいかなる損
+ *      害からも，上記著作権者およびTOPPERSプロジェクトを免責すること．
+ *      また，本ソフトウェアのユーザまたはエンドユーザからのいかなる理
+ *      由に基づく請求からも，上記著作権者およびTOPPERSプロジェクトを
+ *      免責すること．
+ *
+ *  本ソフトウェアは，無保証で提供されているものである．上記著作権者お
+ *  よびTOPPERSプロジェクトは，本ソフトウェアに関して，特定の使用目的
+ *  に対する適合性も含めて，いかなる保証も行わない．また，本ソフトウェ
+ *  アの利用により直接的または間接的に生じたいかなる損害に関しても，そ
+ *  の責任を負わない．
+ *
+ *  @(#) $Id$
+ */
 /* #[<PREAMBLE>]#
  * #[<...>]# から #[</...>]# で囲まれたコメントは編集しないでください

EcnlProtoTool/trunk/asp3_dcre/tecsgen/tecs/mruby/nMruby_tUIntPointer.c

-              r321
+              r429
+/*
+ *  Copyright (C) 2008-2017 by TOPPERS Project
+ *
+ *  上記著作権者は，以下の(1)～(4)の条件を満たす場合に限り，本ソフトウェ
+ *  ア（本ソフトウェアを改変したものを含む．以下同じ）を使用・複製・改
+ *  変・再配布（以下，利用と呼ぶ）することを無償で許諾する．
+ *  (1) 本ソフトウェアをソースコードの形で利用する場合には，上記の著作
+ *      権表示，この利用条件および下記の無保証規定が，そのままの形でソー
+ *      スコード中に含まれていること．
+ *  (2) 本ソフトウェアを，ライブラリ形式など，他のソフトウェア開発に使
+ *      用できる形で再配布する場合には，再配布に伴うドキュメント（利用
+ *      者マニュアルなど）に，上記の著作権表示，この利用条件および下記
+ *      の無保証規定を掲載すること．
+ *  (3) 本ソフトウェアを，機器に組み込むなど，他のソフトウェア開発に使
+ *      用できない形で再配布する場合には，次のいずれかの条件を満たすこ
+ *      と．
+ *    (a) 再配布に伴うドキュメント（利用者マニュアルなど）に，上記の著
+ *        作権表示，この利用条件および下記の無保証規定を掲載すること．
+ *    (b) 再配布の形態を，別に定める方法によって，TOPPERSプロジェクトに
+ *        報告すること．
+ *  (4) 本ソフトウェアの利用により直接的または間接的に生じるいかなる損
+ *      害からも，上記著作権者およびTOPPERSプロジェクトを免責すること．
+ *      また，本ソフトウェアのユーザまたはエンドユーザからのいかなる理
+ *      由に基づく請求からも，上記著作権者およびTOPPERSプロジェクトを
+ *      免責すること．
+ *
+ *  本ソフトウェアは，無保証で提供されているものである．上記著作権者お
+ *  よびTOPPERSプロジェクトは，本ソフトウェアに関して，特定の使用目的
+ *  に対する適合性も含めて，いかなる保証も行わない．また，本ソフトウェ
+ *  アの利用により直接的または間接的に生じたいかなる損害に関しても，そ
+ *  の責任を負わない．
+ *
+ *  @(#) $Id$
+ */
 /* #[<PREAMBLE>]#
  * #[<...>]# から #[</...>]# で囲まれたコメントは編集しないでください

EcnlProtoTool/trunk/asp3_dcre/tecsgen/tecs/mruby/nMruby_tULongPointer.c

-              r321
+              r429
+/*
+ *  Copyright (C) 2008-2017 by TOPPERS Project
+ *
+ *  上記著作権者は，以下の(1)～(4)の条件を満たす場合に限り，本ソフトウェ
+ *  ア（本ソフトウェアを改変したものを含む．以下同じ）を使用・複製・改
+ *  変・再配布（以下，利用と呼ぶ）することを無償で許諾する．
+ *  (1) 本ソフトウェアをソースコードの形で利用する場合には，上記の著作
+ *      権表示，この利用条件および下記の無保証規定が，そのままの形でソー
+ *      スコード中に含まれていること．
+ *  (2) 本ソフトウェアを，ライブラリ形式など，他のソフトウェア開発に使
+ *      用できる形で再配布する場合には，再配布に伴うドキュメント（利用
+ *      者マニュアルなど）に，上記の著作権表示，この利用条件および下記
+ *      の無保証規定を掲載すること．
+ *  (3) 本ソフトウェアを，機器に組み込むなど，他のソフトウェア開発に使
+ *      用できない形で再配布する場合には，次のいずれかの条件を満たすこ
+ *      と．
+ *    (a) 再配布に伴うドキュメント（利用者マニュアルなど）に，上記の著
+ *        作権表示，この利用条件および下記の無保証規定を掲載すること．
+ *    (b) 再配布の形態を，別に定める方法によって，TOPPERSプロジェクトに
+ *        報告すること．
+ *  (4) 本ソフトウェアの利用により直接的または間接的に生じるいかなる損
+ *      害からも，上記著作権者およびTOPPERSプロジェクトを免責すること．
+ *      また，本ソフトウェアのユーザまたはエンドユーザからのいかなる理
+ *      由に基づく請求からも，上記著作権者およびTOPPERSプロジェクトを
+ *      免責すること．
+ *
+ *  本ソフトウェアは，無保証で提供されているものである．上記著作権者お
+ *  よびTOPPERSプロジェクトは，本ソフトウェアに関して，特定の使用目的
+ *  に対する適合性も含めて，いかなる保証も行わない．また，本ソフトウェ
+ *  アの利用により直接的または間接的に生じたいかなる損害に関しても，そ
+ *  の責任を負わない．
+ *
+ *  @(#) $Id$
+ */
 /* #[<PREAMBLE>]#
  * #[<...>]# から #[</...>]# で囲まれたコメントは編集しないでください

EcnlProtoTool/trunk/asp3_dcre/tecsgen/tecs/mruby/nMruby_tUShortPointer.c

-              r321
+              r429
+/*
+ *  Copyright (C) 2008-2017 by TOPPERS Project
+ *
+ *  上記著作権者は，以下の(1)～(4)の条件を満たす場合に限り，本ソフトウェ
+ *  ア（本ソフトウェアを改変したものを含む．以下同じ）を使用・複製・改
+ *  変・再配布（以下，利用と呼ぶ）することを無償で許諾する．
+ *  (1) 本ソフトウェアをソースコードの形で利用する場合には，上記の著作
+ *      権表示，この利用条件および下記の無保証規定が，そのままの形でソー
+ *      スコード中に含まれていること．
+ *  (2) 本ソフトウェアを，ライブラリ形式など，他のソフトウェア開発に使
+ *      用できる形で再配布する場合には，再配布に伴うドキュメント（利用
+ *      者マニュアルなど）に，上記の著作権表示，この利用条件および下記
+ *      の無保証規定を掲載すること．
+ *  (3) 本ソフトウェアを，機器に組み込むなど，他のソフトウェア開発に使
+ *      用できない形で再配布する場合には，次のいずれかの条件を満たすこ
+ *      と．
+ *    (a) 再配布に伴うドキュメント（利用者マニュアルなど）に，上記の著
+ *        作権表示，この利用条件および下記の無保証規定を掲載すること．
+ *    (b) 再配布の形態を，別に定める方法によって，TOPPERSプロジェクトに
+ *        報告すること．
+ *  (4) 本ソフトウェアの利用により直接的または間接的に生じるいかなる損
+ *      害からも，上記著作権者およびTOPPERSプロジェクトを免責すること．
+ *      また，本ソフトウェアのユーザまたはエンドユーザからのいかなる理
+ *      由に基づく請求からも，上記著作権者およびTOPPERSプロジェクトを
+ *      免責すること．
+ *
+ *  本ソフトウェアは，無保証で提供されているものである．上記著作権者お
+ *  よびTOPPERSプロジェクトは，本ソフトウェアに関して，特定の使用目的
+ *  に対する適合性も含めて，いかなる保証も行わない．また，本ソフトウェ
+ *  アの利用により直接的または間接的に生じたいかなる損害に関しても，そ
+ *  の責任を負わない．
+ *
+ *  @(#) $Id$
+ */
 /* #[<PREAMBLE>]#
  * #[<...>]# から #[</...>]# で囲まれたコメントは編集しないでください

EcnlProtoTool/trunk/asp3_dcre/tecsgen/tecs/mruby/tMruby.cdl

-              r321
+              r429
 /*
  *  Copyright (C) 2012 by Ubiquitous Computing and Networking Laboratory
 …
 import(<mruby.cdl>);
+import(<sMruby.cdl>);
+import(<tTLSFMalloc.cdl>);
 namespace nMruby{
+  celltype tMruby{
+    entry sTaskBody eMrubyBody;
+/*** mruby VM ***/
+  celltype tMrubyVM{
+    entry sMrubyVM eMrubyVM;
     attr{
       [omit]char_t *mrubyFile;
       char_t *irep=C_EXP("&$cell_global$_irep");
+      const uint8_t *irep=C_EXP("$cell_global$_irep");
     };
+    /* write関数の接続先 */
+//    [optional]        call sSerialPort cSerialPort;
+    var{
+      mrb_irep      *var_irep;
+      mrb_state     *mrb;
+      struct RProc  *rproc;
+    };
+    /* MrubyBridgePlugin の生成する VM_TECSInitializeer.eInitialize へ結合する */
     [optional]  call sInitializeBridge cInit;
+    /*
+     * アロケータ
+     *  他と共有しないのであれば、このアロケータは排他制御される必要はない
+     */
+    call sMalloc cMalloc;
     FACTORY{
       write("Makefile.tecsgen", "clean_mrb_c :");
 …
       write("Makefile.tecsgen", "TECS_COBJS := $(TECS_COBJS) $cell_global$_mrb.o");
       write("Makefile.tecsgen", "MRB_C := $(MRB_C) $cell_global$_mrb.c");
       write("$ct_global$_factory.h","extern const char_t *$cell_global$_irep;");
+      write("$ct_global$_factory.h","extern const uint8_t $cell_global$_irep[];");
     };
   };
+/*** Standard Task Versoin  ***/
+  /*
+   * tMruby　の eMrubyBody.main が、繰り返し起床されることは想定されていません。
+   */
+  celltype tMrubyTaskBody{
+    entry sTaskBody eMrubyBody;
+    call  sMrubyVM  cMrubyVM;
+  };
+  composite tMruby{
+    entry sTaskBody eMrubyBody;
+    [optional]  call sInitializeBridge cInit;
+    attr{
+      [omit]char_t *mrubyFile;
+      size_t memoryPoolSize = 1024 * 1024;    /** 1MB default **/
+      /* note: this requires enough memory */
+      /* please pay attention to memory layout */
+    };
+    /** **/
+    cell tMrubyVM MrubyVM{
+      mrubyFile = composite.mrubyFile;
+      cInit => composite.cInit;
+      cMalloc = TLSFMalloc.eMalloc;
+    };
+    cell tMrubyTaskBody MrubyTaskBody {
+      cMrubyVM = MrubyVM.eMrubyVM;
+    };
+    cell tTLSFMalloc TLSFMalloc {
+      memoryPoolSize = composite.memoryPoolSize;
+    };
+    composite.eMrubyBody => MrubyTaskBody.eMrubyBody;
+  };
+/*** Cyclic Task Versoin  ***/
+  /*
+   * tMrubyCyclic の eMrubyBody.main が繰り返し呼び出されることが想定されています。
+   * この実装では mrb_close は呼び出されません (終了は、突然電源が切れることを想定)
+   */
+  celltype tMrubyCyclicTaskBody{
+    entry sTaskBody eMrubyBody;
+    call  sMrubyVM  cMrubyVM;
+    var {
+        bool_t  b_init;
+    };
+  };
+  composite tMrubyCyclic{
+    entry sTaskBody eMrubyBody;
+    [optional]  call sInitializeBridge cInit;
+    attr{
+      [omit]char_t *mrubyFile;
+      size_t memoryPoolSize = 1024 * 1024;    /** 1MB default **/
+      /* note: this requires enough memory */
+      /* please pay attention to memory layout */
+    };
+    /** **/
+    cell tMrubyVM MrubyVM{
+      mrubyFile = composite.mrubyFile;
+      cInit => composite.cInit;
+      cMalloc = TLSFMalloc.eMalloc;
+    };
+    cell tMrubyCyclicTaskBody MrubyTaskBody {
+      cMrubyVM = MrubyVM.eMrubyVM;
+    };
+    cell tTLSFMalloc TLSFMalloc {
+      memoryPoolSize = composite.memoryPoolSize;
+    };
+    composite.eMrubyBody => MrubyTaskBody.eMrubyBody;
+  };
 };

EcnlProtoTool/trunk/asp3_dcre/tecsgen/tecs/mruby/tecs_mruby.h

-              r321
+              r429
+/*
+ *  Copyright (C) 2008-2019 by TOPPERS Project
+ *
+ *  上記著作権者は，以下の(1)～(4)の条件を満たす場合に限り，本ソフトウェ
+ *  ア（本ソフトウェアを改変したものを含む．以下同じ）を使用・複製・改
+ *  変・再配布（以下，利用と呼ぶ）することを無償で許諾する．
+ *  (1) 本ソフトウェアをソースコードの形で利用する場合には，上記の著作
+ *      権表示，この利用条件および下記の無保証規定が，そのままの形でソー
+ *      スコード中に含まれていること．
+ *  (2) 本ソフトウェアを，ライブラリ形式など，他のソフトウェア開発に使
+ *      用できる形で再配布する場合には，再配布に伴うドキュメント（利用
+ *      者マニュアルなど）に，上記の著作権表示，この利用条件および下記
+ *      の無保証規定を掲載すること．
+ *  (3) 本ソフトウェアを，機器に組み込むなど，他のソフトウェア開発に使
+ *      用できない形で再配布する場合には，次のいずれかの条件を満たすこ
+ *      と．
+ *    (a) 再配布に伴うドキュメント（利用者マニュアルなど）に，上記の著
+ *        作権表示，この利用条件および下記の無保証規定を掲載すること．
+ *    (b) 再配布の形態を，別に定める方法によって，TOPPERSプロジェクトに
+ *        報告すること．
+ *  (4) 本ソフトウェアの利用により直接的または間接的に生じるいかなる損
+ *      害からも，上記著作権者およびTOPPERSプロジェクトを免責すること．
+ *      また，本ソフトウェアのユーザまたはエンドユーザからのいかなる理
+ *      由に基づく請求からも，上記著作権者およびTOPPERSプロジェクトを
+ *      免責すること．
+ *
+ *  本ソフトウェアは，無保証で提供されているものである．上記著作権者お
+ *  よびTOPPERSプロジェクトは，本ソフトウェアに関して，特定の使用目的
+ *  に対する適合性も含めて，いかなる保証も行わない．また，本ソフトウェ
+ *  アの利用により直接的または間接的に生じたいかなる損害に関しても，そ
+ *  の責任を負わない．
+ *
+ *  @(#) $Id$
+ */
 #ifndef tecs_mruby_h__
 #define tecs_mruby_h__
 …
 #include "mruby/data.h"
 #include "mruby/string.h"
+#include "mruby/irep.h"
+#include "mruby/dump.h"
+#include "mruby/proc.h"
 #include "TECSPointer.h"
 #include "TECSStruct.h"
-#if  ! defined( MRUBY_RELEASE_MAJOR ) || MRUBY_RELEASE_MAJOR == 1 && MRUBY_RELEASE_MINOR < 2
-#ifndef MRB_ARGS_REQ
-#define MRB_ARGS_REQ(n)     ARGS_REQ(n)
-#define MRB_ARGS_OPT(n)     ARGS_OPT(n)
-#define MRB_ARGS_ARG(n1,n2) ARGS_ARG(n1,n2)
-#define MRB_ARGS_REST()     ARGS_REST()
-#define MRB_ARGS_POST(n)    ARGS_POST(n)
-#define MRB_ARGS_KEY(n1,n2) ARGS_KEY(n1,n2)
-#define MRB_ARGS_BLOCK()    ARGS_BLOCK()
-#define MRB_ARGS_ANY()      ARGS_ANY()
-#define MRB_ARGS_NONE()     ARGS_NONE()
-#endif /* MRB_ARGS_REQ */
-#endif
+#if  ! defined( MRUBY_RELEASE_MAJOR )
+#define mrb_float_value( mrb, val )  mrb_float_value( val )
+#endif
+#else
+#else /* TECSGEN */
 /*
  * fake tecsgen because tecsgen cannot accept actual mruby.h in case of below.
+ * fake definition because tecsgen cannot accept actual mruby.h in case of below.
  *   types:   long long, long long int
  *   special keyword __attribute__(x), __extension__
  */
 typedef int mrb_state;
+struct  RClass {int dummy;};
+typedef int mrb_irep;
+typedef int mrb_context;
+struct  RClass {uint32_t gcnext;};  // actual definition: struct RBasic *gcnext
+struct  RProc  {uint32_t gcnext;};  // actual definition: struct RBasic *gcnext
 typedef int CELLCB;
+#define GET_SET_BOOL( Type, type )
+#define GET_SET_CHAR( Type, type )
+#define GET_SET_INT( Type, type )
+#define GET_SET_FLOAT( Type, type )
+#define POINTER_CLASS( Type, type )
+#define CHECK_AND_GET_POINTER( Type, type )
 #endif /* TECSGEN */

EcnlProtoTool/trunk/asp3_dcre/tecsgen/tecs/posix/posix.cdl

-              r321
+              r429
+/*
+ *  Copyright (C) 2008-2017 by TOPPERS Project
+ *
+ *  上記著作権者は，以下の(1)～(4)の条件を満たす場合に限り，本ソフトウェ
+ *  ア（本ソフトウェアを改変したものを含む．以下同じ）を使用・複製・改
+ *  変・再配布（以下，利用と呼ぶ）することを無償で許諾する．
+ *  (1) 本ソフトウェアをソースコードの形で利用する場合には，上記の著作
+ *      権表示，この利用条件および下記の無保証規定が，そのままの形でソー
+ *      スコード中に含まれていること．
+ *  (2) 本ソフトウェアを，ライブラリ形式など，他のソフトウェア開発に使
+ *      用できる形で再配布する場合には，再配布に伴うドキュメント（利用
+ *      者マニュアルなど）に，上記の著作権表示，この利用条件および下記
+ *      の無保証規定を掲載すること．
+ *  (3) 本ソフトウェアを，機器に組み込むなど，他のソフトウェア開発に使
+ *      用できない形で再配布する場合には，次のいずれかの条件を満たすこ
+ *      と．
+ *    (a) 再配布に伴うドキュメント（利用者マニュアルなど）に，上記の著
+ *        作権表示，この利用条件および下記の無保証規定を掲載すること．
+ *    (b) 再配布の形態を，別に定める方法によって，TOPPERSプロジェクトに
+ *        報告すること．
+ *  (4) 本ソフトウェアの利用により直接的または間接的に生じるいかなる損
+ *      害からも，上記著作権者およびTOPPERSプロジェクトを免責すること．
+ *      また，本ソフトウェアのユーザまたはエンドユーザからのいかなる理
+ *      由に基づく請求からも，上記著作権者およびTOPPERSプロジェクトを
+ *      免責すること．
+ *
+ *  本ソフトウェアは，無保証で提供されているものである．上記著作権者お
+ *  よびTOPPERSプロジェクトは，本ソフトウェアに関して，特定の使用目的
+ *  に対する適合性も含めて，いかなる保証も行わない．また，本ソフトウェ
+ *  アの利用により直接的または間接的に生じたいかなる損害に関しても，そ
+ *  の責任を負わない．
+ *
+ *  @(#) $Id$
+ */
 namespace nPosix {

EcnlProtoTool/trunk/asp3_dcre/tecsgen/tecs/rpc/TDR.cdl

-              r321
+              r429
         ER      sendSOP( [in]bool_t b_client );     /* StartOfPacket magic を送信 */
         ER      receiveSOP( [in]bool_t b_client );  /* StartOfPacket magic を受信 */
-                                                 /* b_client: クライアント側なら true, サーバー側なら false */
-        /* マジックコードの送受信 */
-        //      ER      sendSHSOP( [in]bool_t b_client );     /* StartOfPacket magic を送信 */
-        //      ER      receiveSHSOP( [in]bool_t b_client );  /* StartOfPacket magic を受信 */
                                                  /* b_client: クライアント側なら true, サーバー側なら false */
 …
 };
 // Straight Order TECS Data Representation (Straight means no endian-conversion is done)
+// Straight Byte Order TECS Data Representation (Data are always sent in native endian)
 celltype tTDR {
         call    sChannel        cChannel;

EcnlProtoTool/trunk/asp3_dcre/tecsgen/tecs/rpc/sChannel.cdl

-              r321
+              r429
 };
+/*
+ * size に uint16_t ではなく int16_t を用いるのは、下位層が ER_INT を返す場合を想定したもの．
+ *
+ * sChannel は TECS RPC の TDR の下位層である通信チャンネルとのインタフェースである．
+ * 通信チャンネルは、高水準 I/O のように、バッファリングされることを想定する．
+ * TDR からは、int8_t, int16_t, int32_t, int64_t, (int128_t), float32_t, double64_t bool_t, char_t のような基本型(無符号を含む)が渡される。
+ * 配列や構造体の場合であっても要素ごとに渡される。
+ */

EcnlProtoTool/trunk/asp3_dcre/tecsgen/tecs/rpc/tTDR_inline.h

-              r321
+              r429
                 return(E_ID);
+        }
+  (void)p_cellcb;   // to avoid unused warning
         syslog( LOG_INFO, "TDR: resetting channel" );
 …
                 return(E_ID);
+        }
+  (void)p_cellcb;   // to avoid unused warning
         /* ここに処理本体を記述します #_TEFB_# */
 …
                 return(E_ID);
+        }
+  (void)p_cellcb;   // to avoid unused warning
         /* ここに処理本体を記述します #_TEFB_# */
 …
 #endif
     if( b_client )
+  if( b_client )
                 p_sopMagic = &SOP_MAGIC2;
         else
 …
                 return(E_ID);
+        }
+  (void)p_cellcb;   // to avoid unused warning
         /* ここに処理本体を記述します #_TEFB_# */
 …
                 return(E_ID);
+        }
+  (void)p_cellcb;   // to avoid unused warning
         /* ここに処理本体を記述します #_TEFB_# */
 …
                 return(E_ID);
+        }
+  (void)p_cellcb;   // to avoid unused warning
         /* ここに処理本体を記述します #_TEFB_# */
 …
                 return(E_ID);
+        }
+  (void)p_cellcb;   // to avoid unused warning
         /* ここに処理本体を記述します #_TEFB_# */
 …
                 return(E_ID);
+        }
+  (void)p_cellcb;   // to avoid unused warning
         /* ここに処理本体を記述します #_TEFB_# */
 …
                 return(E_ID);
+        }
+  (void)p_cellcb;   // to avoid unused warning
         /* ここに処理本体を記述します #_TEFB_# */
 …
                 return(E_ID);
+        }
+  (void)p_cellcb;   // to avoid unused warning
         /* ここに処理本体を記述します #_TEFB_# */
 …
                 return(E_ID);
+        }
+  (void)p_cellcb;   // to avoid unused warning
         /* ここに処理本体を記述します #_TEFB_# */
 …
                 return(E_ID);
+        }
+  (void)p_cellcb;   // to avoid unused warning
         /* ここに処理本体を記述します #_TEFB_# */
 …
                 return(E_ID);
+        }
+  (void)p_cellcb;   // to avoid unused warning
         /* ここに処理本体を記述します #_TEFB_# */
 …
                 return(E_ID);
+        }
+  (void)p_cellcb;   // to avoid unused warning
         /* ここに処理本体を記述します #_TEFB_# */
 …
                 return(E_ID);
+        }
+  (void)p_cellcb;   // to avoid unused warning
         /* ここに処理本体を記述します #_TEFB_# */
 …
                 return(E_ID);
         } /* end if VALID_IDX(idx) */
+  (void)p_cellcb;   // to avoid unused warning
         /* ここに処理本体を記述します #_TEFB_# */
 …
                 return(E_ID);
         } /* end if VALID_IDX(idx) */
+  (void)p_cellcb;   // to avoid unused warning
         /* ここに処理本体を記述します #_TEFB_# */
 …
                 return(E_ID);
         } /* end if VALID_IDX(idx) */
+  (void)p_cellcb;   // to avoid unused warning
         /* ここに処理本体を記述します #_TEFB_# */
 …
                 return(E_ID);
         } /* end if VALID_IDX(idx) */
+  (void)p_cellcb;   // to avoid unused warning
         /* ここに処理本体を記述します #_TEFB_# */
 …
                 return(E_ID);
         } /* end if VALID_IDX(idx) */
+  (void)p_cellcb;   // to avoid unused warning
         /* ここに処理本体を記述します #_TEFB_# */
 …
                 return(E_ID);
         } /* end if VALID_IDX(idx) */
+  (void)p_cellcb;   // to avoid unused warning
         /* ここに処理本体を記述します #_TEFB_# */
 …
                 return(E_ID);
         } /* end if VALID_IDX(idx) */
+  (void)p_cellcb;   // to avoid unused warning
         /* ここに処理本体を記述します #_TEFB_# */
 …
                 return(E_ID);
         } /* end if VALID_IDX(idx) */
+  (void)p_cellcb;   // to avoid unused warning
         /* ここに処理本体を記述します #_TEFB_# */
 …
                 return(E_ID);
         } /* end if VALID_IDX(idx) */
+  (void)p_cellcb;   // to avoid unused warning
         /* ここに処理本体を記述します #_TEFB_# */
 …
                 return(E_ID);
         } /* end if VALID_IDX(idx) */
+  (void)p_cellcb;   // to avoid unused warning
         /* ここに処理本体を記述します #_TEFB_# */
 …
                 return(E_ID);
         } /* end if VALID_IDX(idx) */
+  (void)p_cellcb;   // to avoid unused warning
         /* ここに処理本体を記述します #_TEFB_# */
 …
         ER              ercd = E_OK;
         CELLCB  *p_cellcb;
+        uint8_t val;
+        if (VALID_IDX(idx)) {
+                p_cellcb = GET_CELLCB(idx);
+        }
+        else {
+                return(E_ID);
+        } /* end if VALID_IDX(idx) */
+        uint8_t val = 0;
+        if (VALID_IDX(idx)) {
+                p_cellcb = GET_CELLCB(idx);
+        }
+        else {
+                return(E_ID);
+        } /* end if VALID_IDX(idx) */
+  (void)p_cellcb;   // to avoid unused warning
         /* ここに処理本体を記述します #_TEFB_# */
 …
                 return(E_ID);
+        }
+  (void)p_cellcb;   // to avoid unused warning
         /* ここに処理本体を記述します #_TEFB_# */
 …
                 return(E_ID);
+        }
+  (void)p_cellcb;   // to avoid unused warning
         /* ここに処理本体を記述します #_TEFB_# */
 …
                 return(E_ID);
+        }
+  (void)p_cellcb;   // to avoid unused warning
         /* ここに処理本体を記述します #_TEFB_# */
 …
                 return(E_ID);
+        }
+  (void)p_cellcb;   // to avoid unused warning
         /* ここに処理本体を記述します #_TEFB_# */
 …
                 return(E_ID);
+        }
+  (void)p_cellcb;   // to avoid unused warning
         /* ここに処理本体を記述します #_TEFB_# */
 …
                 return(E_ID);
         } /* end if VALID_IDX(idx) */
+  (void)p_cellcb;   // to avoid unused warning
         /* ここに処理本体を記述します #_TEFB_# */
 …
                 return(E_ID);
+        }
+  (void)p_cellcb;   // to avoid unused warning
         /* ここに処理本体を記述します #_TEFB_# */
 …
                 return(E_ID);
+        }
+  (void)p_cellcb;   // to avoid unused warning
         /* ここに処理本体を記述します #_TEFB_# */
 …
                 return(E_ID);
+        }
+  (void)p_cellcb;   // to avoid unused warning
         /* ここに処理本体を記述します #_TEFB_# */
 …
                 return(E_ID);
         } /* end if VALID_IDX(idx) */
+  (void)p_cellcb;   // to avoid unused warning
         /* ここに処理本体を記述します #_TEFB_# */
 …
                 return(E_ID);
+        }
+  (void)p_cellcb;   // to avoid unused warning
         /* ここに処理本体を記述します #_TEFB_# */
 …
                 return(E_ID);
+        }
+  (void)p_cellcb;   // to avoid unused warning
         /* ここに処理本体を記述します #_TEFB_# */
 …
                 return(E_ID);
+        }
+  (void)p_cellcb;   // to avoid unused warning
         /* ここに処理本体を記述します #_TEFB_# */
 …
                 return(E_ID);
         } /* end if VALID_IDX(idx) */
+  (void)p_cellcb;   // to avoid unused warning
         /* ここに処理本体を記述します #_TEFB_# */
 …
                 return(E_ID);
         } /* end if VALID_IDX(idx) */
+  (void)p_cellcb;   // to avoid unused warning
         /* ここに処理本体を記述します #_TEFB_# */
 …
                 return(E_ID);
         } /* end if VALID_IDX(idx) */
+  (void)p_cellcb;   // to avoid unused warning
         /* ここに処理本体を記述します #_TEFB_# */
 …
                 return(E_ID);
         } /* end if VALID_IDX(idx) */
+  (void)p_cellcb;   // to avoid unused warning
         /* ここに処理本体を記述します #_TEFB_# */
 …
                 return(E_ID);
         } /* end if VALID_IDX(idx) */
+  (void)p_cellcb;   // to avoid unused warning
         /* ここに処理本体を記述します #_TEFB_# */
 …
                 return(E_ID);
         } /* end if VALID_IDX(idx) */
+  (void)p_cellcb;   // to avoid unused warning
         /* ここに処理本体を記述します #_TEFB_# */
 …
                 return(E_ID);
         } /* end if VALID_IDX(idx) */
+  (void)p_cellcb;   // to avoid unused warning
         /* ここに処理本体を記述します #_TEFB_# */
 …
                 return(E_ID);
         } /* end if VALID_IDX(idx) */
+  (void)p_cellcb;   // to avoid unused warning
         /* ここに処理本体を記述します #_TEFB_# */
 …
                 return(E_ID);
+        }
+  (void)p_cellcb;   // to avoid unused warning
         /* ここに処理本体を記述します #_TEFB_# */
 …
                 return(E_ID);
+        }
+  (void)p_cellcb;   // to avoid unused warning
         /* ここに処理本体を記述します #_TEFB_# */

EcnlProtoTool/trunk/asp3_dcre/tecsgen/tecsgen

r321	r429
7	7	#
8	8	# ä¸è¨èä½æ¨©è
9		ã¯ï¼ä»¥ä¸ã®(1)~~ã~~(4)ã®æ¡ä»¶ãæºããå ´åã«éãï¼æ¬ã½ããã¦ã§
	9	ã¯ï¼ä»¥ä¸ã®(1)ï½(4)ã®æ¡ä»¶ãæºããå ´åã«éãï¼æ¬ã½ããã¦ã§
10	10	# ã¢ï¼æ¬ã½ããã¦ã§ã¢ãæ¹å¤ãããã®ãå«ãï¼ä»¥ä¸åãï¼ãä½¿ç¨ã»è¤è£½ã»æ¹
11	11	# å¤ã»åé

EcnlProtoTool/trunk/asp3_dcre/tecsgen/tecsgen.rb

-              r321
+              r429
 #      Generator for TOPPERS Embedded Component System
+#
 #   Copyright (C) 2008-2016 by TOPPERS Project
+#   Copyright (C) 2008-2019 by TOPPERS Project
 #--
 #   上記著作権者は，以下の(1)～(4)の条件を満たす場合に限り，本ソフトウェ
 …
 #  Authors list is in i-ro-ha order.
 #Version::   see version.rb
 $Copyright = "Copyright(c) 2008-2016, TOPPERS project. All rights reserved."
+$Copyright = "Copyright(c) 2008-2019, TOPPERS project. All rights reserved."
 $License   = "TOPPERS License"
 …
     analyze_option addtional_option_parser
     load_modules
+    setup
+    if ! $TECSFLOW then
+      setup
+    end
     dbgPrint  "tecspath: #{$tecsgen_base_path}, __FILE__=#{__FILE__}\n"
 …
     ARGV.each { |a| $arguments += " " + a }
+    $unopt     = false     # bool:   disable optimizing
+    $unopt     = false     # bool:   disable optimizing both call and entry port
+    $unopt_entry= false    # bool:   disable optimizing entry port
     $gen_base  = "gen"     # string: folder path to place generated files
     $gen       = $gen_base # string: folder path to place generated files
 …
         $unopt = true
+      }
+      parser.on('--unoptimize-entry', 'unoptimize entry port') {
+        $unopt_entry = true
+      }
       parser.on('-c', '--cpp=cpp_cmd', 'C pre-processor command used import_C (default: gcc -E -DTECSGEN), you can also specify by environment variable TECS_CPP' ){
         |arg|
 …
+    }
     if ARGV.empty? && ! $print_version && ! $unit_test
+    if ARGV.empty? && ! $print_version && ! $unit_test && ! $TECSFLOW
       ARGV.options{|parser|
         puts parser.help
 …
     # このファイルを誤って読み込むと、異なるバージョン名を表示してしまう
     require_tecsgen_lib 'tecslib/version.rb'
+    if ! $no_banner || $print_version
+    if $title then
+      STDERR << "#{$title} version #{$tool_version} (tecsgen version #{$version})  #{$Copyright}\n"
+    elsif ! $no_banner || $print_version
       STDERR << "tecsgen  version #{$version}  #{$Copyright}\n"
     end
 …
       STDERR << "ruby #{RUBY_VERSION} (#{RUBY_RELEASE_DATE} patchlevel #{RUBY_PATCHLEVEL}) [#{RUBY_PLATFORM}]\n"
     end
     if $print_version && ARGV.empty?
+    if $print_version && ARGV.empty? && ! $TECSFLOW
       exit
     end
 …
     require_tecsgen_lib 'tecslib/core/generate.rb'
     require_tecsgen_lib 'tecslib/core/gen_xml.rb'
+#    require_tecsgen_lib 'tecslib/core/tool_info.rb'
+    require_tecsgen_lib 'tecslib/core/tool_info.rb'
+    require_tecsgen_lib 'tecslib/core/tecsinfo.rb'
+    require_tecsgen_lib 'tecslib/core/unjoin_plugin.rb'
     require_tecsgen_lib 'tecslib/plugin/CelltypePlugin.rb'
+    require_tecsgen_lib 'tecslib/plugin/CompositePlugin.rb'
     require_tecsgen_lib 'tecslib/plugin/CellPlugin.rb'
     require_tecsgen_lib 'tecslib/plugin/SignaturePlugin.rb'
     require_tecsgen_lib 'tecslib/plugin/ThroughPlugin.rb'
     require_tecsgen_lib 'tecslib/plugin/DomainPlugin.rb'
+    require_tecsgen_lib 'tecslib/plugin/MultiPlugin.rb'
     # C 言語パーサ
 …
 #  クラス変数のリセットを確実に行う必要がある
 if $TECSCDE != true then
+if $TECSCDE != true && $TECSFLOW != true then
   begin
     TECSGEN.init
 …
     tecsgen.run1
     tecsgen.run2
+    tecsgen.dump_tecsgen_rbdmp
   rescue => evar
     print_exception( evar )

EcnlProtoTool/trunk/asp3_dcre/tecsgen/tecsgen_rcov.rb

-              r321
+              r429
 # Usage: tecsgen_rcov.rb [options] CDL-file.cdl
+#
+$:.unshift(File.dirname(__FILE__))
 require 'simplecov'
 SimpleCov.command_name "tecsgen#{$$}"
+SimpleCov.command_name "tecsgen#{Time.now.to_f}"
 SimpleCov.root File.dirname( File.expand_path __FILE__ )
 SimpleCov.at_exit do

EcnlProtoTool/trunk/asp3_dcre/tecsgen/tecslib/core/C_parser.tab.rb

-              r321
+              r429
+#
 # DO NOT MODIFY!!!!
 # This file is automatically generated by Racc 1.4.12
+# This file is automatically generated by Racc 1.4.9
 # from Racc grammer file "".
+#
 …
 class C_parser < Racc::Parser
+module_eval(<<'...end C_parser.y.rb/module_eval...', 'C_parser.y.rb', 715)
+  RESERVED = {
+    # keyword
+    'typedef' => :TYPEDEF,
+    'struct' => :STRUCT,
+    'union' => :UNION,
+    'sizeof' => :SIZEOF,
+    'throw' => :THROW,
+    # specifier
+    # types
+    'void'    => :VOID,
+    'char'    => :CHAR,
+    'short'   => :SHORT,
+    'volatile'=> :VOLATILE,
+    'const'   => :CONST,
+    'extern'   => :EXTERN,
+    'long'    => :LONG,
+    'float'   => :FLOAT,
+    'double'  => :DOUBLE,
+    'signed'  => :SIGNED,
+    'unsigned'=> :UNSIGNED,
+    'int'     => :INT,
+    'enum'    => :ENUM,
+    'if'      => :IF,
+    'else'    => :ELSE,
+    'while'   => :WHILE,
+    'do'      => :DO,
+    'for'     => :FOR,
+    'case'    => :CASE,
+    'default' => :DEFAULT,
+    'goto'    => :GOTO,
+    'continue' => :CONTINUE,
+    'break'   => :BREAK,
+    'return'  => :RETURN,
+    '__inline__'  => :__INLINE__,
+    'inline'  => :INLINE,
+    '__inline'  => :__INLINE,
+    'Inline'  => :CINLINE,        # inline starting with Capital letter
+    'static'  => :STATIC,
+    'register' => :REGISTER,
+    'auto'    => :AUTO,
+    '__extension__'    => :EXTENSION,
+  }
+  @@generator_nest = -1
+  @@generator_stack = []
+  @@current_locale = []
+  def finalize
+    # mikan Namespace.pop
+    Celltype.pop
+    Cell.pop
+    CompositeCelltype.pop
+    Region.pop
+  end
+  def set_plugin( plugin )
+    @plugin = plugin
+  end
+  def self.get_plugin
+    @@generator_stack[@@generator_nest].get_plugin
+  end
+  def get_plugin
+    @plugin
+  end
+  def parse(files)
+    # mikan Namespace.push
+    Celltype.push
+    Cell.push
+    CompositeCelltype.push
+    Region.push
+    @@generator_nest += 1
+    @@generator_stack[@@generator_nest] = self
+    @b_no_type_name = false
+   begin
+    @q = []
+    comment = false
+    # euc のコメントを utf8 として扱うと、コメントの終わりを誤る問題の対策
+    TECS_LANG::set_kcode_binary
+    # 800U, 0xffLL など (整数リテラルに共通の修飾子)
+    integer_qualifier = "([Uu][Ll][Ll]|[Uu][Ll]|[Uu]|[Ll][Ll]|[Ll])?"
+    files.each {|file|
+      lineno = 1
+     begin
+#2.0       IO.foreach(file) {|line|
+       TECSIO.foreach(file) {|line|
+        col = 1
+        line.rstrip!
+        until line.empty?
+          if comment
+            case line
+            # コメント終了
+            when /\A\*\//
+              comment = false
+            when /\A./
+              ;
+            end
+          else
+            case line
+            # 空白、プリプロセスディレクティブ
+            when /\A\s+/
+              ;
+            # 識別子
+            when /\A[a-zA-Z_]\w*/
+              word = $&
+              @q << [RESERVED[word] || :IDENTIFIER, Token.new(word.intern, file, lineno, col)]
+            # 16 進数定数
+            when /\A0x[0-9A-Fa-f]+#{integer_qualifier}/
+              @q << [:HEX_CONSTANT, Token.new($&, file, lineno, col)]
+            # 8 進数定数
+            when /\A0[0-7]+#{integer_qualifier}/
+              @q << [:OCTAL_CONSTANT, Token.new($&, file, lineno, col)]
+            # 浮動小数定数
+            when /\A[0-9]+\.([0-9]*)?([Ee][+-]?[0-9]+)?/
+              @q << [:FLOATING_CONSTANT, Token.new($&, file, lineno, col)]
+            # 整数定数
+            when /\A\d+#{integer_qualifier}/
+            # when /\A\d+/
+              @q << [:INTEGER_CONSTANT, Token.new($&.to_i, file, lineno, col)]
+            # 文字
+            when /\A'(?:[^'\\]|\\.)'/
+              @q << [:CHARACTER_LITERAL, Token.new($&, file, lineno, col)]
+            # 文字列
+#              "#include  #include #include \"../systask/logtask.cfg\"       最後の " 忘れ)で無限ループ
+#            when /\A"(?:[^"\\]+|\\.)*"/
+            when /\A"(?:[^"\\]|\\.)*"/   # これはうまく行くようだ
+              @q << [:STRING_LITERAL, Token.new($&, file, lineno, col)]
+            # 行コメント
+            when /\A\/\/.*$/
+              # 読み飛ばすだけ
+            # コメント開始
+            when /\A\/\*/
+              comment = true
+            when /\A>>=/, /\A<<=/, /\A>>/,  /\A<</
+              @q << [$&, Token.new($&, file, lineno, col)]
+            when /\A\+=/, /\A\-=/, /\A\*=/, /\A\/=/, /\A%=/, /\A&=/, /\A\|=/, /\A\^=/
+              @q << [$&, Token.new($&, file, lineno, col)]
+            when /\A::/, /\A==/, /\A!=/, /\A>=/, /\A<=/, /\A\->/, /\A\+\+/, /\A\-\-/
+              @q << [$&, Token.new($&, file, lineno, col)]
+            when /\A./
+              @q << [$&, Token.new($&, file, lineno, col)]
+            else
+              raise
+            end
+          end
+          line = $'
+          col += $&.length
+        end
+        lineno += 1
+      }
+     rescue => evar
+       Generator.error( "B1002 while open or reading \'$1\'" , file )
+       print_exception( evar )
+     end
+    }
+    # 終了の印
+    @q << nil
+    @yydebug = true
+    do_parse
+   ensure
+    @@generator_nest -= 1
+    TECS_LANG::reset_kcode
+   end
+  end
+  def next_token
+    token = @q.shift
+    if token then
+      @@current_locale[@@generator_nest] = token[1].locale
+      case token[1].val
+      when ";", ":", ",", "(", ")", "{", "}"
+        set_no_type_name false
+      when ".", "->"
+        set_no_type_name true
+      end
+      # TYPE_NAME トークンへ置き換え
+      if @b_no_type_name == false
+        if token[0] == :IDENTIFIER && Namespace.is_typename?( token[1].val ) then
+          token[0] = :TYPE_NAME
+        end
+      end
+      if $debug then     # 070107 token 無効時ここを通さないようした (through 対応 -d の時に例外発生)
+        locale = @@current_locale[@@generator_nest]
+        if token then
+          print( "#{locale[0]}: line #{locale[1]} : #{token[0]} '#{token[1].val}'\n" )
+        else
+          print( "#{locale[0]}: line #{locale[1]} : EOF\n" )
+        end
+      end
+    end
+    token
+  end
+  def on_error(t, v, vstack)
+    if v == "$" then
+     Generator.error( "B1003 Unexpected EOF"  )
+    else
+     Generator.error( "B1004 syntax error near \'$1\'" , v.val )
+    end
+  end
+  def self.current_locale
+    @@current_locale[ @@generator_nest ]
+  end
+  @@n_error = 0
+  @@n_warning = 0
+  # このメソッドは構文解析、意味解析からのみ呼出し可（コード生成でエラー発生は不適切）
+  def self.error( msg )
+    @@n_error += 1
+    locale = @@current_locale[ @@generator_nest ]
+    if locale then
+      Console.puts "error: #{locale[0]}: line #{locale[1]} #{msg}"
+    else
+      Console.puts "error: #{msg}"
+    end
+  end
+  # このメソッドは構文解析、意味解析からのみ呼出し可（コード生成でウォーニング発生は不適切）
+  def self.warning( msg )
+    @@n_warning += 1
+    locale = @@current_locale[ @@generator_nest ]
+    Console.puts "warning: #{locale[0]}: line #{locale[1]} #{msg}"
+  end
+  def self.get_n_error
+    @@n_error
+  end
+  def self.get_n_warning
+    @@n_warning
+  end
+  def self.get_nest
+    @@generator_nest
+  end
+  def set_no_type_name b_no_type_name
+    # print "b_no_type_name=#{b_no_type_name}\n"
+    @b_no_type_name = b_no_type_name
+  end
+module_eval(<<'...end C_parser.y.rb/module_eval...', 'C_parser.y.rb', 784)
+        RESERVED = {
+                # keyword
+                'typedef' => :TYPEDEF,
+                'struct' => :STRUCT,
+                'union' => :UNION,
+                'sizeof' => :SIZEOF,
+                'throw' => :THROW,
+                # specifier
+                # types
+                'void'    => :VOID,
+                'char'    => :CHAR,
+                'short'   => :SHORT,
+                'volatile'=> :VOLATILE,
+                'restrict'=> :RESTRICT,
+                'const'   => :CONST,
+                'extern'   => :EXTERN,
+                'long'    => :LONG,
+                'float'   => :FLOAT,
+                'double'  => :DOUBLE,
+                'signed'  => :SIGNED,
+                'unsigned'=> :UNSIGNED,
+                'int'     => :INT,
+                'enum'    => :ENUM,
+                'if'      => :IF,
+                'else'    => :ELSE,
+                'while'   => :WHILE,
+                'do'      => :DO,
+                'for'     => :FOR,
+                'switch'  => :SWITCH,
+                'case'    => :CASE,
+                'default' => :DEFAULT,
+                'goto'    => :GOTO,
+                'continue' => :CONTINUE,
+                'break'   => :BREAK,
+                'return'  => :RETURN,
+                '__inline__'  => :__INLINE__,
+                'inline'  => :INLINE,
+                '__inline'  => :__INLINE,
+                'Inline'  => :CINLINE,        # inline starting with Capital letter
+                'static'  => :STATIC,
+                'register' => :REGISTER,
+                'auto'    => :AUTO,
+                '__extension__'    => :EXTENSION,
+                '__asm__' => :_ASM,
+                'asm' =>     :_ASM
+        }
+        @@generator_nest = -1
+        @@generator_stack = []
+        @@current_locale = []
+        def finalize
+                # mikan Namespace.pop
+                Celltype.pop
+                Cell.pop
+                CompositeCelltype.pop
+                Region.pop
+        end
+        def set_plugin( plugin )
+                @plugin = plugin
+        end
+        def self.get_plugin
+                @@generator_stack[@@generator_nest].get_plugin
+        end
+        def get_plugin
+                @plugin
+        end
+        def parse(files)
+                # mikan Namespace.push
+                Celltype.push
+                Cell.push
+                CompositeCelltype.push
+                Region.push
+                @@generator_nest += 1
+                @@generator_stack[@@generator_nest] = self
+                @b_no_type_name = false
+        begin
+                @q = []
+                comment = false
+#               b_asm   = false
+                # euc のコメントを utf8 として扱うと、コメントの終わりを誤る問題の対策
+                TECS_LANG::set_kcode_binary
+                # 800U, 0xffLL など (整数リテラルに共通の修飾子)
+                integer_qualifier = "([Uu][Ll][Ll]|[Uu][Ll]|[Uu]|[Ll][Ll]|[Ll])?"
+                files.each {|file|
+                        lineno = 1
+                begin
+#2.0            IO.foreach(file) {|line|
+                        TECSIO.foreach(file) {|line|
+                        col = 1
+                        line.rstrip!
+                        until line.empty?
+                                if comment
+                                        case line
+                                        # コメント終了
+                                        when /\A\*\//
+                                                comment = false
+                                        when /\A./
+                                                ;
+                                        end
+                                else
+                                        case line
+                                        # 空白、プリプロセスディレクティブ
+                                        when /\A\s+/
+                                                ;
+                                        # 識別子
+                                        when /\A[a-zA-Z_]\w*/
+                                                word = $&
+                                                @q << [RESERVED[word] || :IDENTIFIER, Token.new(word.intern, file, lineno, col)]
+                                        # 16 進数定数
+                                        when /\A0x[0-9A-Fa-f]+#{integer_qualifier}/
+                                                @q << [:HEX_CONSTANT, Token.new($&, file, lineno, col)]
+                                        # 8 進数定数
+                                        when /\A0[0-7]+#{integer_qualifier}/
+                                                @q << [:OCTAL_CONSTANT, Token.new($&, file, lineno, col)]
+                                        # 浮動小数定数
+                                        when /\A[0-9]+\.([0-9]*)?([Ee][+-]?[0-9]+)?/
+                                                @q << [:FLOATING_CONSTANT, Token.new($&, file, lineno, col)]
+                                        # 整数定数
+                                        when /\A\d+#{integer_qualifier}/
+                                        # when /\A\d+/
+                                                @q << [:INTEGER_CONSTANT, Token.new($&.to_i, file, lineno, col)]
+                                        # 文字
+                                        when /\A'(?:[^'\\]|\\.)'/
+                                                @q << [:CHARACTER_LITERAL, Token.new($&, file, lineno, col)]
+                                        # 文字列
+#                                       "#include  #include #include \"../systask/logtask.cfg\"       最後の " 忘れ)で無限ループ
+#                                       when /\A"(?:[^"\\]+|\\.)*"/
+                                        when /\A"(?:[^"\\]|\\.)*"/   # これはうまく行くようだ
+                                                @q << [:STRING_LITERAL, Token.new($&, file, lineno, col)]
+                                        # 行コメント
+                                        when /\A\/\/.*$/
+                                                # 読み飛ばすだけ
+                                        # コメント開始
+                                        when /\A\/\*/
+                                                comment = true
+                                        when /\A>>=/, /\A<<=/, /\A>>/,  /\A<</
+                                                @q << [$&, Token.new($&, file, lineno, col)]
+                                        when /\A\+=/, /\A\-=/, /\A\*=/, /\A\/=/, /\A%=/, /\A&=/, /\A\|=/, /\A\^=/
+                                                @q << [$&, Token.new($&, file, lineno, col)]
+                                        when /\A::/, /\A==/, /\A!=/, /\A>=/, /\A<=/, /\A\->/, /\A\+\+/, /\A\-\-/
+                                                @q << [$&, Token.new($&, file, lineno, col)]
+                                        when /\A\|\|/, /\A\&\&/
+                                                @q << [$&, Token.new($&, file, lineno, col)]
+                                        when /\A./
+                                                @q << [$&, Token.new($&, file, lineno, col)]
+                                        else
+                                                raise
+                                        end
+                                end
+                                line = $'
+                                col += $&.length
+                        end
+                        lineno += 1
+                }
+                rescue => evar
+                        Generator.error( "B1002 while open or reading \'$1\'" , file )
+                        print_exception( evar )
+                end
+        }
+        # 終了の印
+        @q << nil
+        @yydebug = true
+        do_parse
+                ensure
+                        @@generator_nest -= 1
+                        TECS_LANG::reset_kcode
+                end
+        end
+        def next_token
+                token = @q.shift
+                if token then
+                        @@current_locale[@@generator_nest] = token[1].locale
+                        case token[1].val
+                        when ";", ":", ",", "(", ")", "{", "}"
+                        set_no_type_name false
+                        when ".", "->"
+                        set_no_type_name true
+                        end
+                        # TYPE_NAME トークンへ置き換え
+                        if @b_no_type_name == false
+                                if token[0] == :IDENTIFIER && Namespace.is_typename?( token[1].val ) then
+                                        token[0] = :TYPE_NAME
+                                        locale = @@current_locale[@@generator_nest]
+#print( "#{locale[0]}: line #{locale[1]} : #{token[0]} '#{token[1].val}: type_name'\n" )
+                                end
+                        end
+                        if $debug then     # 070107 token 無効時ここを通さないようした (through 対応 -d の時に例外発生)
+                                locale = @@current_locale[@@generator_nest]
+                                if token then
+                                        print( "#{locale[0]}: line #{locale[1]} : #{token[0]} '#{token[1].val}'\n" )
+                                else
+                                        print( "#{locale[0]}: line #{locale[1]} : EOF\n" )
+                                end
+                        end
+                end
+                token
+        end
+        def on_error(t, v, vstack)
+                if v == "$" then
+                        Generator.error( "B1003 Unexpected EOF"  )
+                else
+                        Generator.error( "B1004 syntax error near \'$1\'" , v.val )
+                end
+        end
+        def self.current_locale
+                @@current_locale[ @@generator_nest ]
+        end
+        @@n_error = 0
+        @@n_warning = 0
+        @@n_info = 0
+        # このメソッドは構文解析、意味解析からのみ呼出し可（コード生成でエラー発生は不適切）
+        def self.error( msg )
+                @@n_error += 1
+                locale = @@current_locale[ @@generator_nest ]
+                if locale then
+                        Console.puts "#{locale[0]}:#{locale[1]}: error: #{msg}"
+                else
+                        Console.puts "error: #{msg}"
+                end
+        end
+        # このメソッドは構文解析、意味解析からのみ呼出し可（コード生成でウォーニング発生は不適切）
+        def self.warning( msg )
+                @@n_warning += 1
+                locale = @@current_locale[ @@generator_nest ]
+                Console.puts "#{locale[0]}:#{locale[1]}: warning: #{msg}"
+        end
+        # このメソッドは構文解析、意味解析からのみ呼出し可
+        def self.info( msg )
+                @@n_info += 1
+                locale = @@current_locale[ @@generator_nest ]
+                Console.puts "#{locale[0]}:#{locale[1]}: info: #{msg}"
+        end
+        def self.get_n_error
+                @@n_error
+        end
+        def self.get_n_warning
+                @@n_warning
+        end
+        def self.get_nest
+                @@generator_nest
+        end
+        def set_no_type_name b_no_type_name
+                locale = @@current_locale[ @@generator_nest ]
+#print "b_no_type_name=#{b_no_type_name} #{locale[0]}: line #{locale[1]}\n"
+                @b_no_type_name = b_no_type_name
+        end
 ...end C_parser.y.rb/module_eval...
 …
 clist = [
+'104,105,106,107,108,110,68,111,66,179,300,141,53,116,117,206,115,118',
+'119,120,121,122,123,104,105,106,107,108,110,168,111,203,204,207,141',
+'74,116,117,168,115,118,119,120,121,122,123,303,208,67,299,65,26,27,104',
+'105,106,107,108,110,73,111,26,27,75,141,348,116,117,167,115,118,119',
+'120,121,122,123,77,265,195,196,160,304,305,306,307,308,309,310,311,312',
+'313,262,351,142,8,9,10,11,15,16,17,18,19,20,21,22,53,192,23,25,26,27',
+'193,194,343,261,142,104,105,106,107,108,110,344,111,172,340,151,141',
+'272,116,117,251,115,118,119,120,121,122,123,104,105,106,107,108,110',
+'142,111,355,171,339,141,81,116,117,80,115,118,119,120,121,122,123,104',
+'105,106,107,108,110,52,111,195,196,3,141,51,116,117,359,115,118,119',
+'120,121,122,123,104,105,106,107,108,110,373,111,96,335,361,141,334,116',
+'117,344,115,118,119,120,121,122,123,79,142,247,335,272,251,334,251,51',
+'104,105,106,107,108,110,81,111,53,80,362,234,363,116,117,142,115,118',
+'119,120,121,122,123,247,52,364,251,197,198,51,51,197,198,79,197,198',
+'53,53,142,228,365,8,9,10,11,15,16,17,18,19,20,21,22,77,192,23,25,26',
+'27,193,194,142,229,95,230,231,232,233,87,235,236,238,239,240,241,192',
+'199,200,201,202,193,194,197,198,370,37,38,39,40,41,42,43,44,142,104',
+'105,106,107,108,110,86,111,203,204,85,141,375,116,117,376,115,118,119',
+'120,121,122,123,104,105,106,107,108,110,377,111,195,196,378,141,379',
+'116,117,380,115,118,119,120,121,122,123,104,105,106,107,108,110,382',
+'111,383,35,384,141,63,116,117,60,115,118,119,120,121,122,123,104,105',
+'106,107,108,110,389,111,209,210,390,141,391,116,117,392,115,118,119',
+'120,121,122,123,59,142,394,34,396,8,9,10,11,15,16,17,18,19,20,21,22',
+'52,278,23,25,26,27,51,142,36,52,52,52,35,53,52,51,51,51,197,198,51,45',
+'53,53,53,277,275,53,269,268,142,267,37,38,39,40,41,42,43,44,181,95,182',
+'254,183,184,185,199,200,201,202,253,34,142,8,9,10,11,15,16,17,18,19',
+'20,21,22,245,244,23,25,26,27,243,30,36,104,105,106,107,108,110,214,111',
+'213,208,207,141,206,116,117,205,115,118,119,120,121,122,123,37,38,39',
+'40,41,42,43,44,301,104,105,106,107,108,110,314,111,315,317,318,234,319',
+'116,117,321,115,118,119,120,121,122,123,52,52,52,322,52,323,51,51,51',
+'324,51,327,174,53,53,53,228,53,8,9,10,11,15,16,17,18,19,20,21,22,77',
+'173,23,25,26,27,75,95,142,229,169,230,231,232,233,161,235,236,238,239',
+'240,241,199,200,201,202,346,347,205,,,,37,38,39,40,41,42,43,44,142,104',
+'105,106,107,108,110,,111,,,,141,,116,117,,115,118,119,120,121,122,123',
+',,104,105,106,107,108,110,,111,,,,234,,116,117,,115,118,119,120,121',
+'122,123,,,,,,,,,,,,,,,,,228,,8,9,10,11,15,16,17,18,19,20,21,22,77,,23',
+'25,26,27,,,,229,,230,231,232,233,142,235,236,238,239,240,241,,,,,,,',
+',,,37,38,39,40,41,42,43,44,142,104,105,106,107,108,110,,111,,,,234,',
+'116,117,,115,118,119,120,121,122,123,,,,,,,,,,,,,,,,,228,,8,9,10,11',
+'15,16,17,18,19,20,21,22,77,,23,25,26,27,,,,229,,230,231,232,233,,235',
+'236,238,239,240,241,,,,,,,,,,,37,38,39,40,41,42,43,44,142,104,105,106',
+'107,108,110,,111,,,,141,,116,117,,115,118,119,120,121,122,123,104,105',
+'106,107,108,110,,111,,,,141,,116,117,,115,118,119,120,121,122,123,104',
+'105,106,107,108,110,,111,,,,141,,116,117,,115,118,119,120,121,122,123',
+'104,105,106,107,108,110,,111,,,,141,,116,117,,115,118,119,120,121,122',
+'123,,142,,,,,,,,104,105,106,107,108,110,,111,,,,141,,116,117,142,115',
+'118,119,120,121,122,123,104,105,106,107,108,110,,111,,366,,141,,116',
+'117,142,115,118,119,120,121,122,123,,,,,,,,104,105,106,107,108,110,',
+'111,142,,,234,,116,117,,115,118,119,120,121,122,123,,,,,,,,,,,,,,,,',
+'228,142,8,9,10,11,15,16,17,18,19,20,21,22,77,,23,25,26,27,,,,229,142',
+'230,231,232,233,,235,236,238,239,240,241,,,,,,,,,,,37,38,39,40,41,42',
+'43,44,142,104,105,106,107,108,110,,111,,,,234,,116,117,,115,118,119',
+'120,121,122,123,,,,,,,,,,,,,,,,,228,,8,9,10,11,15,16,17,18,19,20,21',
+'22,77,,23,25,26,27,,,,229,,230,231,232,233,,235,236,238,239,240,241',
+',,,,,,,,,,37,38,39,40,41,42,43,44,142,104,105,106,107,108,110,,111,',
+',,234,,116,117,,115,118,119,120,121,122,123,,,,,,,,,,,,,,,,,228,,8,9',
+'10,11,15,16,17,18,19,20,21,22,77,,23,25,26,27,,,,229,,230,231,232,233',
+',235,236,238,239,240,241,,,,,,,,,,,37,38,39,40,41,42,43,44,142,104,105',
+'106,107,108,110,,111,,,,141,,116,117,,115,118,119,120,121,122,123,104',
+'105,106,107,108,110,,111,,,,141,,116,117,,115,118,119,120,121,122,123',
+'104,105,106,107,108,110,,111,,,,141,,116,117,,115,118,119,120,121,122',
+'123,104,105,106,107,108,110,,111,,,,141,,116,117,,115,118,119,120,121',
+'122,123,,142,,,,,,139,,,,,,140,104,105,106,107,108,110,,111,,145,142',
+'141,,116,117,,115,118,119,120,121,122,123,104,105,106,107,108,110,,111',
+',,142,141,,116,117,,115,118,119,120,121,122,123,104,105,106,107,108',
+'110,,111,,,142,141,,116,117,,115,118,119,120,121,122,123,104,105,106',
+'107,108,110,,111,,,,141,,116,117,,115,118,119,120,121,122,123,,142,',
+',,,,,,104,105,106,107,108,110,,111,,,,141,,116,117,142,115,118,119,120',
+'121,122,123,104,105,106,107,108,110,,111,,,,141,,116,117,142,115,118',
+'119,120,121,122,123,104,105,106,107,108,110,,111,,,,141,,116,117,142',
+'115,118,119,120,121,122,123,104,105,106,107,108,110,,111,,,,141,,116',
+'117,,115,118,119,120,121,122,123,,142,,,,,,139,349,,,,,140,104,105,106',
+'107,108,110,,111,,,142,141,,116,117,,115,118,119,120,121,122,123,104',
+'105,106,107,108,110,,111,,,142,141,,116,117,,115,118,119,120,121,122',
+'123,104,105,106,107,108,110,,111,,,142,141,,116,117,,115,118,119,120',
+'121,122,123,104,105,106,107,108,110,,111,,,,141,,116,117,,115,118,119',
+'120,121,122,123,,142,,,,,,,,104,105,106,107,108,110,,111,,,,141,,116',
+'117,142,115,118,119,120,121,122,123,104,105,106,107,108,110,,111,,,',
+'141,,116,117,142,115,118,119,120,121,122,123,104,105,106,107,108,110',
+',111,,,,141,,116,117,142,115,118,119,120,121,122,123,,,,,,,,,,104,105',
+'106,107,108,110,,111,,,,234,,116,117,142,115,118,119,120,121,122,123',
+',,,,,,,,,,,,,,,142,228,,8,9,10,11,15,16,17,18,19,20,21,22,77,237,23',
+'25,26,27,,,142,229,,230,231,232,233,,235,236,238,239,240,241,,,,,,,',
+',,,37,38,39,40,41,42,43,44,142,104,105,106,107,108,110,,111,,336,,141',
+',116,117,,115,118,119,120,121,122,123,104,105,106,107,108,110,,111,',
+',,141,,116,117,,115,118,119,120,121,122,123,8,9,10,11,15,16,17,18,19',
+'20,21,22,,,23,25,26,27,8,9,10,11,15,16,17,18,19,20,21,22,,,23,25,26',
+'27,,104,105,106,107,108,110,,111,,,142,141,,116,117,,115,118,119,120',
+'121,122,123,104,105,106,107,108,110,,111,,,142,141,,116,117,,115,118',
+'119,120,121,122,123,104,105,106,107,108,110,,111,,,,141,,116,117,,115',
+'118,119,120,121,122,123,104,105,106,107,108,187,,111,,,,141,,116,117',
+',115,118,119,120,121,122,123,,142,,,,,,,,104,105,106,107,108,189,,111',
+',,,141,,116,117,142,115,118,119,120,121,122,123,104,105,106,107,108',
+'189,,111,,,,141,,116,117,142,115,118,119,120,121,122,123,104,105,106',
+'107,108,110,,111,,,,141,,116,117,142,115,118,119,120,121,122,123,104',
+'105,106,107,108,110,,111,,,,141,,116,117,,115,118,119,120,121,122,123',
+',142,,,,,,139,,,,,,140,272,332,326,251,104,105,106,107,108,110,142,111',
+',53,,141,,116,117,,115,118,119,120,121,122,123,,,,,,,142,,,8,9,10,11',
+'15,16,17,18,19,20,21,22,,,23,25,26,27,,,142,104,105,106,107,108,110',
+',111,,,,234,,116,117,,115,118,119,120,121,122,123,37,38,39,40,41,42',
+'43,44,,,,,,,,,228,142,8,9,10,11,15,16,17,18,19,20,21,22,77,,23,25,26',
+'27,,,,229,,230,231,232,233,,235,236,238,239,240,241,368,,,,,,,,,,37',
+'38,39,40,41,42,43,44,142,247,332,,251,,,51,,,,,,,53,,,8,9,10,11,15,16',
+'17,18,19,20,21,22,,,23,25,26,27,,,8,9,10,11,15,16,17,18,19,20,21,22',
+',,23,25,26,27,147,,,,,,37,38,39,40,41,42,43,44,,,,,,,,,328,,,,37,38',
+'39,40,41,42,43,44,,8,9,10,11,15,16,17,18,19,20,21,22,,,23,25,26,27,8',
+'9,10,11,15,16,17,18,19,20,21,22,,,23,25,26,27,,,,,,,,,37,38,39,40,41',
+'42,43,44,,,,,,,,,,,37,38,39,40,41,42,43,44,8,9,10,11,15,16,17,18,19',
+'20,21,22,,,23,25,26,27,8,9,10,11,15,16,17,18,19,20,21,22,,338,23,25',
+'26,27,,,,,,,,,37,38,39,40,41,42,43,44,,,,,,,,,,,37,38,39,40,41,42,43',
+'44,8,9,10,11,15,16,17,18,19,20,21,22,,162,23,25,26,27,8,9,10,11,15,16',
+'17,18,19,20,21,22,,,23,25,26,27,,,,,,,,,37,38,39,40,41,42,43,44,,,,',
+',,,,,,37,38,39,40,41,42,43,44,8,9,10,11,15,16,17,18,19,20,21,22,,,23',
+'25,26,27,8,9,10,11,15,16,17,18,19,20,21,22,,,23,25,26,27,,,,,,,,,37',
+'38,39,40,41,42,43,44,,,,,,,,,,,37,38,39,40,41,42,43,44,8,9,10,11,15',
+'16,17,18,19,20,21,22,,255,23,25,26,27,8,9,10,11,15,16,17,18,19,20,21',
+'22,,,23,25,26,27,,,,,,,,,37,38,39,40,41,42,43,44,,,,,,,,,,,37,38,39',
+'40,41,42,43,44,8,9,10,11,15,16,17,18,19,20,21,22,,260,23,25,26,27,8',
+'9,10,11,15,16,17,18,19,20,21,22,,,23,25,26,27,,,,,,,,,37,38,39,40,41',
+'42,43,44,,,,,,,,,,,37,38,39,40,41,42,43,44,8,9,10,11,15,16,17,18,19',
+'20,21,22,,,23,25,26,27,8,9,10,11,15,16,17,18,19,20,21,22,,,23,25,26',
+'27,,,,,,,,,37,38,39,40,41,42,43,44,8,9,10,11,15,16,17,18,19,20,21,22',
+',,23,25,26,27' ]
+        racc_action_table = arr = ::Array.new(2877, nil)
+'111,112,113,114,115,117,294,118,56,298,55,163,54,123,124,82,54,262,122',
+'125,126,127,128,129,130,111,112,113,114,115,117,217,118,271,391,101',
+'163,91,123,124,82,271,271,122,125,126,127,128,129,130,56,70,171,72,82',
+'69,397,71,80,32,33,34,224,309,271,223,216,226,84,227,228,229,84,392',
+'101,325,272,171,298,312,80,164,165,172,393,173,174,175,176,177,178,179',
+'180,149,181,101,218,79,308,369,388,32,33,34,265,266,164,165,172,73,173',
+'174,175,176,177,178,179,180,149,181,111,112,113,114,115,117,384,118',
+'32,33,34,163,78,123,124,82,440,402,122,125,126,127,128,129,130,55,219',
+'271,271,383,101,54,332,248,325,387,55,298,249,250,56,382,54,111,112',
+'113,114,115,117,56,118,56,171,331,163,395,123,124,82,276,210,122,125',
+'126,127,128,129,130,420,55,378,210,248,377,396,54,330,249,250,393,92',
+'164,165,172,56,173,174,175,176,177,178,179,180,149,181,171,9,10,11,12',
+'13,14,15,16,17,18,19,20,21,22,26,28,30,31,32,33,34,35,36,37,38,355,356',
+'213,164,165,172,204,173,174,175,176,177,178,179,180,149,181,111,112',
+'113,114,115,117,404,118,93,378,203,163,377,123,124,82,193,271,122,125',
+'126,127,128,129,130,111,112,113,114,115,117,290,118,101,86,55,163,85',
+'123,124,82,54,291,122,125,126,127,128,129,130,56,357,171,13,14,15,16',
+'17,18,19,20,21,22,26,28,30,31,32,33,34,248,86,322,438,85,249,250,171',
+'434,435,370,164,165,172,271,173,174,175,176,177,178,179,180,149,181',
+'259,260,261,321,255,256,257,258,315,316,262,164,165,172,271,173,174',
+'175,176,177,178,179,180,149,181,111,112,113,114,115,117,403,118,317',
+'318,263,163,264,123,124,82,320,271,122,125,126,127,128,129,130,13,14',
+'15,16,17,18,19,20,21,22,26,28,30,31,32,33,34,437,111,112,113,114,115',
+'117,360,118,400,171,271,163,368,123,124,82,166,103,122,125,126,127,128',
+'129,130,102,55,255,256,257,258,310,54,255,256,257,258,405,164,165,172',
+'56,173,174,175,176,177,178,179,180,149,181,171,9,10,11,12,13,14,15,16',
+'17,18,19,20,21,22,26,28,30,31,32,33,34,35,36,37,38,259,260,301,164,165',
+'172,300,173,174,175,176,177,178,179,180,149,181,111,112,113,114,115',
+'117,408,118,253,254,292,163,409,123,124,82,253,254,122,125,126,127,128',
+'129,130,111,112,113,114,115,117,410,118,253,254,55,163,289,123,124,82',
+'54,288,122,125,126,127,128,129,130,56,415,171,13,14,15,16,17,18,19,20',
+'21,22,26,28,30,31,32,33,34,253,254,253,254,251,252,261,171,211,212,285',
+'164,165,172,284,173,174,175,176,177,178,179,180,149,181,237,238,239',
+'240,241,242,243,244,245,246,247,164,165,172,283,173,174,175,176,177',
+'178,179,180,149,181,111,112,113,114,115,117,282,118,251,252,389,163',
+'389,123,124,82,251,252,122,125,126,127,128,129,130,111,112,113,114,115',
+'117,101,118,67,82,55,163,64,123,124,82,54,63,122,125,126,127,128,129',
+'130,56,55,171,55,55,294,280,54,298,54,54,54,279,430,431,432,56,433,56',
+'56,56,365,436,278,263,275,264,171,273,270,48,164,165,172,444,173,174',
+'175,176,177,178,179,180,149,181,269,3,,,,,,,,,,164,165,172,,173,174',
+'175,176,177,178,179,180,149,181,111,112,113,114,115,117,,118,,,,163',
+',123,124,82,,,122,125,126,127,128,129,130,111,112,113,114,115,117,,118',
+',,,148,,123,124,,,,122,125,126,127,128,129,130,,,171,111,112,113,114',
+'115,117,,118,,,,148,,123,124,,,,122,125,126,127,128,129,130,,,,164,165',
+'172,,173,174,175,176,177,178,179,180,149,181,,,,,,,111,112,113,114,115',
+'117,,118,,411,,148,,123,124,,,149,122,125,126,127,128,129,130,,,,111',
+'112,113,114,115,117,,118,,,,148,,123,124,,,149,122,125,126,127,128,129',
+'130,111,112,113,114,115,117,,118,,,,148,,123,124,,,,122,125,126,127',
+'128,129,130,,,171,,,,,,,,,,,,,149,,111,112,113,114,115,117,,118,,,171',
+'148,,123,124,,,,122,125,126,127,128,129,130,,149,,,,,,,,111,112,113',
+'114,115,117,,118,,,,148,,123,124,146,398,149,122,125,126,127,128,129',
+'130,111,112,113,114,115,117,,118,,,,148,,123,124,,,,122,125,126,127',
+'128,129,130,111,112,113,114,115,117,,118,,149,,148,,123,124,389,,,122',
+'125,126,127,128,129,130,,,,147,,,111,112,113,114,115,117,,118,,,,148',
+'149,123,124,,,,122,125,126,127,128,129,130,111,112,113,114,115,117,',
+'118,,379,,148,149,123,124,,,,122,125,126,127,128,129,130,,,,,,,,,,,',
+',149,,,,,111,112,113,114,115,117,,118,,,,148,,123,124,,,,122,125,126',
+'127,128,129,130,,149,,,,,,,,,,,,,,,,,,,,,,,,,149,171,9,10,11,12,13,14',
+'15,16,17,18,19,20,21,22,26,28,30,31,32,33,34,35,36,37,38,111,112,113',
+'114,115,117,,118,,,,148,,123,124,149,,,122,125,126,127,128,129,130,111',
+'112,113,114,115,117,,118,,,,148,,123,124,146,,,122,125,126,127,128,129',
+'130,111,112,113,114,115,117,,118,,,,148,,123,124,,,,122,125,126,127',
+'128,129,130,,111,112,113,114,115,117,,118,,,,148,,123,124,,,149,122',
+'125,126,127,128,129,130,,,147,,,111,112,113,114,115,117,,118,,,,148',
+'149,123,124,,,,122,125,126,127,128,129,130,111,112,113,114,115,117,',
+'118,,,,148,149,123,124,,,,122,125,126,127,128,129,130,,111,112,113,114',
+'115,117,,118,,,,148,149,123,124,,,,122,125,126,127,128,129,130,111,112',
+'113,114,115,117,,118,,,,148,,123,124,146,,149,122,125,126,127,128,129',
+'130,111,112,113,114,115,117,427,118,,,,148,,123,124,,,149,122,125,126',
+'127,128,129,130,,111,112,113,114,115,117,,118,,,,148,,123,124,,,149',
+'122,125,126,127,128,129,130,,,147,,,111,112,113,114,115,117,,118,,185',
+',148,149,123,124,,,,122,125,126,127,128,129,130,111,112,113,114,115',
+'117,,118,,,,148,149,123,124,,,,122,125,126,127,128,129,130,,111,112',
+'113,114,115,117,,118,,,,148,149,123,124,,,,122,125,126,127,128,129,130',
+'111,112,113,114,115,117,,118,,,,148,,123,124,,,149,122,125,126,127,128',
+'129,130,111,112,113,114,115,117,,118,,,,148,,123,124,,,149,122,125,126',
+'127,128,129,130,,111,112,113,114,115,117,,118,,,,148,,123,124,,,149',
+'122,125,126,127,128,129,130,111,112,113,114,115,117,,118,,,,148,,123',
+'124,,,149,122,125,126,127,128,129,130,111,112,113,114,115,117,,118,',
+',,148,,123,124,,,149,122,125,126,127,128,129,130,,111,112,113,114,115',
+'117,,118,,,,148,,123,124,,,149,122,125,126,127,128,129,130,111,112,113',
+'114,115,117,,118,,,,148,,123,124,,,149,122,125,126,127,128,129,130,111',
+'112,113,114,115,117,,118,,,,148,,123,124,,,149,122,125,126,127,128,129',
+'130,,111,112,113,114,115,117,,118,,,,148,,123,124,,,149,122,125,126',
+'127,128,129,130,111,112,113,114,115,117,,118,,,,148,,123,124,,,149,122',
+'125,126,127,128,129,130,111,112,113,114,115,117,,118,,,,148,,123,124',
+',,149,122,125,126,127,128,129,130,,111,112,113,114,115,117,,118,,,,148',
+',123,124,,,149,122,125,126,127,128,129,130,111,112,113,114,115,117,',
+'118,,,,148,,123,124,,,149,122,125,126,127,128,129,130,111,112,113,114',
+'115,117,,118,,,,148,,123,124,146,,149,122,125,126,127,128,129,130,,111',
+'112,113,114,115,117,,118,,,,148,,123,124,,,149,122,125,126,127,128,129',
+'130,,,,,,,,,,,,,,,,,,149,,,,,,,,,,147,,,111,112,113,114,115,117,,118',
+',,,148,149,123,124,,,,122,125,126,127,128,129,130,,111,112,113,114,115',
+'117,,118,,,,148,149,123,124,,,,122,125,126,127,128,129,130,,,,,,,13',
+'14,15,16,17,18,19,20,21,22,26,28,30,31,32,33,34,,,111,112,113,114,115',
+'117,,118,,,,148,,123,124,,,149,122,125,126,127,128,129,130,,111,112',
+'113,114,115,231,,118,,,,148,,123,124,,,149,122,125,126,127,128,129,130',
+'111,112,113,114,115,233,,118,,,,148,,123,124,,,,122,125,126,127,128',
+'129,130,111,112,113,114,115,233,,118,,,,148,,123,124,,,149,122,125,126',
+'127,128,129,130,,,,,,,,,,,,,111,112,113,114,115,117,149,118,,,,148,',
+'123,124,,,,122,125,126,127,128,129,130,111,112,113,114,115,117,149,118',
+',,,148,,123,124,,,,122,125,126,127,128,129,130,,,,,,,149,13,14,15,16',
+'17,18,19,20,21,22,26,28,30,31,32,33,34,,,111,112,113,114,115,117,,118',
+',,,148,,123,124,,,149,122,125,126,127,128,129,130,111,112,113,114,115',
+'117,327,118,,,,148,,123,124,,,149,122,125,126,127,128,129,130,,,,,,',
+',13,14,15,16,17,18,19,20,21,22,26,28,30,31,32,33,34,,,111,112,113,114',
+'115,117,,118,,,,148,,123,124,,,149,122,125,126,127,128,129,130,111,112',
+'113,114,115,117,,118,,,,148,,123,124,,,149,122,125,126,127,128,129,130',
+'111,112,113,114,115,117,,118,,,,148,,123,124,,,,122,125,126,127,128',
+'129,130,,111,112,113,114,115,117,429,118,,,,148,,123,124,,,149,122,125',
+'126,127,128,129,130,,287,,,,111,112,113,114,115,117,,118,,,,148,149',
+'123,124,146,442,,122,125,126,127,128,129,130,111,112,113,114,115,117',
+',118,,,,148,149,123,124,,,,122,125,126,127,128,129,130,,111,112,113',
+'114,115,117,,118,,,,148,149,123,124,,,,122,125,126,127,128,129,130,',
+',147,,,,,,,,,,,,,,46,149,,,,,,,,,,,,,,,,,,,,,,,,,149,,,46,,,,,,,,,,',
+',,,,,,,,,,,,149,45,9,10,11,12,13,14,15,16,17,18,19,20,21,22,26,28,30',
+'31,32,33,34,35,36,37,38,,,47,45,9,10,11,12,13,14,15,16,17,18,19,20,21',
+'22,26,28,30,31,32,33,34,35,36,37,38,,41,47,294,375,,298,,,54,,,,,,,',
+',56,,,,,,,,,,325,375,,298,,,,,,,,,,,,56,,,,,,,,9,10,11,12,13,14,15,16',
+'17,18,19,20,21,22,26,28,30,31,32,33,34,35,36,37,38,9,10,11,12,13,14',
+'15,16,17,18,19,20,21,22,26,28,30,31,32,33,34,35,36,37,38,188,,,,,192',
+',,,,,,,,,,,,,,,,,,,413,,,,,,,,,,,,,,,,,,,,,,9,10,11,12,13,14,15,16,17',
+'18,19,20,21,22,26,28,30,31,32,33,34,35,36,37,38,9,10,11,12,13,14,15',
+'16,17,18,19,20,21,22,26,28,30,31,32,33,34,35,36,37,38,371,9,10,11,12',
+'13,14,15,16,17,18,19,20,21,22,26,28,30,31,32,33,34,35,36,37,38,,,,,',
+'205,,,,,,,,,,,,9,10,11,12,13,14,15,16,17,18,19,20,21,22,26,28,30,31',
+'32,33,34,35,36,37,38,9,10,11,12,13,14,15,16,17,18,19,20,21,22,26,28',
+'30,31,32,33,34,35,36,37,38,307,,,,,,,,,,,,,,,,,,,,,,,,,381,,,,,,,,,',
+',,9,10,11,12,13,14,15,16,17,18,19,20,21,22,26,28,30,31,32,33,34,35,36',
+'37,38,9,10,11,12,13,14,15,16,17,18,19,20,21,22,26,28,30,31,32,33,34',
+'35,36,37,38,302,9,10,11,12,13,14,15,16,17,18,19,20,21,22,26,28,30,31',
+'32,33,34,35,36,37,38,,,,,,,,,,,,9,10,11,12,13,14,15,16,17,18,19,20,21',
+'22,26,28,30,31,32,33,34,35,36,37,38,9,10,11,12,13,14,15,16,17,18,19',
+'20,21,22,26,28,30,31,32,33,34,35,36,37,38,9,10,11,12,13,14,15,16,17',
+'18,19,20,21,22,26,28,30,31,32,33,34,35,36,37,38,9,10,11,12,13,14,15',
+'16,17,18,19,20,21,22,26,28,30,31,32,33,34,35,36,37,38,9,10,11,12,13',
+'14,15,16,17,18,19,20,21,22,26,28,30,31,32,33,34,35,36,37,38,9,10,11',
+'12,13,14,15,16,17,18,19,20,21,22,26,28,30,31,32,33,34,35,36,37,38,9',
+'10,11,12,13,14,15,16,17,18,19,20,21,22,26,28,30,31,32,33,34,35,36,37',
+'38' ]
+        racc_action_table = arr = ::Array.new(3198, nil)
         idx = 0
         clist.each do |str|
 …
 clist = [
+'208,208,208,208,208,208,24,208,23,112,211,208,53,208,208,295,208,208',
+'208,208,208,208,208,209,209,209,209,209,209,93,209,130,130,296,209,46',
+'209,209,170,209,209,209,209,209,209,209,215,297,24,211,23,53,53,187',
+'187,187,187,187,187,46,187,112,112,48,187,298,187,187,93,187,187,187',
+'187,187,187,187,48,170,285,285,88,215,215,215,215,215,215,215,215,215',
+'215,164,301,208,187,187,187,187,187,187,187,187,187,187,187,187,83,283',
+'187,187,187,187,283,283,273,164,209,392,392,392,392,392,392,273,392',
+'99,257,82,392,271,392,392,271,392,392,392,392,392,392,392,179,179,179',
+'179,179,179,187,179,316,99,257,179,50,179,179,50,179,179,179,179,179',
+'179,179,192,192,192,192,192,192,49,192,286,286,1,192,49,192,192,320',
+'192,192,192,192,192,192,192,193,193,193,193,193,193,345,193,68,250,322',
+'193,250,193,193,345,193,193,193,193,193,193,193,49,392,246,330,178,246',
+'330,178,246,390,390,390,390,390,390,78,390,178,78,325,390,328,390,390',
+'179,390,390,390,390,390,390,390,150,158,331,150,287,287,150,158,288',
+'288,246,289,289,150,158,192,390,333,390,390,390,390,390,390,390,390',
+'390,390,390,390,390,284,390,390,390,390,284,284,193,390,67,390,390,390',
+'390,64,390,390,390,390,390,390,126,129,129,129,129,126,126,290,290,337',
+'390,390,390,390,390,390,390,390,390,379,379,379,379,379,379,62,379,293',
+'293,61,379,352,379,379,353,379,379,379,379,379,379,379,378,378,378,378',
+'378,378,354,378,127,127,355,378,356,378,378,357,378,378,378,378,378',
+'378,378,194,194,194,194,194,194,363,194,367,30,369,194,22,194,194,14',
+'194,194,194,194,194,194,194,195,195,195,195,195,195,380,195,135,135',
+'385,195,387,195,195,388,195,195,195,195,195,195,195,12,379,391,30,395',
+'30,30,30,30,30,30,30,30,30,30,30,30,92,183,30,30,30,30,92,378,30,262',
+'74,4,2,92,72,262,74,4,128,128,72,3,262,74,4,182,180,72,176,175,194,173',
+'30,30,30,30,30,30,30,30,113,168,113,155,113,113,113,291,291,291,291',
+'154,2,195,2,2,2,2,2,2,2,2,2,2,2,2,148,146,2,2,2,2,144,2,2,196,196,196',
+'196,196,196,142,196,140,134,133,196,132,196,196,131,196,196,196,196',
+'196,196,196,2,2,2,2,2,2,2,2,213,377,377,377,377,377,377,229,377,230',
+'232,233,377,234,377,377,236,377,377,377,377,377,377,377,340,216,172',
+'238,52,239,340,216,172,240,52,242,109,340,216,172,377,52,377,377,377',
+'377,377,377,377,377,377,377,377,377,377,103,377,377,377,377,102,96,196',
+'377,95,377,377,377,377,89,377,377,377,377,377,377,292,292,292,292,276',
+'279,294,,,,377,377,377,377,377,377,377,377,377,169,169,169,169,169,169',
+',169,,,,169,,169,169,,169,169,169,169,169,169,169,,,376,376,376,376',
+'376,376,,376,,,,376,,376,376,,376,376,376,376,376,376,376,,,,,,,,,,',
+',,,,,,376,,376,376,376,376,376,376,376,376,376,376,376,376,376,,376',
+'376,376,376,,,,376,,376,376,376,376,169,376,376,376,376,376,376,,,,',
+',,,,,,376,376,376,376,376,376,376,376,376,359,359,359,359,359,359,,359',
+',,,359,,359,359,,359,359,359,359,359,359,359,,,,,,,,,,,,,,,,,359,,359',
+'359,359,359,359,359,359,359,359,359,359,359,359,,359,359,359,359,,,',
+'359,,359,359,359,359,,359,359,359,359,359,359,,,,,,,,,,,359,359,359',
+'359,359,359,359,359,359,197,197,197,197,197,197,,197,,,,197,,197,197',
+',197,197,197,197,197,197,197,348,348,348,348,348,348,,348,,,,348,,348',
+'348,,348,348,348,348,348,348,348,344,344,344,344,344,344,,344,,,,344',
+',344,344,,344,344,344,344,344,344,344,189,189,189,189,189,189,,189,',
+',,189,,189,189,,189,189,189,189,189,189,189,,197,,,,,,,,198,198,198',
+'198,198,198,,198,,,,198,,198,198,348,198,198,198,198,198,198,198,334',
+'334,334,334,334,334,,334,,334,,334,,334,334,344,334,334,334,334,334',
+'334,334,,,,,,,,321,321,321,321,321,321,,321,189,,,321,,321,321,,321',
+'321,321,321,321,321,321,,,,,,,,,,,,,,,,,321,198,321,321,321,321,321',
+'321,321,321,321,321,321,321,321,,321,321,321,321,,,,321,334,321,321',
+'321,321,,321,321,321,321,321,321,,,,,,,,,,,321,321,321,321,321,321,321',
+'321,321,319,319,319,319,319,319,,319,,,,319,,319,319,,319,319,319,319',
+'319,319,319,,,,,,,,,,,,,,,,,319,,319,319,319,319,319,319,319,319,319',
+'319,319,319,319,,319,319,319,319,,,,319,,319,319,319,319,,319,319,319',
+'319,319,319,,,,,,,,,,,319,319,319,319,319,319,319,319,319,396,396,396',
+'396,396,396,,396,,,,396,,396,396,,396,396,396,396,396,396,396,,,,,,',
+',,,,,,,,,,396,,396,396,396,396,396,396,396,396,396,396,396,396,396,',
+'396,396,396,396,,,,396,,396,396,396,396,,396,396,396,396,396,396,,,',
+',,,,,,,396,396,396,396,396,396,396,396,396,318,318,318,318,318,318,',
+'318,,,,318,,318,318,,318,318,318,318,318,318,318,317,317,317,317,317',
+'317,,317,,,,317,,317,317,,317,317,317,317,317,317,317,75,75,75,75,75',
+'75,,75,,,,75,,75,75,,75,75,75,75,75,75,75,315,315,315,315,315,315,,315',
+',,,315,,315,315,,315,315,315,315,315,315,315,,318,,,,,,75,,,,,,75,80',
+'80,80,80,80,80,,80,,80,317,80,,80,80,,80,80,80,80,80,80,80,181,181,181',
+'181,181,181,,181,,,75,181,,181,181,,181,181,181,181,181,181,181,314',
+'314,314,314,314,314,,314,,,315,314,,314,314,,314,314,314,314,314,314',
+'314,302,302,302,302,302,302,,302,,,,302,,302,302,,302,302,302,302,302',
+'302,302,,80,,,,,,,,199,199,199,199,199,199,,199,,,,199,,199,199,181',
+'199,199,199,199,199,199,199,200,200,200,200,200,200,,200,,,,200,,200',
+'200,314,200,200,200,200,200,200,200,300,300,300,300,300,300,,300,,,',
+'300,,300,300,302,300,300,300,300,300,300,300,275,275,275,275,275,275',
+',275,,,,275,,275,275,,275,275,275,275,275,275,275,,199,,,,,,300,300',
+',,,,300,201,201,201,201,201,201,,201,,,200,201,,201,201,,201,201,201',
+'201,201,201,201,207,207,207,207,207,207,,207,,,300,207,,207,207,,207',
+'207,207,207,207,207,207,210,210,210,210,210,210,,210,,,275,210,,210',
+'210,,210,210,210,210,210,210,210,202,202,202,202,202,202,,202,,,,202',
+',202,202,,202,202,202,202,202,202,202,,201,,,,,,,,269,269,269,269,269',
+'269,,269,,,,269,,269,269,207,269,269,269,269,269,269,269,203,203,203',
+'203,203,203,,203,,,,203,,203,203,210,203,203,203,203,203,203,203,204',
+'204,204,204,204,204,,204,,,,204,,204,204,202,204,204,204,204,204,204',
+'204,,,,,,,,,,143,143,143,143,143,143,,143,,,,143,,143,143,269,143,143',
+'143,143,143,143,143,,,,,,,,,,,,,,,,203,143,,143,143,143,143,143,143',
+'143,143,143,143,143,143,143,143,143,143,143,143,,,204,143,,143,143,143',
+'143,,143,143,143,143,143,143,,,,,,,,,,,143,143,143,143,143,143,143,143',
+'143,251,251,251,251,251,251,,251,,251,,251,,251,251,,251,251,251,251',
+'251,251,251,110,110,110,110,110,110,,110,,,,110,,110,110,,110,110,110',
+'110,110,110,110,70,70,70,70,70,70,70,70,70,70,70,70,,,70,70,70,70,110',
+'110,110,110,110,110,110,110,110,110,110,110,,,110,110,110,110,,205,205',
+'205,205,205,205,,205,,,251,205,,205,205,,205,205,205,205,205,205,205',
+'206,206,206,206,206,206,,206,,,110,206,,206,206,,206,206,206,206,206',
+'206,206,114,114,114,114,114,114,,114,,,,114,,114,114,,114,114,114,114',
+'114,114,114,115,115,115,115,115,115,,115,,,,115,,115,115,,115,115,115',
+'115,115,115,115,,205,,,,,,,,116,116,116,116,116,116,,116,,,,116,,116',
+'116,206,116,116,116,116,116,116,116,117,117,117,117,117,117,,117,,,',
+'117,,117,117,114,117,117,117,117,117,117,117,139,139,139,139,139,139',
+',139,,,,139,,139,139,115,139,139,139,139,139,139,139,241,241,241,241',
+'241,241,,241,,,,241,,241,241,,241,241,241,241,241,241,241,,116,,,,,',
+'139,,,,,,139,272,272,241,272,235,235,235,235,235,235,117,235,,272,,235',
+',235,235,,235,235,235,235,235,235,235,,,,,,,139,,,272,272,272,272,272',
+'272,272,272,272,272,272,272,,,272,272,272,272,,,241,231,231,231,231',
+'231,231,,231,,,,231,,231,231,,231,231,231,231,231,231,231,272,272,272',
+'272,272,272,272,272,,,,,,,,,231,235,231,231,231,231,231,231,231,231',
+'231,231,231,231,231,,231,231,231,231,,,,231,,231,231,231,231,,231,231',
+'231,231,231,231,335,,,,,,,,,,231,231,231,231,231,231,231,231,231,247',
+'247,,247,,,247,,,,,,,247,,,335,335,335,335,335,335,335,335,335,335,335',
+'335,,,335,335,335,335,,,247,247,247,247,247,247,247,247,247,247,247',
+'247,,,247,247,247,247,81,,,,,,335,335,335,335,335,335,335,335,,,,,,',
+',,245,,,,247,247,247,247,247,247,247,247,,81,81,81,81,81,81,81,81,81',
+'81,81,81,,,81,81,81,81,245,245,245,245,245,245,245,245,245,245,245,245',
+',,245,245,245,245,,,,,,,,,81,81,81,81,81,81,81,81,,,,,,,,,,,245,245',
+'245,245,245,245,245,245,5,5,5,5,5,5,5,5,5,5,5,5,,,5,5,5,5,252,252,252',
+'252,252,252,252,252,252,252,252,252,,252,252,252,252,252,,,,,,,,,5,5',
+'5,5,5,5,5,5,,,,,,,,,,,252,252,252,252,252,252,252,252,90,90,90,90,90',
+'90,90,90,90,90,90,90,,90,90,90,90,90,153,153,153,153,153,153,153,153',
+'153,153,153,153,,,153,153,153,153,,,,,,,,,90,90,90,90,90,90,90,90,,',
+',,,,,,,,153,153,153,153,153,153,153,153,87,87,87,87,87,87,87,87,87,87',
+'87,87,,,87,87,87,87,86,86,86,86,86,86,86,86,86,86,86,86,,,86,86,86,86',
+',,,,,,,,87,87,87,87,87,87,87,87,,,,,,,,,,,86,86,86,86,86,86,86,86,156',
+'156,156,156,156,156,156,156,156,156,156,156,,156,156,156,156,156,65',
+'65,65,65,65,65,65,65,65,65,65,65,,,65,65,65,65,,,,,,,,,156,156,156,156',
+'156,156,156,156,,,,,,,,,,,65,65,65,65,65,65,65,65,159,159,159,159,159',
+'159,159,159,159,159,159,159,,159,159,159,159,159,7,7,7,7,7,7,7,7,7,7',
+'7,7,,,7,7,7,7,,,,,,,,,159,159,159,159,159,159,159,159,,,,,,,,,,,7,7',
+'7,7,7,7,7,7,6,6,6,6,6,6,6,6,6,6,6,6,,,6,6,6,6,36,36,36,36,36,36,36,36',
+'36,36,36,36,,,36,36,36,36,,,,,,,,,6,6,6,6,6,6,6,6,71,71,71,71,71,71',
+'71,71,71,71,71,71,,,71,71,71,71' ]
+        racc_action_check = arr = ::Array.new(2877, nil)
+'440,440,440,440,440,440,293,440,56,293,52,440,293,440,440,440,52,139',
+'440,440,440,440,440,440,440,438,438,438,438,438,438,106,438,354,326',
+'103,438,65,438,438,438,151,326,438,438,438,438,438,438,438,88,29,440',
+'31,51,29,354,31,109,56,56,56,120,207,286,120,106,120,293,120,120,120',
+'52,328,212,324,151,438,324,212,51,440,440,440,328,440,440,440,440,440',
+'440,440,440,440,440,318,110,49,207,286,318,88,88,88,142,142,438,438',
+'438,31,438,438,438,438,438,438,438,438,438,438,436,436,436,436,436,436',
+'304,436,120,120,120,436,49,436,436,436,428,362,436,436,436,436,436,436',
+'436,98,116,428,362,304,316,98,227,340,222,316,309,222,340,340,98,304',
+'309,167,167,167,167,167,167,222,167,309,436,226,167,333,167,167,167',
+'167,98,167,167,167,167,167,167,167,394,4,297,309,339,297,334,4,225,339',
+'339,394,66,436,436,436,4,436,436,436,436,436,436,436,436,436,436,167',
+'167,167,167,167,167,167,167,167,167,167,167,167,167,167,167,167,167',
+'167,167,167,167,167,167,167,167,267,267,101,167,167,167,95,167,167,167',
+'167,167,167,167,167,167,167,429,429,429,429,429,429,364,429,68,373,94',
+'429,373,429,429,429,87,364,429,429,429,429,429,429,429,427,427,427,427',
+'427,427,187,427,71,83,217,427,83,427,427,427,217,187,427,427,427,427',
+'427,427,427,217,269,429,75,75,75,75,75,75,75,75,75,75,75,75,75,75,75',
+'75,75,133,53,221,426,53,133,133,427,418,418,291,429,429,429,426,429',
+'429,429,429,429,429,429,429,429,429,137,137,350,220,136,136,136,136',
+'214,214,351,427,427,427,220,427,427,427,427,427,427,427,427,427,427',
+'175,175,175,175,175,175,363,175,215,215,352,175,353,175,175,175,218',
+'363,175,175,175,175,175,175,175,76,76,76,76,76,76,76,76,76,76,76,76',
+'76,76,76,76,76,425,82,82,82,82,82,82,274,82,357,175,425,82,283,82,82',
+'82,82,73,82,82,82,82,82,82,82,72,201,347,347,347,347,209,201,348,348',
+'348,348,365,175,175,175,201,175,175,175,175,175,175,175,175,175,175',
+'82,82,82,82,82,82,82,82,82,82,82,82,82,82,82,82,82,82,82,82,82,82,82',
+'82,82,82,349,349,198,82,82,82,197,82,82,82,82,82,82,82,82,82,82,273',
+'273,273,273,273,273,371,273,135,135,189,273,374,273,273,273,346,346',
+'273,273,273,273,273,273,273,404,404,404,404,404,404,376,404,345,345',
+'79,404,186,404,404,404,79,184,404,404,404,404,404,404,404,79,380,273',
+'47,47,47,47,47,47,47,47,47,47,47,47,47,47,47,47,47,344,344,343,343,342',
+'342,138,404,99,99,179,273,273,273,178,273,273,273,273,273,273,273,273',
+'273,273,131,131,131,131,131,131,131,131,131,131,131,404,404,404,177',
+'404,404,404,404,404,404,404,404,404,404,402,402,402,402,402,402,176',
+'402,341,341,395,402,396,402,402,402,134,134,402,402,402,402,402,402',
+'402,275,275,275,275,275,275,102,275,27,403,77,275,25,275,275,275,77',
+'23,275,275,275,275,275,275,275,77,55,402,152,384,191,174,55,191,152',
+'384,191,173,408,412,414,55,416,152,384,191,281,422,172,140,165,141,275',
+'163,149,3,402,402,402,437,402,402,402,402,402,402,402,402,402,402,147',
+'1,,,,,,,,,,275,275,275,,275,275,275,275,275,275,275,275,275,275,360',
+'360,360,360,360,360,,360,,,,360,,360,360,360,,,360,360,360,360,360,360',
+'360,249,249,249,249,249,249,,249,,,,249,,249,249,,,,249,249,249,249',
+'249,249,249,,,360,383,383,383,383,383,383,,383,,,,383,,383,383,,,,383',
+'383,383,383,383,383,383,,,,360,360,360,,360,360,360,360,360,360,360',
+'360,360,360,,,,,,,377,377,377,377,377,377,,377,,377,,377,,377,377,,',
+'249,377,377,377,377,377,377,377,,,,367,367,367,367,367,367,,367,,,,367',
+',367,367,,,383,367,367,367,367,367,367,367,366,366,366,366,366,366,',
+'366,,,,366,,366,366,,,,366,366,366,366,366,366,366,,,367,,,,,,,,,,,',
+',377,,393,393,393,393,393,393,,393,,,366,393,,393,393,,,,393,393,393',
+'393,393,393,393,,367,,,,,,,,356,356,356,356,356,356,,356,,,,356,,356',
+'356,356,356,366,356,356,356,356,356,356,356,330,330,330,330,330,330',
+',330,,,,330,,330,330,,,,330,330,330,330,330,330,330,322,322,322,322',
+'322,322,,322,,393,,322,,322,322,322,,,322,322,322,322,322,322,322,,',
+',356,,,310,310,310,310,310,310,,310,,,,310,356,310,310,,,,310,310,310',
+'310,310,310,310,298,298,298,298,298,298,,298,,298,,298,330,298,298,',
+',,298,298,298,298,298,298,298,,,,,,,,,,,,,322,,,,,282,282,282,282,282',
+'282,,282,,,,282,,282,282,,,,282,282,282,282,282,282,282,,310,,,,,,,',
+',,,,,,,,,,,,,,,,,298,282,282,282,282,282,282,282,282,282,282,282,282',
+'282,282,282,282,282,282,282,282,282,282,282,282,282,282,280,280,280',
+'280,280,280,,280,,,,280,,280,280,282,,,280,280,280,280,280,280,280,146',
+'146,146,146,146,146,,146,,,,146,,146,146,146,,,146,146,146,146,146,146',
+'146,278,278,278,278,278,278,,278,,,,278,,278,278,,,,278,278,278,278',
+'278,278,278,,397,397,397,397,397,397,,397,,,,397,,397,397,,,280,397',
+'397,397,397,397,397,397,,,146,,,405,405,405,405,405,405,,405,,,,405',
+'146,405,405,,,,405,405,405,405,405,405,405,271,271,271,271,271,271,',
+'271,,,,271,278,271,271,,,,271,271,271,271,271,271,271,,266,266,266,266',
+'266,266,,266,,,,266,397,266,266,,,,266,266,266,266,266,266,266,80,80',
+'80,80,80,80,,80,,,,80,,80,80,80,,405,80,80,80,80,80,80,80,406,406,406',
+'406,406,406,406,406,,,,406,,406,406,,,271,406,406,406,406,406,406,406',
+',265,265,265,265,265,265,,265,,,,265,,265,265,,,266,265,265,265,265',
+'265,265,265,,,80,,,85,85,85,85,85,85,,85,,85,,85,80,85,85,,,,85,85,85',
+'85,85,85,85,264,264,264,264,264,264,,264,,,,264,406,264,264,,,,264,264',
+'264,264,264,264,264,,263,263,263,263,263,263,,263,,,,263,265,263,263',
+',,,263,263,263,263,263,263,263,262,262,262,262,262,262,,262,,,,262,',
+'262,262,,,85,262,262,262,262,262,262,262,261,261,261,261,261,261,,261',
+',,,261,,261,261,,,264,261,261,261,261,261,261,261,,260,260,260,260,260',
+'260,,260,,,,260,,260,260,,,263,260,260,260,260,260,260,260,259,259,259',
+'259,259,259,,259,,,,259,,259,259,,,262,259,259,259,259,259,259,259,258',
+'258,258,258,258,258,,258,,,,258,,258,258,,,261,258,258,258,258,258,258',
+'258,,257,257,257,257,257,257,,257,,,,257,,257,257,,,260,257,257,257',
+'257,257,257,257,256,256,256,256,256,256,,256,,,,256,,256,256,,,259,256',
+'256,256,256,256,256,256,255,255,255,255,255,255,,255,,,,255,,255,255',
+',,258,255,255,255,255,255,255,255,,254,254,254,254,254,254,,254,,,,254',
+',254,254,,,257,254,254,254,254,254,254,254,253,253,253,253,253,253,',
+'253,,,,253,,253,253,,,256,253,253,253,253,253,253,253,252,252,252,252',
+'252,252,,252,,,,252,,252,252,,,255,252,252,252,252,252,252,252,,251',
+'251,251,251,251,251,,251,,,,251,,251,251,,,254,251,251,251,251,251,251',
+'251,250,250,250,250,250,250,,250,,,,250,,250,250,,,253,250,250,250,250',
+'250,250,250,389,389,389,389,389,389,,389,,,,389,,389,389,389,,252,389',
+'389,389,389,389,389,389,,248,248,248,248,248,248,,248,,,,248,,248,248',
+',,251,248,248,248,248,248,248,248,,,,,,,,,,,,,,,,,,250,,,,,,,,,,389',
+',,117,117,117,117,117,117,,117,,,,117,389,117,117,,,,117,117,117,117',
+'117,117,117,,236,236,236,236,236,236,,236,,,,236,248,236,236,,,,236',
+'236,236,236,236,236,236,,,,,,,117,117,117,117,117,117,117,117,117,117',
+'117,117,117,117,117,117,117,,,121,121,121,121,121,121,,121,,,,121,,121',
+'121,,,117,121,121,121,121,121,121,121,,122,122,122,122,122,122,,122',
+',,,122,,122,122,,,236,122,122,122,122,122,122,122,123,123,123,123,123',
+'123,,123,,,,123,,123,123,,,,123,123,123,123,123,123,123,124,124,124',
+'124,124,124,,124,,,,124,,124,124,,,121,124,124,124,124,124,124,124,',
+',,,,,,,,,,,233,233,233,233,233,233,122,233,,,,233,,233,233,,,,233,233',
+'233,233,233,233,233,223,223,223,223,223,223,123,223,,,,223,,223,223',
+',,,223,223,223,223,223,223,223,,,,,,,124,233,233,233,233,233,233,233',
+'233,233,233,233,233,233,233,233,233,233,,,231,231,231,231,231,231,,231',
+',,,231,,231,231,,,233,231,231,231,231,231,231,231,224,224,224,224,224',
+'224,224,224,,,,224,,224,224,,,223,224,224,224,224,224,224,224,,,,,,',
+',231,231,231,231,231,231,231,231,231,231,231,231,231,231,231,231,231',
+',,213,213,213,213,213,213,,213,,,,213,,213,213,,,231,213,213,213,213',
+'213,213,213,210,210,210,210,210,210,,210,,,,210,,210,210,,,224,210,210',
+'210,210,210,210,210,180,180,180,180,180,180,,180,,,,180,,180,180,,,',
+'180,180,180,180,180,180,180,,407,407,407,407,407,407,407,407,,,,407',
+',407,407,,,213,407,407,407,407,407,407,407,,180,,,,435,435,435,435,435',
+'435,,435,,,,435,210,435,435,435,435,,435,435,435,435,435,435,435,164',
+'164,164,164,164,164,,164,,,,164,180,164,164,,,,164,164,164,164,164,164',
+'164,,279,279,279,279,279,279,,279,,,,279,407,279,279,,,,279,279,279',
+'279,279,279,279,,,435,,,,,,,,,,,,,,41,435,,,,,,,,,,,,,,,,,,,,,,,,,164',
+',,2,,,,,,,,,,,,,,,,,,,,,,,279,41,41,41,41,41,41,41,41,41,41,41,41,41',
+'41,41,41,41,41,41,41,41,41,41,41,41,41,,,41,2,2,2,2,2,2,2,2,2,2,2,2',
+'2,2,2,2,2,2,2,2,2,2,2,2,2,2,,2,2,294,294,,294,,,294,,,,,,,,,294,,,,',
+',,,,,325,325,,325,,,,,,,,,,,,325,,,,,,,,294,294,294,294,294,294,294',
+'294,294,294,294,294,294,294,294,294,294,294,294,294,294,294,294,294',
+'294,325,325,325,325,325,325,325,325,325,325,325,325,325,325,325,325',
+'325,325,325,325,325,325,325,325,325,86,,,,,86,,,,,,,,,,,,,,,,,,,,378',
+',,,,,,,,,,,,,,,,,,,,,86,86,86,86,86,86,86,86,86,86,86,86,86,86,86,86',
+'86,86,86,86,86,86,86,86,86,378,378,378,378,378,378,378,378,378,378,378',
+'378,378,378,378,378,378,378,378,378,378,378,378,378,378,292,7,7,7,7',
+'7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,,,,,,96,,,,,,,,,,,,292,292',
+'292,292,292,292,292,292,292,292,292,292,292,292,292,292,292,292,292',
+'292,292,292,292,292,292,96,96,96,96,96,96,96,96,96,96,96,96,96,96,96',
+'96,96,96,96,96,96,96,96,96,96,202,,,,,,,,,,,,,,,,,,,,,,,,,299,,,,,,',
+',,,,,202,202,202,202,202,202,202,202,202,202,202,202,202,202,202,202',
+'202,202,202,202,202,202,202,202,202,299,299,299,299,299,299,299,299',
+'299,299,299,299,299,299,299,299,299,299,299,299,299,299,299,299,299',
+'199,92,92,92,92,92,92,92,92,92,92,92,92,92,92,92,92,92,92,92,92,92,92',
+'92,92,92,,,,,,,,,,,,199,199,199,199,199,199,199,199,199,199,199,199',
+'199,199,199,199,199,199,199,199,199,199,199,199,199,8,8,8,8,8,8,8,8',
+'8,8,8,8,8,8,8,8,8,8,8,8,8,8,8,8,8,196,196,196,196,196,196,196,196,196',
+'196,196,196,196,196,196,196,196,196,196,196,196,196,196,196,196,6,6',
+'6,6,6,6,6,6,6,6,6,6,6,6,6,6,6,6,6,6,6,6,6,6,6,5,5,5,5,5,5,5,5,5,5,5',
+'5,5,5,5,5,5,5,5,5,5,5,5,5,5,93,93,93,93,93,93,93,93,93,93,93,93,93,93',
+'93,93,93,93,93,93,93,93,93,93,93,69,69,69,69,69,69,69,69,69,69,69,69',
+'69,69,69,69,69,69,69,69,69,69,69,69,69' ]
+        racc_action_check = arr = ::Array.new(3198, nil)
         idx = 0
         clist.each do |str|
 …
 racc_action_pointer = [
+   nil,   173,   432,   442,   425,  2414,  2764,  2712,   nil,   nil,
+   nil,   nil,   363,   nil,   332,   nil,   nil,   nil,   nil,   nil,
+   nil,   nil,   357,    -5,    -7,   nil,   nil,   nil,   nil,   nil,
+,   nil,   nil,   nil,   nil,   nil,  2782,   nil,   nil,   nil,
+   nil,   nil,   nil,   nil,   nil,   nil,    18,   nil,    21,   162,
+,   nil,   548,    -8,   nil,   nil,   nil,   nil,   nil,   nil,
+   nil,   267,   263,   nil,   231,  2642,   nil,   268,   139,   nil,
+,  2816,   428,   nil,   424,  1315,   nil,   nil,   217,   nil,
+,  2344,   119,    86,   nil,   nil,  2572,  2554,    39,   555,
+,   nil,   414,    12,   nil,   549,   575,   nil,   nil,   108,
+   nil,   nil,   545,   487,   nil,   nil,   nil,   nil,   nil,   554,
+,   nil,     2,   451,  1984,  2007,  2039,  2062,   nil,   nil,
+   nil,   nil,   nil,   nil,   nil,   nil,   273,   322,   412,   265,
+    -2,   492,   473,   470,   468,   351,   nil,   nil,   nil,  2085,
+,   nil,   489,  1761,   482,   nil,   480,   nil,   470,   nil,
+,   nil,   nil,  2502,   431,   423,  2624,   nil,   235,  2694,
+   nil,   nil,   nil,   nil,    74,   nil,   nil,   nil,   449,   620,
+,   nil,   546,   439,   nil,   442,   441,   nil,   206,   138,
+,  1398,   433,   409,   nil,   nil,   nil,    51,   nil,   902,
+   nil,   nil,   161,   184,   356,   379,   494,   833,   934,  1476,
+,  1582,  1651,  1706,  1729,  1938,  1961,  1605,    -2,    21,
+,    -7,   nil,   518,   nil,     4,   545,   nil,   nil,   nil,
+   nil,   nil,   nil,   nil,   nil,   nil,   nil,   nil,   nil,   527,
+,  2202,   530,   531,   500,  2149,   503,   nil,   541,   515,
+,  2108,   521,   nil,   nil,  2362,   204,  2291,   nil,   nil,
+,  1855,  2432,   nil,   nil,   nil,   nil,   109,   nil,   nil,
+   nil,   nil,   423,   nil,   nil,   nil,   nil,   nil,   nil,  1683,
+   nil,   122,  2140,   106,   nil,  1545,   596,   nil,   nil,   600,
+   nil,   nil,   nil,    87,   252,    57,   150,   218,   222,   225,
+,   439,   574,   287,   590,   -20,    -3,    10,    25,   nil,
+,    84,  1444,   nil,   nil,   nil,   nil,   nil,   nil,   nil,
+   nil,   nil,   nil,   nil,  1421,  1338,    82,  1292,  1269,  1081,
+,   987,   155,   nil,   nil,   187,   nil,   nil,   218,   nil,
+,   235,   nil,   250,   957,  2271,   nil,   291,   nil,   nil,
+,   nil,   nil,   nil,   879,   184,   nil,   nil,   856,   nil,
+   nil,   nil,   283,   319,   333,   338,   306,   342,   nil,   739,
+   nil,   nil,   nil,   352,   nil,   nil,   nil,   355,   nil,   360,
+   nil,   nil,   nil,   nil,   nil,   nil,   645,   526,   333,   310,
+,   nil,   nil,   nil,   nil,   326,   nil,   385,   355,   nil,
+,   365,   115,   nil,   nil,   400,  1175,   nil ]
+   nil,   732,  2528,   716,   182,  3068,  3043,  2752,  2993,   nil,
+   nil,   nil,   nil,   nil,   nil,   nil,   nil,   nil,   nil,   nil,
+   nil,   nil,   nil,   624,   nil,   619,   nil,   656,   nil,    38,
+   nil,    40,   nil,   nil,   nil,   nil,   nil,   nil,   nil,   nil,
+   nil,  2499,   nil,   nil,   nil,   nil,   nil,   510,   nil,    78,
+   nil,    37,     3,   322,   nil,   680,   -14,   nil,   nil,   nil,
+   nil,   nil,   nil,   nil,   nil,    20,   183,   nil,   249,  3118,
+   nil,   278,   429,   421,   nil,   252,   344,   664,   nil,   544,
+,   nil,   419,   285,   nil,  1473,  2701,   266,    28,   nil,
+   nil,   nil,  2932,  3093,   214,   193,  2819,   nil,   138,   576,
+   nil,   200,   654,    22,   nil,   nil,    12,   nil,   nil,    15,
+,   nil,   nil,   nil,   nil,   nil,   137,  1959,   nil,   nil,
+,  2035,  2061,  2086,  2111,   nil,   nil,   nil,   nil,   nil,
+   nil,   568,   nil,   306,   629,   495,   326,   318,   571,   -20,
+,   673,    64,   nil,   nil,   nil,  1235,   724,   nil,   702,
+   nil,    22,   682,   nil,   nil,   nil,   nil,   nil,   nil,   nil,
+   nil,   nil,   nil,   672,  2431,   669,   nil,   161,   nil,   nil,
+   nil,   nil,   702,   691,   685,   376,   635,   612,   546,   542,
+,   nil,   nil,   nil,   547,   nil,   545,   281,   nil,   507,
+   nil,   684,   nil,   nil,   nil,   nil,  3018,   451,   447,  2968,
+   nil,   440,  2881,   nil,   nil,   nil,   nil,    44,   nil,   410,
+,   nil,    61,  2300,   343,   368,   nil,   286,   381,   nil,
+,   322,   147,  2173,  2249,   189,   160,   139,   nil,   nil,
+   nil,  2224,   nil,  2148,   nil,   nil,  1985,   nil,   nil,   nil,
+   nil,   nil,   nil,   nil,   nil,   nil,   nil,   nil,  1904,   779,
+,  1828,  1802,  1777,  1752,  1726,  1701,  1676,  1650,  1625,
+,  1574,  1549,  1524,  1498,  1443,  1367,   223,   nil,   300,
+   nil,  1341,   nil,   514,   385,   659,   nil,   nil,  1260,  2457,
+,   619,  1132,   379,   nil,   nil,    45,   nil,   nil,   nil,
+   nil,   325,  2794,    -1,  2604,   nil,   nil,   183,  1090,  2906,
+   nil,   nil,   nil,   nil,   107,   nil,   nil,   nil,   nil,   149,
+,   nil,   nil,   nil,   nil,   nil,   137,   nil,    82,   nil,
+   nil,   nil,  1034,   nil,    68,  2629,    23,   nil,    65,   nil,
+,   nil,   nil,   167,   186,   nil,   nil,   nil,   nil,   170,
+,   621,   567,   559,   557,   520,   503,   417,   423,   464,
+,   326,   350,   351,    14,   nil,   984,   421,   nil,   nil,
+,   nil,   129,   376,   256,   451,   908,   883,   nil,   nil,
+   nil,   510,   nil,   260,   520,   nil,   539,   855,  2726,   nil,
+,   nil,   nil,   807,   683,   nil,   nil,   nil,   nil,  1878,
+   nil,   nil,   nil,   950,   180,   629,   631,  1286,   nil,   nil,
+   nil,   nil,   634,   653,   539,  1316,  1417,  2376,   687,   nil,
+   nil,   nil,   689,   nil,   693,   nil,   649,   nil,   318,   nil,
+   nil,   nil,   622,   nil,   nil,   412,   323,   281,   128,   256,
+   nil,   nil,   nil,   nil,   nil,  2406,   118,   666,    23,   nil,
+    -2,   nil,   nil,   nil,   nil,   nil,   nil ]
 racc_action_default = [
+  -174,  -241,    -1,  -241,  -241,   -70,   -71,   -72,   -80,   -81,
+   -82,   -83,   -84,   -85,   -86,   -87,   -88,   -89,   -90,   -91,
+   -92,   -93,   -96,  -241,  -241,  -127,  -132,  -133,  -175,  -176,
+  -241,  -178,  -179,  -182,  -183,  -184,  -241,  -230,  -231,  -232,
+  -233,  -234,  -235,  -236,  -237,   398,  -241,   -76,   -78,  -241,
+  -135,  -137,  -241,  -143,   -73,   -84,   -86,   -74,   -75,  -181,
+  -180,   -98,  -241,  -101,  -114,  -241,  -117,  -241,  -126,  -177,
+  -105,  -107,  -241,   -69,  -241,  -241,  -188,  -189,  -134,  -136,
+  -241,  -241,  -241,  -144,  -145,   -94,  -241,  -241,   -84,   -85,
+  -241,  -115,  -241,  -241,  -128,  -130,  -241,  -106,  -108,  -241,
+  -186,   -77,   -78,    -2,    -3,    -4,    -5,    -6,    -7,    -8,
+  -241,   -10,   -12,   -23,  -241,  -241,  -241,  -241,   -29,   -30,
+   -31,   -32,   -33,   -34,   -35,   -37,   -41,   -44,   -47,   -52,
+   -55,   -57,   -59,   -61,   -63,   -65,   -68,   -79,  -168,  -241,
+  -241,  -238,  -241,  -241,  -241,  -140,  -241,  -142,  -147,  -149,
+  -153,  -138,  -146,  -241,   -84,   -85,  -241,   -99,  -241,  -241,
+  -120,  -119,  -113,  -116,  -241,  -121,  -123,  -124,  -241,  -241,
+  -241,  -185,  -241,  -241,   -11,  -241,  -241,   -67,  -154,   -20,
+  -241,  -241,  -241,  -241,   -18,   -19,   -24,  -241,   -25,  -241,
+   -27,   -28,  -241,  -241,  -241,  -241,  -241,  -241,  -241,  -241,
+  -241,  -241,  -241,  -241,  -241,  -241,  -241,  -241,  -241,  -241,
+  -241,  -241,  -172,  -241,  -239,   -35,  -241,  -190,  -191,  -192,
+  -193,  -194,  -195,  -196,  -197,  -198,  -199,  -200,  -201,  -241,
+  -241,  -241,  -241,  -241,  -238,  -241,  -241,  -211,  -241,  -241,
+  -241,  -241,  -241,  -139,  -141,  -241,  -156,  -241,  -151,  -152,
+  -157,  -241,  -241,  -104,  -103,   -97,  -100,  -241,  -109,  -111,
+  -112,  -118,  -241,  -129,  -131,  -125,  -187,  -240,    -9,  -241,
+  -155,  -156,  -241,  -241,   -21,   -20,  -241,   -16,   -17,  -241,
+   -38,   -39,   -40,   -42,   -43,   -45,   -46,   -48,   -49,   -50,
+   -51,   -53,   -54,   -56,   -58,   -60,   -62,   -64,  -241,  -169,
+  -241,  -241,  -241,  -219,  -220,  -221,  -222,  -223,  -224,  -225,
+  -226,  -227,  -228,  -229,  -241,  -241,  -241,  -241,  -241,  -241,
+  -241,  -241,  -241,  -213,  -214,  -241,  -216,  -217,  -241,  -150,
+  -158,  -241,  -164,  -241,  -241,  -241,  -160,  -241,   -95,  -102,
+  -241,  -122,   -36,   -13,  -241,  -241,   -15,   -26,  -241,  -170,
+  -173,  -171,  -241,  -241,  -241,  -241,  -241,  -241,  -208,  -241,
+  -210,  -212,  -215,  -241,  -159,  -165,  -162,  -241,  -166,  -241,
+  -161,  -110,   -22,   -14,   -66,  -218,  -241,  -241,  -241,  -241,
+  -241,  -209,  -148,  -163,  -167,  -202,  -204,  -241,  -241,  -207,
+  -241,  -241,  -241,  -203,  -205,  -241,  -241,  -206 ]
+  -215,  -269,    -1,  -269,  -269,   -86,   -88,   -90,   -92,   -98,
+   -99,  -100,  -101,  -102,  -103,  -104,  -105,  -106,  -107,  -108,
+  -109,  -110,  -111,  -112,  -113,  -114,  -115,  -118,  -121,  -269,
+  -139,  -269,  -163,  -164,  -165,  -166,  -167,  -168,  -169,  -216,
+  -217,  -269,  -219,  -220,  -223,  -224,  -225,  -269,   447,  -269,
+   -94,   -96,  -269,  -171,  -173,  -269,  -180,   -87,  -112,  -114,
+   -89,   -91,   -93,  -222,  -221,  -120,  -269,  -124,  -138,  -269,
+  -142,  -269,  -155,  -158,  -218,  -130,  -132,  -269,   -85,  -269,
+  -269,  -229,  -269,  -170,  -172,  -269,  -269,  -269,  -181,  -182,
+  -184,  -116,  -269,  -269,  -112,  -113,  -269,  -140,  -269,  -269,
+  -159,  -161,  -269,  -269,  -129,  -131,  -269,  -227,   -95,   -96,
+    -2,    -3,    -4,    -5,    -6,    -7,    -8,  -269,   -10,   -12,
+   -25,  -269,  -269,  -269,  -269,   -31,   -32,   -33,   -34,   -35,
+   -36,   -37,   -39,   -43,   -46,   -49,   -54,   -57,   -59,   -61,
+   -63,   -65,   -67,   -69,   -97,  -209,  -269,  -269,  -265,  -269,
+   -82,  -269,  -269,  -230,  -231,  -232,  -233,  -234,  -235,  -236,
+  -237,  -238,  -239,  -265,  -269,  -269,  -243,  -269,  -245,  -247,
+  -248,  -249,  -269,  -269,  -269,  -269,  -269,  -269,  -269,  -269,
+  -269,  -268,   -37,   -84,  -269,  -176,  -269,  -269,  -179,  -186,
+  -188,  -192,  -193,  -174,  -183,  -185,  -269,  -112,  -113,  -269,
+  -122,  -269,  -269,  -145,  -144,  -137,  -141,  -269,  -146,  -148,
+  -269,  -151,  -269,  -269,  -269,  -269,  -226,  -269,  -269,   -11,
+  -269,  -269,  -195,  -269,  -269,  -269,  -269,  -269,   -19,   -20,
+   -26,  -269,   -27,  -269,   -29,   -30,  -269,   -71,   -72,   -73,
+   -74,   -75,   -76,   -77,   -78,   -79,   -80,   -81,  -269,  -269,
+  -269,  -269,  -269,  -269,  -269,  -269,  -269,  -269,  -269,  -269,
+  -269,  -269,  -269,  -269,  -269,  -269,  -269,  -269,  -213,  -269,
+  -266,  -269,  -250,  -269,  -269,  -269,  -244,  -246,  -269,  -269,
+  -269,  -269,  -269,  -269,  -261,  -262,  -269,  -263,  -175,  -177,
+  -178,  -269,  -269,  -197,  -269,  -190,  -191,  -198,  -269,  -269,
+  -128,  -127,  -119,  -123,  -269,  -133,  -135,  -136,  -143,  -269,
+  -269,  -149,  -153,  -160,  -162,  -152,  -269,  -156,  -269,  -228,
+  -267,    -9,  -269,  -196,  -197,  -269,  -269,   -14,  -269,   -23,
+  -269,   -17,   -18,  -269,  -269,   -70,   -40,   -41,   -42,   -44,
+   -45,   -47,   -48,   -50,   -51,   -52,   -53,   -55,   -56,   -58,
+   -60,   -62,   -64,   -66,  -269,  -210,  -269,  -269,   -83,  -240,
+  -269,  -242,  -269,  -269,  -269,  -269,  -269,  -269,  -260,  -264,
+  -194,  -269,  -189,  -199,  -269,  -205,  -269,  -269,  -269,  -201,
+  -269,  -117,  -125,  -269,  -269,  -147,  -150,  -154,  -157,  -269,
+   -38,   -13,   -15,  -269,  -269,   -28,  -269,  -269,  -211,  -214,
+  -212,  -241,  -269,  -269,  -269,  -269,  -269,  -269,  -269,  -200,
+  -206,  -203,  -269,  -207,  -269,  -202,  -269,  -134,  -269,   -24,
+   -16,   -68,  -251,  -253,  -254,  -269,  -269,  -269,  -269,  -269,
+  -187,  -204,  -208,  -126,   -21,  -269,  -269,  -269,  -269,  -256,
+  -269,  -258,   -22,  -252,  -255,  -257,  -259 ]
 racc_goto_table = [
+,     4,   144,   146,    54,    57,    58,   217,    84,    12,
+,   137,    78,   175,   258,   136,   273,   165,   188,   190,
+,   186,    72,    89,   256,    93,   176,   163,    70,     4,
+,   156,   249,    29,   283,   284,   302,    12,   152,    14,
+,     2,    71,   293,   155,    89,   215,    90,    89,   287,
+,   289,   290,   294,   170,   295,    97,    98,    33,    83,
+,    69,    70,    70,    92,   330,   296,    14,   100,   159,
+,   297,    88,   101,   136,   212,    71,    71,   285,   286,
+,    61,   274,   153,   276,   158,    92,    62,   166,    92,
+,   264,   175,   154,    88,   316,   163,    88,   252,   280,
+,   282,    70,   279,   136,   246,   291,   292,   257,    64,
+,   155,   345,   298,   155,   263,    71,    89,   180,   329,
+,   211,    28,    99,    76,   143,     1,   nil,   nil,   nil,
+   nil,   nil,   nil,   271,   215,   nil,   nil,   nil,   nil,   nil,
+   nil,   nil,   nil,   nil,   325,   nil,   248,   nil,   nil,   nil,
+   nil,   nil,   158,   nil,   259,   158,   nil,   320,    92,   nil,
+,   nil,   nil,   154,   nil,   nil,    88,   nil,   266,   nil,
+,   nil,   nil,   337,   nil,   nil,   342,   nil,   274,    70,
+   nil,   nil,   nil,   358,   nil,   360,   136,   341,   nil,   nil,
+   nil,   nil,   nil,    71,   nil,   nil,   371,   nil,   nil,   nil,
+   nil,   nil,   246,   nil,   nil,   352,   nil,   nil,   nil,    78,
+,   nil,   102,   nil,   nil,   nil,   nil,   353,   354,   nil,
+,   357,   215,   381,   215,   nil,   nil,   271,   nil,   nil,
+   nil,   nil,   nil,   nil,   nil,   136,   350,   nil,   nil,   nil,
+,   386,   nil,   nil,   150,   nil,   150,   372,   nil,   nil,
+   nil,   158,   nil,   nil,   393,   nil,   367,   369,   166,   154,
+,   nil,   215,   nil,   nil,   nil,   nil,   nil,   nil,   136,
+   nil,   150,   nil,   nil,   nil,   nil,   nil,   nil,   nil,   215,
+,   387,   388,   374,   nil,   nil,   nil,   nil,   nil,   nil,
+   nil,   nil,   nil,   215,   nil,   395,   nil,   nil,   nil,   215,
+,   144,   145,    81,   183,   182,   184,   281,   186,    23,
+,    95,   208,    83,   206,   305,   303,   313,   328,   169,
+,     4,   199,   230,    57,    60,    61,    62,    75,    89,
+,    99,   168,   221,   198,    95,   296,    77,    95,   220,
+,   182,   232,   234,   235,    65,    96,   207,    23,    76,
+,   366,   343,   344,   345,   346,    75,    75,    90,    25,
+,   194,   214,   215,    66,   104,   105,   323,   145,    74,
+,   373,   196,   107,    68,   109,    94,    76,    76,   347,
+,   339,   340,   183,   182,   274,   341,   342,    98,   108,
+,   236,   187,    88,   209,   372,   353,   352,    75,   197,
+,   152,   286,    94,   169,   359,    39,   361,   351,   106,
+,   201,    98,   349,     2,    98,   303,   277,   167,    76,
+,   313,   225,   313,   394,     1,   299,   nil,   nil,   183,
+,   311,   183,   182,   314,   406,   407,   nil,   198,   nil,
+   nil,   198,   nil,   nil,    95,   326,   329,   333,   109,   334,
+,   337,   338,   220,   nil,   220,   nil,   nil,   335,   nil,
+   nil,   nil,   nil,   nil,   293,   nil,   nil,   nil,   182,   182,
+,   182,   182,   182,   182,   182,   182,   182,   182,   182,
+,   182,   182,   182,   182,   182,   152,   295,   354,   nil,
+   nil,   nil,   401,   358,   nil,   324,   nil,   306,   417,   nil,
+,   363,   364,   197,   nil,   nil,   197,   nil,   nil,    94,
+   nil,   nil,    75,   319,    75,   201,   nil,   nil,   201,   367,
+,    98,   nil,   385,   390,   nil,   nil,   nil,   nil,   183,
+,   386,   nil,    76,   422,    76,   424,   nil,   nil,   nil,
+   nil,   198,   182,   nil,   nil,   nil,   nil,   nil,   nil,   nil,
+   nil,   nil,   329,   418,    83,   nil,   nil,   nil,   nil,   439,
+   nil,   441,   nil,   nil,   nil,   nil,   nil,   293,   443,   nil,
+,   nil,   446,   nil,   nil,   nil,   nil,   399,   145,   nil,
+   nil,   nil,   nil,   nil,   nil,   nil,   nil,   nil,   nil,   nil,
+   nil,   nil,   nil,   nil,   nil,   nil,   nil,   nil,   324,   412,
+,   152,   183,   182,   416,   209,   197,   nil,   nil,   nil,
+   nil,   145,   nil,   nil,   nil,   419,   421,   182,   201,   nil,
+   nil,   nil,   nil,   nil,   nil,   nil,   nil,   425,   426,   428,
    nil,   nil,   nil,   nil,   nil,   nil,   nil,   nil,   nil,   nil,
    nil,   nil,   nil,   nil,   nil,   nil,   nil,   nil,   nil,   nil,
+   nil,   nil,   nil,   nil,   nil,   nil,   nil,   nil,   nil,   nil,
+   nil,   nil,   nil,   nil,   150,   nil,   259 ]
+racc_goto_check = [
+,    27,    25,    55,    27,    27,    27,    68,    53,    34,
+,    33,    54,     6,    44,    24,     8,    49,    10,    10,
+,    12,    43,    35,    41,    51,    13,    47,    30,    27,
+,    38,    58,    62,    14,    14,    77,    34,    53,    36,
+,     2,     9,    18,    35,    35,    10,    46,    35,    16,
+,    16,    16,    19,    51,    20,    43,    43,    26,     9,
+,    62,    30,    30,    27,    59,    21,    36,    32,    46,
+,    22,    34,    31,    24,    33,     9,     9,    15,    15,
+,    37,     6,    39,     6,    27,    27,    40,    32,    27,
+,    25,     6,    34,    34,    68,    47,    34,    38,    12,
+,    12,    30,    13,    24,    53,    17,    17,    42,    45,
+,    35,     8,     6,    35,    52,     9,    35,     9,    57,
+,    60,    61,    65,    66,    67,     1,   nil,   nil,   nil,
+   nil,   nil,   nil,    53,    10,   nil,   nil,   nil,   nil,   nil,
+   nil,   nil,   nil,   nil,     6,   nil,    32,   nil,   nil,   nil,
+   nil,   nil,    27,   nil,    32,    27,   nil,    25,    27,   nil,
+,   nil,   nil,    34,   nil,   nil,    34,   nil,    32,   nil,
+,   nil,   nil,    25,   nil,   nil,    12,   nil,     6,    30,
+   nil,   nil,   nil,    68,   nil,    68,    24,    49,   nil,   nil,
+   nil,   nil,   nil,     9,   nil,   nil,    44,   nil,   nil,   nil,
+   nil,   nil,    53,   nil,   nil,     6,   nil,   nil,   nil,    54,
+,   nil,    32,   nil,   nil,   nil,   nil,     6,     6,   nil,
+,     6,    10,    68,    10,   nil,   nil,    53,   nil,   nil,
+   nil,   nil,   nil,   nil,   nil,    24,    33,   nil,   nil,   nil,
+,    68,   nil,   nil,    27,   nil,    27,     6,   nil,   nil,
+   nil,    27,   nil,   nil,    68,   nil,    25,    55,    32,    34,
+,   nil,    10,   nil,   nil,   nil,   nil,   nil,   nil,    24,
+   nil,    27,   nil,   nil,   nil,   nil,   nil,   nil,   nil,    10,
+,     6,     6,    24,   nil,   nil,   nil,   nil,   nil,   nil,
+   nil,   nil,   nil,    10,   nil,     6,   nil,   nil,   nil,    10,
+   nil,   nil,   nil,   nil,   nil,   423,   399,   145,   nil,   nil,
    nil,   nil,   nil,   nil,   nil,   nil,   nil,   nil,   nil,   nil,
    nil,   nil,   nil,   nil,   nil,   nil,   nil,   nil,   nil,   nil,
+]
+racc_goto_check = [
+,    37,    12,    72,    26,    13,    28,    73,    60,    38,
+,    39,    55,    59,    53,    49,    46,    57,     8,    29,
+,    30,    43,    15,    30,    30,    30,    30,    33,    58,
+,    56,    84,    10,    39,    39,    65,    48,    39,     6,
+,    13,    13,    13,    13,    42,    52,    54,    38,     9,
+,    75,    18,    18,    18,    18,    33,    33,     9,    40,
+,    58,    56,    56,    45,    48,    48,    65,    12,    68,
+,    66,    44,    36,    51,    36,    38,     9,     9,    19,
+,    16,    16,    26,    13,    28,    17,    17,    30,    35,
+,    27,    61,    62,    36,    64,    24,    23,    33,    38,
+,    30,     6,    38,    29,    73,    67,    73,    22,    71,
+,    30,    30,    20,     2,    30,    46,    84,    83,     9,
+,    57,     9,    57,     8,     1,    43,   nil,   nil,    26,
+,    28,    26,    13,    28,    75,    75,   nil,    39,   nil,
+   nil,    39,   nil,   nil,    39,     6,    12,    10,    36,    10,
+,    15,    15,     6,   nil,     6,   nil,   nil,    12,   nil,
+   nil,   nil,   nil,   nil,    58,   nil,   nil,   nil,    13,    13,
+,    13,    13,    13,    13,    13,    13,    13,    13,    13,
+,    13,    13,    13,    13,    13,    30,    36,     6,   nil,
+   nil,   nil,    73,    12,   nil,    58,   nil,    36,    49,   nil,
+,     6,     6,    38,   nil,   nil,    38,   nil,   nil,    38,
+   nil,   nil,    33,    36,    33,    30,   nil,   nil,    30,    29,
+,    30,   nil,    55,    15,   nil,   nil,   nil,   nil,    26,
+,    28,   nil,     9,    73,     9,    73,   nil,   nil,   nil,
+   nil,    39,    13,   nil,   nil,   nil,   nil,   nil,   nil,   nil,
+   nil,   nil,    12,    11,    59,   nil,   nil,   nil,   nil,    73,
+   nil,    73,   nil,   nil,   nil,   nil,   nil,    58,    73,   nil,
+,   nil,    73,   nil,   nil,   nil,   nil,    37,    12,   nil,
    nil,   nil,   nil,   nil,   nil,   nil,   nil,   nil,   nil,   nil,
+   nil,   nil,   nil,   nil,    27,   nil,    32 ]
+   nil,   nil,   nil,   nil,   nil,   nil,   nil,   nil,    58,    12,
+,    30,    26,    13,    28,    36,    38,   nil,   nil,   nil,
+   nil,    12,   nil,   nil,   nil,    12,    26,    13,    30,   nil,
+   nil,   nil,   nil,   nil,   nil,   nil,   nil,     6,     6,     6,
+   nil,   nil,   nil,   nil,   nil,   nil,   nil,   nil,   nil,   nil,
+   nil,   nil,   nil,   nil,   nil,   nil,   nil,   nil,   nil,   nil,
+   nil,   nil,   nil,   nil,   nil,    72,    37,    12,   nil,   nil,
+   nil,   nil,   nil,   nil,   nil,   nil,   nil,   nil,   nil,   nil,
+   nil,   nil,   nil,   nil,   nil,   nil,   nil,   nil,   nil,   nil,
+]
 racc_goto_pointer = [
+   nil,   126,    41,   nil,   nil,   nil,   -97,   nil,  -163,     6,
+   -97,   nil,   -93,   -84,  -161,  -119,  -150,   -97,  -162,  -153,
+  -152,  -142,  -138,   nil,   -65,   -78,    28,    -1,   nil,   nil,
+    -8,    -1,    -4,   -64,     7,   -42,    37,    59,   -55,    -2,
+,  -132,   -50,   -14,  -144,    86,   -18,   -63,    18,   -75,
+   nil,   -42,   -53,   -45,   -37,   -78,   nil,  -126,  -118,  -206,
+   -18,   120,    31,   nil,   nil,    51,    76,    48,  -136,   nil,
+   nil,   nil,   nil,   nil,   nil,   nil,   nil,  -179 ]
+   nil,   125,   114,   nil,   nil,   nil,   -78,   nil,  -206,     2,
+   -84,  -136,   -78,   -80,   nil,   -98,  -170,  -167,  -203,  -180,
+  -148,  -152,  -155,  -167,  -169,   nil,   -81,   -40,   -79,   -63,
+,   nil,   nil,   -19,   nil,    10,    -4,   -79,     7,   -58,
+,   nil,    18,   -70,   -19,    37,  -183,  -151,   -10,  -186,
+   nil,    45,   -23,   -82,   -51,   -86,   -40,  -195,   -27,   -39,
+   -78,     6,    37,   nil,  -197,  -155,  -253,   104,    28,   nil,
+   nil,    32,   -48,  -168,   nil,  -231,   nil,   nil,   nil,   nil,
+   nil,   nil,   nil,    36,   -50 ]
 racc_goto_default = [
+   nil,   nil,   nil,   112,   103,   109,   242,   113,   nil,     7,
+,   114,   125,   nil,   126,   127,   128,   129,   130,   131,
+,   133,   134,   135,   177,   138,   218,   216,    46,     5,
+,    47,    82,   nil,    55,    13,    56,   nil,   nil,   nil,
+   nil,   157,   nil,   178,   nil,   nil,   nil,    91,   nil,   nil,
+,   nil,    94,    49,    50,   333,   148,   149,   331,   250,
+   nil,   nil,   nil,    31,    32,   nil,   225,   nil,   nil,   219,
+,   221,   222,   223,   224,   226,   227,   nil ]
+   nil,   nil,   nil,   119,   110,   116,   151,   120,   nil,     7,
+   nil,   nil,   150,   131,   121,   132,   133,   134,   135,   136,
+,   138,   139,   140,   141,   142,   143,   nil,   nil,    44,
+,    49,     5,     6,     8,    50,    87,   268,    58,    24,
+,    27,   nil,   nil,   nil,   nil,   200,   nil,   222,   nil,
+,   nil,   nil,    97,   nil,   nil,   nil,   100,    52,    53,
+,   nil,   nil,   189,   190,   374,   297,   nil,   nil,    42,
+,   nil,   154,   170,   153,   155,   156,   157,   158,   159,
+,   161,   162,   nil,   nil ]
 racc_reduce_table = [
 , 0, :racc_error,
+, 97, :_reduce_none,
+, 99, :_reduce_2,
+, 99, :_reduce_3,
+, 99, :_reduce_4,
+, 99, :_reduce_5,
+, 99, :_reduce_6,
+, 99, :_reduce_7,
+, 99, :_reduce_8,
+, 99, :_reduce_9,
+, 101, :_reduce_10,
+, 101, :_reduce_11,
+, 103, :_reduce_none,
+, 103, :_reduce_none,
+, 103, :_reduce_none,
+, 103, :_reduce_15,
+, 103, :_reduce_16,
+, 103, :_reduce_17,
+, 103, :_reduce_18,
+, 103, :_reduce_19,
+, 104, :_reduce_none,
+, 98, :_reduce_none,
+, 100, :_reduce_2,
+, 100, :_reduce_3,
+, 100, :_reduce_4,
+, 100, :_reduce_5,
+, 100, :_reduce_6,
+, 100, :_reduce_7,
+, 100, :_reduce_8,
+, 100, :_reduce_9,
+, 102, :_reduce_10,
+, 102, :_reduce_11,
 , 104, :_reduce_none,
+, 104, :_reduce_13,
 , 104, :_reduce_none,
+, 106, :_reduce_none,
+, 106, :_reduce_24,
+, 106, :_reduce_25,
+, 106, :_reduce_26,
+, 106, :_reduce_27,
+, 106, :_reduce_28,
+, 107, :_reduce_29,
+, 107, :_reduce_30,
+, 107, :_reduce_31,
+, 107, :_reduce_32,
+, 107, :_reduce_33,
+, 107, :_reduce_34,
+, 108, :_reduce_none,
+, 108, :_reduce_36,
+, 104, :_reduce_none,
+, 104, :_reduce_none,
+, 104, :_reduce_17,
+, 104, :_reduce_18,
+, 104, :_reduce_19,
+, 104, :_reduce_20,
+, 104, :_reduce_none,
+, 104, :_reduce_none,
+, 105, :_reduce_none,
+, 105, :_reduce_none,
 , 110, :_reduce_none,
+, 110, :_reduce_38,
+, 110, :_reduce_39,
+, 110, :_reduce_40,
+, 111, :_reduce_none,
+, 111, :_reduce_42,
+, 111, :_reduce_43,
+, 110, :_reduce_26,
+, 110, :_reduce_27,
+, 110, :_reduce_28,
+, 110, :_reduce_29,
+, 110, :_reduce_30,
+, 111, :_reduce_31,
+, 111, :_reduce_32,
+, 111, :_reduce_33,
+, 111, :_reduce_34,
+, 111, :_reduce_35,
+, 111, :_reduce_36,
 , 112, :_reduce_none,
+, 112, :_reduce_45,
+, 112, :_reduce_46,
+, 112, :_reduce_38,
 , 113, :_reduce_none,
+, 113, :_reduce_48,
+, 113, :_reduce_49,
+, 113, :_reduce_50,
+, 113, :_reduce_51,
+, 113, :_reduce_40,
+, 113, :_reduce_41,
+, 113, :_reduce_42,
 , 114, :_reduce_none,
 , 114, :_reduce_53,
 , 114, :_reduce_54,
+, 114, :_reduce_44,
+, 114, :_reduce_45,
 , 115, :_reduce_none,
+, 115, :_reduce_56,
+, 115, :_reduce_47,
+, 115, :_reduce_48,
 , 116, :_reduce_none,
+, 116, :_reduce_58,
+, 116, :_reduce_50,
+, 116, :_reduce_51,
+, 116, :_reduce_52,
+, 116, :_reduce_53,
 , 117, :_reduce_none,
+, 117, :_reduce_60,
+, 117, :_reduce_55,
+, 117, :_reduce_56,
 , 118, :_reduce_none,
 , 118, :_reduce_62,
+, 118, :_reduce_58,
 , 119, :_reduce_none,
 , 119, :_reduce_64,
+, 119, :_reduce_60,
 , 120, :_reduce_none,
 , 120, :_reduce_66,
 , 102, :_reduce_67,
 , 121, :_reduce_68,
 , 122, :_reduce_none,
 , 123, :_reduce_70,
+, 120, :_reduce_62,
+, 121, :_reduce_none,
+, 121, :_reduce_64,
+, 122, :_reduce_none,
+, 122, :_reduce_66,
 , 123, :_reduce_none,
+, 123, :_reduce_72,
+, 123, :_reduce_73,
+, 123, :_reduce_74,
+, 123, :_reduce_75,
+, 124, :_reduce_76,
+, 124, :_reduce_77,
+, 123, :_reduce_68,
+, 109, :_reduce_none,
+, 109, :_reduce_none,
+, 124, :_reduce_none,
+, 124, :_reduce_none,
+, 124, :_reduce_none,
+, 124, :_reduce_none,
+, 124, :_reduce_none,
+, 124, :_reduce_none,
+, 124, :_reduce_none,
+, 124, :_reduce_none,
+, 124, :_reduce_none,
+, 124, :_reduce_none,
+, 124, :_reduce_none,
+, 103, :_reduce_82,
+, 103, :_reduce_83,
+, 125, :_reduce_84,
+, 126, :_reduce_none,
+, 127, :_reduce_86,
+, 127, :_reduce_87,
 , 127, :_reduce_none,
+, 127, :_reduce_79,
+, 126, :_reduce_80,
+, 126, :_reduce_81,
+, 126, :_reduce_82,
+, 126, :_reduce_83,
+, 126, :_reduce_84,
+, 126, :_reduce_85,
+, 126, :_reduce_86,
+, 126, :_reduce_87,
+, 126, :_reduce_88,
+, 126, :_reduce_89,
+, 126, :_reduce_90,
+, 126, :_reduce_91,
+, 126, :_reduce_92,
+, 126, :_reduce_93,
+, 135, :_reduce_94,
+, 130, :_reduce_95,
+, 136, :_reduce_96,
+, 130, :_reduce_97,
+, 130, :_reduce_98,
+, 134, :_reduce_none,
+, 134, :_reduce_none,
+, 133, :_reduce_101,
+, 137, :_reduce_102,
+, 137, :_reduce_none,
+, 137, :_reduce_none,
+, 139, :_reduce_none,
+, 139, :_reduce_106,
+, 139, :_reduce_107,
+, 139, :_reduce_108,
+, 138, :_reduce_109,
+, 138, :_reduce_110,
+, 127, :_reduce_89,
+, 127, :_reduce_90,
+, 127, :_reduce_91,
+, 127, :_reduce_none,
+, 127, :_reduce_none,
+, 128, :_reduce_94,
+, 128, :_reduce_95,
+, 132, :_reduce_none,
+, 132, :_reduce_97,
+, 129, :_reduce_none,
+, 129, :_reduce_none,
+, 129, :_reduce_none,
+, 129, :_reduce_none,
+, 130, :_reduce_102,
+, 130, :_reduce_103,
+, 130, :_reduce_104,
+, 130, :_reduce_105,
+, 130, :_reduce_106,
+, 130, :_reduce_107,
+, 130, :_reduce_108,
+, 130, :_reduce_109,
+, 130, :_reduce_110,
+, 130, :_reduce_111,
+, 130, :_reduce_112,
+, 130, :_reduce_113,
+, 130, :_reduce_114,
+, 130, :_reduce_115,
+, 141, :_reduce_116,
+, 135, :_reduce_117,
+, 142, :_reduce_118,
+, 135, :_reduce_119,
+, 135, :_reduce_120,
+, 138, :_reduce_121,
 , 140, :_reduce_none,
+, 131, :_reduce_none,
+, 131, :_reduce_none,
+, 131, :_reduce_none,
+, 142, :_reduce_none,
+, 142, :_reduce_none,
+, 141, :_reduce_none,
+, 143, :_reduce_none,
+, 140, :_reduce_none,
+, 139, :_reduce_124,
+, 143, :_reduce_125,
+, 143, :_reduce_126,
 , 143, :_reduce_none,
 , 143, :_reduce_none,
+, 144, :_reduce_none,
+, 144, :_reduce_none,
+, 145, :_reduce_129,
 , 145, :_reduce_none,
+, 132, :_reduce_none,
+, 132, :_reduce_none,
+, 132, :_reduce_none,
+, 146, :_reduce_127,
+, 147, :_reduce_none,
+, 147, :_reduce_none,
+, 145, :_reduce_131,
+, 145, :_reduce_132,
+, 144, :_reduce_133,
+, 144, :_reduce_134,
+, 146, :_reduce_none,
+, 136, :_reduce_none,
+, 136, :_reduce_none,
+, 136, :_reduce_none,
+, 147, :_reduce_139,
+, 149, :_reduce_none,
+, 149, :_reduce_none,
 , 148, :_reduce_none,
+, 148, :_reduce_none,
+, 105, :_reduce_132,
+, 105, :_reduce_133,
+, 128, :_reduce_134,
+, 128, :_reduce_none,
+, 128, :_reduce_136,
+, 150, :_reduce_137,
+, 150, :_reduce_138,
+, 150, :_reduce_139,
+, 150, :_reduce_140,
+, 150, :_reduce_141,
+, 150, :_reduce_142,
+, 149, :_reduce_143,
+, 149, :_reduce_144,
+, 149, :_reduce_145,
+, 149, :_reduce_146,
+, 150, :_reduce_none,
+, 150, :_reduce_none,
+, 150, :_reduce_none,
 , 151, :_reduce_none,
 , 151, :_reduce_none,
+, 151, :_reduce_none,
 , 152, :_reduce_none,
+, 152, :_reduce_none,
 , 152, :_reduce_none,
+, 153, :_reduce_none,
+, 153, :_reduce_none,
+, 137, :_reduce_none,
+, 137, :_reduce_none,
+, 137, :_reduce_none,
+, 137, :_reduce_none,
+, 137, :_reduce_none,
+, 137, :_reduce_none,
+, 137, :_reduce_none,
+, 137, :_reduce_none,
 , 153, :_reduce_none,
+, 109, :_reduce_none,
+, 109, :_reduce_none,
+, 153, :_reduce_none,
 , 154, :_reduce_none,
+, 154, :_reduce_none,
+, 154, :_reduce_none,
+, 155, :_reduce_none,
+, 155, :_reduce_none,
+, 155, :_reduce_none,
+, 155, :_reduce_none,
+, 155, :_reduce_none,
+, 155, :_reduce_164,
+, 155, :_reduce_none,
+, 155, :_reduce_166,
+, 155, :_reduce_none,
+, 129, :_reduce_168,
+, 129, :_reduce_169,
+, 129, :_reduce_170,
+, 129, :_reduce_171,
+, 156, :_reduce_172,
+, 156, :_reduce_173,
+, 98, :_reduce_none,
+, 98, :_reduce_none,
+, 154, :_reduce_none,
+, 106, :_reduce_163,
+, 106, :_reduce_none,
+, 106, :_reduce_165,
+, 131, :_reduce_none,
+, 131, :_reduce_none,
+, 131, :_reduce_none,
+, 131, :_reduce_none,
+, 133, :_reduce_170,
+, 133, :_reduce_none,
+, 133, :_reduce_172,
+, 156, :_reduce_173,
+, 156, :_reduce_174,
+, 156, :_reduce_175,
+, 156, :_reduce_176,
+, 156, :_reduce_177,
+, 156, :_reduce_none,
+, 156, :_reduce_179,
+, 155, :_reduce_180,
+, 155, :_reduce_181,
+, 155, :_reduce_182,
+, 155, :_reduce_183,
+, 159, :_reduce_none,
+, 159, :_reduce_none,
 , 157, :_reduce_none,
+, 157, :_reduce_none,
+, 157, :_reduce_none,
+, 160, :_reduce_none,
+, 160, :_reduce_none,
+, 161, :_reduce_none,
+, 161, :_reduce_none,
+, 161, :_reduce_none,
 , 158, :_reduce_none,
+, 158, :_reduce_none,
+, 158, :_reduce_none,
+, 158, :_reduce_none,
+, 158, :_reduce_none,
+, 158, :_reduce_none,
+, 158, :_reduce_none,
+, 159, :_reduce_185,
+, 161, :_reduce_186,
+, 161, :_reduce_187,
+, 160, :_reduce_none,
+, 163, :_reduce_none,
+, 158, :_reduce_none,
+, 107, :_reduce_none,
+, 107, :_reduce_none,
+, 162, :_reduce_none,
+, 162, :_reduce_none,
+, 162, :_reduce_none,
+, 163, :_reduce_none,
 , 163, :_reduce_none,
+, 163, :_reduce_none,
+, 163, :_reduce_none,
+, 163, :_reduce_none,
+, 163, :_reduce_205,
+, 163, :_reduce_none,
+, 163, :_reduce_207,
+, 163, :_reduce_none,
+, 134, :_reduce_209,
+, 134, :_reduce_210,
+, 134, :_reduce_211,
+, 134, :_reduce_212,
+, 108, :_reduce_213,
+, 108, :_reduce_214,
+, 99, :_reduce_none,
+, 99, :_reduce_none,
 , 164, :_reduce_none,
+, 164, :_reduce_none,
+, 164, :_reduce_none,
+, 164, :_reduce_none,
+, 164, :_reduce_none,
+, 164, :_reduce_none,
+, 164, :_reduce_none,
+, 164, :_reduce_none,
+, 164, :_reduce_none,
+, 164, :_reduce_none,
+, 164, :_reduce_none,
+, 165, :_reduce_none,
+, 165, :_reduce_none,
+, 166, :_reduce_none,
+, 167, :_reduce_none,
+, 168, :_reduce_none,
+, 169, :_reduce_none,
+, 170, :_reduce_none,
+, 170, :_reduce_none,
+, 170, :_reduce_none,
+, 162, :_reduce_none,
+, 164, :_reduce_none,
+, 165, :_reduce_none,
+, 165, :_reduce_none,
+, 165, :_reduce_none,
+, 165, :_reduce_none,
+, 165, :_reduce_none,
+, 165, :_reduce_none,
+, 165, :_reduce_none,
+, 166, :_reduce_226,
+, 168, :_reduce_227,
+, 168, :_reduce_228,
+, 167, :_reduce_none,
+, 170, :_reduce_none,
+, 170, :_reduce_none,
+, 170, :_reduce_none,
+, 170, :_reduce_none,
+, 170, :_reduce_none,
+, 170, :_reduce_none,
+, 170, :_reduce_none,
+, 170, :_reduce_none,
+, 170, :_reduce_none,
+, 170, :_reduce_none,
 , 171, :_reduce_none,
+, 171, :_reduce_none,
+, 171, :_reduce_none,
+, 171, :_reduce_none,
 , 171, :_reduce_none,
+, 171, :_reduce_none,
+, 169, :_reduce_none,
+, 169, :_reduce_none,
+, 180, :_reduce_none,
+, 180, :_reduce_none,
+, 181, :_reduce_none,
+, 181, :_reduce_none,
+, 172, :_reduce_none,
 , 172, :_reduce_none,
+, 172, :_reduce_none,
+, 173, :_reduce_none,
+, 173, :_reduce_none,
+, 173, :_reduce_none,
+, 173, :_reduce_none,
+, 173, :_reduce_none,
+, 173, :_reduce_none,
+, 173, :_reduce_none,
+, 173, :_reduce_none,
+, 173, :_reduce_none,
+, 173, :_reduce_none,
+, 173, :_reduce_none,
+, 125, :_reduce_none,
+, 125, :_reduce_none,
+, 125, :_reduce_none,
+, 125, :_reduce_none,
+, 125, :_reduce_none,
+, 125, :_reduce_none,
+, 125, :_reduce_none,
+, 125, :_reduce_none,
+, 100, :_reduce_238,
+, 100, :_reduce_239,
+, 100, :_reduce_240 ]
+racc_reduce_n = 241
+racc_shift_n = 398
+, 173, :_reduce_none,
+, 173, :_reduce_none,
+, 177, :_reduce_none,
+, 174, :_reduce_none,
+, 175, :_reduce_none,
+, 176, :_reduce_none,
+, 176, :_reduce_none,
+, 176, :_reduce_none,
+, 176, :_reduce_none,
+, 178, :_reduce_none,
+, 178, :_reduce_none,
+, 178, :_reduce_none,
+, 178, :_reduce_none,
+, 178, :_reduce_none,
+, 101, :_reduce_265,
+, 101, :_reduce_266,
+, 101, :_reduce_267,
+, 179, :_reduce_268 ]
+racc_reduce_n = 269
+racc_shift_n = 447
 racc_token_table = {
 …
   "++" => 15,
   "--" => 16,
+  "," => 17,
+  :SIZEOF => 18,
+  "&" => 19,
+  "*" => 20,
+  "+" => 21,
+  "-" => 22,
+  "~" => 23,
+  "!" => 24,
+  "/" => 25,
+  "%" => 26,
+  "<<" => 27,
+  ">>" => 28,
+  "<" => 29,
+  ">" => 30,
+  "<=" => 31,
+  ">=" => 32,
+  "==" => 33,
+  "!=" => 34,
+  "^" => 35,
+  "|" => 36,
+  "&&" => 37,
+  "||" => 38,
+  "?" => 39,
+  ":" => 40,
+  ";" => 41,
+  "=" => 42,
+  :VOID => 43,
+  :FLOAT => 44,
+  :DOUBLE => 45,
+  :BOOL => 46,
+  :TYPE_NAME => 47,
+  :CHAR => 48,
+  :SHORT => 49,
+  :INT => 50,
+  :LONG => 51,
+  :SIGNED => 52,
+  :UNSIGNED => 53,
+  :STRUCT => 54,
+  "{" => 55,
+  "}" => 56,
+  :UNION => 57,
+  :ENUM => 58,
+  :CONST => 59,
+  :VOLATILE => 60,
+  :C_EXP => 61,
+  :EXTENSION => 62,
+  :TYPEDEF => 63,
+  :IF => 64,
+  :ELSE => 65,
+  :WHILE => 66,
+  :DO => 67,
+  :FOR => 68,
+  :SWITCH => 69,
+  :infunc_statment => 70,
+  :CASE => 71,
+  :DEFAULT => 72,
+  :GOTO => 73,
+  :CONTINUE => 74,
+  :BREAK => 75,
+  :RETURN => 76,
+  "+=" => 77,
+  "-=" => 78,
+  "*=" => 79,
+  "/=" => 80,
+  "%=" => 81,
+  "<<=" => 82,
+  ">>=" => 83,
+  "&=" => 84,
+  "|=" => 85,
+  "^=" => 86,
+  :__INLINE__ => 87,
+  :INLINE => 88,
+  :__INLINE => 89,
+  :CINLINE => 90,
+  :EXTERN => 91,
+  :STATIC => 92,
+  :AUTO => 93,
+  :REGISTER => 94,
+  "::" => 95 }
+racc_nt_base = 96
+  "{" => 17,
+  "}" => 18,
+  "," => 19,
+  :SIZEOF => 20,
+  "&" => 21,
+  "*" => 22,
+  "+" => 23,
+  "-" => 24,
+  "~" => 25,
+  "!" => 26,
+  "/" => 27,
+  "%" => 28,
+  "<<" => 29,
+  ">>" => 30,
+  "<" => 31,
+  ">" => 32,
+  "<=" => 33,
+  ">=" => 34,
+  "==" => 35,
+  "!=" => 36,
+  "^" => 37,
+  "|" => 38,
+  "&&" => 39,
+  "||" => 40,
+  "?" => 41,
+  ":" => 42,
+  "=" => 43,
+  "+=" => 44,
+  "-=" => 45,
+  "*=" => 46,
+  "/=" => 47,
+  "%=" => 48,
+  "<<=" => 49,
+  ">>=" => 50,
+  "&=" => 51,
+  "|=" => 52,
+  "^=" => 53,
+  ";" => 54,
+  :EXTERN => 55,
+  :STATIC => 56,
+  :AUTO => 57,
+  :REGISTER => 58,
+  :VOID => 59,
+  :CHAR => 60,
+  :SHORT => 61,
+  :INT => 62,
+  :LONG => 63,
+  :FLOAT => 64,
+  :DOUBLE => 65,
+  :SIGNED => 66,
+  :UNSIGNED => 67,
+  :BOOL => 68,
+  :TYPE_NAME => 69,
+  :STRUCT => 70,
+  :UNION => 71,
+  :ENUM => 72,
+  :CONST => 73,
+  :RESTRICT => 74,
+  :VOLATILE => 75,
+  :__INLINE__ => 76,
+  :INLINE => 77,
+  :__INLINE => 78,
+  :CINLINE => 79,
+  :C_EXP => 80,
+  :EXTENSION => 81,
+  :TYPEDEF => 82,
+  :CASE => 83,
+  :DEFAULT => 84,
+  :IF => 85,
+  :ELSE => 86,
+  :SWITCH => 87,
+  :WHILE => 88,
+  :DO => 89,
+  :FOR => 90,
+  :GOTO => 91,
+  :CONTINUE => 92,
+  :BREAK => 93,
+  :RETURN => 94,
+  "::" => 95,
+  :_ASM => 96 }
+racc_nt_base = 97
 racc_use_result_var = true
 …
   "\"++\"",
   "\"--\"",
+  "\"{\"",
+  "\"}\"",
   "\",\"",
   "SIZEOF",
 …
   "\"?\"",
   "\":\"",
-  "\";\"",
   "\"=\"",
-  "VOID",
-  "FLOAT",
-  "DOUBLE",
-  "BOOL",
-  "TYPE_NAME",
-  "CHAR",
-  "SHORT",
-  "INT",
-  "LONG",
-  "SIGNED",
-  "UNSIGNED",
-  "STRUCT",
-  "\"{\"",
-  "\"}\"",
-  "UNION",
-  "ENUM",
-  "CONST",
-  "VOLATILE",
-  "C_EXP",
-  "EXTENSION",
-  "TYPEDEF",
-  "IF",
-  "ELSE",
-  "WHILE",
-  "DO",
-  "FOR",
-  "SWITCH",
-  "infunc_statment",
-  "CASE",
-  "DEFAULT",
-  "GOTO",
-  "CONTINUE",
-  "BREAK",
-  "RETURN",
   "\"+=\"",
   "\"-=\"",
 …
   "\"|=\"",
   "\"^=\"",
+  "\";\"",
+  "EXTERN",
+  "STATIC",
+  "AUTO",
+  "REGISTER",
+  "VOID",
+  "CHAR",
+  "SHORT",
+  "INT",
+  "LONG",
+  "FLOAT",
+  "DOUBLE",
+  "SIGNED",
+  "UNSIGNED",
+  "BOOL",
+  "TYPE_NAME",
+  "STRUCT",
+  "UNION",
+  "ENUM",
+  "CONST",
+  "RESTRICT",
+  "VOLATILE",
   "__INLINE__",
   "INLINE",
   "__INLINE",
   "CINLINE",
+  "EXTERN",
+  "STATIC",
+  "AUTO",
+  "REGISTER",
+  "C_EXP",
+  "EXTENSION",
+  "TYPEDEF",
+  "CASE",
+  "DEFAULT",
+  "IF",
+  "ELSE",
+  "SWITCH",
+  "WHILE",
+  "DO",
+  "FOR",
+  "GOTO",
+  "CONTINUE",
+  "BREAK",
+  "RETURN",
   "\"::\"",
+  "_ASM",
   "$start",
   "all",
 …
   "expression",
   "postfix_expression",
   "argument_list",
+  "argument_expression_list",
   "type_qualifier",
+  "type_name",
+  "initializer_list",
+  "assignment_expression",
   "unary_expression",
   "unary_operator",
   "cast_expression",
-  "type_name",
   "multiplicative_expression",
   "additive_expression",
 …
   "logical_or_expression",
   "conditional_expression",
+  "assignment_operator",
   "constant_expression",
   "declaration",
   "declaration_specifiers",
   "init_declarator_list",
   "storage_class",
+  "storage_class_specifier",
   "type_specifier",
+  "function_specifier",
   "init_declarator",
   "declarator",
 …
   "union_specifier",
   "enum_specifier",
+  "struct_term",
   "struct_tag",
   "struct_declaration_list",
 …
   "struct_declaration",
   "struct_declarator_list",
   "type_specifier_qualifier_list",
+  "specifier_qualifier_list",
   "struct_declarator",
+  "union_term",
   "union_tag",
   "union_declaration_list",
 …
   "union_declarator_list",
   "union_declarator",
-  "enum_type",
   "enumerator_list",
   "enumerator",
 …
   "direct_declarator",
   "parameter_type_list",
+  "identifier_list",
+  "type_qualifier_list",
   "parameter_list",
   "parameter_declaration",
   "abstract_declarator",
   "direct_abstract_declarator",
-  "initializer_list",
   "extension_statement",
   "statement",
+  "cdl_statement",
   "typedef",
   "func_def",
   "declarator_list",
+  "compoundstatement",
+  "infunc_statement_list",
+  "infunc_statement",
+  "compound_statement",
+  "statement",
+  "labeled_statement",
+  "expression_statement",
   "ifstatement",
   "whilestatement",
 …
   "forstatement",
   "switchstatement",
   "labelstatement",
   "gotostatement",
   "expressionstatement",
   "assignment_operator" ]
+  "jump_statement",
+  "asm_statement",
+  "block_item_list",
+  "block_item" ]
 Racc_debug_parser = false
 …
 # reduce 1 omitted
 module_eval(<<'.,.,', 'C_parser.y.rb', 52)
+module_eval(<<'.,.,', 'C_parser.y.rb', 57)
   def _reduce_2(val, _values, result)
      result = [ :IDENTIFIER, val[0] ]
 …
 .,.,
 module_eval(<<'.,.,', 'C_parser.y.rb', 60)
+module_eval(<<'.,.,', 'C_parser.y.rb', 65)
   def _reduce_3(val, _values, result)
      result = [ :INTEGER_CONSTANT, val[0] ]
 …
 .,.,
 module_eval(<<'.,.,', 'C_parser.y.rb', 62)
+module_eval(<<'.,.,', 'C_parser.y.rb', 67)
   def _reduce_4(val, _values, result)
      result = [ :FLOATING_CONSTANT, val[0] ]
 …
 .,.,
 module_eval(<<'.,.,', 'C_parser.y.rb', 64)
+module_eval(<<'.,.,', 'C_parser.y.rb', 69)
   def _reduce_5(val, _values, result)
      result = [ :OCTAL_CONSTANT, val[0] ]
 …
 .,.,
 module_eval(<<'.,.,', 'C_parser.y.rb', 66)
+module_eval(<<'.,.,', 'C_parser.y.rb', 71)
   def _reduce_6(val, _values, result)
      result = [ :HEX_CONSTANT, val[0] ]
 …
 .,.,
 module_eval(<<'.,.,', 'C_parser.y.rb', 68)
+module_eval(<<'.,.,', 'C_parser.y.rb', 73)
   def _reduce_7(val, _values, result)
      result = [ :CHARACTER_LITERAL, val[0] ]
 …
 .,.,
 module_eval(<<'.,.,', 'C_parser.y.rb', 70)
+module_eval(<<'.,.,', 'C_parser.y.rb', 75)
   def _reduce_8(val, _values, result)
      result = [ :STRING_LITERAL_LIST, val[0] ]
 …
 .,.,
 module_eval(<<'.,.,', 'C_parser.y.rb', 72)
+module_eval(<<'.,.,', 'C_parser.y.rb', 77)
   def _reduce_9(val, _values, result)
      result = [ :PARENTHESES, val[1].get_elements ]
 …
 .,.,
 module_eval(<<'.,.,', 'C_parser.y.rb', 76)
+module_eval(<<'.,.,', 'C_parser.y.rb', 81)
   def _reduce_10(val, _values, result)
      result = [val[0]]
 …
 .,.,
 module_eval(<<'.,.,', 'C_parser.y.rb', 78)
+module_eval(<<'.,.,', 'C_parser.y.rb', 83)
   def _reduce_11(val, _values, result)
      result << val[1]
 …
 # reduce 12 omitted
+# reduce 13 omitted
+module_eval(<<'.,.,', 'C_parser.y.rb', 89)
+  def _reduce_13(val, _values, result)
+     result = [ :OP_SUBSC, val[0], val[2] ]
+    result
+  end
+.,.,
 # reduce 14 omitted
+module_eval(<<'.,.,', 'C_parser.y.rb', 86)
+  def _reduce_15(val, _values, result)
+     result = [ :OP_SUBSC, val[0], val[2] ]
+    result
+  end
+.,.,
+module_eval(<<'.,.,', 'C_parser.y.rb', 88)
+  def _reduce_16(val, _values, result)
+# reduce 15 omitted
+# reduce 16 omitted
+module_eval(<<'.,.,', 'C_parser.y.rb', 94)
+  def _reduce_17(val, _values, result)
      result = [ :OP_DOT, val[0], val[2] ]
     result
 …
 .,.,
 module_eval(<<'.,.,', 'C_parser.y.rb', 90)
   def _reduce_17(val, _values, result)
+module_eval(<<'.,.,', 'C_parser.y.rb', 96)
+  def _reduce_18(val, _values, result)
      result = [ :OP_REF, val[0], val[2] ]
     result
 …
 .,.,
+module_eval(<<'.,.,', 'C_parser.y.rb', 91)
+  def _reduce_18(val, _values, result)
+     result = val[0]
+    result
+  end
+.,.,
+module_eval(<<'.,.,', 'C_parser.y.rb', 92)
+module_eval(<<'.,.,', 'C_parser.y.rb', 97)
   def _reduce_19(val, _values, result)
      result = val[0]
 …
 .,.,
+# reduce 20 omitted
+module_eval(<<'.,.,', 'C_parser.y.rb', 98)
+  def _reduce_20(val, _values, result)
+     result = val[0]
+    result
+  end
+.,.,
 # reduce 21 omitted
 …
 # reduce 23 omitted
+module_eval(<<'.,.,', 'C_parser.y.rb', 104)
+  def _reduce_24(val, _values, result)
+# reduce 24 omitted
+# reduce 25 omitted
+module_eval(<<'.,.,', 'C_parser.y.rb', 111)
+  def _reduce_26(val, _values, result)
      result = [ val[0], val[1] ]
     result
 …
 .,.,
 module_eval(<<'.,.,', 'C_parser.y.rb', 106)
   def _reduce_25(val, _values, result)
+module_eval(<<'.,.,', 'C_parser.y.rb', 113)
+  def _reduce_27(val, _values, result)
      result = [ :OP_SIZEOF_EXPR, val[1] ]
     result
 …
 .,.,
 module_eval(<<'.,.,', 'C_parser.y.rb', 108)
   def _reduce_26(val, _values, result)
+module_eval(<<'.,.,', 'C_parser.y.rb', 115)
+  def _reduce_28(val, _values, result)
      result = [ :OP_SIZEOF_TYPE, val[1] ]
     result
 …
 .,.,
 module_eval(<<'.,.,', 'C_parser.y.rb', 109)
   def _reduce_27(val, _values, result)
+module_eval(<<'.,.,', 'C_parser.y.rb', 116)
+  def _reduce_29(val, _values, result)
      result = val[1]
     result
 …
 .,.,
 module_eval(<<'.,.,', 'C_parser.y.rb', 110)
   def _reduce_28(val, _values, result)
+module_eval(<<'.,.,', 'C_parser.y.rb', 117)
+  def _reduce_30(val, _values, result)
      result = val[1]
     result
 …
 .,.,
 module_eval(<<'.,.,', 'C_parser.y.rb', 113)
   def _reduce_29(val, _values, result)
+module_eval(<<'.,.,', 'C_parser.y.rb', 120)
+  def _reduce_31(val, _values, result)
      result = :OP_U_AMP
     result
 …
 .,.,
 module_eval(<<'.,.,', 'C_parser.y.rb', 114)
   def _reduce_30(val, _values, result)
+module_eval(<<'.,.,', 'C_parser.y.rb', 121)
+  def _reduce_32(val, _values, result)
      result = :OP_U_ASTER
     result
 …
 .,.,
 module_eval(<<'.,.,', 'C_parser.y.rb', 115)
   def _reduce_31(val, _values, result)
+module_eval(<<'.,.,', 'C_parser.y.rb', 122)
+  def _reduce_33(val, _values, result)
      result = :OP_U_PLUS
     result
 …
 .,.,
 module_eval(<<'.,.,', 'C_parser.y.rb', 116)
   def _reduce_32(val, _values, result)
+module_eval(<<'.,.,', 'C_parser.y.rb', 123)
+  def _reduce_34(val, _values, result)
      result = :OP_U_MINUS
     result
 …
 .,.,
 module_eval(<<'.,.,', 'C_parser.y.rb', 117)
   def _reduce_33(val, _values, result)
+module_eval(<<'.,.,', 'C_parser.y.rb', 124)
+  def _reduce_35(val, _values, result)
      result = :OP_U_TILDE
     result
 …
 .,.,
 module_eval(<<'.,.,', 'C_parser.y.rb', 118)
   def _reduce_34(val, _values, result)
+module_eval(<<'.,.,', 'C_parser.y.rb', 125)
+  def _reduce_36(val, _values, result)
      result = :OP_U_EXCLAM
     result
 …
 .,.,
 # reduce 35 omitted
 module_eval(<<'.,.,', 'C_parser.y.rb', 123)
   def _reduce_36(val, _values, result)
+# reduce 37 omitted
+module_eval(<<'.,.,', 'C_parser.y.rb', 130)
+  def _reduce_38(val, _values, result)
       result = [ :CAST, val[1], val[3] ]
     result
 …
 .,.,
 # reduce 37 omitted
 module_eval(<<'.,.,', 'C_parser.y.rb', 128)
   def _reduce_38(val, _values, result)
+# reduce 39 omitted
+module_eval(<<'.,.,', 'C_parser.y.rb', 135)
+  def _reduce_40(val, _values, result)
      result = [ :OP_MULT, val[0], val[2] ]
     result
 …
 .,.,
 module_eval(<<'.,.,', 'C_parser.y.rb', 130)
   def _reduce_39(val, _values, result)
+module_eval(<<'.,.,', 'C_parser.y.rb', 137)
+  def _reduce_41(val, _values, result)
      result = [ :OP_DIV, val[0], val[2] ]
     result
 …
 .,.,
 module_eval(<<'.,.,', 'C_parser.y.rb', 132)
   def _reduce_40(val, _values, result)
+module_eval(<<'.,.,', 'C_parser.y.rb', 139)
+  def _reduce_42(val, _values, result)
      result = [ :OP_REMAIN, val[0], val[2] ]
     result
 …
 .,.,
 # reduce 41 omitted
 module_eval(<<'.,.,', 'C_parser.y.rb', 137)
   def _reduce_42(val, _values, result)
+# reduce 43 omitted
+module_eval(<<'.,.,', 'C_parser.y.rb', 144)
+  def _reduce_44(val, _values, result)
      result = [ :OP_ADD, val[0], val[2] ]
     result
 …
 .,.,
 module_eval(<<'.,.,', 'C_parser.y.rb', 139)
   def _reduce_43(val, _values, result)
+module_eval(<<'.,.,', 'C_parser.y.rb', 146)
+  def _reduce_45(val, _values, result)
      result = [ :OP_SUB, val[0], val[2] ]
     result
 …
 .,.,
 # reduce 44 omitted
 module_eval(<<'.,.,', 'C_parser.y.rb', 144)
   def _reduce_45(val, _values, result)
+# reduce 46 omitted
+module_eval(<<'.,.,', 'C_parser.y.rb', 151)
+  def _reduce_47(val, _values, result)
      result = [ :OP_LSFT, val[0], val[2] ]
     result
 …
 .,.,
 module_eval(<<'.,.,', 'C_parser.y.rb', 146)
   def _reduce_46(val, _values, result)
+module_eval(<<'.,.,', 'C_parser.y.rb', 153)
+  def _reduce_48(val, _values, result)
      result = [ :OP_RSFT, val[0], val[2] ]
     result
 …
 .,.,
 # reduce 47 omitted
 module_eval(<<'.,.,', 'C_parser.y.rb', 151)
   def _reduce_48(val, _values, result)
+# reduce 49 omitted
+module_eval(<<'.,.,', 'C_parser.y.rb', 158)
+  def _reduce_50(val, _values, result)
      result = [ :OP_LT, val[0], val[2] ]
     result
 …
 .,.,
 module_eval(<<'.,.,', 'C_parser.y.rb', 153)
   def _reduce_49(val, _values, result)
+module_eval(<<'.,.,', 'C_parser.y.rb', 160)
+  def _reduce_51(val, _values, result)
      result = [ :OP_GT, val[0], val[2] ]
     result
 …
 .,.,
 module_eval(<<'.,.,', 'C_parser.y.rb', 155)
   def _reduce_50(val, _values, result)
+module_eval(<<'.,.,', 'C_parser.y.rb', 162)
+  def _reduce_52(val, _values, result)
      result = [ :OP_LE, val[0], val[2] ]
     result
 …
 .,.,
 module_eval(<<'.,.,', 'C_parser.y.rb', 157)
   def _reduce_51(val, _values, result)
+module_eval(<<'.,.,', 'C_parser.y.rb', 164)
+  def _reduce_53(val, _values, result)
      result = [ :OP_GE, val[0], val[2] ]
     result
 …
 .,.,
 # reduce 52 omitted
 module_eval(<<'.,.,', 'C_parser.y.rb', 162)
   def _reduce_53(val, _values, result)
+# reduce 54 omitted
+module_eval(<<'.,.,', 'C_parser.y.rb', 169)
+  def _reduce_55(val, _values, result)
      result = [ :OP_EQ, val[0], val[2] ]
     result
 …
 .,.,
 module_eval(<<'.,.,', 'C_parser.y.rb', 164)
   def _reduce_54(val, _values, result)
+module_eval(<<'.,.,', 'C_parser.y.rb', 171)
+  def _reduce_56(val, _values, result)
      result = [ :OP_NE, val[0], val[2] ]
     result
 …
 .,.,
 # reduce 55 omitted
 module_eval(<<'.,.,', 'C_parser.y.rb', 169)
   def _reduce_56(val, _values, result)
+# reduce 57 omitted
+module_eval(<<'.,.,', 'C_parser.y.rb', 176)
+  def _reduce_58(val, _values, result)
      result = [ :OP_AND, val[0], val[2] ]
     result
 …
 .,.,
 # reduce 57 omitted
 module_eval(<<'.,.,', 'C_parser.y.rb', 174)
   def _reduce_58(val, _values, result)
+# reduce 59 omitted
+module_eval(<<'.,.,', 'C_parser.y.rb', 181)
+  def _reduce_60(val, _values, result)
      result = [ :OP_EOR, val[0], val[2] ]
     result
 …
 .,.,
 # reduce 59 omitted
 module_eval(<<'.,.,', 'C_parser.y.rb', 179)
   def _reduce_60(val, _values, result)
+# reduce 61 omitted
+module_eval(<<'.,.,', 'C_parser.y.rb', 186)
+  def _reduce_62(val, _values, result)
      result = [ :OP_OR, val[0], val[2] ]
     result
 …
 .,.,
 # reduce 61 omitted
 module_eval(<<'.,.,', 'C_parser.y.rb', 184)
   def _reduce_62(val, _values, result)
+# reduce 63 omitted
+module_eval(<<'.,.,', 'C_parser.y.rb', 191)
+  def _reduce_64(val, _values, result)
      result = [ :OP_LAND, val[0], val[2] ]
     result
 …
 .,.,
 # reduce 63 omitted
 module_eval(<<'.,.,', 'C_parser.y.rb', 189)
   def _reduce_64(val, _values, result)
+# reduce 65 omitted
+module_eval(<<'.,.,', 'C_parser.y.rb', 196)
+  def _reduce_66(val, _values, result)
      result = [ :OP_LOR, val[0], val[2] ]
     result
 …
 .,.,
 # reduce 65 omitted
 module_eval(<<'.,.,', 'C_parser.y.rb', 194)
   def _reduce_66(val, _values, result)
+# reduce 67 omitted
+module_eval(<<'.,.,', 'C_parser.y.rb', 201)
+  def _reduce_68(val, _values, result)
      result = [ :OP_CEX, val[0], val[2].get_elements, val[4] ]
     result
 …
 .,.,
+module_eval(<<'.,.,', 'C_parser.y.rb', 201)
+  def _reduce_67(val, _values, result)
+# reduce 69 omitted
+# reduce 70 omitted
+# reduce 71 omitted
+# reduce 72 omitted
+# reduce 73 omitted
+# reduce 74 omitted
+# reduce 75 omitted
+# reduce 76 omitted
+# reduce 77 omitted
+# reduce 78 omitted
+# reduce 79 omitted
+# reduce 80 omitted
+# reduce 81 omitted
+module_eval(<<'.,.,', 'C_parser.y.rb', 223)
+  def _reduce_82(val, _values, result)
                         result = Expression.new( val[0] )
                         # result.print
 …
 .,.,
+module_eval(<<'.,.,', 'C_parser.y.rb', 208)
+  def _reduce_68(val, _values, result)
+module_eval(<<'.,.,', 'C_parser.y.rb', 228)
+  def _reduce_83(val, _values, result)
+                        result = Expression.new( val[2] )    # ',' の後ろを採用
+    result
+  end
+.,.,
+module_eval(<<'.,.,', 'C_parser.y.rb', 234)
+  def _reduce_84(val, _values, result)
                         result = Expression.new( val[0] )
                         # result.print
 …
 .,.,
 # reduce 69 omitted
 module_eval(<<'.,.,', 'C_parser.y.rb', 237)
   def _reduce_70(val, _values, result)
+# reduce 85 omitted
+module_eval(<<'.,.,', 'C_parser.y.rb', 261)
+  def _reduce_86(val, _values, result)
                         result = CIntType.new( -3 )    # storage class は無視
 …
 .,.,
+# reduce 71 omitted
+module_eval(<<'.,.,', 'C_parser.y.rb', 242)
+  def _reduce_72(val, _values, result)
+module_eval(<<'.,.,', 'C_parser.y.rb', 265)
+  def _reduce_87(val, _values, result)
+                        result = val[1]                # storage class は無視
+    result
+  end
+.,.,
+# reduce 88 omitted
+module_eval(<<'.,.,', 'C_parser.y.rb', 270)
+  def _reduce_89(val, _values, result)
+                        result = val[1].merge val[0]
+    result
+  end
+.,.,
+module_eval(<<'.,.,', 'C_parser.y.rb', 274)
+  def _reduce_90(val, _values, result)
                         result = CIntType.new( -3 )
                         result.set_qualifier val[0]
 …
 .,.,
+module_eval(<<'.,.,', 'C_parser.y.rb', 247)
+  def _reduce_73(val, _values, result)
+                        result = val[1]                # storage class は無視
+    result
+  end
+.,.,
+module_eval(<<'.,.,', 'C_parser.y.rb', 251)
+  def _reduce_74(val, _values, result)
+                        result = val[1].merge val[0]
+    result
+  end
+.,.,
+module_eval(<<'.,.,', 'C_parser.y.rb', 255)
+  def _reduce_75(val, _values, result)
+module_eval(<<'.,.,', 'C_parser.y.rb', 279)
+  def _reduce_91(val, _values, result)
                         val[1].set_qualifier val[0]
+                        result = val[1]
+    result
+  end
+.,.,
+module_eval(<<'.,.,', 'C_parser.y.rb', 262)
+  def _reduce_76(val, _values, result)
+                                                result = val[1]
+    result
+  end
+.,.,
+# reduce 92 omitted
+# reduce 93 omitted
+module_eval(<<'.,.,', 'C_parser.y.rb', 287)
+  def _reduce_94(val, _values, result)
      result = [val[0]]
     result
 …
 .,.,
 module_eval(<<'.,.,', 'C_parser.y.rb', 264)
   def _reduce_77(val, _values, result)
+module_eval(<<'.,.,', 'C_parser.y.rb', 289)
+  def _reduce_95(val, _values, result)
      result << val[2]
     result
 …
 .,.,
 # reduce 78 omitted
 module_eval(<<'.,.,', 'C_parser.y.rb', 269)
   def _reduce_79(val, _values, result)
+# reduce 96 omitted
+module_eval(<<'.,.,', 'C_parser.y.rb', 294)
+  def _reduce_97(val, _values, result)
      val[0].set_initializer( val[2] )
     result
 …
 .,.,
+module_eval(<<'.,.,', 'C_parser.y.rb', 272)
+  def _reduce_80(val, _values, result)
+# reduce 98 omitted
+# reduce 99 omitted
+# reduce 100 omitted
+# reduce 101 omitted
+module_eval(<<'.,.,', 'C_parser.y.rb', 304)
+  def _reduce_102(val, _values, result)
      set_no_type_name true; result = CVoidType.new
     result
 …
 .,.,
+module_eval(<<'.,.,', 'C_parser.y.rb', 273)
+  def _reduce_81(val, _values, result)
+module_eval(<<'.,.,', 'C_parser.y.rb', 306)
+  def _reduce_103(val, _values, result)
+     set_no_type_name true; result = CIntType.new(-11 )
+    result
+  end
+.,.,
+module_eval(<<'.,.,', 'C_parser.y.rb', 308)
+  def _reduce_104(val, _values, result)
+     set_no_type_name true; result = CIntType.new( -2 )
+    result
+  end
+.,.,
+module_eval(<<'.,.,', 'C_parser.y.rb', 310)
+  def _reduce_105(val, _values, result)
+     set_no_type_name true; result = CIntType.new( -3 )
+    result
+  end
+.,.,
+module_eval(<<'.,.,', 'C_parser.y.rb', 312)
+  def _reduce_106(val, _values, result)
+     set_no_type_name true; result = CIntType.new( -4 )
+    result
+  end
+.,.,
+module_eval(<<'.,.,', 'C_parser.y.rb', 314)
+  def _reduce_107(val, _values, result)
      set_no_type_name true; result = CFloatType.new(-32)
     result
 …
 .,.,
 module_eval(<<'.,.,', 'C_parser.y.rb', 274)
   def _reduce_82(val, _values, result)
+module_eval(<<'.,.,', 'C_parser.y.rb', 316)
+  def _reduce_108(val, _values, result)
      set_no_type_name true; result = CFloatType.new(-64)
     result
 …
 .,.,
+module_eval(<<'.,.,', 'C_parser.y.rb', 275)
+  def _reduce_83(val, _values, result)
+     set_no_type_name true; result = CBoolType.new
+    result
+  end
+.,.,
+module_eval(<<'.,.,', 'C_parser.y.rb', 276)
+  def _reduce_84(val, _values, result)
+     set_no_type_name true; result = val[0]
+    result
+  end
+.,.,
+module_eval(<<'.,.,', 'C_parser.y.rb', 277)
+  def _reduce_85(val, _values, result)
+     set_no_type_name true; result = CVoidType.new
+    result
+  end
+.,.,
+module_eval(<<'.,.,', 'C_parser.y.rb', 278)
+  def _reduce_86(val, _values, result)
+     set_no_type_name true; result = CVoidType.new
+    result
+  end
+.,.,
+module_eval(<<'.,.,', 'C_parser.y.rb', 279)
+  def _reduce_87(val, _values, result)
+     set_no_type_name true; result = CDefinedType.new( val[0].val )
+    result
+  end
+.,.,
+module_eval(<<'.,.,', 'C_parser.y.rb', 281)
+  def _reduce_88(val, _values, result)
+     set_no_type_name true; result = CIntType.new(-11 )
+    result
+  end
+.,.,
+module_eval(<<'.,.,', 'C_parser.y.rb', 282)
+  def _reduce_89(val, _values, result)
+     set_no_type_name true; result = CIntType.new( -2 )
+    result
+  end
+.,.,
+module_eval(<<'.,.,', 'C_parser.y.rb', 283)
+  def _reduce_90(val, _values, result)
+     set_no_type_name true; result = CIntType.new( -3 )
+    result
+  end
+.,.,
+module_eval(<<'.,.,', 'C_parser.y.rb', 284)
+  def _reduce_91(val, _values, result)
+     set_no_type_name true; result = CIntType.new( -4 )
+    result
+  end
+.,.,
+module_eval(<<'.,.,', 'C_parser.y.rb', 287)
+  def _reduce_92(val, _values, result)
+module_eval(<<'.,.,', 'C_parser.y.rb', 319)
+  def _reduce_109(val, _values, result)
                         set_no_type_name true
                         result = CIntType.new( -3 )
 …
 .,.,
 module_eval(<<'.,.,', 'C_parser.y.rb', 293)
   def _reduce_93(val, _values, result)
+module_eval(<<'.,.,', 'C_parser.y.rb', 325)
+  def _reduce_110(val, _values, result)
                         set_no_type_name true
                         result = CIntType.new( -3 )
 …
 .,.,
+module_eval(<<'.,.,', 'C_parser.y.rb', 301)
+  def _reduce_94(val, _values, result)
+module_eval(<<'.,.,', 'C_parser.y.rb', 330)
+  def _reduce_111(val, _values, result)
+     set_no_type_name true; result = CBoolType.new
+    result
+  end
+.,.,
+module_eval(<<'.,.,', 'C_parser.y.rb', 332)
+  def _reduce_112(val, _values, result)
+     set_no_type_name true; result = val[0]
+    result
+  end
+.,.,
+module_eval(<<'.,.,', 'C_parser.y.rb', 334)
+  def _reduce_113(val, _values, result)
+     set_no_type_name true; result = CVoidType.new
+    result
+  end
+.,.,
+module_eval(<<'.,.,', 'C_parser.y.rb', 336)
+  def _reduce_114(val, _values, result)
+     set_no_type_name true; result = CVoidType.new
+    result
+  end
+.,.,
+module_eval(<<'.,.,', 'C_parser.y.rb', 338)
+  def _reduce_115(val, _values, result)
+     set_no_type_name true; result = CDefinedType.new( val[0].val )
+    result
+  end
+.,.,
+module_eval(<<'.,.,', 'C_parser.y.rb', 344)
+  def _reduce_116(val, _values, result)
      StructType.set_define( true )
     result
 …
 .,.,
 module_eval(<<'.,.,', 'C_parser.y.rb', 304)
   def _reduce_95(val, _values, result)
+module_eval(<<'.,.,', 'C_parser.y.rb', 347)
+  def _reduce_117(val, _values, result)
                         StructType.end_of_parse
                         result = val[1]
 …
 .,.,
 module_eval(<<'.,.,', 'C_parser.y.rb', 309)
   def _reduce_96(val, _values, result)
+module_eval(<<'.,.,', 'C_parser.y.rb', 353)
+  def _reduce_118(val, _values, result)
                         result = CStructType.new()
                         StructType.set_define( true )
 …
 .,.,
 module_eval(<<'.,.,', 'C_parser.y.rb', 314)
   def _reduce_97(val, _values, result)
+module_eval(<<'.,.,', 'C_parser.y.rb', 358)
+  def _reduce_119(val, _values, result)
                         StructType.end_of_parse
                         result = val[1]
 …
 .,.,
 module_eval(<<'.,.,', 'C_parser.y.rb', 319)
   def _reduce_98(val, _values, result)
+module_eval(<<'.,.,', 'C_parser.y.rb', 364)
+  def _reduce_120(val, _values, result)
                         StructType.set_define( false )
                         StructType.end_of_parse
 …
 .,.,
+# reduce 99 omitted
+# reduce 100 omitted
+module_eval(<<'.,.,', 'C_parser.y.rb', 331)
+  def _reduce_101(val, _values, result)
+module_eval(<<'.,.,', 'C_parser.y.rb', 370)
+  def _reduce_121(val, _values, result)
+     set_no_type_name true
+    result
+  end
+.,.,
+# reduce 122 omitted
+# reduce 123 omitted
+module_eval(<<'.,.,', 'C_parser.y.rb', 379)
+  def _reduce_124(val, _values, result)
                         result = CStructType.new( val[0].val )
                         set_no_type_name true
 …
 .,.,
 module_eval(<<'.,.,', 'C_parser.y.rb', 340)
   def _reduce_102(val, _values, result)
+module_eval(<<'.,.,', 'C_parser.y.rb', 388)
+  def _reduce_125(val, _values, result)
                         val[1].each { |i|       # i: Decl
                                 i.set_type( val[0] )
 …
 .,.,
+# reduce 103 omitted
+# reduce 104 omitted
+# reduce 105 omitted
+module_eval(<<'.,.,', 'C_parser.y.rb', 359)
+  def _reduce_106(val, _values, result)
+module_eval(<<'.,.,', 'C_parser.y.rb', 399)
+  def _reduce_126(val, _values, result)
+                        val[1].each { |i|       # i: Decl
+                                i.set_type( val[0] )
+                                i.set_kind( :MEMBER )
+                                i.check
+                                CStructType.new_member( i )
+                        }
+                        result = val[1]
+    result
+  end
+.,.,
+# reduce 127 omitted
+# reduce 128 omitted
+module_eval(<<'.,.,', 'C_parser.y.rb', 417)
+  def _reduce_129(val, _values, result)
                         result = val[1].merge val[0]
 …
 .,.,
+module_eval(<<'.,.,', 'C_parser.y.rb', 363)
+  def _reduce_107(val, _values, result)
+# reduce 130 omitted
+module_eval(<<'.,.,', 'C_parser.y.rb', 422)
+  def _reduce_131(val, _values, result)
+                        val[1].set_qualifier val[0]
+                                                result = val[1]
+    result
+  end
+.,.,
+module_eval(<<'.,.,', 'C_parser.y.rb', 427)
+  def _reduce_132(val, _values, result)
                         result = CIntType.new( -3 )
                         result.set_qualifier val[0]
 …
 .,.,
+module_eval(<<'.,.,', 'C_parser.y.rb', 368)
+  def _reduce_108(val, _values, result)
+                        val[1].set_qualifier val[0]
+                        result = val[1]
+    result
+  end
+.,.,
+module_eval(<<'.,.,', 'C_parser.y.rb', 374)
+  def _reduce_109(val, _values, result)
+module_eval(<<'.,.,', 'C_parser.y.rb', 433)
+  def _reduce_133(val, _values, result)
      result = [ val[0] ]
     result
 …
 .,.,
 module_eval(<<'.,.,', 'C_parser.y.rb', 376)
   def _reduce_110(val, _values, result)
+module_eval(<<'.,.,', 'C_parser.y.rb', 435)
+  def _reduce_134(val, _values, result)
      result << val[2]
     result
 …
 .,.,
+# reduce 111 omitted
+# reduce 112 omitted
+# reduce 113 omitted
+# reduce 114 omitted
+# reduce 115 omitted
+# reduce 116 omitted
+# reduce 117 omitted
+# reduce 118 omitted
+# reduce 119 omitted
+# reduce 120 omitted
+# reduce 121 omitted
+# reduce 122 omitted
+# reduce 123 omitted
+# reduce 124 omitted
+# reduce 125 omitted
+# reduce 126 omitted
+module_eval(<<'.,.,', 'C_parser.y.rb', 418)
+  def _reduce_127(val, _values, result)
+     result = CEnumType.new( -1 )
+    result
+  end
+.,.,
+# reduce 128 omitted
+# reduce 129 omitted
+# reduce 130 omitted
+# reduce 131 omitted
+module_eval(<<'.,.,', 'C_parser.y.rb', 434)
+  def _reduce_132(val, _values, result)
+# reduce 135 omitted
+# reduce 136 omitted
+# reduce 137 omitted
+# reduce 138 omitted
+module_eval(<<'.,.,', 'C_parser.y.rb', 452)
+  def _reduce_139(val, _values, result)
+     set_no_type_name true
+    result
+  end
+.,.,
+# reduce 140 omitted
+# reduce 141 omitted
+# reduce 142 omitted
+# reduce 143 omitted
+# reduce 144 omitted
+# reduce 145 omitted
+# reduce 146 omitted
+# reduce 147 omitted
+# reduce 148 omitted
+# reduce 149 omitted
+# reduce 150 omitted
+# reduce 151 omitted
+# reduce 152 omitted
+# reduce 153 omitted
+# reduce 154 omitted
+# reduce 155 omitted
+# reduce 156 omitted
+# reduce 157 omitted
+# reduce 158 omitted
+# reduce 159 omitted
+# reduce 160 omitted
+# reduce 161 omitted
+# reduce 162 omitted
+module_eval(<<'.,.,', 'C_parser.y.rb', 495)
+  def _reduce_163(val, _values, result)
      result = :CONST
     result
 …
 .,.,
+module_eval(<<'.,.,', 'C_parser.y.rb', 435)
+  def _reduce_133(val, _values, result)
+# reduce 164 omitted
+module_eval(<<'.,.,', 'C_parser.y.rb', 498)
+  def _reduce_165(val, _values, result)
      result = :VOLATILE
     result
 …
 .,.,
+module_eval(<<'.,.,', 'C_parser.y.rb', 440)
+  def _reduce_134(val, _values, result)
+# reduce 166 omitted
+# reduce 167 omitted
+# reduce 168 omitted
+# reduce 169 omitted
+module_eval(<<'.,.,', 'C_parser.y.rb', 509)
+  def _reduce_170(val, _values, result)
                         val[1].set_type( val[0] )
                         result = val[1]
 …
 .,.,
 # reduce 135 omitted
 module_eval(<<'.,.,', 'C_parser.y.rb', 446)
   def _reduce_136(val, _values, result)
+# reduce 171 omitted
+module_eval(<<'.,.,', 'C_parser.y.rb', 515)
+  def _reduce_172(val, _values, result)
                         result = Decl.new( val[1].val )
                         result.set_type( val[0] )
 …
 .,.,
 module_eval(<<'.,.,', 'C_parser.y.rb', 452)
   def _reduce_137(val, _values, result)
+module_eval(<<'.,.,', 'C_parser.y.rb', 521)
+  def _reduce_173(val, _values, result)
      result = Decl.new( val[0].val )
     result
 …
 .,.,
 module_eval(<<'.,.,', 'C_parser.y.rb', 454)
   def _reduce_138(val, _values, result)
+module_eval(<<'.,.,', 'C_parser.y.rb', 523)
+  def _reduce_174(val, _values, result)
      result = val[1]
     result
 …
 .,.,
 module_eval(<<'.,.,', 'C_parser.y.rb', 457)
   def _reduce_139(val, _values, result)
+module_eval(<<'.,.,', 'C_parser.y.rb', 526)
+  def _reduce_175(val, _values, result)
                         val[0].set_type( CArrayType.new( val[2] ) )
                         result = val[0]
 …
 .,.,
 module_eval(<<'.,.,', 'C_parser.y.rb', 462)
   def _reduce_140(val, _values, result)
+module_eval(<<'.,.,', 'C_parser.y.rb', 531)
+  def _reduce_176(val, _values, result)
                         val[0].set_type( CArrayType.new )
                         result = val[0]
 …
 .,.,
 module_eval(<<'.,.,', 'C_parser.y.rb', 467)
   def _reduce_141(val, _values, result)
+module_eval(<<'.,.,', 'C_parser.y.rb', 536)
+  def _reduce_177(val, _values, result)
                 #       Generator.warning( "W6001 need 'void' for no parameter"  )
                         val[0].set_type( CFuncType.new )
 …
 .,.,
+module_eval(<<'.,.,', 'C_parser.y.rb', 475)
+  def _reduce_142(val, _values, result)
+# reduce 178 omitted
+module_eval(<<'.,.,', 'C_parser.y.rb', 543)
+  def _reduce_179(val, _values, result)
                 #       Generator.warning( "W6002 need 'void' for no parameter"  )
                         val[0].set_type( CFuncType.new )
 …
 .,.,
 module_eval(<<'.,.,', 'C_parser.y.rb', 482)
   def _reduce_143(val, _values, result)
+module_eval(<<'.,.,', 'C_parser.y.rb', 550)
+  def _reduce_180(val, _values, result)
      result = CPtrType.new
     result
 …
 .,.,
 module_eval(<<'.,.,', 'C_parser.y.rb', 485)
   def _reduce_144(val, _values, result)
+module_eval(<<'.,.,', 'C_parser.y.rb', 553)
+  def _reduce_181(val, _values, result)
                         result = CPtrType.new
                         result.set_qualifier( val[1] )
 …
 .,.,
 module_eval(<<'.,.,', 'C_parser.y.rb', 490)
   def _reduce_145(val, _values, result)
+module_eval(<<'.,.,', 'C_parser.y.rb', 558)
+  def _reduce_182(val, _values, result)
                         val[1].set_type(CPtrType.new)
                         result = val[1]
 …
 .,.,
 module_eval(<<'.,.,', 'C_parser.y.rb', 495)
   def _reduce_146(val, _values, result)
+module_eval(<<'.,.,', 'C_parser.y.rb', 563)
+  def _reduce_183(val, _values, result)
                         ptrtype = CPtrType.new
                         ptrtype.set_qualifier( val[1] )
 …
 .,.,
+# reduce 147 omitted
+# reduce 148 omitted
+# reduce 149 omitted
+# reduce 150 omitted
+# reduce 151 omitted
+# reduce 152 omitted
+# reduce 153 omitted
+# reduce 154 omitted
+# reduce 155 omitted
+# reduce 156 omitted
+# reduce 157 omitted
+# reduce 158 omitted
+# reduce 159 omitted
+# reduce 160 omitted
+# reduce 161 omitted
+# reduce 162 omitted
+# reduce 163 omitted
+module_eval(<<'.,.,', 'C_parser.y.rb', 559)
+  def _reduce_164(val, _values, result)
+# reduce 184 omitted
+# reduce 185 omitted
+# reduce 186 omitted
+# reduce 187 omitted
+# reduce 188 omitted
+# reduce 189 omitted
+# reduce 190 omitted
+# reduce 191 omitted
+# reduce 192 omitted
+# reduce 193 omitted
+# reduce 194 omitted
+# reduce 195 omitted
+# reduce 196 omitted
+# reduce 197 omitted
+# reduce 198 omitted
+# reduce 199 omitted
+# reduce 200 omitted
+# reduce 201 omitted
+# reduce 202 omitted
+# reduce 203 omitted
+# reduce 204 omitted
+module_eval(<<'.,.,', 'C_parser.y.rb', 630)
+  def _reduce_205(val, _values, result)
                         Generator.warning( "W6003 need 'void' for no parameter"  )
 …
 .,.,
 # reduce 165 omitted
 module_eval(<<'.,.,', 'C_parser.y.rb', 564)
   def _reduce_166(val, _values, result)
+# reduce 206 omitted
+module_eval(<<'.,.,', 'C_parser.y.rb', 635)
+  def _reduce_207(val, _values, result)
                         Generator.warning( "W6004 need 'void' for no parameter"  )
 …
 .,.,
 # reduce 167 omitted
 module_eval(<<'.,.,', 'C_parser.y.rb', 571)
   def _reduce_168(val, _values, result)
+# reduce 208 omitted
+module_eval(<<'.,.,', 'C_parser.y.rb', 642)
+  def _reduce_209(val, _values, result)
      result = val[0]
     result
 …
 .,.,
 module_eval(<<'.,.,', 'C_parser.y.rb', 573)
   def _reduce_169(val, _values, result)
+module_eval(<<'.,.,', 'C_parser.y.rb', 644)
+  def _reduce_210(val, _values, result)
      result = val[1]
     result
 …
 .,.,
 module_eval(<<'.,.,', 'C_parser.y.rb', 575)
   def _reduce_170(val, _values, result)
+module_eval(<<'.,.,', 'C_parser.y.rb', 646)
+  def _reduce_211(val, _values, result)
      result = val[1]
     result
 …
 .,.,
 module_eval(<<'.,.,', 'C_parser.y.rb', 577)
   def _reduce_171(val, _values, result)
+module_eval(<<'.,.,', 'C_parser.y.rb', 648)
+  def _reduce_212(val, _values, result)
      result = C_EXP.new( val[2] )
     result
 …
 .,.,
 module_eval(<<'.,.,', 'C_parser.y.rb', 582)
   def _reduce_172(val, _values, result)
+module_eval(<<'.,.,', 'C_parser.y.rb', 653)
+  def _reduce_213(val, _values, result)
                         result = [ val[0] ]
 …
 .,.,
 module_eval(<<'.,.,', 'C_parser.y.rb', 586)
   def _reduce_173(val, _values, result)
+module_eval(<<'.,.,', 'C_parser.y.rb', 657)
+  def _reduce_214(val, _values, result)
                         val[0] << val[2]
                         result = val[0]
 …
 .,.,
 # reduce 174 omitted
 # reduce 175 omitted
 # reduce 176 omitted
 # reduce 177 omitted
 # reduce 178 omitted
 # reduce 179 omitted
 # reduce 180 omitted
 # reduce 181 omitted
 # reduce 182 omitted
 # reduce 183 omitted
 # reduce 184 omitted
 module_eval(<<'.,.,', 'C_parser.y.rb', 614)
   def _reduce_185(val, _values, result)
+# reduce 215 omitted
+# reduce 216 omitted
+# reduce 217 omitted
+# reduce 218 omitted
+# reduce 219 omitted
+# reduce 220 omitted
+# reduce 221 omitted
+# reduce 222 omitted
+# reduce 223 omitted
+# reduce 224 omitted
+# reduce 225 omitted
+module_eval(<<'.,.,', 'C_parser.y.rb', 685)
+  def _reduce_226(val, _values, result)
                         val[2].each{ |i|
                            i.set_kind( :TYPEDEF )
 …
 .,.,
 module_eval(<<'.,.,', 'C_parser.y.rb', 623)
   def _reduce_186(val, _values, result)
+module_eval(<<'.,.,', 'C_parser.y.rb', 694)
+  def _reduce_227(val, _values, result)
      result = [ val[0] ]
     result
 …
 .,.,
 module_eval(<<'.,.,', 'C_parser.y.rb', 625)
   def _reduce_187(val, _values, result)
+module_eval(<<'.,.,', 'C_parser.y.rb', 696)
+  def _reduce_228(val, _values, result)
      result << val[2]
     result
 …
 .,.,
-# reduce 188 omitted
-# reduce 189 omitted
-# reduce 190 omitted
-# reduce 191 omitted
-# reduce 192 omitted
-# reduce 193 omitted
-# reduce 194 omitted
-# reduce 195 omitted
-# reduce 196 omitted
-# reduce 197 omitted
-# reduce 198 omitted
-# reduce 199 omitted
-# reduce 200 omitted
-# reduce 201 omitted
-# reduce 202 omitted
-# reduce 203 omitted
-# reduce 204 omitted
-# reduce 205 omitted
-# reduce 206 omitted
-# reduce 207 omitted
-# reduce 208 omitted
-# reduce 209 omitted
-# reduce 210 omitted
-# reduce 211 omitted
-# reduce 212 omitted
-# reduce 213 omitted
-# reduce 214 omitted
-# reduce 215 omitted
-# reduce 216 omitted
-# reduce 217 omitted
-# reduce 218 omitted
-# reduce 219 omitted
-# reduce 220 omitted
-# reduce 221 omitted
-# reduce 222 omitted
-# reduce 223 omitted
-# reduce 224 omitted
-# reduce 225 omitted
-# reduce 226 omitted
-# reduce 227 omitted
-# reduce 228 omitted
 # reduce 229 omitted
 …
 # reduce 237 omitted
+module_eval(<<'.,.,', 'C_parser.y.rb', 706)
+  def _reduce_238(val, _values, result)
+# reduce 238 omitted
+# reduce 239 omitted
+# reduce 240 omitted
+# reduce 241 omitted
+# reduce 242 omitted
+# reduce 243 omitted
+# reduce 244 omitted
+# reduce 245 omitted
+# reduce 246 omitted
+# reduce 247 omitted
+# reduce 248 omitted
+# reduce 249 omitted
+# reduce 250 omitted
+# reduce 251 omitted
+# reduce 252 omitted
+# reduce 253 omitted
+# reduce 254 omitted
+# reduce 255 omitted
+# reduce 256 omitted
+# reduce 257 omitted
+# reduce 258 omitted
+# reduce 259 omitted
+# reduce 260 omitted
+# reduce 261 omitted
+# reduce 262 omitted
+# reduce 263 omitted
+# reduce 264 omitted
+module_eval(<<'.,.,', 'C_parser.y.rb', 761)
+  def _reduce_265(val, _values, result)
      result = NamespacePath.new( val[0].val, false )
     result
 …
 .,.,
 module_eval(<<'.,.,', 'C_parser.y.rb', 707)
   def _reduce_239(val, _values, result)
+module_eval(<<'.,.,', 'C_parser.y.rb', 762)
+  def _reduce_266(val, _values, result)
      result = NamespacePath.new( val[1].val, true )
     result
 …
 .,.,
 module_eval(<<'.,.,', 'C_parser.y.rb', 709)
   def _reduce_240(val, _values, result)
+module_eval(<<'.,.,', 'C_parser.y.rb', 764)
+  def _reduce_267(val, _values, result)
      result = val[0].append!( val[2].val )
+    result
+  end
+.,.,
+module_eval(<<'.,.,', 'C_parser.y.rb', 768)
+  def _reduce_268(val, _values, result)
+                while true
+                        # ';' が表れるまで、トークンを読み飛ばす。
+                        # gcc の構文拡張に対応すべきだが、単純な実装として、';' まで読み飛ばす。
+                        # トークン単位で読み飛ばしているので、文字列やコメント内の ';' は対象にならない。
+                        token = next_token
+                        if token[1].val == ";"
+                                break
+                        end
+                        # p "skip: #{token[1].val}"
+                end
     result
   end

EcnlProtoTool/trunk/asp3_dcre/tecsgen/tecslib/core/C_parser.y.rb

-              r321
+              r429
 #      Generator for TOPPERS Embedded Component System
+#
 #   Copyright (C) 2008-2014 by TOPPERS Project
+#   Copyright (C) 2008-2018 by TOPPERS Project
 #--
 #   上記著作権者は，以下の(1)～(4)の条件を満たす場合に限り，本ソフトウェ
+#   上記著作権者は，以下の(1)〜(4)の条件を満たす場合に限り，本ソフトウェ
 #   ア（本ソフトウェアを改変したものを含む．以下同じ）を使用・複製・改
 #   変・再配布（以下，利用と呼ぶ）することを無償で許諾する．
 …
 #   の責任を負わない．
+#
 #   $Id$
+#   $Id: C_parser.y.rb 2810 2018-03-11 13:20:03Z okuma-top $
 #++
 …
 # argument_expression_list(関数引数), assignment_expression(代入)がない
 # 式の result は、すべて配列で第一要素が識別シンボル、第二要素以下が引数
+#
+# 2019/3/28 長島 下記のC99の構文に近づくよう変更
+#（読めないヘッダーファイルがあったため）
+# http://www.quut.com/c/ANSI-C-grammar-y-1999.html
+# 元々のコメントと合わなくなっています
 primary_expression
         : namespace_identifier
+                : namespace_identifier
                 { result = [ :IDENTIFIER, val[0] ] }     #1ok
 #        : IDENTIFIER   # mikan namespace への対応
 …
 #        | FALSE
 #               { result = [ :BOOL_CONSTANT, false ] }
         | INTEGER_CONSTANT
+                | INTEGER_CONSTANT
                 { result = [ :INTEGER_CONSTANT, val[0] ] }
         | FLOATING_CONSTANT
+                | FLOATING_CONSTANT
                 { result = [ :FLOATING_CONSTANT, val[0] ] }
         | OCTAL_CONSTANT
+                | OCTAL_CONSTANT
                 { result = [ :OCTAL_CONSTANT, val[0] ] }
         | HEX_CONSTANT
+                | HEX_CONSTANT
                 { result = [ :HEX_CONSTANT, val[0] ] }
         | CHARACTER_LITERAL
+                | CHARACTER_LITERAL
                 { result = [ :CHARACTER_LITERAL, val[0] ] }
         | string_literal_list
+                | string_literal_list
                 { result = [ :STRING_LITERAL_LIST, val[0] ] }
         | '(' expression ')'
+                | '(' expression ')'
                 { result = [ :PARENTHESES, val[1].get_elements ] }
 string_literal_list
         : STRING_LITERAL
+                : STRING_LITERAL
                 { result = [val[0]] }
         | string_literal_list STRING_LITERAL
+                | string_literal_list STRING_LITERAL
                 { result << val[1] }
 # 関数呼び出しと後置インクリメント、デクリメント演算子がない
 postfix_expression
+        : primary_expression
+        | primary_expression '(' argument_list ')'
+        | primary_expression type_qualifier '(' argument_list ')'    # intended __asm volatile ( "   MNEMONIC  OPERAND" );
+        | postfix_expression '[' expression ']'
+                : primary_expression
+                | postfix_expression '[' expression ']'
                 { result = [ :OP_SUBSC, val[0], val[2] ] }
+        | postfix_expression '.' IDENTIFIER
+                | postfix_expression '(' ')'
+                | postfix_expression '(' argument_expression_list ')'
+                | postfix_expression type_qualifier '(' argument_expression_list ')'    # intended __asm volatile ( "   MNEMONIC  OPERAND" );
+                | postfix_expression '.' IDENTIFIER
                 { result = [ :OP_DOT, val[0], val[2] ] }
         | postfix_expression '->' IDENTIFIER
+                | postfix_expression '->' IDENTIFIER
                 { result = [ :OP_REF, val[0], val[2] ] }
+        | postfix_expression '++'       { result = val[0] }   # ++, -- は無視する
+        | postfix_expression '--'       { result = val[0] }
+argument_list
+        :
+        | expression
+        | argument_list ',' expression
+                | postfix_expression '++'       { result = val[0] }   # ++, -- は無視する
+                | postfix_expression '--'       { result = val[0] }
+                | '(' type_name ')' '{' initializer_list '}'
+                | '(' type_name ')' '{' initializer_list ',' '}'
+argument_expression_list
+                : assignment_expression
+                | argument_expression_list ',' assignment_expression
 # 前置インクリメント、デクリメント演算子がない
 unary_expression
         : postfix_expression
         | unary_operator cast_expression
+                : postfix_expression
+                | unary_operator cast_expression
                 { result = [ val[0], val[1] ] }
         | SIZEOF unary_expression
+                | SIZEOF unary_expression
                 { result = [ :OP_SIZEOF_EXPR, val[1] ] }
         | SIZEOF '(' type_name ')'
+                | SIZEOF '(' type_name ')'
                 { result = [ :OP_SIZEOF_TYPE, val[1] ] }
                 | '++' unary_expression                 { result = val[1] }   # ++, -- は無視する
 …
 unary_operator
         : '&'   { result = :OP_U_AMP }
         | '*'   { result = :OP_U_ASTER }
         | '+'   { result = :OP_U_PLUS }
         | '-'   { result = :OP_U_MINUS }
         | '~'   { result = :OP_U_TILDE }
         | '!'   { result = :OP_U_EXCLAM }
+                : '&'   { result = :OP_U_AMP }
+                | '*'   { result = :OP_U_ASTER }
+                | '+'   { result = :OP_U_PLUS }
+                | '-'   { result = :OP_U_MINUS }
+                | '~'   { result = :OP_U_TILDE }
+                | '!'   { result = :OP_U_EXCLAM }
 cast_expression
         : unary_expression
         | '(' type_name ')' cast_expression
+                : unary_expression
+                | '(' type_name ')' cast_expression
                 {  result = [ :CAST, val[1], val[3] ] }
 multiplicative_expression
         : cast_expression
         | multiplicative_expression '*' cast_expression
+                : cast_expression
+                | multiplicative_expression '*' cast_expression
                 { result = [ :OP_MULT, val[0], val[2] ]  }
         | multiplicative_expression '/' cast_expression
+                | multiplicative_expression '/' cast_expression
                 { result = [ :OP_DIV, val[0], val[2] ]  }
         | multiplicative_expression '%' cast_expression
+                | multiplicative_expression '%' cast_expression
                 { result = [ :OP_REMAIN, val[0], val[2] ]  }
 additive_expression
         : multiplicative_expression
         | additive_expression '+' multiplicative_expression
+                : multiplicative_expression
+                | additive_expression '+' multiplicative_expression
                 { result = [ :OP_ADD, val[0], val[2] ]  }
         | additive_expression '-' multiplicative_expression
+                | additive_expression '-' multiplicative_expression
                 { result = [ :OP_SUB, val[0], val[2] ]  }
 shift_expression
         : additive_expression
         | shift_expression '<<' additive_expression
+                : additive_expression
+                | shift_expression '<<' additive_expression
                 { result = [ :OP_LSFT, val[0], val[2] ]  }
         | shift_expression '>>' additive_expression
+                | shift_expression '>>' additive_expression
                 { result = [ :OP_RSFT, val[0], val[2] ]  }
 relational_expression
         : shift_expression
         | relational_expression '<' shift_expression
+                : shift_expression
+                | relational_expression '<' shift_expression
                 { result = [ :OP_LT, val[0], val[2] ]  }
         | relational_expression '>' shift_expression
+                | relational_expression '>' shift_expression
                 { result = [ :OP_GT, val[0], val[2] ]  }
         | relational_expression '<=' shift_expression
+                | relational_expression '<=' shift_expression
                 { result = [ :OP_LE, val[0], val[2] ]  }
         | relational_expression '>=' shift_expression
+                | relational_expression '>=' shift_expression
                 { result = [ :OP_GE, val[0], val[2] ]  }
 equality_expression
         : relational_expression
         | equality_expression '==' relational_expression
+                : relational_expression
+                | equality_expression '==' relational_expression
                 { result = [ :OP_EQ, val[0], val[2] ]  }
         | equality_expression '!=' relational_expression
+                | equality_expression '!=' relational_expression
                 { result = [ :OP_NE, val[0], val[2] ]  }
 and_expression
         : equality_expression
         | and_expression '&' equality_expression
+                : equality_expression
+                | and_expression '&' equality_expression
                 { result = [ :OP_AND, val[0], val[2] ]  }
 exclusive_or_expression
         : and_expression
         | exclusive_or_expression '^' and_expression
+                : and_expression
+                | exclusive_or_expression '^' and_expression
                 { result = [ :OP_EOR, val[0], val[2] ]  }
 inclusive_or_expression
         : exclusive_or_expression
         | inclusive_or_expression '|' exclusive_or_expression
+                : exclusive_or_expression
+                | inclusive_or_expression '|' exclusive_or_expression
                 { result = [ :OP_OR, val[0], val[2] ]  }
 logical_and_expression
         : inclusive_or_expression
         | logical_and_expression '&&' inclusive_or_expression
+                : inclusive_or_expression
+                | logical_and_expression '&&' inclusive_or_expression
                 { result = [ :OP_LAND, val[0], val[2] ]  }
 logical_or_expression
         : logical_and_expression
         | logical_or_expression '||' logical_and_expression
+                : logical_and_expression
+                | logical_or_expression '||' logical_and_expression
                 { result = [ :OP_LOR, val[0], val[2] ]  }
 conditional_expression
         : logical_or_expression
         | logical_or_expression '?' expression ':' conditional_expression
+                : logical_or_expression
+                | logical_or_expression '?' expression ':' conditional_expression
                 { result = [ :OP_CEX, val[0], val[2].get_elements, val[4] ]  }
+# コンマ演算子が使えない
+assignment_expression
+                : conditional_expression
+                | unary_expression assignment_operator assignment_expression
+assignment_operator
+                : '='
+                | '+='
+                | '-='
+                | '*='
+                | '/='
+                | '%='
+                | '<<='
+                | '>>='
+                | '&='
+                | '|='
+                | '^='
 expression
         : conditional_expression
+                : assignment_expression
+                {
                         result = Expression.new( val[0] )
                         # result.print
+                }
+                | expression ',' assignment_expression
+                {
+                        result = Expression.new( val[2] )    # ',' の後ろを採用
+                }
 constant_expression
         : conditional_expression
+                : conditional_expression
+                {
                         result = Expression.new( val[0] )
 …
+                }
 # Types
 ##########################  宣言  ##########################
 …
 # K&Rとの違い: storage classが指定できない、型が省略できない
 declaration
         : declaration_specifiers init_declarator_list ';'
 #        : type_specifier_qualifier_list init_declarator_list ';'
+                : declaration_specifiers init_declarator_list ';'
+#        : specifier_qualifier_list init_declarator_list ';'
 # declaration_specifiersは関数のパラメータで使われるが、
 # type_specifier_qualifier_listで十分かもしれない
+# specifier_qualifier_listで十分かもしれない
 declaration_specifiers
+        : storage_class
+                : storage_class_specifier
+                {
                         result = CIntType.new( -3 )    # storage class は無視
+                }
+        | type_specifier
+        | type_qualifier
+                | storage_class_specifier declaration_specifiers
+                {
+                        result = val[1]                # storage class は無視
+                }
+                | type_specifier
+                | type_specifier declaration_specifiers
+                {
+                        result = val[1].merge val[0]
+                }
+                | type_qualifier
+                {
                         result = CIntType.new( -3 )
                         result.set_qualifier val[0]
+                }
+        | storage_class declaration_specifiers
+                {
+                        result = val[1]                # storage class は無視
+                }
+        | type_specifier declaration_specifiers
+                {
+                        result = val[1].merge val[0]
+                }
+        | type_qualifier declaration_specifiers
+                | type_qualifier declaration_specifiers
+                {
                         val[1].set_qualifier val[0]
+                        result = val[1]
+                }
+                                                result = val[1]
+                }
+                | function_specifier
+                | function_specifier declaration_specifiers
 init_declarator_list
         : init_declarator
+                : init_declarator
                 { result = [val[0]] }
         | init_declarator_list ',' init_declarator
+                | init_declarator_list ',' init_declarator
                 { result << val[2] }
 init_declarator
         : declarator
         | declarator '=' initializer
+                : declarator
+                | declarator '=' initializer
                 { val[0].set_initializer( val[2] ) }
+storage_class_specifier
+                : EXTERN
+                | STATIC
+                | AUTO
+                | REGISTER
 type_specifier
+        : VOID  { set_no_type_name true; result = CVoidType.new }
+        | FLOAT { set_no_type_name true; result = CFloatType.new(-32) }
+        | DOUBLE        { set_no_type_name true; result = CFloatType.new(-64) }
+        | BOOL  { set_no_type_name true; result = CBoolType.new }
+        | struct_specifier      { set_no_type_name true; result = val[0] } # set_no_type_name true は struct_tag でも呼ばれる
+        | union_specifier       { set_no_type_name true; result = CVoidType.new }  # void が宣言されたとする
+        | enum_specifier        { set_no_type_name true; result = CVoidType.new }  # void が宣言されたとする
+        | TYPE_NAME     { set_no_type_name true; result = CDefinedType.new( val[0].val ) }
+        | CHAR  { set_no_type_name true; result = CIntType.new(-11 ) }
+        | SHORT { set_no_type_name true; result = CIntType.new( -2 ) }
+        | INT           { set_no_type_name true; result = CIntType.new( -3 ) }
+        | LONG  { set_no_type_name true; result = CIntType.new( -4 ) }
+        | SIGNED
+                : VOID
+                { set_no_type_name true; result = CVoidType.new }
+                | CHAR
+                { set_no_type_name true; result = CIntType.new(-11 ) }
+                | SHORT
+                { set_no_type_name true; result = CIntType.new( -2 ) }
+                | INT
+                { set_no_type_name true; result = CIntType.new( -3 ) }
+                | LONG
+                { set_no_type_name true; result = CIntType.new( -4 ) }
+                | FLOAT
+                { set_no_type_name true; result = CFloatType.new(-32) }
+                | DOUBLE
+                { set_no_type_name true; result = CFloatType.new(-64) }
+                | SIGNED
+                {
                         set_no_type_name true
 …
                         result.set_sign :SIGNED
+                }
         | UNSIGNED
+                | UNSIGNED
+                {
                         set_no_type_name true
 …
                         result.set_sign :UNSIGNED
+                }
+                | BOOL
+                { set_no_type_name true; result = CBoolType.new }
+                | struct_specifier
+                { set_no_type_name true; result = val[0] } # set_no_type_name true は struct_tag でも呼ばれる
+                | union_specifier
+                { set_no_type_name true; result = CVoidType.new }  # void が宣言されたとする
+                | enum_specifier
+                { set_no_type_name true; result = CVoidType.new }  # void が宣言されたとする
+                | TYPE_NAME
+                { set_no_type_name true; result = CDefinedType.new( val[0].val ) }
 # mikan K&Rのstruct_or_union_specifierに相当するが、unionは使えない, bit field にも対応しない
 struct_specifier                # mikan
+        : STRUCT struct_tag '{'
+#        : STRUCT struct_tag '{'
+                : struct_term struct_tag '{'
                 { StructType.set_define( true )  }
            struct_declaration_list '}'
+                struct_declaration_list '}'
+                {
                         StructType.end_of_parse
                         result = val[1]
+                }
+        | STRUCT
+#        | STRUCT
+                | struct_term
+                {
                         result = CStructType.new()
                         StructType.set_define( true )
+                }
            '{' struct_declaration_list '}'
+                '{' struct_declaration_list '}'
+                {
                         StructType.end_of_parse
                         result = val[1]
+                }
+        | STRUCT struct_tag   # mikan struct_tag は namespace 対応が必要
+#        | STRUCT struct_tag   # mikan struct_tag は namespace 対応が必要
+                | struct_term struct_tag   # mikan struct_tag は namespace 対応が必要
+                {
                         StructType.set_define( false )
 …
+                }
+struct_term
+                : STRUCT { set_no_type_name true }
 struct_declaration_list
         : struct_declaration
         | struct_declaration_list struct_declaration
+                : struct_declaration
+                | struct_declaration_list struct_declaration
 struct_tag:
         IDENTIFIER
+                IDENTIFIER
+                {
                         result = CStructType.new( val[0].val )
 …
 # ポインタ修飾子を追加
 struct_declaration
         : declaration_specifiers struct_declarator_list ';'
 #        :                                type_specifier_qualifier_list struct_declarator_list ';'
+                : declaration_specifiers struct_declarator_list ';'
+#        :                                specifier_qualifier_list struct_declarator_list ';'
+                {
                         val[1].each { |i|       # i: Decl
 …
                         result = val[1]
+                }
+        | union_specifier ';'                       # 無名
+        | struct_specifier ';'                       # 無名
+                # ビットフィールドを読み飛ばし
+                | declaration_specifiers struct_declarator_list ':' constant_expression ';'
+                {
+                        val[1].each { |i|       # i: Decl
+                                i.set_type( val[0] )
+                                i.set_kind( :MEMBER )
+                                i.check
+                                CStructType.new_member( i )
+                        }
+                        result = val[1]
+                }
+                | union_specifier ';'                       # 無名
+                | struct_specifier ';'                       # 無名
 …
 # K&Rのspecifier_qualifier_listと同じ
 # 名前がまぎらわしかったのでtype_を付けた
+type_specifier_qualifier_list
+        : type_specifier
+        | type_specifier type_specifier_qualifier_list
+specifier_qualifier_list
+                : type_specifier specifier_qualifier_list
+                {
                         result = val[1].merge val[0]
+                }
+        | type_qualifier
+                | type_specifier
+                | type_qualifier specifier_qualifier_list
+                {
+                        val[1].set_qualifier val[0]
+                                                result = val[1]
+                }
+                | type_qualifier
+                {
                         result = CIntType.new( -3 )
                         result.set_qualifier val[0]
+                }
-        | type_qualifier type_specifier_qualifier_list
+                {
-                        val[1].set_qualifier val[0]
-                        result = val[1]
+                }
 struct_declarator_list
         : struct_declarator
+                : struct_declarator
                 { result = [ val[0] ] }
         | struct_declarator_list ',' struct_declarator
+                | struct_declarator_list ',' struct_declarator
                 { result << val[2] }
 # ビットフィールドは使えない
 struct_declarator
         : declarator
+                : declarator
+#               | ':' constant_expression
+#               | declarator ':' constant_expression
 union_specifier
+        : UNION union_tag '{' union_declaration_list '}'
+        | UNION '{' union_declaration_list '}'
+        | UNION union_tag   # mikan struct_tag は namespace 対応が必要
+#        : UNION union_tag '{' union_declaration_list '}'
+#        | UNION '{' union_declaration_list '}'
+#        | UNION union_tag   # mikan struct_tag は namespace 対応が必要
+                : union_term union_tag '{' union_declaration_list '}'
+                | union_term '{' union_declaration_list '}'
+                | union_term union_tag   # mikan struct_tag は namespace 対応が必要
+union_term
+                : UNION { set_no_type_name true }
 union_declaration_list
         : union_declaration
         | union_declaration_list union_declaration
+                : union_declaration
+                | union_declaration_list union_declaration
 union_tag:
 …
 union_declaration
         : declaration_specifiers union_declarator_list ';'
+                : declaration_specifiers union_declarator_list ';'
                 | union_specifier ';'                       # 無名
                 | struct_specifier ';'                      # 無名
 union_declarator_list
+        : union_declarator
+        | union_declarator_list ',' union_declarator
+# ビットフィールドは使えない
+                : union_declarator
+                | union_declarator_list ',' union_declarator
 union_declarator
+        : declarator
+# enumの種類を追加
+enum_specifier          # mikan
+        : enum_type            '{' enumerator_list '}'
+        | enum_type IDENTIFIER '{' enumerator_list '}'
+        | enum_type IDENTIFIER
+enum_type
+        : ENUM  { result = CEnumType.new( -1 ) }
+#        | ENUM8        { result = CEnumType.new( 8 ) }
+#        | ENUM16       { result = CEnumType.new( 16 ) }
+#        | ENUM32       { result = CEnumType.new( 32 ) }
+#        | ENUM64       { result = CEnumType.new( 64 ) }
+#        | ENUM128      { result = CEnumType.new( 128 ) }
+                : declarator
+                | ':' constant_expression
+                | declarator ':' constant_expression
+enum_specifier
+                : ENUM '{' enumerator_list '}'
+                | ENUM IDENTIFIER '{' enumerator_list '}'
+                | ENUM '{' enumerator_list ',' '}'
+                | ENUM IDENTIFIER '{' enumerator_list ',' '}'
+                | ENUM IDENTIFIER
+                | ENUM TYPE_NAME '{' enumerator_list '}'
+                | ENUM TYPE_NAME '{' enumerator_list ',' '}'
+                | ENUM TYPE_NAME
 enumerator_list
         : enumerator
         | enumerator_list ',' enumerator
+                : enumerator
+                | enumerator_list ',' enumerator
 enumerator
         : IDENTIFIER
         | IDENTIFIER '=' constant_expression
+                : IDENTIFIER
+                | IDENTIFIER '=' constant_expression
 type_qualifier
+        : CONST { result = :CONST }
+        | VOLATILE      { result = :VOLATILE }
+                : CONST
+                { result = :CONST }
+                | RESTRICT
+                | VOLATILE
+                { result = :VOLATILE }
+function_specifier
+                : __INLINE__
+                | INLINE
+                | __INLINE
+                | CINLINE
 declarator
         : pointer direct_declarator
+                : pointer direct_declarator
+                {
                         val[1].set_type( val[0] )
                         result = val[1]
+                }
         | direct_declarator
         | pointer TYPE_NAME     # 関数ポインタの typedef が二重定義の場合
+                | direct_declarator
+                | pointer TYPE_NAME     # 関数ポインタの typedef が二重定義の場合
+                {
                         result = Decl.new( val[1].val )
 …
 direct_declarator               # mikan
         : IDENTIFIER
+                : IDENTIFIER
                 { result = Decl.new( val[0].val ) }
         | '(' declarator ')'
+                | '(' declarator ')'
                 { result = val[1] }
         | direct_declarator '[' constant_expression ']'
+                | direct_declarator '[' constant_expression ']'
+                {
                         val[0].set_type( CArrayType.new( val[2] ) )
                         result = val[0]
+                }
         | direct_declarator '[' ']'
+                | direct_declarator '[' ']'
+                {
                         val[0].set_type( CArrayType.new )
                         result = val[0]
+                }
         | direct_declarator '(' parameter_type_list ')'
+                | direct_declarator '(' parameter_type_list ')'
+                {
                 #       Generator.warning( "W6001 need 'void' for no parameter"  )
 …
                         result = val[0]
+                }
+#        | direct_declarator '(' identifier_list ')'  # これは何のために必要？ 060211
+        | direct_declarator '(' ')'
+                | direct_declarator '(' identifier_list ')'  # これは何のために必要？ 060211
+                | direct_declarator '(' ')'
+                {
                 #       Generator.warning( "W6002 need 'void' for no parameter"  )
 …
 pointer
         : '*'
+                : '*'
                 { result = CPtrType.new }
+        | '*' type_qualifier
+                | '*' type_qualifier_list
+                {
                         result = CPtrType.new
                         result.set_qualifier( val[1] )
+                }
         | '*' pointer
+                | '*' pointer
+                {
                         val[1].set_type(CPtrType.new)
                         result = val[1]
+                }
         | '*' type_qualifier pointer
+                | '*' type_qualifier_list pointer
+                {
                         ptrtype = CPtrType.new
 …
+                }
+type_qualifier_list
+                : type_qualifier
+                | type_qualifier_list type_qualifier
 parameter_type_list
         : parameter_list
         | parameter_list ',' '.' '.' '.'
+                : parameter_list
+                | parameter_list ',' '.' '.' '.'
                 # mikan 可変長パラメータ,  ... の間のスペースが許される（手抜き）
 parameter_list
         : parameter_declaration
+                : parameter_declaration
 #               { result = ParamList.new( val[0] ) }
         | parameter_list ',' parameter_declaration
+                | parameter_list ',' parameter_declaration
 #               {
 #                       val[0].add_param( val[2] )
 …
 # パラメータ修飾子を追加
 parameter_declaration
         : declaration_specifiers declarator
+                : declaration_specifiers declarator
 #               {
 #                       decl = ParamDecl.new( val[1], val[0], [] )
 …
 #                       result = nil
 #               }
         | declaration_specifiers abstract_declarator    # 仮引数なし
         | declaration_specifiers                                                # 仮引数なし
 #identifier_list       # 060211  不用になった
 #        : IDENTIFIER
 #        | identifier_list ',' IDENTIFIER
+                | declaration_specifiers abstract_declarator    # 仮引数なし
+                | declaration_specifiers                                                # 仮引数なし
+identifier_list       # 060211  不用になった
+        : IDENTIFIER
+        | identifier_list ',' IDENTIFIER
 type_name
         : type_specifier_qualifier_list
         | type_specifier_qualifier_list abstract_declarator
+                : specifier_qualifier_list
+                | specifier_qualifier_list abstract_declarator
 abstract_declarator             # mikan
         : pointer
         | direct_abstract_declarator
         | pointer direct_abstract_declarator
+                : pointer
+                | direct_abstract_declarator
+                | pointer direct_abstract_declarator
 direct_abstract_declarator
         : '(' abstract_declarator ')'
         | '[' ']'
         | '[' constant_expression ']'
         | direct_abstract_declarator '[' ']'
         | direct_abstract_declarator '[' constant_expression ']'
         | '(' ')'
+                : '(' abstract_declarator ')'
+                | '[' ']'
+                | '[' assignment_expression ']'
+                | direct_abstract_declarator '[' ']'
+                | direct_abstract_declarator '[' assignment_expression ']'
+                | '(' ')'
+                {
                         Generator.warning( "W6003 need 'void' for no parameter"  )
+                }
         | '(' parameter_type_list ')'
         | direct_abstract_declarator '(' ')'
+                | '(' parameter_type_list ')'
+                | direct_abstract_declarator '(' ')'
+                {
                         Generator.warning( "W6004 need 'void' for no parameter"  )
+                }
         | direct_abstract_declarator '(' parameter_type_list ')'
+                | direct_abstract_declarator '(' parameter_type_list ')'
 # assignment_expressionをconstant_expressionに変更
 initializer                     # mikan
         : constant_expression
+                : assignment_expression
                 { result = val[0] }
         | '{' initializer_list '}'
+                | '{' initializer_list '}'
                 { result = val[1] }
         | '{' initializer_list ',' '}'
+                | '{' initializer_list ',' '}'
                 { result = val[1] }
         | C_EXP '(' STRING_LITERAL ')'
+                | C_EXP '(' STRING_LITERAL ')'
                 { result = C_EXP.new( val[2] ) }
 initializer_list
         : initializer
+                : initializer
+                {
                         result = [ val[0] ]
+                }
         | initializer_list ',' initializer
+                | initializer_list ',' initializer
+                {
                         val[0] << val[2]
 …
 #トップレベルの構文規則
 C_parser
+        :
         | C_parser extension_statement
+                :
+                | C_parser extension_statement
 extension_statement
         : statement
         | EXTENSION statement
 statement
         : typedef
         | func_def
         | enum_specifier ';'
         | struct_specifier ';'
         | declaration
         | ';'
         | error   # エラー回復ポイント
+                : cdl_statement
+                | EXTENSION cdl_statement
+cdl_statement
+                : typedef
+                | func_def
+                | enum_specifier ';'
+                | struct_specifier ';'
+                | declaration
+                | ';'
+                | error   # エラー回復ポイント
 typedef
         : TYPEDEF type_specifier_qualifier_list declarator_list ';'
+        : TYPEDEF specifier_qualifier_list declarator_list ';'
+                {
                         val[2].each{ |i|
 …
 declarator_list
         : declarator
+                : declarator
                 { result = [ val[0] ] }
         | declarator_list ',' declarator
+                | declarator_list ',' declarator
                 { result << val[2] }
 func_def
+        : declaration_specifiers declarator compoundstatement
+infunc_statement_list
+        :
+        | infunc_statement_list infunc_statement
+infunc_statement
+        : declaration
+        | ifstatement
+        | whilestatement
+        | dowhilestatement
+        | forstatement
+        | switchstatement
+        | labelstatement
+        | compoundstatement
+        | gotostatement
+        | expressionstatement
+        | ';'
+                : declaration_specifiers declarator compound_statement
+statement
+                : labeled_statement
+                | compound_statement
+                | expression_statement
+                | ifstatement
+                | whilestatement
+                | dowhilestatement
+                | forstatement
+                | switchstatement
+                | jump_statement
+                | asm_statement
+labeled_statement
+                : IDENTIFIER ':' statement
+                | CASE constant_expression ':' statement
+                | DEFAULT ':' statement
+compound_statement
+                : '{' '}'
+                | '{' block_item_list '}'
+block_item_list
+                : block_item
+                | block_item_list block_item
+block_item
+                : declaration
+                | statement
+expression_statement
+                : ';'
+                | expression ';'
 ifstatement
+        : IF '(' expression ')' infunc_statement
+        | IF '(' expression ')' infunc_statement ELSE infunc_statement
+                : IF '(' expression ')' statement
+                | IF '(' expression ')' statement ELSE statement
+switchstatement
+                : SWITCH '(' expression ')' compound_statement
 whilestatement
         : WHILE '(' expression ')' infunc_statement
+                : WHILE '(' expression ')' statement
 dowhilestatement
         : DO infunc_statement WHILE '(' expression ')' ';'
+                : DO statement WHILE '(' expression ')' ';'
 forstatement
+        : FOR '(' expression ';' expression ';' expression ')' infunc_statement
+switchstatement
+        : SWITCH '(' expression ')'  infunc_statment
+labelstatement
+        : IDENTIFIER ':' infunc_statement
+        | CASE constant_expression ':' infunc_statement
+        | DEFAULT ':' infunc_statement
+compoundstatement
+        : '{' infunc_statement_list '}'
+gotostatement
+        : GOTO IDENTIFIER ';'
+        | CONTINUE ';'
+        | BREAK ';'
+        | RETURN expression ';'
+        | RETURN ';'
+expressionstatement
+        : expression ';'
+        | unary_expression assignment_operator expression ';'
+assignment_operator
+        : '='
+        | '+='
+        | '-='
+        | '*='
+        | '/='
+        | '%='
+        | '<<='
+        | '>>='
+        | '&='
+        | '|='
+        | '^='
+storage_class
+        : __INLINE__
+        | INLINE
+        | __INLINE
+        | CINLINE
+        | EXTERN
+        | STATIC
+        | AUTO
+        | REGISTER
+                : FOR '(' expression_statement expression_statement ')' statement
+                | FOR '(' expression_statement expression_statement expression ')' statement
+                | FOR '(' declaration expression_statement ')' statement
+                | FOR '(' declaration expression_statement expression ')' statement
+jump_statement
+                : GOTO IDENTIFIER ';'
+                | CONTINUE ';'
+                | BREAK ';'
+                | RETURN ';'
+                | RETURN expression ';'
 namespace_identifier
         : IDENTIFIER            { result = NamespacePath.new( val[0].val, false ) }
         | '::' IDENTIFIER       { result = NamespacePath.new( val[1].val, true ) }
         | namespace_identifier '::' IDENTIFIER
+                : IDENTIFIER            { result = NamespacePath.new( val[0].val, false ) }
+                | '::' IDENTIFIER       { result = NamespacePath.new( val[1].val, true ) }
+                | namespace_identifier '::' IDENTIFIER
                 { result = val[0].append!( val[2].val ) }
+asm_statement
+                : _ASM {
+                while true
+                        # ';' が表れるまで、トークンを読み飛ばす。
+                        # gcc の構文拡張に対応すべきだが、単純な実装として、';' まで読み飛ばす。
+                        # トークン単位で読み飛ばしているので、文字列やコメント内の ';' は対象にならない。
+                        token = next_token
+                        if token[1].val == ";"
+                                break
+                        end
+                        # p "skip: #{token[1].val}"
+                end
+                }
 end
 ---- inner
+  RESERVED = {
+    # keyword
+    'typedef' => :TYPEDEF,
+    'struct' => :STRUCT,
+    'union' => :UNION,
+    'sizeof' => :SIZEOF,
+    'throw' => :THROW,
+    # specifier
+    # types
+    'void'    => :VOID,
+    'char'    => :CHAR,
+    'short'   => :SHORT,
+    'volatile'=> :VOLATILE,
+    'const'   => :CONST,
+    'extern'   => :EXTERN,
+    'long'    => :LONG,
+    'float'   => :FLOAT,
+    'double'  => :DOUBLE,
+    'signed'  => :SIGNED,
+    'unsigned'=> :UNSIGNED,
+    'int'     => :INT,
+    'enum'    => :ENUM,
+    'if'      => :IF,
+    'else'    => :ELSE,
+    'while'   => :WHILE,
+    'do'      => :DO,
+    'for'     => :FOR,
+    'case'    => :CASE,
+    'default' => :DEFAULT,
+    'goto'    => :GOTO,
+    'continue' => :CONTINUE,
+    'break'   => :BREAK,
+    'return'  => :RETURN,
+    '__inline__'  => :__INLINE__,
+    'inline'  => :INLINE,
+    '__inline'  => :__INLINE,
+    'Inline'  => :CINLINE,        # inline starting with Capital letter
+    'static'  => :STATIC,
+    'register' => :REGISTER,
+    'auto'    => :AUTO,
+    '__extension__'    => :EXTENSION,
+  }
+  @@generator_nest = -1
+  @@generator_stack = []
+  @@current_locale = []
+  def finalize
+    # mikan Namespace.pop
+    Celltype.pop
+    Cell.pop
+    CompositeCelltype.pop
+    Region.pop
+  end
+  def set_plugin( plugin )
+    @plugin = plugin
+  end
+  def self.get_plugin
+    @@generator_stack[@@generator_nest].get_plugin
+  end
+  def get_plugin
+    @plugin
+  end
+  def parse(files)
+    # mikan Namespace.push
+    Celltype.push
+    Cell.push
+    CompositeCelltype.push
+    Region.push
+    @@generator_nest += 1
+    @@generator_stack[@@generator_nest] = self
+    @b_no_type_name = false
+   begin
+    @q = []
+    comment = false
+    # euc のコメントを utf8 として扱うと、コメントの終わりを誤る問題の対策
+    TECS_LANG::set_kcode_binary
+    # 800U, 0xffLL など (整数リテラルに共通の修飾子)
+    integer_qualifier = "([Uu][Ll][Ll]|[Uu][Ll]|[Uu]|[Ll][Ll]|[Ll])?"
+    files.each {|file|
+      lineno = 1
+     begin
+#2.0       IO.foreach(file) {|line|
+       TECSIO.foreach(file) {|line|
+        col = 1
+        line.rstrip!
+        until line.empty?
+          if comment
+            case line
+            # コメント終了
+            when /\A\*\//
+              comment = false
+            when /\A./
+              ;
+            end
+          else
+            case line
+            # 空白、プリプロセスディレクティブ
+            when /\A\s+/
+              ;
+            # 識別子
+            when /\A[a-zA-Z_]\w*/
+              word = $&
+              @q << [RESERVED[word] || :IDENTIFIER, Token.new(word.intern, file, lineno, col)]
+            # 16 進数定数
+            when /\A0x[0-9A-Fa-f]+#{integer_qualifier}/
+              @q << [:HEX_CONSTANT, Token.new($&, file, lineno, col)]
+            # 8 進数定数
+            when /\A0[0-7]+#{integer_qualifier}/
+              @q << [:OCTAL_CONSTANT, Token.new($&, file, lineno, col)]
+            # 浮動小数定数
+            when /\A[0-9]+\.([0-9]*)?([Ee][+-]?[0-9]+)?/
+              @q << [:FLOATING_CONSTANT, Token.new($&, file, lineno, col)]
+            # 整数定数
+            when /\A\d+#{integer_qualifier}/
+            # when /\A\d+/
+              @q << [:INTEGER_CONSTANT, Token.new($&.to_i, file, lineno, col)]
+            # 文字
+            when /\A'(?:[^'\\]|\\.)'/
+              @q << [:CHARACTER_LITERAL, Token.new($&, file, lineno, col)]
+            # 文字列
+#              "#include  #include #include \"../systask/logtask.cfg\"       最後の " 忘れ)で無限ループ
+#            when /\A"(?:[^"\\]+|\\.)*"/
+            when /\A"(?:[^"\\]|\\.)*"/   # これはうまく行くようだ
+              @q << [:STRING_LITERAL, Token.new($&, file, lineno, col)]
+            # 行コメント
+            when /\A\/\/.*$/
+              # 読み飛ばすだけ
+            # コメント開始
+            when /\A\/\*/
+              comment = true
+            when /\A>>=/, /\A<<=/, /\A>>/,  /\A<</
+              @q << [$&, Token.new($&, file, lineno, col)]
+            when /\A\+=/, /\A\-=/, /\A\*=/, /\A\/=/, /\A%=/, /\A&=/, /\A\|=/, /\A\^=/
+              @q << [$&, Token.new($&, file, lineno, col)]
+            when /\A::/, /\A==/, /\A!=/, /\A>=/, /\A<=/, /\A\->/, /\A\+\+/, /\A\-\-/
+              @q << [$&, Token.new($&, file, lineno, col)]
+            when /\A./
+              @q << [$&, Token.new($&, file, lineno, col)]
+            else
+              raise
+            end
+          end
+          line = $'
+          col += $&.length
+        end
+        lineno += 1
+      }
+     rescue => evar
+       Generator.error( "B1002 while open or reading \'$1\'" , file )
+       print_exception( evar )
+     end
+    }
+    # 終了の印
+    @q << nil
+    @yydebug = true
+    do_parse
+   ensure
+    @@generator_nest -= 1
+    TECS_LANG::reset_kcode
+   end
+  end
+  def next_token
+    token = @q.shift
+    if token then
+      @@current_locale[@@generator_nest] = token[1].locale
+      case token[1].val
+      when ";", ":", ",", "(", ")", "{", "}"
+        set_no_type_name false
+      when ".", "->"
+        set_no_type_name true
+      end
+      # TYPE_NAME トークンへ置き換え
+      if @b_no_type_name == false
+        if token[0] == :IDENTIFIER && Namespace.is_typename?( token[1].val ) then
+          token[0] = :TYPE_NAME
+        end
+      end
+      if $debug then     # 070107 token 無効時ここを通さないようした (through 対応 -d の時に例外発生)
+        locale = @@current_locale[@@generator_nest]
+        if token then
+          print( "#{locale[0]}: line #{locale[1]} : #{token[0]} '#{token[1].val}'\n" )
+        else
+          print( "#{locale[0]}: line #{locale[1]} : EOF\n" )
+        end
+      end
+    end
+    token
+  end
+  def on_error(t, v, vstack)
+    if v == "$" then
+     Generator.error( "B1003 Unexpected EOF"  )
+    else
+     Generator.error( "B1004 syntax error near \'$1\'" , v.val )
+    end
+  end
+  def self.current_locale
+    @@current_locale[ @@generator_nest ]
+  end
+  @@n_error = 0
+  @@n_warning = 0
+  # このメソッドは構文解析、意味解析からのみ呼出し可（コード生成でエラー発生は不適切）
+  def self.error( msg )
+    @@n_error += 1
+    locale = @@current_locale[ @@generator_nest ]
+    if locale then
+      Console.puts "error: #{locale[0]}: line #{locale[1]} #{msg}"
+    else
+      Console.puts "error: #{msg}"
+    end
+  end
+  # このメソッドは構文解析、意味解析からのみ呼出し可（コード生成でウォーニング発生は不適切）
+  def self.warning( msg )
+    @@n_warning += 1
+    locale = @@current_locale[ @@generator_nest ]
+    Console.puts "warning: #{locale[0]}: line #{locale[1]} #{msg}"
+  end
+  def self.get_n_error
+    @@n_error
+  end
+  def self.get_n_warning
+    @@n_warning
+  end
+  def self.get_nest
+    @@generator_nest
+  end
+  def set_no_type_name b_no_type_name
+    # print "b_no_type_name=#{b_no_type_name}\n"
+    @b_no_type_name = b_no_type_name
+  end
+        RESERVED = {
+                # keyword
+                'typedef' => :TYPEDEF,
+                'struct' => :STRUCT,
+                'union' => :UNION,
+                'sizeof' => :SIZEOF,
+                'throw' => :THROW,
+                # specifier
+                # types
+                'void'    => :VOID,
+                'char'    => :CHAR,
+                'short'   => :SHORT,
+                'volatile'=> :VOLATILE,
+                'restrict'=> :RESTRICT,
+                'const'   => :CONST,
+                'extern'   => :EXTERN,
+                'long'    => :LONG,
+                'float'   => :FLOAT,
+                'double'  => :DOUBLE,
+                'signed'  => :SIGNED,
+                'unsigned'=> :UNSIGNED,
+                'int'     => :INT,
+                'enum'    => :ENUM,
+                'if'      => :IF,
+                'else'    => :ELSE,
+                'while'   => :WHILE,
+                'do'      => :DO,
+                'for'     => :FOR,
+                'switch'  => :SWITCH,
+                'case'    => :CASE,
+                'default' => :DEFAULT,
+                'goto'    => :GOTO,
+                'continue' => :CONTINUE,
+                'break'   => :BREAK,
+                'return'  => :RETURN,
+                '__inline__'  => :__INLINE__,
+                'inline'  => :INLINE,
+                '__inline'  => :__INLINE,
+                'Inline'  => :CINLINE,        # inline starting with Capital letter
+                'static'  => :STATIC,
+                'register' => :REGISTER,
+                'auto'    => :AUTO,
+                '__extension__'    => :EXTENSION,
+                '__asm__' => :_ASM,
+                'asm' =>     :_ASM
+        }
+        @@generator_nest = -1
+        @@generator_stack = []
+        @@current_locale = []
+        def finalize
+                # mikan Namespace.pop
+                Celltype.pop
+                Cell.pop
+                CompositeCelltype.pop
+                Region.pop
+        end
+        def set_plugin( plugin )
+                @plugin = plugin
+        end
+        def self.get_plugin
+                @@generator_stack[@@generator_nest].get_plugin
+        end
+        def get_plugin
+                @plugin
+        end
+        def parse(files)
+                # mikan Namespace.push
+                Celltype.push
+                Cell.push
+                CompositeCelltype.push
+                Region.push
+                @@generator_nest += 1
+                @@generator_stack[@@generator_nest] = self
+                @b_no_type_name = false
+        begin
+                @q = []
+                comment = false
+#               b_asm   = false
+                # euc のコメントを utf8 として扱うと、コメントの終わりを誤る問題の対策
+                TECS_LANG::set_kcode_binary
+                # 800U, 0xffLL など (整数リテラルに共通の修飾子)
+                integer_qualifier = "([Uu][Ll][Ll]|[Uu][Ll]|[Uu]|[Ll][Ll]|[Ll])?"
+                files.each {|file|
+                        lineno = 1
+                begin
+#2.0            IO.foreach(file) {|line|
+                        TECSIO.foreach(file) {|line|
+                        col = 1
+                        line.rstrip!
+                        until line.empty?
+                                if comment
+                                        case line
+                                        # コメント終了
+                                        when /\A\*\//
+                                                comment = false
+                                        when /\A./
+                                                ;
+                                        end
+                                else
+                                        case line
+                                        # 空白、プリプロセスディレクティブ
+                                        when /\A\s+/
+                                                ;
+                                        # 識別子
+                                        when /\A[a-zA-Z_]\w*/
+                                                word = $&
+                                                @q << [RESERVED[word] || :IDENTIFIER, Token.new(word.intern, file, lineno, col)]
+                                        # 16 進数定数
+                                        when /\A0x[0-9A-Fa-f]+#{integer_qualifier}/
+                                                @q << [:HEX_CONSTANT, Token.new($&, file, lineno, col)]
+                                        # 8 進数定数
+                                        when /\A0[0-7]+#{integer_qualifier}/
+                                                @q << [:OCTAL_CONSTANT, Token.new($&, file, lineno, col)]
+                                        # 浮動小数定数
+                                        when /\A[0-9]+\.([0-9]*)?([Ee][+-]?[0-9]+)?/
+                                                @q << [:FLOATING_CONSTANT, Token.new($&, file, lineno, col)]
+                                        # 整数定数
+                                        when /\A\d+#{integer_qualifier}/
+                                        # when /\A\d+/
+                                                @q << [:INTEGER_CONSTANT, Token.new($&.to_i, file, lineno, col)]
+                                        # 文字
+                                        when /\A'(?:[^'\\]|\\.)'/
+                                                @q << [:CHARACTER_LITERAL, Token.new($&, file, lineno, col)]
+                                        # 文字列
+#                                       "#include  #include #include \"../systask/logtask.cfg\"       最後の " 忘れ)で無限ループ
+#                                       when /\A"(?:[^"\\]+|\\.)*"/
+                                        when /\A"(?:[^"\\]|\\.)*"/   # これはうまく行くようだ
+                                                @q << [:STRING_LITERAL, Token.new($&, file, lineno, col)]
+                                        # 行コメント
+                                        when /\A\/\/.*$/
+                                                # 読み飛ばすだけ
+                                        # コメント開始
+                                        when /\A\/\*/
+                                                comment = true
+                                        when /\A>>=/, /\A<<=/, /\A>>/,  /\A<</
+                                                @q << [$&, Token.new($&, file, lineno, col)]
+                                        when /\A\+=/, /\A\-=/, /\A\*=/, /\A\/=/, /\A%=/, /\A&=/, /\A\|=/, /\A\^=/
+                                                @q << [$&, Token.new($&, file, lineno, col)]
+                                        when /\A::/, /\A==/, /\A!=/, /\A>=/, /\A<=/, /\A\->/, /\A\+\+/, /\A\-\-/
+                                                @q << [$&, Token.new($&, file, lineno, col)]
+                                        when /\A\|\|/, /\A\&\&/
+                                                @q << [$&, Token.new($&, file, lineno, col)]
+                                        when /\A./
+                                                @q << [$&, Token.new($&, file, lineno, col)]
+                                        else
+                                                raise
+                                        end
+                                end
+                                line = $'
+                                col += $&.length
+                        end
+                        lineno += 1
+                }
+                rescue => evar
+                        Generator.error( "B1002 while open or reading \'$1\'" , file )
+                        print_exception( evar )
+                end
+        }
+        # 終了の印
+        @q << nil
+        @yydebug = true
+        do_parse
+        ensure
+                @@generator_nest -= 1
+                TECS_LANG::reset_kcode
+        end
+        end
+        def next_token
+                token = @q.shift
+                if token then
+                        @@current_locale[@@generator_nest] = token[1].locale
+                        case token[1].val
+                        when ";", ":", ",", "(", ")", "{", "}"
+                        set_no_type_name false
+                        when ".", "->"
+                        set_no_type_name true
+                        end
+                        # TYPE_NAME トークンへ置き換え
+                        if @b_no_type_name == false
+                                if token[0] == :IDENTIFIER && Namespace.is_typename?( token[1].val ) then
+                                        token[0] = :TYPE_NAME
+                                        locale = @@current_locale[@@generator_nest]
+#print( "#{locale[0]}: line #{locale[1]} : #{token[0]} '#{token[1].val}: type_name'\n" )
+                                end
+                        end
+                        if $debug then     # 070107 token 無効時ここを通さないようした (through 対応 -d の時に例外発生)
+                                locale = @@current_locale[@@generator_nest]
+                                if token then
+                                        print( "#{locale[0]}: line #{locale[1]} : #{token[0]} '#{token[1].val}'\n" )
+                                else
+                                        print( "#{locale[0]}: line #{locale[1]} : EOF\n" )
+                                end
+                        end
+                end
+                token
+        end
+        def on_error(t, v, vstack)
+                if v == "$" then
+                        Generator.error( "B1003 Unexpected EOF"  )
+                else
+                        Generator.error( "B1004 syntax error near \'$1\'" , v.val )
+                end
+        end
+        def self.current_locale
+                @@current_locale[ @@generator_nest ]
+        end
+        @@n_error = 0
+        @@n_warning = 0
+        @@n_info = 0
+        # このメソッドは構文解析、意味解析からのみ呼出し可（コード生成でエラー発生は不適切）
+        def self.error( msg )
+                @@n_error += 1
+                locale = @@current_locale[ @@generator_nest ]
+                if locale then
+                        Console.puts "#{locale[0]}:#{locale[1]}: error: #{msg}"
+                else
+                        Console.puts "error: #{msg}"
+                end
+        end
+        # このメソッドは構文解析、意味解析からのみ呼出し可（コード生成でウォーニング発生は不適切）
+        def self.warning( msg )
+                @@n_warning += 1
+                locale = @@current_locale[ @@generator_nest ]
+                Console.puts "#{locale[0]}:#{locale[1]}: warning: #{msg}"
+        end
+        # このメソッドは構文解析、意味解析からのみ呼出し可
+        def self.info( msg )
+                @@n_info += 1
+                locale = @@current_locale[ @@generator_nest ]
+                Console.puts "#{locale[0]}:#{locale[1]}: info: #{msg}"
+        end
+        def self.get_n_error
+                @@n_error
+        end
+        def self.get_n_warning
+                @@n_warning
+        end
+        def self.get_nest
+                @@generator_nest
+        end
+        def set_no_type_name b_no_type_name
+                locale = @@current_locale[ @@generator_nest ]
+#print "b_no_type_name=#{b_no_type_name} #{locale[0]}: line #{locale[1]}\n"
+                @b_no_type_name = b_no_type_name
+        end
 ---- footer

EcnlProtoTool/trunk/asp3_dcre/tecsgen/tecslib/core/bnf.tab.rb

-              r321
+              r429
+#
 # DO NOT MODIFY!!!!
 # This file is automatically generated by Racc 1.4.12
+# This file is automatically generated by Racc 1.4.14
 # from Racc grammer file "".
+#
 …
 class Generator < Racc::Parser
 module_eval(<<'...end bnf.y.rb/module_eval...', 'bnf.y.rb', 1504)
+module_eval(<<'...end bnf.y.rb/module_eval...', 'bnf.y.rb', 1534)
   RESERVED = {
 …
     'import_C' => :IMPORT_C,
     'generate' => :GENERATE,
+    '__tool_info__' => :TOOL_INFO,
     # types
 …
   # すべての構文解析が完了した
   @@b_end_all_parse = false
+  # tag なし struct
+  @@no_struct_tag_num = 0
   def self.parse( file_name, plugin = nil, b_reuse = false )
 …
                   string += line
                   # この位置では error メソッドは使えない (token 読出し前)
                   puts "error: #{file} line #{lineno}: string literal has newline without escape"
+                  puts "#{file}:#{lineno}:#{col}: error: string literal has newline without escape"
                   @@n_error += 1
                 end
 …
                   b_in_string = true
                   # この位置では error メソッドは使えない (token 読出し前) # mikan cdl_error ではない
                   puts "error: #{file} line #{lineno}: string literal has newline without escape"
+                  puts "#{file}:#{lineno}:#{col}: error: string literal has newline without escape"
                   @@n_error += 1
                 # 山括弧で囲まれた文字列
+                when /\A<[0-9A-Za-z_\. \/]+>/   # AB: angle bracke
+                # when /\A<[0-9A-Za-z_\. \/]+>/   # AB: angle bracke
+                when /\A<(?:[^>\\]|\\.)*>/   # これはうまく行くようだ
                   @q << [:AB_STRING_LITERAL, Token.new($&, file, lineno, col)]
                 # 行コメント
 …
   @@n_error = 0
   @@n_warning = 0
+  @@n_info = 0
   # このメソッドは構文解析、意味解析からのみ呼出し可（コード生成でエラー発生は不適切）
 …
       end
       if locale then
         Console.puts "error: #{locale[0]}: line #{locale[1]} #{msg}"
+        Console.puts "#{locale[0]}:#{locale[1]}:#{locale[2]}: error: #{msg}"
       else
         Console.puts "error: #{msg}"
 …
       end
       if locale then
         Console.puts "warning: #{locale[0]}: line #{locale[1]} #{msg}"
+        Console.puts "#{locale[0]}:#{locale[1]}:#{locale[2]}: warning: #{msg}"
       else
         Console.puts "warning: #{msg}"
 …
   end
+  # このメソッドは構文解析、意味解析からのみ呼出し可
+  def self.info( msg, *arg )
+    locale = nil
+    self.info2( locale, msg, *arg )
+  end
+  def self.info2( locale, msg, *arg )
+    @@n_info += 1
+    msg = TECSMsg.get_info_message( msg )
+    # $1, $2, ... を arg で置換
+    count = 1
+    arg.each{ |a|
+      str = TECSIO.str_code_convert( msg, a.to_s )
+      msg.sub!( /\$#{count}/, str )
+      count += 1
+    }
+    # import_C の中でのウォーニング？
+    if @@import_C then
+      C_parser.info( msg )
+    else
+      if @@b_end_all_parse == false || locale == nil then
+        locale = @@current_locale[ @@generator_nest ]
+      end
+      if locale then
+        Console.puts "#{locale[0]}:#{locale[1]}:#{locale[2]}: info: #{msg}"
+      else
+        Console.puts "info: #{msg}"
+      end
+    end
+  end
   def self.get_n_error
     @@n_error
 …
   end
+  def self.get_n_info
+    @@n_info
+  end
   def self.get_nest
     @@generator_nest
+  end
+  def self.parsing_C?
+    @@import_C
   end
 …
 clist = [
+'65,566,323,779,733,806,77,346,347,323,77,77,77,160,194,195,196,197,198',
+'199,200,202,174,203,664,133,860,133,99,207,208,209,210,211,212,213,663',
+'244,831,551,394,512,5,6,7,10,13,14,15,16,17,18,19,20,21,22,23,24,25',
+'26,27,28,29,30,31,32,33,34,35,38,678,395,459,309,696,42,43,44,45,46',
+'47,48,49,858,98,654,827,440,133,133,826,133,133,133,133,133,65,186,186',
+'186,186,69,67,68,308,70,71,77,72,323,73,299,300,319,819,133,175,133',
+'134,320,134,322,186,74,74,74,75,76,76,76,133,86,186,186,186,186,78,85',
+'5,6,7,10,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32',
+'33,34,35,38,77,420,186,358,359,42,43,44,45,46,47,48,49,186,134,134,134',
+'65,134,134,134,134,134,133,133,87,571,77,77,570,323,69,67,68,325,70',
+'71,133,72,799,73,530,134,341,134,299,300,319,342,343,397,798,682,320',
+'74,322,75,134,76,5,6,7,10,13,14,15,16,17,18,19,20,21,22,23,24,25,26',
+'27,28,29,30,31,32,33,34,35,38,444,48,49,352,353,42,43,44,45,46,47,48',
+'49,328,329,509,510,65,299,300,301,186,302,303,305,306,683,606,77,134',
+'134,69,67,68,856,70,71,272,72,607,73,77,177,134,643,299,300,319,77,77',
+'636,203,780,320,74,322,75,684,76,5,6,7,10,13,14,15,16,17,18,19,20,21',
+'22,23,24,25,26,27,28,29,30,31,32,33,34,35,38,795,160,610,676,855,42',
+'43,44,45,46,47,48,49,160,637,403,470,86,160,471,633,426,781,85,793,470',
+'87,87,471,502,705,69,67,68,758,70,71,397,72,396,73,159,625,402,194,195',
+'196,197,198,199,200,202,614,203,74,792,75,133,76,207,208,209,210,211',
+'212,213,299,300,301,160,302,303,305,306,194,195,196,197,198,199,200',
+'202,160,203,624,609,283,133,626,207,208,209,210,211,212,213,867,742',
+'809,194,195,196,197,198,199,200,202,335,203,336,159,337,133,229,207',
+'208,209,210,211,212,213,194,195,196,197,198,199,200,202,810,203,251',
+'160,230,133,409,207,208,209,210,211,212,213,229,649,707,666,400,837',
+'79,134,496,277,676,251,571,704,846,570,160,539,845,393,230,848,596,408',
+'818,229,748,147,619,630,146,706,648,684,667,401,838,134,761,495,278',
+'675,250,705,167,230,620,229,86,847,760,86,817,86,85,177,618,85,87,85',
+'341,87,134,87,270,342,343,230,632,177,194,195,196,197,198,199,200,202',
+'173,203,614,744,869,133,134,207,208,209,210,211,212,213,194,195,196',
+'197,198,199,200,202,147,203,650,146,651,133,172,207,208,209,210,211',
+'212,213,194,195,196,197,198,199,200,202,171,203,388,389,390,133,170',
+'207,208,209,210,211,212,213,194,195,196,197,198,199,200,202,169,203',
+'388,389,390,133,659,207,208,209,210,211,212,213,348,349,350,351,194',
+'195,196,197,198,199,200,202,168,203,583,330,660,133,134,207,208,209',
+'210,211,212,213,194,195,196,197,198,199,200,202,661,203,344,345,165',
+'133,134,207,208,209,210,211,212,213,194,195,196,197,198,199,200,202',
+'164,203,282,283,665,133,134,207,208,209,210,211,212,213,194,195,196',
+'197,198,199,200,202,668,203,352,353,670,133,134,207,208,209,210,211',
+'212,213,348,349,350,351,194,195,196,197,198,199,200,202,431,203,346',
+'347,671,133,134,207,208,209,210,211,212,213,672,448,673,376,377,378',
+'430,432,433,434,435,431,346,347,134,371,372,373,374,375,379,229,450',
+'451,452,449,348,349,350,351,674,430,432,433,434,435,134,341,142,143',
+'677,230,342,343,194,195,196,197,198,199,200,202,163,203,346,347,203',
+'133,134,207,208,209,210,211,212,213,346,347,344,345,194,195,196,197',
+'198,199,200,202,680,203,344,345,162,133,134,207,208,209,210,211,212',
+'213,194,195,196,197,198,199,200,202,161,203,398,330,689,133,160,207',
+'208,209,210,211,212,213,194,195,196,197,198,199,200,202,691,203,719',
+'510,692,133,693,207,208,209,210,211,212,213,194,195,196,197,198,199',
+'200,202,160,203,376,377,378,133,134,207,208,209,210,211,212,213,371',
+'372,373,374,375,379,102,103,104,105,106,107,108,109,110,111,112,695',
+'134,697,698,699,700,703,708,229,20,21,22,23,24,25,26,27,28,29,30,31',
+'32,33,134,711,562,74,714,230,715,716,194,195,196,197,198,199,200,202',
+'717,203,157,744,720,133,134,207,208,209,210,211,212,213,194,195,196',
+'197,198,199,200,202,721,203,722,599,724,133,134,207,208,209,210,211',
+'212,213,194,195,196,197,198,199,200,202,725,203,726,728,614,133,731',
+'207,208,209,210,211,212,213,194,195,196,197,198,199,200,202,732,203',
+'156,153,736,133,152,207,208,209,210,211,212,213,739,743,751,752,194',
+'195,196,197,198,199,200,202,144,203,754,576,755,133,134,207,208,209',
+'210,211,212,213,194,195,196,197,198,199,200,202,757,203,759,762,763',
+'133,134,207,208,209,210,211,212,213,194,195,196,197,198,199,200,202',
+'764,203,767,768,769,133,134,207,208,209,210,211,212,213,194,195,196',
+'197,198,199,200,202,770,203,643,232,703,133,134,207,208,209,210,211',
+'212,213,86,86,86,229,177,775,85,85,85,86,87,87,87,776,86,85,777,778',
+'134,87,85,141,711,230,87,786,194,195,196,197,198,199,200,202,140,203',
+'788,138,132,133,134,207,208,209,210,211,212,213,194,195,196,197,198',
+'199,200,202,791,203,130,796,128,133,134,207,208,209,210,211,212,213',
+'194,195,196,197,198,199,200,202,800,203,801,-383,802,133,134,207,208',
+'209,210,211,212,213,194,195,196,197,198,199,200,202,803,203,804,124',
+'123,133,807,207,208,209,210,211,212,213,767,203,813,816,194,195,196',
+'197,198,199,200,202,821,203,822,94,824,133,134,207,208,209,210,211,212',
+'213,194,195,196,197,198,199,200,202,828,203,829,830,90,133,134,207,208',
+'209,210,211,212,213,194,195,196,197,198,199,200,202,833,203,834,89,836',
+'133,134,207,208,209,210,211,212,213,194,195,196,197,198,199,200,202',
+'798,203,839,840,323,133,134,207,208,209,210,211,212,213,842,843,844',
+'849,194,195,196,197,198,199,200,202,850,203,851,88,857,133,134,207,208',
+'209,210,211,212,213,194,195,196,197,198,199,200,202,357,203,356,362',
+'363,133,134,207,208,209,210,211,212,213,194,195,196,197,198,199,200',
+'202,365,203,366,122,861,133,134,207,208,209,210,211,212,213,194,195',
+'196,197,198,199,200,202,3,203,156,355,399,133,134,207,208,209,210,211',
+'212,213,404,140,406,407,194,195,196,197,198,199,200,202,410,203,411',
+'412,413,133,134,207,208,209,210,211,212,213,194,195,196,197,198,199',
+'200,202,414,203,415,354,862,133,134,207,208,209,210,211,212,213,194',
+'195,196,197,198,199,200,202,438,203,439,442,453,133,134,207,208,209',
+'210,211,212,213,194,195,196,197,198,199,200,202,330,203,456,457,186',
+'133,134,207,208,209,210,211,212,213,464,465,466,473,194,195,196,197',
+'198,199,200,202,474,203,307,285,284,133,134,207,208,209,210,211,212',
+'213,194,195,196,197,198,199,200,202,281,203,280,279,276,133,134,207',
+'208,209,210,211,212,213,194,195,196,197,198,199,200,202,275,203,274',
+'267,177,133,134,207,208,209,210,211,212,213,194,195,196,197,198,199',
+'200,202,265,203,203,259,203,133,134,207,208,209,210,211,212,213,156',
+'503,504,505,194,195,196,197,198,199,200,202,506,203,507,863,513,133',
+'134,207,208,209,210,211,212,213,194,195,196,197,198,199,200,202,514',
+'203,515,259,517,133,134,207,208,209,210,211,212,213,86,86,86,86,252',
+'265,85,85,85,85,87,87,87,87,134,299,300,301,520,302,303,305,306,521',
+'194,195,196,197,198,199,200,202,203,203,524,203,134,133,203,207,208',
+'209,210,211,212,213,177,528,194,195,196,197,198,199,200,202,529,203',
+'532,533,534,133,134,207,208,209,210,211,212,213,115,116,117,118,119',
+'120,121,115,116,117,118,119,120,121,134,536,537,540,186,5,6,7,10,13',
+'14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,38',
+'265,865,550,554,160,42,43,44,45,46,47,48,49,134,194,195,196,197,198',
+'199,200,202,556,203,866,186,560,133,562,207,208,209,210,211,212,213',
+'323,134,565,87,242,190,578,579,354,355,356,357,580,189,188,186,185,184',
+'183,5,6,7,10,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31',
+'32,33,34,35,38,182,181,596,597,599,42,43,44,45,46,47,48,49,194,195,196',
+'197,198,199,200,202,600,203,330,601,603,133,604,207,208,209,210,211',
+'212,213,605,,134,194,195,196,197,198,199,200,339,,203,,,,133,,207,208',
+'209,210,211,212,213,194,195,196,197,198,199,200,202,,203,,685,,133,',
+'207,208,209,210,211,212,213,194,195,196,197,198,199,200,202,,203,,,',
+'133,,207,208,209,210,211,212,213,,194,195,196,197,198,199,200,202,,203',
+',576,,133,134,207,208,209,210,211,212,213,,,,194,195,196,197,198,199',
+'200,202,,203,,655,,133,134,207,208,209,210,211,212,213,194,195,196,197',
+'198,199,200,202,,203,,,,133,134,207,208,209,210,211,212,213,194,195',
+'196,197,198,199,200,202,,203,,,,133,134,207,208,209,210,211,212,213',
+',194,195,196,197,198,199,200,202,,203,,,,133,134,207,208,209,210,211',
+'212,213,,,,194,195,196,197,198,199,200,202,,203,,,,133,134,207,208,209',
+'210,211,212,213,194,195,196,197,198,199,200,202,,203,,,,133,134,207',
+'208,209,210,211,212,213,194,195,196,197,198,199,200,202,,203,,,,133',
+'134,207,208,209,210,211,212,213,,194,195,196,197,198,199,200,202,,203',
+',,,133,134,207,208,209,210,211,212,213,,,,194,195,196,197,198,199,200',
+'202,,203,,,,133,134,207,208,209,210,211,212,213,102,103,104,105,106',
+'107,108,109,110,111,112,,,,134,,,,,,,,,,,,,,,,,,,,,,134,,115,116,117',
+'118,119,120,121,,,229,581,,,470,574,,573,,,,,134,,87,,,,,,230,,,,,,',
+',,,,,,,,,,134,5,6,7,10,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27',
+'28,29,30,31,32,33,34,35,38,236,,77,,,42,43,44,45,46,47,48,49,,,,,,,',
+',,,,,,,,,,,,,5,6,7,10,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28',
+'29,30,31,32,33,34,35,38,657,,77,,,42,43,44,45,46,47,48,49,,,,,,,,,,',
+',,,,,,,,,,5,6,7,10,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29',
+'30,31,32,33,34,35,38,77,,,,,42,43,44,45,46,47,48,49,,,,,,,,,,,,,,,,',
+',,5,6,7,10,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31',
+'32,33,34,35,38,77,,,,,42,43,44,45,46,47,48,49,498,,,,,,,,,,,,,,,,,,5',
+'66,575,328,559,538,815,78,330,869,328,78,78,78,409,199,200,201,202,203',
+'204,205,207,846,208,678,135,897,135,647,212,213,214,215,216,217,218',
+'249,679,177,872,870,408,5,6,7,10,13,14,15,16,17,18,19,20,21,22,23,24',
+'25,26,27,28,29,30,31,32,33,34,35,38,465,189,693,333,334,42,43,44,45',
+'46,47,48,49,896,88,644,406,666,761,711,87,135,871,135,135,135,135,189',
+'66,189,189,70,68,69,135,71,72,328,73,78,74,304,305,324,860,901,189,407',
+'136,325,136,327,189,75,75,75,76,77,77,77,135,874,178,189,189,189,79',
+'875,101,80,5,6,7,10,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28',
+'29,30,31,32,33,34,35,38,78,364,365,256,899,42,43,44,45,46,47,48,49,189',
+'189,189,136,66,136,136,136,136,878,135,135,89,100,78,78,136,328,70,68',
+'69,399,71,72,135,73,877,74,304,305,324,135,446,135,478,868,325,479,327',
+'867,879,75,136,76,89,77,5,6,7,10,13,14,15,16,17,18,19,20,21,22,23,24',
+'25,26,27,28,29,30,31,32,33,34,35,38,450,48,49,314,838,42,43,44,45,46',
+'47,48,49,135,135,839,135,66,304,305,306,135,307,308,310,311,691,838',
+'78,136,136,70,68,69,313,71,72,275,73,880,74,78,180,136,816,304,305,324',
+'78,881,136,136,136,325,75,327,76,690,77,5,6,7,10,13,14,15,16,17,18,19',
+'20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,38,835,426,403,282,697',
+'42,43,44,45,46,47,48,49,163,817,163,620,288,277,136,136,432,136,180',
+'504,78,150,136,654,149,720,70,68,69,283,71,72,403,73,402,74,520,636',
+'162,199,200,201,202,203,204,205,207,328,208,75,503,76,135,77,212,213',
+'214,215,216,217,218,304,305,306,859,307,308,310,311,199,200,201,202',
+'203,204,205,207,889,208,635,648,883,135,637,212,213,214,215,216,217',
+'218,884,858,681,199,200,201,202,203,204,205,207,341,208,342,888,343',
+'135,234,212,213,214,215,216,217,218,199,200,201,202,203,204,205,207',
+'682,208,885,668,235,135,661,212,213,214,215,216,217,218,88,789,790,691',
+'256,400,87,136,150,890,89,149,199,200,201,202,203,204,205,207,667,208',
+'891,660,163,135,776,212,213,214,215,216,217,218,794,255,401,136,199',
+'200,201,202,203,204,205,207,892,208,719,415,850,135,162,212,213,214',
+'215,216,217,218,887,898,136,902,886,582,721,903,581,833,199,200,201',
+'202,203,204,205,207,720,208,414,851,904,135,136,212,213,214,215,216',
+'217,218,199,200,201,202,203,204,205,207,832,208,722,698,826,135,906',
+'212,213,214,215,216,217,218,163,163,88,478,136,907,479,582,87,908,581',
+'607,89,163,3,163,88,910,827,699,699,81,87,352,353,234,89,797,170,770',
+'136,199,200,201,202,203,204,205,207,796,208,547,587,564,135,235,212',
+'213,214,215,216,217,218,90,199,200,201,202,203,204,205,207,136,208,394',
+'395,396,135,91,212,213,214,215,216,217,218,199,200,201,202,203,204,205',
+'207,136,208,394,395,396,135,92,212,213,214,215,216,217,218,199,200,201',
+'202,203,204,205,207,163,208,350,351,96,135,124,212,213,214,215,216,217',
+'218,594,336,125,199,200,201,202,203,204,205,207,126,208,130,510,132',
+'135,136,212,213,214,215,216,217,218,134,199,200,201,202,203,204,205',
+'207,140,208,352,353,142,135,136,212,213,214,215,216,217,218,199,200',
+'201,202,203,204,205,207,143,208,404,336,144,135,136,212,213,214,215',
+'216,217,218,199,200,201,202,203,204,205,207,147,208,358,359,155,135',
+'136,212,213,214,215,216,217,218,350,351,156,199,200,201,202,203,204',
+'205,207,159,208,350,351,160,135,136,212,213,214,215,216,217,218,164',
+'199,200,201,202,203,204,205,207,165,208,358,359,166,135,136,212,213',
+'214,215,216,217,218,199,200,201,202,203,204,205,207,167,208,630,437',
+'168,135,136,212,213,214,215,216,217,218,352,353,234,747,518,171,631',
+'287,288,436,438,439,440,441,136,347,629,172,347,173,348,349,235,348',
+'349,199,200,201,202,203,204,205,207,174,208,352,353,175,135,136,212',
+'213,214,215,216,217,218,176,199,200,201,202,203,204,205,207,180,208',
+'184,772,185,135,136,212,213,214,215,216,217,218,199,200,201,202,203',
+'204,205,207,454,208,145,146,186,135,136,212,213,214,215,216,217,218',
+'347,187,234,517,518,348,349,456,457,458,455,199,200,201,202,203,204',
+'205,207,454,208,188,235,189,135,191,212,213,214,215,216,217,218,354',
+'355,356,357,787,788,136,456,457,458,455,354,355,356,357,199,200,201',
+'202,203,204,205,207,437,208,382,383,384,135,136,212,213,214,215,216',
+'217,218,377,378,379,380,381,385,436,438,439,440,441,304,305,306,136',
+'307,308,310,311,5,6,7,10,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27',
+'28,29,30,31,32,33,34,35,38,136,354,355,356,357,42,43,44,45,46,47,48',
+'49,199,200,201,202,203,204,205,207,192,208,352,353,193,135,196,212,213',
+'214,215,216,217,218,247,89,136,199,200,201,202,203,204,205,207,257,208',
+'159,264,208,135,270,212,213,214,215,216,217,218,199,200,201,202,203',
+'204,205,207,180,208,272,279,280,135,281,212,213,214,215,216,217,218',
+'234,284,285,286,289,290,199,200,201,202,203,204,205,207,312,208,335',
+'189,336,135,235,212,213,214,215,216,217,218,360,199,200,201,202,203',
+'204,205,207,136,208,361,670,362,135,363,212,213,214,215,216,217,218',
+'199,200,201,202,203,204,205,207,368,208,369,136,371,135,372,212,213',
+'214,215,216,217,218,159,199,200,201,202,203,204,205,207,405,208,136',
+'587,410,135,142,212,213,214,215,216,217,218,412,413,199,200,201,202',
+'203,204,205,207,416,208,417,418,419,135,136,212,213,214,215,216,217',
+'218,420,199,200,201,202,203,204,205,207,421,208,444,445,448,135,136',
+'212,213,214,215,216,217,218,199,200,201,202,203,204,205,207,459,208',
+'462,772,463,135,136,212,213,214,215,216,217,218,470,88,234,88,382,383',
+'384,87,472,87,473,89,474,89,481,136,377,378,379,380,381,385,235,482',
+'208,199,200,201,202,203,204,205,207,511,208,512,513,514,135,136,212',
+'213,214,215,216,217,218,515,199,200,201,202,203,204,205,207,521,208',
+'522,523,264,135,136,212,213,214,215,216,217,218,199,200,201,202,203',
+'204,205,207,525,208,270,528,529,135,136,212,213,214,215,216,217,218',
+'199,200,201,202,203,204,205,207,208,208,532,208,208,135,180,212,213',
+'214,215,216,217,218,536,537,540,199,200,201,202,203,204,205,207,541',
+'208,542,544,545,135,136,212,213,214,215,216,217,218,737,738,740,741',
+'548,189,270,558,562,196,739,737,738,740,741,136,565,189,743,742,196',
+'739,234,592,569,88,88,571,88,743,742,87,87,88,87,89,89,136,89,87,328',
+'574,235,89,196,199,200,201,202,203,204,205,207,589,208,590,700,360,135',
+'136,212,213,214,215,216,217,218,361,362,472,199,200,201,202,203,204',
+'205,207,363,208,472,591,607,135,136,212,213,214,215,216,217,218,199',
+'200,201,202,203,204,205,207,608,208,611,336,612,135,614,212,213,214',
+'215,216,217,218,199,200,201,202,203,204,205,207,615,208,616,617,618',
+'135,208,212,213,214,215,216,217,218,621,737,738,740,741,163,625,88,88',
+'641,196,739,785,87,87,136,643,89,89,743,742,625,662,663,669,674,199',
+'200,201,202,203,204,205,207,675,208,676,680,683,135,136,212,213,214',
+'215,216,217,218,199,200,201,202,203,204,205,207,685,208,686,687,688',
+'135,136,212,213,214,215,216,217,218,472,104,105,106,107,108,109,110',
+'111,112,113,114,689,189,136,692,208,695,704,5,6,7,10,13,14,15,16,17',
+'18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,38,163,706,707',
+'708,163,42,43,44,45,46,47,48,49,710,712,136,117,118,119,120,121,122',
+'123,199,200,201,202,203,204,205,207,713,208,714,715,718,135,136,212',
+'213,214,215,216,217,218,199,200,201,202,203,204,205,207,723,208,726',
+'571,75,135,729,212,213,214,215,216,217,218,199,200,201,202,203,204,205',
+'207,730,208,196,744,745,135,748,212,213,214,215,216,217,218,199,200',
+'201,202,203,204,205,207,749,208,752,753,754,135,756,212,213,214,215',
+'216,217,218,625,759,760,764,199,200,201,202,203,204,205,207,767,208',
+'771,779,780,135,136,212,213,214,215,216,217,218,199,200,201,202,203',
+'204,205,207,782,208,783,791,793,135,136,212,213,214,215,216,217,218',
+'199,200,201,202,203,204,205,207,189,208,795,798,799,135,136,212,213',
+'214,215,216,217,218,199,200,201,202,203,204,205,207,800,208,803,804',
+'805,135,136,212,213,214,215,216,217,218,806,654,718,180,199,200,201',
+'202,203,204,205,207,811,208,812,813,814,135,136,212,213,214,215,216',
+'217,218,199,200,201,202,203,204,205,207,726,208,823,828,831,135,136',
+'212,213,214,215,216,217,218,199,200,201,202,203,204,205,207,836,208',
+'840,841,-386,135,136,212,213,214,215,216,217,218,199,200,201,202,203',
+'204,205,207,842,208,843,237,844,135,136,212,213,214,215,216,217,218',
+'848,803,208,854,199,200,201,202,203,204,205,207,857,208,862,863,865',
+'135,136,212,213,214,215,216,217,218,199,200,201,202,203,204,205,207',
+',208,,,,135,136,212,213,214,215,216,217,218,199,200,201,202,203,204',
+'205,207,,208,,,,135,136,212,213,214,215,216,217,218,199,200,201,202',
+'203,204,205,207,,208,,,,135,136,212,213,214,215,216,217,218,88,,,,,',
+'87,,,88,89,737,738,740,741,87,,,136,89,196,739,,,,234,,,,743,742,117',
+'118,119,120,121,122,123,,,136,,,,,235,,,199,200,201,202,203,204,205',
+'207,,208,,,,135,136,212,213,214,215,216,217,218,199,200,201,202,203',
+'204,205,207,,208,472,,,135,136,212,213,214,215,216,217,218,199,200,201',
+'202,203,204,205,345,,208,,,,135,,212,213,214,215,216,217,218,199,200',
+'201,202,203,204,205,207,,208,,,,135,,212,213,214,215,216,217,218,,,',
+'104,105,106,107,108,109,110,111,112,113,114,,,,,136,,,,,,,104,105,106',
+'107,108,109,110,111,112,113,114,,,,,136,117,118,119,120,121,122,123',
+',,,478,585,,584,,,,,,,89,136,117,118,119,120,121,122,123,20,21,22,23',
+'24,25,26,27,28,29,30,31,32,33,136,5,6,7,10,13,14,15,16,17,18,19,20,21',
+'22,23,24,25,26,27,28,29,30,31,32,33,34,35,38,672,,78,,,42,43,44,45,46',
+'47,48,49,,,,,,,,,,,,,,,,,,,,,5,6,7,10,13,14,15,16,17,18,19,20,21,22',
+'23,24,25,26,27,28,29,30,31,32,33,34,35,38,241,,78,,,42,43,44,45,46,47',
+'48,49,,,,,,,,,,,,,,,,,,,,,5,6,7,10,13,14,15,16,17,18,19,20,21,22,23',
+'24,25,26,27,28,29,30,31,32,33,34,35,38,78,,,,,42,43,44,45,46,47,48,49',
+',,,,,,,,,,,,,,,,,,5,6,7,10,13,14,15,16,17,18,19,20,21,22,23,24,25,26',
+'27,28,29,30,31,32,33,34,35,38,78,,,,,42,43,44,45,46,47,48,49,506,,,',
+',,,,,,,,,,,,,,5,6,7,10,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27',
+'28,29,30,31,32,33,34,35,38,78,428,,,,42,43,44,45,46,47,48,49,,,,,,,',
+',,,,,,,,,,,5,6,7,10,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28',
+'29,30,31,32,33,34,35,38,78,,,,,42,43,44,45,46,47,48,49,,,,,,,,,,,,,',
+',,,,,5,6,7,10,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30',
+'31,32,33,34,35,38,78,,,,,42,43,44,45,46,47,48,49,,,,,,,,,,,,,,,,,,,5',
 '6,7,10,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33',
 '34,35,38,126,381,,,,42,43,44,45,46,47,48,49,,,,,,,,,,,,,,,,,,,5,6,7',
 '10,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34',
 '35,38,77,,,,,42,43,44,45,46,47,48,49,,,,,,,,,,,,,,,,,,,5,6,7,10,13,14',
 '15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,38,77',
 ',,,,42,43,44,45,46,47,48,49,,,,,,,,,,,,,,,,,,,5,6,7,10,13,14,15,16,17',
 '18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,38,77,,,,,42,43',
 '44,45,46,47,48,49,,,,,,,,,,,,,,,,,,,5,6,7,10,13,14,15,16,17,18,19,20',
 '21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,38,77,422,,,,42,43,44,45',
 '46,47,48,49,,,,,,,,,,,,,,,,,,,5,6,7,10,13,14,15,16,17,18,19,20,21,22',
 '23,24,25,26,27,28,29,30,31,32,33,34,35,38,77,508,,,,42,43,44,45,46,47',
+'34,35,38,78,632,,,,42,43,44,45,46,47,48,49,,,,,,,,,,,,,,,,,,,5,6,7,10',
+'13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35',
+'38,78,638,,,,42,43,44,45,46,47,48,49,,,,,,,,,,,,,,,,,,,5,6,7,10,13,14',
+'15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,38,128',
+'658,,,,42,43,44,45,46,47,48,49,,,,,,,,,,,,,,,,,,,5,6,7,10,13,14,15,16',
+'17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,38,78,,,,,42',
+'43,44,45,46,47,48,49,,,,,,,,,,,,,,,,,,,5,6,7,10,13,14,15,16,17,18,19',
+'20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,38,78,516,,,,42,43,44',
+'45,46,47,48,49,,,,,,,,,,,,,,,,,,,5,6,7,10,13,14,15,16,17,18,19,20,21',
+'22,23,24,25,26,27,28,29,30,31,32,33,34,35,38,78,,,,,42,43,44,45,46,47',
 '48,49,,,,,,,,,,,,,,,,,,,5,6,7,10,13,14,15,16,17,18,19,20,21,22,23,24',
 '25,26,27,28,29,30,31,32,33,34,35,38,77,,,,,42,43,44,45,46,47,48,49,',
 ',,,,,,,,,,,,,,,,,5,6,7,10,13,14,15,16,17,18,19,20,21,22,23,24,25,26',
 '27,28,29,30,31,32,33,34,35,38,77,,,,,42,43,44,45,46,47,48,49,,,,,,,',
+'25,26,27,28,29,30,31,32,33,34,35,38,78,387,,,,42,43,44,45,46,47,48,49',
+',,,,,,,,,,,,,,,,,,5,6,7,10,13,14,15,16,17,18,19,20,21,22,23,24,25,26',
+'27,28,29,30,31,32,33,34,35,38,78,,,,,42,43,44,45,46,47,48,49,,,,,,,',
 ',,,,,,,,,,,5,6,7,10,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28',
+'29,30,31,32,33,34,35,38,77,,,,,42,43,44,45,46,47,48,49,,,,,,,,,,,,,',
+',,,,,5,6,7,10,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30',
+'31,32,33,34,35,38,77,621,,,,42,43,44,45,46,47,48,49,,,,,,,,,,,,,,,,',
+',,5,6,7,10,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31',
+'32,33,34,35,38,77,627,,,,42,43,44,45,46,47,48,49,,,,,,,,,,,,,,,,,,,5',
+'6,7,10,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33',
+'34,35,38,,646,,,,42,43,44,45,46,47,48,49,102,103,104,105,106,107,108',
+'109,110,111,112,,,,,,,,,,,,,,,,,,,,,,,,,,,,115,116,117,118,119,120,121',
+'29,30,31,32,33,34,35,38,,,,,,42,43,44,45,46,47,48,49,5,6,7,10,13,14',
+'15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,38,,',
+',,,42,43,44,45,46,47,48,49,5,6,7,10,13,14,15,16,17,18,19,20,21,22,23',
+'24,25,26,27,28,29,30,31,32,33,34,35,38,,,,,,42,43,44,45,46,47,48,49',
 '5,6,7,10,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32',
 '33,34,35,38,,,,,,42,43,44,45,46,47,48,49,5,6,7,10,13,14,15,16,17,18',
 …
 '23,24,25,26,27,28,29,30,31,32,33,34,35,38,,,,,,42,43,44,45,46,47,48',
 '49,5,6,7,10,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31',
+'32,33,34,35,38,,,,,,42,43,44,45,46,47,48,49,5,6,7,10,13,14,15,16,17',
+'18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,38,,,,,,42,43',
+'44,45,46,47,48,49,5,6,7,10,13,14,15,16,17,18,19,20,21,22,23,24,25,26',
+'27,28,29,30,31,32,33,34,35,38,,,,,,42,43,44,45,46,47' ]
+        racc_action_table = arr = ::Array.new(3597, nil)
+'32,33,34,35,38,,,,,,42,43,44,45,46,47' ]
+        racc_action_table = arr = ::Array.new(3593, nil)
         idx = 0
         clist.each do |str|
 …
 clist = [
+'2,463,803,749,688,787,189,218,218,189,602,2,324,386,714,714,714,714',
+'714,714,714,714,123,714,586,754,854,714,41,714,714,714,714,714,714,714',
+'585,151,815,441,257,386,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2',
+'2,2,2,2,2,2,602,257,324,187,631,2,2,2,2,2,2,2,2,854,41,567,810,303,298',
+'550,810,90,620,328,74,320,286,749,688,787,463,2,2,2,187,2,2,286,2,555',
+'2,189,189,189,803,799,123,504,754,189,714,189,586,602,2,324,2,602,2',
+'324,503,83,815,441,585,151,2,83,286,286,286,286,286,286,286,286,286',
+'286,286,286,286,286,286,286,286,286,286,286,286,286,286,286,286,286',
+'286,286,184,286,631,225,225,286,286,286,286,286,286,286,286,567,303',
+'298,550,158,90,620,328,74,320,281,706,87,469,310,158,469,310,286,286',
+'286,191,286,286,464,286,776,286,416,799,480,504,555,555,555,480,480',
+'614,776,614,555,286,555,286,503,286,158,158,158,158,158,158,158,158',
+'158,158,158,158,158,158,158,158,158,158,158,158,158,158,158,158,158',
+'158,158,158,310,87,87,220,220,158,158,158,158,158,158,158,158,191,191',
+'383,383,182,184,184,184,416,184,184,184,184,615,528,182,281,706,158',
+'158,158,852,158,158,169,158,529,158,553,169,464,553,310,310,310,289',
+'750,552,530,750,310,158,310,158,615,158,182,182,182,182,182,182,182',
+'182,182,182,182,182,182,182,182,182,182,182,182,182,182,182,182,182',
+'182,182,182,182,772,369,535,723,852,182,182,182,182,182,182,182,182',
+'100,553,264,334,125,536,334,552,289,750,125,765,468,334,125,468,369',
+'772,182,182,182,723,182,182,259,182,259,182,100,545,264,705,705,705',
+'705,705,705,705,705,540,705,182,765,182,705,182,705,705,705,705,705',
+'705,705,289,289,289,701,289,289,289,289,761,761,761,761,761,761,761',
+'761,564,761,545,531,531,761,545,761,761,761,761,761,761,761,865,701',
+'794,760,760,760,760,760,760,760,760,205,760,205,564,205,760,705,760',
+'760,760,760,760,760,760,720,720,720,720,720,720,720,720,794,720,253',
+'428,705,720,273,720,720,720,720,720,720,720,761,559,645,588,262,825',
+'3,705,360,173,598,154,569,642,838,569,113,428,838,253,761,839,728,273',
+'801,760,705,145,541,549,145,642,559,645,588,262,825,761,728,360,173',
+'598,154,642,113,760,541,720,681,839,728,510,801,283,681,124,541,510',
+'681,283,479,510,760,283,168,479,479,720,551,168,704,704,704,704,704',
+'704,704,704,122,704,556,704,868,704,720,704,704,704,704,704,704,704',
+'699,699,699,699,699,699,699,699,84,699,561,84,563,699,121,699,699,699',
+'699,699,699,699,695,695,695,695,695,695,695,695,120,695,512,512,512',
+'695,117,695,695,695,695,695,695,695,691,691,691,691,691,691,691,691',
+'116,691,249,249,249,691,572,691,691,691,691,691,691,691,219,219,219',
+'219,667,667,667,667,667,667,667,667,115,667,497,497,575,667,704,667',
+'667,667,667,667,667,667,285,285,285,285,285,285,285,285,577,285,217',
+'217,112,285,699,285,285,285,285,285,285,285,252,252,252,252,252,252',
+'252,252,108,252,178,178,587,252,695,252,252,252,252,252,252,252,229',
+'229,229,229,229,229,229,229,589,229,489,489,593,229,691,229,229,229',
+'229,229,229,229,488,488,488,488,861,861,861,861,861,861,861,861,539',
+'861,486,486,594,861,667,861,861,861,861,861,861,861,595,313,596,241',
+'241,241,539,539,539,539,539,292,485,485,285,241,241,241,241,241,241',
+'229,313,313,313,313,487,487,487,487,597,292,292,292,292,292,252,216',
+'80,80,600,229,216,216,848,848,848,848,848,848,848,848,106,848,484,484',
+'605,848,229,848,848,848,848,848,848,848,483,483,482,482,821,821,821',
+'821,821,821,821,821,608,821,481,481,104,821,861,821,821,821,821,821',
+'821,821,818,818,818,818,818,818,818,818,102,818,260,260,621,818,623',
+'818,818,818,818,818,818,818,807,807,807,807,807,807,807,807,625,807',
+'669,669,626,807,627,807,807,807,807,807,807,807,798,798,798,798,798',
+'798,798,798,629,798,502,502,502,798,848,798,798,798,798,798,798,798',
+'502,502,502,502,502,502,159,159,159,159,159,159,159,159,159,159,159',
+'630,821,632,633,635,637,640,646,807,36,36,36,36,36,36,36,36,36,36,36',
+'36,36,36,818,650,651,652,653,807,654,656,795,795,795,795,795,795,795',
+'795,658,795,99,795,673,795,807,795,795,795,795,795,795,795,786,786,786',
+'786,786,786,786,786,674,786,676,677,678,786,798,786,786,786,786,786',
+'786,786,775,775,775,775,775,775,775,775,679,775,680,682,684,775,685',
+'775,775,775,775,775,775,775,770,770,770,770,770,770,770,770,686,770',
+'98,93,692,770,92,770,770,770,770,770,770,770,696,703,710,712,471,471',
+'471,471,471,471,471,471,82,471,715,471,718,471,795,471,471,471,471,471',
+'471,471,144,144,144,144,144,144,144,144,721,144,727,732,733,144,786',
+'144,144,144,144,144,144,144,466,466,466,466,466,466,466,466,735,466',
+'736,738,739,466,775,466,466,466,466,466,466,466,146,146,146,146,146',
+'146,146,146,740,146,741,146,742,146,770,146,146,146,146,146,146,146',
+'240,86,4,144,743,744,240,86,4,591,240,86,4,745,418,591,747,748,471,591',
+'418,78,752,144,418,753,867,867,867,867,867,867,867,867,76,867,757,75',
+'73,867,144,867,867,867,867,867,867,867,397,397,397,397,397,397,397,397',
+'763,397,72,774,71,397,466,397,397,397,397,397,397,397,359,359,359,359',
+'359,359,359,359,778,359,779,780,781,359,146,359,359,359,359,359,359',
+'359,358,358,358,358,358,358,358,358,784,358,785,69,68,358,788,358,358',
+'358,358,358,358,358,793,796,797,800,357,357,357,357,357,357,357,357',
+'805,357,806,38,809,357,867,357,357,357,357,357,357,357,163,163,163,163',
+'163,163,163,163,811,163,812,814,16,163,397,163,163,163,163,163,163,163',
+'356,356,356,356,356,356,356,356,819,356,820,9,822,356,359,356,356,356',
+'356,356,356,356,355,355,355,355,355,355,355,355,828,355,831,832,833',
+'355,358,355,355,355,355,355,355,355,835,836,837,840,354,354,354,354',
+'354,354,354,354,841,354,842,8,853,354,357,354,354,354,354,354,354,354',
+'353,353,353,353,353,353,353,353,224,353,223,230,231,353,163,353,353',
+'353,353,353,353,353,352,352,352,352,352,352,352,352,235,352,237,67,856',
+'352,356,352,352,352,352,352,352,352,351,351,351,351,351,351,351,351',
+'1,351,251,222,261,351,355,351,351,351,351,351,351,351,266,267,269,271',
+'350,350,350,350,350,350,350,350,275,350,276,277,278,350,354,350,350',
+'350,350,350,350,350,349,349,349,349,349,349,349,349,279,349,280,221',
+'857,349,353,349,349,349,349,349,349,349,348,348,348,348,348,348,348',
+'348,301,348,302,304,319,348,352,348,348,348,348,348,348,348,347,347',
+'347,347,347,347,347,347,201,347,321,322,193,347,351,347,347,347,347',
+'347,347,347,329,331,332,336,346,346,346,346,346,346,346,346,337,346',
+'186,181,180,346,350,346,346,346,346,346,346,346,345,345,345,345,345',
+'345,345,345,176,345,175,174,172,345,349,345,345,345,345,345,345,345',
+'344,344,344,344,344,344,344,344,171,344,170,166,165,344,348,344,344',
+'344,344,344,344,344,343,343,343,343,343,343,343,343,164,343,162,161',
+'362,343,347,343,343,343,343,343,343,343,157,374,375,376,342,342,342',
+'342,342,342,342,342,377,342,378,860,388,342,346,342,342,342,342,342',
+'342,342,341,341,341,341,341,341,341,341,389,341,390,395,396,341,345',
+'341,341,341,341,341,341,341,424,367,248,143,156,401,424,367,248,143',
+'424,367,248,143,344,538,538,538,402,538,538,538,538,403,335,335,335',
+'335,335,335,335,335,404,335,405,406,343,335,407,335,335,335,335,335',
+'335,335,408,410,339,339,339,339,339,339,339,339,413,339,419,420,422',
+'339,342,339,339,339,339,339,339,339,255,255,255,255,255,255,255,167',
+'167,167,167,167,167,167,341,425,426,431,436,339,339,339,339,339,339',
+'339,339,339,339,339,339,339,339,339,339,339,339,339,339,339,339,339',
+'339,339,339,339,339,437,863,440,444,446,339,339,339,339,339,339,339',
+'339,335,202,202,202,202,202,202,202,202,448,202,864,454,455,202,456',
+'202,202,202,202,202,202,202,457,339,459,149,148,139,472,475,490,491',
+'492,493,494,137,136,135,134,131,129,202,202,202,202,202,202,202,202',
+'202,202,202,202,202,202,202,202,202,202,202,202,202,202,202,202,202',
+'202,202,202,127,126,517,518,520,202,202,202,202,202,202,202,202,206',
+'206,206,206,206,206,206,206,521,206,522,523,525,206,526,206,206,206',
+'206,206,206,206,527,,202,207,207,207,207,207,207,207,207,,207,,,,207',
+',207,207,207,207,207,207,207,619,619,619,619,619,619,619,619,,619,,619',
+',619,,619,619,619,619,619,619,619,580,580,580,580,580,580,580,580,,580',
+',,,580,,580,580,580,580,580,580,580,,573,573,573,573,573,573,573,573',
+',573,,573,,573,206,573,573,573,573,573,573,573,,,,570,570,570,570,570',
+'570,570,570,,570,,570,,570,207,570,570,570,570,570,570,570,566,566,566',
+'566,566,566,566,566,,566,,,,566,619,566,566,566,566,566,566,566,515',
+'515,515,515,515,515,515,515,,515,,,,515,580,515,515,515,515,515,515',
+'515,,514,514,514,514,514,514,514,514,,514,,,,514,573,514,514,514,514',
+'514,514,514,,,,513,513,513,513,513,513,513,513,,513,,,,513,570,513,513',
+'513,513,513,513,513,507,507,507,507,507,507,507,507,,507,,,,507,566',
+'507,507,507,507,507,507,507,506,506,506,506,506,506,506,506,,506,,,',
+'506,515,506,506,506,506,506,506,506,,505,505,505,505,505,505,505,505',
+',505,,,,505,514,505,505,505,505,505,505,505,,,,496,496,496,496,496,496',
+'496,496,,496,,,,496,513,496,496,496,496,496,496,496,458,458,458,458',
+'458,458,458,458,458,458,458,,,,507,,,,,,,,,,,,,,,,,,,,,,506,,458,458',
+'458,458,458,458,458,,,496,496,,,470,470,,470,,,,,505,,470,,,,,,496,',
+',,,,,,,,,,,,,,,496,470,470,470,470,470,470,470,470,470,470,470,470,470',
+'470,470,470,470,470,470,470,470,470,470,470,470,470,470,470,147,,147',
+',,470,470,470,470,470,470,470,470,,,,,,,,,,,,,,,,,,,,,147,147,147,147',
+'147,147,147,147,147,147,147,147,147,147,147,147,147,147,147,147,147',
+'147,147,147,147,147,147,147,571,,571,,,147,147,147,147,147,147,147,147',
+',,,,,,,,,,,,,,,,,,,,571,571,571,571,571,571,571,571,571,571,571,571',
+'571,571,571,571,571,571,571,571,571,571,571,571,571,571,571,571,366',
+',,,,571,571,571,571,571,571,571,571,,,,,,,,,,,,,,,,,,,366,366,366,366',
+'366,366,366,366,366,366,366,366,366,366,366,366,366,366,366,366,366',
+'366,366,366,366,366,366,366,246,,,,,366,366,366,366,366,366,366,366',
+'366,,,,,,,,,,,,,,,,,,246,246,246,246,246,246,246,246,246,246,246,246',
+'246,246,246,246,246,246,246,246,246,246,246,246,246,246,246,246,70,246',
+',,,246,246,246,246,246,246,246,246,,,,,,,,,,,,,,,,,,,70,70,70,70,70',
+'70,70,70,70,70,70,70,70,70,70,70,70,70,70,70,70,70,70,70,70,70,70,70',
+'153,,,,,70,70,70,70,70,70,70,70,,,,,,,,,,,,,,,,,,,153,153,153,153,153',
+'153,153,153,153,153,153,153,153,153,153,153,153,153,153,153,153,153',
+'153,153,153,153,153,153,245,,,,,153,153,153,153,153,153,153,153,,,,',
+',,,,,,,,,,,,,,245,245,245,245,245,245,245,245,245,245,245,245,245,245',
+'245,245,245,245,245,245,245,245,245,245,245,245,245,245,288,,,,,245',
+'245,245,245,245,245,245,245,,,,,,,,,,,,,,,,,,,288,288,288,288,288,288',
+'288,288,288,288,288,288,288,288,288,288,288,288,288,288,288,288,288',
+'288,288,288,288,288,380,288,,,,288,288,288,288,288,288,288,288,,,,,',
+',,,,,,,,,,,,,380,380,380,380,380,380,380,380,380,380,380,380,380,380',
+'380,380,380,380,380,380,380,380,380,380,380,380,380,380,438,380,,,,380',
+'380,380,380,380,380,380,380,,,,,,,,,,,,,,,,,,,438,438,438,438,438,438',
+'438,438,438,438,438,438,438,438,438,438,438,438,438,438,438,438,438',
+'438,438,438,438,438,439,,,,,438,438,438,438,438,438,438,438,,,,,,,,',
+',,,,,,,,,,439,439,439,439,439,439,439,439,439,439,439,439,439,439,439',
+'439,439,439,439,439,439,439,439,439,439,439,439,439,453,,,,,439,439',
+'439,439,439,439,439,439,,,,,,,,,,,,,,,,,,,453,453,453,453,453,453,453',
+'453,453,453,453,453,453,453,453,453,453,453,453,453,453,453,453,453',
+'453,453,453,453,542,,,,,453,453,453,453,453,453,453,453,,,,,,,,,,,,',
+',,,,,,542,542,542,542,542,542,542,542,542,542,542,542,542,542,542,542',
+'542,542,542,542,542,542,542,542,542,542,542,542,546,542,,,,542,542,542',
+'542,542,542,542,542,,,,,,,,,,,,,,,,,,,546,546,546,546,546,546,546,546',
+'546,546,546,546,546,546,546,546,546,546,546,546,546,546,546,546,546',
+'546,546,546,557,546,,,,546,546,546,546,546,546,546,546,,,,,,,,,,,,,',
+',,,,,557,557,557,557,557,557,557,557,557,557,557,557,557,557,557,557',
+'557,557,557,557,557,557,557,557,557,557,557,557,,557,,,,557,557,557',
+'557,557,557,557,557,53,53,53,53,53,53,53,53,53,53,53,,,,,,,,,,,,,,,',
+',,,,,,,,,,,,53,53,53,53,53,53,53,694,694,694,694,694,694,694,694,694',
+'694,694,694,694,694,694,694,694,694,694,694,694,694,694,694,694,694',
+'694,694,,,,,,694,694,694,694,694,694,694,694,690,690,690,690,690,690',
+'690,690,690,690,690,690,690,690,690,690,690,690,690,690,690,690,690',
+'690,690,690,690,690,,,,,,690,690,690,690,690,690,690,690,239,239,239',
+'239,239,239,239,239,239,239,239,239,239,239,239,239,239,239,239,239',
+'239,239,239,239,239,239,239,239,,,,,,239,239,239,239,239,239,239,239',
+'40,40,40,40,40,40,40,40,40,40,40,40,40,40,40,40,40,40,40,40,40,40,40',
+'40,40,40,40,40,,,,,,40,40,40,40,40,40,40,40,284,284,284,284,284,284',
+'284,284,284,284,284,284,284,284,284,284,284,284,284,284,284,284,284',
+'284,284,284,284,284,,,,,,284,284,284,284,284,284,284,284,511,511,511',
+'511,511,511,511,511,511,511,511,511,511,511,511,511,511,511,511,511',
+'511,511,511,511,511,511,511,511,,,,,,511,511,511,511,511,511,511,511',
+'611,611,611,611,611,611,611,611,611,611,611,611,611,611,611,611,611',
+'611,611,611,611,611,611,611,611,611,611,611,,,,,,611,611,611,611,611',
+'611,611,611,234,234,234,234,234,234,234,234,234,234,234,234,234,234',
+'234,234,234,234,234,234,234,234,234,234,234,234,234,234,,,,,,234,234',
+'234,234,234,234' ]
+        racc_action_check = arr = ::Array.new(3597, nil)
+'2,469,843,447,422,777,192,194,852,192,329,2,613,269,515,515,515,515',
+'515,515,515,515,824,515,596,325,893,515,560,515,515,515,515,515,515',
+'515,154,597,125,856,853,269,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2',
+'2,2,2,2,2,2,2,2,329,422,613,194,194,2,2,2,2,2,2,2,2,893,85,560,267,576',
+'703,642,85,721,855,631,558,528,511,447,161,777,469,2,2,2,92,2,2,563',
+'2,161,2,192,192,192,843,895,824,267,325,192,515,192,596,329,2,613,2',
+'329,2,613,75,860,125,856,154,597,2,861,41,2,161,161,161,161,161,161',
+'161,161,161,161,161,161,161,161,161,161,161,161,161,161,161,161,161',
+'161,161,161,161,161,187,230,230,258,895,161,161,161,161,161,161,161',
+'161,576,703,642,721,185,631,558,528,511,866,691,303,89,41,315,185,92',
+'315,161,161,161,258,161,161,333,161,863,161,563,563,563,286,308,782',
+'340,851,563,340,563,851,866,161,75,161,340,161,185,185,185,185,185,185',
+'185,185,185,185,185,185,185,185,185,185,185,185,185,185,185,185,185',
+'185,185,185,185,185,315,89,89,190,869,185,185,185,185,185,185,185,185',
+'839,470,812,692,291,187,187,187,512,187,187,187,187,609,812,291,691',
+'303,185,185,185,190,185,185,171,185,872,185,778,171,333,778,315,315',
+'315,294,873,286,308,782,315,185,315,185,609,185,291,291,291,291,291',
+'291,291,291,291,291,291,291,291,291,291,291,291,291,291,291,291,291',
+'291,291,291,291,291,291,808,291,625,176,625,291,291,291,291,291,291',
+'291,291,392,778,573,539,539,172,839,470,294,692,172,366,561,86,512,561',
+'86,808,291,291,291,176,291,291,264,291,264,291,392,553,573,720,720,720',
+'720,720,720,720,720,874,720,291,366,291,720,291,720,720,720,720,720',
+'720,720,294,294,294,841,294,294,294,294,902,902,902,902,902,902,902',
+'902,880,902,553,561,876,902,553,902,902,902,902,902,902,902,877,841',
+'599,889,889,889,889,889,889,889,889,210,889,210,880,210,889,720,889',
+'889,889,889,889,889,889,521,521,521,521,521,521,521,521,599,521,878',
+'577,720,521,568,521,521,521,521,521,521,521,430,743,743,751,157,262',
+'430,720,148,881,430,148,522,522,522,522,522,522,522,522,577,522,882',
+'568,102,522,720,522,522,522,522,522,522,522,751,157,262,902,523,523',
+'523,523,523,523,523,523,883,523,653,278,834,523,102,523,523,523,523',
+'523,523,523,879,894,889,897,879,580,653,898,580,801,234,234,234,234',
+'234,234,234,234,653,234,278,834,901,234,521,234,234,234,234,234,234',
+'234,166,166,166,166,166,166,166,166,801,166,657,626,784,166,904,166',
+'166,166,166,166,166,166,115,716,518,476,522,905,476,477,518,906,477',
+'756,518,434,1,452,127,909,784,657,626,3,127,494,494,234,127,756,115',
+'716,523,479,479,479,479,479,479,479,479,756,479,434,479,452,479,234',
+'479,479,479,479,479,479,479,8,358,358,358,358,358,358,358,358,234,358',
+'520,520,520,358,9,358,358,358,358,358,358,358,363,363,363,363,363,363',
+'363,363,166,363,254,254,254,363,16,363,363,363,363,363,363,363,360,360',
+'360,360,360,360,360,360,375,360,222,222,38,360,68,360,360,360,360,360',
+'360,360,505,505,69,361,361,361,361,361,361,361,361,70,361,72,375,73',
+'361,479,361,361,361,361,361,361,361,74,682,682,682,682,682,682,682,682',
+'76,682,223,223,77,682,358,682,682,682,682,682,682,682,862,862,862,862',
+'862,862,862,862,79,862,265,265,80,862,363,862,862,862,862,862,862,862',
+'362,362,362,362,362,362,362,362,84,362,225,225,94,362,360,362,362,362',
+'362,362,362,362,489,489,95,797,797,797,797,797,797,797,797,100,797,490',
+'490,101,797,361,797,797,797,797,797,797,797,104,811,811,811,811,811',
+'811,811,811,106,811,497,497,108,811,682,811,811,811,811,811,811,811',
+'838,838,838,838,838,838,838,838,110,838,549,297,114,838,862,838,838',
+'838,838,838,838,838,491,491,797,684,684,117,549,181,181,297,297,297',
+'297,297,362,487,549,118,221,119,487,487,797,221,221,796,796,796,796',
+'796,796,796,796,122,796,492,492,123,796,797,796,796,796,796,796,796',
+'796,124,835,835,835,835,835,835,835,835,126,835,128,835,129,835,811',
+'835,835,835,835,835,835,835,514,514,514,514,514,514,514,514,318,514',
+'82,82,131,514,838,514,514,514,514,514,514,514,488,133,796,389,389,488',
+'488,318,318,318,318,823,823,823,823,823,823,823,823,564,823,136,796',
+'137,823,138,823,823,823,823,823,823,823,495,495,495,495,742,742,796',
+'564,564,564,564,224,224,224,224,207,207,207,207,207,207,207,207,547',
+'207,510,510,510,207,835,207,207,207,207,207,207,207,510,510,510,510',
+'510,510,547,547,547,547,547,546,546,546,514,546,546,546,546,207,207',
+'207,207,207,207,207,207,207,207,207,207,207,207,207,207,207,207,207',
+'207,207,207,207,207,207,207,207,207,823,496,496,496,496,207,207,207',
+'207,207,207,207,207,748,748,748,748,748,748,748,748,139,748,493,493',
+'141,748,144,748,748,748,748,748,748,748,151,152,207,859,859,859,859',
+'859,859,859,859,159,859,160,164,165,859,167,859,859,859,859,859,859',
+'859,575,575,575,575,575,575,575,575,168,575,169,173,174,575,175,575',
+'575,575,575,575,575,575,748,177,178,179,183,184,257,257,257,257,257',
+'257,257,257,189,257,195,198,206,257,748,257,257,257,257,257,257,257',
+'226,581,581,581,581,581,581,581,581,748,581,227,581,228,581,229,581',
+'581,581,581,581,581,581,729,729,729,729,729,729,729,729,235,729,236',
+'859,240,729,242,729,729,729,729,729,729,729,256,584,584,584,584,584',
+'584,584,584,266,584,575,584,271,584,272,584,584,584,584,584,584,584',
+'274,276,147,147,147,147,147,147,147,147,280,147,281,282,283,147,257',
+'147,147,147,147,147,147,147,284,591,591,591,591,591,591,591,591,285',
+'591,306,307,309,591,581,591,591,591,591,591,591,591,719,719,719,719',
+'719,719,719,719,324,719,326,719,327,719,729,719,719,719,719,719,719',
+'719,334,288,147,602,246,246,246,288,335,602,337,288,338,602,342,584',
+'246,246,246,246,246,246,147,343,368,714,714,714,714,714,714,714,714',
+'380,714,381,382,383,714,147,714,714,714,714,714,714,714,384,710,710',
+'710,710,710,710,710,710,394,710,395,396,401,710,591,710,710,710,710',
+'710,710,710,706,706,706,706,706,706,706,706,402,706,407,408,409,706',
+'719,706,706,706,706,706,706,706,504,504,504,504,504,504,504,504,410',
+'504,411,412,413,504,414,504,504,504,504,504,504,504,416,419,425,365',
+'365,365,365,365,365,365,365,426,365,428,431,432,365,714,365,365,365',
+'365,365,365,365,827,827,827,827,437,442,443,446,450,827,827,783,783',
+'783,783,710,454,460,827,827,783,783,504,504,461,4,696,462,373,783,783',
+'4,696,146,373,4,696,706,373,146,463,465,504,146,472,630,630,630,630',
+'630,630,630,630,480,630,483,630,498,630,504,630,630,630,630,630,630',
+'630,499,500,827,364,364,364,364,364,364,364,364,501,364,783,502,525',
+'364,365,364,364,364,364,364,364,364,908,908,908,908,908,908,908,908',
+'526,908,529,530,531,908,533,908,908,908,908,908,908,908,341,341,341',
+'341,341,341,341,341,534,341,535,536,537,341,538,341,341,341,341,341',
+'341,341,543,739,739,739,739,544,548,88,424,557,739,739,739,88,424,630',
+'559,88,424,739,739,565,570,572,578,583,347,347,347,347,347,347,347,347',
+'586,347,588,598,600,347,364,347,347,347,347,347,347,347,345,345,345',
+'345,345,345,345,345,604,345,605,606,607,345,908,345,345,345,345,345',
+'345,345,739,162,162,162,162,162,162,162,162,162,162,162,608,610,341',
+'611,616,619,632,345,345,345,345,345,345,345,345,345,345,345,345,345',
+'345,345,345,345,345,345,345,345,345,345,345,345,345,345,345,634,636',
+'637,638,640,345,345,345,345,345,345,345,345,641,643,347,260,260,260',
+'260,260,260,260,348,348,348,348,348,348,348,348,644,348,646,648,651',
+'348,345,348,348,348,348,348,348,348,349,349,349,349,349,349,349,349',
+'658,349,662,663,664,349,665,349,349,349,349,349,349,349,350,350,350',
+'350,350,350,350,350,666,350,668,671,673,350,688,350,350,350,350,350',
+'350,350,351,351,351,351,351,351,351,351,689,351,693,694,695,351,697',
+'351,351,351,351,351,351,351,699,700,701,707,352,352,352,352,352,352',
+'352,352,711,352,718,725,727,352,348,352,352,352,352,352,352,352,353',
+'353,353,353,353,353,353,353,730,353,731,746,749,353,349,353,353,353',
+'353,353,353,353,354,354,354,354,354,354,354,354,750,354,755,760,761',
+'354,350,354,354,354,354,354,354,354,355,355,355,355,355,355,355,355',
+'763,355,764,766,767,355,351,355,355,355,355,355,355,355,768,769,770',
+'771,356,356,356,356,356,356,356,356,772,356,773,775,776,356,352,356',
+'356,356,356,356,356,356,357,357,357,357,357,357,357,357,780,357,781',
+'793,799,357,353,357,357,357,357,357,357,357,359,359,359,359,359,359',
+'359,359,810,359,814,815,816,359,354,359,359,359,359,359,359,359,149',
+'149,149,149,149,149,149,149,817,149,821,149,822,149,355,149,149,149',
+'149,149,149,149,828,833,836,837,474,474,474,474,474,474,474,474,840',
+'474,845,846,850,474,356,474,474,474,474,474,474,474,290,290,290,290',
+'290,290,290,290,,290,,,,290,357,290,290,290,290,290,290,290,848,848',
+'848,848,848,848,848,848,,848,,,,848,359,848,848,848,848,848,848,848',
+'806,806,806,806,806,806,806,806,,806,,,,806,149,806,806,806,806,806',
+'806,806,245,,,,,,245,,,253,245,669,669,669,669,253,,,474,253,669,669',
+',,,848,,,,669,669,170,170,170,170,170,170,170,,,290,,,,,848,,,403,403',
+'403,403,403,403,403,403,,403,,,,403,848,403,403,403,403,403,403,403',
+'513,513,513,513,513,513,513,513,,513,669,,,513,806,513,513,513,513,513',
+'513,513,212,212,212,212,212,212,212,212,,212,,,,212,,212,212,212,212',
+'212,212,212,211,211,211,211,211,211,211,211,,211,,,,211,,211,211,211',
+'211,211,211,211,,,,464,464,464,464,464,464,464,464,464,464,464,,,,,403',
+',,,,,,54,54,54,54,54,54,54,54,54,54,54,,,,,513,464,464,464,464,464,464',
+'464,,,,478,478,,478,,,,,,,478,212,54,54,54,54,54,54,54,36,36,36,36,36',
+'36,36,36,36,36,36,36,36,36,211,478,478,478,478,478,478,478,478,478,478',
+'478,478,478,478,478,478,478,478,478,478,478,478,478,478,478,478,478',
+'478,582,,582,,,478,478,478,478,478,478,478,478,,,,,,,,,,,,,,,,,,,,,582',
+'582,582,582,582,582,582,582,582,582,582,582,582,582,582,582,582,582',
+'582,582,582,582,582,582,582,582,582,582,150,,150,,,582,582,582,582,582',
+'582,582,582,,,,,,,,,,,,,,,,,,,,,150,150,150,150,150,150,150,150,150',
+'150,150,150,150,150,150,150,150,150,150,150,150,150,150,150,150,150',
+'150,150,372,,,,,150,150,150,150,150,150,150,150,,,,,,,,,,,,,,,,,,,372',
+'372,372,372,372,372,372,372,372,372,372,372,372,372,372,372,372,372',
+'372,372,372,372,372,372,372,372,372,372,293,,,,,372,372,372,372,372',
+'372,372,372,372,,,,,,,,,,,,,,,,,,293,293,293,293,293,293,293,293,293',
+'293,293,293,293,293,293,293,293,293,293,293,293,293,293,293,293,293',
+'293,293,444,293,,,,293,293,293,293,293,293,293,293,,,,,,,,,,,,,,,,,',
+',444,444,444,444,444,444,444,444,444,444,444,444,444,444,444,444,444',
+'444,444,444,444,444,444,444,444,444,444,444,445,,,,,444,444,444,444',
+'444,444,444,444,,,,,,,,,,,,,,,,,,,445,445,445,445,445,445,445,445,445',
+'445,445,445,445,445,445,445,445,445,445,445,445,445,445,445,445,445',
+'445,445,550,,,,,445,445,445,445,445,445,445,445,,,,,,,,,,,,,,,,,,,550',
+'550,550,550,550,550,550,550,550,550,550,550,550,550,550,550,550,550',
+'550,550,550,550,550,550,550,550,550,550,554,550,,,,550,550,550,550,550',
+'550,550,550,,,,,,,,,,,,,,,,,,,554,554,554,554,554,554,554,554,554,554',
+'554,554,554,554,554,554,554,554,554,554,554,554,554,554,554,554,554',
+'554,566,554,,,,554,554,554,554,554,554,554,554,,,,,,,,,,,,,,,,,,,566',
+'566,566,566,566,566,566,566,566,566,566,566,566,566,566,566,566,566',
+'566,566,566,566,566,566,566,566,566,566,71,566,,,,566,566,566,566,566',
+'566,566,566,,,,,,,,,,,,,,,,,,,71,71,71,71,71,71,71,71,71,71,71,71,71',
+'71,71,71,71,71,71,71,71,71,71,71,71,71,71,71,386,,,,,71,71,71,71,71',
+'71,71,71,,,,,,,,,,,,,,,,,,,386,386,386,386,386,386,386,386,386,386,386',
+'386,386,386,386,386,386,386,386,386,386,386,386,386,386,386,386,386',
+'459,386,,,,386,386,386,386,386,386,386,386,,,,,,,,,,,,,,,,,,,459,459',
+'459,459,459,459,459,459,459,459,459,459,459,459,459,459,459,459,459',
+'459,459,459,459,459,459,459,459,459,251,,,,,459,459,459,459,459,459',
+'459,459,,,,,,,,,,,,,,,,,,,251,251,251,251,251,251,251,251,251,251,251',
+'251,251,251,251,251,251,251,251,251,251,251,251,251,251,251,251,251',
+'250,251,,,,251,251,251,251,251,251,251,251,,,,,,,,,,,,,,,,,,,250,250',
+'250,250,250,250,250,250,250,250,250,250,250,250,250,250,250,250,250',
+'250,250,250,250,250,250,250,250,250,156,,,,,250,250,250,250,250,250',
+'250,250,,,,,,,,,,,,,,,,,,,156,156,156,156,156,156,156,156,156,156,156',
+'156,156,156,156,156,156,156,156,156,156,156,156,156,156,156,156,156',
+',,,,,156,156,156,156,156,156,156,156,622,622,622,622,622,622,622,622',
+'622,622,622,622,622,622,622,622,622,622,622,622,622,622,622,622,622',
+'622,622,622,,,,,,622,622,622,622,622,622,622,622,40,40,40,40,40,40,40',
+'40,40,40,40,40,40,40,40,40,40,40,40,40,40,40,40,40,40,40,40,40,,,,,',
+'40,40,40,40,40,40,40,40,705,705,705,705,705,705,705,705,705,705,705',
+'705,705,705,705,705,705,705,705,705,705,705,705,705,705,705,705,705',
+',,,,,705,705,705,705,705,705,705,705,244,244,244,244,244,244,244,244',
+'244,244,244,244,244,244,244,244,244,244,244,244,244,244,244,244,244',
+'244,244,244,,,,,,244,244,244,244,244,244,244,244,519,519,519,519,519',
+'519,519,519,519,519,519,519,519,519,519,519,519,519,519,519,519,519',
+'519,519,519,519,519,519,,,,,,519,519,519,519,519,519,519,519,709,709',
+'709,709,709,709,709,709,709,709,709,709,709,709,709,709,709,709,709',
+'709,709,709,709,709,709,709,709,709,,,,,,709,709,709,709,709,709,709',
+'709,289,289,289,289,289,289,289,289,289,289,289,289,289,289,289,289',
+'289,289,289,289,289,289,289,289,289,289,289,289,,,,,,289,289,289,289',
+'289,289,289,289,239,239,239,239,239,239,239,239,239,239,239,239,239',
+'239,239,239,239,239,239,239,239,239,239,239,239,239,239,239,,,,,,239',
+'239,239,239,239,239' ]
+        racc_action_check = arr = ::Array.new(3593, nil)
         idx = 0
         clist.each do |str|
 …
 racc_action_pointer = [
    nil,  1429,    -1,   489,  1138,   nil,   nil,   nil,  1326,  1278,
    nil,   nil,   nil,   nil,   nil,   nil,  1288,   nil,   nil,   nil,
+   nil,   613,    -1,   620,  1492,   nil,   nil,   nil,   612,   627,
+   nil,   nil,   nil,   nil,   nil,   nil,   680,   nil,   nil,   nil,
    nil,   nil,   nil,   nil,   nil,   nil,   nil,   nil,   nil,   nil,
+   nil,   nil,   nil,   nil,   nil,   nil,   889,   nil,  1259,   nil,
+,    13,   nil,   nil,   nil,   nil,   nil,   nil,   nil,   nil,
+   nil,   nil,   nil,  3134,   nil,   nil,   nil,   nil,   nil,   nil,
+   nil,   nil,   nil,   nil,   nil,   nil,   nil,  1401,  1240,  1239,
+,  1190,  1188,  1168,    79,  1167,  1164,   nil,  1095,   nil,
+,   nil,  1023,   122,   574,   nil,  1137,   172,   nil,   nil,
+,   nil,   974,   971,   nil,   nil,   nil,   nil,  1026,   904,
+,   nil,   850,   nil,   832,   nil,   802,   nil,   688,   nil,
+   nil,   nil,   670,   486,   nil,   644,   618,   602,   nil,   nil,
+,   580,   550,    11,   523,   348,  1803,  1804,   nil,  1775,
+   nil,  1774,   nil,   nil,  1829,  1735,  1827,  1770,   nil,  1762,
+   nil,   nil,   nil,  1669,  1077,   501,  1121,  2314,  1822,  1812,
+   nil,    27,   nil,  2611,   453,   nil,  1637,  1612,   182,   831,
+   nil,  1601,  1604,  1283,  1598,  1580,  1465,  1622,   537,   280,
+,  1576,  1558,   482,  1562,  1561,  1528,   nil,   659,   nil,
+,  1541,   269,   nil,   154,   nil,  1534,    33,   nil,    -6,
+   nil,   128,   nil,  1417,   nil,   nil,   nil,   nil,   nil,   nil,
+   nil,  1510,  1804,   nil,   nil,   435,  1886,  1911,   nil,   nil,
+   nil,   nil,   nil,   nil,   nil,   nil,   777,   657,   -19,   613,
+,  1462,  1398,  1352,  1349,   132,   nil,   nil,   nil,   709,
+,  1376,   nil,   nil,  3515,  1397,   nil,  1368,   nil,  3310,
+,   689,   nil,   nil,   nil,  2670,  2493,   nil,  1668,   556,
+   nil,  1416,   687,   430,   nil,  1615,   nil,    30,   nil,   365,
+,  1423,   477,   nil,   341,   nil,  1402,  1429,   nil,  1404,
+   nil,  1405,   nil,   465,   nil,  1414,  1447,  1418,  1448,  1437,
+,   174,   nil,   527,  3392,   665,    95,   nil,  2729,   289,
+   nil,   nil,   678,   nil,   nil,   nil,   nil,   nil,    73,   nil,
+   nil,  1428,  1430,    72,  1431,   nil,   nil,   nil,   nil,   nil,
+,   nil,   nil,   668,   nil,   nil,   nil,   nil,   nil,  1432,
+,  1395,  1510,   nil,     0,   nil,   nil,   nil,    78,  1526,
+   nil,  1526,  1527,   nil,   347,  1697,  1523,  1532,   nil,  1721,
+   nil,  1651,  1629,  1603,  1581,  1559,  1537,  1511,  1489,  1467,
+,  1419,  1397,  1375,  1353,  1327,  1305,  1261,  1235,  1213,
+,   nil,  1606,   nil,   nil,   nil,  2434,  1667,   nil,   328,
+   nil,   nil,   nil,   nil,  1619,  1620,  1621,  1630,  1632,   nil,
+,   nil,   nil,   228,   nil,   nil,     0,   nil,  1634,  1652,
+,   nil,   nil,   nil,   nil,  1649,  1650,  1191,   nil,   nil,
+   nil,  1665,  1622,  1683,  1696,  1638,  1699,  1702,  1706,   nil,
+,   nil,   nil,  1721,   nil,   nil,   166,   nil,  1150,  1723,
+,   nil,  1695,   nil,  1666,  1650,  1721,   nil,   459,   nil,
+   nil,  1753,   nil,   nil,   nil,   nil,  1655,  1777,  2847,  2906,
+,    25,   nil,   nil,  1755,   nil,  1783,   nil,  1805,   nil,
+   nil,   nil,   nil,  2965,  1709,  1803,  1805,  1813,  2119,  1790,
+   nil,   nil,   nil,    -8,   188,   nil,  1099,   nil,   356,   183,
+,  1055,  1821,   nil,   nil,  1825,   nil,   nil,   nil,   524,
+,   819,   807,   799,   787,   745,   721,   757,   705,   689,
+,  1803,  1803,  1803,  1801,   nil,  2187,   645,   nil,   nil,
+   nil,   nil,   832,   115,   102,  2162,  2139,  2117,   nil,   nil,
+,  3433,   534,  2095,  2070,  2047,   nil,  1863,  1865,   nil,
+,  1854,  1887,  1889,   nil,  1890,  1892,  1869,   270,   252,
+,   385,   nil,   nil,   nil,   302,   345,   nil,  1573,   653,
+,   499,  3024,   nil,   nil,   308,  3083,   nil,   nil,   438,
+,   536,   288,   282,   nil,    94,   548,  3142,   nil,   444,
+   nil,   571,   nil,   459,   409,   nil,  2025,    71,   nil,   486,
+,  2375,   623,  1978,   nil,   647,   nil,   662,   nil,   nil,
+,   nil,   nil,   nil,   nil,    26,    14,   691,   476,   709,
+   nil,  1145,   nil,   713,   739,   749,   746,   775,   452,   nil,
+,   nil,    -2,   nil,   nil,   804,   nil,   nil,   827,   nil,
+   nil,  3474,   nil,   nil,   204,   269,   nil,   nil,   nil,  1933,
+,   823,   nil,   852,   nil,   872,   843,   847,   nil,   890,
+,    60,   896,   897,   nil,   929,   nil,   899,   nil,   nil,
+,   nil,   484,   nil,   nil,   475,   901,   nil,   nil,   nil,
+,   944,   835,   920,   948,   nil,   951,   nil,   963,   nil,
+   nil,   nil,   nil,   nil,   nil,   nil,   nil,   643,   nil,   843,
+   nil,   nil,   nil,   935,   980,   nil,   982,   983,   959,  1007,
+,   522,  1005,   nil,  1006,   983,  1026,   nil,   -10,   nil,
+,   617,   972,   nil,  3228,   595,  1038,   nil,   nil,   573,
+   nil,   396,   nil,  1045,   551,   382,   175,   nil,   nil,   nil,
+,   nil,  1042,   nil,    12,   939,   nil,   nil,  1059,   nil,
+,  1073,   nil,   302,   nil,   nil,   nil,  1049,   491,   nil,
+   nil,   nil,  1050,  1076,   nil,  1099,  1100,   nil,  1102,  1073,
+,  1118,  1009,  1134,  1108,  1145,   nil,  1121,  1148,   -11,
+,   nil,  1152,  1129,    10,   nil,   nil,  1166,   nil,   nil,
+,   412,   nil,  1161,   nil,   323,   nil,   nil,   nil,   nil,
+,   nil,   328,   nil,  1163,  1007,   175,   nil,  1208,  1210,
+,  1187,   nil,   nil,  1117,  1207,   985,    -9,  1209,   nil,
+   nil,   nil,   nil,  1248,   428,   963,  1249,  1221,   893,   100,
+,   495,   nil,   -13,   nil,  1230,  1258,   871,   nil,  1235,
+,  1280,  1285,   nil,  1256,    24,   nil,   nil,   849,  1301,
+,   827,  1309,   nil,   nil,   478,   nil,   nil,  1295,   nil,
+   nil,  1324,  1327,  1326,   nil,  1341,  1281,  1313,   486,   492,
+,  1323,  1294,   nil,   nil,   nil,   nil,   nil,   801,   nil,
+   nil,   nil,   272,  1354,    11,   nil,  1402,  1441,   nil,   nil,
+,   735,   nil,  1778,  1806,   395,   nil,  1169,   555,   nil ]
+   nil,   nil,   nil,   nil,   nil,   nil,  2268,   nil,   694,   nil,
+,   123,   nil,   nil,   nil,   nil,   nil,   nil,   nil,   nil,
+   nil,   nil,   nil,   nil,  2185,   nil,   nil,   nil,   nil,   nil,
+   nil,   nil,   nil,   nil,   nil,   nil,   nil,   nil,   702,   712,
+,  2888,   717,   719,   729,   115,   738,   742,   nil,   704,
+,   nil,   921,   nil,   755,    75,   359,   nil,  1610,   174,
+   nil,   nil,    89,   nil,   730,   742,   nil,   nil,   nil,   nil,
+,   755,   496,   nil,   827,   nil,   836,   nil,   840,   nil,
+,   nil,   nil,   nil,   862,   586,   nil,   877,   889,   891,
+   nil,   nil,   905,   909,   917,    27,   922,   606,   866,   870,
+   nil,   892,   nil,   903,   nil,   nil,   979,   888,   983,  1040,
+   nil,  1044,   nil,   nil,  1106,   nil,  1500,  1268,   484,  2000,
+,  1115,  1107,   nil,    26,   nil,  3183,   448,   nil,  1094,
+,    97,  1591,   nil,  1124,  1129,   575,  1127,  1143,  1031,
+,   282,   350,  1146,  1147,  1149,   335,  1163,  1164,  1134,
+   nil,   848,   nil,  1163,  1168,   184,   nil,   156,   nil,  1171,
+,   nil,    -6,   nil,   -65,  1178,   nil,   nil,  1081,   nil,
+   nil,   nil,   nil,   nil,   nil,   nil,  1179,  1019,   nil,   nil,
+,  2228,  2206,   nil,   nil,   nil,   nil,   nil,   nil,   nil,
+   nil,   880,   687,   729,   989,   767,  1182,  1177,  1178,  1179,
+,   nil,   nil,   nil,   553,  1222,  1220,   nil,   nil,  3511,
+,   nil,  1196,   nil,  3347,  2107,  1268,   nil,   nil,   nil,
+,  3065,   nil,  2116,   612,   nil,  1230,  1176,   130,   nil,
+,   nil,   480,   nil,   367,   767,  1244,    76,   nil,    -1,
+   nil,  1217,  1245,   nil,  1227,   nil,  1228,   nil,   524,   nil,
+,  1270,  1241,  1271,  1252,  1261,   197,   nil,  1329,  3470,
+,   271,   nil,  2534,   291,   nil,   nil,   778,   nil,   nil,
+   nil,   nil,   nil,   177,   nil,   nil,  1232,  1233,   198,  1234,
+   nil,   nil,   nil,   nil,   nil,   183,   nil,   nil,   867,   nil,
+   nil,   nil,   nil,   nil,  1252,    10,  1197,  1313,   nil,    -2,
+   nil,   nil,   nil,   190,  1328,  1274,   nil,  1337,  1339,   nil,
+,  1588,  1336,  1345,   nil,  1658,   nil,  1636,  1750,  1772,
+,  1816,  1842,  1864,  1886,  1908,  1934,  1956,   651,  1978,
+,   720,   787,   673,  1544,  1452,   325,   nil,  1350,   nil,
+   nil,   nil,  2475,  1495,   nil,   692,   nil,   nil,   nil,   nil,
+,  1363,  1364,  1365,  1375,   nil,  2947,   nil,   nil,   936,
+   nil,   nil,   342,   nil,  1384,  1386,  1387,   nil,   nil,   nil,
+   nil,  1382,  1400,  2162,   nil,   nil,   nil,  1402,  1347,  1404,
+,  1368,  1429,  1430,  1428,   nil,  1440,   nil,   nil,  1442,
+   nil,   nil,   -37,   nil,  1611,  1443,  1422,   nil,  1424,   nil,
+,  1355,  1426,   nil,   599,   nil,   nil,  1471,   nil,   nil,
+   nil,   nil,  1373,  1467,  2593,  2652,  1441,   -11,   nil,   nil,
+,   nil,   601,   nil,  1483,   nil,   nil,   nil,   nil,  3006,
+,  1485,  1488,  1501,  2163,  1477,   nil,   nil,   nil,    -8,
+,   nil,  1509,   nil,  2026,   nil,   593,   597,  2294,   628,
+,   nil,   nil,  1521,   nil,   nil,   nil,   877,   954,   791,
+,   855,   890,  1087,   596,   978,  1063,   815,  1515,  1509,
+,  1518,  1518,   nil,  1427,   709,   nil,   nil,   nil,   nil,
+,    81,   261,  2184,   949,    12,   nil,   nil,   592,  3388,
+,   461,   495,   521,   nil,  1544,  1563,   nil,    80,  1536,
+,  1570,   nil,  1572,  1588,  1559,  1591,  1562,  1593,   318,
+   nil,   nil,   nil,  1572,  1604,   nil,   937,   937,  1603,   857,
+,   nil,   nil,   310,  2770,   nil,   nil,  1547,    79,  1613,
+,   355,   nil,    92,   900,  1618,  2829,   nil,   437,   nil,
+,   nil,  1507,   344,   nil,  1148,    73,   433,  1597,   nil,
+,  1199,  2355,  1627,  1244,   nil,  1636,   nil,  1635,   nil,
+   nil,  1291,   nil,   nil,   nil,   nil,    14,    27,  1639,   430,
+,   nil,  1331,   nil,  1658,  1660,  1661,  1657,  1680,   240,
+,  1626,   nil,     0,   nil,   nil,  1687,   nil,   nil,  1689,
+   nil,   nil,  3224,   nil,   nil,   332,   578,   nil,   nil,   nil,
+,    78,  1660,   nil,  1716,   nil,  1721,  1689,  1692,   nil,
+,  1733,    75,  1703,  1720,   nil,  1753,   nil,  1723,   nil,
+   nil,  1638,   nil,   521,   nil,   nil,   nil,   577,  1742,   nil,
+   nil,   nil,  1769,  1770,  1661,  1747,  1789,   nil,  1795,  2125,
+   nil,  1794,   nil,  1798,   nil,   nil,   nil,   nil,   nil,   nil,
+   nil,   nil,   743,   nil,   844,   nil,   nil,   nil,  1768,  1811,
+   nil,   176,   256,  1788,  1819,  1790,  1493,  1817,   nil,  1825,
+,  1829,   nil,    74,   nil,  3306,  1405,  1772,   nil,  3429,
+,  1837,   nil,   nil,  1360,   nil,   587,   nil,  1845,  1313,
+,    76,   nil,   nil,   nil,  1815,   nil,  1842,   nil,  1221,
+,  1837,   nil,   nil,   nil,   nil,   nil,   nil,   nil,  1611,
+   nil,   nil,  1006,   482,   nil,   nil,  1867,   nil,  1101,  1864,
+,   447,   nil,   nil,   nil,  1858,   596,   nil,   nil,   nil,
+,  1885,   nil,  1908,  1909,   nil,  1911,  1882,  1891,  1918,
+,  1920,  1902,  1933,   nil,  1907,  1934,    -9,   284,   nil,
+,  1927,   199,  1485,   576,   nil,   nil,   nil,   nil,   nil,
+   nil,   nil,   nil,  1954,   nil,   nil,   904,   812,   nil,  1930,
+   nil,   513,   nil,   nil,   nil,   nil,  2092,   nil,   330,   nil,
+,   835,   240,   nil,  1975,  1976,  1864,  1970,   nil,   nil,
+   nil,  1884,  1974,   982,     8,   nil,   nil,  1474,  1982,   nil,
+   nil,   nil,   nil,  2014,   525,   927,  2015,  1987,   857,   253,
+,   399,   nil,   -13,   nil,  1997,  2024,   nil,  2070,   nil,
+,   205,    -5,    30,   nil,    52,    25,   nil,   nil,  1126,
+,    97,   765,   197,   nil,   nil,   180,   nil,   nil,   217,
+   nil,   nil,   279,   291,   379,   nil,   418,   367,   433,   534,
+,   454,   467,   460,   nil,   nil,   nil,   nil,   nil,   439,
+   nil,   nil,   nil,    11,   533,   100,   nil,   539,   512,   nil,
+   nil,   558,   414,   nil,   576,   594,   567,   nil,  1566,   606,
+   nil ]
 racc_action_default = [
   -194,  -418,    -1,  -418,  -418,   -69,   -70,   -71,   -72,   -73,
    -74,   -75,   -76,   -77,   -78,   -79,  -418,   -81,   -82,   -83,
+  -195,  -442,    -1,  -442,  -442,   -69,   -70,   -71,   -72,   -73,
+   -74,   -75,   -76,   -77,   -78,   -79,  -442,   -81,   -82,   -83,
    -84,   -85,   -86,   -87,   -88,   -89,   -90,   -91,   -92,   -93,
+   -94,   -95,   -96,   -97,   -98,   -99,  -418,  -101,  -104,  -118,
+  -418,  -418,  -126,  -127,  -128,  -129,  -130,  -131,  -136,  -137,
+  -192,  -193,  -195,  -418,  -197,  -198,  -199,  -200,  -201,  -202,
+  -203,  -206,  -207,  -208,  -209,  -210,  -234,  -418,  -418,  -418,
+  -418,  -418,  -418,  -418,  -418,  -418,  -418,  -405,  -418,   870,
+  -418,   -65,   -67,  -418,  -139,  -140,  -418,  -146,  -205,  -204,
+  -418,  -100,  -106,  -418,  -109,   -72,   -73,  -119,  -418,  -125,
+  -418,  -211,  -418,  -214,  -418,  -216,  -418,  -218,  -418,  -220,
+  -221,  -222,  -418,  -418,  -386,  -418,  -418,  -418,  -394,  -395,
+  -418,  -418,  -418,  -418,  -418,  -418,  -418,  -418,  -247,  -418,
+  -254,  -418,  -260,  -250,  -418,  -327,  -418,  -418,  -350,  -418,
+  -398,  -410,   -62,  -418,  -418,  -138,  -418,  -418,  -418,  -147,
+  -148,  -418,  -102,  -418,  -418,  -132,  -134,  -418,  -418,  -418,
+  -406,  -418,  -418,  -418,  -418,  -418,  -418,  -418,  -418,  -418,
+  -418,  -418,  -418,  -418,  -418,  -418,  -418,  -337,  -418,  -244,
+  -418,  -242,  -418,  -255,  -418,  -251,  -418,  -418,  -328,  -418,
+  -399,  -418,   -66,    -2,    -3,    -4,    -5,    -6,    -7,    -8,
+    -9,   -10,  -418,   -12,   -14,   -18,  -418,  -418,   -22,   -23,
+   -24,   -25,   -26,   -27,   -28,   -30,   -34,   -37,   -40,   -45,
+   -48,   -50,   -52,   -54,   -56,   -58,   -61,   -68,  -186,  -418,
+  -418,  -418,  -143,   -63,  -418,  -418,  -145,  -150,  -152,  -418,
+  -156,  -418,  -141,  -149,   -80,  -418,  -418,  -107,  -418,  -418,
+  -123,  -418,  -418,  -418,  -196,  -418,  -212,  -418,  -224,  -418,
+  -418,  -418,  -418,  -228,  -418,  -291,  -418,  -418,  -387,  -418,
+  -389,  -418,  -391,  -418,  -404,  -418,  -418,  -418,  -418,  -418,
+  -418,  -418,  -240,  -418,  -418,  -418,  -418,  -248,  -418,  -418,
+  -261,  -263,  -418,  -265,  -266,  -267,  -268,  -269,  -418,  -288,
+  -289,  -418,  -418,  -418,  -418,  -313,  -314,  -252,  -324,  -326,
+  -418,  -351,  -353,  -418,  -355,  -356,  -357,  -358,  -365,  -418,
+  -418,  -418,  -418,  -381,  -418,  -407,  -408,  -409,  -418,  -418,
+   -13,  -418,  -418,   -60,  -172,  -418,  -418,  -418,   -19,  -418,
+   -20,  -418,  -418,  -418,  -418,  -418,  -418,  -418,  -418,  -418,
+  -418,  -418,  -418,  -418,  -418,  -418,  -418,  -418,  -418,  -418,
+  -418,  -190,  -418,  -142,   -64,  -144,  -418,  -157,  -155,  -418,
+  -159,  -161,  -162,  -163,  -418,  -418,  -166,  -418,  -418,  -171,
+  -418,  -105,  -108,  -418,  -120,  -122,  -418,  -112,  -114,  -418,
+  -418,  -133,  -135,  -124,  -213,  -418,  -418,  -418,  -215,  -217,
+  -219,  -418,  -418,  -418,  -418,  -418,  -418,  -418,  -418,  -393,
+  -418,  -397,  -235,  -418,  -237,  -238,  -418,  -245,  -418,  -418,
+  -418,  -249,  -418,  -256,  -418,  -418,  -418,  -262,  -418,  -270,
+  -272,  -418,  -274,  -275,  -276,  -277,  -290,  -418,  -418,  -418,
+  -250,  -418,  -315,  -329,  -418,  -352,  -418,  -359,  -418,  -361,
+  -362,  -363,  -364,  -418,  -372,  -418,  -418,  -418,  -418,  -418,
+  -400,  -401,  -402,  -418,  -418,   -11,  -418,  -173,  -174,  -175,
+  -418,  -418,  -418,   -16,   -17,  -418,   -31,   -32,   -33,   -35,
+   -36,   -38,   -39,   -41,   -42,   -43,   -44,   -46,   -47,   -49,
+   -51,   -53,   -55,   -57,  -418,  -187,  -418,  -418,  -151,  -153,
+  -154,  -158,  -418,  -418,  -418,  -418,  -418,  -418,  -103,  -110,
+  -418,  -418,  -418,  -418,  -418,  -418,  -225,  -418,  -418,  -229,
+  -418,  -418,  -338,  -418,  -399,  -418,  -418,  -418,  -418,  -418,
+  -418,  -418,  -243,  -246,  -253,  -418,  -418,  -259,  -418,  -418,
+  -418,  -418,  -418,  -294,  -296,  -418,  -418,  -305,  -307,  -418,
+  -418,  -418,  -418,  -418,  -349,  -418,  -418,  -418,  -367,  -418,
+  -373,  -418,  -382,  -418,  -418,  -385,  -418,  -418,   -29,  -176,
+  -418,  -418,  -418,  -405,  -182,  -418,  -178,  -418,   -15,   -21,
+  -418,  -188,  -191,  -189,  -160,  -418,  -418,  -418,  -418,  -418,
+  -121,  -418,  -113,  -418,  -418,  -418,  -418,  -418,  -418,  -232,
+  -418,  -223,  -418,  -388,  -390,  -418,  -396,  -236,  -418,  -241,
+  -257,  -418,  -264,  -271,  -418,  -418,  -278,  -279,  -284,  -418,
+  -418,  -418,  -295,  -418,  -298,  -418,  -418,  -418,  -306,  -418,
+  -418,  -418,  -418,  -418,  -316,  -418,  -319,  -418,  -330,  -331,
+  -418,  -333,  -418,  -343,  -354,  -418,  -418,  -368,  -369,  -371,
+  -418,  -418,  -418,  -418,  -418,  -180,  -418,  -184,  -418,  -177,
+  -183,  -179,   -59,  -164,  -165,  -167,  -168,  -418,  -170,  -418,
+  -115,  -116,  -117,  -418,  -418,  -230,  -418,  -418,  -418,  -418,
+  -418,  -418,  -418,  -273,  -418,  -418,  -418,  -292,  -418,  -293,
+  -418,  -418,  -418,  -304,  -418,  -418,  -418,  -310,  -312,  -418,
+  -325,  -418,  -335,  -418,  -418,  -418,  -418,  -360,  -366,  -374,
+  -418,  -383,  -418,  -403,  -418,  -418,  -181,  -185,  -418,  -111,
+  -418,  -418,  -233,  -418,  -384,  -392,  -239,  -418,  -418,  -280,
+  -281,  -285,  -418,  -418,  -297,  -418,  -418,  -308,  -418,  -418,
+  -418,  -418,  -418,  -418,  -418,  -418,  -348,  -418,  -418,  -418,
+  -418,  -379,  -418,  -418,  -418,  -169,  -226,  -418,  -231,  -258,
+  -418,  -418,  -286,  -418,  -299,  -418,  -302,  -303,  -309,  -311,
+  -418,  -332,  -418,  -334,  -418,  -418,  -418,  -341,  -418,  -418,
+  -343,  -418,  -375,  -376,  -418,  -418,  -418,  -418,  -418,  -282,
+  -283,  -287,  -300,  -418,  -418,  -418,  -418,  -418,  -418,  -418,
+  -418,  -418,  -370,  -418,  -380,  -418,  -418,  -418,  -301,  -418,
+  -418,  -418,  -418,  -339,  -418,  -418,  -342,  -344,  -418,  -418,
+  -418,  -418,  -418,  -227,  -317,  -418,  -320,  -322,  -418,  -336,
+  -340,  -418,  -418,  -418,  -378,  -418,  -418,  -418,  -418,  -418,
+  -418,  -418,  -418,  -417,  -318,  -321,  -323,  -346,  -418,  -345,
+  -377,  -413,  -418,  -418,  -418,  -415,  -418,  -418,  -411,  -412,
+  -418,  -418,  -347,  -418,  -418,  -418,  -416,  -418,  -418,  -414 ]
+   -94,   -95,   -96,   -97,   -98,   -99,  -442,  -101,  -104,  -118,
+  -442,  -442,  -126,  -127,  -128,  -129,  -130,  -131,  -136,  -137,
+  -192,  -193,  -194,  -196,  -442,  -198,  -199,  -200,  -201,  -202,
+  -203,  -204,  -207,  -208,  -209,  -210,  -211,  -235,  -442,  -442,
+  -442,  -442,  -442,  -442,  -442,  -442,  -442,  -442,  -408,  -442,
+  -442,   911,  -442,   -65,   -67,  -442,  -139,  -140,  -442,  -146,
+  -206,  -205,  -442,  -100,  -106,  -442,  -109,   -72,   -73,  -119,
+  -442,  -125,  -442,  -212,  -442,  -215,  -442,  -217,  -442,  -219,
+  -442,  -221,  -222,  -223,  -442,  -442,  -389,  -442,  -442,  -442,
+  -397,  -398,  -442,  -442,  -442,  -442,  -442,  -442,  -442,  -442,
+  -248,  -442,  -255,  -442,  -261,  -251,  -442,  -328,  -442,  -442,
+  -351,  -442,  -401,  -413,  -442,   -62,  -442,  -442,  -138,  -442,
+  -442,  -442,  -147,  -148,  -442,  -102,  -442,  -442,  -132,  -134,
+  -442,  -442,  -442,  -409,  -442,  -442,  -442,  -442,  -442,  -442,
+  -442,  -442,  -442,  -442,  -442,  -442,  -442,  -442,  -442,  -442,
+  -338,  -442,  -245,  -442,  -243,  -442,  -256,  -442,  -252,  -442,
+  -442,  -329,  -442,  -402,  -442,  -442,  -435,   -66,    -2,    -3,
+    -4,    -5,    -6,    -7,    -8,    -9,   -10,  -442,   -12,   -14,
+   -18,  -442,  -442,   -22,   -23,   -24,   -25,   -26,   -27,   -28,
+   -30,   -34,   -37,   -40,   -45,   -48,   -50,   -52,   -54,   -56,
+   -58,   -61,   -68,  -186,  -442,  -442,  -442,  -143,   -63,  -442,
+  -442,  -145,  -150,  -152,  -442,  -156,  -442,  -141,  -149,   -80,
+  -442,  -442,  -107,  -442,  -442,  -123,  -442,  -442,  -442,  -197,
+  -442,  -213,  -442,  -225,  -442,  -442,  -442,  -442,  -229,  -442,
+  -292,  -442,  -442,  -390,  -442,  -392,  -442,  -394,  -442,  -407,
+  -442,  -442,  -442,  -442,  -442,  -442,  -442,  -241,  -442,  -442,
+  -442,  -442,  -249,  -442,  -442,  -262,  -264,  -442,  -266,  -267,
+  -268,  -269,  -270,  -442,  -289,  -290,  -442,  -442,  -442,  -442,
+  -314,  -315,  -253,  -325,  -327,  -442,  -352,  -354,  -442,  -356,
+  -357,  -358,  -359,  -367,  -442,  -442,  -442,  -442,  -384,  -442,
+  -410,  -411,  -412,  -442,  -442,  -442,   -13,  -442,  -442,   -60,
+  -172,  -442,  -442,  -442,   -19,  -442,   -20,  -442,  -442,  -442,
+  -442,  -442,  -442,  -442,  -442,  -442,  -442,  -442,  -442,  -442,
+  -442,  -442,  -442,  -442,  -442,  -442,  -442,  -190,  -442,  -142,
+   -64,  -144,  -442,  -157,  -155,  -442,  -159,  -161,  -162,  -163,
+  -442,  -442,  -166,  -442,  -442,  -171,  -442,  -105,  -108,  -442,
+  -120,  -122,  -442,  -112,  -114,  -442,  -442,  -133,  -135,  -124,
+  -214,  -442,  -442,  -442,  -216,  -218,  -220,  -442,  -442,  -442,
+  -442,  -442,  -442,  -442,  -442,  -396,  -442,  -400,  -236,  -442,
+  -238,  -239,  -442,  -246,  -442,  -442,  -442,  -250,  -442,  -257,
+  -442,  -442,  -442,  -263,  -442,  -271,  -273,  -442,  -275,  -276,
+  -277,  -278,  -291,  -442,  -442,  -442,  -251,  -442,  -316,  -330,
+  -442,  -353,  -442,  -360,  -442,  -363,  -364,  -365,  -366,  -442,
+  -374,  -442,  -442,  -442,  -442,  -442,  -403,  -404,  -405,  -442,
+  -442,  -421,  -442,   -11,  -442,  -173,  -174,  -175,  -442,  -442,
+  -442,   -16,   -17,  -442,   -31,   -32,   -33,   -35,   -36,   -38,
+   -39,   -41,   -42,   -43,   -44,   -46,   -47,   -49,   -51,   -53,
+   -55,   -57,  -442,  -187,  -442,  -442,  -151,  -153,  -154,  -158,
+  -442,  -442,  -442,  -442,  -442,  -442,  -103,  -110,  -442,  -442,
+  -442,  -442,  -442,  -442,  -226,  -442,  -442,  -230,  -442,  -442,
+  -339,  -442,  -402,  -442,  -442,  -442,  -442,  -442,  -442,  -442,
+  -244,  -247,  -254,  -442,  -442,  -260,  -442,  -442,  -442,  -442,
+  -442,  -295,  -297,  -442,  -442,  -306,  -308,  -442,  -442,  -442,
+  -442,  -442,  -350,  -442,  -442,  -442,  -442,  -369,  -442,  -375,
+  -442,  -385,  -442,  -442,  -388,  -442,  -442,  -442,  -442,   -29,
+  -176,  -442,  -442,  -442,  -408,  -182,  -442,  -178,  -442,   -15,
+   -21,  -442,  -188,  -191,  -189,  -160,  -442,  -442,  -442,  -442,
+  -442,  -121,  -442,  -113,  -442,  -442,  -442,  -442,  -442,  -442,
+  -233,  -442,  -224,  -442,  -391,  -393,  -442,  -399,  -237,  -442,
+  -242,  -258,  -442,  -265,  -272,  -442,  -442,  -279,  -280,  -285,
+  -442,  -442,  -442,  -296,  -442,  -299,  -442,  -442,  -442,  -307,
+  -442,  -442,  -442,  -442,  -442,  -317,  -442,  -320,  -442,  -331,
+  -332,  -442,  -334,  -442,  -344,  -355,  -361,  -442,  -442,  -370,
+  -371,  -373,  -442,  -442,  -442,  -442,  -442,  -422,  -442,  -442,
+  -180,  -442,  -184,  -442,  -177,  -183,  -179,   -59,  -164,  -165,
+  -167,  -168,  -442,  -170,  -442,  -115,  -116,  -117,  -442,  -442,
+  -231,  -442,  -442,  -442,  -442,  -442,  -442,  -442,  -274,  -442,
+  -442,  -442,  -293,  -442,  -294,  -442,  -442,  -442,  -305,  -442,
+  -442,  -442,  -311,  -313,  -442,  -326,  -442,  -336,  -442,  -442,
+  -442,  -442,  -362,  -368,  -376,  -442,  -386,  -442,  -406,  -442,
+  -442,  -442,  -423,  -425,  -426,  -427,  -428,  -429,  -430,  -442,
+  -436,  -437,  -442,  -442,  -181,  -185,  -442,  -111,  -442,  -442,
+  -234,  -442,  -387,  -395,  -240,  -442,  -442,  -281,  -282,  -286,
+  -442,  -442,  -298,  -442,  -442,  -309,  -442,  -442,  -442,  -442,
+  -442,  -442,  -442,  -442,  -349,  -442,  -442,  -442,  -442,  -382,
+  -442,  -442,  -442,  -442,  -442,  -432,  -433,  -438,  -439,  -440,
+  -441,  -169,  -227,  -442,  -232,  -259,  -442,  -442,  -287,  -442,
+  -300,  -442,  -303,  -304,  -310,  -312,  -442,  -333,  -442,  -335,
+  -442,  -442,  -442,  -342,  -442,  -442,  -344,  -442,  -377,  -378,
+  -379,  -442,  -442,  -442,  -442,  -424,  -431,  -442,  -442,  -283,
+  -284,  -288,  -301,  -442,  -442,  -442,  -442,  -442,  -442,  -442,
+  -442,  -442,  -372,  -442,  -383,  -442,  -442,  -434,  -442,  -302,
+  -442,  -442,  -442,  -442,  -340,  -442,  -442,  -343,  -345,  -442,
+  -442,  -442,  -442,  -442,  -228,  -318,  -442,  -321,  -323,  -442,
+  -337,  -341,  -442,  -442,  -442,  -381,  -442,  -442,  -442,  -442,
+  -442,  -442,  -442,  -442,  -420,  -319,  -322,  -324,  -347,  -442,
+  -346,  -380,  -416,  -442,  -442,  -442,  -418,  -442,  -442,  -414,
+  -415,  -442,  -442,  -348,  -442,  -442,  -442,  -419,  -442,  -442,
+  -417 ]
 racc_goto_table = [
+,   135,    82,   227,   260,   176,   149,   333,   231,   233,
+,   258,   100,   150,    97,   318,   235,   151,   563,   383,
+,   178,    50,   166,   324,   261,   523,   461,   525,   526,
+,   370,     9,     8,   338,   429,   263,   638,   561,    81,
+,   598,   311,   382,   125,   467,   266,   332,   547,   269,
+,   702,   290,   246,   154,   543,   745,   615,   766,   642,
+,   483,   484,   485,   486,   137,   234,   487,   488,   310,
+,   544,   548,   645,   644,   243,   479,   480,   481,   482,
+,   447,   557,   455,   148,   559,   544,   750,   361,   709,
+,   783,   268,   273,   191,   326,   364,   327,   854,   859,
+,   233,   852,     2,   340,   489,   490,   491,   492,   493,
+,   367,    91,   253,   392,   808,    92,   245,    93,   386,
+,   391,   419,   179,   145,   499,   369,   248,   569,   360,
+,   254,   256,   257,   262,   541,   318,   180,   127,   286,
+,    82,   129,   288,   333,   380,   423,   811,   131,   289,
+,   249,   608,   773,   428,   628,   255,   427,   234,   622,
+,   729,   785,   445,   333,   437,   686,   542,   623,   476,
+,   478,   472,   765,   647,   544,   334,   382,   192,   548,
+,   572,   292,   546,   475,   629,   552,   313,     9,     8,
+,   634,   635,   825,   136,   187,   494,   553,   723,   443,
+,   701,   287,   771,   497,   nil,   nil,   nil,   416,   nil,
+   nil,   nil,     9,     8,   nil,   nil,   nil,   nil,   nil,   248,
+,   nil,   nil,   nil,   nil,   436,   nil,   679,   233,   nil,
+,   405,   nil,   712,   782,   nil,   nil,   nil,   368,   nil,
+   nil,   nil,   nil,   249,   249,   516,   522,   454,   522,   522,
+   nil,   nil,   nil,   nil,   nil,   463,   nil,   nil,   418,   518,
+,   nil,   424,   nil,   nil,   nil,   nil,   nil,   nil,   nil,
+   nil,   nil,   nil,   519,   nil,   nil,   nil,   nil,   nil,   501,
+   nil,   417,   613,   nil,    53,   234,   425,   292,   nil,   527,
+   nil,   nil,   584,   592,   568,   nil,   511,   nil,   462,   nil,
+   nil,   nil,   nil,   nil,   nil,   461,   421,   nil,   313,   nil,
+,   333,   333,   334,   531,   nil,     9,     8,   333,   333,
+,   nil,   458,   734,   nil,   nil,   nil,   737,   nil,   nil,
+   nil,   nil,   233,   577,   nil,   nil,   nil,   nil,   538,   575,
+   nil,   nil,   587,   588,   589,   nil,   nil,   nil,   713,   nil,
+,   594,   595,   nil,   248,   582,   555,   nil,   602,   nil,
+   nil,   nil,   669,   nil,   820,   500,   nil,   nil,   nil,   nil,
+   nil,   nil,   522,   nil,   nil,   nil,   nil,   nil,   249,   nil,
+   nil,   318,   nil,   nil,   nil,   662,   nil,   nil,   nil,   234,
+   nil,   567,   nil,   nil,   841,   nil,   468,   nil,   nil,   nil,
+,   137,   232,    84,   236,   265,   263,   161,   179,   195,
+,   152,   240,   572,   238,   102,   153,    99,   154,   323,
+,   266,   389,   329,   531,   468,   533,   534,   467,   393,
+,   181,   425,   435,    50,   376,   453,   344,   268,   570,
+,   552,   556,   649,   650,   609,   141,   732,   127,    83,
+,   388,   251,   274,   276,   338,   552,   475,   316,   717,
+,   725,   295,   555,   157,   551,   802,   626,   491,   492,
+,   494,   239,   487,   488,   495,   496,   489,   490,   248,
+,   452,   566,   480,   657,   461,   568,   151,   778,   367,
+,   819,   273,   339,   278,   194,   331,   332,   895,   900,
+,   471,   577,   370,     1,   784,     2,   502,   238,   346,
+,   498,   398,   499,   500,   501,    82,   786,   373,    93,
+,   250,    95,   392,   258,   601,   182,   397,   148,   507,
+,   580,   366,   253,    51,   849,    52,   259,   261,   262,
+,   549,   323,   183,   339,    84,   386,   552,   339,   129,
+,   556,   619,   131,   254,   293,   429,   133,   294,   260,
+,   825,   434,   552,   757,   443,   239,   701,   339,   433,
+,   633,   639,   484,   485,   486,   852,   821,   809,   822,
+,   451,   801,    54,   340,   297,   388,   659,   554,     9,
+,   197,   640,   483,   560,   583,   645,   646,   866,     8,
+,   190,   561,   449,   716,   847,   807,   808,   505,   751,
+,   315,   422,     9,   655,   nil,   nil,   292,   nil,   nil,
+   nil,   nil,   nil,     8,   nil,   nil,   nil,   253,   253,   442,
+,   nil,   nil,   nil,   447,   nil,   238,   nil,   nil,   nil,
+,   411,   nil,   524,   374,   nil,   nil,   nil,   254,   254,
+,   460,   530,   530,   nil,   598,   599,   600,   526,   469,
+,   820,   nil,   604,   605,   606,   424,   476,   nil,   nil,
+,   nil,   nil,   nil,   nil,   nil,   nil,   nil,   527,   nil,
+,   nil,   656,   624,   nil,   nil,   nil,   423,   nil,    54,
+   nil,   431,   297,   nil,   239,   603,   535,   519,   nil,   595,
+,   nil,   762,   nil,   nil,   nil,   765,   nil,   nil,   468,
+   nil,   nil,   467,   318,   nil,   nil,   339,   339,   339,     9,
+   nil,   nil,   340,   427,   339,   339,   339,   464,   539,     8,
+   nil,   nil,   nil,   nil,   588,   nil,   nil,   578,   nil,   546,
+,   nil,   238,   nil,   nil,   nil,   nil,   nil,   nil,   nil,
+   nil,   nil,   nil,   nil,   nil,   nil,   nil,   563,   nil,   593,
+,   nil,   613,   253,   nil,   nil,   nil,   nil,   nil,   nil,
+   nil,   684,   508,   nil,   nil,   nil,   nil,   nil,   530,   nil,
+   nil,   nil,   nil,   nil,   254,   nil,   nil,   nil,   nil,   nil,
+,   nil,   nil,   861,   677,   nil,   576,   nil,   nil,   nil,
+,   nil,   nil,   nil,   nil,   476,   nil,   nil,   nil,   nil,
    nil,   nil,   nil,   nil,   nil,   nil,   nil,   nil,   nil,   nil,
+   nil,   nil,   nil,   nil,   nil,   nil,   179,   564,   812,   nil,
+   nil,   nil,   535,   nil,   nil,   nil,   nil,   nil,   653,   nil,
+,   586,   656,   233,   nil,   577,   545,   549,   nil,   nil,
+,   nil,   nil,   nil,   nil,   nil,   611,   522,   nil,   nil,
+   nil,   545,   nil,   nil,   nil,   nil,   nil,   nil,   nil,   nil,
+   nil,   nil,   nil,   182,   882,   573,   nil,   nil,   nil,   543,
+,   nil,   nil,   nil,   nil,   nil,   671,   596,   597,   588,
+   nil,   nil,   553,   557,   673,   nil,   238,   nil,   763,   622,
+,   nil,   766,   nil,   610,   nil,   530,   553,   nil,   nil,
    nil,   nil,   nil,   nil,   nil,   nil,   nil,   nil,   nil,   nil,
+   nil,   nil,   nil,   nil,   652,   nil,   nil,   631,   nil,   nil,
+   nil,   687,   nil,   nil,   nil,   591,   nil,   nil,   nil,   nil,
+,   nil,   nil,   nil,   nil,   nil,   333,   nil,   nil,   nil,
+,   nil,   nil,   nil,   nil,   nil,   nil,   nil,   nil,   nil,
+   nil,   nil,   nil,   nil,   nil,   nil,   nil,   nil,   664,   nil,
+   nil,   nil,   nil,   nil,   642,   702,   nil,   nil,   nil,   nil,
+   nil,   nil,   nil,   nil,   nil,   nil,   602,   nil,   nil,   nil,
+   nil,   nil,   nil,   nil,   239,   nil,   nil,   nil,   nil,   339,
+   nil,   nil,   nil,   339,   nil,   nil,   nil,   nil,   nil,   nil,
    nil,   nil,   nil,   nil,   nil,   nil,   nil,   nil,   nil,   nil,
+   nil,   nil,   nil,   nil,   nil,   nil,   nil,   nil,   735,   718,
+   nil,   nil,   738,   690,   730,   nil,   nil,   nil,   nil,   694,
+,   nil,   nil,   nil,   549,   nil,   nil,   688,   nil,   nil,
+   nil,   640,   nil,   nil,   nil,   545,   nil,   nil,   nil,   nil,
+   nil,   740,   nil,   nil,   747,   nil,   746,   nil,   nil,   nil,
+   nil,   nil,   nil,   nil,   nil,   nil,   753,   nil,   nil,   756,
+,   nil,   nil,   nil,   nil,   681,   nil,   nil,   nil,   nil,
+   nil,   nil,   nil,   731,   nil,   nil,   nil,   746,   nil,   705,
+   nil,   758,   nil,   nil,   nil,   709,   nil,   nil,   553,   nil,
+   nil,   nil,   557,   837,   nil,   nil,   nil,   703,   nil,   651,
+   nil,   nil,   nil,   nil,   553,   nil,   nil,   nil,   nil,   768,
+   nil,   nil,   nil,   nil,   774,   775,   nil,   nil,   nil,   nil,
+,   nil,   nil,   nil,   781,   nil,   nil,   nil,   nil,   nil,
+   nil,   nil,   nil,   nil,   nil,   nil,   nil,   nil,   nil,   696,
+   nil,   873,   nil,   792,   nil,   nil,   nil,   nil,   nil,   nil,
+   nil,   464,   nil,   nil,   339,   nil,   nil,   750,   610,   nil,
+   nil,   769,   nil,   nil,   nil,   nil,   nil,   nil,   nil,   nil,
+   nil,   894,   nil,   nil,   nil,   nil,   nil,   nil,   nil,   nil,
+   nil,   339,   nil,   nil,   nil,   nil,   nil,   777,   nil,   nil,
+   nil,   829,   830,   810,   nil,   nil,   nil,   nil,   nil,   nil,
+   nil,   834,   339,   nil,   nil,   nil,   nil,   nil,   nil,   nil,
+   nil,   nil,   nil,   nil,   nil,   nil,   530,   nil,   845,   nil,
    nil,   nil,   nil,   nil,   nil,   nil,   nil,   nil,   nil,   nil,
+,   nil,   nil,   333,   nil,   nil,   nil,   nil,   nil,   nil,
+   nil,   741,   797,   nil,   nil,   nil,   nil,   nil,   nil,   789,
+,   nil,   nil,   333,   774,   nil,   nil,   nil,   nil,   nil,
+   nil,   nil,   794,   749,   nil,   814,   nil,   nil,   522,   nil,
+   nil,   nil,   nil,   nil,   nil,   nil,   nil,   nil,   805,   nil,
+   nil,   nil,   nil,   333,   nil,   832,   nil,   746,   nil,   nil,
+   nil,   nil,   nil,   nil,   nil,   nil,   823,   nil,   nil,   nil,
+   nil,   nil,   nil,   nil,   nil,   nil,   nil,   nil,   nil,   727,
+   nil,   787,   nil,   835,   nil,   853,   nil,   nil,   nil,   nil,
+,   nil,   339,   nil,   nil,   755,   nil,   nil,   nil,   nil,
+   nil,   nil,   nil,   864,   nil,   nil,   nil,   nil,   824,   nil,
+   nil,   nil,   nil,   nil,   nil,   nil,   nil,   876,   nil,   nil,
    nil,   nil,   nil,   nil,   nil,   nil,   nil,   nil,   nil,   nil,
    nil,   nil,   nil,   nil,   nil,   nil,   nil,   nil,   nil,   nil,
    nil,   nil,   nil,   nil,   nil,   nil,   nil,   nil,   nil,   nil,
+   nil,   nil,   nil,   864,   nil,   nil,   815,   nil,   nil,   868,
+   nil,   nil,   nil,   nil,   nil,   nil,   nil,   905,   nil,   nil,
+   nil,   nil,   nil,   909,   nil,   856,   nil,   nil,   nil,   nil,
+   nil,   nil,   nil,   nil,   nil,   nil,   651 ]
+racc_goto_check = [
+,     4,    32,    31,    23,     5,    85,    47,    83,   167,
+,    29,    55,   153,    28,    68,    53,    25,     4,   101,
+,    23,    44,   157,    84,    74,    84,    84,    76,    48,
+,    89,     6,   106,    64,    60,   145,    10,    86,   154,
+,    24,    24,   129,   130,    88,   156,   170,    25,    30,
+,    43,    40,    83,    83,    11,    24,    61,   138,   133,
+,   152,    98,   118,    51,   113,   116,   107,    14,    14,
+,    14,    29,    12,    12,    15,    15,    13,    13,    53,
+,   140,   146,     6,   107,   147,   148,    31,   149,    32,
+,   151,   158,    22,   159,   161,   162,   163,   164,   165,
+,   168,   169,    28,     1,   173,     2,     6,    28,     8,
+,    17,    23,    18,    19,    20,    26,   170,    27,    37,
+,    41,    42,    46,    51,    49,    31,    52,    54,    57,
+,    62,    63,    25,    65,   116,    66,    67,    80,    81,
+,    87,   101,    90,    22,    31,    40,    24,    22,    91,
+,    24,    84,    93,    45,    94,    95,    96,    97,    45,
+,   170,   100,    24,   108,   110,    29,   111,    22,    98,
+,   113,   118,    10,    10,    10,   135,   152,   133,   152,
+,   138,   115,    45,    25,    45,    43,   113,   117,    34,
+,    30,   119,    11,   121,    61,   122,   123,   124,    33,
+,   126,   127,   128,   131,   170,   132,   134,     5,    88,
+,   137,     4,    34,   139,   nil,   nil,    64,   nil,   nil,
+   nil,   nil,   nil,    33,   nil,   nil,   nil,    25,    25,     4,
+,   nil,   nil,   nil,     4,   nil,    28,   nil,   nil,   nil,
+,   156,   nil,    85,    31,   nil,   nil,   nil,    45,    45,
+,     4,     5,     5,   nil,     6,     6,     6,    23,     4,
+,   130,   nil,     6,     6,     6,    25,    53,   nil,   nil,
+,   nil,   nil,   nil,   nil,   nil,   nil,   nil,    86,   nil,
+,   nil,   145,   106,   nil,   nil,   nil,    31,   nil,    45,
+   nil,    45,    45,   nil,    29,    48,    83,    47,   nil,    60,
+,   nil,    24,   nil,   nil,   nil,    24,   nil,   nil,    74,
+   nil,   nil,    76,    45,   nil,   nil,    22,    22,    22,    34,
+   nil,   nil,    25,    64,    22,    22,    22,    45,    89,    33,
+   nil,   nil,   nil,   nil,    23,   nil,   nil,   167,   nil,    47,
+,   nil,    28,   nil,   nil,   nil,   nil,   nil,   nil,   nil,
+   nil,   nil,   nil,   nil,   nil,   nil,   nil,    47,   nil,    32,
+,   nil,   157,    25,   nil,   nil,   nil,   nil,   nil,   nil,
+   nil,    44,    31,   nil,   nil,   nil,   nil,   nil,     5,   nil,
+   nil,   nil,   nil,   nil,    45,   nil,   nil,   nil,   nil,   nil,
+,   nil,   nil,   153,    22,   nil,     4,   nil,   nil,   nil,
+,   nil,   nil,   nil,   nil,    53,   nil,   nil,   nil,   nil,
    nil,   nil,   nil,   nil,   nil,   nil,   nil,   nil,   nil,   nil,
+   nil,   nil,   nil,   nil,   nil,   nil,   nil,   nil,   640 ]
+racc_goto_check = [
+,     4,    31,    32,     5,    82,    29,    22,    23,    28,
+,    84,    67,    53,    25,   100,    55,     4,   152,    44,
+,    88,    64,    47,   156,    23,    83,    75,    83,    83,
+,    60,    34,    33,    10,   105,    85,   128,   153,    30,
+,    87,   137,    43,    25,    61,    82,    11,   117,    82,
+,   132,    97,    40,    51,   112,   134,   106,   115,   133,
+,    14,    14,    14,    14,   135,    29,    15,    15,   136,
+,    24,    24,   106,   138,    53,    12,    12,    13,    13,
+,   144,   145,   146,    31,   147,    24,   148,    32,   149,
+,   150,   157,   158,   160,   161,    28,   162,   163,   164,
+,    28,   165,     2,     8,    16,    17,    18,    19,    20,
+,    27,    37,    51,    23,   115,    39,    41,    42,    46,
+,    52,     6,    31,    54,    57,    59,    25,    62,    63,
+,    66,    79,    80,    81,    86,   100,    89,    90,    91,
+,    31,    92,    93,    22,    40,    94,   134,    95,    96,
+,    45,    83,   132,    99,   117,    45,    97,    29,   112,
+,   107,   151,   137,    22,   109,   110,   111,   113,    10,
+,    10,     6,   114,   112,    24,    25,    43,    30,    24,
+,    61,    45,   116,    11,   118,   120,    45,    34,    33,
+,   121,   122,   123,   124,   125,     6,   126,    87,   127,
+,   130,    64,   131,     5,   nil,   nil,   nil,     4,   nil,
+   nil,   nil,    34,    33,   nil,   nil,   nil,   nil,   nil,    25,
+,   nil,   nil,   nil,   nil,     4,   nil,    83,    28,   nil,
+,   155,   nil,   153,   128,   nil,   nil,   nil,    31,   nil,
+   nil,   nil,   nil,    45,    45,    84,     5,     4,     5,     5,
+   nil,   nil,   nil,   nil,   nil,     4,   nil,   nil,    25,    23,
+,   nil,    25,   nil,   nil,   nil,   nil,   nil,   nil,   nil,
+   nil,   nil,   nil,    85,   nil,   nil,   nil,   nil,   nil,    47,
+   nil,    31,   105,   nil,    45,    29,    45,    45,   nil,    82,
+   nil,   nil,    60,    48,    10,   nil,    47,   nil,    73,   nil,
+   nil,   nil,   nil,   nil,   nil,    75,    64,   nil,    45,   nil,
+,    22,    22,    25,    88,   nil,    34,    33,    22,    22,
+,   nil,    45,    24,   nil,   nil,   nil,    24,   nil,   nil,
+   nil,   nil,    28,    23,   nil,   nil,   nil,   nil,    47,    55,
+   nil,   nil,     6,     6,     6,   nil,   nil,   nil,    73,   nil,
+,     6,     6,   nil,    25,    32,    47,   nil,   156,   nil,
+   nil,   nil,    44,   nil,   152,    31,   nil,   nil,   nil,   nil,
+   nil,   nil,     5,   nil,   nil,   nil,   nil,   nil,    45,   nil,
+   nil,   100,   nil,   nil,   nil,    22,   nil,   nil,   nil,    29,
+   nil,     4,   nil,   nil,   152,   nil,    53,   nil,   nil,   nil,
+   nil,   nil,   nil,    31,   153,    68,   nil,   nil,   nil,    31,
+,   nil,   nil,   nil,   nil,   nil,    23,     4,     4,    23,
+   nil,   nil,    45,    45,    55,   nil,    28,   nil,     6,    47,
+,   nil,     6,   nil,     4,   nil,     5,    45,   nil,   nil,
    nil,   nil,   nil,   nil,   nil,   nil,   nil,   nil,   nil,   nil,
    nil,   nil,   nil,   nil,   nil,   nil,    31,    67,    83,   nil,
    nil,   nil,    31,   nil,   nil,   nil,   nil,   nil,    23,   nil,
 ,     4,    23,    28,   nil,    23,    45,    45,   nil,   nil,
 ,   nil,   nil,   nil,   nil,   nil,    47,     5,   nil,   nil,
    nil,    45,   nil,   nil,   nil,   nil,   nil,   nil,   nil,   nil,
+   nil,   nil,   nil,   nil,   nil,   nil,   nil,   nil,    47,   nil,
+   nil,   nil,   nil,   nil,     4,    23,   nil,   nil,   nil,   nil,
+   nil,   nil,   nil,   nil,   nil,   nil,    25,   nil,   nil,   nil,
+   nil,   nil,   nil,   nil,    29,   nil,   nil,   nil,   nil,    22,
+   nil,   nil,   nil,    22,   nil,   nil,   nil,   nil,   nil,   nil,
    nil,   nil,   nil,   nil,   nil,   nil,   nil,   nil,   nil,   nil,
+   nil,   nil,   nil,   nil,    47,   nil,   nil,     4,   nil,   nil,
+   nil,    23,   nil,   nil,   nil,    25,   nil,   nil,   nil,   nil,
+,   nil,   nil,   nil,   nil,   nil,    22,   nil,   nil,   nil,
+,   nil,   nil,   nil,   nil,   nil,   nil,   nil,   nil,   nil,
+   nil,   nil,   nil,   167,   nil,   nil,   nil,    23,   nil,    47,
+   nil,    85,   nil,   nil,   nil,    47,   nil,   nil,    45,   nil,
+   nil,   nil,    45,     6,   nil,   nil,   nil,     4,   nil,    45,
+   nil,   nil,   nil,   nil,    45,   nil,   nil,   nil,   nil,    23,
+   nil,   nil,   nil,   nil,    23,    32,   nil,   nil,   nil,   nil,
+,   nil,   nil,   nil,    23,   nil,   nil,   nil,   nil,   nil,
+   nil,   nil,   nil,   nil,   nil,   nil,   nil,   nil,   nil,    25,
+   nil,     6,   nil,    32,   nil,   nil,   nil,   nil,   nil,   nil,
+   nil,    45,   nil,   nil,    22,   nil,   nil,     4,     4,   nil,
+   nil,    47,   nil,   nil,   nil,   nil,   nil,   nil,   nil,   nil,
+   nil,     6,   nil,   nil,   nil,   nil,   nil,   nil,   nil,   nil,
+   nil,    22,   nil,   nil,   nil,   nil,   nil,     4,   nil,   nil,
+   nil,    32,    32,    83,   nil,   nil,   nil,   nil,   nil,   nil,
+   nil,    23,    22,   nil,   nil,   nil,   nil,   nil,   nil,   nil,
+   nil,   nil,   nil,   nil,   nil,   nil,     5,   nil,    23,   nil,
    nil,   nil,   nil,   nil,   nil,   nil,   nil,   nil,   nil,   nil,
+   nil,   nil,   nil,   nil,   nil,   nil,   nil,   nil,     6,    23,
+   nil,   nil,     6,    47,    84,   nil,   nil,   nil,   nil,    47,
+,   nil,   nil,   nil,    45,   nil,   nil,     4,   nil,   nil,
+   nil,    45,   nil,   nil,   nil,    45,   nil,   nil,   nil,   nil,
+   nil,    23,   nil,   nil,    32,   nil,    23,   nil,   nil,   nil,
+   nil,   nil,   nil,   nil,   nil,   nil,    23,   nil,   nil,    32,
+,   nil,   nil,   nil,   nil,    25,   nil,   nil,   nil,   nil,
+   nil,   nil,   nil,   nil,   nil,   nil,   nil,   nil,   nil,   nil,
+,   nil,   nil,    22,   nil,   nil,   nil,   nil,   nil,   nil,
+   nil,    47,     6,   nil,   nil,   nil,   nil,   nil,   nil,    32,
+,   nil,   nil,    22,    82,   nil,   nil,   nil,   nil,   nil,
+   nil,   nil,    23,     4,   nil,     6,   nil,   nil,     5,   nil,
+   nil,   nil,   nil,   nil,   nil,   nil,   nil,   nil,    23,   nil,
+   nil,   nil,   nil,    22,   nil,     6,   nil,    23,   nil,   nil,
+   nil,   nil,   nil,   nil,   nil,   nil,    32,   nil,   nil,   nil,
+   nil,   nil,   nil,   nil,   nil,   nil,   nil,   nil,   nil,    31,
+   nil,     4,   nil,    23,   nil,     6,   nil,   nil,   nil,   nil,
+,   nil,    22,   nil,   nil,    31,   nil,   nil,   nil,   nil,
+   nil,   nil,   nil,    32,   nil,   nil,   nil,   nil,     4,   nil,
+   nil,   nil,   nil,   nil,   nil,   nil,   nil,    23,   nil,   nil,
    nil,   nil,   nil,   nil,   nil,   nil,   nil,   nil,   nil,   nil,
    nil,   nil,   nil,   nil,   nil,   nil,   nil,   nil,   nil,   nil,
    nil,   nil,   nil,   nil,   nil,   nil,   nil,   nil,   nil,   nil,
+   nil,   nil,   nil,    23,   nil,   nil,     4,   nil,   nil,    23,
+   nil,   nil,   nil,   nil,   nil,   nil,   nil,    23,   nil,   nil,
+   nil,   nil,   nil,    23,   nil,     4,   nil,   nil,   nil,   nil,
+   nil,   nil,   nil,   nil,   nil,   nil,    45 ]
+racc_goto_pointer = [
+   nil,   104,   106,   nil,   -74,  -160,  -258,   nil,  -103,   nil,
+  -174,  -152,  -277,  -275,  -286,  -283,  -250,  -250,  -249,  -249,
+  -249,   nil,  -197,  -145,  -403,   -23,   112,  -126,  -136,   -78,
+,    -1,  -145,    38,    28,   nil,   nil,    83,   nil,    82,
+  -104,   -34,    84,  -200,  -231,    -2,  -131,   -95,  -225,  -393,
+   nil,   -36,  -129,   -73,    43,  -138,   nil,  -243,   nil,  -116,
+  -211,  -283,  -345,  -102,    32,   132,   134,   -24,   -39,   nil,
+   nil,   nil,   nil,   nil,  -304,   nil,  -301,   nil,   nil,   nil,
+   -24,   -25,   -27,  -118,  -386,  -158,  -129,  -302,  -483,   -96,
+,    77,   -35,    80,   -31,  -137,    83,   -29,  -125,  -386,
+  -135,  -173,   nil,   nil,   nil,   nil,  -264,  -481,  -535,   nil,
+  -138,  -463,  -274,  -379,  -373,  -582,  -698,  -257,  -382,  -365,
+   nil,  -254,  -364,  -363,  -653,   125,    63,  -247,  -110,  -518,
+  -517,  -447,  -563,  -592,  -562,  -659,   134,    19,  -134,  -349,
+  -237,   nil,   nil,   nil,   nil,  -282,  -377,  -240,  -375,  -636,
+  -570,  -687,  -601,  -450,  -423,   nil,   -31,  -170,   -78,   -79,
+   nil,   -48,   -98,   -97,  -794,  -796,  -784,  -135,  -234,  -370,
+  -622,   nil,   nil,  -634 ]
+racc_goto_default = [
+   nil,   nil,   nil,   209,   198,   206,   337,   210,   219,   211,
+,   nil,   221,   222,   223,   224,   225,   226,   227,   228,
+,   230,   231,   233,    67,     4,   nil,   245,    39,    40,
+   nil,   391,   nil,    97,    98,    11,    12,    37,    36,   nil,
+   nil,   nil,   nil,   252,   nil,   246,   nil,   nil,   nil,   390,
+,   nil,   158,    85,    86,   nil,   242,   243,   244,   nil,
+   nil,   nil,   477,   nil,   nil,   nil,   nil,    53,   nil,    55,
+,    57,    58,    59,    60,    61,    62,    63,    64,    65,
+,   nil,   nil,   nil,   nil,   628,   nil,   269,   nil,   nil,
+   nil,   nil,   nil,   nil,   nil,   nil,   nil,   nil,   nil,   296,
+   nil,   298,   299,   300,   301,   302,   nil,   nil,   627,   303,
    nil,   nil,   nil,   nil,   nil,   nil,   nil,   nil,   nil,   nil,
+   nil,   nil,   nil,   nil,   nil,   nil,   nil,   nil,    45 ]
+racc_goto_pointer = [
+   nil,   100,   103,   nil,   -73,  -158,  -163,   nil,  -103,   nil,
+  -172,  -155,  -268,  -268,  -287,  -285,  -249,  -249,  -249,  -249,
+  -249,   nil,  -195,  -138,  -367,   -26,   106,  -128,  -138,   -81,
+,    -2,  -141,    31,    30,   nil,   nil,    76,   nil,    78,
+  -100,   -35,    80,  -203,  -229,    -2,  -130,   -90,  -219,  -390,
+   nil,   -44,  -130,   -74,    41,  -131,   nil,  -241,   nil,  -115,
+  -210,  -289,  -340,  -100,    20,   128,   -27,   -41,   nil,   nil,
+   nil,   nil,   nil,  -304,   nil,  -297,   nil,   nil,   nil,   -27,
+   -28,   -30,  -119,  -378,  -150,  -128,  -302,  -479,  -104,    11,
+,   -43,    70,   -40,  -142,    75,   -35,  -132,  -388,  -138,
+  -174,   nil,   nil,   nil,   nil,  -257,  -483,  -523,   nil,  -133,
+  -453,  -271,  -383,  -377,  -563,  -678,  -256,  -391,  -364,   nil,
+  -256,  -361,  -360,  -617,   120,    59,  -246,  -109,  -516,  -353,
+  -439,  -538,  -589,  -494,  -648,   -10,  -120,  -147,  -481,  -233,
+   nil,   nil,   nil,   nil,  -232,  -371,  -237,  -370,  -622,  -559,
+  -659,  -590,  -439,  -418,   nil,   -36,  -166,   -75,   -77,   nil,
+   -47,   -96,   -94,  -753,  -755,  -741 ]
+racc_goto_default = [
+   nil,   nil,   nil,   204,   193,   201,   331,   205,   214,   206,
+,   nil,   216,   217,   218,   219,   220,   221,   222,   223,
+,   225,   226,   228,    66,     4,   nil,   240,    39,    40,
+   nil,   385,   nil,    95,    96,    11,    12,    37,    36,   nil,
+   nil,   nil,   nil,   247,   nil,   241,   nil,   nil,   nil,   384,
+,   nil,   155,    83,    84,   nil,   237,   238,   239,   nil,
+   nil,   nil,   469,   nil,   nil,   nil,    52,   nil,    54,    55,
+,    57,    58,    59,    60,    61,    62,    63,    64,   101,
+   nil,   nil,   nil,   nil,   617,   nil,   264,   nil,   nil,   nil,
+   nil,   nil,   nil,   nil,   nil,   nil,   nil,   nil,   291,   nil,
+,   294,   295,   296,   297,   nil,   nil,   616,   298,   nil,
+   nil,   nil,   nil,   nil,   nil,   nil,   nil,   nil,   nil,   304,
+   nil,   nil,   nil,   nil,   nil,   nil,   nil,   nil,   nil,   nil,
+   nil,   641,   nil,   772,   nil,   nil,   nil,   nil,   312,   nil,
+,   315,   316,   317,   nil,   nil,   nil,   nil,   nil,   nil,
+   nil,   nil,   321,   nil,   113,   nil,   nil,   114,   nil,   460,
+   nil,   nil,   nil,   nil,   nil,   nil ]
+,   nil,   nil,   nil,   nil,   nil,   nil,   nil,   nil,   nil,
+   nil,   nil,   652,   nil,   653,   nil,   nil,   nil,   nil,   317,
+   nil,   319,   320,   321,   322,   nil,   nil,   nil,   nil,   nil,
+   nil,   nil,   nil,   326,   nil,   115,   nil,   nil,   116,   nil,
+,   nil,   nil,   nil,   nil,   nil,   nil,   733,   735,   nil,
+   nil,   734,   736,   nil ]
 racc_reduce_table = [
 , 0, :racc_error,
+, 141, :_reduce_none,
+, 143, :_reduce_2,
+, 143, :_reduce_3,
+, 143, :_reduce_4,
+, 143, :_reduce_5,
+, 143, :_reduce_6,
+, 143, :_reduce_7,
+, 143, :_reduce_8,
+, 143, :_reduce_9,
+, 143, :_reduce_10,
+, 143, :_reduce_11,
+, 145, :_reduce_none,
+, 145, :_reduce_13,
+, 147, :_reduce_none,
+, 147, :_reduce_15,
+, 147, :_reduce_16,
+, 147, :_reduce_17,
+, 142, :_reduce_none,
+, 144, :_reduce_2,
+, 144, :_reduce_3,
+, 144, :_reduce_4,
+, 144, :_reduce_5,
+, 144, :_reduce_6,
+, 144, :_reduce_7,
+, 144, :_reduce_8,
+, 144, :_reduce_9,
+, 144, :_reduce_10,
+, 144, :_reduce_11,
+, 146, :_reduce_none,
+, 146, :_reduce_13,
 , 148, :_reduce_none,
 , 148, :_reduce_19,
 , 148, :_reduce_20,
 , 148, :_reduce_21,
 , 149, :_reduce_22,
 , 149, :_reduce_23,
 , 149, :_reduce_24,
 , 149, :_reduce_25,
 , 149, :_reduce_26,
 , 149, :_reduce_27,
 , 150, :_reduce_none,
 , 150, :_reduce_29,
 , 152, :_reduce_none,
 , 152, :_reduce_31,
 , 152, :_reduce_32,
 , 152, :_reduce_33,
+, 148, :_reduce_15,
+, 148, :_reduce_16,
+, 148, :_reduce_17,
+, 149, :_reduce_none,
+, 149, :_reduce_19,
+, 149, :_reduce_20,
+, 149, :_reduce_21,
+, 150, :_reduce_22,
+, 150, :_reduce_23,
+, 150, :_reduce_24,
+, 150, :_reduce_25,
+, 150, :_reduce_26,
+, 150, :_reduce_27,
+, 151, :_reduce_none,
+, 151, :_reduce_29,
 , 153, :_reduce_none,
+, 153, :_reduce_35,
+, 153, :_reduce_36,
+, 153, :_reduce_31,
+, 153, :_reduce_32,
+, 153, :_reduce_33,
 , 154, :_reduce_none,
 , 154, :_reduce_38,
 , 154, :_reduce_39,
+, 154, :_reduce_35,
+, 154, :_reduce_36,
 , 155, :_reduce_none,
+, 155, :_reduce_41,
+, 155, :_reduce_42,
+, 155, :_reduce_43,
+, 155, :_reduce_44,
+, 155, :_reduce_38,
+, 155, :_reduce_39,
 , 156, :_reduce_none,
+, 156, :_reduce_46,
+, 156, :_reduce_47,
+, 156, :_reduce_41,
+, 156, :_reduce_42,
+, 156, :_reduce_43,
+, 156, :_reduce_44,
 , 157, :_reduce_none,
+, 157, :_reduce_49,
+, 157, :_reduce_46,
+, 157, :_reduce_47,
 , 158, :_reduce_none,
 , 158, :_reduce_51,
+, 158, :_reduce_49,
 , 159, :_reduce_none,
 , 159, :_reduce_53,
+, 159, :_reduce_51,
 , 160, :_reduce_none,
 , 160, :_reduce_55,
+, 160, :_reduce_53,
 , 161, :_reduce_none,
 , 161, :_reduce_57,
+, 161, :_reduce_55,
 , 162, :_reduce_none,
+, 162, :_reduce_59,
+, 146, :_reduce_60,
+, 163, :_reduce_61,
+, 164, :_reduce_62,
+, 167, :_reduce_none,
+, 167, :_reduce_64,
+, 166, :_reduce_65,
+, 166, :_reduce_66,
+, 170, :_reduce_none,
+, 170, :_reduce_68,
+, 168, :_reduce_69,
+, 168, :_reduce_70,
+, 168, :_reduce_71,
+, 162, :_reduce_57,
+, 163, :_reduce_none,
+, 163, :_reduce_59,
+, 147, :_reduce_60,
+, 164, :_reduce_61,
+, 165, :_reduce_62,
 , 168, :_reduce_none,
+, 168, :_reduce_none,
+, 168, :_reduce_74,
+, 168, :_reduce_none,
+, 168, :_reduce_none,
+, 168, :_reduce_77,
+, 168, :_reduce_78,
+, 168, :_reduce_79,
+, 168, :_reduce_80,
+, 176, :_reduce_81,
+, 176, :_reduce_82,
+, 176, :_reduce_83,
+, 177, :_reduce_84,
+, 177, :_reduce_85,
+, 177, :_reduce_86,
+, 177, :_reduce_87,
+, 177, :_reduce_88,
+, 177, :_reduce_89,
+, 177, :_reduce_90,
+, 177, :_reduce_91,
+, 177, :_reduce_92,
+, 177, :_reduce_93,
+, 177, :_reduce_94,
+, 177, :_reduce_95,
+, 177, :_reduce_96,
+, 177, :_reduce_97,
+, 178, :_reduce_98,
+, 178, :_reduce_99,
+, 175, :_reduce_100,
+, 175, :_reduce_none,
+, 181, :_reduce_102,
+, 173, :_reduce_103,
+, 182, :_reduce_104,
+, 173, :_reduce_105,
+, 173, :_reduce_106,
+, 180, :_reduce_none,
+, 180, :_reduce_none,
+, 179, :_reduce_109,
+, 183, :_reduce_110,
+, 183, :_reduce_111,
+, 186, :_reduce_112,
+, 186, :_reduce_113,
+, 188, :_reduce_114,
+, 188, :_reduce_115,
+, 188, :_reduce_116,
+, 188, :_reduce_117,
+, 165, :_reduce_none,
+, 165, :_reduce_119,
+, 184, :_reduce_120,
+, 184, :_reduce_121,
+, 189, :_reduce_none,
+, 174, :_reduce_none,
+, 174, :_reduce_none,
+, 174, :_reduce_none,
+, 190, :_reduce_126,
+, 190, :_reduce_127,
+, 190, :_reduce_128,
+, 190, :_reduce_129,
+, 190, :_reduce_130,
+, 190, :_reduce_131,
+, 191, :_reduce_none,
+, 191, :_reduce_none,
+, 168, :_reduce_64,
+, 167, :_reduce_65,
+, 167, :_reduce_66,
+, 171, :_reduce_none,
+, 171, :_reduce_68,
+, 169, :_reduce_69,
+, 169, :_reduce_70,
+, 169, :_reduce_71,
+, 169, :_reduce_none,
+, 169, :_reduce_none,
+, 169, :_reduce_74,
+, 169, :_reduce_none,
+, 169, :_reduce_none,
+, 169, :_reduce_77,
+, 169, :_reduce_78,
+, 169, :_reduce_79,
+, 169, :_reduce_80,
+, 177, :_reduce_81,
+, 177, :_reduce_82,
+, 177, :_reduce_83,
+, 178, :_reduce_84,
+, 178, :_reduce_85,
+, 178, :_reduce_86,
+, 178, :_reduce_87,
+, 178, :_reduce_88,
+, 178, :_reduce_89,
+, 178, :_reduce_90,
+, 178, :_reduce_91,
+, 178, :_reduce_92,
+, 178, :_reduce_93,
+, 178, :_reduce_94,
+, 178, :_reduce_95,
+, 178, :_reduce_96,
+, 178, :_reduce_97,
+, 179, :_reduce_98,
+, 179, :_reduce_99,
+, 176, :_reduce_100,
+, 176, :_reduce_none,
+, 182, :_reduce_102,
+, 174, :_reduce_103,
+, 183, :_reduce_104,
+, 174, :_reduce_105,
+, 174, :_reduce_106,
+, 181, :_reduce_none,
+, 181, :_reduce_none,
+, 180, :_reduce_109,
+, 184, :_reduce_110,
+, 184, :_reduce_111,
+, 187, :_reduce_112,
+, 187, :_reduce_113,
+, 189, :_reduce_114,
+, 189, :_reduce_115,
+, 189, :_reduce_116,
+, 189, :_reduce_117,
+, 166, :_reduce_none,
+, 166, :_reduce_119,
+, 185, :_reduce_120,
+, 185, :_reduce_121,
+, 190, :_reduce_none,
+, 175, :_reduce_none,
+, 175, :_reduce_none,
+, 175, :_reduce_none,
+, 191, :_reduce_126,
+, 191, :_reduce_127,
+, 191, :_reduce_128,
+, 191, :_reduce_129,
+, 191, :_reduce_130,
+, 191, :_reduce_131,
 , 192, :_reduce_none,
 , 192, :_reduce_none,
+, 169, :_reduce_136,
+, 169, :_reduce_137,
+, 171, :_reduce_138,
+, 171, :_reduce_none,
+, 194, :_reduce_140,
+, 194, :_reduce_141,
+, 194, :_reduce_142,
+, 194, :_reduce_143,
+, 194, :_reduce_144,
+, 194, :_reduce_145,
+, 193, :_reduce_146,
+, 193, :_reduce_147,
+, 193, :_reduce_148,
+, 193, :_reduce_149,
+, 195, :_reduce_none,
+, 195, :_reduce_none,
+, 196, :_reduce_152,
+, 196, :_reduce_153,
+, 197, :_reduce_154,
+, 197, :_reduce_155,
+, 197, :_reduce_156,
+, 197, :_reduce_157,
+, 198, :_reduce_158,
+, 199, :_reduce_159,
+, 199, :_reduce_160,
+, 200, :_reduce_161,
+, 200, :_reduce_162,
+, 200, :_reduce_163,
+, 200, :_reduce_164,
+, 200, :_reduce_165,
+, 200, :_reduce_166,
+, 200, :_reduce_167,
+, 200, :_reduce_168,
+, 200, :_reduce_169,
+, 200, :_reduce_170,
+, 200, :_reduce_171,
+, 151, :_reduce_none,
+, 151, :_reduce_173,
+, 201, :_reduce_none,
+, 201, :_reduce_none,
+, 201, :_reduce_none,
+, 202, :_reduce_177,
+, 202, :_reduce_178,
+, 202, :_reduce_179,
+, 202, :_reduce_180,
+, 202, :_reduce_181,
+, 202, :_reduce_182,
+, 202, :_reduce_none,
+, 202, :_reduce_184,
+, 202, :_reduce_185,
+, 172, :_reduce_186,
+, 172, :_reduce_187,
+, 172, :_reduce_188,
+, 172, :_reduce_189,
+, 203, :_reduce_190,
+, 203, :_reduce_191,
+, 142, :_reduce_none,
+, 142, :_reduce_none,
+, 142, :_reduce_none,
+, 204, :_reduce_none,
+, 204, :_reduce_196,
+, 206, :_reduce_none,
+, 206, :_reduce_none,
+, 206, :_reduce_none,
+, 206, :_reduce_none,
+, 206, :_reduce_none,
+, 206, :_reduce_none,
+, 206, :_reduce_none,
+, 206, :_reduce_none,
+, 206, :_reduce_none,
+, 206, :_reduce_none,
+, 206, :_reduce_none,
+, 206, :_reduce_none,
+, 206, :_reduce_none,
+, 206, :_reduce_none,
+, 207, :_reduce_211,
+, 207, :_reduce_212,
+, 219, :_reduce_213,
+, 219, :_reduce_214,
+, 219, :_reduce_215,
+, 219, :_reduce_216,
+, 219, :_reduce_217,
+, 219, :_reduce_218,
+, 219, :_reduce_219,
+, 219, :_reduce_220,
+, 219, :_reduce_221,
+, 219, :_reduce_222,
+, 219, :_reduce_223,
+, 220, :_reduce_224,
+, 220, :_reduce_225,
+, 224, :_reduce_226,
+, 224, :_reduce_227,
+, 221, :_reduce_228,
+, 221, :_reduce_229,
+, 225, :_reduce_230,
+, 225, :_reduce_231,
+, 227, :_reduce_232,
+, 227, :_reduce_233,
+, 209, :_reduce_234,
+, 217, :_reduce_235,
+, 217, :_reduce_236,
+, 216, :_reduce_237,
+, 216, :_reduce_238,
+, 218, :_reduce_239,
+, 208, :_reduce_240,
+, 208, :_reduce_241,
+, 229, :_reduce_none,
+, 229, :_reduce_none,
+, 228, :_reduce_244,
+, 228, :_reduce_245,
+, 210, :_reduce_246,
+, 230, :_reduce_247,
+, 193, :_reduce_none,
+, 193, :_reduce_none,
+, 170, :_reduce_136,
+, 170, :_reduce_137,
+, 172, :_reduce_138,
+, 172, :_reduce_none,
+, 195, :_reduce_140,
+, 195, :_reduce_141,
+, 195, :_reduce_142,
+, 195, :_reduce_143,
+, 195, :_reduce_144,
+, 195, :_reduce_145,
+, 194, :_reduce_146,
+, 194, :_reduce_147,
+, 194, :_reduce_148,
+, 194, :_reduce_149,
+, 196, :_reduce_none,
+, 196, :_reduce_none,
+, 197, :_reduce_152,
+, 197, :_reduce_153,
+, 198, :_reduce_154,
+, 198, :_reduce_155,
+, 198, :_reduce_156,
+, 198, :_reduce_157,
+, 199, :_reduce_158,
+, 200, :_reduce_159,
+, 200, :_reduce_160,
+, 201, :_reduce_161,
+, 201, :_reduce_162,
+, 201, :_reduce_163,
+, 201, :_reduce_164,
+, 201, :_reduce_165,
+, 201, :_reduce_166,
+, 201, :_reduce_167,
+, 201, :_reduce_168,
+, 201, :_reduce_169,
+, 201, :_reduce_170,
+, 201, :_reduce_171,
+, 152, :_reduce_none,
+, 152, :_reduce_173,
+, 202, :_reduce_none,
+, 202, :_reduce_none,
+, 202, :_reduce_none,
+, 203, :_reduce_177,
+, 203, :_reduce_178,
+, 203, :_reduce_179,
+, 203, :_reduce_180,
+, 203, :_reduce_181,
+, 203, :_reduce_182,
+, 203, :_reduce_none,
+, 203, :_reduce_184,
+, 203, :_reduce_185,
+, 173, :_reduce_186,
+, 173, :_reduce_187,
+, 173, :_reduce_188,
+, 173, :_reduce_189,
+, 204, :_reduce_190,
+, 204, :_reduce_191,
+, 143, :_reduce_none,
+, 143, :_reduce_none,
+, 143, :_reduce_none,
+, 143, :_reduce_none,
+, 205, :_reduce_none,
+, 205, :_reduce_197,
+, 208, :_reduce_none,
+, 208, :_reduce_none,
+, 208, :_reduce_none,
+, 208, :_reduce_none,
+, 208, :_reduce_none,
+, 208, :_reduce_none,
+, 208, :_reduce_none,
+, 208, :_reduce_none,
+, 208, :_reduce_none,
+, 208, :_reduce_none,
+, 208, :_reduce_none,
+, 208, :_reduce_none,
+, 208, :_reduce_none,
+, 208, :_reduce_none,
+, 209, :_reduce_212,
+, 209, :_reduce_213,
+, 221, :_reduce_214,
+, 221, :_reduce_215,
+, 221, :_reduce_216,
+, 221, :_reduce_217,
+, 221, :_reduce_218,
+, 221, :_reduce_219,
+, 221, :_reduce_220,
+, 221, :_reduce_221,
+, 221, :_reduce_222,
+, 221, :_reduce_223,
+, 221, :_reduce_224,
+, 222, :_reduce_225,
+, 222, :_reduce_226,
+, 226, :_reduce_227,
+, 226, :_reduce_228,
+, 223, :_reduce_229,
+, 223, :_reduce_230,
+, 227, :_reduce_231,
+, 227, :_reduce_232,
+, 229, :_reduce_233,
+, 229, :_reduce_234,
+, 211, :_reduce_235,
+, 219, :_reduce_236,
+, 219, :_reduce_237,
+, 218, :_reduce_238,
+, 218, :_reduce_239,
+, 220, :_reduce_240,
+, 210, :_reduce_241,
+, 210, :_reduce_242,
 , 231, :_reduce_none,
+, 231, :_reduce_none,
+, 144, :_reduce_250,
+, 144, :_reduce_251,
+, 144, :_reduce_252,
+, 211, :_reduce_253,
+, 232, :_reduce_254,
+, 233, :_reduce_255,
+, 233, :_reduce_256,
+, 234, :_reduce_257,
+, 234, :_reduce_258,
+, 212, :_reduce_259,
+, 235, :_reduce_260,
+, 236, :_reduce_none,
+, 236, :_reduce_none,
+, 237, :_reduce_263,
+, 237, :_reduce_264,
+, 231, :_reduce_none,
+, 230, :_reduce_245,
+, 230, :_reduce_246,
+, 212, :_reduce_247,
+, 232, :_reduce_248,
+, 233, :_reduce_none,
+, 233, :_reduce_none,
+, 145, :_reduce_251,
+, 145, :_reduce_252,
+, 145, :_reduce_253,
+, 213, :_reduce_254,
+, 234, :_reduce_255,
+, 235, :_reduce_256,
+, 235, :_reduce_257,
+, 236, :_reduce_258,
+, 236, :_reduce_259,
+, 214, :_reduce_260,
+, 237, :_reduce_261,
 , 238, :_reduce_none,
+, 238, :_reduce_none,
+, 238, :_reduce_none,
+, 238, :_reduce_none,
+, 238, :_reduce_none,
+, 239, :_reduce_270,
+, 239, :_reduce_271,
+, 245, :_reduce_272,
+, 245, :_reduce_273,
+, 245, :_reduce_274,
+, 245, :_reduce_275,
+, 245, :_reduce_276,
+, 245, :_reduce_277,
+, 246, :_reduce_278,
+, 246, :_reduce_279,
+, 246, :_reduce_280,
+, 246, :_reduce_281,
+, 247, :_reduce_282,
+, 247, :_reduce_283,
+, 240, :_reduce_284,
+, 240, :_reduce_285,
+, 240, :_reduce_286,
+, 240, :_reduce_287,
+, 248, :_reduce_288,
+, 248, :_reduce_289,
+, 249, :_reduce_290,
+, 226, :_reduce_none,
+, 250, :_reduce_none,
+, 241, :_reduce_293,
+, 251, :_reduce_294,
+, 251, :_reduce_295,
+, 252, :_reduce_296,
+, 252, :_reduce_297,
+, 253, :_reduce_298,
+, 253, :_reduce_299,
+, 253, :_reduce_300,
+, 254, :_reduce_301,
+, 254, :_reduce_302,
+, 255, :_reduce_none,
+, 242, :_reduce_304,
+, 256, :_reduce_305,
+, 256, :_reduce_306,
+, 257, :_reduce_307,
+, 257, :_reduce_308,
+, 258, :_reduce_309,
+, 243, :_reduce_310,
+, 243, :_reduce_311,
+, 244, :_reduce_none,
+, 259, :_reduce_313,
+, 259, :_reduce_314,
+, 260, :_reduce_none,
+, 260, :_reduce_none,
+, 261, :_reduce_317,
+, 261, :_reduce_318,
+, 262, :_reduce_none,
+, 263, :_reduce_320,
+, 263, :_reduce_321,
+, 263, :_reduce_322,
+, 263, :_reduce_323,
+, 267, :_reduce_324,
+, 213, :_reduce_325,
+, 213, :_reduce_326,
+, 264, :_reduce_327,
+, 265, :_reduce_328,
+, 266, :_reduce_none,
+, 266, :_reduce_none,
+, 266, :_reduce_none,
+, 268, :_reduce_332,
+, 268, :_reduce_333,
+, 270, :_reduce_334,
+, 270, :_reduce_335,
+, 272, :_reduce_336,
+, 222, :_reduce_337,
+, 223, :_reduce_none,
+, 271, :_reduce_339,
+, 271, :_reduce_340,
+, 271, :_reduce_341,
+, 271, :_reduce_342,
+, 273, :_reduce_none,
+, 269, :_reduce_344,
+, 269, :_reduce_345,
+, 269, :_reduce_346,
+, 269, :_reduce_347,
+, 274, :_reduce_none,
+, 214, :_reduce_349,
+, 275, :_reduce_350,
+, 238, :_reduce_none,
+, 239, :_reduce_264,
+, 239, :_reduce_265,
+, 240, :_reduce_none,
+, 240, :_reduce_none,
+, 240, :_reduce_none,
+, 240, :_reduce_none,
+, 240, :_reduce_none,
+, 241, :_reduce_271,
+, 241, :_reduce_272,
+, 247, :_reduce_273,
+, 247, :_reduce_274,
+, 247, :_reduce_275,
+, 247, :_reduce_276,
+, 247, :_reduce_277,
+, 247, :_reduce_278,
+, 248, :_reduce_279,
+, 248, :_reduce_280,
+, 248, :_reduce_281,
+, 248, :_reduce_282,
+, 249, :_reduce_283,
+, 249, :_reduce_284,
+, 242, :_reduce_285,
+, 242, :_reduce_286,
+, 242, :_reduce_287,
+, 242, :_reduce_288,
+, 250, :_reduce_289,
+, 250, :_reduce_290,
+, 251, :_reduce_291,
+, 228, :_reduce_none,
+, 252, :_reduce_none,
+, 243, :_reduce_294,
+, 253, :_reduce_295,
+, 253, :_reduce_296,
+, 254, :_reduce_297,
+, 254, :_reduce_298,
+, 255, :_reduce_299,
+, 255, :_reduce_300,
+, 255, :_reduce_301,
+, 256, :_reduce_302,
+, 256, :_reduce_303,
+, 257, :_reduce_none,
+, 244, :_reduce_305,
+, 258, :_reduce_306,
+, 258, :_reduce_307,
+, 259, :_reduce_308,
+, 259, :_reduce_309,
+, 260, :_reduce_310,
+, 245, :_reduce_311,
+, 245, :_reduce_312,
+, 246, :_reduce_none,
+, 261, :_reduce_314,
+, 261, :_reduce_315,
+, 262, :_reduce_none,
+, 262, :_reduce_none,
+, 263, :_reduce_318,
+, 263, :_reduce_319,
+, 264, :_reduce_none,
+, 265, :_reduce_321,
+, 265, :_reduce_322,
+, 265, :_reduce_323,
+, 265, :_reduce_324,
+, 269, :_reduce_325,
+, 215, :_reduce_326,
+, 215, :_reduce_327,
+, 266, :_reduce_328,
+, 267, :_reduce_329,
+, 268, :_reduce_none,
+, 268, :_reduce_none,
+, 268, :_reduce_none,
+, 270, :_reduce_333,
+, 270, :_reduce_334,
+, 272, :_reduce_335,
+, 272, :_reduce_336,
+, 274, :_reduce_337,
+, 224, :_reduce_338,
+, 225, :_reduce_none,
+, 273, :_reduce_340,
+, 273, :_reduce_341,
+, 273, :_reduce_342,
+, 273, :_reduce_343,
+, 275, :_reduce_none,
+, 271, :_reduce_345,
+, 271, :_reduce_346,
+, 271, :_reduce_347,
+, 271, :_reduce_348,
 , 276, :_reduce_none,
+, 276, :_reduce_none,
+, 277, :_reduce_353,
+, 277, :_reduce_354,
+, 216, :_reduce_350,
+, 277, :_reduce_351,
 , 278, :_reduce_none,
+, 278, :_reduce_none,
+, 278, :_reduce_none,
+, 278, :_reduce_none,
+, 279, :_reduce_359,
+, 284, :_reduce_360,
+, 284, :_reduce_361,
+, 284, :_reduce_362,
+, 284, :_reduce_363,
+, 284, :_reduce_364,
+, 280, :_reduce_365,
+, 281, :_reduce_366,
+, 285, :_reduce_367,
+, 285, :_reduce_368,
+, 289, :_reduce_369,
+, 282, :_reduce_370,
+, 282, :_reduce_371,
+, 286, :_reduce_372,
+, 287, :_reduce_373,
+, 288, :_reduce_none,
+, 288, :_reduce_none,
+, 288, :_reduce_none,
+, 290, :_reduce_377,
+, 290, :_reduce_378,
+, 283, :_reduce_379,
+, 283, :_reduce_380,
+, 292, :_reduce_none,
+, 278, :_reduce_none,
+, 279, :_reduce_354,
+, 279, :_reduce_355,
+, 280, :_reduce_none,
+, 280, :_reduce_none,
+, 280, :_reduce_none,
+, 280, :_reduce_none,
+, 281, :_reduce_360,
+, 281, :_reduce_361,
+, 286, :_reduce_362,
+, 286, :_reduce_363,
+, 286, :_reduce_364,
+, 286, :_reduce_365,
+, 286, :_reduce_366,
+, 282, :_reduce_367,
+, 283, :_reduce_368,
+, 287, :_reduce_369,
+, 287, :_reduce_370,
+, 291, :_reduce_371,
+, 284, :_reduce_372,
+, 284, :_reduce_373,
+, 288, :_reduce_374,
+, 289, :_reduce_375,
+, 290, :_reduce_none,
+, 290, :_reduce_none,
+, 290, :_reduce_none,
+, 290, :_reduce_none,
+, 292, :_reduce_380,
+, 292, :_reduce_381,
+, 285, :_reduce_382,
+, 285, :_reduce_383,
+, 294, :_reduce_none,
+, 295, :_reduce_none,
 , 293, :_reduce_none,
+, 291, :_reduce_none,
+, 215, :_reduce_384,
+, 215, :_reduce_385,
+, 294, :_reduce_none,
+, 294, :_reduce_none,
+, 297, :_reduce_388,
+, 297, :_reduce_389,
+, 297, :_reduce_390,
+, 297, :_reduce_391,
+, 297, :_reduce_392,
+, 297, :_reduce_393,
+, 297, :_reduce_394,
+, 297, :_reduce_395,
+, 297, :_reduce_396,
+, 297, :_reduce_397,
+, 295, :_reduce_398,
+, 296, :_reduce_none,
+, 296, :_reduce_none,
+, 296, :_reduce_none,
+, 299, :_reduce_none,
+, 299, :_reduce_403,
+, 298, :_reduce_404,
+, 185, :_reduce_405,
+, 187, :_reduce_406,
+, 205, :_reduce_none,
+, 300, :_reduce_none,
+, 300, :_reduce_none,
+, 300, :_reduce_none,
+, 301, :_reduce_411,
+, 303, :_reduce_412,
+, 303, :_reduce_413,
+, 304, :_reduce_414,
+, 302, :_reduce_415,
+, 305, :_reduce_416,
+, 305, :_reduce_417 ]
+racc_reduce_n = 418
+racc_shift_n = 870
+, 217, :_reduce_387,
+, 217, :_reduce_388,
+, 296, :_reduce_none,
+, 296, :_reduce_none,
+, 299, :_reduce_391,
+, 299, :_reduce_392,
+, 299, :_reduce_393,
+, 299, :_reduce_394,
+, 299, :_reduce_395,
+, 299, :_reduce_396,
+, 299, :_reduce_397,
+, 299, :_reduce_398,
+, 299, :_reduce_399,
+, 299, :_reduce_400,
+, 297, :_reduce_401,
+, 298, :_reduce_none,
+, 298, :_reduce_none,
+, 298, :_reduce_none,
+, 301, :_reduce_none,
+, 301, :_reduce_406,
+, 300, :_reduce_407,
+, 186, :_reduce_408,
+, 188, :_reduce_409,
+, 206, :_reduce_none,
+, 302, :_reduce_none,
+, 302, :_reduce_none,
+, 302, :_reduce_none,
+, 303, :_reduce_414,
+, 305, :_reduce_415,
+, 305, :_reduce_416,
+, 306, :_reduce_417,
+, 304, :_reduce_418,
+, 307, :_reduce_419,
+, 307, :_reduce_420,
+, 207, :_reduce_421,
+, 309, :_reduce_422,
+, 310, :_reduce_423,
+, 310, :_reduce_424,
+, 311, :_reduce_none,
+, 311, :_reduce_none,
+, 311, :_reduce_none,
+, 311, :_reduce_none,
+, 311, :_reduce_429,
+, 311, :_reduce_430,
+, 313, :_reduce_431,
+, 313, :_reduce_432,
+, 314, :_reduce_433,
+, 314, :_reduce_434,
+, 308, :_reduce_435,
+, 312, :_reduce_436,
+, 312, :_reduce_437,
+, 312, :_reduce_438,
+, 312, :_reduce_439,
+, 312, :_reduce_440,
+, 312, :_reduce_441 ]
+racc_reduce_n = 442
+racc_shift_n = 911
 racc_token_table = {
 …
   :__LOCATION_INFORMATION__ => 137,
   :__CELL__ => 138,
+  :__JOIN__ => 139 }
+racc_nt_base = 140
+  :__JOIN__ => 139,
+  :TOOL_INFO => 140 }
+racc_nt_base = 141
 racc_use_result_var = true
 …
   "__CELL__",
   "__JOIN__",
+  "TOOL_INFO",
   "$start",
   "all",
 …
   "specified_statement",
   "location_information",
+  "tool_info",
   "statement",
   "statement_specifier_list",
 …
   "import",
   "import_C",
   "signature_plugin",
+  "generate_statement",
   "statement_specifier",
   "alloc_list",
 …
   "port_location_list",
   "port_location",
+  "bar_list" ]
+  "bar_list",
+  "JSON_string",
+  "JSON_object",
+  "JSON_property_list",
+  "JSON_value",
+  "JSON_number",
+  "JSON_array",
+  "JSON_array_list" ]
 Racc_debug_parser = false
 …
 module_eval(<<'.,.,', 'bnf.y.rb', 379)
   def _reduce_104(val, _values, result)
+                        result = StructType.new()
+                        # tag が無い場合、内部名を与える
+                        result = StructType.new( :"TAG__#{@@no_struct_tag_num}__" )
+                        @@no_struct_tag_num += 1
                         StructType.set_define( true )
 …
 .,.,
 module_eval(<<'.,.,', 'bnf.y.rb', 384)
+module_eval(<<'.,.,', 'bnf.y.rb', 386)
   def _reduce_105(val, _values, result)
                         StructType.end_of_parse
 …
 .,.,
 module_eval(<<'.,.,', 'bnf.y.rb', 389)
+module_eval(<<'.,.,', 'bnf.y.rb', 391)
   def _reduce_106(val, _values, result)
                         StructType.set_define( false )
 …
 # reduce 108 omitted
 module_eval(<<'.,.,', 'bnf.y.rb', 400)
+module_eval(<<'.,.,', 'bnf.y.rb', 402)
   def _reduce_109(val, _values, result)
      result = StructType.new( val[0].val )
 …
 .,.,
 module_eval(<<'.,.,', 'bnf.y.rb', 406)
+module_eval(<<'.,.,', 'bnf.y.rb', 408)
   def _reduce_110(val, _values, result)
                         val[1].each { |i|       # i: Decl
 …
 .,.,
 module_eval(<<'.,.,', 'bnf.y.rb', 416)
+module_eval(<<'.,.,', 'bnf.y.rb', 418)
   def _reduce_111(val, _values, result)
                         val[4].each { |i|       # i: Decl
 …
 .,.,
 module_eval(<<'.,.,', 'bnf.y.rb', 427)
+module_eval(<<'.,.,', 'bnf.y.rb', 429)
   def _reduce_112(val, _values, result)
      result = [ val[0] ]
 …
 .,.,
 module_eval(<<'.,.,', 'bnf.y.rb', 428)
+module_eval(<<'.,.,', 'bnf.y.rb', 430)
   def _reduce_113(val, _values, result)
      result <<  val[2]
 …
 .,.,
 module_eval(<<'.,.,', 'bnf.y.rb', 431)
+module_eval(<<'.,.,', 'bnf.y.rb', 433)
   def _reduce_114(val, _values, result)
      result = [:STRING,-1]
 …
 .,.,
 module_eval(<<'.,.,', 'bnf.y.rb', 432)
+module_eval(<<'.,.,', 'bnf.y.rb', 434)
   def _reduce_115(val, _values, result)
      result = [:STRING,val[2]]
 …
 .,.,
 module_eval(<<'.,.,', 'bnf.y.rb', 433)
+module_eval(<<'.,.,', 'bnf.y.rb', 435)
   def _reduce_116(val, _values, result)
      result = [:SIZE_IS,val[2]]
 …
 .,.,
 module_eval(<<'.,.,', 'bnf.y.rb', 434)
+module_eval(<<'.,.,', 'bnf.y.rb', 436)
   def _reduce_117(val, _values, result)
      result = [:COUNT_IS,val[2]]
 …
 # reduce 118 omitted
 module_eval(<<'.,.,', 'bnf.y.rb', 445)
+module_eval(<<'.,.,', 'bnf.y.rb', 447)
   def _reduce_119(val, _values, result)
                         val[1].set_qualifier( val[0] )
 …
 .,.,
 module_eval(<<'.,.,', 'bnf.y.rb', 454)
+module_eval(<<'.,.,', 'bnf.y.rb', 456)
   def _reduce_120(val, _values, result)
      result = [ val[0] ]
 …
 .,.,
 module_eval(<<'.,.,', 'bnf.y.rb', 456)
+module_eval(<<'.,.,', 'bnf.y.rb', 458)
   def _reduce_121(val, _values, result)
      result << val[2]
 …
 # reduce 125 omitted
 module_eval(<<'.,.,', 'bnf.y.rb', 469)
+module_eval(<<'.,.,', 'bnf.y.rb', 471)
   def _reduce_126(val, _values, result)
      result = EnumType.new( -1 )
 …
 .,.,
 module_eval(<<'.,.,', 'bnf.y.rb', 470)
+module_eval(<<'.,.,', 'bnf.y.rb', 472)
   def _reduce_127(val, _values, result)
      result = EnumType.new( 8 )
 …
 .,.,
 module_eval(<<'.,.,', 'bnf.y.rb', 471)
+module_eval(<<'.,.,', 'bnf.y.rb', 473)
   def _reduce_128(val, _values, result)
      result = EnumType.new( 16 )
 …
 .,.,
 module_eval(<<'.,.,', 'bnf.y.rb', 472)
+module_eval(<<'.,.,', 'bnf.y.rb', 474)
   def _reduce_129(val, _values, result)
      result = EnumType.new( 32 )
 …
 .,.,
 module_eval(<<'.,.,', 'bnf.y.rb', 473)
+module_eval(<<'.,.,', 'bnf.y.rb', 475)
   def _reduce_130(val, _values, result)
      result = EnumType.new( 64 )
 …
 .,.,
 module_eval(<<'.,.,', 'bnf.y.rb', 474)
+module_eval(<<'.,.,', 'bnf.y.rb', 476)
   def _reduce_131(val, _values, result)
      result = EnumType.new( 128 )
 …
 # reduce 135 omitted
 module_eval(<<'.,.,', 'bnf.y.rb', 485)
+module_eval(<<'.,.,', 'bnf.y.rb', 487)
   def _reduce_136(val, _values, result)
      result = :CONST
 …
 .,.,
 module_eval(<<'.,.,', 'bnf.y.rb', 486)
+module_eval(<<'.,.,', 'bnf.y.rb', 488)
   def _reduce_137(val, _values, result)
      result = :VOLATILE
 …
 .,.,
 module_eval(<<'.,.,', 'bnf.y.rb', 491)
+module_eval(<<'.,.,', 'bnf.y.rb', 493)
   def _reduce_138(val, _values, result)
                         val[1].set_type( val[0] )
 …
 # reduce 139 omitted
 module_eval(<<'.,.,', 'bnf.y.rb', 498)
+module_eval(<<'.,.,', 'bnf.y.rb', 500)
   def _reduce_140(val, _values, result)
      result = Decl.new( val[0].val )
 …
 .,.,
 module_eval(<<'.,.,', 'bnf.y.rb', 500)
+module_eval(<<'.,.,', 'bnf.y.rb', 502)
   def _reduce_141(val, _values, result)
      result = val[1]
 …
 .,.,
 module_eval(<<'.,.,', 'bnf.y.rb', 503)
+module_eval(<<'.,.,', 'bnf.y.rb', 505)
   def _reduce_142(val, _values, result)
                         val[0].set_type( ArrayType.new( val[2] ) )
 …
 .,.,
 module_eval(<<'.,.,', 'bnf.y.rb', 508)
+module_eval(<<'.,.,', 'bnf.y.rb', 510)
   def _reduce_143(val, _values, result)
                         val[0].set_type( ArrayType.new )
 …
 .,.,
 module_eval(<<'.,.,', 'bnf.y.rb', 513)
+module_eval(<<'.,.,', 'bnf.y.rb', 515)
   def _reduce_144(val, _values, result)
                         val[0].set_type( FuncType.new( val[2] ) )
 …
 .,.,
 module_eval(<<'.,.,', 'bnf.y.rb', 519)
+module_eval(<<'.,.,', 'bnf.y.rb', 521)
   def _reduce_145(val, _values, result)
                         Generator.warning( "W5010 need 'void' for no parameter"  )
 …
 .,.,
 module_eval(<<'.,.,', 'bnf.y.rb', 526)
+module_eval(<<'.,.,', 'bnf.y.rb', 528)
   def _reduce_146(val, _values, result)
      result = PtrType.new
 …
 .,.,
 module_eval(<<'.,.,', 'bnf.y.rb', 529)
+module_eval(<<'.,.,', 'bnf.y.rb', 531)
   def _reduce_147(val, _values, result)
                         result = PtrType.new
 …
 .,.,
 module_eval(<<'.,.,', 'bnf.y.rb', 534)
+module_eval(<<'.,.,', 'bnf.y.rb', 536)
   def _reduce_148(val, _values, result)
                         val[1].set_type(PtrType.new)
 …
 .,.,
 module_eval(<<'.,.,', 'bnf.y.rb', 539)
+module_eval(<<'.,.,', 'bnf.y.rb', 541)
   def _reduce_149(val, _values, result)
                         ptrtype = PtrType.new
 …
 # reduce 151 omitted
 module_eval(<<'.,.,', 'bnf.y.rb', 553)
+module_eval(<<'.,.,', 'bnf.y.rb', 555)
   def _reduce_152(val, _values, result)
      result = ParamList.new( val[0] )
 …
 .,.,
 module_eval(<<'.,.,', 'bnf.y.rb', 556)
+module_eval(<<'.,.,', 'bnf.y.rb', 558)
   def _reduce_153(val, _values, result)
                         val[0].add_param( val[2] )
 …
 .,.,
 module_eval(<<'.,.,', 'bnf.y.rb', 566)
+module_eval(<<'.,.,', 'bnf.y.rb', 568)
   def _reduce_154(val, _values, result)
                         val[2].set_kind( :PARAMETER )
 …
 .,.,
 module_eval(<<'.,.,', 'bnf.y.rb', 575)
+module_eval(<<'.,.,', 'bnf.y.rb', 577)
   def _reduce_155(val, _values, result)
                         Generator.error( "G1001 need specifier for \'$1\'" , val[1].get_name )
 …
 .,.,
 module_eval(<<'.,.,', 'bnf.y.rb', 580)
+module_eval(<<'.,.,', 'bnf.y.rb', 582)
   def _reduce_156(val, _values, result)
                         unless val[0].instance_of?( VoidType ) then
 …
 .,.,
 module_eval(<<'.,.,', 'bnf.y.rb', 588)
+module_eval(<<'.,.,', 'bnf.y.rb', 590)
   def _reduce_157(val, _values, result)
                         unless val[1].instance_of?( VoidType ) then
 …
 .,.,
 module_eval(<<'.,.,', 'bnf.y.rb', 595)
+module_eval(<<'.,.,', 'bnf.y.rb', 597)
   def _reduce_158(val, _values, result)
      result = val[1]
 …
 .,.,
 module_eval(<<'.,.,', 'bnf.y.rb', 599)
+module_eval(<<'.,.,', 'bnf.y.rb', 601)
   def _reduce_159(val, _values, result)
      result = val[0]
 …
 .,.,
 module_eval(<<'.,.,', 'bnf.y.rb', 601)
+module_eval(<<'.,.,', 'bnf.y.rb', 603)
   def _reduce_160(val, _values, result)
      result = result + val[2]
 …
 .,.,
 module_eval(<<'.,.,', 'bnf.y.rb', 604)
+module_eval(<<'.,.,', 'bnf.y.rb', 606)
   def _reduce_161(val, _values, result)
      result = [ [:IN]  ]
 …
 .,.,
 module_eval(<<'.,.,', 'bnf.y.rb', 605)
+module_eval(<<'.,.,', 'bnf.y.rb', 607)
   def _reduce_162(val, _values, result)
      result = [ [:OUT] ]
 …
 .,.,
 module_eval(<<'.,.,', 'bnf.y.rb', 606)
+module_eval(<<'.,.,', 'bnf.y.rb', 608)
   def _reduce_163(val, _values, result)
      result = [ [:INOUT] ]
 …
 .,.,
 module_eval(<<'.,.,', 'bnf.y.rb', 607)
+module_eval(<<'.,.,', 'bnf.y.rb', 609)
   def _reduce_164(val, _values, result)
      result = [ [:SEND,   val[2]] ]
 …
 .,.,
 module_eval(<<'.,.,', 'bnf.y.rb', 608)
+module_eval(<<'.,.,', 'bnf.y.rb', 610)
   def _reduce_165(val, _values, result)
      result = [ [:RECEIVE,val[2]] ]
 …
 .,.,
 module_eval(<<'.,.,', 'bnf.y.rb', 609)
+module_eval(<<'.,.,', 'bnf.y.rb', 611)
   def _reduce_166(val, _values, result)
      result = [ [:STRING,nil] ]
 …
 .,.,
 module_eval(<<'.,.,', 'bnf.y.rb', 610)
+module_eval(<<'.,.,', 'bnf.y.rb', 612)
   def _reduce_167(val, _values, result)
      result = [ [:STRING,  val[2]] ]
 …
 .,.,
 module_eval(<<'.,.,', 'bnf.y.rb', 611)
+module_eval(<<'.,.,', 'bnf.y.rb', 613)
   def _reduce_168(val, _values, result)
      result = [ [:SIZE_IS, val[2]] ]
 …
 .,.,
 module_eval(<<'.,.,', 'bnf.y.rb', 614)
+module_eval(<<'.,.,', 'bnf.y.rb', 616)
   def _reduce_169(val, _values, result)
                         result = [ [:SIZE_IS,val[2]], [:MAX_IS, val[4]] ]
 …
 .,.,
 module_eval(<<'.,.,', 'bnf.y.rb', 616)
+module_eval(<<'.,.,', 'bnf.y.rb', 618)
   def _reduce_170(val, _values, result)
      result = [ [:COUNT_IS,val[2]] ]
 …
 .,.,
 module_eval(<<'.,.,', 'bnf.y.rb', 617)
+module_eval(<<'.,.,', 'bnf.y.rb', 619)
   def _reduce_171(val, _values, result)
      result = [ [:NULLABLE] ]
 …
 # reduce 172 omitted
 module_eval(<<'.,.,', 'bnf.y.rb', 623)
+module_eval(<<'.,.,', 'bnf.y.rb', 625)
   def _reduce_173(val, _values, result)
                         if val[1] then
 …
 # reduce 176 omitted
 module_eval(<<'.,.,', 'bnf.y.rb', 640)
+module_eval(<<'.,.,', 'bnf.y.rb', 642)
   def _reduce_177(val, _values, result)
      result = val[1]
 …
 .,.,
 module_eval(<<'.,.,', 'bnf.y.rb', 643)
+module_eval(<<'.,.,', 'bnf.y.rb', 645)
   def _reduce_178(val, _values, result)
                         Generator.error( "G1004 impossible array type"  )
 …
 .,.,
 module_eval(<<'.,.,', 'bnf.y.rb', 648)
+module_eval(<<'.,.,', 'bnf.y.rb', 650)
   def _reduce_179(val, _values, result)
                         Generator.error( "G1005 impossible array type"  )
 …
 .,.,
 module_eval(<<'.,.,', 'bnf.y.rb', 653)
+module_eval(<<'.,.,', 'bnf.y.rb', 655)
   def _reduce_180(val, _values, result)
                         Generator.error( "G1006 impossible array type"  )
 …
 .,.,
 module_eval(<<'.,.,', 'bnf.y.rb', 658)
+module_eval(<<'.,.,', 'bnf.y.rb', 660)
   def _reduce_181(val, _values, result)
                         Generator.error( "G1007 impossible array type"  )
 …
 .,.,
 module_eval(<<'.,.,', 'bnf.y.rb', 663)
+module_eval(<<'.,.,', 'bnf.y.rb', 665)
   def _reduce_182(val, _values, result)
                         Generator.error( "G1008 impossible function type"  )
 …
 # reduce 183 omitted
 module_eval(<<'.,.,', 'bnf.y.rb', 669)
+module_eval(<<'.,.,', 'bnf.y.rb', 671)
   def _reduce_184(val, _values, result)
                         Generator.warning( "W5011 need 'void' for no parameter"  )
 …
 .,.,
 module_eval(<<'.,.,', 'bnf.y.rb', 675)
+module_eval(<<'.,.,', 'bnf.y.rb', 677)
   def _reduce_185(val, _values, result)
                         val[0].set_type( FuncType.new( val[2] ) )
 …
 .,.,
 module_eval(<<'.,.,', 'bnf.y.rb', 682)
+module_eval(<<'.,.,', 'bnf.y.rb', 684)
   def _reduce_186(val, _values, result)
      result = val[0]
 …
 .,.,
 module_eval(<<'.,.,', 'bnf.y.rb', 684)
+module_eval(<<'.,.,', 'bnf.y.rb', 686)
   def _reduce_187(val, _values, result)
      result = val[1]
 …
 .,.,
 module_eval(<<'.,.,', 'bnf.y.rb', 686)
+module_eval(<<'.,.,', 'bnf.y.rb', 688)
   def _reduce_188(val, _values, result)
      result = val[1]
 …
 .,.,
 module_eval(<<'.,.,', 'bnf.y.rb', 689)
+module_eval(<<'.,.,', 'bnf.y.rb', 691)
   def _reduce_189(val, _values, result)
      result = C_EXP.new( val[2] )
 …
 .,.,
 module_eval(<<'.,.,', 'bnf.y.rb', 694)
+module_eval(<<'.,.,', 'bnf.y.rb', 696)
   def _reduce_190(val, _values, result)
                         result = [ val[0] ]
 …
 .,.,
 module_eval(<<'.,.,', 'bnf.y.rb', 698)
+module_eval(<<'.,.,', 'bnf.y.rb', 700)
   def _reduce_191(val, _values, result)
                         val[0] << val[2]
 …
 # reduce 195 omitted
+module_eval(<<'.,.,', 'bnf.y.rb', 716)
+  def _reduce_196(val, _values, result)
+# reduce 196 omitted
+module_eval(<<'.,.,', 'bnf.y.rb', 719)
+  def _reduce_197(val, _values, result)
                         obj = val[3]
                         if obj.kind_of?( Cell ) || obj.kind_of?( Signature ) || obj.kind_of?( Celltype ) || obj.kind_of?( CompositeCelltype )then
 …
 .,.,
-# reduce 197 omitted
 # reduce 198 omitted
 …
 # reduce 210 omitted
+module_eval(<<'.,.,', 'bnf.y.rb', 745)
+  def _reduce_211(val, _values, result)
+# reduce 211 omitted
+module_eval(<<'.,.,', 'bnf.y.rb', 748)
+  def _reduce_212(val, _values, result)
      Generator.add_statement_specifier val[0]
     result
 …
 .,.,
 module_eval(<<'.,.,', 'bnf.y.rb', 747)
   def _reduce_212(val, _values, result)
+module_eval(<<'.,.,', 'bnf.y.rb', 750)
+  def _reduce_213(val, _values, result)
      Generator.add_statement_specifier val[2]
     result
 …
 .,.,
 module_eval(<<'.,.,', 'bnf.y.rb', 751)
   def _reduce_213(val, _values, result)
+module_eval(<<'.,.,', 'bnf.y.rb', 754)
+  def _reduce_214(val, _values, result)
      result = [ :ALLOCATOR, val[2] ]
     result
 …
 .,.,
 module_eval(<<'.,.,', 'bnf.y.rb', 753)
   def _reduce_214(val, _values, result)
+module_eval(<<'.,.,', 'bnf.y.rb', 756)
+  def _reduce_215(val, _values, result)
      result = [ :CALLBACK ]
     result
 …
 .,.,
 module_eval(<<'.,.,', 'bnf.y.rb', 755)
   def _reduce_215(val, _values, result)
+module_eval(<<'.,.,', 'bnf.y.rb', 758)
+  def _reduce_216(val, _values, result)
      result = [ :CONTEXT, val[2].val ]
     result
 …
 .,.,
 module_eval(<<'.,.,', 'bnf.y.rb', 757)
   def _reduce_216(val, _values, result)
+module_eval(<<'.,.,', 'bnf.y.rb', 760)
+  def _reduce_217(val, _values, result)
      result = [ :DEVIATE ]
     result
 …
 .,.,
 module_eval(<<'.,.,', 'bnf.y.rb', 759)
   def _reduce_217(val, _values, result)
+module_eval(<<'.,.,', 'bnf.y.rb', 762)
+  def _reduce_218(val, _values, result)
      result = [ :ID, val[2] ]
     result
 …
 .,.,
 module_eval(<<'.,.,', 'bnf.y.rb', 761)
   def _reduce_218(val, _values, result)
+module_eval(<<'.,.,', 'bnf.y.rb', 764)
+  def _reduce_219(val, _values, result)
      result = [ :PROTOTYPE ]
     result
 …
 .,.,
 module_eval(<<'.,.,', 'bnf.y.rb', 763)
   def _reduce_219(val, _values, result)
+module_eval(<<'.,.,', 'bnf.y.rb', 766)
+  def _reduce_220(val, _values, result)
      result = [ :RESTRICT, val[2] ]
     result
 …
 .,.,
 module_eval(<<'.,.,', 'bnf.y.rb', 764)
   def _reduce_220(val, _values, result)
+module_eval(<<'.,.,', 'bnf.y.rb', 767)
+  def _reduce_221(val, _values, result)
      result = [:SINGLETON]
     result
 …
 .,.,
 module_eval(<<'.,.,', 'bnf.y.rb', 765)
   def _reduce_221(val, _values, result)
+module_eval(<<'.,.,', 'bnf.y.rb', 768)
+  def _reduce_222(val, _values, result)
      result = [:IDX_IS_ID]
     result
 …
 .,.,
 module_eval(<<'.,.,', 'bnf.y.rb', 766)
   def _reduce_222(val, _values, result)
+module_eval(<<'.,.,', 'bnf.y.rb', 769)
+  def _reduce_223(val, _values, result)
      result = [:ACTIVE]
-    result
-  end
-.,.,
-module_eval(<<'.,.,', 'bnf.y.rb', 768)
-  def _reduce_223(val, _values, result)
-     result = [:GENERATE, val[2].val, val[4].val]
     result
   end
 …
 module_eval(<<'.,.,', 'bnf.y.rb', 771)
   def _reduce_224(val, _values, result)
+     result = [:GENERATE, val[2].val, val[4].val]
+    result
+  end
+.,.,
+module_eval(<<'.,.,', 'bnf.y.rb', 774)
+  def _reduce_225(val, _values, result)
      result = [ val[0] ]
     result
 …
 .,.,
 module_eval(<<'.,.,', 'bnf.y.rb', 772)
   def _reduce_225(val, _values, result)
+module_eval(<<'.,.,', 'bnf.y.rb', 775)
+  def _reduce_226(val, _values, result)
      result << val[2]
     result
 …
 .,.,
 module_eval(<<'.,.,', 'bnf.y.rb', 776)
   def _reduce_226(val, _values, result)
+module_eval(<<'.,.,', 'bnf.y.rb', 779)
+  def _reduce_227(val, _values, result)
       result = [ :NORMAL_ALLOC, val[0], nil, val[2], val[4], val[6] ]
     result
 …
 .,.,
 module_eval(<<'.,.,', 'bnf.y.rb', 778)
   def _reduce_227(val, _values, result)
+module_eval(<<'.,.,', 'bnf.y.rb', 781)
+  def _reduce_228(val, _values, result)
       result = [ :NORMAL_ALLOC, val[0], val[2], val[5], val[7], val[9] ]
     result
 …
 .,.,
 module_eval(<<'.,.,', 'bnf.y.rb', 787)
   def _reduce_228(val, _values, result)
+module_eval(<<'.,.,', 'bnf.y.rb', 790)
+  def _reduce_229(val, _values, result)
         result = [val[0]]
     result
 …
 .,.,
 module_eval(<<'.,.,', 'bnf.y.rb', 789)
   def _reduce_229(val, _values, result)
+module_eval(<<'.,.,', 'bnf.y.rb', 792)
+  def _reduce_230(val, _values, result)
         result << val[2]
     result
 …
 .,.,
 module_eval(<<'.,.,', 'bnf.y.rb', 793)
   def _reduce_230(val, _values, result)
+module_eval(<<'.,.,', 'bnf.y.rb', 796)
+  def _reduce_231(val, _values, result)
         result = [ val[0].val, nil, val[3] ]
     result
 …
 .,.,
 module_eval(<<'.,.,', 'bnf.y.rb', 795)
   def _reduce_231(val, _values, result)
+module_eval(<<'.,.,', 'bnf.y.rb', 798)
+  def _reduce_232(val, _values, result)
         result = [ val[0].val, val[2].val, val[5] ]
     result
 …
 .,.,
+module_eval(<<'.,.,', 'bnf.y.rb', 799)
+  def _reduce_232(val, _values, result)
+        result = [val[0].val]
+    result
+  end
+.,.,
+module_eval(<<'.,.,', 'bnf.y.rb', 801)
+module_eval(<<'.,.,', 'bnf.y.rb', 802)
   def _reduce_233(val, _values, result)
         result << val[2].val
     result
   end
 .,.,
 module_eval(<<'.,.,', 'bnf.y.rb', 806)
+        result = [val[0]]
+    result
+  end
+.,.,
+module_eval(<<'.,.,', 'bnf.y.rb', 804)
   def _reduce_234(val, _values, result)
+        result << val[2]
+    result
+  end
+.,.,
+module_eval(<<'.,.,', 'bnf.y.rb', 809)
+  def _reduce_235(val, _values, result)
                         val[0].each { |decl|
                                 decl.set_kind( :CONSTANT )
 …
 .,.,
 module_eval(<<'.,.,', 'bnf.y.rb', 816)
   def _reduce_235(val, _values, result)
+module_eval(<<'.,.,', 'bnf.y.rb', 819)
+  def _reduce_236(val, _values, result)
                         @@import_C = true
                         Import_C.new( val[2] )
 …
 .,.,
 module_eval(<<'.,.,', 'bnf.y.rb', 822)
   def _reduce_236(val, _values, result)
+module_eval(<<'.,.,', 'bnf.y.rb', 825)
+  def _reduce_237(val, _values, result)
                         @@import_C = true
                         Import_C.new( val[2], val[4] )
 …
 .,.,
 module_eval(<<'.,.,', 'bnf.y.rb', 829)
   def _reduce_237(val, _values, result)
+module_eval(<<'.,.,', 'bnf.y.rb', 832)
+  def _reduce_238(val, _values, result)
      Import.new( val[2] )
     result
 …
 .,.,
 module_eval(<<'.,.,', 'bnf.y.rb', 831)
   def _reduce_238(val, _values, result)
+module_eval(<<'.,.,', 'bnf.y.rb', 834)
+  def _reduce_239(val, _values, result)
      Import.new( val[2], true )
     result
 …
 .,.,
 module_eval(<<'.,.,', 'bnf.y.rb', 836)
   def _reduce_239(val, _values, result)
+module_eval(<<'.,.,', 'bnf.y.rb', 839)
+  def _reduce_240(val, _values, result)
      Generate.new( val[2].val, val[4], val[6] )
     result
 …
 .,.,
 module_eval(<<'.,.,', 'bnf.y.rb', 841)
   def _reduce_240(val, _values, result)
+module_eval(<<'.,.,', 'bnf.y.rb', 844)
+  def _reduce_241(val, _values, result)
                         val[2].each{ |i|       # i:Decl
                                 i.set_kind( :TYPEDEF )
 …
 .,.,
 module_eval(<<'.,.,', 'bnf.y.rb', 851)
   def _reduce_241(val, _values, result)
+module_eval(<<'.,.,', 'bnf.y.rb', 854)
+  def _reduce_242(val, _values, result)
                         val[5].each{ |i|       # i:Decl
                                 i.set_kind( :TYPEDEF )
 …
 .,.,
-# reduce 242 omitted
 # reduce 243 omitted
+module_eval(<<'.,.,', 'bnf.y.rb', 868)
+  def _reduce_244(val, _values, result)
+# reduce 244 omitted
+module_eval(<<'.,.,', 'bnf.y.rb', 871)
+  def _reduce_245(val, _values, result)
      result = [ val[0] ]
     result
 …
 .,.,
 module_eval(<<'.,.,', 'bnf.y.rb', 870)
   def _reduce_245(val, _values, result)
+module_eval(<<'.,.,', 'bnf.y.rb', 873)
+  def _reduce_246(val, _values, result)
      result << val[2]
     result
 …
 .,.,
 module_eval(<<'.,.,', 'bnf.y.rb', 874)
   def _reduce_246(val, _values, result)
+module_eval(<<'.,.,', 'bnf.y.rb', 877)
+  def _reduce_247(val, _values, result)
     val[1].end_of_parse
     result
 …
 .,.,
 module_eval(<<'.,.,', 'bnf.y.rb', 878)
   def _reduce_247(val, _values, result)
+module_eval(<<'.,.,', 'bnf.y.rb', 881)
+  def _reduce_248(val, _values, result)
     result = Namespace.new(val[0].val)
     result
 …
 .,.,
-# reduce 248 omitted
 # reduce 249 omitted
+module_eval(<<'.,.,', 'bnf.y.rb', 886)
+  def _reduce_250(val, _values, result)
+# reduce 250 omitted
+module_eval(<<'.,.,', 'bnf.y.rb', 889)
+  def _reduce_251(val, _values, result)
      result = NamespacePath.new( val[0].val, false )
     result
 …
 .,.,
 module_eval(<<'.,.,', 'bnf.y.rb', 887)
   def _reduce_251(val, _values, result)
+module_eval(<<'.,.,', 'bnf.y.rb', 890)
+  def _reduce_252(val, _values, result)
      result = NamespacePath.new( val[1].val, true )
     result
 …
 .,.,
 module_eval(<<'.,.,', 'bnf.y.rb', 889)
   def _reduce_252(val, _values, result)
+module_eval(<<'.,.,', 'bnf.y.rb', 892)
+  def _reduce_253(val, _values, result)
      result = val[0].append!( val[2].val )
     result
 …
 .,.,
 module_eval(<<'.,.,', 'bnf.y.rb', 894)
   def _reduce_253(val, _values, result)
+module_eval(<<'.,.,', 'bnf.y.rb', 897)
+  def _reduce_254(val, _values, result)
      result = val[1].end_of_parse( val[3] )
     result
 …
 .,.,
 module_eval(<<'.,.,', 'bnf.y.rb', 898)
   def _reduce_254(val, _values, result)
+module_eval(<<'.,.,', 'bnf.y.rb', 901)
+  def _reduce_255(val, _values, result)
     result = Signature.new( val[0].val )
     result
 …
 .,.,
 module_eval(<<'.,.,', 'bnf.y.rb', 904)
   def _reduce_255(val, _values, result)
+module_eval(<<'.,.,', 'bnf.y.rb', 907)
+  def _reduce_256(val, _values, result)
      result = NamedList.new( nil, "function" )
     result
 …
 .,.,
 module_eval(<<'.,.,', 'bnf.y.rb', 906)
   def _reduce_256(val, _values, result)
+module_eval(<<'.,.,', 'bnf.y.rb', 909)
+  def _reduce_257(val, _values, result)
      result = val[0].add_item( val[1] )
     result
 …
 .,.,
 module_eval(<<'.,.,', 'bnf.y.rb', 911)
   def _reduce_257(val, _values, result)
+module_eval(<<'.,.,', 'bnf.y.rb', 914)
+  def _reduce_258(val, _values, result)
                         # val[1]: Decl
                         if val[1].is_function? then
 …
 .,.,
 module_eval(<<'.,.,', 'bnf.y.rb', 924)
   def _reduce_258(val, _values, result)
+module_eval(<<'.,.,', 'bnf.y.rb', 927)
+  def _reduce_259(val, _values, result)
                         if val[4].is_function? then
                                 result = FuncHead.new( val[4], val[3], true )
 …
 .,.,
 module_eval(<<'.,.,', 'bnf.y.rb', 937)
   def _reduce_259(val, _values, result)
+module_eval(<<'.,.,', 'bnf.y.rb', 940)
+  def _reduce_260(val, _values, result)
                         val[1].end_of_parse
                         result = val[1]
 …
 .,.,
 module_eval(<<'.,.,', 'bnf.y.rb', 943)
   def _reduce_260(val, _values, result)
+module_eval(<<'.,.,', 'bnf.y.rb', 946)
+  def _reduce_261(val, _values, result)
      result = Celltype.new(val[0].val)
     result
 …
 .,.,
-# reduce 261 omitted
 # reduce 262 omitted
+module_eval(<<'.,.,', 'bnf.y.rb', 952)
+  def _reduce_263(val, _values, result)
+# reduce 263 omitted
+module_eval(<<'.,.,', 'bnf.y.rb', 955)
+  def _reduce_264(val, _values, result)
                         if val[0].kind_of? Port then
                                 Celltype.new_port( val[0] )
 …
 .,.,
 module_eval(<<'.,.,', 'bnf.y.rb', 958)
   def _reduce_264(val, _values, result)
+module_eval(<<'.,.,', 'bnf.y.rb', 961)
+  def _reduce_265(val, _values, result)
                         if val[3].kind_of? Port then
                                 val[3].set_specifier val[1]  # 設定順序あり
 …
 .,.,
-# reduce 265 omitted
 # reduce 266 omitted
 …
 # reduce 269 omitted
+module_eval(<<'.,.,', 'bnf.y.rb', 977)
+  def _reduce_270(val, _values, result)
+# reduce 270 omitted
+module_eval(<<'.,.,', 'bnf.y.rb', 980)
+  def _reduce_271(val, _values, result)
      result = [ val[0] ]
-    result
-  end
-.,.,
-module_eval(<<'.,.,', 'bnf.y.rb', 979)
-  def _reduce_271(val, _values, result)
-     result << val[2]
     result
   end
 …
 module_eval(<<'.,.,', 'bnf.y.rb', 982)
   def _reduce_272(val, _values, result)
+     result << val[2]
+    result
+  end
+.,.,
+module_eval(<<'.,.,', 'bnf.y.rb', 985)
+  def _reduce_273(val, _values, result)
      result = [ :INLINE ]
     result
 …
 .,.,
 module_eval(<<'.,.,', 'bnf.y.rb', 983)
   def _reduce_273(val, _values, result)
+module_eval(<<'.,.,', 'bnf.y.rb', 986)
+  def _reduce_274(val, _values, result)
      result = [ :ALLOCATOR, val[2] ]
     result
 …
 .,.,
 module_eval(<<'.,.,', 'bnf.y.rb', 984)
   def _reduce_274(val, _values, result)
+module_eval(<<'.,.,', 'bnf.y.rb', 987)
+  def _reduce_275(val, _values, result)
      result = [ :OPTIONAL ]
     result
 …
 .,.,
 module_eval(<<'.,.,', 'bnf.y.rb', 985)
   def _reduce_275(val, _values, result)
+module_eval(<<'.,.,', 'bnf.y.rb', 988)
+  def _reduce_276(val, _values, result)
      result = [ :REF_DESC ]
     result
 …
 .,.,
 module_eval(<<'.,.,', 'bnf.y.rb', 986)
   def _reduce_276(val, _values, result)
+module_eval(<<'.,.,', 'bnf.y.rb', 989)
+  def _reduce_277(val, _values, result)
      result = [ :DYNAMIC ]
-    result
-  end
-.,.,
-module_eval(<<'.,.,', 'bnf.y.rb', 987)
-  def _reduce_277(val, _values, result)
-     result = [ :OMIT ]
     result
   end
 …
 module_eval(<<'.,.,', 'bnf.y.rb', 990)
   def _reduce_278(val, _values, result)
      result = [ val[0] ]
     result
   end
 .,.,
 module_eval(<<'.,.,', 'bnf.y.rb', 991)
+     result = [ :OMIT ]
+    result
+  end
+.,.,
+module_eval(<<'.,.,', 'bnf.y.rb', 993)
   def _reduce_279(val, _values, result)
      result = [ val[0] ]
 …
 .,.,
 module_eval(<<'.,.,', 'bnf.y.rb', 992)
+module_eval(<<'.,.,', 'bnf.y.rb', 994)
   def _reduce_280(val, _values, result)
      result << val[2]
     result
   end
 .,.,
 module_eval(<<'.,.,', 'bnf.y.rb', 993)
+     result = [ val[0] ]
+    result
+  end
+.,.,
+module_eval(<<'.,.,', 'bnf.y.rb', 995)
   def _reduce_281(val, _values, result)
      result << val[2]
 …
 .,.,
 module_eval(<<'.,.,', 'bnf.y.rb', 997)
+module_eval(<<'.,.,', 'bnf.y.rb', 996)
   def _reduce_282(val, _values, result)
+     result << val[2]
+    result
+  end
+.,.,
+module_eval(<<'.,.,', 'bnf.y.rb', 1000)
+  def _reduce_283(val, _values, result)
       result = [ :INTERNAL_ALLOC, val[0].val, val[2].val, val[4] ]
     result
 …
 .,.,
 module_eval(<<'.,.,', 'bnf.y.rb', 999)
   def _reduce_283(val, _values, result)
+module_eval(<<'.,.,', 'bnf.y.rb', 1002)
+  def _reduce_284(val, _values, result)
       result = [ :RELAY_ALLOC, val[0].val, val[2].val, val[4] ]
     result
 …
 .,.,
 module_eval(<<'.,.,', 'bnf.y.rb', 1005)
   def _reduce_284(val, _values, result)
+module_eval(<<'.,.,', 'bnf.y.rb', 1008)
+  def _reduce_285(val, _values, result)
      result = Port.new( val[2].val, val[1], val[0] )
     result
 …
 .,.,
 module_eval(<<'.,.,', 'bnf.y.rb', 1007)
   def _reduce_285(val, _values, result)
+module_eval(<<'.,.,', 'bnf.y.rb', 1010)
+  def _reduce_286(val, _values, result)
      result = Port.new( val[2].val, val[1], val[0], "[]" )
     result
 …
 .,.,
 module_eval(<<'.,.,', 'bnf.y.rb', 1009)
   def _reduce_286(val, _values, result)
+module_eval(<<'.,.,', 'bnf.y.rb', 1012)
+  def _reduce_287(val, _values, result)
      result = Port.new(val[2].val, val[1], val[0], val[4])
-    result
-  end
-.,.,
-module_eval(<<'.,.,', 'bnf.y.rb', 1011)
-  def _reduce_287(val, _values, result)
-     result = Port.new( val[2].val, val[1], val[0], nil, val[4], val[ 6 ].val )
     result
   end
 …
 module_eval(<<'.,.,', 'bnf.y.rb', 1014)
   def _reduce_288(val, _values, result)
+     result = Port.new( val[2].val, val[1], val[0], nil, val[4], val[ 6 ].val )
+    result
+  end
+.,.,
+module_eval(<<'.,.,', 'bnf.y.rb', 1017)
+  def _reduce_289(val, _values, result)
      result = :CALL
     result
 …
 .,.,
 module_eval(<<'.,.,', 'bnf.y.rb', 1015)
   def _reduce_289(val, _values, result)
+module_eval(<<'.,.,', 'bnf.y.rb', 1018)
+  def _reduce_290(val, _values, result)
      result = :ENTRY
     result
 …
 .,.,
 module_eval(<<'.,.,', 'bnf.y.rb', 1019)
   def _reduce_290(val, _values, result)
+module_eval(<<'.,.,', 'bnf.y.rb', 1022)
+  def _reduce_291(val, _values, result)
      result = val[0]
     result
 …
 .,.,
-# reduce 291 omitted
 # reduce 292 omitted
+module_eval(<<'.,.,', 'bnf.y.rb', 1031)
+  def _reduce_293(val, _values, result)
+# reduce 293 omitted
+module_eval(<<'.,.,', 'bnf.y.rb', 1034)
+  def _reduce_294(val, _values, result)
      result = nil
     result
 …
 .,.,
 module_eval(<<'.,.,', 'bnf.y.rb', 1035)
   def _reduce_294(val, _values, result)
+module_eval(<<'.,.,', 'bnf.y.rb', 1038)
+  def _reduce_295(val, _values, result)
      Celltype.new_attribute( val[0] )
     result
 …
 .,.,
 module_eval(<<'.,.,', 'bnf.y.rb', 1037)
   def _reduce_295(val, _values, result)
+module_eval(<<'.,.,', 'bnf.y.rb', 1040)
+  def _reduce_296(val, _values, result)
      Celltype.new_attribute( val[1] )
     result
 …
 .,.,
 module_eval(<<'.,.,', 'bnf.y.rb', 1043)
   def _reduce_296(val, _values, result)
+module_eval(<<'.,.,', 'bnf.y.rb', 1046)
+  def _reduce_297(val, _values, result)
                         val[0].each{ |i|       # i:Decl
                                 i.set_kind( :ATTRIBUTE )
 …
 .,.,
 module_eval(<<'.,.,', 'bnf.y.rb', 1051)
   def _reduce_297(val, _values, result)
+module_eval(<<'.,.,', 'bnf.y.rb', 1054)
+  def _reduce_298(val, _values, result)
                         val[3].each{ |i|       # i:Decl
                                 i.set_kind( :ATTRIBUTE )   # 設定順序あり
 …
 .,.,
 module_eval(<<'.,.,', 'bnf.y.rb', 1060)
   def _reduce_298(val, _values, result)
+module_eval(<<'.,.,', 'bnf.y.rb', 1063)
+  def _reduce_299(val, _values, result)
      result = [:OMIT]
     result
 …
 .,.,
 module_eval(<<'.,.,', 'bnf.y.rb', 1061)
   def _reduce_299(val, _values, result)
+module_eval(<<'.,.,', 'bnf.y.rb', 1064)
+  def _reduce_300(val, _values, result)
      result = [:SIZE_IS,val[2]]
-    result
-  end
-.,.,
-module_eval(<<'.,.,', 'bnf.y.rb', 1062)
-  def _reduce_300(val, _values, result)
-      result = [:CHOICE,val[3]]
     result
   end
 …
 module_eval(<<'.,.,', 'bnf.y.rb', 1065)
   def _reduce_301(val, _values, result)
+      result = [:CHOICE,val[3]]
+    result
+  end
+.,.,
+module_eval(<<'.,.,', 'bnf.y.rb', 1068)
+  def _reduce_302(val, _values, result)
       result << val[2]
     result
 …
 .,.,
 module_eval(<<'.,.,', 'bnf.y.rb', 1066)
   def _reduce_302(val, _values, result)
+module_eval(<<'.,.,', 'bnf.y.rb', 1069)
+  def _reduce_303(val, _values, result)
       result = [ val[0] ]
     result
 …
 .,.,
 # reduce 303 omitted
 module_eval(<<'.,.,', 'bnf.y.rb', 1074)
   def _reduce_304(val, _values, result)
+# reduce 304 omitted
+module_eval(<<'.,.,', 'bnf.y.rb', 1077)
+  def _reduce_305(val, _values, result)
      result = nil
     result
 …
 .,.,
 module_eval(<<'.,.,', 'bnf.y.rb', 1078)
   def _reduce_305(val, _values, result)
+module_eval(<<'.,.,', 'bnf.y.rb', 1081)
+  def _reduce_306(val, _values, result)
      Celltype.new_var( val[0] )
     result
 …
 .,.,
 module_eval(<<'.,.,', 'bnf.y.rb', 1080)
   def _reduce_306(val, _values, result)
+module_eval(<<'.,.,', 'bnf.y.rb', 1083)
+  def _reduce_307(val, _values, result)
      Celltype.new_var( val[1] )
     result
 …
 .,.,
 module_eval(<<'.,.,', 'bnf.y.rb', 1085)
   def _reduce_307(val, _values, result)
+module_eval(<<'.,.,', 'bnf.y.rb', 1088)
+  def _reduce_308(val, _values, result)
                         val[0].each{ |i|       # i:Decl
                                 i.set_kind( :VAR )
 …
 .,.,
 module_eval(<<'.,.,', 'bnf.y.rb', 1092)
   def _reduce_308(val, _values, result)
+module_eval(<<'.,.,', 'bnf.y.rb', 1095)
+  def _reduce_309(val, _values, result)
                         val[3].each{ |i|       # i:Decl
                                 i.set_kind( :VAR )   # 設定順序あり
 …
 .,.,
 module_eval(<<'.,.,', 'bnf.y.rb', 1101)
   def _reduce_309(val, _values, result)
+module_eval(<<'.,.,', 'bnf.y.rb', 1104)
+  def _reduce_310(val, _values, result)
      result = [:SIZE_IS,val[2]]
     result
 …
 .,.,
 module_eval(<<'.,.,', 'bnf.y.rb', 1107)
   def _reduce_310(val, _values, result)
+module_eval(<<'.,.,', 'bnf.y.rb', 1110)
+  def _reduce_311(val, _values, result)
                         Celltype.new_require( val[1], val[3] )
 …
 .,.,
 module_eval(<<'.,.,', 'bnf.y.rb', 1111)
   def _reduce_311(val, _values, result)
+module_eval(<<'.,.,', 'bnf.y.rb', 1114)
+  def _reduce_312(val, _values, result)
                         Celltype.new_require( val[3], val[5], val[1].val )
 …
 .,.,
 # reduce 312 omitted
 module_eval(<<'.,.,', 'bnf.y.rb', 1119)
   def _reduce_313(val, _values, result)
+# reduce 313 omitted
+module_eval(<<'.,.,', 'bnf.y.rb', 1122)
+  def _reduce_314(val, _values, result)
      Factory.set_f_celltype( false )
     result
 …
 .,.,
 module_eval(<<'.,.,', 'bnf.y.rb', 1120)
   def _reduce_314(val, _values, result)
+module_eval(<<'.,.,', 'bnf.y.rb', 1123)
+  def _reduce_315(val, _values, result)
      Factory.set_f_celltype( true )
     result
 …
 .,.,
-# reduce 315 omitted
 # reduce 316 omitted
+module_eval(<<'.,.,', 'bnf.y.rb', 1128)
+  def _reduce_317(val, _values, result)
+# reduce 317 omitted
+module_eval(<<'.,.,', 'bnf.y.rb', 1131)
+  def _reduce_318(val, _values, result)
      Factory.new( val[0].val, val[2], val[4], nil    )
     result
 …
 .,.,
 module_eval(<<'.,.,', 'bnf.y.rb', 1130)
   def _reduce_318(val, _values, result)
+module_eval(<<'.,.,', 'bnf.y.rb', 1133)
+  def _reduce_319(val, _values, result)
      Factory.new( val[0].val, val[2], val[4], val[6] )
     result
 …
 .,.,
 # reduce 319 omitted
 module_eval(<<'.,.,', 'bnf.y.rb', 1137)
   def _reduce_320(val, _values, result)
+# reduce 320 omitted
+module_eval(<<'.,.,', 'bnf.y.rb', 1140)
+  def _reduce_321(val, _values, result)
      result = [ [ :IDENTIFIER, val[0].val ] ]
     result
 …
 .,.,
 module_eval(<<'.,.,', 'bnf.y.rb', 1139)
   def _reduce_321(val, _values, result)
+module_eval(<<'.,.,', 'bnf.y.rb', 1142)
+  def _reduce_322(val, _values, result)
      result << [ :IDENTIFIER, val[2].val ]
     result
 …
 .,.,
 module_eval(<<'.,.,', 'bnf.y.rb', 1141)
   def _reduce_322(val, _values, result)
+module_eval(<<'.,.,', 'bnf.y.rb', 1144)
+  def _reduce_323(val, _values, result)
      result = [ [ :STRING_LITERAL, val[0].val ] ]
     result
 …
 .,.,
 module_eval(<<'.,.,', 'bnf.y.rb', 1143)
   def _reduce_323(val, _values, result)
+module_eval(<<'.,.,', 'bnf.y.rb', 1146)
+  def _reduce_324(val, _values, result)
      result << [ :STRING_LITERAL, val[2].val ]
     result
 …
 .,.,
 module_eval(<<'.,.,', 'bnf.y.rb', 1148)
   def _reduce_324(val, _values, result)
+module_eval(<<'.,.,', 'bnf.y.rb', 1151)
+  def _reduce_325(val, _values, result)
      Cell.new_def
     result
 …
 .,.,
 module_eval(<<'.,.,', 'bnf.y.rb', 1150)
   def _reduce_325(val, _values, result)
+module_eval(<<'.,.,', 'bnf.y.rb', 1153)
+  def _reduce_326(val, _values, result)
      result = Cell.end_of_parse true
     result
 …
 .,.,
 module_eval(<<'.,.,', 'bnf.y.rb', 1152)
   def _reduce_326(val, _values, result)
+module_eval(<<'.,.,', 'bnf.y.rb', 1155)
+  def _reduce_327(val, _values, result)
      result = Cell.end_of_parse false
     result
 …
 .,.,
 module_eval(<<'.,.,', 'bnf.y.rb', 1156)
   def _reduce_327(val, _values, result)
+module_eval(<<'.,.,', 'bnf.y.rb', 1159)
+  def _reduce_328(val, _values, result)
      result = Cell.new(val[0])
     result
 …
 .,.,
 module_eval(<<'.,.,', 'bnf.y.rb', 1160)
   def _reduce_328(val, _values, result)
+module_eval(<<'.,.,', 'bnf.y.rb', 1163)
+  def _reduce_329(val, _values, result)
      result = Cell.set_name(val[0].val)
     result
 …
 .,.,
-# reduce 329 omitted
 # reduce 330 omitted
 # reduce 331 omitted
+module_eval(<<'.,.,', 'bnf.y.rb', 1169)
+  def _reduce_332(val, _values, result)
+# reduce 332 omitted
+module_eval(<<'.,.,', 'bnf.y.rb', 1172)
+  def _reduce_333(val, _values, result)
      val[3].set_specifier_list( val[1] )
     result
 …
 .,.,
 module_eval(<<'.,.,', 'bnf.y.rb', 1171)
   def _reduce_333(val, _values, result)
+module_eval(<<'.,.,', 'bnf.y.rb', 1174)
+  def _reduce_334(val, _values, result)
      val[0].set_specifier_list( [] )
     result
 …
 .,.,
 module_eval(<<'.,.,', 'bnf.y.rb', 1175)
   def _reduce_334(val, _values, result)
+module_eval(<<'.,.,', 'bnf.y.rb', 1178)
+  def _reduce_335(val, _values, result)
      result << val[2]
     result
 …
 .,.,
 module_eval(<<'.,.,', 'bnf.y.rb', 1177)
   def _reduce_335(val, _values, result)
+module_eval(<<'.,.,', 'bnf.y.rb', 1180)
+  def _reduce_336(val, _values, result)
      result = [val[0]]
-    result
-  end
-.,.,
-module_eval(<<'.,.,', 'bnf.y.rb', 1181)
-  def _reduce_336(val, _values, result)
-     result = [ :THROUGH, val[2], val[4] ]
     result
   end
 …
 module_eval(<<'.,.,', 'bnf.y.rb', 1184)
   def _reduce_337(val, _values, result)
+     result = [ :THROUGH, val[2], val[4] ]
+    result
+  end
+.,.,
+module_eval(<<'.,.,', 'bnf.y.rb', 1187)
+  def _reduce_338(val, _values, result)
      result = val[0]
     result
 …
 .,.,
 # reduce 338 omitted
 module_eval(<<'.,.,', 'bnf.y.rb', 1198)
   def _reduce_339(val, _values, result)
+# reduce 339 omitted
+module_eval(<<'.,.,', 'bnf.y.rb', 1201)
+  def _reduce_340(val, _values, result)
                         result = Join.new( val[0].val,  -1, val[4] )
                         Cell.new_join( result, true )
 …
 .,.,
 module_eval(<<'.,.,', 'bnf.y.rb', 1203)
   def _reduce_340(val, _values, result)
+module_eval(<<'.,.,', 'bnf.y.rb', 1206)
+  def _reduce_341(val, _values, result)
                         result = Join.new( val[0].val, val[2], val[5] )
                         Cell.new_join( result, true )
 …
 .,.,
 module_eval(<<'.,.,', 'bnf.y.rb', 1208)
   def _reduce_341(val, _values, result)
+module_eval(<<'.,.,', 'bnf.y.rb', 1211)
+  def _reduce_342(val, _values, result)
                         result = Join.new( val[0].val, nil, val[2] )
                         Cell.new_join( result, true )
 …
 .,.,
 module_eval(<<'.,.,', 'bnf.y.rb', 1213)
   def _reduce_342(val, _values, result)
+module_eval(<<'.,.,', 'bnf.y.rb', 1216)
+  def _reduce_343(val, _values, result)
                         result = Join.new( val[0].val, nil, [ :COMPOSITE, val[4] ] )
                         Cell.new_join( result, true )
 …
 .,.,
 # reduce 343 omitted
 module_eval(<<'.,.,', 'bnf.y.rb', 1224)
   def _reduce_344(val, _values, result)
+# reduce 344 omitted
+module_eval(<<'.,.,', 'bnf.y.rb', 1227)
+  def _reduce_345(val, _values, result)
                         rj = ReverseJoin.new( val[0].val, nil, val[2], val[4].val )
                         Cell.new_reverse_join( rj )
 …
 .,.,
 module_eval(<<'.,.,', 'bnf.y.rb', 1230)
   def _reduce_345(val, _values, result)
+module_eval(<<'.,.,', 'bnf.y.rb', 1233)
+  def _reduce_346(val, _values, result)
                         rj = ReverseJoin.new( val[0].val, nil, val[2], val[4].val, val[6] )
                         Cell.new_reverse_join( rj )
 …
 .,.,
 module_eval(<<'.,.,', 'bnf.y.rb', 1236)
   def _reduce_346(val, _values, result)
+module_eval(<<'.,.,', 'bnf.y.rb', 1239)
+  def _reduce_347(val, _values, result)
                         rj = ReverseJoin.new( val[0].val, val[2], val[5], val[7].val )
                         Cell.new_reverse_join( rj )
 …
 .,.,
 module_eval(<<'.,.,', 'bnf.y.rb', 1242)
   def _reduce_347(val, _values, result)
+module_eval(<<'.,.,', 'bnf.y.rb', 1245)
+  def _reduce_348(val, _values, result)
                         rj = ReverseJoin.new( val[0].val, val[2], val[5], val[7].val, val[9] )
                         Cell.new_reverse_join( rj )
 …
 .,.,
 # reduce 348 omitted
 module_eval(<<'.,.,', 'bnf.y.rb', 1254)
   def _reduce_349(val, _values, result)
+# reduce 349 omitted
+module_eval(<<'.,.,', 'bnf.y.rb', 1257)
+  def _reduce_350(val, _values, result)
                         CompositeCelltype.end_of_parse
                         result = val[1]
 …
 .,.,
 module_eval(<<'.,.,', 'bnf.y.rb', 1260)
   def _reduce_350(val, _values, result)
+module_eval(<<'.,.,', 'bnf.y.rb', 1263)
+  def _reduce_351(val, _values, result)
      result = CompositeCelltype.new(val[0].val)
     result
 …
 .,.,
-# reduce 351 omitted
 # reduce 352 omitted
+module_eval(<<'.,.,', 'bnf.y.rb', 1269)
+  def _reduce_353(val, _values, result)
+# reduce 353 omitted
+module_eval(<<'.,.,', 'bnf.y.rb', 1272)
+  def _reduce_354(val, _values, result)
                         if val[0].kind_of?( Port ) then
                                 CompositeCelltype.new_port( val[0] )   # 遅延して登録
 …
 .,.,
 module_eval(<<'.,.,', 'bnf.y.rb', 1275)
   def _reduce_354(val, _values, result)
+module_eval(<<'.,.,', 'bnf.y.rb', 1278)
+  def _reduce_355(val, _values, result)
                         if val[3].kind_of?( Port ) then
                                 # port 以外 val[3] に有効な値が入っていないので、以下のメソッドを適用できない
 …
 .,.,
-# reduce 355 omitted
 # reduce 356 omitted
 …
 # reduce 358 omitted
+module_eval(<<'.,.,', 'bnf.y.rb', 1299)
+  def _reduce_359(val, _values, result)
+# reduce 359 omitted
+module_eval(<<'.,.,', 'bnf.y.rb', 1302)
+  def _reduce_360(val, _values, result)
                         Generator.add_statement_specifier val[0]
                         result = [ val[0] ]
 …
 .,.,
+module_eval(<<'.,.,', 'bnf.y.rb', 1304)
+  def _reduce_360(val, _values, result)
+module_eval(<<'.,.,', 'bnf.y.rb', 1307)
+  def _reduce_361(val, _values, result)
+                        Generator.add_statement_specifier val[2]
+                        result = val[0] << val[2]
+    result
+  end
+.,.,
+module_eval(<<'.,.,', 'bnf.y.rb', 1312)
+  def _reduce_362(val, _values, result)
      result = [ :ALLOCATOR, val[2] ]
     result
 …
 .,.,
 module_eval(<<'.,.,', 'bnf.y.rb', 1305)
   def _reduce_361(val, _values, result)
+module_eval(<<'.,.,', 'bnf.y.rb', 1313)
+  def _reduce_363(val, _values, result)
      result = [ :OMIT ]
     result
 …
 .,.,
 module_eval(<<'.,.,', 'bnf.y.rb', 1306)
   def _reduce_362(val, _values, result)
+module_eval(<<'.,.,', 'bnf.y.rb', 1314)
+  def _reduce_364(val, _values, result)
      result = [ :OPTIONAL ]
     result
 …
 .,.,
 module_eval(<<'.,.,', 'bnf.y.rb', 1307)
   def _reduce_363(val, _values, result)
+module_eval(<<'.,.,', 'bnf.y.rb', 1315)
+  def _reduce_365(val, _values, result)
      result = [ :REF_DESC ]
     result
 …
 .,.,
 module_eval(<<'.,.,', 'bnf.y.rb', 1308)
   def _reduce_364(val, _values, result)
+module_eval(<<'.,.,', 'bnf.y.rb', 1316)
+  def _reduce_366(val, _values, result)
      result = [ :DYNAMIC ]
     result
 …
 .,.,
 module_eval(<<'.,.,', 'bnf.y.rb', 1313)
   def _reduce_365(val, _values, result)
+module_eval(<<'.,.,', 'bnf.y.rb', 1321)
+  def _reduce_367(val, _values, result)
                         # CompositeCelltype.new_port( val[0] )
                         result = val[0]
 …
 .,.,
 module_eval(<<'.,.,', 'bnf.y.rb', 1320)
   def _reduce_366(val, _values, result)
+module_eval(<<'.,.,', 'bnf.y.rb', 1328)
+  def _reduce_368(val, _values, result)
      result = nil
     result
 …
 .,.,
 module_eval(<<'.,.,', 'bnf.y.rb', 1324)
   def _reduce_367(val, _values, result)
+module_eval(<<'.,.,', 'bnf.y.rb', 1332)
+  def _reduce_369(val, _values, result)
      CompositeCelltype.new_attribute( val[0] )
     result
 …
 .,.,
 module_eval(<<'.,.,', 'bnf.y.rb', 1326)
   def _reduce_368(val, _values, result)
+module_eval(<<'.,.,', 'bnf.y.rb', 1334)
+  def _reduce_370(val, _values, result)
      CompositeCelltype.new_attribute( val[1] )
     result
 …
 .,.,
 module_eval(<<'.,.,', 'bnf.y.rb', 1331)
   def _reduce_369(val, _values, result)
+module_eval(<<'.,.,', 'bnf.y.rb', 1339)
+  def _reduce_371(val, _values, result)
      Cell.new_def
     result
 …
 .,.,
 module_eval(<<'.,.,', 'bnf.y.rb', 1333)
   def _reduce_370(val, _values, result)
+module_eval(<<'.,.,', 'bnf.y.rb', 1341)
+  def _reduce_372(val, _values, result)
      result = Cell.end_of_parse true
     result
 …
 .,.,
 module_eval(<<'.,.,', 'bnf.y.rb', 1335)
   def _reduce_371(val, _values, result)
+module_eval(<<'.,.,', 'bnf.y.rb', 1343)
+  def _reduce_373(val, _values, result)
      result = Cell.end_of_parse false
     result
 …
 .,.,
 module_eval(<<'.,.,', 'bnf.y.rb', 1340)
   def _reduce_372(val, _values, result)
+module_eval(<<'.,.,', 'bnf.y.rb', 1348)
+  def _reduce_374(val, _values, result)
      Cell.new(val[0],true)
     result
 …
 .,.,
 module_eval(<<'.,.,', 'bnf.y.rb', 1344)
   def _reduce_373(val, _values, result)
+module_eval(<<'.,.,', 'bnf.y.rb', 1352)
+  def _reduce_375(val, _values, result)
      Cell.set_name(val[0].val)
     result
 …
 .,.,
-# reduce 374 omitted
-# reduce 375 omitted
 # reduce 376 omitted
+module_eval(<<'.,.,', 'bnf.y.rb', 1354)
+  def _reduce_377(val, _values, result)
+# reduce 377 omitted
+# reduce 378 omitted
+# reduce 379 omitted
+module_eval(<<'.,.,', 'bnf.y.rb', 1363)
+  def _reduce_380(val, _values, result)
         Cell.external_join( val[0].val, val[4].val, true )
     result
 …
 .,.,
 module_eval(<<'.,.,', 'bnf.y.rb', 1356)
   def _reduce_378(val, _values, result)
+module_eval(<<'.,.,', 'bnf.y.rb', 1365)
+  def _reduce_381(val, _values, result)
         Cell.external_join( val[0].val, val[2].val, false )
     result
 …
 .,.,
 module_eval(<<'.,.,', 'bnf.y.rb', 1363)
   def _reduce_379(val, _values, result)
+module_eval(<<'.,.,', 'bnf.y.rb', 1372)
+  def _reduce_382(val, _values, result)
                         CompositeCelltype.new_join( val[0].val,
                                                 val[2].val, val[4].val, :ENTRY )
 …
 .,.,
 module_eval(<<'.,.,', 'bnf.y.rb', 1368)
   def _reduce_380(val, _values, result)
+module_eval(<<'.,.,', 'bnf.y.rb', 1377)
+  def _reduce_383(val, _values, result)
                         CompositeCelltype.new_join( val[2].val,
                                                 val[4].val, val[6].val, :ENTRY )
 …
 .,.,
 # reduce 381 omitted
 # reduce 382 omitted
 # reduce 383 omitted
 module_eval(<<'.,.,', 'bnf.y.rb', 1384)
   def _reduce_384(val, _values, result)
+# reduce 384 omitted
+# reduce 385 omitted
+# reduce 386 omitted
+module_eval(<<'.,.,', 'bnf.y.rb', 1393)
+  def _reduce_387(val, _values, result)
      Region.end_of_parse
     result
   end
 .,.,
-module_eval(<<'.,.,', 'bnf.y.rb', 1386)
-  def _reduce_385(val, _values, result)
-     Region.end_of_parse
-    result
-  end
-.,.,
-# reduce 386 omitted
-# reduce 387 omitted
 module_eval(<<'.,.,', 'bnf.y.rb', 1395)
   def _reduce_388(val, _values, result)
+     Region.end_of_parse
+    result
+  end
+.,.,
+# reduce 389 omitted
+# reduce 390 omitted
+module_eval(<<'.,.,', 'bnf.y.rb', 1404)
+  def _reduce_391(val, _values, result)
      Region.new_in_through( val[2].val, val[4].val )
     result
 …
 .,.,
 module_eval(<<'.,.,', 'bnf.y.rb', 1397)
   def _reduce_389(val, _values, result)
+module_eval(<<'.,.,', 'bnf.y.rb', 1406)
+  def _reduce_392(val, _values, result)
      Region.new_in_through
     result
 …
 .,.,
 module_eval(<<'.,.,', 'bnf.y.rb', 1399)
   def _reduce_390(val, _values, result)
+module_eval(<<'.,.,', 'bnf.y.rb', 1408)
+  def _reduce_393(val, _values, result)
      Region.new_out_through( val[2].val, val[4].val )
     result
 …
 .,.,
 module_eval(<<'.,.,', 'bnf.y.rb', 1401)
   def _reduce_391(val, _values, result)
+module_eval(<<'.,.,', 'bnf.y.rb', 1410)
+  def _reduce_394(val, _values, result)
      Region.new_out_through()
     result
 …
 .,.,
 module_eval(<<'.,.,', 'bnf.y.rb', 1403)
   def _reduce_392(val, _values, result)
+module_eval(<<'.,.,', 'bnf.y.rb', 1412)
+  def _reduce_395(val, _values, result)
      Region.new_to_through( val[2], val[4].val, val[6].val )
     result
 …
 .,.,
 module_eval(<<'.,.,', 'bnf.y.rb', 1405)
   def _reduce_393(val, _values, result)
+module_eval(<<'.,.,', 'bnf.y.rb', 1414)
+  def _reduce_396(val, _values, result)
      Region.new_to_through( val[2], nil, nil )
     result
 …
 .,.,
 module_eval(<<'.,.,', 'bnf.y.rb', 1407)
   def _reduce_394(val, _values, result)
+module_eval(<<'.,.,', 'bnf.y.rb', 1416)
+  def _reduce_397(val, _values, result)
      Region.set_type( :NODE )
     result
 …
 .,.,
 module_eval(<<'.,.,', 'bnf.y.rb', 1409)
   def _reduce_395(val, _values, result)
+module_eval(<<'.,.,', 'bnf.y.rb', 1418)
+  def _reduce_398(val, _values, result)
      Region.set_type( :LINKUNIT )
     result
 …
 .,.,
 module_eval(<<'.,.,', 'bnf.y.rb', 1411)
   def _reduce_396(val, _values, result)
+module_eval(<<'.,.,', 'bnf.y.rb', 1420)
+  def _reduce_399(val, _values, result)
      Region.set_domain( val[2].val, val[4] )
     result
 …
 .,.,
 module_eval(<<'.,.,', 'bnf.y.rb', 1413)
   def _reduce_397(val, _values, result)
+module_eval(<<'.,.,', 'bnf.y.rb', 1422)
+  def _reduce_400(val, _values, result)
      Region.set_type( :CLASS, val[2].val )
     result
 …
 .,.,
 module_eval(<<'.,.,', 'bnf.y.rb', 1417)
   def _reduce_398(val, _values, result)
+module_eval(<<'.,.,', 'bnf.y.rb', 1426)
+  def _reduce_401(val, _values, result)
      result = Region.new( val[0].val )
     result
 …
 .,.,
-# reduce 399 omitted
-# reduce 400 omitted
-# reduce 401 omitted
 # reduce 402 omitted
+module_eval(<<'.,.,', 'bnf.y.rb', 1428)
+  def _reduce_403(val, _values, result)
+# reduce 403 omitted
+# reduce 404 omitted
+# reduce 405 omitted
+module_eval(<<'.,.,', 'bnf.y.rb', 1437)
+  def _reduce_406(val, _values, result)
                         obj = val[3]
                         if obj.kind_of?( Cell ) then
 …
 .,.,
 module_eval(<<'.,.,', 'bnf.y.rb', 1450)
   def _reduce_404(val, _values, result)
+module_eval(<<'.,.,', 'bnf.y.rb', 1459)
+  def _reduce_407(val, _values, result)
      result = [ val[0].val ]
     result
 …
 .,.,
 module_eval(<<'.,.,', 'bnf.y.rb', 1455)
   def _reduce_405(val, _values, result)
+module_eval(<<'.,.,', 'bnf.y.rb', 1464)
+  def _reduce_408(val, _values, result)
      set_in_specifier
     result
 …
 .,.,
 module_eval(<<'.,.,', 'bnf.y.rb', 1457)
   def _reduce_406(val, _values, result)
+module_eval(<<'.,.,', 'bnf.y.rb', 1466)
+  def _reduce_409(val, _values, result)
      unset_in_specifier
     result
 …
 .,.,
-# reduce 407 omitted
-# reduce 408 omitted
-# reduce 409 omitted
 # reduce 410 omitted
+module_eval(<<'.,.,', 'bnf.y.rb', 1471)
+  def _reduce_411(val, _values, result)
+# reduce 411 omitted
+# reduce 412 omitted
+# reduce 413 omitted
+module_eval(<<'.,.,', 'bnf.y.rb', 1480)
+  def _reduce_414(val, _values, result)
                         TECSGEN::Cell_location.new( val[1], val[3], val[5], val[7], val[9], val[12] )
 …
 .,.,
 module_eval(<<'.,.,', 'bnf.y.rb', 1477)
   def _reduce_412(val, _values, result)
+module_eval(<<'.,.,', 'bnf.y.rb', 1486)
+  def _reduce_415(val, _values, result)
                         result = val[0] << val[1]
 …
 .,.,
 module_eval(<<'.,.,', 'bnf.y.rb', 1480)
   def _reduce_413(val, _values, result)
+module_eval(<<'.,.,', 'bnf.y.rb', 1489)
+  def _reduce_416(val, _values, result)
      result = []
     result
 …
 .,.,
 module_eval(<<'.,.,', 'bnf.y.rb', 1484)
   def _reduce_414(val, _values, result)
+module_eval(<<'.,.,', 'bnf.y.rb', 1493)
+  def _reduce_417(val, _values, result)
      result = [ val[0], val[2], val[3] ]
     result
 …
 .,.,
 module_eval(<<'.,.,', 'bnf.y.rb', 1489)
   def _reduce_415(val, _values, result)
+module_eval(<<'.,.,', 'bnf.y.rb', 1498)
+  def _reduce_418(val, _values, result)
                 TECSGEN::Join_location.new( val[2], val[4], val[6], val[8], val[11] )
 …
 .,.,
 module_eval(<<'.,.,', 'bnf.y.rb', 1495)
   def _reduce_416(val, _values, result)
+module_eval(<<'.,.,', 'bnf.y.rb', 1504)
+  def _reduce_419(val, _values, result)
                 result = val[0] << [ val[1], val[3] ]
 …
 .,.,
 module_eval(<<'.,.,', 'bnf.y.rb', 1497)
   def _reduce_417(val, _values, result)
+module_eval(<<'.,.,', 'bnf.y.rb', 1506)
+  def _reduce_420(val, _values, result)
      result = []
+    result
+  end
+.,.,
+module_eval(<<'.,.,', 'bnf.y.rb', 1510)
+  def _reduce_421(val, _values, result)
+     TOOL_INFO.new( val[2].to_sym, val[4] )
+    result
+  end
+.,.,
+module_eval(<<'.,.,', 'bnf.y.rb', 1511)
+  def _reduce_422(val, _values, result)
+      result = val[1]
+    result
+  end
+.,.,
+module_eval(<<'.,.,', 'bnf.y.rb', 1512)
+  def _reduce_423(val, _values, result)
+     result = { val[0].to_sym => val[2] }
+    result
+  end
+.,.,
+module_eval(<<'.,.,', 'bnf.y.rb', 1514)
+  def _reduce_424(val, _values, result)
+     val[0][ val[2].to_sym ] = val[4]
+    result
+  end
+.,.,
+# reduce 425 omitted
+# reduce 426 omitted
+# reduce 427 omitted
+# reduce 428 omitted
+module_eval(<<'.,.,', 'bnf.y.rb', 1516)
+  def _reduce_429(val, _values, result)
+     result=val[0].val
+    result
+  end
+.,.,
+module_eval(<<'.,.,', 'bnf.y.rb', 1516)
+  def _reduce_430(val, _values, result)
+     result=val[0].val
+    result
+  end
+.,.,
+module_eval(<<'.,.,', 'bnf.y.rb', 1517)
+  def _reduce_431(val, _values, result)
+     result = val[1]
+    result
+  end
+.,.,
+module_eval(<<'.,.,', 'bnf.y.rb', 1518)
+  def _reduce_432(val, _values, result)
+     result = []
+    result
+  end
+.,.,
+module_eval(<<'.,.,', 'bnf.y.rb', 1519)
+  def _reduce_433(val, _values, result)
+     result = [ val[0] ]
+    result
+  end
+.,.,
+module_eval(<<'.,.,', 'bnf.y.rb', 1520)
+  def _reduce_434(val, _values, result)
+     val[0] << val[2]
+    result
+  end
+.,.,
+module_eval(<<'.,.,', 'bnf.y.rb', 1521)
+  def _reduce_435(val, _values, result)
+     result = val[0].val.gsub!( /\"(.*)\"/, "\\1" )
+    result
+  end
+.,.,
+module_eval(<<'.,.,', 'bnf.y.rb', 1522)
+  def _reduce_436(val, _values, result)
+     result = val[0].val.to_i
+    result
+  end
+.,.,
+module_eval(<<'.,.,', 'bnf.y.rb', 1523)
+  def _reduce_437(val, _values, result)
+     result = val[0].val.to_f
+    result
+  end
+.,.,
+module_eval(<<'.,.,', 'bnf.y.rb', 1524)
+  def _reduce_438(val, _values, result)
+     result = - val[0].val.to_i
+    result
+  end
+.,.,
+module_eval(<<'.,.,', 'bnf.y.rb', 1525)
+  def _reduce_439(val, _values, result)
+     result = - val[0].val.to_f
+    result
+  end
+.,.,
+module_eval(<<'.,.,', 'bnf.y.rb', 1526)
+  def _reduce_440(val, _values, result)
+     result = val[0].val.to_i
+    result
+  end
+.,.,
+module_eval(<<'.,.,', 'bnf.y.rb', 1527)
+  def _reduce_441(val, _values, result)
+     result = val[0].val.to_f
     result
   end

EcnlProtoTool/trunk/asp3_dcre/tecsgen/tecslib/core/bnf.y.rb

-              r321
+              r429
 #      Generator for TOPPERS Embedded Component System
+#
 #   Copyright (C) 2008-2016 by TOPPERS Project
+#   Copyright (C) 2008-2018 by TOPPERS Project
 #--
 #   上記著作権者は，以下の(1)～(4)の条件を満たす場合に限り，本ソフトウェ
 …
         | STRUCT
+                {
+                        result = StructType.new()
+                        # tag が無い場合、内部名を与える
+                        result = StructType.new( :"TAG__#{@@no_struct_tag_num}__" )
+                        @@no_struct_tag_num += 1
                         StructType.set_define( true )
+                }
 …
         : component_description specified_statement
         | component_description location_information
+        | component_description tool_info
+        |
 …
         | import
         | import_C
         | signature_plugin
+        | generate_statement
         | error   # エラー回復ポイント
 …
 region_name_list
         : IDENTIFIER
                 {       result = [val[0].val]           }
         | region_name_list ',' IDENTIFIER
                 {       result << val[2].val            }
+        : namespace_identifier
+                {       result = [val[0]]               }
+        | region_name_list ',' namespace_identifier
+                {       result << val[2]                }
 const_statement
 …
                 { Import.new( val[2], true ) }
+signature_plugin
+generate_statement
 #        : GENERATE '(' plugin_name ',' namespace_identifier ',' STRING_LITERAL ')' ';'  #1ok signature plugin
         : GENERATE '(' plugin_name ',' namespace_identifier ',' plugin_arg ')' ';'  #1ok signature plugin
 …
                         result = [ val[0] ]
+                }
+        | composite_celltype_statement_specifier_list ',' composite_celltype_statement_specifier
+                {
+                        Generator.add_statement_specifier val[2]
+                        result = val[0] << val[2]
+                }
 composite_celltype_statement_specifier
 …
         | internal_join_list specified_join
         | internal_join_list external_join
+        | internal_join_list reverse_join
 external_join  # cell 内に記述する呼び口の外部結合
 …
+#  JSON object
+tool_info        : TOOL_INFO '(' JSON_string ')' JSON_object { TOOL_INFO.new( val[2].to_sym, val[4] ) }
+JSON_object      : '{' JSON_property_list   '}'              {  result = val[1] }
+JSON_property_list : JSON_string ':' JSON_value              { result = { val[0].to_sym => val[2] } }
+                 | JSON_property_list ',' JSON_string ':' JSON_value
+                                                             { val[0][ val[2].to_sym ] = val[4] }
+JSON_value       : JSON_string | JSON_number | JSON_object | JSON_array
+                 | TRUE { result=val[0].val } | FALSE  { result=val[0].val } # JSON_NULL # null not suppoted
+JSON_array       : '[' JSON_array_list ']'                   { result = val[1]  }
+                 | '['  ']'                                  { result = []  }
+JSON_array_list  : JSON_value                                { result = [ val[0] ] }
+                 | JSON_array_list ',' JSON_value            { val[0] << val[2] }
+JSON_string      : STRING_LITERAL                            { result = val[0].val.gsub!( /\"(.*)\"/, "\\1" ) }
+JSON_number      : INTEGER_CONSTANT                          { result = val[0].val.to_i }
+                 | FLOATING_CONSTANT                         { result = val[0].val.to_f }
+                 | '-' INTEGER_CONSTANT                      { result = - val[0].val.to_i }
+                 | '-' FLOATING_CONSTANT                     { result = - val[0].val.to_f }
+                 | '+' INTEGER_CONSTANT                      { result = val[0].val.to_i }
+                 | '+' FLOATING_CONSTANT                     { result = val[0].val.to_f }
 end
 …
     'import_C' => :IMPORT_C,
     'generate' => :GENERATE,
+    '__tool_info__' => :TOOL_INFO,
     # types
 …
   # すべての構文解析が完了した
   @@b_end_all_parse = false
+  # tag なし struct
+  @@no_struct_tag_num = 0
   def self.parse( file_name, plugin = nil, b_reuse = false )
 …
                   string += line
                   # この位置では error メソッドは使えない (token 読出し前)
                   puts "error: #{file} line #{lineno}: string literal has newline without escape"
+                  puts "#{file}:#{lineno}:#{col}: error: string literal has newline without escape"
                   @@n_error += 1
                 end
 …
                   b_in_string = true
                   # この位置では error メソッドは使えない (token 読出し前) # mikan cdl_error ではない
                   puts "error: #{file} line #{lineno}: string literal has newline without escape"
+                  puts "#{file}:#{lineno}:#{col}: error: string literal has newline without escape"
                   @@n_error += 1
                 # 山括弧で囲まれた文字列
+                when /\A<[0-9A-Za-z_\. \/]+>/   # AB: angle bracke
+                # when /\A<[0-9A-Za-z_\. \/]+>/   # AB: angle bracke
+                when /\A<(?:[^>\\]|\\.)*>/   # これはうまく行くようだ
                   @q << [:AB_STRING_LITERAL, Token.new($&, file, lineno, col)]
                 # 行コメント
 …
   @@n_error = 0
   @@n_warning = 0
+  @@n_info = 0
   # このメソッドは構文解析、意味解析からのみ呼出し可（コード生成でエラー発生は不適切）
 …
       end
       if locale then
         Console.puts "error: #{locale[0]}: line #{locale[1]} #{msg}"
+        Console.puts "#{locale[0]}:#{locale[1]}:#{locale[2]}: error: #{msg}"
       else
         Console.puts "error: #{msg}"
 …
       end
       if locale then
         Console.puts "warning: #{locale[0]}: line #{locale[1]} #{msg}"
+        Console.puts "#{locale[0]}:#{locale[1]}:#{locale[2]}: warning: #{msg}"
       else
         Console.puts "warning: #{msg}"
 …
   end
+  # このメソッドは構文解析、意味解析からのみ呼出し可
+  def self.info( msg, *arg )
+    locale = nil
+    self.info2( locale, msg, *arg )
+  end
+  def self.info2( locale, msg, *arg )
+    @@n_info += 1
+    msg = TECSMsg.get_info_message( msg )
+    # $1, $2, ... を arg で置換
+    count = 1
+    arg.each{ |a|
+      str = TECSIO.str_code_convert( msg, a.to_s )
+      msg.sub!( /\$#{count}/, str )
+      count += 1
+    }
+    # import_C の中でのウォーニング？
+    if @@import_C then
+      C_parser.info( msg )
+    else
+      if @@b_end_all_parse == false || locale == nil then
+        locale = @@current_locale[ @@generator_nest ]
+      end
+      if locale then
+        Console.puts "#{locale[0]}:#{locale[1]}:#{locale[2]}: info: #{msg}"
+      else
+        Console.puts "info: #{msg}"
+      end
+    end
+  end
   def self.get_n_error
     @@n_error
 …
   end
+  def self.get_n_info
+    @@n_info
+  end
   def self.get_nest
     @@generator_nest
+  end
+  def self.parsing_C?
+    @@import_C
   end

EcnlProtoTool/trunk/asp3_dcre/tecsgen/tecslib/core/componentobj.rb

-              r321
+              r429
 #      Generator for TOPPERS Embedded Component System
+#
 #   Copyright (C) 2008-2016 by TOPPERS Project
+#   Copyright (C) 2008-2019 by TOPPERS Project
 #--
 #   上記著作権者は，以下の(1)～(4)の条件を満たす場合に限り，本ソフトウェ
 …
 #  @b_checked_as_allocator_signature:: bool:  アロケータシグニチャとしてチェック済み
 #  @b_empty:: Bool: 空(関数が一つもない状態)
+#  @descriptor_list:: nil | { Signature => ParamDecl }  最後の ParamDecl しか記憶しないことに注意
+#  @generate:: [ Symbol, String, Plugin ]  = [ PluginName, option, Plugin ] Plugin は生成後に追加される
+  include PluginModule
   @@nest_stack_index = -1
 …
     @b_empty = false
     @b_checked_as_allocator_signature = false
+    @descriptor_list = nil
+    @generate = nil
     @@current_object = self
     set_specifier_list( Generator.get_statement_specifier )
 …
     function_head_list.get_items.each{ |f|
       @func_name_to_id[ f.get_name ] = id
+      f.set_owner self
       id += 1
+    }
 …
     end
+    # set_descriptor_list ##
+    if @generate then
+      signature_plugin
+    end
     @@current_object = nil
     return self
   end
 …
       when :DEVIATE
         @b_deviate = true
+      when :GENERATE
+        if @generate then
+          cdl_error( "S9999 generate specifier duplicate"  )
+        end
+        @generate = [ s[1], s[2] ] # [ PluginName, "option" ]
       else
         cdl_error( "S1002 \'$1\': unknown specifier for signature" , s[0] )
 …
   end
+  #== Signature# 引数で参照されている Descriptor 型のリストを作成する
+  #=== Signature# シグニチャプラグイン (generate 指定子)
+  def signature_plugin
+    plugin_name = @generate[0]
+    option = @generate[1]
+    apply_plugin( plugin_name, option )
+  end
+  #== Signature#apply_plugin
+  def apply_plugin plugin_name, option
+    if is_empty? then
+      cdl_warning( "S9999 $1 is empty. cannot apply signature plugin. ignored" , @name )
+      return
+    end
+    plClass = load_plugin( plugin_name, SignaturePlugin )
+    return if plClass == nil
+    if $verbose then
+      print "new through: plugin_object = #{plClass.class.name}.new( #{@name}, #{option} )\n"
+    end
+    begin
+      plugin_object = plClass.new( self, option )
+      plugin_object.set_locale @locale
+    rescue Exception => evar
+      cdl_error( "S1150 $1: fail to new" , plugin_name )
+      print_exception( evar )
+    end
+    generate_and_parse plugin_object
+end
+  #== Signature# 引数で参照されている Descriptor 型のリストを
   #RETURN:: Hash { Signature => ParamDecl }:  複数の ParamDecl から参照されている場合、最後のものしか返さない
   def get_descriptor_list
+    @descriptor_list
+  end
+  @@set_descriptor_list = {}
+  def self.set_descriptor_list
+    Namespace.get_root.travers_all_signature{ |sig|
+      if @@set_descriptor_list[ sig ] == nil then
+        @@set_descriptor_list[ sig ] = true
+        sig.set_descriptor_list
+      end
+    }
+  end
+  #== Signature# 引数で参照されている Descriptor 型のリストを作成する
+  def set_descriptor_list
     desc_list = { }
     # p "has_desc #{@name}"
     fha = get_function_head_array                       # 呼び口または受け口のシグニチャの関数配列
     if fha == nil then                                  # nil の場合、自己参照によるケースと仮定
+      @descriptor_list = desc_list
       return desc_list
     end
 …
             # p "has_desc #{param.get_name} #{t}"
             if t.kind_of? DescriptorType then
+              desc_list[t] = param
+              desc_list[ t.get_signature ] = param
+              # p self.get_name, t.get_signature.get_name
+              if t.get_signature == self then
+               # cdl_error( "S9999 Descriptor argument '$1' is the same signature as this parameter '$2' included", @name, param.get_name )
+              end
+              dir = param.get_direction
+              if dir != :IN && dir != :OUT && dir != :INOUT then
+                cdl_error( "S9999 Descriptor argument '$1' cannot be specified for $2 parameter", param.get_name, dir.to_s.downcase )
+              end
             end
+          }
 …
       end
+    }
     return desc_list
+    @descriptor_list = desc_list
   end
   #=== Signature# 引数に Descriptor があるか？
   def has_descriptor?
+    # p "has_desc #{@name}"
+    fha = get_function_head_array                       # 呼び口または受け口のシグニチャの関数配列
+    if fha == nil then                                  # nil の場合、自己参照によるケースと仮定
+    if get_descriptor_list == nil then
+      # end_of_parse が呼び出される前に has_descriptor? が呼び出された
+      # 呼び出し元は DescriptorType#initialize
+      # この場合、同じシグニチャ内の引数が Descriptor 型である
       return true
+    end
+    fha.each{ |fh|
+      fd = fh.get_declarator                            # fd: Decl  (関数頭部からDeclarotorを得る)
+      if fd.is_function? then                           # fd が関数でなければ、すでにエラー
+        params = fd.get_type.get_paramlist.get_items
+        if params then
+          params.each{ |param|
+            t = param.get_type.get_original_type
+            while( t.kind_of? PtrType )
+              t = t.get_referto
+            end
+            # p "has_desc #{param.get_name} #{t}"
+            if t.kind_of? DescriptorType then
+              return true
+            end
+          }
+        end
+      end
+    }
+    return false
+    elsif get_descriptor_list.length > 0 then
+      return true
+    else
+      return false
+    end
   end
 …
 end
+module CelltypePluginModule
+  #=== Celltype# セルタイププラグイン (generate 指定子)
+  def celltype_plugin
+    plugin_name = @generate[0]
+    option = @generate[1]
+    @generate[2] = apply_plugin( plugin_name, option )
+  end
+  #=== Celltype# セルタイププラグインをこのセルタイプに適用
+  def apply_plugin( plugin_name, option )
+    # plClass = load_plugin( plugin_name, CelltypePlugin )
+    if kind_of? Celltype then
+      plugin_class = CelltypePlugin
+    elsif kind_of? CompositeCelltype then
+      plugin_class = CompositePlugin
+    else
+      raise "unknown class #{self.class.name}"
+    end
+    plClass = load_plugin( plugin_name, plugin_class )
+    return if plClass == nil
+    if $verbose then
+      print "new celltype plugin: plugin_object = #{plClass.class.name}.new( #{@name}, #{option} )\n"
+    end
+    begin
+      plugin_object = plClass.new( self, option )
+      @generate_list << [ plugin_name, option, plugin_object ]
+      plugin_object.set_locale @locale
+      generate_and_parse plugin_object
+    rescue Exception => evar
+      cdl_error( "S1023 $1: fail to new" , plugin_name )
+      print_exception( evar )
+    end
+    # 既に存在するセルに new_cell を適用
+    @cell_list.each{ |cell|
+      apply_plugin_cell plugin_object, cell
+    }
+    return plugin_object
+  end
+  def apply_plugin_cell plugin, cell
+    begin
+      plugin.new_cell cell
+    rescue Exception => evar
+      cdl_error( "S1037 $1: celltype plugin fail to new_cell" , plugin.class.name )
+      print_exception( evar )
+    end
+  end
+  def celltype_plugin_new_cell cell
+    @generate_list.each{ |generate|
+      celltype_plugin = generate[2]
+      begin
+        celltype_plugin.new_cell cell
+      rescue Exception => evar
+        cdl_error( "S1037 $1: celltype plugin fail to new_cell" , celltype_plugin.class.name )
+        print_exception( evar )
+      end
+    }
+  end
+end #CelltypePluginModule
 class Celltype < NSBDNode # < Nestable
 …
 # @ct_factory_list::    Factory[] :    celltype factory
 # @cell_list:: Cell[] : 定義のみ (V1.0.0.2 以降)
+# @ordered_cell_list:: Cell[] : ID 順に順序付けされたセルリスト、最適化以降有効 (リンク単位ごとに生成されなおす)
 # @singleton:: bool
 # @idx_is_id:: bool
 # @idx_is_id_act:: bool: actual value
+# @b_need_ptab:: bool: true if having cells in multi-domain
 # @active:: bool
 # @b_reuse:: bool :  reuse 指定されて import された(template 不要)
 # @generate:: [ Symbol, String, Plugin ]  = [ PluginName, option, Plugin ] Plugin は生成後に追加される
+# @generate_list:: [ [ Symbol, String, Plugin ], ... ]   generate 文で追加された generate
+#
 # @n_attribute_ro:: int >= 0    none specified
 …
 # @n_var_omit:: int >= 0        # of [omit] specified vars # mikan var の omit は有？
 # @n_var_init:: int >= 0        # of vars with initializer
 # @n_call_port:: int >= 0
 # @n_call_port_array:: int >= 0
+# @n_call_port:: int >= 0       # dynamic ports are included
+# @n_call_port_array:: int >= 0  # dynamic ports are included
 # @n_call_port_omitted_in_CB:: int >= 0   最適化で省略される呼び口
+# @n_call_port_dynamic:: int >= 0  #
+# @n_call_port_array_dynamic:: int >= 0
+# @n_call_port_ref_desc:: int >= 0  #
+# @n_call_port_array_ref_desc:: int >= 0
 # @n_entry_port:: int >= 0
 # @n_entry_port_array:: int >= 0
 …
   include PluginModule
+  include CelltypePluginModule
   @@nest_stack_index = -1
   @@nest_stack = []
 …
     @active = false
     @generate = nil
+    @generate_list = []
     @n_attribute_ro = 0
 …
     @n_call_port_array = 0
     @n_call_port_omitted_in_CB = 0
+    @n_call_port_dynamic = 0
+    @n_call_port_array_dynamic = 0
+    @n_call_port_ref_desc = 0
+    @n_call_port_array_ref_desc = 0
     @n_entry_port = 0
     @n_entry_port_array = 0
 …
     if $idx_is_id then
       @idx_is_id = true
+      @idx_is_id_act = true
+      @b_need_ptab = true
     else
       @idx_is_id = false
+    end
+    @idx_is_id_act = @idx_is_id
+      @idx_is_id_act = false
+      @b_need_ptab = false
+    end
     Namespace.new_celltype( self )
     set_namespace_path # @NamespacePath の設定
     set_specifier_list( Generator.get_statement_specifier )
-    if @singleton then
-      @idx_is_id_act = false
-    end
     @included_header = {}
 …
       celltype_plugin
     end
+    # check_dynamic_join ##
     @@current_object = nil
 …
       @n_call_port += 1
       @n_call_port_array += 1 if port.get_array_size != nil
+      if port.is_dynamic? then
+        @n_call_port_dynamic += 1
+        @n_call_port_array_dynamic += 1 if port.get_array_size != nil
+      end
+      if port.is_ref_desc? then
+        @n_call_port_ref_desc += 1
+        @n_call_port_array_ref_desc += 1 if port.get_array_size != nil
+      end
     else
       @n_entry_port += 1
 …
       when :IDX_IS_ID
         @idx_is_id = true
+        @idx_is_id_act = true
+        @b_need_ptab = true
       when :ACTIVE
         @active = true
 …
       end
+    }
+    if @singleton then
+      @idx_is_id_act = false
+      @b_need_ptab = false
+    end
   end
 …
   end
+  #=== Celltype# セルタイププラグイン (generate 指定子)
+  def celltype_plugin
+    load_plugin( @generate[0], CelltypePlugin )
+    plugin_name = @generate[0]
+    option = @generate[1]
+    plugin_object = nil
+    eval_str = "plugin_object = #{plugin_name}.new( self, option )"
+    if $verbose then
+      print "new celltype : #{eval_str}\n"
+    end
+    begin
+      eval( eval_str )     # plugin を生成
+      plugin_object.set_locale @locale
+      @generate[ 2 ] = plugin_object
+      generate_and_parse plugin_object
+    rescue Exception => evar
+      cdl_error( "S1023 $1: fail to new" , plugin_name )
+      print "eval( #{eval_str} )\n"
+      print_exception( evar )
+    end
+  @@dynamic_join_checked_list = {}
+  def self.check_dynamic_join
+    Namespace.get_root.travers_all_celltype{ |ct|
+      if @@dynamic_join_checked_list[ ct ] == nil then
+        @@dynamic_join_checked_list[ ct ] = true
+        ct.check_dynamic_join
+      end
+    }
+  end
+  #=== Celltype#dynamic の適合性チェック
+  def check_dynamic_join
+    return if ! $verbose
+    @port.each{ |port|
+      signature = port.get_signature
+      next if signature == nil   # すでにエラー
+      if port.is_dynamic? then
+        dbgPrint( "[DYNAMIC] checking dynamic port: #{@global_name}.#{port.get_name}\n" )
+        # print( "[DYNAMIC] checking dynamic port: #{@global_name}.#{port.get_name}\n" )
+        next if find_ref_desc_port signature
+        next if find_descriptor_param signature, :DYNAMIC
+        cdl_warning( 'W9999 $1 cannot get information for dynamic port $2', @name, port.get_name )
+      elsif port.is_ref_desc? then
+        dbgPrint( "[DYNAMIC] checking ref_desc port: #{@global_name}.#{port.get_name}\n" )
+        # print( "[DYNAMIC] checking ref_desc port: #{@global_name}.#{port.get_name}\n" )
+        next if find_dynamic_port signature
+        next if find_descriptor_param signature, :REF_DESC
+        cdl_warning( 'W9999 $1 cannot put information from ref_desc port $2', @name, port.get_name )
+      elsif port.get_signature then
+        if port.get_signature.has_descriptor? then
+          port.get_signature.get_descriptor_list.each{ |signature, param|
+            dbgPrint( "[DYNAMIC] checking Descriptor parameter: #{@global_name}.#{port.get_name} ... #{param.get_name}\n" )
+            # print( "[DYNAMIC] checking Descriptor parameter: #{@global_name}.#{port.get_name} ... #{param.get_name}\n" )
+            if port.get_port_type == :CALL then
+              if param.get_direction == :IN
+                next if find_ref_desc_port signature
+                next if find_descriptor_param signature, :DYNAMIC
+              elsif param.get_direction == :OUT
+                next if find_dynamic_port signature
+                next if find_descriptor_param signature, :REF_DESC
+              end
+            else  # :ENTRY
+              if param.get_direction == :IN
+                next if find_dynamic_port signature
+                next if find_descriptor_param signature, :REF_DESC
+              elsif param.get_direction == :OUT
+                next if find_ref_desc_port signature
+                next if find_descriptor_param signature, :DYNAMIC
+              end
+            end
+            cdl_warning( 'W9999 "$1" cannot handle Descriptor "$2" information for port "$3"', @name, param.get_name, port.get_name )
+          }
+        end
+      end
+    }
+  end
+  def find_dynamic_port signature
+    dbgPrint "[DYNAMIC] find_dynamic_port signature=#{signature.get_name}"
+    @port.each{ |port|
+      dbgPrint "[DYNAMIC] port=#{port.get_name} signature=#{port.get_signature.get_name} dynamic=#{port.is_dynamic?}"
+      return port if port.is_dynamic? && port.get_signature == signature
+    }
+    return nil
+  end
+  def find_ref_desc_port signature
+    if signature == nil then  # すでにエラー
+      return nil
+    end
+    dbgPrint "[DYNAMIC] find_ref_desc_port signature=#{signature.get_name}"
+    @port.each{ |port|
+      dbgPrint "[DYNAMIC] port=#{port.get_name} signature=#{port.get_signature.get_name} ref_desc=#{port.is_ref_desc?}"
+      return port if port.is_ref_desc? && port.get_signature == signature
+    }
+    return nil
+  end
+  #=== Celltype#ディスクリプタ型でシグニチャが一致し dyn_ref に対応づく引数を探す
+  #dyn_ref::Symbol: :DYNAMIC=ディスクリプタを得る手段となる引数を探す．:REF_DESC=渡す手段となる引数を探す
+  def find_descriptor_param signature, dyn_ref
+    param_list = []
+    @port.each{ |port|
+      port.each_param{ |port, func, param|
+        type = param.get_type
+        while type.kind_of? PtrType
+          type = type.get_type
+        end
+        dbgPrint( "[DYNAMIC] dyn_ref=#{dyn_ref} port_type=#{port.get_port_type} dir=#{param.get_direction} paramName=#{param.get_name} paramType=#{type.class}\n" )
+        # print( "[DYNAMIC] dyn_ref=#{dyn_ref} port_type=#{port.get_port_type} dir=#{param.get_direction} paramName=#{param.get_name} paramType=#{type.class}\n" )
+        if type.kind_of? DescriptorType then
+          if type.get_signature == signature then
+            dir = param.get_direction
+            if dir == :INOUT then
+              dbgPrint( "[DYNAMIC] found INOUT Descriptor parameter: #{@global_name}.#{port.get_name} ... #{param.get_name}\n" )
+              # print( "[DYNAMIC] found INOUT Descriptor parameter: #{@global_name}.#{port.get_name} ... #{param.get_name}\n" )
+              return param
+            elsif dyn_ref == :DYNAMIC then
+              if dir == :IN && port.get_port_type == :ENTRY ||
+                 dir == :OUT && port.get_port_type == :CALL then
+                dbgPrint( "[DYNAMIC] found INBOUND Descriptor parameter: #{@global_name}.#{port.get_name} ... #{param.get_name}\n" )
+                # print( "[DYNAMIC] found INBOUND Descriptor parameter: #{@global_name}.#{port.get_name} ... #{param.get_name}\n" )
+                return param
+              end
+            elsif dyn_ref == :REF_DESC
+              if dir == :IN && port.get_port_type == :CALL ||
+                 dir == :OUT && port.get_port_type == :ENTRY then
+                dbgPrint( "[DYNAMIC] found OUTBOUND Descriptor parameter: #{@global_name}.#{port.get_name} ... #{param.get_name}\n" )
+                # print( "[DYNAMIC] found OUTBOUND Descriptor parameter: #{@global_name}.#{port.get_name} ... #{param.get_name}\n" )
+                return param
+              end
+            else
+              raise "unknown ref_desc"
+            end
+          end
+        end
+      }
+    }
+    return nil
   end
 …
   # シングルトンセルが同じ linkunit に複数ないかチェック
   def new_cell( cell )
+    dbgPrint "Celltype#new_cell( #{cell.get_name} )\n"
     # Celltype では Cell の set_owner しない
     # シングルトンで、プロトタイプ宣言でない場合、コード生成対象リージョンの場合
 …
     end
     @cell_list << cell
+    # プラグインにより生成されたセルタイプか ?
     if @plugin then
       @plugin.new_cell cell
     end
+    # セルタイププラグインの適用
+    celltype_plugin_new_cell cell
   end
 …
   #     呼び口（ただし、最適化で不要となるものは除く）
   def has_INIB?
+#    print "name=#{@name} @n_attribute_ro=#{@n_attribute_ro}  @n_var_size_is=#{@n_var_size_is} @n_call_port=#{@n_call_port} @n_call_port_omitted_in_CB=#{@n_call_port_omitted_in_CB} @n_entry_port_array_ns=#{@n_entry_port_array_ns}\n"
+    return $rom && (@n_attribute_ro > 0 || @n_var_size_is > 0 || ( @n_call_port - @n_call_port_omitted_in_CB ) > 0 || @n_entry_port_array_ns > 0)
+#    return $rom && (@n_attribute_ro > 0 || ( @n_call_port - @n_call_port_omitted_in_CB ) > 0)
+    result = $rom &&
+             (@n_attribute_ro > 0 ||
+              @n_var_size_is > 0 ||
+              ( @n_call_port - @n_call_port_omitted_in_CB - (@n_call_port_dynamic-@n_call_port_array_dynamic) ) > 0 ||
+              $ram_initializer && @n_call_port_dynamic > 0 ||
+              @n_entry_port_array_ns > 0)
+    # print "name=#{@name} n_attribute_ro=#{@n_attribute_ro}  n_var_size_is=#{@n_var_size_is} n_call_port=#{@n_call_port} n_call_port_omitted_in_CB=#{@n_call_port_omitted_in_CB} n_call_port_dynamic=#{@n_call_port_dynamic} n_call_port_array_dynamic=#{@n_call_port_array_dynamic} n_entry_port_array_ns=#{@n_entry_port_array_ns} has_INIB?=#{result}\n"
+    return result
   end
 …
   def has_CB?
     if $rom then
       return @n_attribute_rw > 0 || (@n_var-@n_var_size_is) > 0
+      return @n_attribute_rw > 0 || (@n_var-@n_var_size_is) > 0 || (@n_call_port_dynamic - @n_call_port_array_dynamic) > 0
       # return @n_attribute_rw > 0 || @n_var > 0
     else
 …
   #=== Celltype# SET_CB_INIB_POINTER, INITIALIZE_CB が必要か
   def need_CB_initializer?
     @n_var_init > 0 || has_CB?
+    @n_var_init > 0 || has_CB? || ( @n_call_port_dynamic && $ram_initializer )
   end
 …
   def is_active?
     @active
+  end
+  def idx_is_id_act?
+    @idx_is_id_act
+  end
+  def multi_domain?
+    @b_need_ptab
   end
 …
 #                                               逆require ポートに対して複数の結合がないかチェックする
 # @generate:: [ Symbol, String, Plugin ]  = [ PluginName, option, Plugin ] Plugin は生成後に追加される
+# @b_post_code_generated:: Bool: true if generated in tmp_plugin_post_code.cdl
+#
 # composite のためインスタンス変数
 …
 # @id:: Integer : コード生成直前に設定  (プロトタイプ宣言の場合は -1 のまま放置)
 # @id_specified::Integer : 指定された id
+# @restrict_list::{ entry_name => { func_name, [ region_name, ... ] } }
+# @restrict_list::{ entry_name => { func_name, [ region_path_str, ... ] } }
+# @restrict_list2::{ entry_name => { func_name, [ domain_root_region, ... ] } }
+# @b_restrict_referenced::Bool: restrict_list が参照れた
 =begin
 …
   end
-  # composite で clone されたもの（子孫まで含む）
-  # Join.change_rhs_port にて CompoisteCelltype 内の Join の結合先を変更する際に使用
-  @@cloned_cell_list = {}
-  ### mikan BUG @@cloned_cell_list は composite の階層ごとに記憶していないため、同じ名前が内部に現れると、うまく動作しない
-  # change_rhs_port の実装は、こんな回りくどいことをする必要はなかった。右辺に現れるセル名には、composite のセル名を前につなげるだけでよかった
   def initialize( ct_path, in_composite = false )
     super()
 …
     @referenced_port_list = {}
     @restrict_list = {}
+    @restrict_list2 = {}
+    @b_restrict_referenced = false
+    @b_post_code_generated = false
     @cell_list = {}
 …
       cell_prev = CompositeCelltype.find( name )
       if cell_prev == nil then
         CompositeCelltype.new_cell( self )
+        CompositeCelltype.new_cell_in_composite( self )
       end
     else
 …
     else
+      dbgPrint "new_join: cell=#{@name} add_item=#{join.get_name}\n"
       # join
       @join_list.add_item( join )
 …
         # 呼び口側のセルと、そのセルタイプ
+        cell = Namespace.find cp_cell_nsp
+        if ! @in_composite then
+          cell = Namespace.find cp_cell_nsp
+        else
+          cell = CompositeCelltype.find cp_cell_nsp.to_s.to_sym
+        end
         if ! cell.instance_of? Cell then
           cdl_error( "S9999 '$1': not cell for reverse join", cp_cell_nsp.get_path_str )
 …
         end
+        ep_cell_nsp = get_namespace_path
+        if ! @in_composite then
+          ep_cell_nsp = get_namespace_path
+          ep_cell_nsp_str = ep_cell_nsp.get_path_str
+        else
+          ep_cell_nsp = NamespacePath.new @name, false
+          ep_cell_nsp_str = @name
+        end
         ep_subscript_val = ep_subscript ? ep_subscript.eval_const( nil ) : nil
         rhs = Expression.create_cell_join_expression( ep_cell_nsp, ep_subscript_val, ep_name, rj.get_locale )
 …
           ss_str = ""
         end
         dbgPrint "create_reverse_join: #{cell.get_name}.#{cp_name}#{ss_str} => #{ep_cell_nsp.get_path_str}.ep_name\n"
+        dbgPrint "create_reverse_join: #{cell.get_name}.#{cp_name}#{ss_str} => #{ep_cell_nsp_str}.#{ep_name}\n"
+      }
     end
 …
       set_specifier_list( Generator.get_statement_specifier )
     end
+    if TECSGEN.post_coded?
+      @b_post_code_generated = true
+    end
     set_f_def f_def
 …
     if ! @in_composite then
+      if @celltype.instance_of? Celltype then
+      # if @celltype.instance_of? Celltype then
+      if @celltype then  # composite でも呼びだす, エラー時 nil
         @celltype.new_cell self
       end
 …
   end
   #=== Cell# セルタイププラグイン (generate 指定子)
+  #=== Cell# セルプラグイン (generate 指定子)
   def cell_plugin
-    load_plugin( @generate[0], CellPlugin )
     plugin_name = @generate[0]
     option = @generate[1]
+    plugin_object = nil
+    eval_str = "plugin_object = #{plugin_name}.new( self, option )"
+    @generate[2] = apply_plugin plugin_name, option
+  end
+  def apply_plugin plugin_name, option
+    if ! @b_defined then
+      cdl_error( "S9999 plugin cannot apply to prototype cell '$1'", @name )
+    end
+    plClass = load_plugin( plugin_name, CellPlugin )
+    # return if plClass == nil # 従来と仕様が変わるので、継続する
     if $verbose then
       print "new cell : #{eval_str}\n"
+      print "new cell plugin: plugin_object = #{plClass.class.name}.new( #{@name}, #{option} )\n"
     end
     begin
       eval( eval_str )     # plugin を生成
+      plugin_object = plClass.new( self, option )
       plugin_object.set_locale @locale
-      @generate[ 2 ] = plugin_object
       generate_and_parse plugin_object
     rescue Exception => evar
       cdl_error( "S1166 $1: fail to new", plugin_name )
-      print "eval( #{eval_str} )\n"
       print_exception( evar )
     end
+    return  plugin_object
   end
 …
     # debug
+    dbgPrint "Cell#clone_for_composite : cloning: #{@name} #{global_name}  b_defined=#{@b_defined}\n"
+    dbgPrint "  CLONING Cell#clone_for_composite : cloning: #{@name} #{global_name}  b_defined=#{@b_defined} #{self}=>#{@my_clone} \n"
+    dbgPrint "              my_name=#{@name} name=#{name} owner class=#{@owner.class.name}\n"
     @my_clone = self.clone
-    @@cloned_cell_list[ self ] = @my_clone
     # clone したセルの内部に持つ名前情報を調整する
     @my_clone.set_cloned( name, global_name, namespacePath, join_array, ct_name, region, plugin, locale )
 …
     # debug
     dbgPrint "cell.set_cloned : global_name: #{global_name}  name: #{name}  @name: #{@name}\n"
+    dbgPrint "set_cloned:  entry_array_max_subscript.len=#{@entry_array_max_subscript.length}\n"
     @global_name = :"#{global_name}_#{@name}"
     @name = :"#{name}_#{@name}"
 …
     @alloc_list = []
     @require_joined_list = {}
     @entry_array_max_subscript = {}
+    @entry_array_max_subscript = @entry_array_max_subscript.dup
     @cell_list = {}
     @cell_list2 = []
 …
       @join_list.change_item j
+    }
+  end
+  #=== clone されたセルが composite の場合、内部セルを展開する
+  #self:: clone されたセルでなければならない
+  def expand_inner
+    if ! @f_cloned then
+      raise "expnad_inner: not cloned cell"
+    end
     # clone しようとするセルが composit セルタイプ？
 …
       @cell_list, @cell_list2 = @celltype.expand( @name, @global_name, @NamespacePath, @join_list, @region, @plugin, @locale )
     end
   end
   #=== Cell# clone された cell の join_list の右辺の変更
   #  呼び口の右辺の cell を他の clone された cell に置換え
   def change_rhs_port
+  def change_rhs_port cloned_cell_list
     # debug
     dbgPrint "Cell change_rhs_port: global_name: #{@global_name}\n"
+    dbgPrint "=====   Cell#change_rhs_port: name=#{@name}   =====\n"
     @join_list.get_items.each { |j|
+      j.change_rhs_port( @@cloned_cell_list, @celltype )
+    }
+    if @celltype.instance_of?( CompositeCelltype ) then
+      # 入れ子のセルについても変更
+      @cell_list.each{ |name,c|
+        c.change_rhs_port
+      }
+    end
+      j.change_rhs_port( cloned_cell_list, @celltype )
+    }
   end
 …
   def is_in_composite?
     @in_composite
+  end
+  #=== Cell# composite のセルか？
+  def is_of_composite?
+    if @celltype.kind_of? CompositeCelltype
+      return true
+    else
+      return false
+    end
+  end
+  #=== Cell# tmp_plugin_post_code.cdl で生成されたセルか？
+  def post_code_generated?
+    @b_post_code_generated
   end
 …
       # セルタイプ内で port_name の CompositeCelltypeJoin を探す（コード生成段階では必ず見つかる）
+      # print "get_real_cell: cell=#{@name} port=#{port_name}\n"
+      # pp @cell_list
       cj = @celltype.find_export( port_name )
 …
   end
+  #=== Cell#get_real_celltype
+  #
+  def get_real_celltype( port_name )
+    if @celltype.instance_of?( CompositeCelltype ) then
+      return @celltype.get_real_celltype port_name
+    else
+      return @celltype
+    end
+  end
   #=== Cell# 受け口のport の参照カウントをアップする
 …
   end
+  #Cell#属性の初期値を得る
+  #attr_name::Symbol  必ず初期化されていないと Ruby 例外となる
+  def get_attr_initializer attr_name
+    val = @join_list.get_item( attr_name )
+    if val == nil then
+      val = (@celltype.find  attr_name).get_initializer
+    else
+      val = val.get_rhs
+    end
+    return val
+  end
   def get_celltype
     @celltype
 …
   #=== Cell# composite の内側セルの受け口配列の添数の最大値を設定
   def set_entry_inner_port_max_subscript( port, num )
     if @cell_list == nil then   # mikan これって問題ない？
       return    # プロトタイプ宣言しかされていなくて、内側セルが展開されていない
+    if @cell_list == nil then
+      return    # プロトタイプ宣言しかされていなくて、内側セルが展開されていない　or composite 展開前
     end
     # composite の内側のセルに伝播
     if @celltype.instance_of? CompositeCelltype then
+      dbgPrint "set_entry_inner_port_max_subscript #{@name} #{@port} #{num} cell_list.len=#{@cell_list.length}\n"
+      # @cell_list.each{ |c, p| print c, p, '\n' }
       cj = @celltype.find_export port.get_name
       if cj && @cell_list[ cj.get_cell_name.to_s ] then
 …
         else
           cell = j.get_rhs_cell2
           next if cell == nil     # 右辺が見つからなかった．既にエラー
+          next if cell == nil || cell.get_celltype == nil     # 右辺が見つからなかった．既にエラー
           port = cell.get_celltype.find( j.get_rhs_port2 )
+          if port == nil then
+            dbgPrint "set_port_ref: #{@name}.#{j.get_name} = #{cell.get_name}.#{j.get_rhs_port2}\n"
+            # through プラグインで生成されたセルの受け口が見つからないケース (のハズ)
+            cdl_error( "entry '$1' not found in '$2' refered from $3.$4", j.get_rhs_port2, cell.get_name, @name, j.get_name )
+            next
+          end
           dbgPrint( "set_port_reference_count: #{@name}.#{j.get_name} => #{cell.get_name}.#{port.get_name}\n")
           cell.port_referenced port
 …
+          }
         else
+          dbgPrint "set_definition_join: #{@name}.#{join.get_name} celltype=#{@celltype.get_name}\n"
           join.set_definition( @celltype.find(join.get_name) )
         end
 …
       expand
     end
-    # celltype に generate が指定されされているか
-    celltype_plugin = @celltype.get_celltype_plugin
-    if celltype_plugin then
-      begin
-        celltype_plugin.new_cell self
-      rescue Exception => evar
-        cdl_error( "S1037 $1: celltype plugin fail to new_cell" , celltype_plugin.class.name )
-        print_exception( evar )
-      end
-    end
   end
 …
     #debug
+    dbgPrint "expanding #{@name} #{@celltype.get_name}\n"
+    # 展開されたセルのリスト
+    @@cloned_cell_list = {}
+    dbgPrint "=====    expanding   #{@name}     =====\n"
     # composite celltype の cell を展開
 …
       set_f_ref
     end
+    # 呼び口の右辺のセルを clone したものに変更
+    self.change_rhs_port
+  end
+  #=== Cell#内部セルの受け口添数最大値を設定
+  def set_max_entry_port_inner_cell
+    if @cell_list == nil then
+      return
+    end
+    dbgPrint "set_max_entry_port_inner_cell name=#{@name} entry_array_max_subscript.len=#{@entry_array_max_subscript.length}\n"
     # プロトタイプ宣言で設定されていたものを反映する
     @entry_array_max_subscript.each{ |port,name|
+      dbgPrint "set_entry_inner_port_max_subscript( #{port}, #{name} )\n"
       set_entry_inner_port_max_subscript( port, name )
+    }
 …
   #=== Cell#restrict を追加
   def add_restrict( entry_name, func_name, region_name_list )
+    if @restrict_list[ entry_name ] then
+      if @restrict_list[ entry_name ][ func_name ] then
+        @restrict_list[ entry_name ][ func_name ].each{ |rn|
+          if region_name_list.include? rn then
+            # p func_name
+            name = func_name ? entry_name : entry_name+"."+func_name
+            cdl_warning( "W9999 $1 restrict region duplicate $2", name, rn )
+    if @restrict_list[ entry_name ] == nil then
+      @restrict_list[ entry_name ] = {}
+      @restrict_list2[ entry_name ] = {}
+    end
+    if @restrict_list[ entry_name ][ func_name ] == nil then
+      @restrict_list[ entry_name ][ func_name ] = []
+      @restrict_list2[ entry_name ][ func_name ] = []
+    end
+    region_name_list.each { |rp|
+      @restrict_list[ entry_name ][ func_name ] << rp
+      # p "Class: " + rp.to_s
+      obj = Namespace.find rp
+      if ( obj.kind_of? Region ) then
+        @restrict_list2[ entry_name ][ func_name ] << obj.get_domain_root
+      else
+        cdl_error( "S9999 $1 not found or not region", rp.to_s )
+      end
+    }
+  end
+  #=== Cell#check_restrict_list
+  def check_restrict_list
+    # p "check_restrict_list"
+    @restrict_list.each{ |entry_name, func_hash|
+      func_hash.each{ |func_name, region_list|
+        region_list.each{ |rp|
+          obj = Namespace.find rp
+          if ( obj.kind_of? Region ) then
+            if obj.get_domain_root != @region.get_domain_root then
+            else
+              cdl_info( "I9999 $1: restrict calling domain to $2, which is same domain as the cell locates", @name, rp.to_s )
+              # restrict を同じドメインを指定してもよいこととする (HRP3)
+              # KernelDoamin 内のセルに対し、KernelDomain に restrict している場合、
+              # 無所属経由で結合されているが、KernelDomain から呼出すことを想定した許可
+            end
+          else
+            cdl_error( "S9999 $1 not region", rp.to_s )
+          end
+        }
+      }
+    }
+  end
+  #=== Cell#callable?
+  def callable?( callee_cell, entry_name, func_name )
+    # p "callable? #{@name}"
+    res = callee_cell.callable_from?( entry_name, func_name, self )
+    dbgPrint "callable? #{callee_cell.get_namespace_path}.#{entry_name}.#{func_name} from #{@NamespacePath} is #{res}\n"
+    return res
+  end
+  #=== Cell#callable_from? (private)
+  def callable_from?( entry_name, func_name, caller_cell )
+    @b_restrict_referenced = true
+    if @restrict_list.length == 0 then
+      return true
+    end
+    dr = caller_cell.get_region.get_domain_root
+    if @restrict_list[entry_name] then
+      if @restrict_list[entry_name][func_name] then
+        @restrict_list2[entry_name][func_name].each{ |region|
+          if dr == region then
+            return true
+          end
+        }
+      elsif @restrict_list[entry_name][nil] then
+        @restrict_list2[entry_name][nil].each{ |region|
+          if dr == region then
+            return true
           end
+        }
       else
+        @restrict_list[ entry_name ][ func_name ] = region_name_list
+      end
+    else
+      func_list = { }
+      func_list[ func_name ] = region_name_list
+      @restrict_list[ entry_name ] = func_list
+    end
+    # pp @restrict_list
+  end
+  #=== Cell#check_restrict_list
+  def check_restrict_list
+    @restrict_list.each{ |entry_name, func_hash|
+      func_hash.each{ |func_name, region_list|
+        region_list.each{ |rn|
+          obj = Namespace.find [ rn ]
+          if ( obj.kind_of? Region ) then
+            if obj.get_domain_root != @region.get_domain_root then
+            else
+              cdl_warning( "W9999 $1 in same domain", rn )
+            end
+          else
+            cdl_error( "S9999 $1 not region", region )
+          end
+        }
+      }
+    }
+  end
+  #=== Cell#callable?
+  def callable?( callee_cell, entry_name, func_name )
+    res = callee_cell.callable_from?( entry_name, func_name, self )
+    dbgPrint "callable? #{callee_cell.get_namespace_path}.#{entry_name}.#{func_name} from #{@NamespacePath} is #{res}\n"
+    return res
+  end
+  #=== Cell#callable_from? (private)
+  def callable_from?( entry_name, func_name, caller_cell )
+    if @restrict_list.length == 0 then
+        return false
+      end
+    else
+      return false
+    end
+  end
+  #=== Cell#get_callable_regions( entry_name, func_name )
+  # func_name=nil の場合、entry_name の可否をチェック数る
+  # nil が返る場合、制限されていないことを意味する
+  def get_restricted_regions( entry_name, func_name )
+    # p "get_restricted_regions #{@name}"
+    @b_restrict_referenced = true
+    if @restrict_list[entry_name] then
+      if @restrict_list[entry_name][func_name] then
+        return @restrict_list2[entry_name][func_name]
+      else
+        return @restrict_list2[entry_name][nil]
+      end
+    end
+    return nil
+  end
+  #=== Cell#has_ineffective_restrict_specifier
+  # restrict 指定子が指定されていて、参照されていない場合 true
+  # 参照は、HRPSVCPlugin のみ
+  def has_ineffective_restrict_specifier
+    if @restrict_list.length != 0 && @b_restrict_referenced == false then
       return true
+    end
+    if @restrict_list[entry_name] then
+      if @restrict_list[entry_name][nil] &&
+         @restrict_list[entry_name][nil].include?( caller_cell.get_region.get_domain_root.get_name )then
+        return true
+      end
+      if @restrict_list[entry_name][func_name] &&
+         @restrict_list[entry_name][func_name].include?( caller_cell.get_region.get_domain_root.get_name )then
+        return true
+      else
+        return false
+      end
+    else
+      return true
+    end
+  end
+    else
+      return false
+    end
+  end
   def show_tree( indent )
     indent.times { print "  " }
 …
 # @name:: str
 # @global_name:: str
+# @cell_list:: NamedList   Cell
+# @cell_list_in_composite:: NamedList   Cell
+# @cell_list::Array :: [ Cell ] : cell of CompositeCelltype's cell
 # @export_name_list:: NamedList : CompositeCelltypeJoin
 # @port_list:: CompositeCelltypeJoin[]
 …
 # @name_list:: NamedList item: Decl (attribute), Port エクスポート定義
 # @internal_allocator_list:: [ [cell, internal_cp_name, port_name, func_name, param_name, ext_alloc_ent], ... ]
+# @generate:: [ Symbol, String, Plugin ]  = [ PluginName, option, Plugin ] Plugin は生成後に追加される
+# @generate_list:: [ [ Symbol, String, Plugin ], ... ]   generate 文で追加された generate
   @@nest_stack_index = -1
   @@nest_stack = []
   @@current_object = nil
+  include CelltypePluginModule
+  include PluginModule
   def self.push
 …
     super()
     @name = name
+    @cell_list = NamedList.new( nil, "in composite celltype #{name}" )
+    @cell_list_in_composite = NamedList.new( nil, "in composite celltype #{name}" )
+    @cell_list = []
     @export_name_list = NamedList.new( nil, "export in composite celltype #{name}" )
     @name_list = NamedList.new( nil, "in composite celltype #{name}" )
 …
     @attr_list = []
     @internal_allocator_list = []
+    @generate_list = []
     set_specifier_list( Generator.get_statement_specifier )
   end
 …
   # CompositeCelltype#end_of_parse
   def end_of_parse
     # singleton に関するチェック
     if @b_singleton && @real_singleton == nil then
 …
     # mikan relay が正しく抜けているかチェックされていない
+    # callback 結合
+    @cell_list_in_composite.get_items.each{ |c|
+      ct = c.get_celltype
+      if ct then
+        c.create_reverse_join
+      end
+    }
     # 意味解析
     @cell_list.get_items.each{ |c|
+    @cell_list_in_composite.get_items.each{ |c|
       c.set_definition_join
+    }
     # cell の未結合の呼び口がないかチェック
     @cell_list.get_items.each{ |c|
+    @cell_list_in_composite.get_items.each{ |c|
       c.check_join
       c.check_reverse_require
 …
+      }
+    }
+  end
+ ### cell (CompositeCelltype)
+  def self.new_cell( cell )
+    @@current_object.new_cell( cell )
+  end
+  def new_cell( cell )
+    # composite プラグイン
+    if @generate then
+      celltype_plugin
+    end
+  end
+ ### CompositeCelltype#new_cell_in_composite
+  def self.new_cell_in_composite( cell )
+    @@current_object.new_cell_in_composite( cell )
+  end
+  def new_cell_in_composite( cell )
     cell.set_owner self  # Cell (in_omposite)
     @cell_list.add_item( cell )
+    @cell_list_in_composite.add_item( cell )
     if cell.get_celltype then    # nil ならば、すでにセルタイプなしエラー
       if cell.get_celltype.is_singleton? then
 …
                                          internal_cell_elem_name, type )
+  end
+ ### CompositeCelltype#new_cell
+  def new_cell cell
+    @cell_list << cell
+    # セルタイププラグインの適用
+    celltype_plugin_new_cell cell
   end
 …
     dbgPrint "new_join: #{export_name} #{internal_cell_name} #{internal_cell_elem_name}\n"
     cell = @cell_list.get_item( internal_cell_name )
+    cell = @cell_list_in_composite.get_item( internal_cell_name )
     if cell == nil then
       cdl_error( "S1057 $1 not found in $2" , internal_cell_name, @name )
 …
         elsif obj.is_omit? != obj2.is_omit? then
           cdl_error( "S9999 $1 : omit specifier mismatch with previous definition" , export_name )
+        elsif obj.is_dynamic? != obj2.is_dynamic? then
+          cdl_error( "S9999 $1 : dynamic specifier mismatch with previous definition" , export_name )
+        elsif obj.is_ref_desc? != obj2.is_ref_desc? then
+          cdl_error( "S9999 $1 : ref_desc specifier mismatch with previous definition" , export_name )
         end
       else
 …
   def find name
     dbgPrint "CompositeCelltype: find in composite: #{name}\n"
     cell = @cell_list.get_item( name )
+    cell = @cell_list_in_composite.get_item( name )
     return cell if cell
 …
     clone_cell_list = {}
     clone_cell_list2 = []
+    clone_cell_list3 = {}
     #  composite 内部のすべての cell について
     @cell_list.get_items.each { |c|
+    @cell_list_in_composite.get_items.each { |c|
       # debug
 …
           # debug
           if j then
             dbgPrint "expand : parent cell: #{name} child cell: #{c.get_name}:  parent's export port: #{cj.get_name}  join: #{j.get_name} #{j}\n"
+            dbgPrint "  REWRITE_EX parent cell: #{name} child cell: #{c.get_name}:  parent's export port: #{cj.get_name}  join: #{j.get_name}=>#{j.get_rhs.to_s}\n"
           else
             dbgPrint "expand : parent cell: #{name} child cell: #{c.get_name}:  parent's export port: #{cj.get_name}  join: nil\n"
 …
       clone_cell_list[ "#{c.get_local_name}" ] = c2
       clone_cell_list2 << c2
+      clone_cell_list3[ c ] = c2
+    }
 …
         j.set_cloned( clone_cell_list[ "#{c.get_local_name}" ] )
+      }
+      dbgPrint "change_rhs_port: inner cell #{c.get_name}\n"
+      c.change_rhs_port clone_cell_list3
+    }
+    clone_cell_list2.each { |c|
+      c.expand_inner
+    }
     return [ clone_cell_list, clone_cell_list2 ]
 …
       when :ACTIVE
         @b_active = true
+      when :GENERATE
+        if @generate then
+          cdl_error( "S9999 generate specifier duplicate"  )
+        end
+        @generate = [ s[1], s[2] ] # [ PluginName, "option" ]
       else
         cdl_error( "S1071 $1 cannot be specified for composite" , s[0] )
 …
   end
+  def get_global_name
+    @global_name
+  end
   def get_port_list
     @port_list
 …
   def get_internal_allocator_list
     @internal_allocator_list
+  end
+  #== CompositeCelltype#get_real_celltype
+  # port_name に接続されている内部のセルタイプを得る
+  def get_real_celltype( port_name )
+    cj = find_export port_name
+    inner_celltype = cj.get_cell.get_celltype
+    if inner_celltype.instance_of? CompositeCelltype then
+      return inner_celltype.get_real_celltype
+    else
+      return inner_celltype
+    end
   end
 …
   def is_inactive?
     if @b_active == false then
       @cell_list.get_items.each{ |c|
+      @cell_list_in_composite.get_items.each{ |c|
         if c.get_celltype && c.get_celltype.is_inactive? == false then
           # c.get_celltype == nil の場合はセルタイプ未定義ですでにエラー
 …
     (indent+1).times { print "  " }
     puts "active: #{@b_active}, singleton: #{@b_singleton}"
     @cell_list.show_tree( indent + 1 )
+    @cell_list_in_composite.show_tree( indent + 1 )
     (indent+1).times { print "  " }
     puts "name_list"
 …
 # @b_omit:: bool : omit 指定子が指定された (call port のみ)
 # @b_optional:: bool : call port のみ
 # @b_ref_des:: bool :  ref_desc キーワードが指定された
+# @b_ref_desc:: bool :  ref_desc キーワードが指定された
 # @b_dynamic:: bool :  dynamic キーワードが指定された (呼び口のみ)
+#
 …
     @b_inline = false
     @b_optional = false
+    @b_omit = false
     @b_ref_desc = false
     @b_dynamic = false
 …
     else
       # entry port optimize
       if $unopt then
+      if $unopt || $unopt_entry then
         # 最適化なし
         @b_VMT_useless = false                     # VMT 不要 (true の時 VMT を介することなく呼出す)
 …
         @b_optional = true
       when :REF_DESC
+        if @port_type == :ENTRY then
+          cdl_error( "S9999 ref_desc: cannnot be specified for entry port" )
+          next
+        end
         @b_ref_desc = true
       when :DYNAMIC
 …
       end
+    }
+    if ( @b_dynamic || @b_ref_desc ) then
+      if @b_dynamic then
+        dyn_ref = "dynamic"
+      else
+        dyn_ref = "ref_desc"
+      end
+      if @b_omit then     # is_omit? は is_empty? も含んでいるので使えない
+        cdl_error( "S9999 omit cannot be specified with $1", dyn_ref  )
+      elsif @signature && @signature.is_empty? then
+        cdl_error( "S9999 $1 cannot be specified for empty signature", dyn_ref  )
+      elsif @signature && @signature.has_descriptor? then
+        # cdl_error( "S9999 $1 port '$2' cannot have Descriptor in its signature", dyn_ref, @name )
+      end
+    elsif @b_dynamic && @b_ref_desc then
+      cdl_error( "S9999 both dynamic & ref_desc cannot be specified simultaneously"  )
+    end
   end
 …
   def is_VMT_useless?                     # VMT 関数テーブルを使用しない
+   @b_VMT_useless
+    if @port_type == :ENTRY && $unopt_entry == true then
+      # プラグインから $unopt_entry を設定するケースのため
+      # ここで読み出すときに、false を返す (reset_optimize での設定変更は速すぎる)
+      return false
+    else
+      return @b_VMT_useless
+    end
   end
   def is_skelton_useless?                 # スケルトン関数不要   (true の時、受け口関数を呼出す)
+    @b_skelton_useless
+    if @port_type == :ENTRY && $unopt_entry == true then
+      # プラグインから $unopt_entry を設定するケースのため
+      # ここで読み出すときに、false を返す (reset_optimize での設定変更は速すぎる)
+      return false
+    else
+      return @b_skelton_useless
+    end
   end
 …
   def is_reverse_required?
     @reverse_require_cell_path != nil
+  end
+  #=== Port# is_dynamic?
+  def is_dynamic?
+    @b_dynamic
+  end
+  #=== Port# is_ref_desc?
+  def is_ref_desc?
+    @b_ref_desc
   end
 …
       if ! c.get_f_def then   # Namespace の @cell_list にはプロトタイプが含まれるケースあり
         if c.get_f_ref then
           cdl_error( "S1093 $1 : undefined cell" , c.get_namespace_path.get_path_str )
+          c.cdl_error( "S1093 $1 : undefined cell" , c.get_namespace_path.get_path_str )
         elsif $verbose then
           cdl_warning( "W1006 $1 : only prototype, unused and undefined cell" , c.get_namespace_path.get_path_str )
+          c.cdl_warning( "W1006 $1 : only prototype, unused and undefined cell" , c.get_namespace_path.get_path_str )
         end
       else
 …
         # if c.get_f_ref == false && c.is_generate? && ct && ct.is_inactive? then
         if c.get_f_ref == false && ct && ct.is_inactive? then
+          cdl_warning( "W1007 $1 : non-active cell has no entry join and no factory" , c.get_namespace_path.get_path_str )
+          c.cdl_warning( "W1007 $1 : non-active cell has no entry join and no factory" , c.get_namespace_path.get_path_str )
+        end
+        if c.has_ineffective_restrict_specifier then
+          c.cdl_warning( "W9999: $1 has ineffective restrict specifier", c.get_namespace_path.get_path_str )
         end
       end
 …
   end
+  #=== Namespace# set_max_entry_port_inner_cell
+  # セルタイプに属するすべてのセルに対して実施
+  def set_max_entry_port_inner_cell
+    # celltype のコードを生成
+    @cell_list.each { |c|
+      c.set_max_entry_port_inner_cell
+    }
+    @namespace_list.each{ |ns|
+      ns.set_max_entry_port_inner_cell
+    }
+  end
   #=== Namespace# セルの結合をチェックする
   def check_join
 …
   end
+  #== Namespace (Region) に属するセルのリスト
+  def get_cell_list
+    @cell_list
+  end
+  #== Namespace (Region)# 子リージョンのリスト
+  #
+  # リージョンは Namespace クラスで namespace として記憶されている
+  def get_region_list
+    @namespace_list
+  end
   def show_tree( indent )
     indent.times { print "  " }
 …
     if object == nil then                                             # (2)
       cdl_error( "S1109 \'$1\' not found" , @cell_name )
+      cdl_error( "S1109 \'$1\' not found" , nsp.to_s )
     elsif ! object.instance_of?( Cell ) then                          # (3)
       cdl_error( "S1110 \'$1\' not cell" , @cell_name )
+      cdl_error( "S1110 \'$1\' not cell" , nsp.to_s )
     else
       dbgPrint "set_definition: set_f_ref #{@owner.get_name}.#{@name} => #{object.get_name}\n"
 …
           next_cell_nsp       = @through_generated_list[ i + 1 ].get_cell_namespace_path
           next_port_name      = @through_generated_list[ i + 1 ].get_through_entry_port_name
+          next_port_subscript = @through_generated_list[ i + 1 ].get_through_entry_port_subscript
         rescue Exception => evar
           cdl_error( "S1124 $1: plugin function failed: \'get_through_entry_port_name\'" , plugin_name )
 …
         next_cell      = @cell
         next_port_name = @port_name
+        next_port_subscript = @rhs_subscript
         if next_cell == nil then
 …
         # region から @cell_name.@port_name への through がないか探す
         # rp = @through_list[i][3].find_cell_port_through_plugin( @cell_name, @port_name ) #762
         rp = @through_list[i][3].find_cell_port_through_plugin( @cell.get_global_name, @port_name )
+        rp = @through_list[i][3].find_cell_port_through_plugin( @cell.get_global_name, @port_name, @rhs_subscript )
            # @through_list[i] と @region_through_list[i-cp_len] は同じ
         # 共用しないようにするには、見つからなかったことにすればよい
 …
       if rp == nil then
+        if( load_plugin( plugin_name, ThroughPlugin ) ) then
+          gen_through_cell_code_and_parse( plugin_name, i, next_cell, next_port_name )
+        plClass = load_plugin( plugin_name, ThroughPlugin )
+        if( plClass ) then
+          gen_through_cell_code_and_parse( plugin_name, i, next_cell, next_port_name, next_port_subscript, plClass )
         end
       else
 …
           # 生成したものを region(@through_list[i][3]) のリストに追加
           # @through_list[i][3].add_cell_port_through_plugin( @cell_name, @port_name, @through_generated_list[i] ) #762
           @through_list[i][3].add_cell_port_through_plugin( @cell.get_global_name, @port_name, @through_generated_list[i] )
+          @through_list[i][3].add_cell_port_through_plugin( @cell.get_global_name, @port_name, @rhs_subscript, @through_generated_list[i] )
         end
       end
 …
   #=== Join# through プラグインを呼び出して CDL 生成させるとともに、import する
   def gen_through_cell_code_and_parse( plugin_name, i, next_cell, next_port_name )
+  def gen_through_cell_code_and_parse( plugin_name, i, next_cell, next_port_name, next_port_subscript, plClass )
     through = @through_list[ i ]
 …
     end
     @@plugin_creating_join = self
     caller_cell = @owner
-    plugin_object = nil
-    eval_str = "plugin_object = #{plugin_name}.new( '#{generating_cell_name}'.to_sym, plugin_arg.to_s, next_cell, '#{next_port_name}'.to_sym, @definition.get_signature, @celltype, caller_cell )"
-    if $verbose then
-      print "new through: #{eval_str}\n"
-    end
     begin
+      eval( eval_str )     # plugin を生成
+      plugin_object = plClass.new( generating_cell_name.to_sym, plugin_arg.to_s,
+                                   next_cell, next_port_name.to_sym, next_port_subscript,
+                                   @definition.get_signature, @celltype, caller_cell )
       plugin_object.set_locale @locale
     rescue Exception => evar
 …
         print "signature: #{@definition.get_signature.get_name} from: #{caller_cell.get_name} to: #{next_cell.get_name} of celltype: #{@celltype.get_name}\n"
       end
-      print "eval( #{eval_str} )\n"
       print_exception( evar )
       return
 …
   end
+  def get_rhs_subscript
+  # 末尾数字1 : CDL で指定された、右辺のセルを返す
+  def get_rhs_cell1   # get_cell と同じ
+    @cell
+  end
+  def get_rhs_port1   # get_port_name 同じ
+    @port_name
+  end
+  def get_rhs_subscript1
     @rhs_subscript
   end
 …
     # through 指定あり？
     if @through_list[0] then
-      # mikan through で生成したものが root namespace 限定
       # through で生成されたセルを探す
-#      cell = Namespace.find( [ "::", @through_generated_list[0].get_cell_name.to_sym ] )    #1
       cell = Namespace.find( @through_generated_list[0].get_cell_namespace_path )    #1
       # cell のプラグインで生成されたポート名のポートを探す (composite なら内部の繋がるポート)
 …
       # ポートを返す(composite なら内部の繋がるポートを返す)
       return @cell.get_real_port( @port_name )
+    end
+  end
+  #=== Join# 右辺の配列添数を得る
+  #    右辺が through の場合は挿入されたセルの添数
+  #    右辺が composite の場合は、内部の繋がるセルのポートの添数 (composite では変わらない)
+  #    このメソッドは get_rhs_cell,  と対になっている
+  def get_rhs_subscript
+    if @through_list[0] then
+      return @through_generated_list[0].get_through_entry_port_subscript
+    else
+      return @rhs_subscript
     end
   end
 …
   # composite cell を展開したセルの結合を clone したセルの名前に変更
   def change_rhs_port( clone_cell_list, celltype )
+    dbgPrint "change_rhs_port: name=#{@name}\n"
     # debug
     if $debug then
+      dbgPrint "change_rhs name: #{@name}  cell_name: #{@cell_name} #{@cell} #{self}\n"
+#    if @name == :cCallB then
+      # dbgPrint "change_rhs name: #{@name}  cell_name: #{@cell_name} #{@cell} #{self}\n"
+      print "============\n"
+      print "CHANGE_RHS change_rhs name: #{@owner.get_name}.#{@name}  rhs cell_name: #{@cell_name} #{@cell} #{self}\n"
       clone_cell_list.each{ |cell, ce|
+        dbgPrint "change_rhs:  #{cell.get_name}=#{cell} : #{ce.get_name}\n"
+        # dbgPrint "=== change_rhs:  #{cell.get_name}=#{cell} : #{ce.get_name}\n"
+        print "   CHANGE_RHS  change_rhs:  #{cell.get_name}=#{cell} : #{ce.get_name}\n"
+      }
+      print "============\n"
     end
 …
     # debug
     dbgPrint "  cell_name:   #{@cell_name} => #{c.get_global_name}, #{c.get_name}\n"
+    dbgPrint "  REWRITE cell_name:  #{@owner.get_name}   #{@cell_name} => #{c.get_global_name}, #{c.get_name}\n"
     # @rhs の内容を調整しておく（この内容は、subscript を除いて、後から使われていない）
 …
       # debug
       # p "array_member2.len : #{@array_member.length}"
+      dbgPrint "array_member2.len : #{@array_member.length}\n"
       i = 0
 …
         # 無駄に設定されているものについては、再帰的に呼び出す必要はない（clone_for_composite では対策している）
         if @array_member2[i] != self && @array_member[i] != nil then
+          dbgPrint "change_rhs array_member #{i}: #{@name}  #{@cell_name}\n"
           @array_member2[i].change_rhs_port( clone_cell_list, celltype )
         end
 …
   # @through_list などもコピーされるので、これが呼び出される前に確定する必要がある
   def clone_for_composite( ct_name, cell_name, locale, b_need_recursive = true )
     # debug
     dbgPrint "join.clone_for_composite : #{@name} #{@cell_name} #{self}\n"
+    dbgPrint "=====  clone_for_composite: #{@name} #{@cell_name} #{self}   =====\n"
     cl = self.clone
     if @array_member2 && b_need_recursive then
       cl.clone_array_member( @array_member, @array_member2, ct_name, cell_name, self, locale )
+      cl.clone_array_member( ct_name, cell_name, self, locale )
     end
 …
   end
   def clone_array_member( array_member, array_member2, ct_name, cell_name, prev, locale )
+  def clone_array_member( ct_name, cell_name, prev, locale )
     # 配列のコピーを作る
     am  = array_member.clone
     am2 = array_member2.clone
+    am  = @array_member.clone
+    am2 = @array_member2.clone
     # 配列要素のコピーを作る
     i = 0
     while i < am2.length
       if array_member2[i] == prev then
+      if @array_member2[i] == prev then
         # 自分自身である（ので、呼出すと無限再帰呼出しとなる）
         am2[i] = self
+      elsif array_member2[i] then
+        am2[i] = array_member2[i].clone_for_composite( ct_name, cell_name, locale, false )
+        am[i] = am2[i].get_rhs
+      elsif @array_member2[i] then
+#        am2[i] = @array_member2[i].clone_for_composite( ct_name, cell_name, locale, false )
+        am2[i] = @array_member2[i].clone_for_composite( ct_name, cell_name, locale, true )
+        am[i] = am2[i].get_rhs
       else
         # 以前のエラーで array_member2[i] は nil になっている
 …
       # debug
       dbgPrint "clone_array_member: #{@name} #{am2[i]} #{array_member2[i]}\n"
+      dbgPrint "clone_array_member: #{@name} subsript=#{i} #{am2[i]} #{@array_member2[i]}\n"
       i += 1
 …
     dbgPrint "Join#set_cloned: #{@name}  prev owner: #{@owner.get_name} new owner: #{owner.get_name}\n"
     @owner = owner
+    if @array_member2 then
+      @array_member2.each{ |join|
+        dbgPrint "Joinarray#set_cloned: #{@name}  prev owner: #{join.get_owner.get_name} new owner: #{owner.get_name}\n"
+        join.set_owner owner
+      }
+    end
   end
 …
         if j then
           (indent+2).times { print "  " }
           puts "[#{i}]: #{j.get_name}  id: #{j}"
+          puts "[#{i}]: #{j.get_name}  id: #{j} owner=#{j.get_owner.get_name}"
           j.get_rhs.show_tree(indent+3)
+          (indent+3).times { print "  " }
+          puts "cell global name: #{j.get_cell_global_name}"
+          (indent+3).times { print "  " }
+          puts "port global name: #{j.get_port_global_name}"
+#          (indent+3).times { print "  " }
+#          puts "cell global name: #{j.get_cell_global_name}"
+#          puts "cell global name: #{j.get_rhs_cell.get_global_name}"
+#          (indent+3).times { print "  " }
+#          puts "port global name: #{j.get_port_global_name}"
+#          puts "port global name: #{j.get_rhs_port.get_name}"
         else
           (indent+2).times { print "  " }
 …
 end
 #== Domain
+#== DomainType
+#
 # region の domain を記憶するクラス
 …
     @name = name
     @plugin_name = (name.to_s + "Plugin").to_sym
     load_plugin( @plugin_name, DomainPlugin )
+    plClass = load_plugin( @plugin_name, DomainPlugin )
     @region = region
     @option = option
 …
     if ! @plugin then
       pluginClass = Object.const_get @plugin_name
+      return if pluginClass == nil
       @plugin = pluginClass.new( @region, @name, @option )
+      @plugin.set_locale @locale
     end
   end
 …
   end
   #== Domain リージョンの Hash を得る
+  #== DomainType リージョンの Hash を得る
   # @@domain_regions の説明参照
   def self.get_domain_regions
 …
   def get_option
     @option
+  end
+  #== DomainType#ドメイン種別を得る
+  #return::Symbol :kernel, :user, :OutOfDomain
+  def get_kind
+    @plugin.get_kind
   end
 …
     if @@domain_name then
+      dbgPrint "Region=#{name} domain_type=#{@@domain_name} option=#{@@domain_option}\n"
       domain_option = CDLString.remove_dquote @@domain_option.to_s
       @domain_type = DomainType.new( self, @@domain_name, domain_option )
 …
         # 再出現時に specifier が指定されているか？
+        if( @in_through_list.length != 0 || @out_through_list.length != 0 || @to_through_list.length != 0 || @region_type != nil )then
+        if( @in_through_list.length != 0 || @out_through_list.length != 0 || @to_through_list.length != 0 ||
+            @region_type != nil || @domain_type != nil )then
           cdl_error( "S1140 $1: region specifier must place at first appearence" , name )
         end
 …
   end
+  #== Region# ルートリージョン
+  # ルートリージョンは、namespace のルートと同じインスタンス
+  def selfget_root
+    Namespace.get_root
+  end
   def next_in_through_count
     @in_through_count += 1
 …
   #=== Region# through プラグインで、この region から cell_name.port_name へのプラグインオブジェクトを登録
   # mikan namesppace 対応 (cell_name)
+  def add_cell_port_through_plugin( cell_name, port_name, through_plugin_object )
+    @cell_port_throug_plugin_list[ "#{cell_name}.#{port_name}" ] = through_plugin_object
+  end
+  def find_cell_port_through_plugin( cell_name, port_name )
+    return @cell_port_throug_plugin_list[ "#{cell_name}.#{port_name}" ]
+  def add_cell_port_through_plugin( cell_name, port_name, subscript, through_plugin_object )
+    if subscript then
+      subscript = '[' + subscript.to_s + ']'
+    end
+    @cell_port_throug_plugin_list[ "#{cell_name}.#{port_name}#{subscript}" ] = through_plugin_object
+  end
+  def find_cell_port_through_plugin( cell_name, port_name, subscript )
+    if subscript then
+      subscript = '[' + subscript.to_s + ']'
+    end
+    return @cell_port_throug_plugin_list[ "#{cell_name}.#{port_name}#{subscript}" ]
   end
 …
 end
+#== Importable class
+# this module is included by Import_C and Import
+module Importable
+#@last_base_dir::String
+  #=== Importable#find_file
+  #file::String : file name to find
+  #return::String | Nil: path to file or nil if not found
+  #find file in
+  def find_file file
+    $import_path.each{ |path|
+      if path == "."
+        pt = file
+      else
+        pt = "#{path}/#{file}"
+      end
+      if File.exist?( pt )
+        if ! $base_dir[ Dir.pwd ]
+          $base_dir[ Dir.pwd ] = true
+        end
+        if $verbose then
+          print "#{file} is found in #{path}\n"
+        end
+        @last_base_dir = nil
+        dbgPrint "base_dir=. while searching #{file}\n"
+        return pt
+      end
+    }
+    $base_dir.each_key{ |bd|
+      $import_path.each{ |path|
+#        if path =~ /\A\// || path =~ /\A[a-zA-Z]:/
+          pt = "#{path}/#{file}"
+#        else
+#          pt = "#{bd}/#{path}/#{file}"
+#        end
+        begin
+          Dir.chdir $run_dir
+          Dir.chdir bd
+          if File.exist?( pt )
+            if $verbose then
+              print "#{file} is found in #{bd}/#{path}\n"
+            end
+            @last_base_dir = bd
+            dbgPrint "base_dir=#{bd} while searching #{file}\n"
+            $base_dir[ bd ] = true
+            return pt
+          end
+        rescue
+        end
+      }
+    }
+    @last_base_dir = nil
+    dbgPrint "base_dir=. while searching #{file}\n"
+    return nil
+  end
+  def get_base_dir
+    return @last_base_dir
+    $base_dir.each{ |bd, flag|
+      if flag == true
+        return bd
+      end
+    }
+    return nil
+  end
+end
 class Import_C < Node
 …
   @@header_list2 = []
   @@define_list = {}
+  include Importable
   #=== Import_C# import_C の生成（ヘッダファイルを取込む）
 …
+    }
+    header_path = find_file header
+=begin
     include_opt = ""
     found = false
 …
     if found == false then
+=end
+    if header_path == nil then
       cdl_error( "S1142 $1 not found in search path" , header )
       return
     end
+    include_opt = ""
+    if get_base_dir then
+      base = get_base_dir + "/"
+    else
+      base = ""
+    end
+    $import_path.each{ |path|
+      include_opt = "#{include_opt} -I #{base}#{path}"
+    }
     # 読込み済み？
 …
     @@header_list2 << header
     @@define_list[ header ] = define
+    if $verbose then
+      print "import_C header=#{header_path}, define=#{define}\n"
+    end
     begin
 …
  * --no-gcc-extension-support for tecsgen.
  */
+#ifdef __GNUC__
 #ifndef __attribute__
 #define __attribute__(x)
 …
 #endif
+#ifndef restrict
+#define restrict
+#endif
+#endif /* ifdef __GNUC__ */
 #endif /* TECS_NO_GCC_EXTENSION_SUPPORT */
 EOT
 …
 # @cdl_path:: string:   CDL のパス
 # @b_imported:: bool:   import された(コマンドライン指定されていない)
+  include Importable
   # ヘッダの名前文字列のリスト  添字：expand したパス、値：Import
 …
     @b_reuse_real = @b_reuse || Generator.is_reuse?
+    if Generator.get_plugin then
+      # plugin から import されている場合 gen をサーチパスの先頭に加える
+      search_path = [ $gen ] + $import_path
+    else
+      search_path = $import_path
+    end
+    search_path.each{ |path|
+      dbgPrint "import: searching #{path}/#{@cdl}"
+      begin
+        if path == "."
+          cdl_path =  @cdl
+        else
+          cdl_path = "#{path}/#{@cdl}"
+        end
+        # ファイルの stat を取ってみる(なければ例外発生)
+        File.stat( cdl_path )
+        # cdl を見つかったファイルパスに再設定
+        @cdl_path = cdl_path
+    if( Generator.get_plugin ) &&( File.exist? "#{$gen}/#{@cdl}" ) then
+      @cdl_path = "#{$gen}/#{@cdl}"
+      found = true
+    else
+      path = find_file @cdl
+      if path then
         found = true
+        dbgPrint ": found\n"
+        break
+      rescue => evar
+        found = false
+        dbgPrint ": not found\n"
+        # print_exception( evar )
+      end
+    }
+        @cdl_path = path
+      end
+    end
     if found == false then
 …
 end
 #== generate: signature プラグインのロードと実行
+#== generate: signature, celltype, cell へのプラグインのロードと適用
 class Generate < Node
 #@plugin_name:: Symbol
 #@signature_nsp:: NamespacePath
+#@object_nsp:: NamespacePath
 #@option::         String '"', '"' で囲まれている
+#@plugin_object:: Plugin
   include PluginModule
   def initialize( plugin_name, signature_nsp, option )
+  def initialize( plugin_name, object_nsp, option )
     super()
     @plugin_name = plugin_name
     @signature_nsp = signature_nsp
+    @object_nsp = object_nsp
     option = option.to_s    # option は Token
     @option = option
+    signature = Namespace.find( signature_nsp ) #mikan Namespace   #1
+    if ! signature.instance_of? Signature then
+      cdl_error( "S1149 $1 not signature" , signature_nsp )
+    @plugin_object = nil
+    dbgPrint "generate: #{plugin_name} #{object_nsp.to_s} option=#{option}\n"
+    object = Namespace.find( object_nsp )
+    if object.kind_of?( Signature ) ||
+       object.kind_of?( Celltype ) ||
+       object.kind_of?( CompositeCelltype ) ||
+       object.kind_of?( Cell )then
+      @plugin_object = object.apply_plugin( @plugin_name, @option )
+    elsif object then
+      # V1.5.0 以前の仕様では、signature のみ可能だった
+#      cdl_error( "S1149 $1 not signature" , signature_nsp )
+      cdl_error( "S9999 generate: '$1' neither signature, celltype nor cell", object_nsp )
       return
+    elsif signature.is_empty? then
+      cdl_warning( "S9999 $1 is empty. cannot apply signature plugin. ignored" , signature_nsp )
+      return
+    end
+    load_plugin( plugin_name, SignaturePlugin )
+    plugin_object = nil
+    eval_str = "plugin_object = #{plugin_name}.new( signature, option )"
+    if $verbose then
+      print "new through: #{eval_str}\n"
+    end
+    begin
+      eval( eval_str )     # plugin を生成
+      plugin_object.set_locale @locale
+    rescue Exception => evar
+      cdl_error( "S1150 $1: fail to new" , plugin_name )
+      print "eval( #{eval_str} )\n"
+      print_exception( evar )
+    end
+    generate_and_parse plugin_object
+    else
+      cdl_error( "S9999 generate: '$1' not found", object_nsp )
+    end
   end
 end

EcnlProtoTool/trunk/asp3_dcre/tecsgen/tecslib/core/ctypes.rb

-              r321
+              r429
 #      Generator for TOPPERS Embedded Component System
+#
 #   Copyright (C) 2008-2014 by TOPPERS Project
+#   Copyright (C) 2008-2017 by TOPPERS Project
 #--
 #   上記著作権者は，以下の(1)～(4)の条件を満たす場合に限り，本ソフトウェ
 …
       end
       return self
     else
+    elsif self.instance_of?( CFloatType ) then
       # mikan long double
       #   TECS には long double を表現する手段がない (double80_t を定義すればよいか?)
 #      cdl_warning( "C1003 $1 & $2 incompatible (\'long double\' is not supported.). Treated as $3." , self.class, another.class, self.class )
+      cdl_warning( "W9999 $1 & $2 incompatible (\'long double\' is not supported.). Treated as $3." , self.get_type_str, another.get_type_str, self.get_type_str )
+      return self
+#      cdl_warning( "W9999 $1 & $2 incompatible (\'long double\' is not supported.). Treated as $3." , self.get_type_str, another.get_type_str, self.get_type_str )
+      self.to_long
+      return self
+    else
+      raise "merge: unknown type"
     end
   end
 …
   end
+  def to_long
+    if @bit_size != -64 then
+      cdl_warning( "W9999 long specified for $1" , get_type_str )
+    else
+      @bit_size = -128  # @bit_size = -128 : long double
+    end
+  end
 end

EcnlProtoTool/trunk/asp3_dcre/tecsgen/tecslib/core/expression.rb

-              r321
+              r429
 #      Generator for TOPPERS Embedded Component System
+#
 #   Copyright (C) 2008-2014 by TOPPERS Project
+#   Copyright (C) 2008-2017 by TOPPERS Project
 #--
 #   上記著作権者は，以下の(1)～(4)の条件を満たす場合に限り，本ソフトウェ
 …
     when :IDENTIFIER
       nsp = elements[1]
+      # if nsp.is_name_only? && name_list && name_list.get_item( nsp.get_name ) then
       if nsp.is_name_only? && name_list && name_list.get_item( nsp.get_name ) then
         return "#{pre}#{nsp.get_name}#{post}"
 …
   end
+  #=== Expression# 逆ポーランド文字列化
+  #param_list:: ParamlList  関数の引数リスト
+  def get_rpn( param_list = nil, name_list2 = nil )
+    return elements_rpn( @elements, param_list, name_list2 )
+  end
+  #=== Expression# 逆ポーランド文字列化 (private)
+  #name_list:: ParamlList  関数の引数リスト
+  def elements_rpn( elements, name_list = nil, name_list2 = nil )
+    if elements.instance_of? Token then
+      print "rpn: #{elements.to_s}\n"
+      return elements.to_s    # OP_DOT, OP_REF の右辺
+    end
+    case elements[0]
+    when :IDENTIFIER
+      nsp = elements[1]
+      #if nsp.is_name_only? && name_list && name_list.find( nsp.get_name ) then
+      if nsp.is_name_only? then
+        count = 0
+        # p "search: #{nsp.get_name}"
+        name_list.get_items.each{ |nm,val|
+          # p "    : #{nm.get_name} #{nsp.get_name.class} #{nm.get_name.class}"
+          if nsp.get_name == nm.get_name then
+            return " $#{count}"
+          end
+          count += 1
+        }
+        raise "not found parameter"
+      else
+        # return  elements[1].get_global_name
+        raise "not unexpected parameter"
+      end
+    when :INTEGER_CONSTANT, :FLOATING_CONSTANT, :OCTAL_CONSTANT, :HEX_CONSTANT, :CHARACTER_LITERAL, :STRING_LITERAL_LIST, :BOOL_CONSTANT
+      return elements[1].to_s
+    when :PARENTHESES
+      return elements_rpn( elements[1], name_list, name_list2 )
+    when :OP_SUBSC
+      return elements_rpn( elements[1], name_list, name_list2 ) + " " + elements_rpn( elements[1], "", name_list, name_list2 ) + " []"
+    when :OP_DOT
+      return elements_rpn( elements[1], name_list, name_list2 ) + " ."
+    when :OP_REF
+      return elements_rpn( elements[1], name_list, name_list2 ) + " ->"
+    when :OP_SIZEOF_EXPR
+      return elements_rpn( elements[1], name_list, name_list2 ) + " #s"
+    when :OP_SIZEOF_TYPE
+      return elements_rpn( elements[1], name_list, name_list2 ) + " #S"
+    when :OP_U_AMP
+      return elements_rpn( elements[1], name_list, name_list2 ) + " #&"
+    when :OP_U_ASTER
+      return elements_rpn( elements[1], name_list, name_list2 ) + " #*"
+    when :OP_U_PLUS
+      return elements_rpn( elements[1], name_list, name_list2 ) + " #+"
+    when :OP_U_MINUS
+      return elements_rpn( elements[1], name_list, name_list2 ) + " #-"
+    when :OP_U_TILDE
+      return elements_rpn( elements[1], name_list, name_list2 ) + " #~"
+    when :OP_U_EXCLAM
+      return elements_rpn( elements[1], name_list, name_list2 ) + " #!"
+    when :CAST
+      return elements_rpn( elements[1], name_list, name_list2 ) + " #(" + elements_rpn( elements[2], "", name_list, name_list2 ) + ")"
+    when :OP_MULT
+      return elements_rpn( elements[1], name_list, name_list2 ) + " " + elements_rpn( elements[2], "", name_list, name_list2 ) + " *"
+    when :OP_DIV
+      return elements_rpn( elements[1], name_list, name_list2 ) + " " + elements_rpn( elements[2], "", name_list, name_list2 ) + " /"
+    when :OP_REMAIN
+      return elements_rpn( elements[1], name_list, name_list2 ) + " " + elements_rpn( elements[2], "", name_list, name_list2 ) + " %"
+    when :OP_ADD
+      return elements_rpn( elements[1], name_list, name_list2 ) + " " + elements_rpn( elements[2], "", name_list, name_list2 ) + " +"
+    when :OP_SUB
+      return elements_rpn( elements[1], name_list, name_list2 ) + " " + elements_rpn( elements[2], "", name_list, name_list2 ) + " -"
+    when :OP_LSFT
+      return elements_rpn( elements[1], name_list, name_list2 ) + " " + elements_rpn( elements[2], "", name_list, name_list2 ) + " <<"
+    when :OP_RSFT
+      return elements_rpn( elements[1], name_list, name_list2 ) + " " + elements_rpn( elements[2], "", name_list, name_list2 ) + " >>"
+    when :OP_LT
+      return elements_rpn( elements[1], name_list, name_list2 ) + " " + elements_rpn( elements[2], "", name_list, name_list2 ) + " <"
+    when :OP_GT
+      return elements_rpn( elements[1], name_list, name_list2 ) + " " + elements_rpn( elements[2], "", name_list, name_list2 ) + " >"
+    when :OP_LE
+      return elements_rpn( elements[1], name_list, name_list2 ) + " " + elements_rpn( elements[2], "", name_list, name_list2 ) + " <="
+    when :OP_GE
+      return elements_rpn( elements[1], name_list, name_list2 ) + " " + elements_rpn( elements[2], "", name_list, name_list2 ) + " >="
+    when :OP_EQ
+      return elements_rpn( elements[1], name_list, name_list2 ) + " " + elements_rpn( elements[2], "", name_list, name_list2 ) + " =="
+    when :OP_NE
+      return elements_rpn( elements[1], name_list, name_list2 ) + " " + elements_rpn( elements[2], "", name_list, name_list2 ) + " !="
+    when :OP_AND
+      return elements_rpn( elements[1], name_list, name_list2 ) + " " + elements_rpn( elements[2], "", name_list, name_list2 ) + " &"
+    when :OP_EOR
+      return elements_rpn( elements[1], name_list, name_list2 ) + " " + elements_rpn( elements[2], "", name_list, name_list2 ) + " ^"
+    when :OP_OR
+      return elements_rpn( elements[1], name_list, name_list2 ) + " " + elements_rpn( elements[2], "", name_list, name_list2 ) + " |"
+    when :OP_LAND
+      return elements_rpn( elements[1], name_list, name_list2 ) + " " + elements_rpn( elements[2], "", name_list, name_list2 ) + " &&"
+    when :OP_LOR
+      return elements_rpn( elements[1], name_list, name_list2 ) + " " + elements_rpn( elements[2], "", name_list, name_list2 ) + " ||"
+    when :OP_CEX
+      return elements_rpn( elements[1], name_list, name_list2 ) + " " +
+             elements_rpn( elements[2], name_list, name_list2 ) + " " +
+             elements_rpn( elements[3], name_list, name_list2 ) + " ?:"
+    else
+      raise "Unknown expression element: #{elemets[0]}. try -t and please report"
+    end
+    return ""
+  end
   # 定数式(elements)を評価する
+  #
 …
       return nil
     when :OP_SIZEOF_EXPR
+      cdl_error( "E1007 cannot evaluate \'sizeof\' operator"  )
+      if Generator.parsing_C? then
+        cdl_info( "I9999 cannot evaluate \'sizeof\' operator. this might causes later error."  )
+      else
+        cdl_error( "E1007 cannot evaluate \'sizeof\' operator"  )
+      end
       return nil
     when :OP_SIZEOF_TYPE
+      cdl_error( "E1008 cannot evaluate \'sizeof\' operator"  )
+      if Generator.parsing_C? then
+        cdl_info( "I9999 cannot evaluate \'sizeof\' operator. this might causes later error."  )
+      else
+        cdl_error( "E1008 cannot evaluate \'sizeof\' operator"  )
+      end
       return nil
     when :OP_U_AMP

EcnlProtoTool/trunk/asp3_dcre/tecsgen/tecslib/core/generate.rb

-              r321
+              r429
 #      Generator for TOPPERS Embedded Component System
+#
 #   Copyright (C) 2008-2016 by TOPPERS Project
+#   Copyright (C) 2008-2019 by TOPPERS Project
 #--
 #   上記著作権者は，以下の(1)～(4)の条件を満たす場合に限り，本ソフトウェ
 …
 class Namespace
+  @@domain_gen_factory_list = nil
   def generate
 …
           return
         end
+        if instance_of? Region then
+          @@domain_gen_factory_list = {}   # create hash
+        end
       end
 …
       gen_global_header
+      if ( instance_of? Region ) && get_domain_type != nil then
+        # p "*******************  domain_type: #{get_domain_type.get_name}  ****************"
+        domain_type = get_domain_type
+        if @@domain_gen_factory_list[ domain_type ] == nil then
+          @@domain_gen_factory_list[ domain_type ] = self
+          domain_type.gen_factory
+        end
+      end
       # signature のコードを生成
       @signature_list.each { |s|
 …
       f.print( "/* Descriptor for dynamic join */\n" )
+      f.print( "#define Descriptor( signature_global_name )  DynDesc__ ## signature_global_name\n\n" )
+      f.print( "#define Descriptor( signature_global_name )  DynDesc__ ## signature_global_name\n" )
+      f.print( "#define is_descriptor_unjoined( desc )  ((desc).vdes==NULL)\n\n" )
       endif_macro_only f
     end
 …
+      }
     end
         f.print "       rm -f $(CELLTYPE_COBJS) $(TECSGEN_COBJS) $(PLUGIN_COBJS) $(OTHER_OBJS) $(TARGET) #{timestamp}\n"
+          f.print "     rm -f $(CELLTYPE_COBJS) $(TECSGEN_COBJS) $(PLUGIN_COBJS) $(OTHER_OBJS) $(TARGET) #{timestamp}\n"
     if $generating_region == @@root_namespace then
       f.print " rm -rf $(GEN_DIR)\n"
 …
       f.print "tecs : $(PRE_TECSGEN_TARGET) $(TIMESTAMP) $(POST_TECSGEN_TARGET)\n\n"
       f.print "$(TIMESTAMP) : $(TECS_IMPORTS)\n"
       f.print " $(TECSGEN) #{TECSGEN.subst_tecspath( $arguments, true )}\n"
+      f.print " $(TECSGEN) #{TECSGEN.subst_tecspath( $arguments, true )}\n\n"
       # f.print "       touch $(TIMESTAMP)\n\n"
     else
       f.print "tecs:\n"
 …
     end
+    # tecsflow:, tcflow ターゲット
+    if $generating_region.get_n_cells != 0 || $generating_region == @@root_namespace then
+      f.print "#####  TECSFlow targets  #####\n"
+    end
+    if Region.get_link_roots.length > 1 && $generating_region == @@root_namespace then
+      tecsflow_target = "tecsflow_sub"
+      if $generating_region.get_n_cells > 0 then
+        f.print "tecsflow: tecs tecsflow_sub\n"
+      else
+        f.print "tecsflow:\n"
+      end
+      Region.get_link_roots.each {|region|
+        if region.get_n_cells > 0 then
+          f.print "\tcd #{region.get_global_name}; make tecsflow\n"
+        end
+      }
+      f.print "\n"
+    else
+      tecsflow_target = "tecsflow"
+    end
+    if $generating_region.get_n_cells != 0 then
+      f.print "#{tecsflow_target} : $(GEN_DIR)/tecsgen.rbdmp tcflow\n"
+      f.print "\ttecsflow -g $(GEN_DIR)\n\n"
+      f.print "tecsflow_u : $(GEN_DIR)/tecsgen.rbdmp tcflow\n"
+      f.print "\ttecsflow -g $(GEN_DIR) -U\n\n"
+      f.print "$(GEN_DIR)/tecsgen.rbdmp : tecs\n\n"
+      f.print "tcflow : tecs\n"
+      f.print "\tmake tcflow_exec\n\n"
+      f.print "tcflow_exec : $(GEN_DIR)/tcflow.rbdmp\n"
+      f.print "$(GEN_DIR)/tcflow.rbdmp : $(CELLTYPE_SRCS) $(PLUGIN_CELLTYPE_SRCS)\n"
+      f.print "\ttcflow -g $(GEN_DIR) -c '$(CC) -E -DTECSFLOW -DTECSGEN $(CFLAGS) -I ./' $^\n"
+    end
+    if $generating_region.get_n_cells != 0 || $generating_region == @@root_namespace then
+      f.print "#####  end TECSFlow targets  #####\n\n"
+    end
+    # generic %.o : %.c
     f.print "# generic target for objs\n"
     f.print "$(_TECS_OBJ_DIR)%.o : %.#{$c_suffix}\n"
 …
     ### Makefile.tecsgen の生成
     f = AppFile.open( "#{$gen}/Makefile.tecsgen" )
+    f.print <<EOT
+# generated automatically by tecsgen.
+# This file is not intended to modify.
+#
+# Makefile variables below are defined.
+#  TECS_IMPORT_CDLS          .cdl files improted by import statement
+#  SIGNATURE_HEADERS         .h files of signature
+#  CELLTYPE_TECSGEN_HEADERS  .h files of celltype
+#  CELLTYPE_FACTORY_HEADERS  .h files of celltype's factory
+#  TECS_HEADERS              summary of .h files above
+#  TECS_INLINE_HEADERS       .h files of celltype inline header
+#  PLUGIN_INLINE_HEADERS     .h files of plugin generated inline header
+#
+#  TECS_COBJS                .o files of TECS
+#                            = $(TECSGEN_COBJS)+$(PLUGIN_COBJS)+$(CELLTYPE_COBJS)
+#                            = $(TECS_KERNEL_COBJS)+$(TECS_KERNEL_COBJS)+$(TECS_OUTOFDOMAIN_COBJS)
+#                            = $(TECSGEN_domain_COBJS)+$(PLUGIN_domain_COBJS)+$(CELLTYPE_domain_COBJS) for each domain
+#
+#  TECSGEN_COBJS             .o files of celltype_tecsgen.c
+#  CELLTYPE_COBJS            .o files of celltype.c (celltype code)
+#  PLUGIN_COBJS              .o files of plugin generated .c files
+#
+#  TECSGEN_SRCS              .c files of celltype_tecsgen.c
+#  CELLTYPE_SRCS             .c files of celltype.c (celltype code)
+#  PLUGIN_SRCS               .c files of plugin generated
+#  PLUGIN_CELLTYPE_SRCS      .c files of plugin generated celltype.c (celltype code)
+#  PLUGIN_TECSGEN_SRCS       .c files of plugin generated celltype_tecsgen.c
+#
+# Variables for domain
+#  TECS_DOMAINS             domain names
+#  TECS_KERNEL_COBJS        .o files of kernel domain (tecsgen, celltype, plugin)
+#  TECS_USER_COBJS          .o files of user domain (tecsgen, celltype, plugin)
+#  TECS_OUTOFDOMAIN_COBJS   .o files of OutOfDomain (tecsgen, celltype, plugin)
+#  TECSGEN_domain_COBJS     .o files of celltype_tecsgen.c files for each domain
+#  PLUGIN_domain_COBJS      .o files of plugin generated .c files for each domain
+#  CELLTYPE_domain_COBJS    .o files of celltype.c files for each domain
+#  TECSGEN_domain_SRCS      .c files of celltype_domain_tecsgen.c
+#  PLUGIN_domain_SRCS       .c files of plugin generated .c files for each domain
+#  CELLTYPE_domain_SRCS     .c files of celltype.c files for each domain
+EOT
     f.print( "TECS_IMPORT_CDLS =" )
 …
     DomainType.get_domain_regions.each{ |dt, regions|
       # domain_type は一つのノードには、一つしかないので、このループは、必ず一回しか回らない
+        ###   mikan 複数のノードがあり、異なる domain_type が指定される可能性はある
       domain_regions = regions
       domain_type = dt
 …
       f.print( "\n\n" )
+      f.print( "# TECS_COBJS: objects from sources which are automatically generated by tecsgen\n" )
+      f.print( "# TECS_KERNEL_COBJS: objects belong to kernel domain\n" )
+      f.print( "TECS_KERNEL_COBJS = \\\n" )
+      domain_regions.each{ |r|
+        if r.get_domain_type.get_kind == :kernel then
+          f.print( "    $(TECSGEN#{decideDomainNameProc.call r}_COBJS) \\\n" )
+          f.print( "    $(PLUGIN#{decideDomainNameProc.call r}_COBJS) \\\n" )
+          f.print( "    $(CELLTYPE#{decideDomainNameProc.call r}_COBJS) \\\n" )
+        end
+      }
+      f.print( "# TECS_KERNEL_COBJS terminator\n\n" )
+      f.print( "# TECS_USER_COBJS: objects belong to user domain\n" )
+      f.print( "TECS_USER_COBJS = \\\n" )
+      domain_regions.each{ |r|
+        if r.get_domain_type.get_kind == :user then
+          f.print( "    $(TECSGEN#{decideDomainNameProc.call r}_COBJS) \\\n" )
+          f.print( "    $(PLUGIN#{decideDomainNameProc.call r}_COBJS) \\\n" )
+          f.print( "    $(CELLTYPE#{decideDomainNameProc.call r}_COBJS) \\\n" )
+        end
+      }
+      f.print( "# TECS_USER_COBJS terminator\n\n" )
+      f.print( "# TECS_OUTOFDOMAIN_COBJS: objects belong to OutOfDomain\n" )
+      f.print( "TECS_OUTOFDOMAIN_COBJS = \\\n" )
+      domain_regions.each{ |r|
+        if r.get_domain_type.get_kind == :OutOfDomain then
+          f.print( "    $(TECSGEN#{decideDomainNameProc.call r}_COBJS) \\\n" )
+          f.print( "    $(PLUGIN#{decideDomainNameProc.call r}_COBJS) \\\n" )
+          f.print( "    $(CELLTYPE#{decideDomainNameProc.call r}_COBJS) \\\n" )
+        end
+      }
+      f.print( "# TECS_OUTOFDOMAIN_COBJS terminator\n\n" )
+      f.print( "# TECSGEN_COBJS: objects from sources which are automatically generated by tecsgen\n" )
       f.print( "TECSGEN_COBJS = \\\n" )
       domain_regions.each{ |r|
 …
     ###
     f.print( "# TECS_COBJS: objects from sources which are automatically generated by tecsgen\n" )
+    f.print( "# TECSGEN_COBJS: objects from sources which are automatically generated by tecsgen\n" )
     domain_regions.each{ |r|
       nsp = decideDomainNameProc.call( r )
 …
     f.print( "# PLUGIN_SRCS: sources automatically generated by plugin\n" )
+    f.print( "PLUGIN_CELLTYPE_SRCS = \\\n" )
     domain_regions.each{ |r|
       nsp = decideDomainNameProc.call( r )
+      f.print( "PLUGIN#{nsp}_SRCS = \\\n" )
+      gen_celltype_names_domain( f, "   $(GEN_DIR)/", "_tecsgen.#{$c_suffix} \\\n", domain_type, r, true )
+      gen_celltype_names_domain2( f, "  $(GEN_DIR)/", ".#{$c_suffix} \\\n", domain_type, r, true, false )
+      f.print( "# PLUGIN#{nsp}_SRCS terminator\n\n" )
+    }
+      f.print( "  $(PLUGIN#{nsp}_CELLTYPE_SRCS)\\\n" )
+    }
+    f.print( "# PLUGIN_CELLTYPE_SRCS terminator\n\n" )
+    f.print( "PLUGIN_TECSGEN_SRCS = \\\n" )
+    domain_regions.each{ |r|
+      nsp = decideDomainNameProc.call( r )
+      f.print( "  $(PLUGIN#{nsp}_TECSGEN_SRCS)\\\n" )
+    }
+    f.print( "# PLUGIN_TECSGEN_SRCS terminator\n\n" )
+    domain_regions.each{ |r|
+      nsp = decideDomainNameProc.call( r )
+      f.print( "PLUGIN#{nsp}_SRCS = $(PLUGIN#{nsp}_CELLTYPE_SRCS) $(PLUGIN#{nsp}_TECSGEN_SRCS)\n\n" )
+      f.print( "PLUGIN#{nsp}_CELLTYPE_SRCS = \\\n" )
+      gen_celltype_names_domain2( f, "", ".#{$c_suffix} \\\n", domain_type, r, true, false )
+      f.print( "# PLUGIN#{nsp}_CELLTYPE_SRCS terminator\n\n" )
+      nsp = decideDomainNameProc.call( r )
+      f.print( "PLUGIN#{nsp}_TECSGEN_SRCS = \\\n" )
+      gen_celltype_names_domain( f, "", "_tecsgen.#{$c_suffix} \\\n", domain_type, r, true )
+      f.print( "# PLUGIN#{nsp}_TECSGEN_SRCS terminator\n\n" )
+    }
+    f.print( "# CELLTYPE_SRCS: sources of celltype code written by user\n" )
+     f.print( "CELLTYPE_SRCS = \\\n" )
+     gen_celltype_names( f, "   ", ".#{$c_suffix} \\\n", false, false )
+      f.print( "# CELLTYPE_SRCS terminator\n\n" )
     f.close
 …
   end
+  #=== Namespace#すべてのシグニチャをたどる
+  def travers_all_signature # ブロック引数 { |signature|  }
+    proc = Proc.new    # このメソッドのブロック引数
+    @signature_list.each{ |sig|
+      proc.call sig
+    }
+    @namespace_list.each{ |ns|
+      ns.travers_all_signature_proc proc
+    }
+  end
+  def travers_all_signature_proc proc
+    @signature_list.each{ |sig|
+      proc.call sig
+    }
+    @namespace_list.each{ |ns|
+      ns.travers_all_signature_proc proc
+    }
+  end
+  #=== Namespace#すべてのセルタイプをたどる
+  def travers_all_celltype # ブロック引数 { |celltype|  }
+    proc = Proc.new    # このメソッドのブロック引数
+    @celltype_list.each{ |ct|
+      proc.call ct
+    }
+    @namespace_list.each{ |ns|
+      ns.travers_all_celltype_proc proc
+    }
+  end
+  def travers_all_celltype_proc proc
+    @celltype_list.each{ |ct|
+      proc.call ct
+    }
+    @namespace_list.each{ |ns|
+      ns.travers_all_celltype_proc proc
+    }
+  end
 end
 …
       f.printf TECSMsg.get(:SDI_comment), "#_SDI_#"
       dl.each{ |dt,param|
+        f.print "#include \"#{dt.get_signature.get_global_name}_tecsgen.#{$h_suffix}\"\n"
+        f.print <<EOT
+/* pre-typedef incomplete-type to avoid error in case of mutual or cyclic reference */
+#ifndef Descriptor_of_#{dt.get_global_name}_Defined
+#define  Descriptor_of_#{dt.get_global_name}_Defined
+typedef struct { struct tag_#{dt.get_global_name}_VDES *vdes; } Descriptor( #{dt.get_global_name} );
+#endif
+EOT
+#        f.print "#include \"#{dt.get_global_name}_tecsgen.#{$h_suffix}\"\n"
+      }
       f.print "\n"
 …
     end
+    f.print "};\n"
+    f.printf "\n"
+    f.print "};\n\n"
     f.printf TECSMsg.get(:SDES_comment), "#_SDES_#"
+    f.print( "typedef struct { struct tag_#{@global_name}_VDES *vdes; } Descriptor( #{@global_name} );\n" )
+    f.print <<EOT
+#ifndef Descriptor_of_#{@global_name}_Defined
+#define  Descriptor_of_#{@global_name}_Defined
+typedef struct { struct tag_#{@global_name}_VDES *vdes; } Descriptor( #{@global_name} );
+#endif
+EOT
   end
 …
     gen_ph_get_cellcb f
     gen_ph_attr_access f          if @n_attribute_rw > 0 || @n_attribute_ro > 0 || @n_var > 0
+    gen_ph_cp_fun_macro f         if @n_call_port > 0
+    f.print "#ifndef TECSFLOW\n"
+    gen_ph_cp_fun_macro f, false  if @n_call_port > 0
+    f.print "#else  /* TECSFLOW */\n"
+    gen_ph_cp_fun_macro f, true   if @n_call_port > 0
+    f.print "#endif /* TECSFLOW */\n"
 #    gen_ph_abstract_ep_des_type f
 …
 #    gen_ph_ep_fun_prototype f
     gen_ph_ep_skel_prototype f
+    #--- CB_TYPE_ONLY の場合、ref_desc, set_desc 関数は含めない (マクロ参照するため)
+    if @n_entry_port_inline == 0 then
+      ifndef_cb_type_only f
+    end
+    gen_ph_ref_desc_func f
+    gen_ph_set_desc_func f
+    if @n_entry_port_inline == 0 then
+      endif_cb_type_only f
+    end
     end_extern_C f
     endif_macro_only f
 …
     gen_ph_attr_access_abbrev f   if @n_attribute_rw > 0 || @n_attribute_ro > 0 || @n_var > 0
     gen_ph_cp_fun_macro_abbrev f  if @n_call_port > 0
+    gen_ph_ref_desc_macro_abbrev f
+    gen_ph_set_desc_macro_abbrev f
     gen_ph_test_optional_call_port_abbrev f
     gen_ph_ep_fun_macro f         if @n_entry_port > 0
 …
           end
+        }
+        if p.is_dynamic? then
+          f.print( "#undef #{p.get_name}_set_descriptor\n" )
+          if p.is_optional? then
+            f.print( "#undef #{p.get_name}_unjoin\n" )
+          end
+        elsif p.is_ref_desc? then
+          f.print( "#undef #{p.get_name}_refer_to_descriptor\n" )
+          f.print( "#undef #{p.get_name}_ref_desc\n" )
+        end
+      }
       @port.each { |p|
 …
   def gen_ph_info f
+    yn_multi_domain = "no"
+    yn_multi_domain = "yes" if multi_domain?
     yn_idx_is_id = "no"
     yn_idx_is_id = "yes"  if @idx_is_id
 …
     yn_rom       = "no"
     yn_rom       = "yes"  if $rom
+    yn_has_CB    = "no"
+    yn_has_CB    = "yes"  if has_CB?
+    yn_has_INIB  = "no"
+    yn_has_INIB  = "yes"  if has_INIB?
     yn_cb_init   = "no"
     yn_cb_init   = "yes"  if need_CB_initializer?
 …
  * celltype          :  #{@name}
  * global name       :  #{@global_name}
+ * multi-domain      :  #{yn_multi_domain}
  * idx_is_id(actual) :  #{yn_idx_is_id}(#{yn_idx_is_id_act})
  * singleton         :  #{yn_singleton}
  * has_CB            :  #{has_CB?}
  * has_INIB          :  #{has_INIB?}
+ * has_CB            :  #{yn_has_CB}
+ * has_INIB          :  #{yn_has_INIB}
  * rom               :  #{yn_rom}
  * CB initializer    :  #{yn_cb_init}
 …
       end
+      if p.get_array_size == nil then
+        f.print( "#define #{@global_name}_is_#{p.get_name}_joined(p_that) \\\n" )
+      else
+        f.print( "#define #{@global_name}_is_#{p.get_name}_joined(p_that,subscript) \\\n" )
+      end
+      if @singleton then
+        param = ""
+        delim = ""
+      else
+        param = "p_that"
+        delim = ","
+      end
+      if p.get_array_size != nil then
+        param = param + delim + "subscript"
+      end
+      f.print( "#define #{@global_name}_is_#{p.get_name}_joined(#{param}) \\\n" )
       if p.is_omit? then
 …
       # mikan  全部つながっているかどうかで (1) を判定する
       if ! p.is_VMT_useless? then
+        if p.is_dynamic? then
+          if @singleton then
+            inib_tmp = "CB"
+          else
+            inib_tmp = ""
+          end
+        else
+          inib_tmp = inib
+        end
         # 標準コード
         if p.get_array_size == nil then
           if @singleton then
             f.print( "\t  (#{@global_name}_SINGLE_CELL_#{inib}.#{p.get_name}!=0)\n" )
+            f.print( "\t  (#{@global_name}_SINGLE_CELL_#{inib_tmp}.#{p.get_name}!=0)\n" )
           else
             f.print( "\t  ((p_that)#{inib}->#{p.get_name}!=0)\n" )
+            f.print( "\t  ((p_that)#{inib_tmp}->#{p.get_name}!=0)\n" )
           end
         else
           # 配列の場合
           if @singleton then
             f.print( "\t  ((#{@global_name}_SINGLE_CELL_#{inib}.#{p.get_name}!=0) \\\n" )
             f.print( "\t  &&(#{@global_name}_SINGLE_CELL_#{inib}.#{p.get_name}[subscript]!=0))\n" )
+            f.print( "\t  ((#{@global_name}_SINGLE_CELL_#{inib_tmp}.#{p.get_name}!=0) \\\n" )
+            f.print( "\t  &&(#{@global_name}_SINGLE_CELL_#{inib_tmp}.#{p.get_name}[subscript]!=0))\n" )
           else
             f.print( "\t  (((p_that)#{inib}->#{p.get_name}!=0)\\\n" )
             f.print( "\t  &&((p_that)#{inib}->#{p.get_name}[subscript]!=0))\n" )
+            f.print( "\t  (((p_that)#{inib_tmp}->#{p.get_name}!=0)\\\n" )
+            f.print( "\t  &&((p_that)#{inib_tmp}->#{p.get_name}[subscript]!=0))\n" )
           end
         end
 …
       end
+      if @singleton then
+        param = ""
+        delim = ""
+      else
+        param = "p_cellcb"
+        delim = ","
+      end
       if p.get_array_size == nil then
+        f.print( "#define is_#{p.get_name}_joined()\\\n\t\t#{@global_name}_is_#{p.get_name}_joined(p_cellcb)\n" )
+      else
+        f.print( "#define is_#{p.get_name}_joined(subscript)\\\n" )
+        f.print( "\t\t#{@global_name}_is_#{p.get_name}_joined(p_cellcb,subscript)\n" )
+      end
+        subscript = ""
+      else
+        subscript = "subscript"
+        param = param + delim + subscript
+      end
+      f.print( "#define is_#{p.get_name}_joined(#{subscript})\\\n\t\t#{@global_name}_is_#{p.get_name}_joined(#{param})\n" )
+    }
   end
 …
       f.print( "#define #{@global_name}_GET_CELLCB(idx) ((void *)0)\n" )
     elsif @idx_is_id_act then   # mikan 単一のセルの場合の最適化, idx_is_id でない場合
       f.print( "#define #{@global_name}_GET_CELLCB(idx) (#{@global_name}_CB_tab[(idx) - #{@global_name}_ID_BASE])\n" )
+      f.print( "#define #{@global_name}_GET_CELLCB(idx) (#{@global_name}_CB_ptab[(idx) - #{@global_name}_ID_BASE])\n" )
     else
       f.print( "#define #{@global_name}_GET_CELLCB(idx) (idx)\n" )
 …
   end
   def gen_ph_cp_fun_macro f
     if @n_call_port >0 then
+  def gen_ph_cp_fun_macro f, b_flow
+    if @n_call_port >0 && b_flow == false then
       f.printf( TECSMsg.get( :CPM_comment ) , "#_CPM_#" )
-    end
-    if @singleton then
-      if has_INIB? then
-        inib = "INIB"
-      else
-        inib = "CB"
-      end
-    else
-      if has_CB? && has_INIB? then
-        inib = "->_inib"
-      else
-        inib = ""
-      end
     end
 …
       p.get_signature.get_function_head_array.each{ |fun|
+        if @singleton then
+          if has_INIB? then
+            inib = "INIB"
+          else
+            inib = "CB"
+          end
+          if p.is_dynamic? && p.get_array_size == nil then
+            # dynamic call port (not array)
+            inib = "CB"
+          end
+        else
+          if has_CB? && has_INIB? then
+            inib = "->_inib"
+          else
+            inib = ""
+          end
+          if p.is_dynamic? && p.get_array_size == nil then
+            # dynamic call port (not array)
+            inib = ""
+          end
+        end
         f.print( "#define #{@global_name}_#{p.get_name}_#{fun.get_name}(" )
         ft = fun.get_declarator.get_type
 …
         # 関数名の出力(標準：受け口ディスクリプタから VMT の関数名、最適化：受け口関数 or 受け口ディスクリプタ)
+        if ! p.is_VMT_useless? then
+        if b_flow then
+          f.print( "\t  (p_that)->#{p.get_name}#{subsc}.#{fun.get_name}__T( \\\n" )
+        elsif ! p.is_VMT_useless? then
           # 標準コード
           if @singleton then
 …
         # 受け口情報の出力(標準：受け口ディスクリプタ、最適化：IDX など)
+        if ! p.is_skelton_useless? && ! p.is_cell_unique? then
+        if b_flow then
+        elsif ! p.is_skelton_useless? && ! p.is_cell_unique? then
           # 標準コード
           if @singleton then
 …
   end
+  #=== ref_desc 指定された呼び口に対するディスクリプタ参照関数の生成
+  def gen_ph_ref_desc_func f
+    if @n_call_port_ref_desc >0 then
+      f.printf( TECSMsg.get( :CRD_comment ), "#_CRD_#" )
+    end
+    if has_CB? && has_INIB? then
+      inib = "->_inib"
+    else
+      inib = ""
+    end
+    @port.each { |p|
+      next if p.get_port_type != :CALL
+      next if ! p.is_ref_desc?
+      if @singleton then
+        p_that = ""
+        p_cellcb = ""
+        delim = ""
+        if has_INIB? then
+          cb = "#{@global_name}_SINGLE_CELL_INIB."
+        else
+          cb = "#{@global_name}_SINGLE_CELL_CB."
+        end
+      else
+        p_that = "#{@global_name}_CB  *p_that"
+        p_cellcb = "    #{@global_name}_CB *p_cellcb = p_that;\n"
+        delim = ", "
+        cb = "p_cellcb#{inib}->"
+      end
+      if p.get_array_size
+        array = "#{delim}int_t  i "
+        array2 = "[ i ]"
+        assert = "    assert( 0 <= i && i < NCP_#{p.get_name} );\n"
+      else
+        array = ""
+        array2 = ""
+        assert = ""
+      end
+      f.print <<EOT
+/* [ref_desc] #{p.get_name} */
+Inline Descriptor( #{p.get_signature.get_global_name} )
+#{@global_name}_#{p.get_name}_refer_to_descriptor( #{p_that}#{array} )
+{
+    Descriptor( #{p.get_signature.get_global_name} )  des;
+#{p_cellcb}    /* cast is ncecessary for removing 'const'  */
+#{assert}    des.vdes = (struct tag_#{p.get_signature.get_global_name}_VDES *)#{cb}#{p.get_name}#{array2};
+    return des;
+}
+EOT
+    }
+  end
+  #=== dynamic 指定された呼び口に対するディスクリプタ設定関数の生成
+  def gen_ph_set_desc_func f
+    if @n_call_port_dynamic >0 then
+      f.printf( TECSMsg.get( :SDF_comment ), "#_SDF_#" )
+    end
+    @port.each { |p|
+      next if p.get_port_type != :CALL
+      next if ! p.is_dynamic?
+      if has_CB? && has_INIB? && p.get_array_size then
+        inib = "->_inib"
+      else
+        inib = ""
+      end
+      if @singleton then
+        # p "main== #{@global_name} #{p.get_name} #{p.get_array_size}"
+        p_that = ""
+        p_that2 = ""
+        p_cellcb = ""
+        if p.get_array_size && $rom then
+          cb = "#{@global_name}_SINGLE_CELL_INIB."
+        else
+          cb = "#{@global_name}_SINGLE_CELL_CB."
+        end
+      else
+        p_that = "#{@global_name}_CB  *p_that, "
+        p_that2 = "#{@global_name}_CB  *p_that "
+        p_cellcb = "    #{@global_name}_CB *p_cellcb = p_that;\n"
+        cb = "(p_cellcb)->#{inib}"
+      end
+      if p.get_array_size then
+        array = "int_t  i, "
+        array2 = "[ i ]"
+        array3 = " int_t  i "
+        assert2 = "    assert( 0 <= i && i < NCP_#{p.get_name} );\n"
+      else
+        array = ""
+        array2 = ""
+        array3 = ""
+        assert2 = ""
+      end
+      f.print <<EOT
+/* [dynamic] #{p.get_name} */
+Inline void
+#{@global_name}_#{p.get_name}_set_descriptor( #{p_that}#{array}Descriptor( #{p.get_signature.get_global_name} ) des )
+{
+#{p_cellcb}    assert( des.vdes != NULL );
+#{assert2}    #{cb}#{p.get_name}#{array2} = des.vdes;
+}
+EOT
+      if p.is_optional? then
+        if p_that2 != "" && array3 != "" then
+          delim = ", "
+        else
+          delim = ""
+        end
+        f.print <<EOT
+/* [dynamic,optional] #{p.get_name} */
+Inline void
+#{@global_name}_#{p.get_name}_unjoin( #{p_that2}#{delim}#{array3} )
+{
+#{p_cellcb}    #{cb}#{p.get_name}#{array2} = NULL;
+}
+EOT
+      end
+    }
+  end
   #=== send/receive で受け取ったメモリ領域を dealloc するマクロコード
   #f:: File
 …
         if p.is_omit? then
           f.print( "                      #{dummy_p_cell_access_pre}omitted #{p.get_name}_#{fun.get_name}(" )
         else
           f.print( "                      #{dummy_p_cell_access_pre}#{@global_name}_#{p.get_name}_#{fun.get_name}(" )
+          f.print( "          #{dummy_p_cell_access_pre}omitted #{p.get_name}_#{fun.get_name}(" )
+        else
+          f.print( "          #{dummy_p_cell_access_pre}#{@global_name}_#{p.get_name}_#{fun.get_name}(" )
         end
         ft = fun.get_declarator.get_type
 …
         f.print( " )#{dummy_p_cell_access_post}\n" )
+      }
+    }
+    f.print( "\n" )
+  end
+  def gen_ph_ref_desc_macro_abbrev f
+    if @n_call_port_ref_desc >0 then
+      f.printf( TECSMsg.get( :CRDA_comment ), "#_CRDA_#" )
+    end
+    @port.each { |p|
+      next if p.get_port_type != :CALL
+      next if ! p.is_ref_desc?
+      if @singleton then
+        p_cellcb = ""
+        delim = ""
+      else
+        p_cellcb = "p_cellcb"
+        delim = ", "
+      end
+      if p.get_array_size then
+        array = " i "
+        array2 = "#{delim}i"
+      else
+        array = ""
+        array2 = ""
+      end
+      f.printf( "#define %s_refer_to_descriptor(#{array})\\\n          %s_refer_to_descriptor( #{p_cellcb}#{array2} )\n",
+                "#{p.get_name}",
+                "#{@global_name}_#{p.get_name}" )
+      f.printf( "#define %s_ref_desc(#{array})\\\n          %s_refer_to_descriptor(#{array})\n",
+                "#{p.get_name}",
+                "#{p.get_name}" )
+    }
+    f.print( "\n" )
+  end
+  def gen_ph_set_desc_macro_abbrev f
+    if @n_call_port_dynamic >0 then
+      f.printf( TECSMsg.get( :SDMA_comment ), "#_SDMA_#" )
+    end
+    if @singleton then
+      p_cellcb = ""
+      delim = ""
+    else
+      p_cellcb = "p_cellcb"
+      delim = ", "
+    end
+    @port.each { |p|
+      next if p.get_port_type != :CALL
+      next if ! p.is_dynamic?
+      if p.get_array_size then
+        subsc = "i, "
+        subsc2 = "i"
+        subsc3 = delim + subsc2
+      else
+        subsc = ""
+        subsc2 = ""
+        subsc3 = ""
+      end
+      f.printf( "#define %s_set_descriptor( #{subsc}desc )\\\n          %s_set_descriptor( #{p_cellcb}#{delim}#{subsc}desc )\n",
+                "#{p.get_name}",
+                "#{@global_name}_#{p.get_name}" )
+      f.printf( "#define %s_unjoin( #{subsc2} )\\\n          %s_unjoin( #{p_cellcb}#{subsc3} )\n",
+                "#{p.get_name}",
+                "#{@global_name}_#{p.get_name}" )
+    }
     f.print( "\n" )
 …
         f.print( "typedef const struct tag_#{@global_name}_INIB {\n" )
         gen_cell_cb_type_port f
+        gen_cell_cb_type_port( f, :INIB )
         gen_cell_cb_type_attribute( f, :INIB )
 …
           f.print "    #{@global_name}_INIB  *_inib;\n"
         end
+        gen_cell_cb_type_port( f, :CB_DYNAMIC )
         gen_cell_cb_type_attribute( f, :CB )
         gen_cell_cb_type_var f
 …
       f.print( "typedef struct tag_#{@global_name}_CB {\n" )
       gen_cell_cb_type_port f
+      gen_cell_cb_type_port( f, :CB )
       gen_cell_cb_type_attribute( f, :CB )
       gen_cell_cb_type_var f
 …
   end
   def gen_cell_cb_type_port f
     gen_cell_cb_type_call_port f
     gen_cell_cb_type_entry_port f
   end
   def gen_cell_cb_type_call_port f
+  def gen_cell_cb_type_port( f, inib_cb )
+    gen_cell_cb_type_call_port( f, inib_cb )
+    gen_cell_cb_type_entry_port( f, inib_cb )
+  end
+  def gen_cell_cb_type_call_port( f, inib_cb )
     # 呼び口
     if @n_call_port >0 then
       f.print "    /* call port #_TCP_# */ \n"
+      f.print "    /* call port #_TCP_# */\n"
     end
 …
       next if p.get_port_type != :CALL
       next if p.is_omit?
+      ptr = ''
+      ptr = '*' if p.get_array_size
+      next if inib_cb == :INIB && p.is_dynamic? && p.get_array_size == nil && ! $ram_initializer
+      next if inib_cb == :CB_DYNAMIC && ( ! p.is_dynamic? || p.get_array_size != nil )
+      # bprint "cb_type #{inib_cb} #{p.get_name} dynamic=#{p.is_dynamic?}\n"
+      ptr = p.get_array_size ? '*' : ''
       if ! p.is_cell_unique? then
+        const = p.is_dynamic?  ? '' : 'const'
+        if inib_cb == :INIB && p.is_dynamic? && p.get_array_size == nil && $ram_initializer then
+          init = '_init_'
+          const2 = 'const'
+        else
+          init = ''
+          const2 = 'const'
+        end
         if ! p.is_skelton_useless? then
           # 標準形
+          f.print( "    struct tag_#{p.get_signature.get_global_name}_VDES #{ptr}const*#{p.get_name;};\n" )
+          if inib_cb == :INIB && p.is_dynamic? && p.get_array_size != nil && $ram_initializer then
+            f.print( "    struct tag_#{p.get_signature.get_global_name}_VDES #{ptr}#{const2}*#{p.get_name;}_init_;\n" )
+          end
+          f.print( "    struct tag_#{p.get_signature.get_global_name}_VDES #{ptr}#{const}*#{p.get_name;}#{init};\n" )
+#          f.print( "    struct tag_#{p.get_signature.get_global_name}_VDES #{ptr}*#{p.get_name;};\n" )
           if p.get_array_size == "[]" then
             f.print( "    int_t n_#{p.get_name};\n" )
 …
   #=== Celltype#受け口配列添数を記憶する変数の定義
   def gen_cell_cb_type_entry_port f
+  def gen_cell_cb_type_entry_port( f, inib_cb )
     # 呼び口
     if @n_entry_port >0 then
 …
         f.print "extern  #{@global_name}_INIB  #{@global_name}_SINGLE_CELL_INIB;\n"
       end
-#     @ordered_cell_list.each{ |c|
-#        f.print "extern  #{@global_name}_CB  #{@global_name}_#{c.get_name}_CB;\n"
-#      }
       f.print "\n"
+    elsif @idx_is_id_act then
+      f.print "extern #{@global_name}_CB  *#{@global_name}_CB_tab[];\n"
+    elsif @b_need_ptab then
+      f.printf( TECSMsg.get( :SCP_comment ),  "#_MCPP_#" )
+      if has_CB? then
+        f.print "extern #{@global_name}_CB  *const #{@global_name}_CB_ptab[];\n"
+        @ordered_cell_list.each{ |c|
+          if c.is_generate? then                           # 生成対象か？
+            name_array = get_name_array c
+            f.print "extern #{@global_name}_CB  #{name_array[4]};\n"
+          end
+        }
+      elsif has_INIB?
+        f.print "extern #{@global_name}_INIB  *const #{@global_name}_INIB_ptab[];\n"
+        @ordered_cell_list.each{ |c|
+          if c.is_generate? then                           # 生成対象か？
+            name_array = get_name_array c
+            f.print "extern #{@global_name}_INIB  #{name_array[11]};\n"
+          end
+        }
+      end
     else
+      f.print "extern #{@global_name}_CB  #{@global_name}_CB_tab[];\n"
+      f.printf( TECSMsg.get( :SCP_comment ),  "#_MCPB_#" )
+      if has_CB? then
+        f.print "extern #{@global_name}_CB  #{@global_name}_CB_tab[];\n"
+      elsif has_INIB?
+        f.print "extern #{@global_name}_INIB  #{@global_name}_INIB_tab[];\n"
+      end
     end
   end
   def gen_ph_INIB_as_CB f
+    # ここは、手抜きである。本来なら INIB を出力すべき
     if ! has_CB? && has_INIB? then
       f.printf( TECSMsg.get( :DCI_comment ),  "#_DCI_#" )
+      f.print "#define #{@global_name}_CB_tab           #{@global_name}_INIB_tab\n"
+      f.print "#define #{@global_name}_SINGLE_CELL_CB   #{@global_name}_SINGLE_CELL_INIB\n"
+      if @singleton then
+        f.print "#define #{@global_name}_SINGLE_CELL_CB   #{@global_name}_SINGLE_CELL_INIB\n"
+      elsif @b_need_ptab then
+        f.print "#define #{@global_name}_CB_ptab           #{@global_name}_INIB_ptab\n"
+      else
+        f.print "#define #{@global_name}_CB_tab           #{@global_name}_INIB_tab\n"
+      end
       f.print "#define #{@global_name}_CB               #{@global_name}_INIB\n"
       f.print "#define tag_#{@global_name}_CB           tag_#{@global_name}_INIB\n"
 …
       f.printf( TECSMsg.get( :FEC_comment ), "#_FEC_#" )
       if @idx_is_id_act then
+      if @b_need_ptab then
         amp = ''
+        tab = 'ptab'
       else
         amp = '&'
+        tab = 'tab'
       end
       f.print <<EOT
 #define FOREACH_CELL(i,p_cb)   \\
     for( (i) = 0; (i) < #{@global_name}_N_CELL; (i)++ ){ \\
        #{necessity}(p_cb) = #{amp}#{@global_name}_CB_tab[i];
+       #{necessity}(p_cb) = #{amp}#{@global_name}_CB_#{tab}[i];
 #define END_FOREACH_CELL   }
 …
     if @n_cell_gen > 0 && need_CB_initializer? then
+      b_var_init = false
       f.print "#define INITIALIZE_CB#{arg}"
       @var.each { |v|
 …
         next if init == nil
+        b_var_init = true
         type = v.get_type.get_original_type
         f.print "\\\n"
 …
 #            post = ""
           end
+          f.print "\tmemcpy((void*)#{pre}#{@global_name}_VAR_#{v.get_name}#{p_that}#{post}, (void*)#{pre}#{@global_name}_#{v.get_name}_VAR_INIT#{post}, sizeof(#{@global_name}_#{v.get_name}_VAR_INIT));"
+          f.print "\tmemcpy((void*)#{pre}#{@global_name}_VAR_#{v.get_name}#{p_that}#{post}, "
+          f.print "(void*)#{pre}#{@global_name}_#{v.get_name}_VAR_INIT#{post}, sizeof(#{@global_name}_#{v.get_name}_VAR_INIT));"
         elsif init.instance_of? C_EXP then
           f.print "\t#{that}#{v.get_name} = #{init.get_c_exp_string};"
 …
         end
+      }
+      # dynamic call port の初期化コード
+      b_dyn_port = false
+      @port.each{ |p|
+        next if p.get_port_type != :CALL
+        if p.is_dynamic? && $ram_initializer then
+          if p.get_array_size == nil then
+            f.print "\\\n\t#{that}#{p.get_name} = #{that}_inib->#{p.get_name}_init_;"
+          else
+            if @singleton || p.get_array_size != "[]" then
+              p_that = ""
+            else
+              p_that = "(p_that)"
+            end
+            if @singleton then
+              that = "#{@global_name}_SINGLE_CELL_INIB."
+            else
+              that = "(p_that)->"
+            end
+            if has_CB? then
+              init = '_init->'
+            else
+              init = ''
+            end
+            f.printf( "\\\n%-80s\\\n", '     {' )
+            f.printf( "%-80s\\\n", '        int_t   j;' )
+            f.printf( "%-80s\\\n", "        for( j = 0; j < N_CP_#{p.get_name}#{p_that}; j++ ){" )
+            f.printf( "%-80s\\\n", "            #{that}#{p.get_name}[j] = #{that}#{init}#{p.get_name}_init_[j];" )
+            f.printf( "%-80s\\\n", '        }' )
+            f.printf( "%-80s", '       }' )
+          end
+          b_dyn_port = true
+        end
+      }
+      if b_dyn_port then
+        f.print( "\n" )
+      end
+      if b_var_init == false && b_dyn_port == false && ! @singleton then
+        f.print "\t(void)(p_that);"
+      end
       f.print "\n"
 …
         if @singleton then
           f.print "\t#{that}_inib = &#{@global_name}_SINGLE_CELL_INIB;\n\n"
         elsif @idx_is_id_act
           f.print "\t#{that}_inib = #{@global_name}_INIB_tab[(i)];\n\n"
+        elsif @b_need_ptab then
+          f.print "\t#{that}_inib = #{@global_name}_INIB_ptab[(i)];\n\n"
         else
           f.print "\t#{that}_inib = &#{@global_name}_INIB_tab[(i)];\n\n"
 …
               j = am[i]
               if j then
                 if am[i].get_cell.get_celltype == self then
+                if am[i].get_rhs_cell.get_celltype == self then
                   # 同じセルタイプへ結合している場合(VDES では type conflict になる)
                   p = am[i].get_rhs_port
 …
             end
           else
+            if j.get_cell.get_celltype == self then
+            dbgPrint "me=#{@name} callee=#{j.get_rhs_cell.get_celltype.get_name} #{j.get_cell.get_celltype.get_name} \n"
+            if j.get_rhs_cell.get_celltype == self then
               # 同じセルタイプへ結合している場合(VDES では type conflict になる)
               p = j.get_rhs_port
 …
         jl = c.get_join_list
+        jl.get_items.each{ |j|
+          definition = j.get_definition
+          next unless definition.instance_of? Port
+        # ループを回す変数を jl から @port に変更
+        # dynamic, optional
+#        jl.get_items.each{ |j|
+        @port.each { |port|
+          next if port.get_port_type != :CALL
+          dbgPrint( "gen_cell_ep_vdes_array: #{c.get_name}.#{port.get_name}\n" )
+#          definition = j.get_definition
+#          next unless definition.instance_of? Port
+          j = jl.get_item( port.get_name )
           # port = definition    # definition は composite の Port が得られることがある
           port = find j.get_name # celltype の Port (こちらに最適化情報がある)
+          # port = find j.get_name # celltype の Port (こちらに最適化情報がある)
           next if port.is_cell_unique?
           next if port.is_omit?
+          am = j.get_array_member2
+          if am  then
+          b_array = false
+          am = nil
+          if j then
+            am = j.get_array_member2
+            if am then
+              b_array = true
+            end
+          else
+            if port.get_array_size == "[]" then
+              # this case is dynamic optional and nothing joined
+              next
+            elsif port.get_array_size then
+              b_array = true
+            end
+          end
+          if b_array  then
+#          if am then
             # 左辺は配列
+            const = ( port.is_dynamic? && ! $ram_initializer ) ? '' : 'const '
+            init = ( port.is_dynamic? && $ram_initializer ) ? '_init_' : ''
             if ! port.is_skelton_useless? then
               f.printf( "struct %s * const %s_%s[] = {\n",
+              f.printf( "struct %s * #{const}%s_%s[] = {\n",
                         "tag_#{port.get_signature.get_global_name}_VDES",
                         "#{c.get_global_name}",
                         "#{j.get_name}" )
+                        "#{port.get_name}" + init )
             else
 #              スケルトン関数不要最適化の場合、この配列は参照されない
               # mikan このケースがテストされていない
               f.printf( "const %s_IDX  %s_%s[] = {\n",
+              f.printf( "#{const}%s_IDX  %s_%s[] = {\n",
 #                        "#{j.get_celltype.get_global_name}",   # 右辺 composite に対応できない
                         "#{j.get_rhs_cell.get_celltype.get_global_name}",
 …
             i = 0
             while i < length
+              if am == nil then
+                f.print( "    0,\n" )
+                i += 1
+                next
+              end
               j = am[i]
               i += 1
 …
             # mikan   cell の namespace 未対応、Join で Cell オブジェクトを引当ておく必要あり
             f.print "};\n"
+            # dynamic の呼び口配列
+            if port.is_dynamic? && $ram_initializer then
+              f.printf( "struct %s * %s_%s[ #{length} ];\n",
+                        "tag_#{port.get_signature.get_global_name}_VDES",
+                        "#{c.get_global_name}",
+                        "#{port.get_name}" )
+            end
           end
+        }
 …
         init = v.get_initializer
         if init && init.instance_of?( Array ) then
+          type = v.get_type.get_original_type
+          if( type.kind_of? PtrType )then
+          type = v.get_type
+          org_type = v.get_type.get_original_type
+          if( org_type.kind_of? PtrType )then
             # PtrType は ArrayType にすり替える
 …
             t2.set_type( type.get_type )
             type = t2
+            org_type = t2
           end
 …
           # f.print "const #{type0.get_type_str}\t#{@global_name}_#{v.get_name}_VAR_INIT#{type0.get_type_str_post} = "
           f.print "const #{type.get_type_str}\t#{@global_name}_#{v.get_name}_VAR_INIT#{type.get_type_str_post} = "
           if type.kind_of? StructType then
+          if org_type.kind_of? StructType then
             # celltype の default の初期値あり
             str = gen_cell_cb_init( f, c, name_array, type, init, v.get_identifier, 1, true )
           elsif( type.kind_of?( PtrType ) || type.kind_of?( ArrayType ) ) then
+          elsif( org_type.kind_of?( PtrType ) || org_type.kind_of?( ArrayType ) ) then
             str = "{ "
             type = type.get_type
+            type = org_type.get_type
             # mikan ポインタではなく、配列型としないと、ポインタ変数の領域の分、損する
             init.each { |i|
 …
         fs.each{ |r, f| f.print "#{@global_name}_INIB #{@global_name}_SINGLE_CELL_INIB = \n" }
         indent = 0
       elsif ! @idx_is_id_act then
+      elsif ! @b_need_ptab then
         fs.each{ |r, f| f.print "#{@global_name}_INIB #{@global_name}_INIB_tab[] = {\n" }
         indent = 1
 …
         print_indent( f, indent )
         if @idx_is_id_act then
+        if @b_need_ptab then
           f.print "const #{@global_name}_INIB #{name_array[5]} = "
         end
         f.print "{\n"
         gen_cell_cb_port( c, indent, f, name_array )
+        gen_cell_cb_port( c, indent, f, name_array, :INIB )
         gen_cell_cb_attribute( c, indent, f, name_array, :INIB )
         unless @singleton then
           # 1 つの cell INIB の終わり
           if @idx_is_id_act then
+          if @b_need_ptab then
             f.print( "};\n\n" )
           else
 …
         end
+      }
       if ! @idx_is_id_act then
+      if ! @b_need_ptab then
         fs.each{ |r, f| f.print( "};\n\n" ) }
       end
 …
           fs.each{ |r, f| f.print "struct tag_#{@global_name}_CB #{@global_name}_SINGLE_CELL_CB = \n" }
           indent = 0
         elsif ! @idx_is_id_act then
+        elsif ! @b_need_ptab then
           fs.each{ |r, f| f.print "struct tag_#{@global_name}_CB #{@global_name}_CB_tab[] = {\n" }
           indent = 1
+        else
+          indent = 0
         end
 …
           print_indent( f, indent )
           if @idx_is_id_act then
+          if @b_need_ptab then
             f.print "#{@global_name}_CB #{name_array[2]} = "
           end
 …
           end
+          if ! has_INIB? then
+            gen_cell_cb_port( c, indent, f, name_array )
+          #if ! has_INIB? then
+          if $rom == false then
+            gen_cell_cb_port( c, indent, f, name_array, :CB_ALL )
+          else
+            gen_cell_cb_port( c, indent, f, name_array, :CB_DYNAMIC )
           end
 …
           unless @singleton then
             # 1 つの cell CB の終わり
             if @idx_is_id_act then
+            if @b_need_ptab then
               f.print( "};\n\n" )
             else
 …
           end
+        }
         if ! @idx_is_id_act then
+        if ! @b_need_ptab then
           fs.each{ |r, f| f.print( "};\n\n" ) }
         end
 …
           fs.each{ |r, f| f.print "struct tag_#{@global_name}_CB #{@global_name}_SINGLE_CELL_CB;\n" }
           indent = 0
         elsif @idx_is_id_act then
+        elsif @b_need_ptab then
           @ordered_cell_list.each{ |c|
             next if ! c.is_generate?
 …
   def gen_cell_cb_tab f
     indent = 0
     if @idx_is_id_act then
+    if @b_need_ptab then
       if has_INIB? && ( $ram_initializer || ! has_CB? ) then
         f.print "/* ID to INIB table #_INTAB_# */\n"
 …
+        }
         f.print "#{@global_name}_INIB *#{@global_name}_INIB_tab[] ={\n"
+        f.print "#{@global_name}_INIB *const #{@global_name}_INIB_ptab[] ={\n"
         @ordered_cell_list.each{ |c|
           if c.is_generate? then                           # 生成対象か？
 …
+        }
         f.print "#{@global_name}_CB *#{@global_name}_CB_tab[] ={\n"
+        f.print "#{@global_name}_CB *const #{@global_name}_CB_ptab[] ={\n"
         @ordered_cell_list.each{ |c|
           if c.is_generate? then                           # 生成対象か？
 …
   #   name_array[9] = @global_name    # celltype global name
   #   name_array[10] = cell.get_global_name # cell global name
+  #   name_array[11] = cell_INIB_proto #INIB name for proto type
   def get_name_array( cell )
 …
       cell_CB_proto = "#{@global_name}_SINGLE_CELL_CB"
       cell_INIB_name = "#{@global_name}_SINGLE_CELL_INIB"
+      cell_INIB_proto = cell_INIB_name
       cell_ID = 0
     else
       if ! @idx_is_id_act then
+      if ! @b_need_ptab then
         index = cell.get_id - cell.get_celltype.get_id_base
         cell_CB_name = "#{@global_name}_CB_tab[#{index}]"
 …
         cell_CB_proto = "#{@global_name}_CB_tab[]"
         cell_INIB_name = "#{@global_name}_INIB_tab[#{index}]"
+        cell_INIB_proto = "#{@global_name}_INIB_tab[]"
       else
         cell_CB_name = "#{cell.get_global_name}_CB"
 …
         cell_CB_proto = cell_CB_name
         cell_INIB_name = "#{cell.get_global_name}_INIB"
+        cell_INIB_proto = cell_INIB_name
       end
       cell_ID = cell.get_id
     end
+    if has_CB? then
+      cell_CBP = "&#{cell_CB_name}"
+    elsif has_INIB? then
+      cell_CBP = "&#{cell_INIB_name}"
+    else
+      cell_CBP = "NULL"    # CB も INIB もなければ NULL に置換
+    end
     if @idx_is_id_act then
       cell_IDX = cell_ID
     else
+      cell_IDX = "&#{cell_CB_name}"
+    end
+    if ! has_CB? && ! has_INIB? then
+      cell_CBP = "NULL"    # CB も INIB もなければ NULL に置換
+    else
+      cell_CBP = "&#{cell_CB_name}"
+      cell_IDX = cell_CBP
     end
 …
     name_array[9] = @global_name    # celltype global name
     name_array[10] = cell.get_global_name # cell global name
+    name_array[11] = cell_INIB_proto # INIB name for prototype
     return name_array
 …
   end
+  def gen_cell_cb_port( cell, indent, f, name_array )
+    gen_cell_cb_call_port( cell, indent, f, name_array )
+  #inib_cb::Symbol: :INIB, :CB_ALL, :CB_DYNAMIC
+  def gen_cell_cb_port( cell, indent, f, name_array, inib_cb = :INIB )
+    gen_cell_cb_call_port( cell, indent, f, name_array, inib_cb )
     gen_cell_cb_entry_port( cell, indent, f, name_array )
   end
   #=== 呼び口の初期化コードの生成
   def gen_cell_cb_call_port( cell, indent, f, name_array )
+  def gen_cell_cb_call_port( cell, indent, f, name_array, inib_cb )
     jl = cell.get_join_list
     port = get_port_list
+    if @n_call_port != 0 then
+    if inib_cb == :INIB && ( @n_call_port - @n_call_port_omitted_in_CB -
+                             ( $ram_initializer ? 0 : (@n_call_port_dynamic-@n_call_port_array_dynamic) )  > 0 ) ||
+       inib_cb == :CB_ALL && @n_call_port > 0 ||
+       inib_cb == :CB_DYNAMIC && (@n_call_port_dynamic - @n_call_port_array_dynamic) > 0 then
       print_indent( f, indent + 1 )
       f.print "/* call port #_CP_# */ \n"
+      f.print "/* call port (#{inib_cb}) #_CP_# */ \n"
       port.each{ |p|
         next if p.get_port_type != :CALL
         next if p.is_omit?
         next if p.is_cell_unique?        # 最適化（単一セルで呼び口マクロに埋め込まれる）
+        next if inib_cb == :INIB && p.is_dynamic? && p.get_array_size == nil && ! $ram_initializer
+        next if inib_cb == :CB_DYNAMIC && ( ! p.is_dynamic? || p.get_array_size != nil )
         j = jl.get_item( p.get_name )
 …
         # debug
         if j == nil then
+          dbgPrint "cell_cb_call_port: #{p.get_name} array size=#{p.get_array_size}\n"
           # optional 呼び口
           # cdl_error( "H1003 internal error: cell \'$1\' port \'$2\': initializer not found\n" , cell.get_name, p.get_name )
           # exit( 1 )
+          f.printf( "%-40s /* #_CCP5_# */\n",  "0," )
+          if p.get_array_size == "[]" then
+            # 添数省略の呼び口配列
+            print_indent( f, indent + 1 )
+            f.printf( "%-40s /* %s #_CCP6_# */\n", "0,", "length of #{p.get_name} (n_#{p.get_name})" )
+          if p.get_array_size then
+            if p.is_dynamic? then
+              if inib_cb == :INIB then
+                if  $ram_initializer then
+                  f.printf( "%-40s /* #_CCP7_# _init_ */\n",  "#{cell.get_global_name}_#{p.get_name}_init_," )
+                  print_indent( f, indent + 1 )
+                end
+                f.printf( "%-40s /* #_CCP7B_# */\n",  "#{cell.get_global_name}_#{p.get_name}," )
+              elsif $rom == false then
+                f.printf( "%-40s /* #_CCP8_# */\n",  "#{cell.get_global_name}_#{p.get_name}," )
+              end
+            else
+              f.printf( "%-40s /* #_CCP9_# */\n",  "0," )
+            end
+            if p.get_array_size == "[]" then
+              # 添数省略の呼び口配列
+              print_indent( f, indent + 1 )
+              f.printf( "%-40s /* %s #_CCP6_# */\n", "0,", "length of #{p.get_name} (n_#{p.get_name})" )
+            end
+          else
+            f.printf( "%-40s /* #_CCP5_# */\n",  "0," )
           end
           next
 …
         if am then
           # 呼び口配列の場合
+          f.printf( "%-40s /* #_CCP3_# */\n",  "#{cell.get_global_name}_#{j.get_name}," )
+          if inib_cb == :INIB && p.is_dynamic? && p.get_array_size != nil && $ram_initializer then
+            f.printf( "%-40s /* #_CCP3_# _init_ */\n",  "#{cell.get_global_name}_#{j.get_name}_init_," )
+            print_indent( f, indent + 1 )
+          end
+          f.printf( "%-40s /* #_CCP3B_# */\n",  "#{cell.get_global_name}_#{j.get_name}," )
           if p.get_array_size == "[]" then
             # 添数省略の呼び口配列
 …
           end
+          init = ( p.is_dynamic? && inib_cb == :INIB ) ? "_init_" : ""
           if j.get_rhs_subscript then
             # 受け口配列の場合
 …
                       # "&#{j.get_cell_global_name}_#{j.get_port_name}_des#{subscript},",
                       "#{des_type_cast}&#{j.get_port_global_name}_des#{subscript},",
                       p.get_name )
+                      p.get_name.to_s + init )
           else
             # 呼び口配列でも、受け口配列でもない
 …
               f.printf( "%-40s /* %s #_CCP1_# */\n",
                         "#{des_type_cast}&#{j.get_port_global_name}_des,",
                         p.get_name )
+                        p.get_name.to_s + init )
             else
               # スケルトン不要最適化（CB (INIB) へのポインタを埋め込む）
               c = j.get_rhs_cell                    # 呼び先セル
               ct = c.get_celltype                   # 呼び先セルタイプ
+              name_array = ct.get_name_array( c )   # 呼び先セルタイプで name_array を得る
               if ct.has_INIB? || ct.has_CB? then
-                name_array = ct.get_name_array( c )   # 呼び先セルタイプで name_array を得る
                 f.printf( "%-40s /* %s #_CCP2_# */\n", "#{name_array[7]},", p.get_name )
               else
                 # 呼び先は CB も INIB も持たない（NULL に初期化）
                 f.printf( "%-40s /* %s #_CCP2_# */\n", "0,", p.get_name )
+                f.printf( "%-40s /* %s #_CCP2B_# */\n", "0,", p.get_name )
               end
             end
 …
       f = fs[ c.get_region.get_domain_root ]
       ct = c.get_celltype
+      ct = c.get_celltype     # ct = self でも同じ
       jl = c.get_join_list
+      name_array = get_name_array( c )
       port = ct.get_port_list
 …
               else
                 if has_CB? then
+                  if @singleton then
+                    f.print "    &#{@global_name}_SINGLE_CELL_CB,        /* CB */\n"
+                  else
+                    # f.print "    &#{@global_name}_#{c.get_name}_CB,\n"
+                    f.print "    &#{@global_name}_CB_tab[#{index}],      /* CB */\n"
+                  end
+                  # if @singleton then
+                  #   f.print "    &#{@global_name}_SINGLE_CELL_CB,        /* CB 1 */\n"
+                  # else
+                  #   # f.print "    &#{@global_name}_#{c.get_name}_CB,\n"
+                  #   f.print "    &#{@global_name}_CB_tab[#{index}],      /* CB 2 */\n"
+                  # end
+                  f.print "    #{name_array[8]},      /* CB 1 */\n"
                 elsif has_INIB? then
+                  if @singleton then
+                    f.print "    &#{@global_name}_SINGLE_CELL_INIB,      /* INIB */\n"
+                  else
+                    f.print "    &#{@global_name}_INIB_tab[#{index}],    /* INIB */\n"
+                  end
+                  # if @singleton then
+                  #   f.print "    &#{@global_name}_SINGLE_CELL_INIB,      /* INIB 1 */\n"
+                  # else
+                  #   f.print "    &#{@global_name}_INIB_tab[#{index}],    /* INIB 2 */\n"
+                  # end
+                  f.print "    &#{name_array[5]},      /* INIB 1 */\n"
                 else
                   f.print "    0,\n"
 …
             else
               if has_CB? then
+                if @singleton then
+                  f.print "    &#{@global_name}_SINGLE_CELL_CB,       /* CB */\n"
+                else
+                  f.print "    &#{@global_name}_CB_tab[#{index}],     /* CB */\n"
+                  # f.print "    &#{@global_name}_#{c.get_name}_CB,\n"
+                end
+                # if @singleton then
+                #   f.print "    &#{@global_name}_SINGLE_CELL_CB,       /* CB 3 */\n"
+                # else
+                #   f.print "    &#{@global_name}_CB_tab[#{index}],     /* CB 4 */\n"
+                #   # f.print "    &#{@global_name}_#{c.get_name}_CB,\n"
+                # end
+                f.print "    #{name_array[8]},      /* CB 3 */\n"
               elsif has_INIB? then
+                if @singleton then
+                  f.print "    &#{@global_name}_SINGLE_CELL_INIB,     /* INIB */\n"
+                else
+                  f.print "    &#{@global_name}_INIB_tab[#{index}],   /* INIB */\n"
+                end
+                # if @singleton then
+                #   f.print "    &#{@global_name}_SINGLE_CELL_INIB,     /* INIB 3 */\n"
+                # else
+                #   # f.print "    &#{@global_name}_INIB_tab[#{index}],   /* INIB 4 */\n"
+                # end
+                f.print "    &#{name_array[5]},      /* INIB 3 */\n"
               else
                 f.print "    0,\n"
 …
         ft.get_paramlist.get_items.each{ |param|
+          # p "type_str: #{param.get_type.get_type_str}"
           f.print( "#{delim} #{param.get_type.get_type_str}" )
           f.print( " #{param.get_name}#{param.get_type.get_type_str_post}" )
 …
       end
+      if p.is_ref_desc? then
+        subsc = p.get_array_size ? ' int_t subscript ' : ''
+        f.print " *   [ref_desc]\n"
+        f.printf( " *      %-14s %s;\n",
+                  "Descriptor( #{p.get_signature.get_global_name} )",
+                  "#{p.get_name}_refer_to_descriptor(#{subsc})" )
+        f.printf( " *      %-14s %s;\n",
+                  "Descriptor( #{p.get_signature.get_global_name} )",
+                  "#{p.get_name}_ref_desc(#{subsc})      (same as above; abbreviated version)" )
+      end
+      if p.is_dynamic? then
+        subsc = p.get_array_size ? 'int_t subscript, ' : ''
+        subsc2 = p.get_array_size ? ' int_t subscript' : ''
+        if p.is_optional? then
+          f.print " *   [dynamic, optional]\n"
+        else
+          f.print " *   [dynamic]\n"
+        end
+        f.printf( " *      %-14s %s;\n",
+                  "void",
+                  "#{p.get_name}_set_descriptor( #{subsc}Descriptor( #{p.get_signature.get_global_name} ) desc )" )
+        if p.is_optional? then
+          f.printf( " *      %-14s %s;\n",
+                    "void",
+                    "#{p.get_name}_unjoin( #{subsc2} )" )
+        end
+      end
+    }
 …
           delim = ", "
           f.print param.get_type.get_type_str
+          # p "type_str2: #{param.get_type.get_type_str}"
           f.print " "
           f.print param.get_name
 …
   def generate_inline_template_code
     return if @n_entry_port_inline == 0
+    return if @b_reuse && ! $generate_all_template
     if ! ( @plugin && @plugin.gen_ep_func? ) then
       return if @b_reuse && ! $generate_all_template
 …
   #  str に以下の置換を行う
   #-   $ct$ ⇒ セルタイプ名(ct)
   #-   $cell$ ⇒ セル名(cell)   cell が nil ならば3つの置換は行われない
+  #-   $cell$ ⇒ セル名(cell)   cell が nil ならば以下の置換は行われない
   #-   $cb$ ⇒ CB の C 言語名(cb)
   #-   $cbp$ ⇒ CB へのポインタ(cbp)
   #-   $cb_proto$ ⇒ CB の C 言語名プロトタイプ宣言用(cb_proto)
   #-   $id$ ⇒ ct_cell
+  #-   $id$ ⇒ $ct$_$cell_global$    # ct_cell  before or same V1.5.2
   #-   $idx$ ⇒ idx
   #-   $ID$ ⇒ id (整数の番号)
   #-   $ct_global$ ⇒ セルタイプ名(ct)
   #-   $cell_global$ ⇒ セル名(cell)   cell が nil ならば3つの置換は行われない
+  #-   $cell_global$ ⇒ セル名(cell)
   #-   $$   ⇒ $
   def subst_name( str, name_array )
 …
     str = str.gsub( /(^|[^\$])\$ct\$/, "\\1#{ct}" )
+    str = str.gsub( /(^|[^\$])\$ct_global\$/, "\\1#{ct_global}" )
     if cell then
       str = str.gsub( /(^|[^\$])\$cell\$/, "\\1#{cell}" )
       str = str.gsub( /(^|[^\$])\$cb\$/, "\\1#{cb}" )
+      str = str.gsub( /(^|[^\$])\$id\$/, "\\1#{ct}_#{cell}" )
+      # str = str.gsub( /(^|[^\$])\$id\$/, "\\1#{ct}_#{cell}" )
+      str = str.gsub( /(^|[^\$])\$id\$/, "\\1#{ct}_#{cell_global}" )
       str = str.gsub( /(^|[^\$])\$cb_proto\$/, "\\1#{cb_proto}" )
       str = str.gsub( /(^|[^\$])\$ID\$/, "\\1#{id}" )
       str = str.gsub( /(^|[^\$])\$idx\$/, "\\1#{idx}" )
       str = str.gsub( /(^|[^\$])\$cbp\$/, "\\1#{cbp}" )
-      str = str.gsub( /(^|[^\$])\$ct_global\$/, "\\1#{ct_global}" )
       str = str.gsub( /(^|[^\$])\$cell_global\$/, "\\1#{cell_global}" )
     end
 …
   end
 end
+class DomainType < Node
+  def gen_factory
+    # p "DomainType: gen_factory"
+    @plugin.gen_factory
+  end
+end

EcnlProtoTool/trunk/asp3_dcre/tecsgen/tecslib/core/location.rb

r321	r429
4	4	# Generator for TOPPERS Embedded Component System
5	5	#
6		# Copyright (C) 2008-2014 by TOPPERS Project
	6	# Copyright (C) 2008-2017 by TOPPERS Project
7	7	#--
8	8	# 上記著作権者は，以下の(1)～(4)の条件を満たす場合に限り，本ソフトウェ

EcnlProtoTool/trunk/asp3_dcre/tecsgen/tecslib/core/messages.rb

-              r321
+              r429
 #      Generator for TOPPERS Embedded Component System
+#
 #   Copyright (C) 2008-2014 by TOPPERS Project
+#   Copyright (C) 2008-2017 by TOPPERS Project
 #--
 #   上記著作権者は，以下の(1)～(4)の条件を満たす場合に限り，本ソフトウェ
 …
  end
+ #=== TECSMsg#ローカライズされた情報メッセージを得る
+ # Generator.info2 から呼び出される
+ def self.get_info_message( body )
+   body =~ /^[A-Z0-9]+/    # 情報番号を取り出す
+   num = $&
+   msg = @@info_message[ num.to_sym ]
+   if msg == nil then
+     m = body
+   else
+     m = num + " " + msg
+   end
+   return m
+ end
 end

EcnlProtoTool/trunk/asp3_dcre/tecsgen/tecslib/core/optimize.rb

-              r321
+              r429
 #      Generator for TOPPERS Embedded Component System
+#
 #   Copyright (C) 2008-2014 by TOPPERS Project
+#   Copyright (C) 2008-2018 by TOPPERS Project
 #--
 #   上記著作権者は，以下の(1)～(4)の条件を満たす場合に限り，本ソフトウェ
 …
   def set_domain
+    domain_cells = {}
     @cell_list.each{ |c|
       if c.is_generate? then
 …
           @domain_roots[ dn ] = [ dr ]
         end
+        if domain_cells[ dr ]  then
+          domain_cells[ dr ] << c
+        else
+          domain_cells[ dr ] = [ c ]
+        end
       end
+    }
 …
     @domain_roots.each{ |dn, drs|
       drs.uniq!
+      if ! $debug then
+        dbgPrint "domains celltype:#{@name} domain=#{dn} "
+      if $verbose && dn then
+        print "[domain] celltype=#{@name} domainType=#{dn} domainRootRegions={"
+        delim = ""
         drs.each{ |r|
+          dbgPrint " region=#{r.get_name}"
+          print delim, r.get_name
+          delim = ", "
+        }
+        dbgPrint "\n"
+        print "}\n"
+        drs.each{ |r|
+          print "[domain] celltype=#{@name} domainRootRegion=#{r.get_name} domainType=#{dn} domainKind=#{r.get_domain_root.get_domain_type.get_kind} domainCells={"
+          delim = ""
+          domain_cells[r].each{ |c|
+            print delim, c.get_name
+            delim = ", "
+          }
+          print "}\n"
+        }
       end
+    }
 …
       # domain_type は一つのノードに一つしかないので、一つの要素を無条件で取り出す
       if regions.length > 1 then
+        cdl_info( "celltype:#{@name} has cells in multi domain.\n" )
+        if @idx_is_id == false then
+          cdl_info( "celltype:#{@name} forcely set idx_is_id\n" )
+        end
+        @idx_is_id_act = true
+        if $verbose then
+          cdl_info( "I9999 celltype '$1' has cells in multi-domain.\n", @name )
+        end
+        # if @idx_is_id == false then
+        #   cdl_info( "I9999 celltype '$1' forcely set idx_is_id\n", @name )
+        # end
+        @b_need_ptab = true
+        # @idx_is_id_act = true
       end
+    }
 …
     end
+    optimize_call
+    if $unopt_entry == false then
+      optimize_entry
+    end
+  end
+  #=== Celltype#呼び口最適化
+  def optimize_call
     @port.each{ |port|
       next if port.get_port_type != :CALL
 …
         if $verbose then
           print "optimized by omit: port: #{port.get_name} : o\n"
+        end
+        next
+      elsif port.is_dynamic? then
+        if $verbose then
+          print "unoptimized by dynamic: port: #{port.get_name}\n"
+        end
+        next
+      elsif port.is_ref_desc? then
+        if $verbose then
+          print "unoptimized by ref_desc: port: #{port.get_name}\n"
         end
         next
 …
       dbgPrint "#{port.get_name} : # of cells : #{port_cells.length}  # of ports : #{port_ports.length}\n"
+    }
+  end
+  #=== Celltype#受け口最適化
+  # optimize_entry は、呼び口最適化の結果を使用している
+  def optimize_entry
     # 受け口最適化の設定
     @port.each{ |port|

EcnlProtoTool/trunk/asp3_dcre/tecsgen/tecslib/core/plugin.rb

-              r321
+              r429
 #      Generator for TOPPERS Embedded Component System
+#
 #   Copyright (C) 2008-2014 by TOPPERS Project
+#   Copyright (C) 2008-2017 by TOPPERS Project
 #--
 #   上記著作権者は，以下の(1)～(4)の条件を満たす場合に限り，本ソフトウェ
 …
 #++
 #== class モジュール
+#== Plugin クラス
 # ThroughPlugin, SignaturePlugin, CelltypePlugin に include する
 class Plugin < Node
 …
   end
+### 意味解析段階で呼び出されるメソッド ###
+### 構文解釈 または 意味解析段階で呼び出されるメソッド ###
+# generate 指定子の場合、構文解釈次第(end_of_parseで)呼び出される
+# generate 文の場合、出現次第呼び出される
+  ### 意味解析段階で呼び出されるメソッド ### <<< コメント誤り (V1.4.2)
   #===  CDL ファイルの生成
   #      typedef, signature, celltype, cell のコードを生成
 …
       #  識別子取得
       if arg =~ /\A[a-zA-Z_]\w*/ then
         ident = $~
+        ident = $~.to_s    #
         arg = $'
       else
 …
 end
 #== 出力文字列を EUC から出力ファイルに convert する
 # tecsgen のソースコードは EUC で記述されている
+#== 出力文字列を utf-8 から出力ファイルに convert する
+# tecsgen のソースコードは utf-8 で記述されている
 # これを、出力ファイルの文字コードに変換して出力する
+#

EcnlProtoTool/trunk/asp3_dcre/tecsgen/tecslib/core/pluginModule.rb

-              r321
+              r429
 #      Generator for TOPPERS Embedded Component System
+#
 #   Copyright (C) 2008-2014 by TOPPERS Project
+#   Copyright (C) 2008-2017 by TOPPERS Project
 #--
 #   上記著作権者は，以下の(1)～(4)の条件を満たす場合に限り，本ソフトウェ
 …
   #=== プラグインをロードする
+  #return:: true : 成功、 false : 失敗
+  # return:: PluginClass
+  # V1.4.1 まで return:: true : 成功、 false : 失敗
+  #
+  # #{plugin_name}.rb をロードし、plugin_name クラスのオブジェクトを生成する．
+  # plugin_name が MultiPlugin の場合、get_plugin により、superClass のプラグインオブジェクトをロードする．
+  #
   # すでにロードされているものは、重複してロードしない
 …
         end
         # "#{plugin_name}.rb" をロード（システム用ではないので、fatal エラーにしない）
         if require_tecsgen_lib( "#{plugin_name}.rb", false ) == false
+        if require_tecsgen_lib( "#{plugin_name}.rb", false ) == false then
           cdl_error( "P2001 $1.rb : fail to load plugin" , plugin_name )
           return false
+          return nil
         end
       end
+      plSuper = nil
+      # eval( "plSuper = #{plugin_name}.superclass" )
+      eval( "plSuper = #{plugin_name}" )
+      while plSuper != superClass && plSuper != nil
+        plSuper = plSuper.superclass
+      end
+      if plSuper == nil then
+      plClass = Object.const_get plugin_name
+      if ( plClass <= superClass ) then       # plClass inherits superClass
+        return plClass
+      elsif (plClass <= MultiPlugin) then     # plClass inherits MultiPlugin
+        dbgPrint "pluginClass=#{plClass}\n"
+        plugin_object = plClass.get_plugin superClass
+        dbgPrint "pluginClass=#{plugin_object}\n"
+        if plugin_object == nil then
+          cdl_error( "P9999 '$1': MultiPlugin not support '$2'", plugin_name, superClass.name )
+        end
+        @@loaded_plugin_list[ plugin_name.to_sym ] = :MultiPlugin
+        return plugin_object
+      else
         cdl_error( "P2002 $1: not kind of $2" ,  plugin_name, superClass.name )
         return false
+        return nil
       end
     rescue Exception => evar
 …
       end
       cdl_error( "P2003 $1: load failed" , plugin_name )
       return false
+      return nil
     end
+    return true
+    # ここへは来ない
+    return nil
   end
 …
     end
     plugin_name = plugin_object.class.name.to_sym
+    if @@loaded_plugin_list[ plugin_name ] == nil
+      raise "#{plugin_name} might have different name "
+      # プラグインのファイル名と、プラグインのクラス名が相違する場合
+    if @@loaded_plugin_list[ plugin_name ] == :MultiPlugin then
+      p "#{plugin_name}: MultiPlugin"
+      return
+    elsif @@loaded_plugin_list[ plugin_name ] == nil then
+      #raise "#{plugin_name} might have different name "
+      ## プラグインのファイル名と、プラグインのクラス名が相違する場合
+      #MultiPlugin の get_plugin で返されたケースでは nil になっている
+      @@loaded_plugin_list[ plugin_name ] = 0
     end
     count = @@loaded_plugin_list[ plugin_name ]
 …
     dbgPrint "PluginModule #{@@loaded_plugin_list}\n"
     @@loaded_plugin_list.each{ |plugin_name,count|
+      if count == :MultiPlugin then
+        next
+      end
       dbgPrint "PluginModule: #{plugin_name}\n"
       eval_str = "#{plugin_name}.gen_post_code( file )"

EcnlProtoTool/trunk/asp3_dcre/tecsgen/tecslib/core/syntaxobj.rb

-              r321
+              r429
 #      Generator for TOPPERS Embedded Component System
+#
 #   Copyright (C) 2008-2016 by TOPPERS Project
+#   Copyright (C) 2008-2017 by TOPPERS Project
 #--
 #   上記著作権者は，以下の(1)～(4)の条件を満たす場合に限り，本ソフトウェ
 …
   #=== 情報を表示する
+  def cdl_info( message )
+    Console.puts "info: #{message}"
+  def cdl_info( message, *arg )
+    Generator.info2( @locale, message, *arg )
+  end
+  #=== 情報を表示する
+  def cdl_info2( locale, message, *arg )
+    Generator.info2( locale, message, *arg )
   end
 …
   end
+  #=== Decl# print_flowinfo
+  def print_flowinfo file
+    if @kind == :VAR then
+      file.write "#{@identifier} "
+    end
+  end
   def show_tree( indent )
     indent.times { print "  " }

EcnlProtoTool/trunk/asp3_dcre/tecsgen/tecslib/core/tecsgen.rb

-              r321
+              r429
 #      Generator for TOPPERS Embedded Component System
+#
 #   Copyright (C) 2008-2014 by TOPPERS Project
+#   Copyright (C) 2008-2017 by TOPPERS Project
 #--
 #   上記著作権者は，以下の(1)～(4)の条件を満たす場合に限り，本ソフトウェ
 …
 class TECSGEN
+  @@b_post_coded = false     # ポストコード生成開始後 true
   #=== import パス (-I) を末尾に追加
   # 既に登録済みであれば、追加しない
 …
   end
+  def self.get_argv
+    ARGV
+  end
   #------ TECSGEN CDL analyze and generate ------#
 …
   end # syntax_analisys
+  #=== TECSGEN#semantics_analisys_1
+  # semantics check. only cells here
+  # other objects (signature, celltype, typedef, etc ) are checked while syntax analisys
   def semantics_analisys_1
     ####  意味解析１ (post コードを除く) ####
     dbgPrint( "## Creating reverse join \n")
     Cell.create_reverse_join
+    DescriptorType.check_signature
+    Signature.set_descriptor_list
+    Celltype.check_dynamic_join
     #0 set_definition_join は2回呼び出される（1回目）
 …
     ####  post コードの生成と構文解析 ####
+    @@b_post_coded = true     # ポストコード生成開始後 true
     # 引数がなければ、プラグインのポストコードを出力しない
     if ARGV.length > 0 then
 …
     dbgPrint( "## Checking all join (for cells generated by Post Code\n")
     @root_namespace.set_definition_join
+    @root_namespace.set_max_entry_port_inner_cell
     dbgPrint( "## Set require join\n")
 …
     open( "#{$gen_base}/tecsgen.timestamp", "w" ){|io|}
   end # finalize
+  def dump_tecsgen_rbdmp
+    dbgPrint "dump_tecsgen_rbdmp 0:\n"
+    #### unjoin_plugin 後に行う必要があるため、コード生成後にダンプを行う
+    #### Region link root ごとにオプティマイズしてダンプ ####
+    Namespace.get_root.unjoin_plugin
+    Namespace.get_root.find_plugin 0, []
+    Region.get_link_roots.each { |region|
+      dbgPrint "dump_tecsgen_rbdmp 1: Region.path_str: #{region.get_namespace_path.get_path_str}\n"
+      n_cells = region.get_n_cells
+      if $region_list.length > 0 then
+        if $region_list[ region.get_namespace_path.get_path_str ] == false then
+          $region_list[ region.get_namespace_path.get_path_str ] = true
+        else
+          next
+        end
+      end
+      dbgPrint "dump_tecsgen_rbdmp 2: Region.path_str: #{region.get_namespace_path.get_path_str}\n"
+      # セルが一つもなければ生成しない
+      # セルの生成がない場合
+      if region.get_n_cells == 0 then
+        # if $region_list.length > 0 then
+        #   Generator.warning( "W9999 $1: specified to generate but has no cell", region.get_name )
+        # end
+        if region != @root_namespace then
+          next
+        end
+      end
+      dbgPrint "dump_tecsgen_rbdmp 3: Region.path_str: #{region.get_namespace_path.get_path_str}\n"
+      $generating_region = region
+      if Region.get_link_roots.length > 1 then
+        if region.get_name == "::" then
+          $gen = $gen_base
+        else
+          $gen = $gen_base + "/" + region.get_global_name.to_s
+        end
+      else
+        $gen = $gen_base
+      end
+      dbgPrint "dump_tecsgen_rbdmp 4: Region.path_str: #{region.get_namespace_path.get_path_str}\n"
+      dbgPrint( "## Unset optimize variables\n")
+      @root_namespace.reset_optimize   # 最適化をリセットする
+      #  if Generator.get_n_error == 0 then
+      #   # エラーが発生していたら、ここへは来ない
+         dbgPrint( "## Set cell id\n")
+        @root_namespace.set_cell_id_and_domain      # セルの ID とドメイン情報を設定（linkunit 毎に0からつける）
+        # エラーが発生していたら、最適化は実施しない
+        if ! $unopt then
+          dbgPrint( "## Optimizing: Link Region=#{@root_namespace.get_name}\n")
+          @root_namespace.optimize
+        end
+      # end
+      dbgPrint "dump_tecsgen_rbdmp final: Region.path_str: #{region.get_namespace_path.get_path_str}\n"
+      File.write( "#{$gen}/tecsgen.rbdmp", Marshal.dump(Namespace.get_root) )
+    }
+  end
+  def self.post_coded?
+    @@b_post_coded
+  end
 end # class TECSGEN

EcnlProtoTool/trunk/asp3_dcre/tecsgen/tecslib/core/types.rb

-              r321
+              r429
 #      Generator for TOPPERS Embedded Component System
+#
 #   Copyright (C) 2008-2015 by TOPPERS Project
+#   Copyright (C) 2008-2017 by TOPPERS Project
 #--
 #   上記著作権者は，以下の(1)～(4)の条件を満たす場合に限り，本ソフトウェ
 …
 class FloatType < Type
 #  @bit_size::         32, 64, (80), -32, -64
+#  @bit_size::         32, 64, (80), -32, -64, -128
   def initialize( bit_size )
 …
     when -64
       str = "#{str}double"
+    when -128
+      str = "#{str}long double"
     end
     return str
 …
 #  @b_has_sized_pointer_member:: bool : メンバにポインタ型がある
 #  @b_has_unsized_string_member:: bool : メンバにポインタ型がある
+#  @b_hasTag:: bool : タグがある
 #  @member_types_symbol:: Symbol : tag が無い時のみ設定 (それ以外では nil)
 …
     super()
     @tag = tag
+    if tag then
+      @b_hasTag = true
+    else
+      @b_hasTag = false
+    end
     @@structtype_current_sp += 1
     @@structtype_current_stack[@@structtype_current_sp] = self
 …
     str = super
     if @tag then
+    if @b_hasTag then
       # typedef struct tag StructType; の形式の場合
       # struct の本体は、別に生成される
       return "#{str}struct #{@tag} "
+      return "#{str}struct #{@tag}"
     else
       # typedef struct { int a; } StructType; の形式の場合
       str += "struct {\n"
+      str += "struct {"
       @members_decl.get_items.each{ |i|
         str += sprintf( "    %-8s %s%s;\n", "#{i.get_type.get_type_str}", "#{i.get_name}", "#{i.get_type.get_type_str_post}" )
+        str += sprintf( "%s %s%s;", "#{i.get_type.get_type_str}", "#{i.get_name}", "#{i.get_type.get_type_str_post}" )
+      }
       str += "} "
 …
   def check_init( locale, ident, initializer, kind, attribute = nil )
     if ( initializer.instance_of?( Array ) ) then
+      # 要素数が指定されている場合、初期化要素数をチェック
+      if @subscript then
+        n_sub = @subscript.eval_const( nil )
+        if n_sub then
+          if initializer.length > n_sub then
+            cdl_error2( locale, "T9999 $1: too many initializer, $2 for $3" , ident, initializer.length, n_sub )
+          end
+        end
+      end
       index = 0
       initializer.each{ |i|
 …
 # 動的結合で渡すデスクリプタ型
 class DescriptorType < Type
+# @sinagure_nsp::NamespacePath
+  # @sinagure_nsp::NamespacePath
+  @@descriptors = {}
   def initialize( signature_nsp )
     @signature_nsp = signature_nsp
+    obj = Namespace.find signature_nsp
+    if ! obj.kind_of? Signature then
+      cdl_error( "T9999 '$1': not signature or not found", signature_nsp.to_s )
+    else
+      if obj.has_descriptor? then
+        cdl_error( "T9999 '$1': has Desicrptor in function parameter", signature_nsp.to_s )
+      end
+    end
+    # check_signature ##
+    @@descriptors[ self ] = false
   end
   def get_type_str
     "Descriptor( #{@signature_nsp.to_s} )"
+    "Descriptor( #{@signature_nsp.get_global_name} )"
   end
 …
   end
+  def self.check_signature
+    @@descriptors.each{ |desc, val|
+      if val != true then
+        desc.check_signature
+        @@descriptors[ desc ] = true
+      end
+    }
+  end
+  def check_signature
+    # p "Desc #{@signature_nsp.to_s}"
+    obj = Namespace.find @signature_nsp
+    if ! obj.kind_of? Signature then
+      cdl_error( "T9999 '$1': not signature or not found", @signature_nsp.to_s )
+    else
+      if obj.has_descriptor? then
+       # cdl_error( "T9999 '$1': has Descriptor in function parameter", @signature_nsp.to_s )
+      end
+      # @signature_nsp = obj.get_namespace_path
+    end
+  end
   #== DescriptorType#
-  # 意味解析段階では nil が返される可能性に注意
   def get_signature
     Namespace.find @signature_nsp

EcnlProtoTool/trunk/asp3_dcre/tecsgen/tecslib/messages/messages_console_en_US.rb

-              r321
+              r429
 #      Generator for TOPPERS Embedded Component System
+#
 #   Copyright (C) 2008-2014 by TOPPERS Project
+#   Copyright (C) 2008-2017 by TOPPERS Project
 #--
 #   上記著作権者は，以下の(1)～(4)の条件を満たす場合に限り，本ソフトウェ
 …
 @@warning_message[ :"W6004" ] = "need 'void' for no parameter"
+###
+# info メッセージ
+@@info_message = {}
 end

EcnlProtoTool/trunk/asp3_dcre/tecsgen/tecslib/messages/messages_console_ja_JP.rb

-              r321
+              r429
 #      Generator for TOPPERS Embedded Component System
+#
 #   Copyright (C) 2008-2014 by TOPPERS Project
+#   Copyright (C) 2008-2017 by TOPPERS Project
 #--
 #   上記著作権者は，以下の(1)～(4)の条件を満たす場合に限り，本ソフトウェ
 …
 @@warning_message[ :"W6004" ] = "パラメータが存在しない場合 'void' が必要です"
+###
+# info メッセージ
+@@info_message = {}
 end

EcnlProtoTool/trunk/asp3_dcre/tecsgen/tecslib/messages/messages_file_en_US.rb

-              r321
+              r429
 #      Generator for TOPPERS Embedded Component System
+#
 #   Copyright (C) 2008-2014 by TOPPERS Project
+#   Copyright (C) 2008-2018 by TOPPERS Project
 #--
 #   上記著作権者は，以下の(1)～(4)の条件を満たす場合に限り，本ソフトウェ
 …
 #  * このファイルを編集して使用することが意図されていますが
 #  * tecsgen の再実行により上書きされてしまうため、通常
 #  *   gen/%s_template.c => src/%s.c
+#  *   gen/%s_templ.c => src/%s.c
 #  * のように名前, フォルダを変更してから修正します
 #  */
 …
  * This file was automatically generated by tecsgen.
  * Move and rename like below before editing,
  *   gen/%s_template.c => src/%s.c
+ *   gen/%s_templ.c => src/%s.c
  * to avoid to be overwritten by tecsgen.
  */
 …
 @@comment[ :EPM_comment ] = "\n/* entry port function macro (abbrev) %s */\n"
+# @@comment[ :CRD_comment ] = "\n/* ディスクリプタ参照関数 %s */\n"
+@@comment[ :CRD_comment ] = "/* refer to descriptor function %s */\n"
+# @@comment[ :CRDA_comment ] = "\n/* ディスクリプタ参照マクロ（短縮形） %s */\n"
+@@comment[ :CRDA_comment ] = "\n/* refer to descriptor macro (abbrev) %s */\n"
+# @@comment[ :SDF_comment ] = "/* ディスクリプタ設定関数 %s */\n"
+@@comment[ :SDF_comment ] = "/* set descriptor function %s */\n"
+# @@comment[ :SDMA_comment ] = "\n/* ディスクリプタ設定マクロ（短縮形） %s */\n"
+@@comment[ :SDMA_comment ] = "\n/* set descriptor macro (abbrev) %s */\n"
 # @@comment[ :CTIX_comment ] = "\n/* セルタイプのIDX型 %s */\n"
 @@comment[ :CTIX_comment ] = "\n/* celltype IDX type %s */\n"
 …
 @@comment[ :TEFB_comment ] = "\t/* Put statements here %s */\n"
+# @@comment[ :MCPP_comment ] = "/* セル CB プロトタイプ宣言 %s */\n"
+@@comment[ :MCPP_comment ] = "/* cell CB prototype declaration %s */\n"
+# @@comment[ :MCPB_comment ] = "/* セル CB プロトタイプ宣言 %s */\n"
+@@comment[ :MCPB_comment ] = "/* cell CB prototype declaration %s */\n"
 end

EcnlProtoTool/trunk/asp3_dcre/tecsgen/tecslib/messages/messages_file_ja_JP.rb

-              r321
+              r429
 #      Generator for TOPPERS Embedded Component System
+#
 #   Copyright (C) 2008-2014 by TOPPERS Project
+#   Copyright (C) 2008-2018 by TOPPERS Project
 #--
 #   上記著作権者は，以下の(1)～(4)の条件を満たす場合に限り，本ソフトウェ
 …
  * このファイルを編集して使用することが意図されていますが
  * tecsgen の再実行により上書きされてしまうため、通常
  *   gen/%s_template.c => src/%s.c
+ *   gen/%s_templ.c => src/%s.c
  * のように名前, フォルダを変更してから修正します
  */
 …
 @@comment[ :CPMA_comment ] = "/* 呼び口関数マクロ（短縮形）%s */\n"
 @@comment[ :EPM_comment ] = "\n/* 受け口関数マクロ（短縮形） %s */\n"
+@@comment[ :CRD_comment ] = "/* ディスクリプタ参照関数 %s */\n"
+@@comment[ :CRDA_comment ] = "\n/* ディスクリプタ参照マクロ（短縮形） %s */\n"
+@@comment[ :SDF_comment ] = "/* ディスクリプタ設定関数 %s */\n"
+@@comment[ :SDMA_comment ] = "\n/* ディスクリプタ設定マクロ（短縮形） %s */\n"
 @@comment[ :CTIX_comment ] = "\n/* セルタイプのIDX型 %s */\n"
 @@comment[ :EPP_comment ] = "\n/* 受け口関数プロトタイプ宣言 %s */\n"
 …
 @@comment[ :TEPF_comment ] = "/* 受け口関数 %s */\n"
 @@comment[ :TEFB_comment ] = "\t/* ここに処理本体を記述します %s */\n"
+@@comment[ :MCPP_comment ] = "/* CB プロトタイプ宣言 %s */\n"
+@@comment[ :MCPB_comment ] = "/* CB プロトタイプ宣言 %s */\n"
 end

EcnlProtoTool/trunk/asp3_dcre/tecsgen/tecslib/plugin/DomainPlugin.rb

-              r321
+              r429
   #option::String : domain 指定子の第二引数
   def initialize( region, domain_type_name, option )
+    super()
   end
 …
     return false
   end
+  #== ドメイン種別を返す
+  #return::Symbol :kernel, :user, :OutOfDomain
+  def get_kind
+    :kernel
+  end
+  #== factory 生成
+  # DomainPlugin の factory は特定のファイルへの出力が想定されていない
+  def gen_factory
+  end
 end

EcnlProtoTool/trunk/asp3_dcre/tecsgen/tecslib/plugin/HRP2AlarmHandlerPlugin.rb

-              r321
+              r429
 #   アの利用により直接的または間接的に生じたいかなる損害に関しても，そ
 #   の責任を負わない．
+#
+#   $Id: HRP2AlarmHandlerPlugin.rb 2640 2017-06-03 11:27:12Z okuma-top $
+#
 #++
 …
     def print_cfg_cre(file, cell, val, tab)
         val[:id] = val[:id].gsub( /(^|[^\$])\$id\$/, "\\1#{@celltype.get_name.to_s}_#{cell.get_name.to_s}" )
         # $cbp$の代わり
         index = cell.get_id - @celltype.get_id_base
         cell_CB_name = "#{@celltype.get_global_name}_CB_tab[#{index}]"
+        # $cbp$  #983
+        name_array = @celltype.get_name_array cell
+        cell_CBP = name_array[8]    # CBP
         # CRE_XXXの生成
         if (cell.get_region.get_region_type != :DOMAIN) || (cell.get_region.get_param != :KERNEL_DOMAIN)
 …
         else
             file.print <<EOT
 #{tab}CRE_ALM(#{val[:id]}, { #{val[:attribute]}, &#{cell_CB_name}, tAlarmHandler_start });
+#{tab}CRE_ALM(#{val[:id]}, { #{val[:attribute]}, #{cell_CBP}, tAlarmHandler_start });
 EOT
         end

EcnlProtoTool/trunk/asp3_dcre/tecsgen/tecslib/plugin/HRP2CyclicHandlerPlugin.rb

-              r321
+              r429
 #      Generator for TOPPERS Embedded Component System
+#
 #   Copyright (C) 2008-2012 by TOPPERS Project
+#   Copyright (C) 2008-2017 by TOPPERS Project
 #--
 #   上記著作権者は，以下の(1)～(4)の条件を満たす場合に限り，本ソフトウェ
 …
 #   の責任を負わない．
+#
+#   $Id$
 #++
 …
     def print_cfg_cre(file, cell, val, tab)
         val[:id] = val[:id].gsub( /(^|[^\$])\$id\$/, "\\1#{@celltype.get_name.to_s}_#{cell.get_name.to_s}" )
         # $cbp$の代わり
         index = cell.get_id - @celltype.get_id_base
         cell_CB_name = "#{@celltype.get_global_name}_CB_tab[#{index}]"
+        # $cbp$  #983
+        name_array = @celltype.get_name_array cell
+        cell_CBP = name_array[8]    # CBP
         # CRE_XXXの生成
         if (cell.get_region.get_region_type != :DOMAIN) || (cell.get_region.get_param != :KERNEL_DOMAIN)
 …
         else
             file.print <<EOT
 #{tab}CRE_CYC(#{val[:id]}, { #{val[:attribute]}, &#{cell_CB_name}, tCyclicHandler_start, #{val[:cyclicTime]}, #{val[:cyclicPhase]} });
+#{tab}CRE_CYC(#{val[:id]}, { #{val[:attribute]}, #{cell_CBP}, tCyclicHandler_start, #{val[:cyclicTime]}, #{val[:cyclicPhase]} });
 EOT
         end

EcnlProtoTool/trunk/asp3_dcre/tecsgen/tecslib/plugin/HRP2DataqueuePlugin.rb

-              r321
+              r429
 #      Generator for TOPPERS Embedded Component System
+#
 #   Copyright (C) 2008-2012 by TOPPERS Project
+#   Copyright (C) 2008-2017 by TOPPERS Project
 #--
 #   上記著作権者は，以下の(1)～(4)の条件を満たす場合に限り，本ソフトウェ
 …
 #   の責任を負わない．
+#
+#   $Id$
 #++

EcnlProtoTool/trunk/asp3_dcre/tecsgen/tecslib/plugin/HRP2EventflagPlugin.rb

-              r321
+              r429
 #      Generator for TOPPERS Embedded Component System
+#
 #   Copyright (C) 2008-2012 by TOPPERS Project
+#   Copyright (C) 2008-2017 by TOPPERS Project
 #--
 #   上記著作権者は，以下の(1)～(4)の条件を満たす場合に限り，本ソフトウェ
 …
 #   の責任を負わない．
+#
+#   $Id$
 #++

EcnlProtoTool/trunk/asp3_dcre/tecsgen/tecslib/plugin/HRP2FixedSizeMemoryPoolPlugin.rb

-              r321
+              r429
 #      Generator for TOPPERS Embedded Component System
+#
 #   Copyright (C) 2008-2012 by TOPPERS Project
+#   Copyright (C) 2008-2017 by TOPPERS Project
 #--
 #   上記著作権者は，以下の(1)～(4)の条件を満たす場合に限り，本ソフトウェ
 …
 #   の責任を負わない．
+#
+#   $Id$
 #++

EcnlProtoTool/trunk/asp3_dcre/tecsgen/tecslib/plugin/HRP2HandlerPlugin.rb

-              r321
+              r429
 #      Generator for TOPPERS Embedded Component System
+#
 #   Copyright (C) 2008-2014 by TOPPERS Project
+#   Copyright (C) 2008-2018 by TOPPERS Project
 #--
 #   上記著作権者は，以下の(1)～(4)の条件を満たす場合に限り，本ソフトウェ
 …
 #   の責任を負わない．
+#
+#   $Id$
 #++
 #require "HRP2KernelObjectPlugin"
 require_tecsgen_lib "HRP2KernelObjectPlugin.rb"
 #== celltype プラグインの共通の親クラス
 …
     # tab  :
     def print_cfg_cre(file, cell, val, tab)
+        val[:id] = val[:id].gsub( /(^|[^\$])\$id\$/, "\\1#{@celltype.get_name.to_s}_#{cell.get_name.to_s}" )
+        # $cbp$の代わり
+        index = cell.get_id - @celltype.get_id_base
+        cell_CB_name = "#{@celltype.get_global_name}_CB_tab[#{index}]"
+        if !val[:id].nil?
+            val[:id] = val[:id].gsub( /(^|[^\$])\$id\$/, "\\1#{@celltype.get_name.to_s}_#{cell.get_name.to_s}" )
+        end
+        # $cbp$  #983
+        name_array = @celltype.get_name_array cell
+        cell_CBP = name_array[8]    # CBP
         # CRE_XXXの生成
         domainOption = cell.get_region.get_domain_root.get_domain_type.get_option
 …
         elsif @plugin_arg_str == "ALARM"
             file.print <<EOT
 #{tab}CRE_ALM(#{val[:id]}, { #{val[:attribute]}, &#{cell_CB_name}, tAlarmHandler_start });
+#{tab}CRE_ALM(#{val[:id]}, { #{val[:attribute]}, #{cell_CBP}, tAlarmHandler_start });
 EOT
         elsif @plugin_arg_str == "CYCLIC"
             file.print <<EOT
+#{tab}CRE_CYC(#{val[:id]}, { #{val[:attribute]}, &#{cell_CB_name}, tCyclicHandler_start, #{val[:cyclicTime]}, #{val[:cyclicPhase]} });
+#{tab}CRE_CYC(#{val[:id]}, { #{val[:attribute]}, #{cell_CBP}, tCyclicHandler_start, #{val[:cyclicTime]}, #{val[:cyclicPhase]} });
+EOT
+        elsif @plugin_arg_str == "CONFIG_INT"
+            file.print <<EOT
+#{tab}CFG_INT( #{val[:interruptNumber]}, { #{val[:attribute]}, #{val[:interruptPriority]} });
+EOT
+        elsif @plugin_arg_str == "ISR"
+            file.print <<EOT
+#{tab}ATT_ISR({ #{val[:attribute]}, #{cell_CBP}, #{val[:interruptNumber]}, tISR_start, #{val[:priority]} });
+EOT
+        elsif @plugin_arg_str == "INIT_ROUTINE"
+            file.print <<EOT
+#{tab}ATT_INI({ #{val[:attribute]}, #{cell_CBP}, tInitializeRoutine_start });
+EOT
+        elsif @plugin_arg_str == "TERM_ROUTINE"
+            file.print <<EOT
+#{tab}ATT_TER({ #{val[:attribute]}, #{cell_CBP}, tTerminateRoutine_start });
 EOT
         else
 …
         elsif @plugin_arg_str == "CYCLIC"
             file.puts "SAC_CYC(#{val[:id]}, { #{acv[0]}, #{acv[1]}, #{acv[2]}, #{acv[3]} });"
+        elsif @plugin_arg_str == "CONFIG_INT"
+            # nothing to do
+        elsif @plugin_arg_str == "ISR"
+            # nothing to do
+        elsif @plugin_arg_str == "INIT_ROUTINE"
+            # nothing to do
+        elsif @plugin_arg_str == "TERM_ROUTINE"
+            # nothing to do
         else
             raise "#{@plugin_arg_str} is unknown option"

EcnlProtoTool/trunk/asp3_dcre/tecsgen/tecslib/plugin/HRP2KernelObjectPlugin.rb

-              r321
+              r429
 #      Generator for TOPPERS Embedded Component System
+#
 #   Copyright (C) 2008-2012 by TOPPERS Project
+#   Copyright (C) 2008-2017 by TOPPERS Project
 #--
 #   上記著作権者は，以下の(1)～(4)の条件を満たす場合に限り，本ソフトウェ
 …
 #   の責任を負わない．
+#
+#   $Id$
 #++
 …
                 val = {}
                 @celltype.get_attribute_list.each{ |a|
                     p a.get_name
+                    # p a.get_name
                     if a.get_type.kind_of?( ArrayType )
                         val[a.get_name] = []
 …
                 if val[:id].nil? != true
                     puts val[:id]
+                    val[:id] = val[:id].gsub( /(^|[^\$])\$id\$/, "\\1#{@celltype.get_name.to_s}_#{cell.get_name.to_s}" )
+                    #val[:id] = val[:id].gsub( /(^|[^\$])\$id\$/, "\\1#{@celltype.get_name.to_s}_#{cell.get_name.to_s}" )
+                    val[:id] = @celltype.subst_name( val[:id], @celltype.get_name_array( cell ) )
                 end
                 # $cbp$の代わり
 …
                         file2.puts "}\n"
                     else
                         print "~~~~~ #{cell.get_region.get_name.to_s} is included in"
                         p @@region_list
+                        dbgPrint "~~~~~ #{cell.get_region.get_name.to_s} is included in"
+                        # p @@region_list
                     end
                     file3 = AppFile.open( "#{$gen}/tecsgen_#{cell_domain_root.get_name.to_s}.cfg" )
 …
                 puts "===== end check my domain #{cell.get_name} ====="
                 # SAC_XXXの生成
+                puts "===== begin check regions #{cell.get_name} ====="
+                p val[:accessPattern]
+                p val[:accessPattern].class
+                #ep = [ :eTaskActivate, :eTaskControl, :eTaskManage, :eTaskRefer ]
+                #各カーネルオブジェクトの受け口名を取得
+                # ep = get_entry_ports_name_list()
+                i = 0
+                acv = []
+                # アクセス許可ベクタの生成
+                val[:accessPattern].each { |acptnx|
+                    # アクセス許可パターンの生成
+                    if acptnx != "OMIT"
+                        acv << acptnx
+                        p acv[i]
+                    elsif cell_domain_type.get_option.to_s == "trusted"
+                        acv << "TACP_KERNEL"
+                        p acv[i]
+                    elsif cell_domain_type.get_option.to_s != "OutOfDomain"
+                        acv << "TACP(#{cell_domain_root.get_name.to_s})"
+                if !val[:accessPattern].nil?
+                    puts "===== begin check regions #{cell.get_name} ====="
+                    # p val[:accessPattern]
+                    # p val[:accessPattern].class
+                    #ep = [ :eTaskActivate, :eTaskControl, :eTaskManage, :eTaskRefer ]
+                    #各カーネルオブジェクトの受け口名を取得
+                    # ep = get_entry_ports_name_list()
+                    i = 0
+                    acv = []
+                    # アクセス許可ベクタの生成
+                    val[:accessPattern].each { |acptnx|
+                        # アクセス許可パターンの生成
+                        if acptnx != "OMIT"
+                            acv << acptnx
+                            # p acv[i]
+                        elsif cell_domain_type.get_option.to_s == "trusted"
+                            acv << "TACP_KERNEL"
+                            # p acv[i]
+                        elsif cell_domain_type.get_option.to_s != "OutOfDomain"
+                            acv << "TACP(#{cell_domain_root.get_name.to_s})"
+                        else
+                            acv << "TACP_SHARED"
+                        end
+                        i += 1
+                    }
+                    dbgPrint "acv = "
+                    p acv
+                    #各種SACの生成
+                    domainOption = cell_domain_type.get_option
+                    # if cell.get_region.get_region_type == :DOMAIN
+                    if domainOption != "OutOfDomain"
+                        # 保護ドメインに属する場合
+                        file3 = AppFile.open( "#{$gen}/tecsgen_#{cell.get_region.get_name.to_s}.cfg" )
+                        print_cfg_sac(file3, val, acv)
+                        file3.close
                     else
+                        acv << "TACP_SHARED"
+                        # 無所属の場合
+                        print_cfg_sac(file2, val, acv)
                     end
+                    i += 1
+                }
+                print "acv = "
+                p acv
+                #各種SACの生成
+                domainOption = cell_domain_type.get_option
+                # if cell.get_region.get_region_type == :DOMAIN
+                if domainOption != "OutOfDomain"
+                    # 保護ドメインに属する場合
+                    file3 = AppFile.open( "#{$gen}/tecsgen_#{cell.get_region.get_name.to_s}.cfg" )
+                    print_cfg_sac(file3, val, acv)
+                    file3.close
+                else
+                    # 無所属の場合
+                    print_cfg_sac(file2, val, acv)
+                    puts "===== end check regions #{cell.get_name} ====="
                 end
-                puts "===== end check regions #{cell.get_name} ====="
             end
+        }
 …
     def self.check_referenced_cells()
         puts "===== begin check registered celltype ====="
+        dbgPrint "===== begin check registered celltype =====\n"
         self.get_celltype_list.each { |ct|
             p ct.get_name.to_s
+            dbgPrint( ct.get_name.to_s + "\n" )
+        }
         puts "===== end check registered celltype ====="
+        dbgPrint "===== end check registered celltype =====\n"
 =begin
 …
                 j = cell.get_join_list.get_item(p.get_name)
                 printf "===== check call port : "
                 p p.get_name.to_s
+                # p p.get_name.to_s
                 next if j.nil? # 未結合の場合
                 if @@celltype_list.include?(j.get_celltype)
 …
                     j.get_cell.set_referenced_cell(cell, j.get_port_name)
                     printf "===== check joined rhs cell : "
                     p j.get_cell.get_name.to_s
+                    # p j.get_cell.get_name.to_s
                     printf "===== check joined rhs port_name : "
                     p j.get_port_name
+                    # p j.get_port_name
                 end
+            }

EcnlProtoTool/trunk/asp3_dcre/tecsgen/tecslib/plugin/HRP2ObjectPlugin.rb

-              r321
+              r429
 #      Generator for TOPPERS Embedded Component System
+#
 #   Copyright (C) 2008-2014 by TOPPERS Project
+#   Copyright (C) 2008-2017 by TOPPERS Project
 #--
 #   上記著作権者は，以下の(1)～(4)の条件を満たす場合に限り，本ソフトウェ
 …
 #   の責任を負わない．
+#
+#   $Id$
 #++

EcnlProtoTool/trunk/asp3_dcre/tecsgen/tecslib/plugin/HRP2Plugin.rb

-              r321
+              r429
 #      Generator for TOPPERS Embedded Component System
+#
 #   Copyright (C) 2014 by TOPPERS Project
+#   Copyright (C) 2018 by TOPPERS Project
 #--
 #   上記著作権者は，以下の(1)～(4)の条件を満たす場合に限り，本ソフトウェ
 …
 #   の責任を負わない．
+#
+#   $Id$
 #++
 …
   def initialize( region, name, option )
+    print "MyDomainPlugin: initialize: region=#{region.get_name}, domainName=#{name}, option=#{option}\n"
+    super
+    print "HRP2Plugin: initialize: region=#{region.get_name}, domainName=#{name}, option=#{option}\n"
+    @region = region
+    @name   = name
+    case option
+    when "trusted", "nontrusted", "OutOfDomain"
+      # OK
+      @option = option
+    else
+      cdl_error( "HRPPlugin: '$1' is unacceptable domain kind, specify 'trusted' or 'nontrusted'", option )
+      @option = "trusted"   # とりあえず trusted を設定しておく
+    end
   end
 …
     # get_rhs_subscript:Integer or nil 受け口配列の添数 (Join::@rhs_subscript の説明参照)
     # return []
     print "MyDomainPlugin: add_through_plugin: #{current_region.get_name}=>#{next_region.get_name}, #{join.get_owner.get_name}.#{join.get_definition.get_name}=>#{join.get_cell.get_name}.#{join.get_port_name}, #{through_type}\n"
+    print "HRP2Plugin: add_through_plugin: #{current_region.get_name}=>#{next_region.get_name}, #{join.get_owner.get_name}.#{join.get_definition.get_name}=>#{join.get_cell.get_name}.#{join.get_port_name}, #{through_type}\n"
     puts "=====Join Check Start====="
 …
   end
+  #== ドメイン種別を返す
+  #return::Symbol :kernel, :user, :OutOfDomain
+  def get_kind
+    case @option
+    when "trusted"
+      return :kernel
+    when "nontrusted"
+      return :user
+    when "OutOfDomain"
+      return :OutOfDomain
+    end
+  end
   def joinable?(current_region, next_region, through_type )
     print "MyDomainPlugin: joinable? from #{current_region.get_name} to #{next_region.get_name} (#{through_type})\n"
+    print "HRP2Plugin: joinable? from #{current_region.get_name} to #{next_region.get_name} (#{through_type})\n"
     return true
   end

EcnlProtoTool/trunk/asp3_dcre/tecsgen/tecslib/plugin/HRP2PostHook.rb

-              r321
+              r429
 #      Generator for TOPPERS Embedded Component System
+#
 #   Copyright (C) 2012 by TOPPERS Project
+#   Copyright (C) 2017 by TOPPERS Project
 #--
 #   上記著作権者は，以下の(1)～(4)の条件を満たす場合に限り，本ソフトウェ
 …
 #   の責任を負わない．
+#
+#   $Id$
 #++

EcnlProtoTool/trunk/asp3_dcre/tecsgen/tecslib/plugin/HRP2RPCPlugin.rb

-              r321
+              r429
 #   の責任を負わない．
+#
+#   $Id$
 #++
 …
   #=== RPCPlugin の initialize
   #  説明は ThroughPlugin (plugin.rb) を参照
   def initialize( cell_name, plugin_arg, next_cell, next_cell_port_name, signature, celltype, caller_cell )
+  def initialize( cell_name, plugin_arg, next_cell, next_cell_port_name, next_cell_port_subscript, signature, celltype, caller_cell )
     super
     @b_noClientSemaphore = false
 …
     if cell.get_allocator_list.length > 0 then
       dbgPrint "make allocator"
+      dbgPrint "make allocator\n"
       file.print "#{indent_str}[allocator("
 …
     nest = @end_region.gen_region_str_pre file
     indent_str = "  " * nest
+    nest_str = "  " * nest
+    if @next_cell_port_subscript then
+      subscript = '[' + @next_cell_port_subscript.to_s + ']'
+    else
+      subscript = ""
+    end
     file.print <<EOT
 #{indent_str}cell #{@rpc_channel_celltype_name}Server #{@cell_name}Body {
 #{indent_str}    #{@call_port_name} = #{@next_cell.get_namespace_path.get_path_str}.#{@next_cell_port_name};
+#{indent_str}    #{@call_port_name} = #{@next_cell.get_namespace_path.get_path_str}.#{@next_cell_port_name}#{subscript};
 //#{indent_str}    #{@call_port_name} = #{@next_cell.get_name}.#{@next_cell_port_name};
 #{indent_str}  //cTDR         = #{@channelCellName}.eTDR;

EcnlProtoTool/trunk/asp3_dcre/tecsgen/tecslib/plugin/HRP2SVCPlugin.rb

-              r321
+              r429
 #   の責任を負わない．
+#
+#   $Id$
 #++
 …
   @@generated_celltype_header = {}
   def initialize( cell_name, plugin_arg, next_cell, next_cell_port_name, signature, celltype, caller_cell )
+  def initialize( cell_name, plugin_arg, next_cell, next_cell_port_name, next_cell_port_subscript, signature, celltype, caller_cell )
     super
     @ct_name_body = "#{@ct_name}SVCBody_#{@next_cell.get_name}_#{@next_cell_port_name}".to_sym
 …
     nest = @end_region.gen_region_str_pre file
     nest_str = "  " * nest
+    if @next_cell_port_subscript then
+      subscript = '[' + @next_cell_port_subscript.to_s + ']'
+    else
+      subscript = ""
+    end
     # サーバー側チャンネルの生成
 …
 #{nest_str}  //  Server Side Channel
 #{nest_str}  cell #{@ct_name_body} #{@cell_name_body}{
 #{nest_str}    #{@call_port_name} = #{@next_cell.get_namespace_path.get_path_str}.#{@next_cell_port_name};
+#{nest_str}    #{@call_port_name} = #{@next_cell.get_namespace_path.get_path_str}.#{@next_cell_port_name}#{subscript};
 #{nest_str}  };
 EOT
 …
     nest = @start_region.gen_region_str_pre file
     nest_str = "  " * nest
+    if @next_cell_port_subscript then
+      subscript = '[' + @next_cell_port_subscript.to_s + ']'
+    else
+      subscript = ""
+    end
     # クライアント側チャンネルの生成
 …
 #{nest_str}  //  Client Side Channel
 #{nest_str}  cell #{@ct_name} #{@cell_name}{
 #{nest_str}    #{@call_port_name} = #{@next_cell.get_namespace_path.get_path_str}.#{@next_cell_port_name};
+#{nest_str}    #{@call_port_name} = #{@next_cell.get_namespace_path.get_path_str}.#{@next_cell_port_name}#{subscript};
 #{nest_str}  };

EcnlProtoTool/trunk/asp3_dcre/tecsgen/tecslib/plugin/HRP2TaskPlugin.rb

-              r321
+              r429
 #   の責任を負わない．
+#
+#   $Id$
 #++
 …
     # tab  :
     def print_cfg_cre(file, cell, val, tab)
+        val[:id] = val[:id].gsub( /(^|[^\$])\$id\$/, "\\1#{@celltype.get_name.to_s}_#{cell.get_name.to_s}" )
+        #val[:id] = val[:id].gsub( /(^|[^\$])\$id\$/, "\\1#{@celltype.get_name.to_s}_#{cell.get_global_name.to_s}" )
+        #val[:id] = @celltype.subst_name( val[:id], @celltype.get_name_array( cell ) )
         # $cbp$の代わり
         index = cell.get_id - @celltype.get_id_base
 …
         cell_CB_name = "#{index}"
         # CRE_XXX/DEF_XXXの生成
         print "assign task plugin\n"
+        dbgPrint "assign task plugin\n"
         domainOption = cell.get_region.get_domain_root.get_domain_type.get_option
         # if cell.get_region.get_region_type == :DOMAIN
+# cell.show_tree 1
         if domainOption != "OutOfDomain"
             # 保護ドメインに属する場合
 …
                     raise "system task cannot have user stack."
                 end
+p "CRE_TSK 0 user=#{val[:userStackSize]} system=#{val[:systemStackSize]}"
                 file.print <<EOT
 #{tab}CRE_TSK(#{val[:id]}, { #{val[:taskAttribute]}, #{cell_CB_name}, tTask_start_task, #{val[:priority]}, #{val[:systemStackSize]}, NULL });
 …
                     raise "user task must have user stack."
                 end
+p "CRE_TSK 1"
                 if val[:systemStackSize] == "OMIT"
                     file.print <<EOT
 …
 EOT
                 else
+p "CRE_TSK 2"
                     file.print <<EOT
 #{tab}CRE_TSK(#{val[:id]}, { #{val[:taskAttribute]}, #{cell_CB_name}, tTask_start_task, #{val[:priority]}, #{val[:userStackSize]}, NULL, #{val[:systemStackSize]}, NULL });
 …
                 ct = cell.get_celltype
                 if ct.class == Celltype && check_celltype_list.include?( ct ) == false
+                    # チェック済みセルタイプに登録
+                    check_celltype_list << ct
                     # 未チェックのセルタイプだった場合
                     # puts "check for ATT_MOD : #{ct.classget_global_name}"
 …
                     regions = ct.get_domain_roots
                     regions_hrp2 = regions[ :HRP2 ]
                     print "HRP2 domain in #{ct.get_name}: "
+                    dbgPrint "HRP2 domain in #{ct.get_name}: "
                     regions_hrp2.each { |reg|
                         print reg.get_name
+                        dbgPrint reg.get_name
+                    }
                     puts ""
 …
                     file.print "ATT_MOD(\"#{ct.get_global_name}.o\");\n"
                     file.close
-                    check_celltype_list << ct
                 else
                     # 何もしない

EcnlProtoTool/trunk/asp3_dcre/tecsgen/tecslib/plugin/MrubyBridgePlugin.rb

-              r321
+              r429
 #  mruby => TECS bridge
+#
 #   Copyright (C) 2008-2015 by TOPPERS Project
+#   Copyright (C) 2008-2017 by TOPPERS Project
+#
 #   上記著作権者は，以下の(1)～(4)の条件を満たす場合に限り，本ソフトウェ
 …
+#
+# Todo:
+# 生成するもの
+#  gen_cdl_file
+#    ブリッジ初期化セルタイプ (シグニチャごと)
+#       @@init_celltypes に記録
+#    ブリッジセルタイプ (シグニチャごと)
+#       @@celltypes に記録
+#    構造体セルタイプ
+#       @@struct_list に記録
+#  new_cell
+#    TECS 初期化セル(プロトタイプ宣言)
+#       @@VM_init_cells に記録
+#       @@VM_struct_list に記録
+#       @@VM_ptr_list に記録
+#  gen_post_code
+#    構造体初期化セル
+#    ポインタ初期化セル
+#    TECS 初期化セル
+#
+#   ep_func の作成
+#     signature, ポインタ、構造体 … 初期化受け口＝mruby VM への登録
+#     ポインタ
+#   preamble の作成
+#     ポインタ、構造体 … アクセス用コードの生成
+#     signature … ブリッジ関数のプロトタイプ宣言
+#   postamble の作成
+#     signature … ブリッジ関数の定義
+class MrubyBridgePlugin < SignaturePlugin
+  # プラグイン引数名 => Proc
+  MrubyBridgePluginArgProc = {
+      "ignoreUnsigned" => Proc.new { |obj,rhs| obj.set_ignoreUnsigned rhs },
+      "include" => Proc.new { |obj,rhs| obj.set_include rhs },
+      "exclude" => Proc.new { |obj,rhs| obj.set_exclude rhs },
+  }
+  @@celltypes = { }             # {celltype_name => [ BridgePlugin のインスタンスの配列 }
+  @@init_celltypes = { }        # {celltype_name => [ BridgePlugin のインスタンスの配列 }
+  @@struct_list = { }           # {struct_name=>StructType}
+  @@ptr_list = { }              # {ptr_celltype_name=> @@TYPE_MAP の対応するもの}
+  @@VM_list = { }               # VM_name => true
+  @@VM_celltypes = {  }             # VM_name => { @celltype_name => セルの配列 }
+  @@VM_struct_list = { }           # {name=>StructType}
+  @@VM_ptr_list = { }              # { VM_name => {name=> @@TYPE_MAP の対応するもの} }
+  @@TYPE_MAP = {           # type_str   class             GET_SET
+    :char_t            => [:char_t,    "Char",     :Char,  :INT   ],
+    :uchar_t           => [:uchar_t,   "UChar",    :Char,  :INT   ],
+    :schar_t           => [:schar_t,   "SChar",    :Char,  :INT   ],
+    :bool_t            => [:bool_t,    "Bool",     :Bool,  :BOOL  ],
+    :int8_t            => [:int8_t,    "Int8",     :Int,   :INT   ],
+    :int16_t           => [:int16_t,   "Int16",    :Int,   :INT   ],
+    :int32_t           => [:int32_t,   "Int32",    :Int,   :INT   ],
+    :int64_t           => [:int64_t,   "Int64",    :Int,   :INT   ],
+    :uint8_t           => [:uint8_t,   "UInt8",    :Int,   :INT   ],
+    :uint16_t          => [:uint16_t,  "UInt16",   :Int,   :INT   ],
+    :uint32_t          => [:uint32_t,  "UInt32",   :Int,   :INT   ],
+    :uint64_t          => [:uint64_t,  "UInt64",   :Int,   :INT   ],
+    :int               => [:int,       "Int",      :Int,  :INT   ],
+    :char              => [:char,      "Char",     :Char, :INT   ],    # char は char_t として扱う
+    :short             => [:short,     "Short",    :Int,  :INT   ],
+    :long              => [:long,      "Long",     :Int,  :INT   ],
+    :"unsigned char"   => [:uchar_t,   "UChar",         :Char, :INT   ],
+    :"unsigned int"    => [:"unsigned int",   "UInt",   :Int,  :INT   ],
+    :"unsigned short"  => [:"unsigned short", "UShort", :Int,  :INT   ],
+    :"unsigned long"   => [:"unsigned long",  "ULong",  :Int,  :INT   ],
+    :"signed char"     => [:schar_t,   "SChar",    :Char,  :INT   ],
+    :"signed int"      => [:int,       "Int",      :Int,   :INT   ],
+    :"signed short"    => [:short,     "Short",    :Int,   :INT   ],
+    :"signed long"     => [:long,      "Long",     :Int,   :INT   ],
+    :float32_t         => [:float32_t, "Float32",  :Float, :FLOAT ],
+    :double64_t        => [:double64_t,"Double64", :Float, :FLOAT ],
+    :float             => [:float,     "Float32",  :Float, :FLOAT ],
+    :double            => [:double,    "Double64", :Float, :FLOAT ]
+  }
+  # included  or excluded functions
+  ### ロードされた時点で実行される ###
+  # -I に $(TECSPATH)/mruby を追加
+  # TECSGEN::Makefile.add_obj "$(MRUBY_MAIN_OBJ)"
+  TECSGEN::Makefile.add_ldflag "-lmruby -L$(MRUBYPATH)/lib -lm"
+  TECSGEN::Makefile.add_search_path "$(MRUBYPATH)/include"
+  TECSGEN::Makefile.add_var "MRUBYPATH",      "..",  "CHANGE this to suitable path"
+  # TECSGEN::Makefile.add_var "MRUBY_MAIN_OBJ", "$(_TECS_OBJ_DIR)tecs_mruby.o", "CHANGE this if your have your main"
+  #=== プラグインインスタンスの初期化
+  # 戻り値、引数の型が使用可能なものかチェックする
+  #
+  def initialize( signature, option )
+    super
+    if ! $no_banner
+      STDERR << "MrubyBridgePlugin: version 1.2.0 (Suitable for mruby ver 1.2.0. Has backward compatibility with ver 1.1.0)\n"
+    end
+    @b_ignoreUnsigned = false
+    @includes = []
+    @excludes = []
+    @struct_list = { }
+    @ptr_list = { }
+    @plugin_arg_check_proc_tab = MrubyBridgePluginArgProc
+    parse_plugin_arg
+    @celltype_name = :"t#{@signature.get_global_name}"
+    @init_celltype_name = :"#{@celltype_name}_Initializer"
+        # this variable is sometimes not used. rhs coded directry.
+    @class_name = :"T#{@signature.get_global_name}"
+    @func_head_array = []
+    if @includes.length > 0 && @excludes.length > 0 then
+      cdl_error( "MRB1011 both include && exclude are specified" )
+    end
+    if signature.get_function_head_array == nil then
+      return   # 以前に文法エラー発生
+    end
+    signature.get_function_head_array.each{ |func_head|
+      if @includes.length > 0 then
+        if @includes.index func_head.get_name then
+          dbgPrint "MrubyBridgePlugin: #{func_head.get_name} INCLUDED\n"
+          @func_head_array << func_head
+        else
+          dbgPrint "MrubyBridgePlugin: #{func_head.get_name} NOT included\n"
+        end
+      elsif @excludes.length > 0 then
+        if @excludes.index( func_head.get_name ) == nil then
+          dbgPrint "MrubyBridgePlugin: #{func_head.get_name} NOT excluded\n"
+          @func_head_array << func_head
+        else
+          dbgPrint "MrubyBridgePlugin: #{func_head.get_name} EXCLUDED\n"
+        end
+      else
+        @func_head_array << func_head
+      end
+    }
+    if @func_head_array.length == 0 then
+      cdl_error( "MRB1012 '$1' no function remained by exclude", @signature.get_name )
+    end
+    check_name_and_return_type @func_head_array
+    check_parameter_type @func_head_array
+  end
+  #=== check function name & return type
+  def check_name_and_return_type func_head_array
+    b_init = false; b_init_cell = false
+    func_head_array.each{ |func_head|
+      if( func_head.get_name == :initialize )then
+        cdl_warning( "MRW2001 initialize: internally defined. change to initialize_cell in ruby" )
+        b_init = true
+      elsif( func_head.get_name == :initialize_cell )then
+        b_init_cell = true
+      end
+      rtype = func_head.get_return_type.get_original_type
+      case rtype
+      when BoolType, IntType, FloatType, VoidType
+      else
+        cdl_error( "MRB1001 cannot return type $1", rtype.get_type_str )
+      end
+    }
+    if( b_init && b_init_cell )then
+      cdl_warning( "MRB1002 initialize: internally defined. change to initialize_cell in ruby" )
+#== MrubyBridgePlugin クラス
+class MrubyBridgePlugin < MultiPlugin
+  def self.get_plugin superClass
+    # case when (つまりは ===) では、期待したように一致しない模様
+    if superClass == SignaturePlugin then
+      dbgPrint "MrubyBridgePlugin: SignaturePlugin"
+      require_tecsgen_lib 'tecslib/plugin/MrubyBridgeSignaturePlugin.rb'
+      return MrubyBridgeSignaturePlugin
+    elsif superClass == CelltypePlugin
+      dbgPrint "MrubyBridgePlugin: CelltypePlugin"
+      require_tecsgen_lib 'tecslib/plugin/MrubyBridgeCelltypePlugin.rb'
+      return MrubyBridgeCelltypePlugin
+    elsif superClass == CompositePlugin
+      dbgPrint "MrubyBridgePlugin: CompositePlugin"
+      require_tecsgen_lib 'tecslib/plugin/MrubyBridgeCompositePlugin.rb'
+      return MrubyBridgeCompositePlugin
+    elsif superClass == CellPlugin
+      dbgPrint "MrubyBridgePlugin: CellPlugin"
+      require_tecsgen_lib 'tecslib/plugin/MrubyBridgeCellPlugin.rb'
+      return MrubyBridgeCellPlugin
+    #elsif superClass == ThroughPlugin
+    #  return ThroughPlugin
+    #elsif superClass == DomainPlugin
+    #  return DomainPlugin
+    else
+      dbgPrint "MrubyBridgePlugin: unsupported"
+      return nil
     end
   end
-  #=== check paramter type
-  def check_parameter_type func_head_array
-    # check type of parameters
-    func_head_array.each{ |fh|
-      fh.get_paramlist.get_items.each{ |param_decl|
-        case param_decl.get_direction
-        when :SEND, :RECEIVE
-          cdl_error( "MRB1003 $1: $2 parameter cannot be used in mruby Bridge",  param_decl.get_name, param_decl.get_direction.to_s.downcase )
-        end
-        type = param_decl.get_type
-        type_org = type.get_original_type
-        type_str = type.get_type_str + type.get_type_str_post
-        b_ng = false
-        case type_org
-        when IntType
-          case  type_org.get_bit_size
-          when 8, 16, 32, 64
-          when -1, -2, -3, -4, -11
-          else
-            b_ng = true
-          end
-        when BoolType
-        when FloatType
-        when PtrType
-          ttype_org = type_org.get_type       # ポインタの指している先の型
-          ttype = ttype_org.get_original_type # 上記の typedef されている場合、元の型
-          register_ptr_type ttype_org
-          if( type_org.get_string.to_s == "-1" ) then
-            case param_decl.get_direction
-            when :OUT, :INOUT
-              cdl_error( "MRB9999 string specifier without length cannot be used for out & inout parameter")
-            end
-          end
-          case ttype
-          when IntType
-            bit_size = ttype.get_bit_size
-            # if  bit_size < 0 && bit_size != -1 then
-            #   b_ng = true
-            # end
-          when FloatType
-          when BoolType
-          when StructType
-            if( type_org.get_size || type_org.get_string || type_org.get_count ) then
-              cdl_error( "MRB1004 $1: size_is, count_is, string cannot be specified for struct pointer", param_decl.get_name )
-            end
-            check_struct_member ttype_org
-          else
-            b_ng = true
-          end
-        when StructType
-          check_struct_member type_org
-        else  # ArrayType, FuncType, EnumType, VoidType
-          b_ng = true
-        end
-        if b_ng then
-          cdl_error( "MRB1005 $1: type $2 cannot be used in mruby Bridge", param_decl.get_name, type_str )
-        end
+      }
+    }
-  end
-  #=== 構造体のメンバーの型のチェック
-  def check_struct_member struct_type
-    #p "tag name:#{struct_type.get_name}"
-    # sttype = Namespace.find_tag( struct_type.get_name )
-    sttype = struct_type.get_original_type
-    if sttype.get_name == nil then
-      cdl_error( "MRB10007 tagless-struct cannot be handled")
-    end
-    sttype.get_members_decl.get_items.each { |d|
-      t = d.get_type.get_original_type
-      case t
-      when IntType, FloatType, BoolType
-      else
-        cdl_error( "MRB1006 $1: type $2 not allowed for struct member", d.get_name, d.get_type.get_type_str + d.get_type.get_type_str_post )
-      end
+    }
-    st_name = :"t{}"
-    if @struct_list[ sttype.get_name ] == nil then
-      # print_msg "  MrubyBridgePlugin: [struct]   #{struct_type.get_type_str} => class TECS::Struct#{sttype.get_name}\n"
-      print "  MrubyBridgePlugin: [struct]   #{struct_type.get_type_str} => class TECS::Struct#{sttype.get_name}\n"
-      @struct_list[ sttype.get_name ] = sttype
-    end
-  end
-  def register_ptr_type ttype
-    t_org = ttype.get_original_type
-    tment = get_type_map_ent t_org
-    if tment == nil then
-      return
-      cdl_error( "MRB1008 unknown pointer type '$1'", ttype.get_type_str )
-    end
-    ptr_celltype_name = :"t#{tment[1]}Pointer"
-    if @@ptr_list[ ptr_celltype_name ] == nil then
-      # print_msg "  MrubyBridgePlugin: [pointer]  #{ttype.get_type_str}* => class TECS::#{tment[1]}Pointer\n"
-      print "  MrubyBridgePlugin: [pointer]  #{ttype.get_type_str}* => class TECS::#{tment[1]}Pointer\n"
-      @@ptr_list[ ptr_celltype_name ] = tment
-    end
-    if @ptr_list[ ptr_celltype_name ] == nil then
-      @ptr_list[ ptr_celltype_name ] = tment
-    end
-  end
-  def get_type_map_ent ttype
-    # structure type is registerd in check_struct_member
-    if ttype.kind_of? StructType
-      return
-    end
-    tstr = ttype.get_type_str.sub( /const /, "" )    # const は無視
-    tstr = tstr.sub( /volatile /, "" )               # volatile も無視
-    if @b_ignoreUnsigned then
-      tstr = tstr.sub( /unsigned /, "" )             # volatile も無視
-      tstr = tstr.sub( /uint/, "int" )               # volatile も無視
-      tstr = tstr.sub( /[cs]char/, "char" )          # volatile も無視
-    end
-    return @@TYPE_MAP[ tstr.to_sym ]
-  end
-  #===  CDL ファイルの生成
-  #      typedef, signature, celltype, cell コードを生成
-  #file::        FILE       生成するファイル
-  def gen_cdl_file(file)
-    # ブリッジセルタイプの生成
-    if @@celltypes[ @celltype_name ] == nil then
-      @@celltypes[ @celltype_name ] = [ self ]
-      @@init_celltypes[ @init_celltype_name ] = true
-      print_msg <<EOT
-  MrubyBridgePlugin: [signature] #{@signature.get_namespace_path} => [celltype] nMruby::#{@celltype_name} => [class] TECS::#{@class_name}
-EOT
-      file.print <<EOT
-import( <mruby.cdl> );
-/****  Ruby => TECS Bridge Celltype (MBP500) ****/
-namespace nMruby{
-    // bridge celltype
-    [idx_is_id,active]   // not actually active, to avoid warning W1002, W1007
-    celltype #{@celltype_name} {
-        call #{@signature.get_namespace_path.to_s} cTECS;
-        attr {
-            [omit]
-            char_t *VMname = "VM";
-        };
-    };
-    // bridge initializer celltype
-    celltype #{@init_celltype_name} {
-        entry sInitializeTECSBridge eInitialize;
-    };
-};
-EOT
-      # 構造体セルタイプの生成
-      @struct_list.each{ |name, sttype|
-        if @@struct_list[ name ] == nil then
-          file.print <<EOT
-namespace nMruby{
-    [singleton]
-    celltype #{name} {
-        entry sInitializeTECSBridge eInitialize;
-    };
-};
-EOT
-          @@struct_list[ name ] = sttype
-        end
+      }
-    else
-      cdl_warning( "MRBW001 MrubyBridgePlugin: signature '$1' duplicate. ignored current one", @signature.get_namespace_path )
-      @@celltypes[ @celltype_name ] << self
-    end
-  end
-  #=== gen_cdl_file で定義したセルタイプに 新しいセルが定義された
-  # cell のセルタイプの名前は @celltype_name
-  def new_cell cell
-    if cell.get_celltype.get_name != @celltype_name then
-      return
-    end
-    join = cell.get_join_list.get_item :VMname
-    if join then
-      vm_name = CDLString.remove_dquote(join.get_rhs.to_s).to_sym
-    else
-      vm_name = :"VM"
-    end
-    if @@VM_list[ vm_name ] == nil then
-      @@VM_list[ vm_name ] = true
-      initializer_celltype_cdl = "#{$gen}/#{cell.get_name}Initializer.cdl"
-      file = CFile.open( initializer_celltype_cdl, "w" )
-      # TECS 初期化セル(プロトタイプ宣言)
-      print_msg "  MrubyBridgePlugin: join your VM's cInitialize to #{vm_name}_TECSInitializer.eInitialize\n"
-      file.print <<EOT
-  // prototype of TECSInitializer (MBP510)
-  cell nMruby::tTECSInitializer #{vm_name}_TECSInitializer;
-EOT
-      file.close
-      Generator.parse( initializer_celltype_cdl, self )
-    end
-    if @@VM_celltypes[ vm_name ] then
-      vma = @@VM_celltypes[ vm_name ]
-      if vma[ @celltype_name ] then
-        vma[ @celltype_name ] << cell
-      else
-        vma[ @celltype_name ] = [cell]
-        @@VM_celltypes[ vm_name ] = vma
-      end
-    else
-      vma = { }
-      vma[ @celltype_name ] = [cell]
-      @@VM_celltypes[ vm_name ] = vma
-    end
-    @struct_list.each{ |stname, sttype|
-      if @@VM_struct_list[ vm_name ] then
-        @@VM_struct_list[ vm_name ][ sttype.get_name ] = sttype
-      else
-        @@VM_struct_list[ vm_name ] = { sttype.get_name => sttype }
-      end
+    }
-    @ptr_list.each{ |ptr_celltype_name, tment|
-      if @@VM_ptr_list[ vm_name ] then
-        @@VM_ptr_list[ vm_name ][ ptr_celltype_name ] = tment
-      else
-        @@VM_ptr_list[ vm_name ] = { ptr_celltype_name => tment }
-      end
+    }
-  end
-  #=== プラグインが CDL の POST コードを生成
-  # tmp_plugin_post_code.cdl への出力
-  def self.gen_post_code file
-#     file.print <<EOT
-# namespace nMruby {
-# EOT
+#
-#     @@ptr_list.each{ |name,tment|
-#       file.print <<EOT
+#
-#     // MBP600
-#     [singleton]
-#     celltype #{name} {
-#         entry  sInitializeTECSBridge eInitialize;
-#     };
-# EOT
-#     }
+#
-#     file.print <<EOT
-# };
-# EOT
-# gen_post_code で生成した celltype は gen_ep_func が呼び出されない #847
-#    @@struct_list.each{ |name,sttype|
-#      file.print <<EOT
+#
-#    [singleton]
-#    celltype #{name} {
-#        entry  sInitializeTECSBridge eInitialize;
-#    };
-#EOT
-#    }
-    file.print "  // MBP601\n"
-    @@VM_celltypes.each{ |vm_name, instance_list|
-      instance_list.each { |celltype_name, array|
-        cell = array[0]
-        if cell.get_celltype then
-          ct_name = cell.get_celltype.get_name
-        file.print <<EOT
-  cell nMruby::#{ct_name}_Initializer #{vm_name}_#{ct_name}_Initializer{ };
-EOT
-        end
+      }
+    }
-    file.print "  // MBP602\n"
-    @@ptr_list.each{ |name,tment|
-      file.print <<EOT
-  cell nMruby::#{name} C#{name} { };
-EOT
+    }
-    file.print "  // MBP603\n"
-    @@struct_list.each{ |name,sttype|
-      file.print <<EOT
-  cell nMruby::#{name} C#{name} { };
-EOT
+    }
-    if @@VM_celltypes == nil
-      raise "are0"
-    end
-    @@VM_celltypes.each{ |vm_name, instance_list|
-      file.print "  /* === VM #{vm_name} === (MBP610) */\n"
-      init_cell_name = "#{vm_name}_TECSInitializer"
-      file.print "  cell nMruby::tTECSInitializer #{init_cell_name} {\n"
-      instance_list.each { |celltype_name, array|
-        array.each{ |cell|
-          ct_name = cell.get_celltype.get_name
-          file.print "    cInitialize[] = #{vm_name}_#{ct_name}_Initializer.eInitialize;\n"
+        }
+      }
-      if @@VM_ptr_list[vm_name] then
-        @@VM_ptr_list[vm_name].each{ |name, tment|
-          file.print "    cInitialize[] = C#{name}.eInitialize;\n"
+        }
-      end
-      if @@VM_struct_list[vm_name] then
-        @@VM_struct_list[vm_name].each{ |name, sttype|
-          file.print "    cInitialize[] = C#{name}.eInitialize;\n"
+        }
-      end
-      file.print "  };"
+    }
-  end
-  ####### 以下コード生成段階 ######
-  #===  受け口関数の本体コードを生成（頭部と末尾は別途出力）
-  #ct_name:: Symbol    (プラグインで生成された) セルタイプ名 ．Symbol として送られてくる
-  def gen_ep_func_body( file, b_singleton, ct_name, global_ct_name, sig_name, ep_name, func_name, func_global_name, func_type, params )
-    if @@celltypes[ ct_name ] then
-      gen_ep_func_body_bridge( file, b_singleton, ct_name, global_ct_name, sig_name, ep_name, func_name, func_global_name, func_type, params )
-    elsif @@init_celltypes[ ct_name ] then
-      gen_ep_func_body_bridge_init( file, b_singleton, ct_name, global_ct_name, sig_name, ep_name, func_name, func_global_name, func_type, params )
-    elsif @@ptr_list[ ct_name ] then
-      gen_ep_func_body_ptr( file, b_singleton, ct_name, global_ct_name, sig_name, ep_name, func_name, func_global_name, func_type, params )
-    elsif @@struct_list[ ct_name ] then
-      gen_ep_func_body_struct( file, b_singleton, ct_name, global_ct_name, sig_name, ep_name, func_name, func_global_name, func_type, params )
-    else
-      raise "Unknown #{ct_name}"
-    end
-  end
-  def gen_ep_func_body_bridge( file, b_singleton, ct_name, global_ct_name, sig_name, ep_name, func_name, func_global_name, func_type, params )
-    raise "unexpected "
-  end
-  def gen_ep_func_body_bridge_init( file, b_singleton, ct_name, global_ct_name, sig_name, ep_name, func_name, func_global_name, func_type, params )
-    file.print <<EOT
-    CELLCB *p_cellcb = GET_CELLCB( idx );  /* no error check */     /* MBP700 */
-    struct RClass       *rc;
-    rc = mrb_define_class_under( mrb, TECS, \"#{@class_name}\", mrb->object_class );
-    mrb_define_method( mrb, rc, "initialize", MrubyBridge_#{@celltype_name}_initialize, MRB_ARGS_REQ(1) );
-    MRB_SET_INSTANCE_TT(rc, MRB_TT_DATA);
-EOT
-    @func_head_array.each{ |f|
-      if ! f.is_function? then
-        next
-      end
-      if f.get_name != :initialize then
-        func_name = f.get_name
-      else
-        func_name = :initialize_cell
-      end
-      ret_type = f.get_return_type
-      n_param = 0
-      f.get_paramlist.get_items.each{ |param|
-        case param.get_direction
-        when :IN, :INOUT, :OUT
-          n_param += 1
-        when :SEND, :RECEIVE
-          raise "send, receive"
-        end
+      }
-      if n_param > 0 then
-        p_str = "MRB_ARGS_REQ( #{n_param} )"
-      else
-        p_str = "MRB_ARGS_NONE()"
-      end
-      file.print <<EOT
-        mrb_define_method( mrb, rc, "#{func_name}", MrubyBridge_#{@celltype_name}_#{func_name}, #{p_str} );
-EOT
+    }
-  end
-  def gen_ep_func_body_ptr( file, b_singleton, ct_name, global_ct_name, sig_name, ep_name, func_name, func_global_name, func_type, params )
-    t = @@ptr_list[ct_name]
-    type = t[1]
-    file.print <<EOT
-        struct RClass *a;                                /* MBP710 */
-    a = mrb_define_class_under(mrb, TECS, "#{type}Pointer", mrb->object_class);
-    MRB_SET_INSTANCE_TT(a, MRB_TT_DATA);
-    mrb_define_method(mrb, a, "initialize",      #{type}Pointer_initialize,   MRB_ARGS_REQ(1));
-    mrb_define_method(mrb, a, "[]",              #{type}Pointer_aget,         MRB_ARGS_REQ(1));
-    mrb_define_method(mrb, a, "value",           #{type}Pointer_get_val,      MRB_ARGS_NONE());
-    mrb_define_method(mrb, a, "[]=",             #{type}Pointer_aset,         MRB_ARGS_REQ(2));
-    mrb_define_method(mrb, a, "value=",          #{type}Pointer_set_val,      MRB_ARGS_REQ(1));
-    mrb_define_method(mrb, a, "size",            #{type}Pointer_size,         MRB_ARGS_NONE());
-    mrb_define_method(mrb, a, "length",          #{type}Pointer_size,         MRB_ARGS_NONE());
-EOT
-    if t[2] == :Char then
-      file.print <<EOT
-        mrb_define_method(mrb, a, "to_s",            CharPointer_to_s, MRB_ARGS_NONE());
-        mrb_define_method(mrb, a, "from_s",          CharPointer_from_s, MRB_ARGS_REQ(1));
-EOT
-    end
-  end
-  def gen_ep_func_body_struct( file, b_singleton, ct_name, global_ct_name, sig_name, ep_name, func_name, func_global_name, func_type, params )
-    tag = ct_name
-    structType = @@struct_list[ tag ]
-    file.print  <<EOT
-        struct RClass *a;                                /* MBP720 */
-        a = mrb_define_class_under(mrb, TECS, "Struct#{tag}", mrb->object_class);
-        MRB_SET_INSTANCE_TT(a, MRB_TT_DATA);
-        mrb_define_method(mrb, a, "initialize", Struct_#{tag}_initialize, MRB_ARGS_NONE());
-EOT
-      structType.get_members_decl.get_items.each{ |d|
-        file.print "  STRUCT_INIT_MEMBER( #{tag}, #{d.get_name} )\n"
+      }
-  end
-  #===  受け口関数の preamble (C言語)を生成する
-  #     必要なら preamble 部に出力する
-  #file::           FILE        出力先ファイル
-  #b_singleton::    bool        true if singleton
-  #ct_name::        Symbol
-  #global_ct_name:: string
-  def gen_preamble( file, b_singleton, ct_name, global_ct_name )
-    if @@celltypes[ ct_name ] then
-      gen_preamble_mruby( file, b_singleton, ct_name, global_ct_name )
-      gen_preamble_instance( file, b_singleton, ct_name, global_ct_name )
-      gen_preamble_instance_initialize( file, b_singleton, ct_name, global_ct_name )
-      gen_preamble_bridge_func( file, b_singleton, ct_name, global_ct_name )
-    elsif @@init_celltypes[ ct_name ] then
-      gen_preamble_mruby( file, b_singleton, ct_name, global_ct_name )
-      gen_preamble_instance_proto( file, b_singleton, ct_name, global_ct_name )
-    elsif @@ptr_list[ ct_name ] then
-      gen_preamble_ptr( file, b_singleton, ct_name, global_ct_name )
-    elsif @@struct_list[ ct_name ] then
-      gen_preamble_struct( file, b_singleton, ct_name, global_ct_name )
-    else
-      raise "Unknown #{ct_name}"
-    end
-  end
-  def gen_preamble_mruby( file, b_singleton, ct_name, global_ct_name )
-    file.print <<EOT
-/* MBP: MrubyBridgePlugin: MBP000 */
-#include "mruby.h"
-#include "mruby/class.h"
-#include "mruby/data.h"
-#include "mruby/string.h"
-#include "TECSPointer.h"
-#include "TECSStruct.h"
-#if defined(_WIN32) || defined(__WIN32__) || defined(__CYGWIN__)
-#define DLLEXPORT __declspec(dllexport)
-#else
-#define DLLEXPORT
-#endif
-#ifndef NULL
-#define NULL 0
-#endif
-EOT
-  end
-  def gen_preamble_instance( file, b_singleton, ct_name, global_ct_name )
-    file.print <<EOT
-/* RData MBP001 */
-static void
-#{@celltype_name}_free( mrb_state *mrb, void *p )
+{
-        if( p )
-                (void)mrb_free( mrb, p );
+}
-/* RData MBP002 */
-struct mrb_data_type data_type_#{@celltype_name} =
+{
-        "#{@celltype_name}",
-        #{@celltype_name}_free
-};
-/* RData MBP003 */
-struct tecs_#{@celltype_name} {
-    CELLCB  *cbp;
-};
-/* name_to_cbp MBP010 */
-const struct name_to_cbp_#{@celltype_name} {
-    char   *name;    /* Cell Name */
-    CELLCB *cbp;
-} Name_to_cbp_#{@celltype_name}[] = {
-EOT
-    # mikan namespace
-    nsp = NamespacePath.new( :nMruby, true )
-    nsp.append! ct_name
-    ct = Namespace.find nsp
-    ct.get_cell_list.each{ |cell|
-      if cell.is_generate? then
-        name_array = ct.get_name_array( cell )
-        file.print "\t{ \"#{cell.get_name}\", #{name_array[8]} },\n"
-      end
+    }
-    file.print <<EOT
-\t{ 0, 0 },
-};
-EOT
-  end
-  def gen_preamble_ptr( file, b_singleton, ct_name, global_ct_name )
-    tment = @@ptr_list[ ct_name ]
-    file.print <<EOT
-GET_SET_#{tment[3]}( #{tment[1]}, #{tment[0]} )
-POINTER_CLASS( #{tment[1]}, #{tment[0]} )
-EOT
-  end
-  def gen_preamble_struct( file, b_singleton, ct_name, global_ct_name )
-    tag = ct_name
-    structType = @@struct_list[ tag ]
-    file.print <<EOT
-/* struct #{tag} */
-STRUCT_CLASS( #{tag} )
-EOT
-    structType.get_members_decl.get_items.each{ |d|
-      type = d.get_type.get_original_type
-      case type
-      when IntType, CIntType
-        bit_size = type.get_bit_size
-        case bit_size
-        when -11, -1
-          tType = "Char"
-          ttype = "char"
-        when -2
-          tType = "Short"
-          ttype = "short"
-        when -3
-          tType = "Int"
-          ttype = "int"
-        when -4
-          tType = "Long"
-          ttype = "long"
-        when -5
-          tType = "IntPtr"
-          ttype = "intptr"
-        when 8, 16, 32, 64
-          tType = "Int#{bit_size}"
-          ttype = "int#{bit_size}"
-        else
-            raise "cannot handle bit_size #{bit_size}"
-        end
-        file.print "MEMBER_GET_SET_INT( #{tag}, #{d.get_name}, #{tType}, #{ttype} )\n"
-      when FloatType, CFloatType
-        file.print "MEMBER_GET_SET_FLOAT( #{tag}, #{d.get_name} )\n"
-      else
-        raise "cannot handle type"
-      end
+    }
-  end
-  def gen_preamble_instance_proto( file, b_singleton, ct_name, global_ct_name )
-    file.print <<EOT
-//  Prototype MBP400
-mrb_value  MrubyBridge_#{@celltype_name}_initialize( mrb_state *mrb, mrb_value self);
-EOT
-    @func_head_array.each{ |f|
-      if ! f.is_function? then
-        next
-      end
-      if f.get_name != :initialize then
-        func_name = f.get_name
-      else
-        func_name = :initialize_cell
-      end
-      ret_type  = f.get_return_type
-      ret_type0 = f.get_return_type.get_original_type
-      b_void    = ret_type0.is_void?
-      plist     = f.get_paramlist.get_items
-      file.print <<EOT
-mrb_value  MrubyBridge_#{@celltype_name}_#{func_name}( mrb_state *mrb, mrb_value self );
-EOT
+    }
-  end
-  def gen_preamble_instance_initialize( file, b_singleton, ct_name, global_ct_name )
-    file.print <<EOT
-/* MBP100 */
-mrb_value
-MrubyBridge_#{@celltype_name}_initialize( mrb_state *mrb, mrb_value self)
+{
-        mrb_value       name;
-        struct tecs_#{@celltype_name} *tecs_cb;
-        const struct name_to_cbp_#{@celltype_name} *ntc;
-        /* set DATA_TYPE earlier to avoid SEGV */
-        DATA_TYPE( self ) = &data_type_#{@celltype_name};
-        mrb_get_args(mrb, "o", &name );
-        if( mrb_type( name ) != MRB_TT_STRING ){
-                mrb_raise(mrb, E_NAME_ERROR, "cell name not string");
+        }
-        for( ntc = &Name_to_cbp_#{@celltype_name}[0]; ntc->name != NULL; ntc++ ){
-                if( strcmp( ntc->name, RSTRING_PTR( name ) ) == 0 )
-                        break;
+        }
-        if( ntc->name == 0 ){
-                mrb_raise(mrb, E_ARGUMENT_ERROR, "cell not found");
+        }
-        tecs_cb = (struct tecs_#{@celltype_name} *)mrb_malloc(mrb, sizeof(struct tecs_#{@celltype_name}) );
-        tecs_cb->cbp = ntc->cbp;
-        DATA_PTR( self ) = (void *)tecs_cb;
-        return self;
+}
-EOT
-  end
-  def gen_preamble_bridge_func( file, b_singleton, ct_name, global_ct_name )
-    @func_head_array.each{ |f|
-      if ! f.is_function? then
-        next
-      end
-      if f.get_name != :initialize then
-        func_name = f.get_name
-      else
-        func_name = :initialize_cell
-      end
-      ret_type  = f.get_return_type
-      ret_type0 = f.get_return_type.get_original_type
-      b_void    = ret_type0.is_void?
-      plist     = f.get_paramlist.get_items
-      file.print <<EOT
-/* bridge function (MBP101) */
-mrb_value
-MrubyBridge_#{ct_name}_#{func_name}( mrb_state *mrb, mrb_value self )
+{
-        /* cellcbp (MBP105) */
-        CELLCB  *p_cellcb = ((struct tecs_#{@celltype_name} *)DATA_PTR(self))->cbp;
-EOT
-      file.print "      /* variables for return & parameter (MBP110) */\n"
-      if ! b_void then
-        file.print "    ", ret_type.get_type_str, "\tret_val", ret_type.get_type_str_post, ";\n"
-      end
-      arg_str = ""
-      n_param  = 0
-      n_scalar = 0
-      n_ptr    = 0
-      n_struct = 0
-      plist.each{ |param|
-        case param.get_direction
-        when :IN, :INOUT, :OUT
-          type = param.get_type.get_original_type
-          case type
-          when IntType
-            file.print "        mrb_int mrb_", param.get_name, ";\n"
-            file.print "        #{param.get_type.get_type_str}  #{param.get_name}#{param.get_type.get_type_str_post};\n"
-            arg_str += "i"
-            n_param += 1
-            n_scalar += 1
-          when FloatType
-            file.print "        mrb_float       mrb_", param.get_name, ";\n"
-            file.print "        #{param.get_type.get_type_str}  #{param.get_name}#{param.get_type.get_type_str_post};\n"
-            arg_str += "f"
-            n_param += 1
-            n_scalar += 1
-          when BoolType
-            file.print "        mrb_value       mrb_", param.get_name, ";\n"
-            file.print "        #{param.get_type.get_type_str}  #{param.get_name}#{param.get_type.get_type_str_post};\n"
-            arg_str += "o"
-            n_param += 1
-            n_scalar += 1
-          when PtrType
-            file.print "        mrb_value       mrb_", param.get_name, ";\n"
-            file.print "        #{param.get_type.get_type_str}  #{param.get_name}#{param.get_type.get_type_str_post};\n"
-            arg_str += "o"
-            n_param += 1
-            n_ptr += 1
-          when StructType
-            file.print "        mrb_value       mrb_", param.get_name, ";\n"
-            file.print "        #{param.get_type.get_type_str}  *#{param.get_name}#{param.get_type.get_type_str_post};\n"
-            arg_str += "o"
-            n_param += 1
-            n_struct += 1
-          else
-            raise "Unkown type"
-          end
-        end
+      }
-      if n_param > 0 then
-        file.print "    /* retrieve arguments (MBP111) */\n"
-        file.print "    mrb_get_args(mrb, \"#{arg_str}\""
-        plist.each{ |param|
-          case param.get_direction
-          when :IN, :INOUT, :OUT
-            type = param.get_type.get_original_type
-            case type
-            when IntType
-              file.print ", &mrb_", param.get_name
-            when FloatType
-              file.print ", &mrb_", param.get_name
-            when BoolType
-              file.print ", &mrb_", param.get_name
-            when PtrType
-              file.print ", &mrb_", param.get_name
-            when StructType
-              file.print ", &mrb_", param.get_name
-            else
-              raise "Unkown type"
-            end
-          end
+        }
-        file.print " );\n"
-        if n_scalar > 0 || n_struct > 0 then
-          file.print "  /* convert mrb to C (MBP112) */\n"
-        end
-        plist.each{ |param|
-          case param.get_direction
-          when :IN, :INOUT, :OUT
-            type = param.get_type.get_original_type
-            case type
-            when IntType
-              ttype = type.get_original_type
-              tment = get_type_map_ent ttype
-              file.print "      VALCHECK_#{tment[1]}( mrb, mrb_#{param.get_name} );\n"
-              file.print "      #{param.get_name} = (#{param.get_type.get_type_str})mrb_#{param.get_name};\n"
-            when FloatType
-              file.print "      #{param.get_name} = (#{param.get_type.get_type_str})mrb_#{param.get_name};\n"
-            when BoolType
-              file.print "      #{param.get_name} = mrb_test( mrb_#{param.get_name} );\n"
-            when PtrType
-              ttype = type.get_type.get_original_type
-              case ttype
-              when StructType
-                file.print "    CHECK_STRUCT( #{ttype.get_name}, mrb_#{param.get_name} );\n"
-                file.print "    #{param.get_name} = (struct #{ttype.get_name}*)DATA_PTR(mrb_#{param.get_name});\n"
-              when IntType
-              when FloatType
-              when BoolType
-              else
-                raise "cannot handle type"
-              end
-            when StructType
-              file.print "      CHECK_STRUCT( #{type.get_name}, mrb_#{param.get_name} );\n"
-              file.print "      #{param.get_name} = (struct #{type.get_name}*)DATA_PTR(mrb_#{param.get_name});\n"
-            else
-              raise( "canot treat class" )
-            end
-          end
+        }
-        if n_ptr > 0 then
-          file.print "  /* convert mrb to C for pointer types (MBP113) */\n"
-        end
-        plist.each{ |param|
-          case param.get_direction
-          when :IN, :INOUT, :OUT
-            type = param.get_type.get_original_type
-            case type
-            when IntType
-            when FloatType
-            when BoolType
-            when PtrType
-              case type.get_type.get_original_type
-              when StructType
-              when IntType
-                ptrMrb2C file, type, param
-              when FloatType
-                ptrMrb2C file, type, param
-              when BoolType
-                ptrMrb2C file, type, param
-              else
-                raise "cannot handle type"
-              end
-            when StructType
-            else
-              raise( "canot treat class" )
-            end
-          end
+        }
-      end
-      file.print "      /* calling target (MBP120) */\n"
-      if ! b_void then
-        file.print "    ret_val = "
-      else
-        file.print "    "
-      end
-      delim = ""
-      file.print "cTECS_", f.get_name, "( "
-      plist.each{ |param|
-        if param.get_type.get_original_type.kind_of? StructType then
-          aster = "*"
-        else
-          aster = ""
-        end
-        file.print delim, aster, param.get_name
-        delim = ", "
+      }
-      file.print " );\n"
-      file.print "      /* return (MBP130) */\n"
-      case ret_type0
-      when BoolType
-        file.print "    return ret_val ? mrb_true_value() : mrb_false_value();\n"
-      when IntType
-        file.print "    return mrb_fixnum_value( ret_val );\n"
-      when FloatType
-        file.print "    return mrb_float_value( mrb, ret_val );\n"
-      when VoidType
-        file.print "    return  mrb_nil_value();\n"
-      else
-        raise "unknown type"
-      end
-      file.print "}\n"
+    }
-  end
-  def ptrMrb2C file, type, param
-    ttype = type.get_type.get_original_type
-    tment = get_type_map_ent ttype
-    tstr = tment[1]
-=begin
-    case ttype
-    when IntType
-      bit_size = ttype.get_bit_size
-      case bit_size
-      when -1, -11
-        tstr = "Char"
-      when 8, 16, 32, 64
-        tstr = "Int#{bit_size}"
-      when -2
-        tstr = "Short"
-      when -3
-        tstr = "Int"
-      when -4
-        tstr = "Long"
-      when -5
-        tstr = "IntPtr"
-      else
-        raise "not handle type"
-      end
-    when FloatType
-      if ttype.get_bit_size == 32 then
-        tstr = "Float32"
-      else
-        tstr = "Double64"
-      end
-    when BoolType
-      tstr = "Bool"
-    when StructType
-      raise "not handle type 2 #{ttype}"
-    else
-      raise "not handle type 2 #{ttype}"
-    end
-=end
-    if( param.get_size ) then
-      sz_str = param.get_size.to_s
-    elsif param.get_string then      # mikan とりあえず size_is と string の同時指定 (二重ポインタ) はなし
-      sz_str = param.get_string.to_s
-    else
-      sz_str = "1"
-    end
-    # unsigned 型の場合には cast が必要
-    if ttype.get_original_type.get_type_str != param.get_type.get_type.get_type_str then
-      cast_str = "(#{param.get_type.get_type_str})"
-    else
-      cast_str = ""
-    end
-    modify = ""
-    case param.get_direction
-    when :OUT, :INOUT
-      case tstr
-      when "Char", "SChar", "UChar"
-        modify = "Mod"
-      end
-    end
-    if param.is_nullable? then
-      nullable = "Nullable"
-    else
-      nullable = ""
-    end
-    # file.print "      CHECK_POINTER( #{tstr}, mrb_#{param.get_name}, #{sz_str} );\n"
-    # file.print "      #{param.get_name} = #{cast_str}((struct #{tstr}PointerBody*)(DATA_PTR(mrb_#{param.get_name})))->buf;\n"
-    file.print "        #{param.get_name} = CheckAndGet#{tstr}Pointer#{modify}#{nullable}( mrb, mrb_#{param.get_name}, #{sz_str} );\n"
-  end
-  def get_celltype_name
-    @celltype_name
-  end
-  #=== プラグイン引数 ignoreUnsigned
-  def set_ignoreUnsigned rhs
-    if rhs == "true" || rhs == nil then
-      @b_ignoreUnsigned = true
-    end
-  end
-  #=== プラグイン引数 include
-  def set_include rhs
-    funcs = rhs.split ','
-    funcs.each{ |rhs_func|
-      found = false
-      rhs_func.gsub!( /\s/, "" )
-      @signature.get_function_head_array.each{ |a|
-        if rhs_func.to_sym == a.get_name then
-          found = true
-        end
+      }
-      if found == false then
-        cdl_error( "MRB1009 include function '$1' not found in signagture '$2'", rhs, @signature.get_name )
-      else
-        @includes << rhs_func.to_sym
-      end
+    }
-  end
-  #=== プラグイン引数 exclude
-  def set_exclude rhs
-    funcs = rhs.split ','
-    funcs.each{ |rhs_func|
-      found = false
-      rhs_func.gsub!( /\s/, "" )
-      @signature.get_function_head_array.each{ |a|
-        if rhs_func.to_sym == a.get_name then
-          found = true
-        end
+      }
-      if found == false then
-        cdl_error( "MRB1010 exclude function '$1' not found in signagture '$2", rhs, @signature.get_name )
-      else
-        @excludes << rhs_func.to_sym
-      end
+    }
-  end
 end

EcnlProtoTool/trunk/asp3_dcre/tecsgen/tecslib/plugin/NotifierPlugin.rb

-              r321
+              r429
 # -*- coding: utf-8 -*-
+#
+#  TECS Generator
+#      Generator for TOPPERS Embedded Component System
+#
 #  Copyright (C) 2015 by Ushio Laboratory
 …
 #  Copyright (C) 2015-2016 by Embedded and Real-Time Systems Laboratory
 #              Graduate School of Information Science, Nagoya Univ., JAPAN
+#  Copyright (C) 2015-2018 by TOPPERS Project
+#
+#--
+#   上記著作権者は，以下の(1)～(4)の条件を満たす場合に限り，本ソフトウェ
+#   ア（本ソフトウェアを改変したものを含む．以下同じ）を使用・複製・改
+#   変・再配布（以下，利用と呼ぶ）することを無償で許諾する．
+#   (1) 本ソフトウェアをソースコードの形で利用する場合には，上記の著作
+#       権表示，この利用条件および下記の無保証規定が，そのままの形でソー
+#       スコード中に含まれていること．
+#   (2) 本ソフトウェアを，ライブラリ形式など，他のソフトウェア開発に使
+#       用できる形で再配布する場合には，再配布に伴うドキュメント（利用
+#       者マニュアルなど）に，上記の著作権表示，この利用条件および下記
+#       の無保証規定を掲載すること．
+#   (3) 本ソフトウェアを，機器に組み込むなど，他のソフトウェア開発に使
+#       用できない形で再配布する場合には，次のいずれかの条件を満たすこ
+#       と．
+#     (a) 再配布に伴うドキュメント（利用者マニュアルなど）に，上記の著
+#         作権表示，この利用条件および下記の無保証規定を掲載すること．
+#     (b) 再配布の形態を，別に定める方法によって，TOPPERSプロジェクトに
+#         報告すること．
+#   (4) 本ソフトウェアの利用により直接的または間接的に生じるいかなる損
+#       害からも，上記著作権者およびTOPPERSプロジェクトを免責すること．
+#       また，本ソフトウェアのユーザまたはエンドユーザからのいかなる理
+#       由に基づく請求からも，上記著作権者およびTOPPERSプロジェクトを
+#       免責すること．
+#
+#   本ソフトウェアは，無保証で提供されているものである．上記著作権者お
+#   よびTOPPERSプロジェクトは，本ソフトウェアに関して，特定の使用目的
+#   に対する適合性も含めて，いかなる保証も行わない．また，本ソフトウェ
+#   アの利用により直接的または間接的に生じたいかなる損害に関しても，そ
+#   の責任を負わない．
+#
+#  $Id$
+#++
 NotifierPluginArgProc = {
 …
         #  - 受け口関数 - 一般化を行うと，実行時コストが大きく増大してしまうことが
         #    確認されている．このため，一般化は行わない．EntryPropertyにも含めない．
         #  - セルインデックス - CELLIDX型で，型の規定はないが，"ポインタ値であったり
         #    整数値であったりする。" (TECS 5.3.6) より，インデックスかポインタある
+        #  - セルインデックス - CELLIDX型で，型の規定はないが，"ホ゜インタ値て゛あったり
+        #    整数値て゛あったりする。" (TECS 5.3.6) より，インデックスかポインタある
         #    ことが分かる．インデックスだとすると，この値はセルCBのアドレッシングに
         #    使用されるので，intptr_tに収まる筈である．ポインタの場合，当然intptr_t
 …
         #  - アダプタ関数へののポインタ
         #  - アダプタ関数の引数
+        #
+        #   $Id$
         # @private
 …
                         # @param [Cell, Symbol] cell セル．セルについて一般化する場合は `:generic`
                         # @param [Integer, Symbol, nil] subscript 添字．添字について一般化する場合は `:generic`
+                        # @param [Celltype] 呼び先のセルタイプ、cell==:generic の場合のみ有効
                         # @private
                         def generate_inner(context, fn_name, cell, subscript)
+                        def generate_inner(context, fn_name, cell, subscript, callee_ct=nil)
                                 source_file = context.source_file
                                 header_file = context.header_file
 …
                                 unless ct.is_singleton?
                                         if cell == :generic
+                                                params << "(CELLIDX)extinf"
+                                                params << "(#{callee_ct.get_global_name}_IDX)extinf"
+                                                # params << "(CELLIDX)extinf"
                                         else
                                                 # セルのCELLIDXを得る
 …
                                                 generate_inner context, fn_name,
                                                         :generic, subscript
+                                                        :generic, subscript, ct
                                                 props.each { |prop|
 …
             # join:: Join : 結合 (declarationがPortであるもの)
                 def validate_join(handler, cell, join)
                 return !generate_attr_map(handler, cell).nil?
+        return !generate_attr_map(handler, cell).nil?
                 end
 …
         parse_plugin_arg
         unless @factory
                 cdl_error("ASP1003 celltype $1: option factory is not specified",
+                cdl_error("NTF1003 celltype $1: option factory is not specified",
                         celltype.get_name)
         end
         unless @output_file
                 cdl_error("ASP1003 celltype $1: option output_file is not specified",
+                cdl_error("NTF1003 celltype $1: option output_file is not specified",
                         celltype.get_name)
         end
 …
     def set_factory(template_string)
         unless @factory.nil?
                 cdl_error("ASP1003 celltype $1: option factory was specified more than once",
+                cdl_error("NTF1003 celltype $1: option factory was specified more than once",
                         celltype.get_name)
         end
 …
     def set_factory_output_file(output_file)
         unless @output_file.nil?
                 cdl_error("ASP1003 celltype $1: option output_file was specified more than once",
+                cdl_error("NTF1003 celltype $1: option output_file was specified more than once",
                         celltype.get_name)
         end
 …
     def gen_factory file
         puts "===== begin #{@celltype.get_name.to_s} plugin ====="
+        # puts "===== begin #{@celltype.get_name.to_s} plugin ====="
         kernelCfg = AppFile.open( "#{$gen}/#{@output_file}" )
 …
                         subst_attr = @celltype.find(name)
                         unless subst_attr
                         cdl_error( "ASP1007 celltype $1: additional_param: attribute $2 does not exist.",
+                        cdl_error( "NTF1007 celltype $1: additional_param: attribute $2 does not exist.",
                                 @celltype.get_name, name)
                         end
 …
         kernelCfg.close
         puts "===== end #{@celltype.get_name.to_s} plugin ====="
+        # puts "===== end #{@celltype.get_name.to_s} plugin ====="
     end
     def gen_factory_for_cell(kernelCfg, cell)
+      # print "########## gen_factory_for_cell cell=#{cell.get_name}\n"
         handler_flags = []
         handler_args = []
 …
                         when 'false' then ignoreErrors = false
                         else
                                 cdl_warning( "ASP1005 cell $1: unrecognized value '$2' specified for ignoreErrors",
+                                cdl_warning2( cell.get_locale, "NTF1005 cell $1: unrecognized value '$2' specified for ignoreErrors",
                                         cell.get_name, ignoreErrors )
                                 ignoreErrors = false
                 end
+    # ドメイン指定用文字列
+    pre_text  = ""
+    post_text = "\n"
+    indent    = ""
         [EVENT_HANDLER, ERROR_HANDLER].each { |handler|
                 # 呼び口の結合を取得
                 call_join = cell.get_join_list.get_item(handler.call_port_name.to_sym)
+        domain_root = cell.get_region.get_domain_root
+        if cell.get_region.get_domain_root.get_domain_type then
+          # print "cell=#{cell.get_name} domain_root=#{domain_root.get_name} domain_type=#{domain_root.get_domain_type.get_name} domain_option=#{domain_root.get_domain_type.get_option}\n"
+        else
+          # print "cell=#{cell.get_name} domain_root=#{cell.get_region.get_domain_root.get_name}\n"
+        end
+        if call_join
+          # print "validate_join: hanlder=#{handler.class.name} cell=#{cell.get_name} join=#{call_join.get_name} rhs_cell=#{call_join.get_cell}\n"
+        else
+          # print "validate_join: hanlder=#{handler.class.name} cell=#{cell.get_name}\n"
+        end
                 # ハンドラタイプを判別する
 …
                 if matches.length == 0
                         cdl_error( "ASP1001 cell $1: no matching handler type found for $2", cell.get_name, handler.call_port_name )
+                        cdl_error2( cell.get_locale, "NTF1001 cell $1: no matching handler type found for $2", cell.get_name, handler.call_port_name )
                         next
                 end
+        end
                         # 最初に見つかった有効なハンドラタイプを使用
                 ht = matches[0]
+      # ドメインプラグインが指定されている場合、所属ドメインのチェック
+      domain_root = cell.get_region.get_domain_root
+      if domain_root.get_domain_type then
+        if domain_root.get_domain_type.get_name == :HRP then
+          option = domain_root.get_domain_type.get_option
+          matches.each{ |match|
+            # p "match:#{match}"
+            case match
+            when ActivateTaskHandlerType,       WakeUpTaskHandlerType,
+                 SetVariableHandlerType,        SetVariableToErrorCodeHandlerType,
+                             IncrementVariableHandlerType,  SignalSemaphoreHandlerType,
+                             SetEventflagHandlerType,       SendToDataqueueHandlerType,
+                             SendErrorCodeToDataqueueHandlerType
+              if option == "OutOfDomain" then
+                cdl_error2( cell.get_locale, "NTF9999: NotifierPlugin: $1 cannot be placed out of domain", cell.get_name )
+              elsif call_join.get_cell.get_region.get_domain_root == nil ||
+                    call_join.get_cell.get_region.get_domain_root != domain_root then
+                cdl_error2( cell.get_locale, "NTF9999: NotifierPlugin: $1 and $2 must be placed in same domain", cell.get_name, call_join.get_cell.get_name )
+              end
+              dbgPrint "#{self.class.name}: match pattern 1.\n"
+            when UserHandlerType
+              if option != "kernel" then
+                cdl_error2( cell.get_locale, "NTF9999: NotifierPlugin: $1 can be placed in kernel domain only, because notify target is handler", cell.get_name )
+              elsif call_join.get_cell.get_region.get_domain_root == nil ||
+                    call_join.get_cell.get_region.get_domain_root != domain_root then
+                cdl_error2( cell.get_locale, "NTF9999: NotifierPlugin: $1 and $2 must be placed in same domain", cell.get_name, call_join.get_cell.get_name )
+              end
+              dbgPrint "#{self.class.name}: match pattern 2.\n"
+                        when NullHandlerType.new  # エラー通知を指定していない
+              dbgPrint "#{self.class.name}: match pattern 3.\n"
+            end
+          }
+          # if cell.get_region.get_param == :KERNEL_DOMAIN
+          if option == "kernel"
+            pre_text  = "KERNEL_DOMAIN{\n"
+            post_text = "}\n"
+            indent    =  "\t"
+          elsif option != "OutOfDomain" then
+            pre_text  = "DOMAIN(#{domain_root.get_name.to_s}){\n"
+            post_text = "}\n"
+            indent    =  "\t"
+          end
+        else
+          cdl_error( "NTF9999: NotifierPlugin: unknown domain type $1", domain_root.get_domain_type.get_name )
+        end
+      end
                         # 通知ハンドラで「エラーが発生するはずがない」のに「エラーハンドラが指定されている」
 …
                         #  なため、検出は行わない。)
                 if handler == ERROR_HANDLER && !ht.is_a?(NullHandlerType) && !event_handler_might_fail
                         cdl_error( "ASP1004 cell $1: handler type $2 which never raises an error was inferred for the normal notification handler, but an error notification handler was specified.",
+                        cdl_error2( cell.get_locale, "NTF1004 cell $1: handler type $2 which never raises an error was inferred for the normal notification handler, but an error notification handler was specified.",
                                 cell.get_name, handler_flag)
                 end
                 if handler == ERROR_HANDLER && ht.is_a?(NullHandlerType) && event_handler_might_fail && !ignoreErrors
                         cdl_warning( "ASP1006 cell $1: handler type $2 which might raise an error was inferred for the normal notificaton handler, but an error notification handler was not specified.",
+                        cdl_warning2( cell.get_locale, "NTF1006 cell $1: handler type $2 which might raise an error was inferred for the normal notificaton handler, but an error notification handler was not specified.",
                                 cell.get_name, handler_flag)
                 end
 …
                         # $id$等の置換
                         cell.get_celltype.subst_name(subst, name_array)
+        }
+        # 出力
+        kernelCfg.puts text
+    end
+    private :gen_factory_for_cell
+      }
+     # 出力 (CRE_xxx)
+     kernelCfg.print pre_text
+     kernelCfg.print indent, text, "\n"
+     gen_sac kernelCfg, cell, indent
+     kernelCfg.print post_text
+   end
+   def gen_sac file, cell, indent
+     domain_root = cell.get_region.get_domain_root
+     if domain_root.get_domain_type then
+       id = (cell.get_attr_initializer :id).to_s
+                 name_array = cell.get_celltype.get_name_array(cell)
+       case cell.get_celltype.get_name
+       when :tCyclicNotifier
+         obj_type = "CYC"
+       when :tAlarmNotifier
+         obj_type = "ALM"
+       else
+         raise "NotifierPlugin: unknown celltype #{cell.get_celltype.get_name}"
+       end
+       id = cell.get_celltype.subst_name(id, name_array)
+       # p obj_type
+       # p HRPPlugin.get_sac_str cell
+       file.print indent, "SAC_#{obj_type}( #{id}, #{HRPPlugin.get_sac_str cell} );\n"
+     end
+   end
+   private :gen_factory_for_cell
 end

EcnlProtoTool/trunk/asp3_dcre/tecsgen/tecslib/plugin/OpaqueRPCPlugin.rb

-              r321
+              r429
   #=== RPCPlugin の initialize
   #  説明は ThroughPlugin (plugin.rb) を参照
   def initialize( cell_name, plugin_arg, next_cell, next_cell_port_name, signature, celltype, caller_cell )
+  def initialize( cell_name, plugin_arg, next_cell, next_cell_port_name, next_cell_port_subscript, signature, celltype, caller_cell )
     super
     @b_noClientSemaphore = false
 …
     nest = @end_region.gen_region_str_pre file
     nest_str = "  " * nest
+    if @next_cell_port_subscript then
+      subscript = '[' + @next_cell_port_subscript.to_s + ']'
+    else
+      subscript = ""
+    end
     if @serverErrorHandler then
 …
 #{nest_str}  cell #{@rpc_server_channel_celltype_name} #{@serverChannelCell}_Unmarshaler {
 #{nest_str}    cChannel = #{@serverChannelCell}.eC1;
 #{nest_str}    #{@call_port_name} = #{@next_cell.get_namespace_path.get_path_str}.#{@next_cell_port_name};
+#{nest_str}    #{@call_port_name} = #{@next_cell.get_namespace_path.get_path_str}.#{@next_cell_port_name}#{subscript};
 #{serverErrorHandler_str}#{nest_str}  };
 EOT

EcnlProtoTool/trunk/asp3_dcre/tecsgen/tecslib/plugin/RPCPlugin.rb

-              r321
+              r429
   #=== RPCPlugin の initialize
   #  説明は ThroughPlugin (plugin.rb) を参照
   def initialize( cell_name, plugin_arg, next_cell, next_cell_port_name, signature, celltype, caller_cell )
+  def initialize( cell_name, plugin_arg, next_cell, next_cell_port_name, next_cell_port_subscript, signature, celltype, caller_cell )
     super
     @b_noClientSemaphore = false
 …
     nest = @region.gen_region_str_pre file
     indent_str = "  " * nest
+    if @next_cell_port_subscript then
+      subscript = '[' + @next_cell_port_subscript.to_s + ']'
+    else
+      subscript = ""
+    end
     file.print <<EOT
 …
     file.print <<EOT
 #{indent_str}cell #{@rpc_channel_celltype_name} #{@cell_name} {
 #{indent_str}  #{@call_port_name} = #{@next_cell.get_name}.#{@next_cell_port_name};
+#{indent_str}  #{@call_port_name} = #{@next_cell.get_name}.#{@next_cell_port_name}#{subscript};
 #{indent_str}  cTDR         = #{@channelCellName}.eTDR;
 #{indent_str}  cEventflag   = #{@channelCellName}.eEventflag;

EcnlProtoTool/trunk/asp3_dcre/tecsgen/tecslib/plugin/SharedOpaqueRPCPlugin.rb

-              r321
+              r429
   #=== RPCPlugin の initialize
   #  説明は ThroughPlugin (plugin.rb) を参照
   def initialize( cell_name, plugin_arg, next_cell, next_cell_port_name, signature, celltype, caller_cell )
+  def initialize( cell_name, plugin_arg, next_cell, next_cell_port_name, next_cell_port_subscript, signature, celltype, caller_cell )
     super
     initialize_opaque_marshaler
 …
     nest = @start_region.gen_region_str_pre file
     indent_str = "  " * nest
+    nest_str = "  " * nest
+    if @next_cell_port_subscript then
+      subscript = '[' + @next_cell_port_subscript.to_s + ']'
+    else
+      subscript = ""
+    end
     # セルを探す
 …
 #{indent_str}cell #{@unmarshaler_celltype_name} #{@cell_name}_Server {
 #{indent_str}  cTDR         = #{@shared_channel_cell}_Server.eTDR;
 #{indent_str}  cServerCall  = #{@next_cell.get_namespace_path.get_path_str}.#{@next_cell_port_name};
+#{indent_str}  cServerCall  = #{@next_cell.get_namespace_path.get_path_str}.#{@next_cell_port_name}#{subscript};
 #{ppallocator_join}#{indent_str}};
 EOT

EcnlProtoTool/trunk/asp3_dcre/tecsgen/tecslib/plugin/SharedRPCPlugin.rb

-              r321
+              r429
   #=== RPCPlugin の initialize
   #  説明は ThroughPlugin (plugin.rb) を参照
   def initialize( cell_name, plugin_arg, next_cell, next_cell_port_name, signature, celltype, caller_cell )
+  def initialize( cell_name, plugin_arg, next_cell, next_cell_port_name, next_cell_port_subscript, signature, celltype, caller_cell )
     # mikan プラグインオプション指定の不一致のチェック task_priority,
 …
     nest = @region.gen_region_str_pre file
     indent_str = "  " * nest
+    if @next_cell_port_subscript then
+      subscript = '[' + @next_cell_port_subscript.to_s + ']'
+    else
+      subscript = ""
+    end
     # セルを探す
 …
     file.print <<EOT
 #{indent_str}cell #{@rpc_channel_celltype_name} #{@cell_name} {
 #{indent_str}  #{@call_port_name} = #{@next_cell.get_name}.#{@next_cell_port_name};
+#{indent_str}  #{@call_port_name} = #{@next_cell.get_name}.#{@next_cell_port_name}#{subscript};
 #{indent_str}  cTDR         = #{@shared_channel_cell}.eTDR;
 #{indent_str}  cEventflag   = #{@shared_channel_cell}.eEventflag;

EcnlProtoTool/trunk/asp3_dcre/tecsgen/tecslib/plugin/ThroughPlugin.rb

-              r321
+              r429
 #@next_cell:: Cell                    呼び口を結合するセル
 #@next_cell_port_name:: Symbol       呼び口を結合する受口の名前
+#@next_cell_port_subscript::Nil|Integer   呼び口を結合する受口の配列添数．受け口配列でない場合 nil
 #@signature::      Signature          シグニチャ
 #@celltype::       Celltype           呼び先のセルのセルタイプ. through が連接する場合、最終的な呼び先のセルのセルタイプ
 …
   #next_cell::      Cell               呼び口を接続するセル
   #next_cell_port_name:: Symbol        呼び口を接続する受口の名前
+  #next_cell_port_subscript:: Nil|Integer  呼び口を接続する受口配列添数
   #signature::      Signature          シグニチャ
   #celltype::       Celltype           セルタイプ (呼び先のセルのセルタイプ)
   #caller_cell::    Cell               呼び元のセル．@caller_cell の項を参照
   def initialize( cell_name, plugin_arg, next_cell, next_cell_port_name, signature, celltype, caller_cell )
+  def initialize( cell_name, plugin_arg, next_cell, next_cell_port_name, next_cell_port_subscript, signature, celltype, caller_cell )
     super()
     @cell_name = cell_name                      # 生成すべきセル名（受け口側のセル名）
 …
     @next_cell = next_cell                      # 呼び先のセル
     @next_cell_port_name = next_cell_port_name
+    @next_cell_port_subscript = next_cell_port_subscript
     @signature = signature
     @entry_port_name = :"eThroughEntry"
 …
   def get_through_entry_port_name
     @entry_port_name
+  end
+  #===  生成されたセルの受け口配列添数を得る
+  def get_through_entry_port_subscript
+    @entry_port_subscript
   end

EcnlProtoTool/trunk/asp3_dcre/tecsgen/tecslib/plugin/TracePlugin.rb

-              r321
+              r429
   #=== TracePlugin の initialize
   #  説明は ThroughPlugin (plugin.rb) を参照
   def initialize( cell_name, plugin_arg, next_cell, next_cell_port_name, signature, celltype, caller_cell )
+  def initialize( cell_name, plugin_arg, next_cell, next_cell_port_name, next_cell_port_subscript, signature, celltype, caller_cell )
     @maxArrayDisplay = 16
 …
       nest = @region.gen_region_str_pre file
       indent_str =  "  " * nest
+      if @next_cell_port_subscript then
+        subscript = '[' + @next_cell_port_subscript.to_s + ']'
+      else
+        subscript = ""
+      end
       if @probeName then
 …
       file.print <<EOT
 #{indent_str}cell #{@ct_name} #{@cell_name} {
 #{indent_str}  #{@call_port_name} = #{@next_cell.get_namespace_path.get_path_str}.#{@next_cell_port_name};
+#{indent_str}  #{@call_port_name} = #{@next_cell.get_namespace_path.get_path_str}.#{@next_cell_port_name}#{subscript};
 #{probeName_str}#{caller_cell_str}#{indent_str}};
 EOT
 …
+    }
     file.print( " );\n" )
+    if @next_cell_port_subscript then
+      subscript = '[' + @next_cell_port_subscript.to_s + ']'
+    else
+      subscript = ""
+    end
     file.print <<EOT
 \tgetMicroTime( &utime );
 \tsyslog( LOG_INFO, \"Leave: %sTime=%d: #{@next_cell.get_name}.#{@next_cell_port_name}.#{func_name}\", ATTR_probeName_str, utime );
+\tsyslog( LOG_INFO, \"Leave: %sTime=%d: #{@next_cell.get_name}.#{@next_cell_port_name}#{subscript}.#{func_name}\", ATTR_probeName_str, utime );
 EOT

EcnlProtoTool/trunk/asp3_dcre/tecsgen/tecslib/plugin/lib/GenOpaqueMarshaler.rb

-              r321
+              r429
 #      Generator for TOPPERS Embedded Component System
+#
 #   Copyright (C) 2008-2014 by TOPPERS Project
+#   Copyright (C) 2008-2018 by TOPPERS Project
 #--
 #   上記著作権者は，以下の(1)～(4)の条件を満たす場合に限り，本ソフトウェ
 …
         /* Channel Lock */
         SET_RPC_STATE( state_, RPCSTATE_CLIENT_GET_SEM );
+        if( is_cLockChannel_joined() )
+                cLockChannel_wait();
+        if( is_cLockChannel_joined() ){
+                if( (ercd_=cLockChannel_wait()) != E_OK )
+                        goto error_reset;
+        }
 EOT
 …
         /* Channel Unlock */
         SET_RPC_STATE( state_, RPCSTATE_CLIENT_RELEASE_SEM );
+        if( is_cLockChannel_joined() )
+                cLockChannel_signal();
+        if( is_cLockChannel_joined() ){
+                if( (ercd_=cLockChannel_signal()) != E_OK )
+                        goto error_reset;
+        }
+EOT
+    file.print <<EOT
+        /* state_ is not used in normal case */
+  /* below is to avoid 'set but not used' warnning */
+        (void)state_;
 EOT
 …
         file.print <<EOT
         }else{
                 return;
+                return E_ID;
+        }
 EOT

EcnlProtoTool/trunk/asp3_dcre/tecsgen/tecslib/plugin/lib/GenTransparentMarshaler.rb

-              r321
+              r429
     };
 #{ppallocator_dealloc_str}
     return;
+    return E_OK;
 error_reset:
 …
         (void)cTDR_reset();
 #{ppallocator_dealloc_str}
+    return E_OK;
 EOT

EcnlProtoTool/trunk/asp3_dcre/tecsgen/tecslib/version.rb

r321	r429
1	1	$package = "tecsgen"
2		$version = "1.~~3.1.5~~"
	2	$version = "1.6.4"

EcnlProtoTool/trunk/asp3_dcre/tecsgen/tecsmerge.rb

-              r321
+              r429
 #      Merger for TECS generated templates
+#
 #   Copyright (C) 2008-2015 by TOPPERS Project
+#   Copyright (C) 2008-2017 by TOPPERS Project
 #--
 #   上記著作権者は，以下の(1)～(4)の条件を満たす場合に限り，本ソフトウェ
 …
 #   の責任を負わない．
+#
 #   $Id$
+#   $Id: tecsmerge.rb 2633 2017-04-02 06:02:05Z okuma-top $
 #++
 …
 #Authors::   大山 博司
 #Version::
 #Copyright:: Copyright (C) TOPPERS Project, 2008-2015. All rights reserved.
+#Copyright:: Copyright (C) TOPPERS Project, 2008-2017. All rights reserved.
 #License::   TOPPERS ライセンスに準拠
 …
         next if next_stat == :HEAD || ( next_stat == :EOF && line != nil )
+        # #1002 tecsmerge の非受け口関数 (POSTAMBLE部) の行頭に '{' があるとエラーになる
+        if (! $old_mode) && ( /^\{/ =~ line ) && ( stat == :PREAMBLE_BODY || stat == :POSTAMBLE_BODY )
+          p line + "  next_stat=" + next_stat.to_s + "stat=" + stat.to_s
+          next
+        end
         # p "R: #{stat_info[0]}"

EcnlProtoTool/trunk/asp3_dcre/tinet/Makefile.tinet

-              r331
+              r429
                in_subr.o route_cfg.o
 TINET_CFG_COBJS := $(TINET_CFG_COBJS) tinet_cfg.o
+TINET_CFG2_OUT_SRCS := $(TINET_CFG2_OUT_SRCS) tinet_cfg.h tinet_cfg.c
 #  IPv6
 …
         CFG_COBJS := $(CFG_COBJS) $(TINET_CFG_COBJS)
+        CFG2_OUT_SRCS := $(CFG2_OUT_SRCS) $(TINET_CFG2_OUT_SRCS)
         CLEAN_FILES := $(CLEAN_FILES) $(TINET_CFG_OUT) $(MAKE_TINET_LIB)

EcnlProtoTool/trunk/asp3_dcre/tinet/net/ethernet.c

-              r331
+              r429
 /**
+ * Called by a driver when its link goes up
+ */
+void ether_set_link_up(T_IFNET *ether)
+{
+  if (!(ether->flags & IF_FLAG_LINK_UP)) {
+    ether->flags |= IF_FLAG_LINK_UP;
+    if (ether->flags & IF_FLAG_UP) {
+#if LWIP_ARP
+      /* For Ethernet network interfaces, we would like to send a "gratuitous ARP" */
+      if (ether->flags & IF_FLAG_ETHARP) {
+        etharp_gratuitous(ether);
+      }
+#endif /* LWIP_ARP */
+#if LWIP_IGMP
+      /* resend IGMP memberships */
+      if (ether->_flags & IF_FLAG_IGMP) {
+        igmp_report_groups(ether);
+      }
+#endif /* LWIP_IGMP */
+    }
+    if (ether->link_callback) {
+      (ether->link_callback)(ether);
+    }
+  }
+}
+ * ether_set_link_up -- リンクしたときにNICから呼び出される
+ */
+void
+ether_set_link_up()
+{
+        if (!(ether_ifnet.flags & IF_FLAG_LINK_UP)) {
+                ether_ifnet.flags |= IF_FLAG_LINK_UP;
+                if (ether_ifnet.flags & IF_FLAG_UP) {
+#if defined(_IP4_CFG) && defined(SUPPORT_ETHER)
+                        /* ARP再構築？ */
+#endif /* #if defined(_IP4_CFG) && defined(SUPPORT_ETHER) */
+#ifdef SUPPORT_IGMP
+                        /* IGMP参加 */
+#endif /* #ifdef SUPPORT_IGMP */
+                        }
+                if (ether_ifnet.link_callback) {
+                        (ether_ifnet.link_callback)(&ether_ifnet);
+                        }
+                }
+        }
 /**
+ * Called by a driver when its link goes down
+ */
+void ether_set_link_down(T_IFNET *ether)
+{
+  if (ether->flags & IF_FLAG_LINK_UP) {
+    ether->flags &= ~IF_FLAG_LINK_UP;
+    if (ether->link_callback) {
+      (ether->link_callback)(ether);
+    }
+  }
+}
+/**
+ * Set callback to be called when link is brought up/down
+ */
+void ether_set_link_callback(ether_status_callback_fn link_callback)
+ * ether_set_link_up -- リンクが切断したときにNICから呼び出される
+ */
+void
+ether_set_link_down()
+{
+        if (ether_ifnet.flags & IF_FLAG_LINK_UP) {
+                ether_ifnet.flags &= ~IF_FLAG_LINK_UP;
+                if (ether_ifnet.link_callback) {
+                        (ether_ifnet.link_callback)(&ether_ifnet);
+                        }
+                }
+        }
+/*
+ * ether_set_up -- DHCPでアドレスが設定されたとき呼び出される
+ */
+void
+ether_set_up()
+{
+        if (!(ether_ifnet.flags & IF_FLAG_UP)) {
+                ether_ifnet.flags |= IF_FLAG_UP;
+                if (ether_ifnet.link_callback) {
+                        (ether_ifnet.link_callback)(&ether_ifnet);
+                        }
+                }
+        }
+/*
+ * ether_set_down -- DHCPでアドレスが解放されたとき呼び出される
+ */
+void
+ether_set_down()
+{
+        if (ether_ifnet.flags & IF_FLAG_UP) {
+                ether_ifnet.flags &= ~IF_FLAG_UP;
+                if (ether_ifnet.link_callback) {
+                        (ether_ifnet.link_callback)(&ether_ifnet);
+                        }
+                }
+        }
+/*
+ * ether_set_link_callback -- リンク状態変化時のコールバック登録
+ */
+void
+ether_set_link_callback(ether_status_callback_fn link_callback)
+{
         ether_ifnet.link_callback = link_callback;
+}
+        if (ether_ifnet.link_callback) {
+                (ether_ifnet.link_callback)(&ether_ifnet);
+                }
+        }
 /*

EcnlProtoTool/trunk/asp3_dcre/tinet/net/ethernet.h

-              r331
+              r429
 #if defined(__RX)
 #pragma pack
+#elif defined(_MSC_VER)
+#pragma pack(push, 1)
+#endif
+#if defined(__RX) || defined(_MSC_VER)
 typedef struct t_ether_header {
 …
         uint16_t        type;
         } T_ETHER_HDR;
-#pragma packoption
 #elif defined(TOPPERS_S810_CLG3_85)     /* of #if defined(__RX) */
 …
         uint8_t         shost[ETHER_ADDR_LEN];
         uint16_t        type;
         } __attribute__((packed, aligned(2)))T_ETHER_HDR;
+        } __attribute__((packed, aligned(2))) T_ETHER_HDR;
 #endif  /* of #if defined(__RX) */
 …
 typedef struct t_ether_addr {
         uint8_t         lladdr[ETHER_ADDR_LEN];
+        } __attribute__((packed, aligned(2)))T_ETHER_ADDR;
+        } __attribute__((packed, aligned(2))) T_ETHER_ADDR;
+#if defined(__RX)
+#pragma packoption
+#elif defined(_MSC_VER)
+#pragma pack(pop)
+#endif
 /*
 …
                                                         /* インタフェースのマルチキャストアドレスへの変換              */
+#define IF_FLAG_UP                              0x01U
+#define IF_FLAG_LINK_UP                 0x10U
 /*
  *  前方参照
 …
 #endif  /* of #ifdef T_IF_ETHER_NIC_SOFTC */
-#define IF_FLAG_UP                              0x01U
-#define IF_FLAG_LINK_UP                 0x10U
 /*
  *  変数
 …
 extern uint32_t ether_srand (void);
-/** Function prototype for netif status- or link-callback functions. */
 typedef void (*ether_status_callback_fn)(T_IFNET *ether);
 extern void ether_set_link_callback(ether_status_callback_fn link_callback);
+extern void ether_set_link_up(T_IFNET *ether);
+extern void ether_set_link_down(T_IFNET *ether);
+extern void ether_set_link_up();
+extern void ether_set_link_down();
+extern void ether_set_up();
+extern void ether_set_down();
 #endif  /* of #ifdef SUPPORT_ETHER */

EcnlProtoTool/trunk/asp3_dcre/tinet/net/if_arp.h

-              r331
+              r429
         uint8_t         proto_len;      /* プロトコル長                       */
         uint16_t        opcode;         /* 命令コード                        */
         } __attribute__((packed, aligned(2)))T_ARP_HDR;
+        } __attribute__((packed, aligned(2))) T_ARP_HDR;
 #define ARP_HDR_SIZE                    (sizeof(T_ARP_HDR))
 …
 typedef struct arpcom {
         uint8_t         mac_addr[ETHER_ADDR_LEN];
         } __attribute__((packed, aligned(2)))T_ARPCOM;
+        } __attribute__((packed, aligned(2))) T_ARPCOM;
 /*

EcnlProtoTool/trunk/asp3_dcre/tinet/net/net_asp.cfg

-              r331
+              r429
 INCLUDE("net/net.cfg");
+#ifndef NOUSE_MPF_NET_BUF
 /*
 …
                 });
 #endif  /* of #if defined(NUM_MPF_NET_BUF6_65536) && NUM_MPF_NET_BUF6_65536 > 0 */
+#endif

EcnlProtoTool/trunk/asp3_dcre/tinet/net/net_buf.c

-              r331
+              r429
 #include <netinet/tcp_var.h>
+#ifndef NOUSE_MPF_NET_BUF
 /*
  *  関数
 …
 #endif  /* of #if defined(NUM_MPF_NET_BUF_128) && NUM_MPF_NET_BUF_128 > 0 */
+#if defined(_IP4_CFG)
+#if defined(_IP6_CFG)
+#if defined(NUM_MPF_NET_BUF_CSEG) && NUM_MPF_NET_BUF_CSEG > 0
+        {
+                MPF_NET_BUF_CSEG,
+                IF_HDR_SIZE + IP_HDR_SIZE + TCP_HDR_SIZE,
+#if NET_COUNT_ENABLE & PROTO_FLG_NET_BUF
+                NUM_MPF_NET_BUF_CSEG,
+#endif  /* of #if NET_COUNT_ENABLE & PROTO_FLG_NET_BUF */
+                },
+#endif  /* of #if defined(NUM_MPF_NET_BUF_CSEG) && NUM_MPF_NET_BUF_CSEG > 0 */
+#endif  /* of #if defined(_IP6_CFG) */
 #if defined(NUM_MPF_NET_BUF_64) && NUM_MPF_NET_BUF_64 > 0
 …
 #endif  /* of #if defined(NUM_MPF_NET_BUF_64) && NUM_MPF_NET_BUF_64 > 0 */
 #endif  /* of #if defined(_IP4_CFG) */
+#if defined(_IP4_CFG) && !defined(_IP6_CFG)
 #if defined(NUM_MPF_NET_BUF_CSEG) && NUM_MPF_NET_BUF_CSEG > 0
 …
                 },
 #endif  /* of #if defined(NUM_MPF_NET_BUF_CSEG) && NUM_MPF_NET_BUF_CSEG > 0 */
+#endif  /* of #if defined(_IP4_CFG) && !defined(_IP6_CFG) */
         };
 …
         while (1) {
                 if ((error = tget_mpf((ID)net_buf_table[ix].index, (void*)buf, ix == 0 ? tmout : TMO_POL)) == E_OK) {
+                if ((error = tget_mpf((ID)net_buf_table[ix].index, (void **)buf, ix == 0 ? tmout : TMO_POL)) == E_OK) {
                         (*buf)->idix  = (uint8_t)ix;
                         (*buf)->len   = (uint16_t)minlen;
                         (*buf)->flags = 0;
+#ifdef IF_ETHER_MULTI_NIC
+                        (*buf)->conn_pos = 0;
+#endif
 #if NET_COUNT_ENABLE & PROTO_FLG_NET_BUF
                         NET_COUNT_NET_BUF(net_buf_table[ix].allocs, 1);
 …
                         return error;
+                        }
+                else if (ix == 0 || net_buf_table[ix].size > maxlen)
+                ix --;
+                if (ix < 0 || net_buf_table[ix].size > maxlen)
                         break;
-                ix --;
+                }
 …
         while (1) {
                 if ((error = tget_mpf((ID)net_buf_table[ix].index, (void*)buf,
+                if ((error = tget_mpf((ID)net_buf_table[ix].index, (void **)buf,
                                       ix == sizeof(net_buf_table) / sizeof(T_NET_BUF_ENTRY) - 1 ? tmout : TMO_POL)) == E_OK) {
                         (*buf)->idix  = (uint8_t)ix;
                         (*buf)->len   = net_buf_table[ix].size;
                         (*buf)->flags = 0;
+#ifdef IF_ETHER_MULTI_NIC
+                        (*buf)->conn_pos = 0;
+#endif
 #if NET_COUNT_ENABLE & PROTO_FLG_NET_BUF
 …
                 /* 固定メモリプールに返す。*/
+#if NET_COUNT_ENABLE & PROTO_FLG_NET_BUF
+                net_buf_table[buf->idix].busies --;
+#endif
+                if ((error = rel_mpf((ID)net_buf_table[buf->idix].index, buf)) != E_OK) {
+                        syslog(LOG_WARNING, "[NET BUF] %s, ID=%d.", itron_strerror(error), buf->idix);
+                int idix = buf->idix;
+#if NET_COUNT_ENABLE & PROTO_FLG_NET_BUF
+                net_buf_table[idix].busies --;
+#endif
+                if ((error = rel_mpf((ID)net_buf_table[idix].index, buf)) != E_OK) {
+                        syslog(LOG_WARNING, "[NET BUF] %s, ID=%d.", itron_strerror(error), idix);
+                        }
+                }
 …
         return (uint_t)net_buf_table[0].size;
+        }
+#else
+#include <stdlib.h>
+/*
+ *  tget_net_buf_ex -- ネットワークバッファを獲得する（拡張機能）。
+ */
+ER
+tget_net_buf_ex (T_NET_BUF **buf, uint_t minlen, uint_t maxlen, ATR nbatr, TMO tmout)
+{
+        uint_t len = (minlen > maxlen) ? minlen : maxlen;
+        *buf = (T_NET_BUF *)malloc(sizeof(T_NET_BUF) - sizeof(((T_NET_BUF *)0)->buf) + len);
+        if (*buf == NULL)
+                return E_NOMEM;
+        (*buf)->idix = 0;
+        (*buf)->len = (uint16_t)len;
+        (*buf)->flags = 0;
+#ifdef IF_ETHER_MULTI_NIC
+        (*buf)->conn_pos = 0;
+#endif
+        return E_OK;
+        }
+/*
+ *  tget_net_buf -- ネットワークバッファを獲得する（互換）。
+ */
+ER
+tget_net_buf (T_NET_BUF **buf, uint_t len, TMO tmout)
+{
+        return tget_net_buf_ex(buf, len, len, NBA_SEARCH_ASCENT, tmout);
+        }
+/*
+ * rel_net_buf -- ネットワークバッファを返却する。
+ */
+ER
+rel_net_buf (T_NET_BUF *buf)
+{
+        free(buf);
+        return E_OK;
+        }
+/*
+ * net_buf_max_siz -- ネットワークバッファの最大サイズを返す。
+ */
+uint_t
+net_buf_max_siz (void)
+{
+        return (uint_t)IF_PDU_SIZE;
+        }
+#endif

EcnlProtoTool/trunk/asp3_dcre/tinet/net/net_buf.h

-              r331
+              r429
         uint8_t         idix;   /* mpfid のインデックス        */
         uint8_t         flags;  /* フラグ          */
+#ifdef IF_ETHER_MULTI_NIC
+        uint8_t         conn_pos;
+#endif
 #ifdef IF_ETHER_NIC_NET_BUF_ALIGN
         uint8_t         nalign[IF_ETHER_NIC_NET_BUF_ALIGN];
 …
         uint8_t         idix;   /* mpfid のインデックス        */
         uint8_t         flags;  /* フラグ          */
+#ifdef IF_ETHER_MULTI_NIC
+        uint8_t         conn_pos;
+#endif
 #ifdef IF_ETHER_NIC_NET_BUF_ALIGN
         uint8_t         nalign[IF_ETHER_NIC_NET_BUF_ALIGN];
 …
         uint8_t         idix;   /* mpfid のインデックス        */
         uint8_t         flags;  /* フラグ          */
+#ifdef IF_ETHER_MULTI_NIC
+        uint8_t         conn_pos;
+#endif
 #ifdef IF_ETHER_NIC_NET_BUF_ALIGN
         uint8_t         nalign[IF_ETHER_NIC_NET_BUF_ALIGN];
 …
         uint8_t         idix;   /* mpfid のインデックス        */
         uint8_t         flags;  /* フラグ          */
+#ifdef IF_ETHER_MULTI_NIC
+        uint8_t         conn_pos;
+#endif
 #ifdef IF_ETHER_NIC_NET_BUF_ALIGN
         uint8_t         nalign[IF_ETHER_NIC_NET_BUF_ALIGN];
 …
         uint8_t         idix;   /* mpfid のインデックス        */
         uint8_t         flags;  /* フラグ          */
+#ifdef IF_ETHER_MULTI_NIC
+        uint8_t         conn_pos;
+#endif
 #ifdef IF_ETHER_NIC_NET_BUF_ALIGN
         uint8_t         nalign[IF_ETHER_NIC_NET_BUF_ALIGN];
 …
         uint8_t         idix;   /* mpfid のインデックス        */
         uint8_t         flags;  /* フラグ          */
+#ifdef IF_ETHER_MULTI_NIC
+        uint8_t         conn_pos;
+#endif
 #ifdef IF_ETHER_NIC_NET_BUF_ALIGN
         uint8_t         nalign[IF_ETHER_NIC_NET_BUF_ALIGN];
 …
         uint8_t         idix;   /* mpfid のインデックス        */
         uint8_t         flags;  /* フラグ          */
+#ifdef IF_ETHER_MULTI_NIC
+        uint8_t         conn_pos;
+#endif
 #ifdef IF_ETHER_NIC_NET_BUF_ALIGN
         uint8_t         nalign[IF_ETHER_NIC_NET_BUF_ALIGN];

EcnlProtoTool/trunk/asp3_dcre/tinet/net/net_count.c

r331	r429
222	222	T_NET_COUNT net_count_igmp;
223	223
224		#endif /* of #if NET_COUNT_ENABLE & PROTO_FLG_I~~CMP4~~ */
	224	#endif /* of #if NET_COUNT_ENABLE & PROTO_FLG_IGMP */
225	225
226	226	#endif /* of #if defined(_IP4_CFG) */

EcnlProtoTool/trunk/asp3_dcre/tinet/net/net_rename.h

-              r331
+              r429
 #define tget_net_buf_ex         _tinet_tget_net_buf_ex
 #define tget_net_buf            _tinet_tget_net_buf
 #define rel_net_buf             _tinet_rel_net_buf
 #define rus_net_buf             _tinet_rus_net_buf
 #define net_buf_siz             _tinet_net_buf_siz
+#define rel_net_buf                     _tinet_rel_net_buf
+#define rus_net_buf                     _tinet_rus_net_buf
+#define net_buf_siz                     _tinet_net_buf_siz
 #define net_buf_max_siz         _tinet_net_buf_max_siz
 #define nbuf_get_tbl            _tinet_nbuf_get_tbl

EcnlProtoTool/trunk/asp3_dcre/tinet/netapp/Makefile.netapp

-              r331
+              r429
                 NETAPP_COBJS := $(NETAPP_COBJS) udp6_echo_cli.o
                 NETAPP_KERNEL_CFG := $(NETAPP_KERNEL_CFG) $(NETAPP_DIRS)/udp6_echo_cli.cfg
                 ifeq ($(SUPPORT_INET4),true)
                         ifeq ($(USE_UDP4_ECHO_CLI),true)
 …
                         endif
                 endif
         else
+                else
                 ifeq ($(SUPPORT_INET4),true)
                         SUPPORT_UDP = true
 …
 ifeq ($(TARGET_KERNEL),ASP)
         APPLDIR := $(APPLDIR) $(NETAPP_DIRS)
+        APPLDIRS := $(APPLDIRS) $(NETAPP_DIRS)
         APPL_COBJS := $(APPL_COBJS) $(NETAPP_COBJS)
         APPL_CFLAGS := $(APPL_CFLAGS) -fno-strict-aliasing
 …
 ifeq ($(TARGET_KERNEL),ASP)
         APPLDIR := $(APPLDIR) $(SRCDIR)/pdic/sc1602
+        APPLDIRS := $(APPLDIRS) $(SRCDIR)/pdic/sc1602
 endif

EcnlProtoTool/trunk/asp3_dcre/tinet/netapp/dbg_cons.c

-              r331
+              r429
                     "IX Expire State      MAC Address       IP Address\n");
         /* expire の単位は [ms]。*/
+        /* expire の単位は [us]。*/
         get_tim(&now);
         cache = nd6_get_cache();
 …
                     "IX Expire MAC Address       IP Address\n");
         /* expire の単位は [ms]。*/
+        /* expire の単位は [us]。*/
         cache = arp_get_cache();
         for (ix = 0; ix < NUM_ARP_ENTRY; ix ++) {
 …
         WAI_NET_CONS_PRINTF();
         get_tim(&now);
         cons_printf(portid, "ネットワーク統計情報\t経過時間[ms]\t%lu\t", now);
+        cons_printf(portid, "ネットワーク統計情報\t経過時間[us]\t%lu\t", now);
         if (now > (1000 * 3600 * 24))
                 cons_printf(portid, "%3lu日 %2lu時間 %2lu分 %2lu秒\n",
 …
+                }
         cons_printf(portid, "\nネットワーク統計情報\t経過時間[ms]\t%lu\t", now);
+        cons_printf(portid, "\nネットワーク統計情報\t経過時間[us]\t%lu\t", now);
         if (now > (1000 * 3600 * 24))
                 cons_printf(portid, "%3lu日 %2lu時間 %2lu分 %2lu秒\n",
 …
         WAI_NET_CONS_PRINTF();
         get_tim(&now);
         cons_printf(portid, "ネットワークバッファ情報\t経過時間[ms]\t%u\n", now);
+        cons_printf(portid, "ネットワークバッファ情報\t経過時間[us]\t%u\n", now);
 #if NET_COUNT_ENABLE
 …
         cons_printf(portid, " IP Address\n");
         /* expire の単位は [ms]。*/
+        /* expire の単位は [us]。*/
         get_tim(&now);
         dr = nd6_get_drl(&count);
 …
         cons_printf(portid, "ND:\n");
         cons_printf(portid, "  TMO_ND6_RTR_SOL_DELAY:    %5d[ms]\n", TMO_ND6_RTR_SOL_DELAY);
         cons_printf(portid, "  TMO_ND6_RTR_SOL_INTERVAL: %5d[ms]\n", TMO_ND6_RTR_SOL_INTERVAL);
+        cons_printf(portid, "  TMO_ND6_RTR_SOL_DELAY:    %5d[us]\n", TMO_ND6_RTR_SOL_DELAY);
+        cons_printf(portid, "  TMO_ND6_RTR_SOL_INTERVAL: %5d[us]\n", TMO_ND6_RTR_SOL_INTERVAL);
         cons_printf(portid, "  NUM_IP6_DAD_COUNT:        %5d\n",     NUM_IP6_DAD_COUNT);
         cons_printf(portid, "  NUM_ND6_CACHE_ENTRY:      %5d\n",     NUM_ND6_CACHE_ENTRY);

EcnlProtoTool/trunk/asp3_dcre/tinet/netapp/dhcp4.h

r331	r429
93	93	uint8_t file [DHCP4_FILE_LEN]; /* boot file name */
94	94	uint8_t options[DHCP4_DFLT_OPT_LEN]; /* optional parameters field */
95		} T_DHCP4_MSG;
	95	} __attribute__((packed)) T_DHCP4_MSG;
96	96
97	97	/* packet type ã®å®ç¾© */

EcnlProtoTool/trunk/asp3_dcre/tinet/netapp/dhcp4_cli.c

-              r331
+              r429
 #endif
+#ifdef SEM_DHCP4_CLI_TIMER
+#define DHCP4_CLI_TIMER_LOCK() do { syscall(wai_sem(SEM_DHCP4_CLI_TIMER)); } while(0)
+#define DHCP4_CLI_TIMER_UNLOCK() do { syscall(sig_sem(SEM_DHCP4_CLI_TIMER)); } while(0)
+#else
+#define DHCP4_CLI_TIMER_LOCK() do { } while(0)
+#define DHCP4_CLI_TIMER_UNLOCK() do { } while(0)
+#endif
+#ifdef SEM_DHCP4_CLI_READY
+#define DHCP4_CLI_READY_WAIT(ct) do { syscall(wai_sem(SEM_DHCP4_CLI_READY)); } while(0)
+#define DHCP4_CLI_READY_SIGNAL(ct) do { syscall(sig_sem(SEM_DHCP4_CLI_READY)); } while(0)
+#else
+#define DHCP4_CLI_READY_WAIT(ct) do { } while(0)
+#define DHCP4_CLI_READY_SIGNAL(ct) do { ct->sig = 1; syscall(wup_tsk(ct->tskid)); } while(0)
+#endif
 /*
  *  dhcp4_cksum -- ãã§ãã¯ãµã ã®è¨ç®é¢æ°
 …
 #endif  /* of #ifdef USE_LCD */
 #endif
+                ether_set_down();
+                }
+        }
 …
                 lcd_putc(LCD_PORTID, '\n');
 #endif  /* of #ifdef USE_LCD */
+        if (ct->set_addr_callback != NULL)
+                ct->set_addr_callback();
+                ether_set_up();
+                }
+        }
 …
         int ix;
         syscall(wai_sem(SEM_DHCP4_CLI_TIMER));
+        DHCP4_CLI_TIMER_LOCK();
         for (ix = NUM_DHCP4C_TIMERS; ix -- > 0; )
                 ct->timers[ix] = 0;
         syscall(sig_sem(SEM_DHCP4_CLI_TIMER));
+        DHCP4_CLI_TIMER_UNLOCK();
+        }
 …
         /* OFFER ã¡ãã»ã¼ã¸åä¿¡ã¿ã¤ã ã¢ã¦ããè¨å®ããã*/
         syscall(wai_sem(SEM_DHCP4_CLI_TIMER));
+        DHCP4_CLI_TIMER_LOCK();
         ct->timers[DHCP4C_TIMER_RCV_OFFER] = SYSTIM2TIMER(TMO_DHCP4C_OFFER);
         syscall(sig_sem(SEM_DHCP4_CLI_TIMER));
+        DHCP4_CLI_TIMER_UNLOCK();
         /* éä¿¡å
 …
         /* DISCOVER ã¡ãã»ã¼ã¸ãéä¿¡ããã*/
         ct->flags |= DHCP4C_FLAG_TMOUT_SND_DISC;
         syscall(sig_sem(SEM_DHCP4_CLI_READY));
+        DHCP4_CLI_READY_SIGNAL(ct);
+        }
 …
         /* EXPIREãRENEWãREBIND ã¿ã¤ãã¼ãè¨å®ããã*/
         syscall(wai_sem(SEM_DHCP4_CLI_TIMER));
+        DHCP4_CLI_TIMER_LOCK();
         ct->timers[DHCP4C_TIMER_EXPIRE] = SYSTIM2TIMER(ct->expire);             /* EXPIRE      ã¾ã§ã®æé */
         ct->timers[DHCP4C_TIMER_REBIND] = SYSTIM2TIMER(ct->rebind);             /* REBINDï¼T2ï¼ã¾ã§ã®æé */
         ct->timers[DHCP4C_TIMER_RENEW]  = SYSTIM2TIMER(ct->renew);              /* RENEW ï¼T1ï¼ã¾ã§ã®æé */
         syscall(sig_sem(SEM_DHCP4_CLI_TIMER));
+        DHCP4_CLI_TIMER_UNLOCK();
         /* BOUND ç¶æ
 …
 ã RENEW ä»¥å¤ã§ã¯ ACK/NAK ã¡ãã»ã¼ã¸åä¿¡ã¿ã¤ã ã¢ã¦ããè¨å®ããã*/
         if (fsm != DHCP4_FSM_RENEW) {
                 syscall(wai_sem(SEM_DHCP4_CLI_TIMER));
+                DHCP4_CLI_TIMER_LOCK();
                 ct->timers[DHCP4C_TIMER_RCV_ACK] = SYSTIM2TIMER(TMO_DHCP4C_ACK);
                 syscall(sig_sem(SEM_DHCP4_CLI_TIMER));
+                DHCP4_CLI_TIMER_UNLOCK();
+                }
 …
         /* REQUEST ã¡ãã»ã¼ã¸ãéä¿¡ããã*/
         ct->flags |= DHCP4C_FLAG_TMOUT_SND_REQ;
         syscall(sig_sem(SEM_DHCP4_CLI_READY));
+        DHCP4_CLI_READY_SIGNAL(ct);
+        }
 …
         /* RELEASE ã¡ãã»ã¼ã¸ãéä¿¡ããã*/
         ct->flags |= DHCP4C_FLAG_TMOUT_SND_REL;
         syscall(sig_sem(SEM_DHCP4_CLI_READY));
+        DHCP4_CLI_READY_SIGNAL(ct);
+        }
 …
         uint8_t *option;
         memset((void*)&ct->snd_msg->msg, sizeof(ct->snd_msg->msg), 0);
+        memset((void*)&ct->snd_msg->msg, 0, sizeof(ct->snd_msg->msg));
         ct->snd_msg->len = sizeof(ct->snd_msg->msg);
 …
                 /* REQUEST ã¡ãã»ã¼ã¸éä¿¡ã¿ã¤ãã¼ãåæ¢ããã*/
                 syscall(wai_sem(SEM_DHCP4_CLI_TIMER));
+                DHCP4_CLI_TIMER_LOCK();
                 ct->timers[DHCP4C_TIMER_SND_REQ] = 0;
                 syscall(sig_sem(SEM_DHCP4_CLI_TIMER));
+                DHCP4_CLI_TIMER_UNLOCK();
                 /*
 …
                 /* ACK/NAK ã¡ãã»ã¼ã¸åä¿¡ã¿ã¤ãã¼ãåæ¢ããã*/
                 syscall(wai_sem(SEM_DHCP4_CLI_TIMER));
+                DHCP4_CLI_TIMER_LOCK();
                 ct->timers[DHCP4C_TIMER_RCV_ACK] = 0;
                 syscall(sig_sem(SEM_DHCP4_CLI_TIMER));
+                DHCP4_CLI_TIMER_UNLOCK();
                 /*
 …
         /* åéä¿¡ã¿ã¤ã ã¢ã¦ããè¨å®ããã*/
         syscall(wai_sem(SEM_DHCP4_CLI_TIMER));
+        DHCP4_CLI_TIMER_LOCK();
         ct->timers[DHCP4C_TIMER_SND_REQ] = SYSTIM2TIMER(ct->interval);
         syscall(sig_sem(SEM_DHCP4_CLI_TIMER));
+        DHCP4_CLI_TIMER_UNLOCK();
+        }
 …
         /* ã¡ãã»ã¼ã¸éä¿¡å¾
 ã¡ãè¡ãã*/
         syscall(wai_sem(SEM_DHCP4_CLI_READY));
+        DHCP4_CLI_READY_WAIT(ct);
         /* SLEEP ç¶æ
 …
                 /* DISCOVER ã¡ãã»ã¼ã¸éä¿¡ã¿ã¤ãã¼ãåæ¢ããã*/
                 syscall(wai_sem(SEM_DHCP4_CLI_TIMER));
+                DHCP4_CLI_TIMER_LOCK();
                 ct->timers[DHCP4C_TIMER_SND_DISC] = 0;
                 syscall(sig_sem(SEM_DHCP4_CLI_TIMER));
+                DHCP4_CLI_TIMER_UNLOCK();
                 /* REQUEST ã¡ãã»ã¼ã¸ãéä¿¡ãã¦ REQUEST ç¶æ
 …
                 /* OFFER ã¡ãã»ã¼ã¸åä¿¡ã¿ã¤ãã¼ãåæ¢ããã*/
                 syscall(wai_sem(SEM_DHCP4_CLI_TIMER));
+                DHCP4_CLI_TIMER_LOCK();
                 ct->timers[DHCP4C_TIMER_RCV_OFFER] = 0;
                 syscall(sig_sem(SEM_DHCP4_CLI_TIMER));
+                DHCP4_CLI_TIMER_UNLOCK();
                 /* REQUEST ã¡ãã»ã¼ã¸ãéä¿¡ãã¦ REQUEST ç¶æ
 …
         /* åéä¿¡ã¿ã¤ã ã¢ã¦ããè¨å®ããã*/
         syscall(wai_sem(SEM_DHCP4_CLI_TIMER));
+        DHCP4_CLI_TIMER_LOCK();
         ct->timers[DHCP4C_TIMER_SND_DISC] = SYSTIM2TIMER(ct->interval);
+        syscall(sig_sem(SEM_DHCP4_CLI_TIMER));
+        }
+        DHCP4_CLI_TIMER_UNLOCK();
+        }
+#ifdef DHCP4_CLI_TASK
 /*
 …
         int ix;
         syscall(wai_sem(SEM_DHCP4_CLI_TIMER));
+        DHCP4_CLI_TIMER_LOCK();
         for (ix = NUM_DHCP4C_TIMERS; ix -- > 0; ) {
                 if (ct->timers[ix] != 0) {
 …
                         if (ct->timers[ix] == 0) {
                                 ct->flags = (ct->flags & ~DHCP4C_FLAG_TMOUT_MASK) | DHCP4C_FLAG_TMOUT_TIMER | ix;
                                 syscall(sig_sem(SEM_DHCP4_CLI_READY));
+                                DHCP4_CLI_READY_SIGNAL(ct);
+                                }
+                        }
+                }
         syscall(sig_sem(SEM_DHCP4_CLI_TIMER));
+        DHCP4_CLI_TIMER_UNLOCK();
         /* 1ç§æ¯ã«ã¿ã¤ã ã¢ã¦ãããã*/
         timeout((callout_func)dhcpc_timer, ct, NET_TIMER_HZ);
+        }
+#endif
 /*
 …
+        }
+#ifdef DHCP4_CLI_TASK
 /*
  *  dispatch_event -- ã¤ãã³ãæ¯ã®å¦ç
 …
                 /* ã¡ãã»ã¼ã¸ã®åä¿¡ã¨ã¿ã¤ã ã¢ã¦ããå¾
 ã¤ã*/
                 syscall(wai_sem(SEM_DHCP4_CLI_READY));
+                DHCP4_CLI_READY_WAIT(ct);
                 if (ct->flags & DHCP4C_FLAG_RCV_MSG) {
 …
+        }
+#endif
 /*
  *  init_context -- DHCP ã¯ã©ã¤ã¢ã³ãã³ã³ããã¹ãæ§é ä½ãåæåããã
 …
 static void
 init_context (T_DHCP4_CLI_CONTEXT *ct, ID cepid)
+init_context (T_DHCP4_CLI_CONTEXT *ct, ID tskid, ID cepid)
+{
         memset(ct, 0, sizeof(*ct));
+        ct->tskid       = tskid;
         ct->cepid       = cepid;
         ct->sc          = IF_ETHER_NIC_GET_SOFTC();
         ct->dst.portno  = DHCP4_SRV_CFG_PORTNO;
         ct->dst.ipaddr  = IPV4_ADDRANY;
-        ct->set_addr_callback = DHCP4_CLI_SET_ADDR_CALLBACK;
+        }
 …
                 /* SLEEP ãè§£é¤ããã*/
+                wup_tsk(DHCP4_CLI_TASK);
+                context.req = 1;
+                wup_tsk(context.tskid);
                 return E_OK;
+                }
 …
+                                }
+                        }
                 syscall(sig_sem(SEM_DHCP4_CLI_READY));
+                DHCP4_CLI_READY_SIGNAL((&context));
+                }
         return E_OK;
+        }
+#ifdef DHCP4_CLI_TASK
 /*
 …
         T_DHCP4_CLI_CONTEXT     *ct;
         ID                      tskid;
         ER                      error;
+        ER                      error = E_OK;
         dly_tsk(1000);
 …
         /* DHCP ã¯ã©ã¤ã¢ã³ãã³ã³ããã¹ãæ§é ä½ãåæåããã*/
+        init_context(ct, (ID)exinf);
+        init_context(ct, tskid, (ID)exinf);
+        ct->fsm = DHCP4_FSM_SLEEP;
         while (true) {
-                /* 1ç§æ¯ã«ã¿ã¤ã ã¢ã¦ãããããã«ã¿ã¤ãã¼ãè¨å®ããã*/
-                timeout((callout_func)dhcpc_timer, ct, NET_TIMER_HZ / DHCP4C_TIMER_HZ);
-                /* ã¡ãã»ã¼ã¸æ§é ä½ãåæåããã*/
-                if ((error = init_cli_msg(ct)) == E_OK) {
-                        /* SELECT ç¶æ
-ã«é·ç§»ããã*/
-                        start_select(ct);
-                        /* ã¡ã¤ã³ã«ã¼ã */
-                        error = dispatch_event(ct);
+                        }
-                /* å
-¨ã¦ã® TIMER ããã£ã³ã»ã«ããã*/
-                cancel_all_timers(ct);
-                /* ã¿ã¤ãã¼ãåæ¢ããã*/
-                untimeout((callout_func)dhcpc_timer, ct);
-                /* ã¡ãã»ã¼ã¸æ§é ä½ãè§£æ¾ããã*/
-                rel_cli_msg (ct);
                 /* ãªã¼ã¹ãè§£æ¾å¾ãååå¾ãæå®ããã¦ããªããã°ä¼æ¢ããã*/
 …
                         /* ä¼æ¢ããã*/
+                        if (error == E_OK)
+                                syslog(LOG_NOTICE, "[DHCP4C] lease released, go to sleep.");
+                        if (error == E_OK) {
+                                if (ct->fsm != DHCP4_FSM_SLEEP)
+                                        syslog(LOG_NOTICE, "[DHCP4C] lease released, go to sleep.");
+                        }
                         else {
                                 syslog(LOG_NOTICE, "[DHCP4C] server not available, go to sleep, error: %s.", itron_strerror(error));
 …
                 ct->flags = 0;
                 ct->error = E_OK;
+                }
+        }
+                /* 1ç§æ¯ã«ã¿ã¤ã ã¢ã¦ãããããã«ã¿ã¤ãã¼ãè¨å®ããã*/
+                timeout((callout_func)dhcpc_timer, ct, NET_TIMER_HZ / DHCP4C_TIMER_HZ);
+                /* ã¡ãã»ã¼ã¸æ§é ä½ãåæåããã*/
+                if ((error = init_cli_msg(ct)) == E_OK) {
+                        /* SELECT ç¶æ
+ã«é·ç§»ããã*/
+                        start_select(ct);
+                        /* ã¡ã¤ã³ã«ã¼ã */
+                        error = dispatch_event(ct);
+                        }
+                /* å
+¨ã¦ã® TIMER ããã£ã³ã»ã«ããã*/
+                cancel_all_timers(ct);
+                /* ã¿ã¤ãã¼ãåæ¢ããã*/
+                untimeout((callout_func)dhcpc_timer, ct);
+                /* ã¡ãã»ã¼ã¸æ§é ä½ãè§£æ¾ããã*/
+                rel_cli_msg (ct);
+                }
+        }
+#else
+T_DHCP4_CLI_CONTEXT *
+dhcp4_cli_initialize(ID tskid, ID cepid)
+{
+        T_DHCP4_CLI_CONTEXT *ct = &context;
+        /* DHCP ã¯ã©ã¤ã¢ã³ãã³ã³ããã¹ãæ§é ä½ãåæåããã*/
+        init_context(ct, tskid, cepid);
+        ct->fsm = DHCP4_FSM_SLEEP;
+        ct->timer = TMO_FEVR;
+        return ct;
+        }
+int
+dhcp4_cli_get_timer(T_DHCP4_CLI_CONTEXT *ct)
+{
+        if (ct->fsm == DHCP4_FSM_SLEEP)
+                return TMO_FEVR;
+        return ct->timer;
+        }
+void
+dhcp4_cli_progress(T_DHCP4_CLI_CONTEXT *ct, int elapse)
+{
+        int ix;
+        if ((ct->fsm == DHCP4_FSM_SLEEP) || (ct->timer == TMO_FEVR))
+                return;
+        ct->timer -= elapse;
+        if (ct->timer > 0)
+                return;
+        /* 1ç§æ¯ã«ã¿ã¤ã ã¢ã¦ãããããã«ã¿ã¤ãã¼ãè¨å®ããã*/
+        ct->timer = 1000 * 1000;
+        for (ix = NUM_DHCP4C_TIMERS; ix-- > 0; ) {
+                if (ct->timers[ix] != 0) {
+                        ct->timers[ix] --;
+                        if (ct->timers[ix] <= 0) {
+                                ct->timers[ix] = 0;
+                                ct->flags = (ct->flags & ~DHCP4C_FLAG_TMOUT_MASK) | DHCP4C_FLAG_TMOUT_TIMER | ix;
+                                DHCP4_CLI_READY_SIGNAL(ct);
+                                }
+                        }
+                }
+        }
+void
+dhcp4_cli_wakeup(T_DHCP4_CLI_CONTEXT *ct)
+{
+        if (ct->req) {
+                ct->req = 0;
+                if (ct->snd_msg == NULL) {
+                        ct->flags = 0;
+                        ct->error = E_OK;
+                        /* ã¡ãã»ã¼ã¸æ§é ä½ãåæåããã*/
+                        if ((ct->error = init_cli_msg(ct)) != E_OK)
+                                return;
+                        ct->timer = 1000 * 1000;
+                        /* SELECT ç¶æ
+ã«é·ç§»ããã*/
+                        start_select(ct);
+                        }
+                }
+        if (!ct->sig)
+                return;
+        ct->sig = 0;
+        if (ct->flags & DHCP4C_FLAG_RCV_MSG) {
+                while (ct->val_lst != NULL) {
+                        ct->error = eval_rcv_msg(ct);
+                        }
+                ct->flags &= ~DHCP4C_FLAG_RCV_MSG;
+                }
+        }
+void
+dhcp4_cli_timeout(T_DHCP4_CLI_CONTEXT *ct)
+{
+        if (ct->flags & DHCP4C_FLAG_TMOUT_MASK)
+                ct->error = dispatch_timeout(ct);
+        if (ct->error != E_OK || ct->fsm == DHCP4_FSM_SLEEP) {
+                /* å
+¨ã¦ã® TIMER ããã£ã³ã»ã«ããã*/
+                cancel_all_timers(ct);
+                ct->timer = TMO_FEVR;
+                /* ã¡ãã»ã¼ã¸æ§é ä½ãè§£æ¾ããã*/
+                rel_cli_msg(ct);
+                /* ãªã¼ã¹ãè§£æ¾å¾ãååå¾ãæå®ããã¦ããªããã°ä¼æ¢ããã*/
+                if (!(ct->flags & DHCP4C_FLAG_RENEW)) {
+                        /* ä¼æ¢ããã*/
+                        if (ct->error == E_OK) {
+                                if (ct->fsm != DHCP4_FSM_SLEEP)
+                                        syslog(LOG_NOTICE, "[DHCP4C] lease released, go to sleep.");
+                        }
+                        else {
+                                syslog(LOG_NOTICE, "[DHCP4C] server not available, go to sleep, error: %s.", itron_strerror(ct->error));
+                                ct->error = E_OK;
+                                ct->fsm = DHCP4_FSM_SLEEP;
+                                }
+                        }
+                }
+        }
+#endif /* DHCP4_CLI_TASK */
 #endif  /* of #ifdef DHCP4_CLI_CFG */

EcnlProtoTool/trunk/asp3_dcre/tinet/netapp/dhcp4_cli.h

-              r331
+              r429
 /* åä¿¡ã¿ã¤ã ã¢ã¦ã     */
 #define TMO_DHCP4C_OFFER        ULONG_C(120*1000)       /* OFFER ã¡ãã»ã¼ã¸        */
 #define TMO_DHCP4C_ACK          ULONG_C(60*1000)        /* ACK/NAK ã¡ãã»ã¼ã¸      */
+#define TMO_DHCP4C_OFFER        (ULONG_C(120)*SYSTIM_HZ)        /* OFFER ã¡ãã»ã¼ã¸        */
+#define TMO_DHCP4C_ACK          (ULONG_C(60)*SYSTIM_HZ) /* ACK/NAK ã¡ãã»ã¼ã¸      */
 /* ãªã¼ã¹æéã®æ¢å®å¤  */
 #define TMO_DHCP4C_DEF_LEASE    ULONG_C(12*60*60*1000)  /* æ¨æºæé */
 #define TMO_DHCP4C_MIN_LEASE    ULONG_C(60*1000)        /* æå°æé */
+#define TMO_DHCP4C_DEF_LEASE    (ULONG_C(12*60*60)*SYSTIM_HZ)   /* æ¨æºæé */
+#define TMO_DHCP4C_MIN_LEASE    (ULONG_C(60)*SYSTIM_HZ) /* æå°æé */
 /* ã¡ãã»ã¼ã¸ã®éä¿¡å¨æ       */
 #define TMO_DHCP4C_INIT_INTVL   ULONG_C(3*1000)         /* åæå¤    */
 #define TMO_DHCP4C_MAX_BACKOFF  ULONG_C(15*1000)        /* å¶éå¤    */
+#define TMO_DHCP4C_INIT_INTVL   (ULONG_C(3)*SYSTIM_HZ)          /* åæå¤    */
+#define TMO_DHCP4C_MAX_BACKOFF  (ULONG_C(15)*SYSTIM_HZ) /* å¶éå¤    */
 /* DHCP ãµã¼ãã¸ã® UDP éä¿¡ã¿ã¤ã ã¢ã¦ã    */
 …
 ã¡æé       */
 #define TMO_DHCP4C_SND_REL_WAIT ULONG_C(1000000)        /* [us] */
-/* DHCP ã§ã¢ãã¬ã¹ãæ´æ°ãããæã«å¼ã³åºãã³ã¼ã«ããã¯é¢æ° */
-#ifndef DHCP4_CLI_SET_ADDR_CALLBACK
-#define DHCP4_CLI_SET_ADDR_CALLBACK NULL
-#endif
 #ifndef _MACRO_ONLY

EcnlProtoTool/trunk/asp3_dcre/tinet/netapp/dhcp4_cli_var.h

-              r331
+              r429
         RELTIM          interval;       /* éä¿¡éé                 */
         ER_UINT         error;          /* ã¨ã©ã¼ã»ãã¼ã¿é·             */
+        ID              cepid;          /* CEP ID                       */
+        ID                      tskid;          /* ã¿ã¹ã¯ID */
+        ID                      cepid;          /* CEP ID                       */
         uint32_t        xid;            /* ãã©ã³ã¶ã¯ã·ã§ã³ ID          */
         uint16_t        flags;          /* åç¨®ãã©ã°                      */
 …
         uint8_t         fsm;            /* ç¾å¨ã®ç¶æ
                        */
+        void (* set_addr_callback)();   /* ã¢ãã¬ã¹è¨å®æã®ã³ã¼ã«ããã¯ */
+        uint8_t         req;
+        uint8_t         sig;
+        int timer;
         } T_DHCP4_CLI_CONTEXT;

EcnlProtoTool/trunk/asp3_dcre/tinet/netapp/netapp_subr.c

-              r331
+              r429
 #include <sil.h>
 #include <syssvc/serial.h>
+#include <syssvc/logtask.h>
+#include <target_syssvc.h>
+#define LOGTASK_PORTID SIO_PORTID
 #include <t_syslog.h>
 #include "kernel_cfg.h"

EcnlProtoTool/trunk/asp3_dcre/tinet/netapp/resolver.c

-              r331
+              r429
 #include <kernel.h>
 #include <t_syslog.h>
+#include <syssvc/logtask.h>
+#include <target_syssvc.h>
+#define LOGTASK_PORTID SIO_PORTID
 #include "kernel_cfg.h"
 #include "tinet_cfg.h"
 …
+{
         uint_t          label_len;
         uint8_t         *tail;
+        char            *tail;
         while (*name != '\0') {
 …
                 /* ã©ãã«é·ãè¨å®ããã*/
                 label_len = tail - (uint8_t*)name;
+                label_len = tail - name;
                 if (label_len > DNS_LABEL_LENGTH) {     /* 63 ãªã¯ããããè¶
 ããã¨ã¨ã©ã¼ */
 …
                         /* ãã¡ã¤ã³åãè¿½å ããã*/
                         if ((offset = add_name(msg, msg_size, offset, dns_domain_name)) < 0)
+                        if ((offset = add_name(msg, msg_size, offset, (char *)dns_domain_name)) < 0)
                                 return offset;
 …
         if (new == NULL)
                 strcpy(dns_domain_name, RSLV_CFG_DNS_DOMAIN_NAME_STR);
+                strcpy((char *)dns_domain_name, RSLV_CFG_DNS_DOMAIN_NAME_STR);
         else {
                 dst = dns_domain_name;

EcnlProtoTool/trunk/asp3_dcre/tinet/netapp/resolver.h

-              r331
+              r429
  */
 #define TMO_DNS_UDP_SND         ULONG_C(1*1000) /* [ms]ãDNS ãµã¼ãã¸ã®   UDP éä¿¡ã¿ã¤ã ã¢ã¦ã    */
 #define TMO_DNS_UDP_RCV         ULONG_C(5*1000) /* [ms]ãDNS ãµã¼ãããã® UDP åä¿¡ã¿ã¤ã ã¢ã¦ã   */
+#define TMO_DNS_UDP_SND         ULONG_C(1*1000*1000)    /* [us]ãDNS ãµã¼ãã¸ã®   UDP éä¿¡ã¿ã¤ã ã¢ã¦ã    */
+#define TMO_DNS_UDP_RCV         ULONG_C(5*1000*1000)    /* [us]ãDNS ãµã¼ãããã® UDP åä¿¡ã¿ã¤ã ã¢ã¦ã   */
 #define NUM_DNS_UDP_RETRY       1               /* ãªãã©ã¤åæ°                                   */

EcnlProtoTool/trunk/asp3_dcre/tinet/netapp/wwws.c

-              r331
+              r429
         len += put_str(cepid, srbuf, response);
         get_tim(&finish);
         syslog(LOG_NOTICE, "[WWWn:%02u SND] send: index.html, len: %4u, time: %lu [ms]",
+        syslog(LOG_NOTICE, "[WWWn:%02u SND] send: index.html, len: %4u, time: %lu [us]",
                            cepid, len, (finish - start) * 1000 / SYSTIM_HZ);
         return E_OK;
 …
         get_tim(&finish);
         syslog(LOG_NOTICE, "[WWWn:%02u SND]send: stat.html,  len: %4u, time: %lu [ms]",
+        syslog(LOG_NOTICE, "[WWWn:%02u SND]send: stat.html,  len: %4u, time: %lu [us]",
                            cepid, len, (finish - start) * 1000 / SYSTIM_HZ);
         return E_OK;

EcnlProtoTool/trunk/asp3_dcre/tinet/netdev/if_mbed/if_mbed.c

-              r331
+              r429
  *  Copyright (C) 2001-2009 by Dep. of Computer Science and Engineering
  *                   Tomakomai National College of Technology, JAPAN
  *  Copyright (C) 2014 Cores Co., Ltd. Japan
+ *  Copyright (C) 2014-2019 Cores Co., Ltd. Japan
+ *
  *  上記著作権者は，以下の(1)～(4)の条件を満たす場合に限り，本ソフトウェ
 …
  * SUCH DAMAGE.
+ *
  * $FreeBSD: src/sys/i386/isa/if_mbed.c,v 1.148.2.4 1999/09/25 13:08:18 nyan Exp $
+ * $FreeBSD: src/sys/i386/isa/if_ed.c,v 1.148.2.4 1999/09/25 13:08:18 nyan Exp $
  */
 …
 if_mbed_setrcr(T_IF_SOFTC *ic)
+{
-        T_MBED_SOFTC    *sc = ic->sc;
+}
 …
 if_mbed_init(T_IF_SOFTC *ic)
+{
-        T_MBED_SOFTC *sc = ic->sc;
         /* mbed_init 本体を呼び出す。*/
         if_mbed_init_sub(ic);
 …
+                                }
                                 if (link_mode_new != NEGO_FAIL) {
                                         ethernetext_set_link_mode(link_mode_new);
+                                        ethernetext_set_link_mode(link_mode_new | PROMISCUOUS_MODE);
                                         ETHER.EESIPR0 |= EDMAC_EESIPR_INI_TRANS;
                                         ether_set_link_up(ether);
 …
 if_mbed_read(T_IF_SOFTC *ic)
+{
-        T_MBED_SOFTC *sc = ic->sc;
         T_NET_BUF *input = NULL;
         uint_t align;
 …
 if_mbed_start(T_IF_SOFTC *ic, T_NET_BUF *output)
+{
-        T_MBED_SOFTC *sc = ic->sc;
         int32_t len, res, pos;
 …
 if_mbed_eth_handler(void)
+{
+    uint32_t stat_edmac;
+    uint32_t stat_etherc;
+    /* Clear the interrupt request flag */
+    stat_edmac = (ETHER.EESR0 & ETHER.EESIPR0);       /* Targets are restricted to allowed interrupts */
+    ETHER.EESR0 = stat_edmac;
+    /* Reception-related */
+    if (stat_edmac & EDMAC_EESIPR_INI_RECV) {
+                isig_sem(if_softc.semid_rxb_ready);
+    }
+        uint32_t stat_edmac;
+        uint32_t stat_etherc;
+        ER ret;
+        /* Clear the interrupt request flag */
+        stat_edmac = (ETHER.EESR0 & ETHER.EESIPR0);       /* Targets are restricted to allowed interrupts */
+        ETHER.EESR0 = stat_edmac;
+        /* Reception-related */
+        if (stat_edmac & EDMAC_EESIPR_INI_RECV) {
+                ret = isig_sem(if_softc.semid_rxb_ready);
+                if (ret != E_OK)
+                        syslog(LOG_INFO, "semid_rxb_ready %d %x", ret, stat_edmac & EDMAC_EESIPR_INI_RECV);
+        }
         if (stat_edmac & EDMAC_EESIPR_INI_TRANS) {
+                isig_sem(if_softc.semid_txb_ready);
+        }
+    /* E-MAC-related */
+    if (stat_edmac & EDMAC_EESIPR_INI_EtherC) {
+        /* Clear the interrupt request flag */
+        stat_etherc = (ETHER.ECSR0 & ETHER.ECSIPR0);  /* Targets are restricted to allowed interrupts */
+        ETHER.ECSR0  = stat_etherc;
+    }
+}
+                ret = isig_sem(if_softc.semid_txb_ready);
+                if (ret != E_OK)
+                        syslog(LOG_INFO, "semid_txb_ready %d %x", ret, stat_edmac & EDMAC_EESIPR_INI_TRANS);
+        }
+        /* E-MAC-related */
+        if (stat_edmac & EDMAC_EESIPR_INI_EtherC) {
+                /* Clear the interrupt request flag */
+                stat_etherc = (ETHER.ECSR0 & ETHER.ECSIPR0);  /* Targets are restricted to allowed interrupts */
+                ETHER.ECSR0  = stat_etherc;
+        }
+}

EcnlProtoTool/trunk/asp3_dcre/tinet/netdev/if_mbed/if_mbed.cfg

r321	r429
4	4	* Copyright (C) 2001-2009 by Dep. of Computer Science and Engineering
5	5	* Tomakomai National College of Technology, JAPAN
6		* Copyright (C) 2014 Cores Co., Ltd. Japan
	6	* Copyright (C) 2014-2019 Cores Co., Ltd. Japan
7	7	*
8	8	* 上記著作権者は，以下の(1)～(4)の条件を満たす場合に限り，本ソフトウェ

EcnlProtoTool/trunk/asp3_dcre/tinet/netdev/if_mbed/if_mbed.h

r321	r429
4	4	* Copyright (C) 2001-2009 by Dep. of Computer Science and Engineering
5	5	* Tomakomai National College of Technology, JAPAN
6		* Copyright (C) 2014 Cores Co., Ltd. Japan
	6	* Copyright (C) 2014-2019 Cores Co., Ltd. Japan
7	7	*
8	8	* 上記著作権者は，以下の(1)～(4)の条件を満たす場合に限り，本ソフトウェ

EcnlProtoTool/trunk/asp3_dcre/tinet/netdev/if_mbed/nic.cfg

r321	r429
4	4	* Copyright (C) 2001-2009 by Dep. of Computer Science and Engineering
5	5	* Tomakomai National College of Technology, JAPAN
6		* Copyright (C) 2014 Cores Co., Ltd. Japan
	6	* Copyright (C) 2014-2019 Cores Co., Ltd. Japan
7	7	*
8	8	* 上記著作権者は，以下の(1)～(4)の条件を満たす場合に限り，本ソフトウェ

EcnlProtoTool/trunk/asp3_dcre/tinet/netdev/if_mbed/nic_asp.cfg

r321	r429
4	4	* Copyright (C) 2001-2009 by Dep. of Computer Science and Engineering
5	5	* Tomakomai National College of Technology, JAPAN
6		* Copyright (C) 2014 Cores Co., Ltd. Japan
	6	* Copyright (C) 2014-2019 Cores Co., Ltd. Japan
7	7	*
8	8	* 上記著作権者は，以下の(1)～(4)の条件を満たす場合に限り，本ソフトウェ

EcnlProtoTool/trunk/asp3_dcre/tinet/netdev/if_mbed/nic_rename.h

r321	r429
4	4	* Copyright (C) 2001-2009 by Dep. of Computer Science and Engineering
5	5	* Tomakomai National College of Technology, JAPAN
6		* Copyright (C) 2014 Cores Co., Ltd. Japan
	6	* Copyright (C) 2014-2019 Cores Co., Ltd. Japan
7	7	*
8	8	* 上記著作権者は，以下の(1)～(4)の条件を満たす場合に限り，本ソフトウェ

EcnlProtoTool/trunk/asp3_dcre/tinet/netdev/if_mbed/tinet_nic_config.h

r321	r429
4	4	* Copyright (C) 2001-2009 by Dep. of Computer Science and Engineering
5	5	* Tomakomai National College of Technology, JAPAN
6		* Copyright (C) 2014 Cores Co., Ltd. Japan
	6	* Copyright (C) 2014-2019 Cores Co., Ltd. Japan
7	7	*
8	8	* 上記著作権者は，以下の(1)～(4)の条件を満たす場合に限り，本ソフトウェ

EcnlProtoTool/trunk/asp3_dcre/tinet/netdev/if_mbed/tinet_nic_defs.h

r321	r429
4	4	* Copyright (C) 2001-2009 by Dep. of Computer Science and Engineering
5	5	* Tomakomai National College of Technology, JAPAN
6		* Copyright (C) 2014 Cores Co., Ltd. Japan
	6	* Copyright (C) 2014-2019 Cores Co., Ltd. Japan
7	7	*
8	8	* 上記著作権者は，以下の(1)～(4)の条件を満たす場合に限り，本ソフトウェ

EcnlProtoTool/trunk/asp3_dcre/tinet/netinet/icmp6.h

-              r331
+              r429
 typedef struct t_router_advert_hdr {
         T_ICMP6_HDR     hdr;
         uint32_t        reachable;              /* [ms] 到達可能時間  */
         uint32_t        retransmit;             /* [ms] 近隣要請送信間隔        */
+        uint32_t        reachable;              /* [us] 到達可能時間  */
+        uint32_t        retransmit;             /* [us] 近隣要請送信間隔        */
         /* この後にオプションが続く */
         } __attribute__((packed, aligned(2))) T_ROUTER_ADVERT_HDR;

EcnlProtoTool/trunk/asp3_dcre/tinet/netinet/in4_subr.c

-              r331
+              r429
 #include <net/if_var.h>
+#ifdef SUPPORT_IGMP
+#include <netinet/udp_var.h>
+#include <netinet/ip_igmp.h>
+#endif /* of #ifdef SUPPORT_IGMP */
 #if defined(_IP4_CFG)
 …
         /* IP ããããè¨å®ããã*/
+        if ((error = in4_set_header(*nbuf, len, dstaddr, srcaddr, proto, ttl)) != E_OK)
+        if ((error = in4_set_header(*nbuf, len, dstaddr, srcaddr, proto, ttl)) != E_OK) {
+                syscall(rel_net_buf(*nbuf));
+                *nbuf = NULL;
                 return error;
+                }
         /* 4 ãªã¯ãããå¢çã¾ã§ããã£ã³ã°ã§åããã*/

EcnlProtoTool/trunk/asp3_dcre/tinet/netinet/in_itron.h

-              r331
+              r429
 #define TFN_TCP_ALL             (0)
 #define TEV_TCP_RCV_OOB         (-0x201)
+#define TEV_TCP_RCV_OOB         (0x201)
 /* UDP 関係 */
 …
 #define TFN_UDP_ALL             (0)
 #define TEV_UDP_RCV_DAT         (-0x221)
+#define TEV_UDP_RCV_DAT         (0x221)
 /* 一般 */
 …
 extern ER       udp_cre_cep (ID cepid, T_UDP_CCEP *pk_ccep);
+extern ER       udp6_del_cep(ID cepid);
+extern ER       udp6_set_opt(ID cepid, int_t optname, void *optval, int_t optlen);
+extern ER       udp6_get_opt(ID cepid, int_t optname, void *optval, int_t optlen);
 extern ER       udp6_cre_cep (ID cepid, T_UDP6_CCEP *pk_ccep);

EcnlProtoTool/trunk/asp3_dcre/tinet/netinet/in_rename.h

-              r331
+              r429
 #define arp_get_cache           _tinet_arp_get_cache
+#define ether_map_ipv4_multicast        _tinet_ether_map_ipv4_multicast
+#define ether_map_ipv4_multicast        \
+                                                                _tinet_ether_map_ipv4_multicast
 /* netinet6/icmp6.c */

EcnlProtoTool/trunk/asp3_dcre/tinet/netinet/in_var.h

-              r331
+              r429
                                         inn_get_datagram(nbuf,len,maxlen,dst,src,next,hlim,nbatr,tmout)
 #define IN_IS_ADDR_MULTICAST(addr)      inn_is_addr_multicast(addr)
+#define IN_IS_NET_ADDR_MULTICAST(nbuf)  IN_IS_ADDR_MULTICAST(&GET_IP6_HDR(nbuf)->dst)
+#define IN_IS_NET_ADDR_MULTICAST(nbuf)  (GET_IP_VER(input)==IPV6_VERSION        \
+                                        ?IN_IS_ADDR_MULTICAST(&GET_IP6_HDR(input)->dst) \
+                                        :IN4_IS_ADDR_MULTICAST(ntohl(GET_IP4_HDR(input)->dst)))
 #define IN_ADDRWITHIFP(ifp,src,dst)     inn_addrwithifp(ifp,src,dst)
 #define IN_IS_ADDR_ANY(addr)            IN6_IS_ADDR_UNSPECIFIED(addr)

EcnlProtoTool/trunk/asp3_dcre/tinet/netinet/ip4_var.h

-              r331
+              r429
         uint8_t         idix;   /* mpfid ã®ã¤ã³ããã¯ã¹  */
         uint8_t         flags;  /* ãã©ã°            */
+#ifdef IF_ETHER_MULTI_NIC
+        uint8_t         conn_pos;
+#endif
 #ifdef IF_ETHER_NIC_NET_BUF_ALIGN
         uint8_t         nalign[IF_ETHER_NIC_NET_BUF_ALIGN];
 …
         uint8_t         idix;   /* mpfid ã®ã¤ã³ããã¯ã¹  */
         uint8_t         flags;  /* ãã©ã°            */
+#ifdef IF_ETHER_MULTI_NIC
+        uint8_t         conn_pos;
+#endif
 #ifdef IF_ETHER_NIC_NET_BUF_ALIGN
         uint8_t         nalign[IF_ETHER_NIC_NET_BUF_ALIGN];
 …
         uint8_t         idix;   /* mpfid ã®ã¤ã³ããã¯ã¹  */
         uint8_t         flags;  /* ãã©ã°            */
+#ifdef IF_ETHER_MULTI_NIC
+        uint8_t         conn_pos;
+#endif
 #ifdef IF_ETHER_NIC_NET_BUF_ALIGN
         uint8_t         nalign[IF_ETHER_NIC_NET_BUF_ALIGN];

EcnlProtoTool/trunk/asp3_dcre/tinet/netinet/ip_igmp.c

-              r331
+              r429
 *                   Tomakomai National College of Technology, JAPAN
+*
+*  ãLì ÒÍCÈºÌ (1)`(4) Ìð©CFree Software Foundation
+*  ÉæÁÄö\³êÄ¢é GNU General Public License Ì Version 2 ÉL
+*  q³êÄ¢éðð½·êÉÀèC{\tgEFAi{\tgEFA
+*  ðüÏµ½àÌðÜÞDÈº¯¶jðgpE¡»EüÏEÄzziÈºC
+*  pÆÄÔj·é±Æð³Åø·éD
+*  (1) {\tgEFAð\[XR[hÌ`Åp·éêÉÍCãLÌì
+*       \¦C±Ìpð¨æÑºLÌ³ÛØKèªC»ÌÜÜÌ`Å\[
+*      XR[hÉÜÜêÄ¢é±ÆD
+*  (2) {\tgEFAðCCu`®ÈÇC¼Ì\tgEFAJÉg
+*      pÅ«é`ÅÄzz·éêÉÍCÄzzÉº¤hL
+gip
+*      Ò}j
+AÈÇjÉCãLÌì \¦C±Ìpð¨æÑºL
+*      Ì³ÛØKèðfÚ·é±ÆD
+*  (3) {\tgEFAðC@íÉgÝÞÈÇC¼Ì\tgEFAJÉg
+*      pÅ«È¢`ÅÄzz·éêÉÍCÌðð½·±ÆD
+*    (a) ÄzzÉº¤hL
+gipÒ}j
+AÈÇjÉCãLÌ
+*        ì \¦C±Ìpð¨æÑºLÌ³ÛØKèðfÚ·é±ÆD
+*  (4) {\tgEFAÌpÉæè¼ÚIÜ½ÍÔÚIÉ¶¶é¢©Èé¹
+*      Q©çàCãLì Ò¨æÑTOPPERSvWFNgðÆÓ·é±ÆD
+*  ä¸è¨èä½æ¨©è
+ã¯ï¼ä»¥ä¸ã® (1)ï½(4) ã®æ¡ä»¶ãï¼Free Software Foundation
+*  ã«ãã£ã¦å
+¬è¡¨ããã¦ãã GNU General Public License ã® Version 2 ã«è¨
+*  è¿°ããã¦ããæ¡ä»¶ãæºããå ´åã«éãï¼æ¬ã½ããã¦ã§ã¢ï¼æ¬ã½ããã¦ã§ã¢
+*  ãæ¹å¤ãããã®ãå«ãï¼ä»¥ä¸åãï¼ãä½¿ç¨ã»è¤è£½ã»æ¹å¤ã»åé
+å¸ï¼ä»¥ä¸ï¼
+*  å©ç¨ã¨å¼ã¶ï¼ãããã¨ãç¡åã§è¨±è«¾ããï¼
+*  (1) æ¬ã½ããã¦ã§ã¢ãã½ã¼ã¹ã³ã¼ãã®å½¢ã§å©ç¨ããå ´åã«ã¯ï¼ä¸è¨ã®èä½
+*      æ¨©è¡¨ç¤ºï¼ãã®å©ç¨æ¡ä»¶ããã³ä¸è¨ã®ç¡ä¿è¨¼è¦å®ãï¼ãã®ã¾ã¾ã®å½¢ã§ã½ã¼
+*      ã¹ã³ã¼ãä¸ã«å«ã¾ãã¦ãããã¨ï¼
+*  (2) æ¬ã½ããã¦ã§ã¢ãï¼ã©ã¤ãã©ãªå½¢å¼ãªã©ï¼ä»ã®ã½ããã¦ã§ã¢éçºã«ä½¿
+*      ç¨ã§ããå½¢ã§åé
+å¸ããå ´åã«ã¯ï¼åé
+å¸ã«ä¼´ãããã¥ã¡ã³ãï¼å©ç¨
+*      è
+ããã¥ã¢ã«ãªã©ï¼ã«ï¼ä¸è¨ã®èä½æ¨©è¡¨ç¤ºï¼ãã®å©ç¨æ¡ä»¶ããã³ä¸è¨
+*      ã®ç¡ä¿è¨¼è¦å®ãæ²è¼ãããã¨ï¼
+*  (3) æ¬ã½ããã¦ã§ã¢ãï¼æ©å¨ã«çµã¿è¾¼ããªã©ï¼ä»ã®ã½ããã¦ã§ã¢éçºã«ä½¿
+*      ç¨ã§ããªãå½¢ã§åé
+å¸ããå ´åã«ã¯ï¼æ¬¡ã®æ¡ä»¶ãæºãããã¨ï¼
+*    (a) åé
+å¸ã«ä¼´ãããã¥ã¡ã³ãï¼å©ç¨è
+ããã¥ã¢ã«ãªã©ï¼ã«ï¼ä¸è¨ã®è
+*        ä½æ¨©è¡¨ç¤ºï¼ãã®å©ç¨æ¡ä»¶ããã³ä¸è¨ã®ç¡ä¿è¨¼è¦å®ãæ²è¼ãããã¨ï¼
+*  (4) æ¬ã½ããã¦ã§ã¢ã®å©ç¨ã«ããç´æ¥çã¾ãã¯éæ¥çã«çãããããªãæ
+*      å®³ãããï¼ä¸è¨èä½æ¨©è
+ããã³TOPPERSããã¸ã§ã¯ããå
+è²¬ãããã¨ï¼
+*
+*  {\tgEFAÍC³ÛØÅñ³êÄ¢éàÌÅ éDãLì Ò¨
+*  æÑTOPPERSvWFNgÍC{\tgEFAÉÖµÄC»ÌKpÂ\«à
+*  ÜßÄC¢©ÈéÛØàsíÈ¢DÜ½C{\tgEFAÌpÉæè¼
+*  ÚIÜ½ÍÔÚIÉ¶¶½¢©Èé¹QÉÖµÄàC»ÌÓCðíÈ¢D
+*  æ¬ã½ããã¦ã§ã¢ã¯ï¼ç¡ä¿è¨¼ã§æä¾ããã¦ãããã®ã§ããï¼ä¸è¨èä½æ¨©è
+ã
+*  ãã³TOPPERSããã¸ã§ã¯ãã¯ï¼æ¬ã½ããã¦ã§ã¢ã«é¢ãã¦ï¼ãã®é©ç¨å¯è½æ§ã
+*  å«ãã¦ï¼ãããªãä¿è¨¼ãè¡ããªãï¼ã¾ãï¼æ¬ã½ããã¦ã§ã¢ã®å©ç¨ã«ããç´
+*  æ¥çã¾ãã¯éæ¥çã«çãããããªãæå®³ã«é¢ãã¦ãï¼ãã®è²¬ä»»ãè² ããªãï¼
+*
 *  @(#) $Id$
 …
 static bool_t igmp_send_report_v2(T_IN4_ADDR dst);
 static uint16_t igmp_get_timer(T_IGMP_ENTRY *entry);
+static int16_t igmp_get_timer(T_IGMP_ENTRY *entry);
 ER igmp_set_loop(T_UDP_CEP *cep, uint8_t optval)
 …
         T_IGMP_ENTRY *entry = NULL;
         int             i;
-        uint16_t        min;
         T_IFNET *ifp = IF_GET_IFNET();
         ER ret = E_NOMEM;
 …
                 entry = &igmp_groups[i];
                 if (entry->timer == -1) {
                         entry->timer = igmp_get_timer(entry);
+                        entry->timer = 0;
                         entry->ip_addr = optval->imr_multiaddr;
                         ret = E_OK;
 …
         T_IGMP_ENTRY *entry = NULL;
         int             i;
-        uint16_t        min;
         ER ret = E_PAR;
         T_IFNET *ifp = IF_GET_IFNET();
 …
         T_NET_BUF       *input = *inputp;
         T_IGMPV2_HDR    *igmph;
-        T_IN4_ADDR      addr;
         uint_t          len, align;
         T_IP4_HDR       *ip4h;
 …
         NET_COUNT_IGMP(net_count_igmp.in_packets, 1);
         /* ICMP wb_Ì·³ð`FbN·éB*/
+        /* ICMP ãããã®é·ãããã§ãã¯ããã*/
         if (input->len < IF_IP4_IGMP_HDR_SIZE) {
                 NET_COUNT_IGMP(net_count_igmp.in_err_packets, 1);
 …
         igmph = (T_IGMPV2_HDR *)(input->buf + *offp);
         /* 4 INebg«EÌf[^· */
+        /* 4 ãªã¯ãããå¢çã®ãã¼ã¿é· */
         len = input->len - *offp;
         align = (len + 3) >> 2 << 2;
         /* 4 INebg«EÜÅpfBOÅßéB*/
+        /* 4 ãªã¯ãããå¢çã¾ã§ããã£ã³ã°ã§åããã*/
         if (align > len)
                 memset((uint8_t*)input->buf + input->len, 0, (size_t)(align - len));
         /* `FbNTðvZ·éB*/
+        /* ãã§ãã¯ãµã ãè¨ç®ããã*/
         if (in_cksum(igmph, align) != 0) {
                 NET_COUNT_IGMP(net_count_igmp.in_err_packets, 1);
 …
+        }
         /* bZ[WÌ^Éæèªò·éB*/
+        /* ã¡ãã»ã¼ã¸ã®åã«ããåå²ããã*/
         switch (igmph->type) {
         case IGMP_MEMBERSHIP_QUERY:
 …
                 ret = false;
                 /* QÁÌO[vAhX©çÌNG[Ìê */
+                /* åå ä¸ã®ã°ã«ã¼ãã¢ãã¬ã¹ããã®ã¯ã¨ãªã¼ã®å ´å */
                 syscall(wai_sem(SEM_IGMP_GROUP_LOCK));
                 for (i = 0; i < NUM_IGMP_ENTRY; i++) {
                         entry = &igmp_groups[i];
                         if ((entry->timer >= 0) && (entry->ip_addr == addr)) {
+                        if ((entry->timer >= 0) && (entry->ip_addr == igmph->addr)) {
                                 entry->resptime = igmph->time;
                                 ret = true;
 …
                 if (ret) {
                         /* o[Vbv|[gðM */
+                        /* ã¡ã³ãã¼ã·ãããªãã¼ããéä¿¡ */
                         igmp_send_report_v2(ip4h->src);
+                }
 …
         T_IGMPV2_HDR    *igmph;
         T_NET_BUF               *output;
         uint_t                  len, align;
+        uint_t                  len = 0, align;
         if (in4_get_datagram(&output, (uint_t)(IF_IP4_IGMP_HDR_SIZE + len), 0,
 …
                 return false;
         /* IGMP wb_ðÝè·éB*/
+        /* IGMP ããããè¨å®ããã*/
         igmph = GET_IGMPV2_HDR(output, IF_IP4_IGMP_HDR_OFFSET);
         igmph->type = IGMP_MEMBERSHIP_REPORT_V2;
         igmph->time = 0;
         igmph->addr = dst;
         /* 4 INebg«EÌf[^· */
+        igmph->addr = htonl(dst);
+        /* 4 ãªã¯ãããå¢çã®ãã¼ã¿é· */
         align = (len + 3) >> 2 << 2;
         /* 4 INebg«EÜÅpfBOÅßéB*/
+        /* 4 ãªã¯ãããå¢çã¾ã§ããã£ã³ã°ã§åããã*/
         if (align > len)
                 memset((uint8_t*)GET_IGMP_SDU(output, IF_IP4_IGMP_HDR_OFFSET) + IP4_HDR_SIZE + len,
+                memset((uint8_t*)GET_IGMP_SDU(output, IF_IP4_IGMP_HDR_OFFSET) + len,
 , (size_t)(align - len));
         /* `FbNTðvZ·éB*/
+        /* ãã§ãã¯ãµã ãè¨ç®ããã*/
         igmph->sum = 0;
         igmph->sum = in_cksum(igmph, (uint_t)(IF_IP4_IGMP_HDR_SIZE + align));
         /* M·éB*/
+        igmph->sum = in_cksum(igmph, (uint_t)(IGMP_HDR_SIZE + align));
+        /* éä¿¡ããã*/
         NET_COUNT_IGMP(net_count_igmp.out_octets,
                 output->len - GET_IF_IP4_HDR_SIZE(output));
 …
 /*
+*  igmp_timer -- IGMP ¤Ê^C}[
+*  igmp_timer -- IGMP å
+±éã¿ã¤ãã¼
 */
 static void igmp_timer(void *ignore)
 …
 /*
 *  igmp_init -- IGMP @\ðú»·éB
+*  igmp_init -- IGMP æ©è½ãåæåããã
 */
 void igmp_init(void)
+{
-        T_IGMP_ENTRY *entry = NULL;
         int i;
 …
+}
 uint16_t igmp_get_timer(T_IGMP_ENTRY *entry)
+{
         uint16_t time = entry->resptime;
+int16_t igmp_get_timer(T_IGMP_ENTRY *entry)
+{
+        int16_t time = entry->resptime;
         if (time == 0)
                 time = 10;
         return net_rand() / (0x7fffffff / time);
+                time = 590;
+        return (int16_t)(net_rand() % time) + 10;
+}

EcnlProtoTool/trunk/asp3_dcre/tinet/netinet/ip_igmp.cfg

-              r331
+              r429
  *                   Tomakomai National College of Technology, JAPAN
+ *
+ *  ãLì ÒÍCÈºÌ (1)`(4) Ìð©CFree Software Foundation
+ *  ÉæÁÄö\³êÄ¢é GNU General Public License Ì Version 2 ÉL
+ *  q³êÄ¢éðð½·êÉÀèC{\tgEFAi{\tgEFA
+ *  ðüÏµ½àÌðÜÞDÈº¯¶jðgpE¡»EüÏEÄzziÈºC
+ *  pÆÄÔj·é±Æð³Åø·éD
+ *  (1) {\tgEFAð\[XR[hÌ`Åp·éêÉÍCãLÌì
+ *       \¦C±Ìpð¨æÑºLÌ³ÛØKèªC»ÌÜÜÌ`Å\[
+ *      XR[hÉÜÜêÄ¢é±ÆD
+ *  (2) {\tgEFAðCCu`®ÈÇC¼Ì\tgEFAJÉg
+ *      pÅ«é`ÅÄzz·éêÉÍCÄzzÉº¤hL
+gip
+ *      Ò}j
+AÈÇjÉCãLÌì \¦C±Ìpð¨æÑºL
+ *      Ì³ÛØKèðfÚ·é±ÆD
+ *  (3) {\tgEFAðC@íÉgÝÞÈÇC¼Ì\tgEFAJÉg
+ *      pÅ«È¢`ÅÄzz·éêÉÍCÌðð½·±ÆD
+ *    (a) ÄzzÉº¤hL
+gipÒ}j
+AÈÇjÉCãLÌ
+ *        ì \¦C±Ìpð¨æÑºLÌ³ÛØKèðfÚ·é±ÆD
+ *  (4) {\tgEFAÌpÉæè¼ÚIÜ½ÍÔÚIÉ¶¶é¢©Èé¹
+ *      Q©çàCãLì Ò¨æÑTOPPERSvWFNgðÆÓ·é±ÆD
+ *  ä¸è¨èä½æ¨©è
+ã¯ï¼ä»¥ä¸ã® (1)ï½(4) ã®æ¡ä»¶ãï¼Free Software Foundation
+ *  ã«ãã£ã¦å
+¬è¡¨ããã¦ãã GNU General Public License ã® Version 2 ã«è¨
+ *  è¿°ããã¦ããæ¡ä»¶ãæºããå ´åã«éãï¼æ¬ã½ããã¦ã§ã¢ï¼æ¬ã½ããã¦ã§ã¢
+ *  ãæ¹å¤ãããã®ãå«ãï¼ä»¥ä¸åãï¼ãä½¿ç¨ã»è¤è£½ã»æ¹å¤ã»åé
+å¸ï¼ä»¥ä¸ï¼
+ *  å©ç¨ã¨å¼ã¶ï¼ãããã¨ãç¡åã§è¨±è«¾ããï¼
+ *  (1) æ¬ã½ããã¦ã§ã¢ãã½ã¼ã¹ã³ã¼ãã®å½¢ã§å©ç¨ããå ´åã«ã¯ï¼ä¸è¨ã®èä½
+ *      æ¨©è¡¨ç¤ºï¼ãã®å©ç¨æ¡ä»¶ããã³ä¸è¨ã®ç¡ä¿è¨¼è¦å®ãï¼ãã®ã¾ã¾ã®å½¢ã§ã½ã¼
+ *      ã¹ã³ã¼ãä¸ã«å«ã¾ãã¦ãããã¨ï¼
+ *  (2) æ¬ã½ããã¦ã§ã¢ãï¼ã©ã¤ãã©ãªå½¢å¼ãªã©ï¼ä»ã®ã½ããã¦ã§ã¢éçºã«ä½¿
+ *      ç¨ã§ããå½¢ã§åé
+å¸ããå ´åã«ã¯ï¼åé
+å¸ã«ä¼´ãããã¥ã¡ã³ãï¼å©ç¨
+ *      è
+ããã¥ã¢ã«ãªã©ï¼ã«ï¼ä¸è¨ã®èä½æ¨©è¡¨ç¤ºï¼ãã®å©ç¨æ¡ä»¶ããã³ä¸è¨
+ *      ã®ç¡ä¿è¨¼è¦å®ãæ²è¼ãããã¨ï¼
+ *  (3) æ¬ã½ããã¦ã§ã¢ãï¼æ©å¨ã«çµã¿è¾¼ããªã©ï¼ä»ã®ã½ããã¦ã§ã¢éçºã«ä½¿
+ *      ç¨ã§ããªãå½¢ã§åé
+å¸ããå ´åã«ã¯ï¼æ¬¡ã®æ¡ä»¶ãæºãããã¨ï¼
+ *    (a) åé
+å¸ã«ä¼´ãããã¥ã¡ã³ãï¼å©ç¨è
+ããã¥ã¢ã«ãªã©ï¼ã«ï¼ä¸è¨ã®è
+ *        ä½æ¨©è¡¨ç¤ºï¼ãã®å©ç¨æ¡ä»¶ããã³ä¸è¨ã®ç¡ä¿è¨¼è¦å®ãæ²è¼ãããã¨ï¼
+ *  (4) æ¬ã½ããã¦ã§ã¢ã®å©ç¨ã«ããç´æ¥çã¾ãã¯éæ¥çã«çãããããªãæ
+ *      å®³ãããï¼ä¸è¨èä½æ¨©è
+ããã³TOPPERSããã¸ã§ã¯ããå
+è²¬ãããã¨ï¼
+ *
+ *  {\tgEFAÍC³ÛØÅñ³êÄ¢éàÌÅ éDãLì Ò¨
+ *  æÑTOPPERSvWFNgÍC{\tgEFAÉÖµÄC»ÌKpÂ\«à
+ *  ÜßÄC¢©ÈéÛØàsíÈ¢DÜ½C{\tgEFAÌpÉæè¼
+ *  ÚIÜ½ÍÔÚIÉ¶¶½¢©Èé¹QÉÖµÄàC»ÌÓCðíÈ¢D
+ *  æ¬ã½ããã¦ã§ã¢ã¯ï¼ç¡ä¿è¨¼ã§æä¾ããã¦ãããã®ã§ããï¼ä¸è¨èä½æ¨©è
+ã
+ *  ãã³TOPPERSããã¸ã§ã¯ãã¯ï¼æ¬ã½ããã¦ã§ã¢ã«é¢ãã¦ï¼ãã®é©ç¨å¯è½æ§ã
+ *  å«ãã¦ï¼ãããªãä¿è¨¼ãè¡ããªãï¼ã¾ãï¼æ¬ã½ããã¦ã§ã¢ã®å©ç¨ã«ããç´
+ *  æ¥çã¾ãã¯éæ¥çã«çãããããªãæå®³ã«é¢ãã¦ãï¼ãã®è²¬ä»»ãè² ããªãï¼
+ *
  *  @(#) $Id$
 …
 /*
+ *  IGMP RtBM
+[Vt@C
+ *  IGMP ã³ã³ãã£ã®ã¥ã¬ã¼ã·ã§ã³ãã¡ã¤ã«
  */
 #if defined(_IP4_CFG) && defined(SUPPORT_IGMP)
 /* IGMP O[vXVpZ}tH */
+/* IGMP ã°ã«ã¼ãæ´æ°ç¨ã»ããã© */
 CRE_SEM(SEM_IGMP_GROUP_LOCK, { TA_TPRI, 1, 1 });

EcnlProtoTool/trunk/asp3_dcre/tinet/netinet/ip_igmp.h

-              r331
+              r429
  *                   Tomakomai National College of Technology, JAPAN
+ *
+ *  ãLì ÒÍCÈºÌ (1)`(4) Ìð©CFree Software Foundation
+ *  ÉæÁÄö\³êÄ¢é GNU General Public License Ì Version 2 ÉL
+ *  q³êÄ¢éðð½·êÉÀèC{\tgEFAi{\tgEFA
+ *  ðüÏµ½àÌðÜÞDÈº¯¶jðgpE¡»EüÏEÄzziÈºC
+ *  pÆÄÔj·é±Æð³Åø·éD
+ *  (1) {\tgEFAð\[XR[hÌ`Åp·éêÉÍCãLÌì
+ *       \¦C±Ìpð¨æÑºLÌ³ÛØKèªC»ÌÜÜÌ`Å\[
+ *      XR[hÉÜÜêÄ¢é±ÆD
+ *  (2) {\tgEFAðCCu`®ÈÇC¼Ì\tgEFAJÉg
+ *      pÅ«é`ÅÄzz·éêÉÍCÄzzÉº¤hL
+gip
+ *      Ò}j
+AÈÇjÉCãLÌì \¦C±Ìpð¨æÑºL
+ *      Ì³ÛØKèðfÚ·é±ÆD
+ *  (3) {\tgEFAðC@íÉgÝÞÈÇC¼Ì\tgEFAJÉg
+ *      pÅ«È¢`ÅÄzz·éêÉÍCÌðð½·±ÆD
+ *    (a) ÄzzÉº¤hL
+gipÒ}j
+AÈÇjÉCãLÌ
+ *        ì \¦C±Ìpð¨æÑºLÌ³ÛØKèðfÚ·é±ÆD
+ *  (4) {\tgEFAÌpÉæè¼ÚIÜ½ÍÔÚIÉ¶¶é¢©Èé¹
+ *      Q©çàCãLì Ò¨æÑTOPPERSvWFNgðÆÓ·é±ÆD
+ *  ä¸è¨èä½æ¨©è
+ã¯ï¼ä»¥ä¸ã® (1)ï½(4) ã®æ¡ä»¶ãï¼Free Software Foundation
+ *  ã«ãã£ã¦å
+¬è¡¨ããã¦ãã GNU General Public License ã® Version 2 ã«è¨
+ *  è¿°ããã¦ããæ¡ä»¶ãæºããå ´åã«éãï¼æ¬ã½ããã¦ã§ã¢ï¼æ¬ã½ããã¦ã§ã¢
+ *  ãæ¹å¤ãããã®ãå«ãï¼ä»¥ä¸åãï¼ãä½¿ç¨ã»è¤è£½ã»æ¹å¤ã»åé
+å¸ï¼ä»¥ä¸ï¼
+ *  å©ç¨ã¨å¼ã¶ï¼ãããã¨ãç¡åã§è¨±è«¾ããï¼
+ *  (1) æ¬ã½ããã¦ã§ã¢ãã½ã¼ã¹ã³ã¼ãã®å½¢ã§å©ç¨ããå ´åã«ã¯ï¼ä¸è¨ã®èä½
+ *      æ¨©è¡¨ç¤ºï¼ãã®å©ç¨æ¡ä»¶ããã³ä¸è¨ã®ç¡ä¿è¨¼è¦å®ãï¼ãã®ã¾ã¾ã®å½¢ã§ã½ã¼
+ *      ã¹ã³ã¼ãä¸ã«å«ã¾ãã¦ãããã¨ï¼
+ *  (2) æ¬ã½ããã¦ã§ã¢ãï¼ã©ã¤ãã©ãªå½¢å¼ãªã©ï¼ä»ã®ã½ããã¦ã§ã¢éçºã«ä½¿
+ *      ç¨ã§ããå½¢ã§åé
+å¸ããå ´åã«ã¯ï¼åé
+å¸ã«ä¼´ãããã¥ã¡ã³ãï¼å©ç¨
+ *      è
+ããã¥ã¢ã«ãªã©ï¼ã«ï¼ä¸è¨ã®èä½æ¨©è¡¨ç¤ºï¼ãã®å©ç¨æ¡ä»¶ããã³ä¸è¨
+ *      ã®ç¡ä¿è¨¼è¦å®ãæ²è¼ãããã¨ï¼
+ *  (3) æ¬ã½ããã¦ã§ã¢ãï¼æ©å¨ã«çµã¿è¾¼ããªã©ï¼ä»ã®ã½ããã¦ã§ã¢éçºã«ä½¿
+ *      ç¨ã§ããªãå½¢ã§åé
+å¸ããå ´åã«ã¯ï¼æ¬¡ã®æ¡ä»¶ãæºãããã¨ï¼
+ *    (a) åé
+å¸ã«ä¼´ãããã¥ã¡ã³ãï¼å©ç¨è
+ããã¥ã¢ã«ãªã©ï¼ã«ï¼ä¸è¨ã®è
+ *        ä½æ¨©è¡¨ç¤ºï¼ãã®å©ç¨æ¡ä»¶ããã³ä¸è¨ã®ç¡ä¿è¨¼è¦å®ãæ²è¼ãããã¨ï¼
+ *  (4) æ¬ã½ããã¦ã§ã¢ã®å©ç¨ã«ããç´æ¥çã¾ãã¯éæ¥çã«çãããããªãæ
+ *      å®³ãããï¼ä¸è¨èä½æ¨©è
+ããã³TOPPERSããã¸ã§ã¯ããå
+è²¬ãããã¨ï¼
+ *
+ *  {\tgEFAÍC³ÛØÅñ³êÄ¢éàÌÅ éDãLì Ò¨
+ *  æÑTOPPERSvWFNgÍC{\tgEFAÉÖµÄC»ÌKpÂ\«à
+ *  ÜßÄC¢©ÈéÛØàsíÈ¢DÜ½C{\tgEFAÌpÉæè¼
+ *  ÚIÜ½ÍÔÚIÉ¶¶½¢©Èé¹QÉÖµÄàC»ÌÓCðíÈ¢D
+ *  æ¬ã½ããã¦ã§ã¢ã¯ï¼ç¡ä¿è¨¼ã§æä¾ããã¦ãããã®ã§ããï¼ä¸è¨èä½æ¨©è
+ã
+ *  ãã³TOPPERSããã¸ã§ã¯ãã¯ï¼æ¬ã½ããã¦ã§ã¢ã«é¢ãã¦ï¼ãã®é©ç¨å¯è½æ§ã
+ *  å«ãã¦ï¼ãããªãä¿è¨¼ãè¡ããªãï¼ã¾ãï¼æ¬ã½ããã¦ã§ã¢ã®å©ç¨ã«ããç´
+ *  æ¥çã¾ãã¯éæ¥çã«çãããããªãæå®³ã«é¢ãã¦ãï¼ãã®è²¬ä»»ãè² ããªãï¼
+ *
  *  @(#) $Id$
 …
 #define _IP_IGMP_H_
+#define NUM_IGMP_ENTRY                          5       /* }`LXgO[vÌGg */
+#ifdef __CA850__
+#pragma pack(1)
+#elif __RX
+#pragma pack
+#elif _MSC_VER
+#pragma pack(push, 1)
+#endif
+#define NUM_IGMP_ENTRY                          5       /* ãã«ããã£ã¹ãã°ã«ã¼ãã®ã¨ã³ããªæ° */
  /*
   *  IGMPv1 wb_Ìè`ARFC 1112
+  *  IGMPv1 ãããã®å®ç¾©ãRFC 1112
   */
 typedef struct t_igmpv1_hdr
+{
         uint8_t         type;           /* bZ[WÌ^       */
         uint8_t         unused;         /* ¢gp                       */
         uint16_t        sum;            /* `FbNT         */
         T_IN4_ADDR      addr;           /* O[vAhX */
 } T_IGMPV1_HDR;
+        uint8_t         type;           /* ã¡ãã»ã¼ã¸ã®å        */
+        uint8_t         unused;         /* æªä½¿ç¨                    */
+        uint16_t        sum;            /* ãã§ãã¯ãµã            */
+        T_IN4_ADDR      addr;           /* ã°ã«ã¼ãã¢ãã¬ã¹ */
+}  __attribute__((packed)) T_IGMPV1_HDR;
 /*
 *  IGMPv2 wb_Ìè`ARFC 2236
+*  IGMPv2 ãããã®å®ç¾©ãRFC 2236
 */
 typedef struct t_igmpv2_hdr
+{
         uint8_t         type;           /* bZ[WÌ^       */
         uint8_t         time;           /* ÅåÔ         */
         uint16_t        sum;            /* `FbNT         */
         T_IN4_ADDR      addr;           /* O[vAhX */
 } T_IGMPV2_HDR;
+        uint8_t         type;           /* ã¡ãã»ã¼ã¸ã®å        */
+        uint8_t         time;           /* æå¤§å¿çæé           */
+        uint16_t        sum;            /* ãã§ãã¯ãµã            */
+        T_IN4_ADDR      addr;           /* ã°ã«ã¼ãã¢ãã¬ã¹ */
+}  __attribute__((packed)) T_IGMPV2_HDR;
 typedef struct t_igmpv3_query_hdr
+{
         uint8_t         type;           /* bZ[WÌ^       */
         uint8_t         time;           /* ÅåÔ         */
         uint16_t        sum;            /* `FbNT         */
         T_IN4_ADDR      grpaddr;        /* O[vAhX */
         uint8_t         sqrv;           /* StOAQuerier Robustness Value */
+        uint8_t         type;           /* ã¡ãã»ã¼ã¸ã®å        */
+        uint8_t         time;           /* æå¤§å¿çæé           */
+        uint16_t        sum;            /* ãã§ãã¯ãµã            */
+        T_IN4_ADDR      grpaddr;        /* ã°ã«ã¼ãã¢ãã¬ã¹ */
+        uint8_t         sqrv;           /* Sãã©ã°ãQuerier Robustness Value */
         uint8_t         qqic;           /* Qurier's Query Interval Code */
+        uint16_t        num;            /* M³Ì */
+        T_IN4_ADDR      sdraddr;        /* M³AhX */
+} T_IGMPV3Q_HDR;
+        uint16_t        num;            /* éä¿¡å
+ã®æ° */
+        T_IN4_ADDR      sdraddr;        /* éä¿¡å
+ã¢ãã¬ã¹ */
+}  __attribute__((packed)) T_IGMPV3Q_HDR;
 typedef struct t_igmp_group_record
+{
+        uint8_t         type;           /* bZ[WÌ^       */
+        uint8_t         len;            /* âf[^·         */
+        uint16_t        num;            /* M³Ì */
+        T_IN4_ADDR      grpaddr;        /* O[vAhX */
+        T_IN4_ADDR      sdraddr;        /* M³AhX       */
+                                                        /* âf[^           */
+} T_IGMP_GROUP_RECORD;
+        uint8_t         type;           /* ã¡ãã»ã¼ã¸ã®å        */
+        uint8_t         len;            /* è£å©ãã¼ã¿é·           */
+        uint16_t        num;            /* éä¿¡å
+ã®æ° */
+        T_IN4_ADDR      grpaddr;        /* ã°ã«ã¼ãã¢ãã¬ã¹ */
+        T_IN4_ADDR      sdraddr;        /* éä¿¡å
+ã¢ãã¬ã¹   */
+                                                        /* è£å©ãã¼ã¿              */
+}  __attribute__((packed)) T_IGMP_GROUP_RECORD;
 typedef struct t_igmpv3_report_hdr
+{
+        uint8_t         type;           /* bZ[WÌ^       */
+        uint8_t         rsv1;           /* \ñ                         */
+        uint16_t        sum;            /* `FbNT         */
+        uint16_t        rsv2;           /* \ñ                         */
+        uint16_t        num;            /* O[vR[hÌ */
+        T_IGMP_GROUP_RECORD record;     /* O[vR[h */
+} T_IGMPV3R_HDR;
+#ifdef __CA850__
+#pragma pack(8)
+#elif __RX
+#pragma unpack
+#elif _MSC_VER
+#pragma pack(pop)
+#endif
+        uint8_t         type;           /* ã¡ãã»ã¼ã¸ã®å        */
+        uint8_t         rsv1;           /* äºç´                               */
+        uint16_t        sum;            /* ãã§ãã¯ãµã            */
+        uint16_t        rsv2;           /* äºç´                               */
+        uint16_t        num;            /* ã°ã«ã¼ãã¬ã³ã¼ãã®æ° */
+        T_IGMP_GROUP_RECORD record;     /* ã°ã«ã¼ãã¬ã³ã¼ã */
+}  __attribute__((packed)) T_IGMPV3R_HDR;
 #define IGMP_HDR_SIZE                   (sizeof(T_IGMPV1_HDR))
 …
 /*
 *  bZ[WÌ^
+*  ã¡ãã»ã¼ã¸ã®å
 */
 #define IGMP_MEMBERSHIP_QUERY           0x11    /* o[VbvNG[               */
 #define IGMP_MEMBERSHIP_REPORT          0x12    /* o[Vbv|[g               */
 #define IGMP_MEMBERSHIP_REPORT_V2       0x16    /* o[Vbv|[g               */
 #define IGMP_LEAVE_GROUP                        0x17    /* [uO[v                               */
 #define IGMP_MEMBERSHIP_REPORT_V3       0x22    /* o[Vbv|[g               */
+#define IGMP_MEMBERSHIP_QUERY           0x11    /* ã¡ã³ãã¼ã·ããã¯ã¨ãªã¼            */
+#define IGMP_MEMBERSHIP_REPORT          0x12    /* ã¡ã³ãã¼ã·ããã¬ãã¼ã            */
+#define IGMP_MEMBERSHIP_REPORT_V2       0x16    /* ã¡ã³ãã¼ã·ããã¬ãã¼ã            */
+#define IGMP_LEAVE_GROUP                        0x17    /* ãªã¼ãã°ã«ã¼ã                                */
+#define IGMP_MEMBERSHIP_REPORT_V3       0x22    /* ã¡ã³ãã¼ã·ããã¬ãã¼ã            */
 /*
 *  UDPÊM[_IvV
+*  UDPéä¿¡ç«¯ç¹ãªãã·ã§ã³
 */
 …
 /*
  *  IGMP O[vGg
+ *  IGMP ã°ã«ã¼ãã¨ã³ããª
  */
 typedef struct igmp_entry
+{
         uint16_t        timer;          /* MÜÅÌÔ[b]   */
         uint16_t        resptime;       /* ÅåÔ[b]     */
         T_IN4_ADDR      ip_addr;        /* IP AhX                  */
+        int16_t         timer;          /* éä¿¡ã¾ã§ã®æé[ç§]   */
+        int16_t         resptime;       /* æå¤§å¿çæé[ç§]      */
+        T_IN4_ADDR      ip_addr;        /* IP ã¢ãã¬ã¹                      */
 } T_IGMP_ENTRY;

EcnlProtoTool/trunk/asp3_dcre/tinet/netinet/tcp_input.c

-              r331
+              r429
                                 /* 相手のアドレスをコピーする。*/
+#if defined(_IP6_CFG) && defined(_IP4_CFG)
+                                if (cep->flags & TCP_CEP_FLG_IPV4) {
+                                        (*cep->p_dstaddr4).ipaddr = ntohl(cep->dstaddr.ipaddr.s6_addr32[3]);
+                                        (*cep->p_dstaddr4).portno = cep->dstaddr.portno;
+                                        }
+                                else
+                                        *cep->p_dstaddr = cep->dstaddr;
+#else   /* of #if defined(_IP6_CFG) && defined(_IP4_CFG) */
                                 *cep->p_dstaddr = cep->dstaddr;
+#endif  /* of #if defined(_IP6_CFG) && defined(_IP4_CFG) */
                                 if (IS_PTR_DEFINED(cep->callback)) {
 …
                                 /* 相手のアドレスをコピーする。*/
+#if defined(_IP6_CFG) && defined(_IP4_CFG)
+                                if (cep->flags & TCP_CEP_FLG_IPV4) {
+                                        (*cep->p_dstaddr4).ipaddr = ntohl(cep->dstaddr.ipaddr.s6_addr32[3]);
+                                        (*cep->p_dstaddr4).portno = cep->dstaddr.portno;
+                                        }
+                                else
+                                        *cep->p_dstaddr = cep->dstaddr;
+#else   /* of #if defined(_IP6_CFG) && defined(_IP4_CFG) */
                                 *cep->p_dstaddr = cep->dstaddr;
+#endif  /* of #if defined(_IP6_CFG) && defined(_IP4_CFG) */
                                 if (IS_PTR_DEFINED(cep->callback)) {
 …
         NTOHS(tcph->sport);
         NTOHS(tcph->dport);
+        /* SDU 長 より 緊急ポインタが大きい場合 */
+        if (tcph->urp > tcph->sum)
+                goto drop;
 find_cep:

EcnlProtoTool/trunk/asp3_dcre/tinet/netinet/tcp_output.c

-              r331
+              r429
                 tcph->flags |= TCP_FLG_URG;
+                }
+        else
+        else {
+                tcph->urp = 0;
                 cep->snd_up  = cep->snd_una;
+                }
 #endif  /* of #ifdef TCP_CFG_EXTENTIONS */

EcnlProtoTool/trunk/asp3_dcre/tinet/netinet/tcp_subr.c

-              r331
+              r429
 T_TCP_CEP *
 tcp_drop (T_TCP_CEP *cep, ER errno)
+tcp_drop (T_TCP_CEP *cep, ER err)
+{
 #ifdef SUPPORT_MIB
 …
 #endif  /* of #ifdef SUPPORT_MIB */
         cep->error = errno;
+        cep->error = err;
         if (TCP_FSM_HAVE_RCVD_SYN(cep->fsm_state)) {
                 cep->fsm_state = TCP_FSM_CLOSED;

EcnlProtoTool/trunk/asp3_dcre/tinet/netinet/tcp_timer.h

-              r331
+              r429
  */
 #define TCP_SLOW_TMO            (ULONG_C(500)/NET_TIMER_CYCLE)  /* 500 [ms]     */
 #define TCP_FAST_TMO            (ULONG_C(200)/NET_TIMER_CYCLE)  /* 200 [ms]     */
+#define TCP_SLOW_TMO            (ULONG_C(500000)/NET_TIMER_CYCLE)       /* 500,000 [us] */
+#define TCP_FAST_TMO            (ULONG_C(200000)/NET_TIMER_CYCLE)       /* 200,000 [us] */
 #define TCP_SLOW_HZ             (ULONG_C(1000)/TCP_SLOW_TMO/NET_TIMER_CYCLE)    /* Hz   */
+#define TCP_SLOW_HZ             (ULONG_C(1000000)/TCP_SLOW_TMO/NET_TIMER_CYCLE) /* Hz   */
 /* TCP タイマ値 */

EcnlProtoTool/trunk/asp3_dcre/tinet/netinet/tcp_usrreq.c

r331	r429
897	897
898	898	/* tcp_rcv_buf の割当て長をリセットする。*/
899		cep->rcv_buf_len ~~= 0~~;
	899	cep->rcv_buf_len -= len;
900	900
901	901	/* 通信端点のロックを解除する。*/

EcnlProtoTool/trunk/asp3_dcre/tinet/netinet/tcp_var.h

-              r331
+              r429
         uint8_t         idix;   /* mpfid のインデックス        */
         uint8_t         flags;  /* フラグ          */
+#ifdef IF_ETHER_MULTI_NIC
+        uint8_t         conn_pos;
+#endif
 #ifdef IF_ETHER_NIC_NET_BUF_ALIGN
         uint8_t         nalign[IF_ETHER_NIC_NET_BUF_ALIGN];
 …
 extern void tcp_init_iss (void);
 extern T_TCP_CEP *tcp_close (T_TCP_CEP *cep);
 extern T_TCP_CEP *tcp_drop  (T_TCP_CEP *cep, ER errno);
+extern T_TCP_CEP *tcp_drop  (T_TCP_CEP *cep, ER err);
 extern void tcp_respond (T_NET_BUF *nbuf, T_TCP_CEP *cep,
                          T_TCP_SEQ ack, T_TCP_SEQ seq, uint_t rbfree, uint8_t flags);

EcnlProtoTool/trunk/asp3_dcre/tinet/netinet/tcpn_usrreq.c

-              r331
+              r429
                 cep->p_myaddr4    = p_myaddr;
                 cep->p_dstaddr    = NULL;
                 cep->p_myaddr     = NULL;
+                cep->p_myaddr     = NADR;
 #else   /* of #if API_PROTO == API_PROTO_IPV4 */
                 cep->p_dstaddr4   = NULL;
                 cep->p_myaddr4    = NULL;
+                cep->p_myaddr4    = NADR;
                 cep->p_dstaddr    = p_dstaddr;
                 cep->p_myaddr     = p_myaddr;

EcnlProtoTool/trunk/asp3_dcre/tinet/netinet/udp_output.c

-              r331
+              r429
 #if defined(_IP6_CFG) && TNUM_UDP6_CEPID > 0
                 for (ix = tmax_udp6_cepid; ix -- > 0; ) {
+                for (ix = TNUM_UDP6_CEPID - 1; ix -- > 0; ) {
                         if (udp6_cep[ix].flags & UDP_CEP_FLG_POST_OUTPUT) {
 …
 #if defined(_IP4_CFG) && TNUM_UDP4_CEPID > 0
                 for (ix = tmax_udp4_cepid; ix -- > 0; ) {
+                for (ix = TNUM_UDP4_CEPID - 1; ix -- > 0; ) {
                         if (udp4_cep[ix].flags & UDP_CEP_FLG_POST_OUTPUT) {

EcnlProtoTool/trunk/asp3_dcre/tinet/netinet/udp_subr.c

-              r331
+              r429
 #define UDP_FIND_CEP            udp6_find_cep
 #define UDP_NOTIFY              udp6_notify
 #define TMAX_UDP_CEPID          tmax_udp6_cepid
+#define TMAX_UDP_CEPID          (TNUM_UDP6_CEPID - 1)
 #define UDP_CEP                 udp6_cep
 #define T_UDP_CEP               T_UDP6_CEP
 …
 #define UDP_FIND_CEP            udp4_find_cep
 #define UDP_NOTIFY              udp4_notify
 #define TMAX_UDP_CEPID          tmax_udp4_cepid
+#define TMAX_UDP_CEPID          (TNUM_UDP4_CEPID - 1)
 #define T_UDP_CEP               T_UDP4_CEP
 #define UDP_CEP                 udp4_cep

EcnlProtoTool/trunk/asp3_dcre/tinet/netinet/udp_var.h

-              r331
+              r429
 typedef ER      (*t_udp_callback)(ID cepid, FN fncd, void *p_parblk);
+typedef struct t_udp_rcv_dat_para {
+        uint_t          len;
+        T_NET_BUF       *input;
+        uint_t          off;
+        union {
+                T_IPV4EP rep4;
+                T_IPV6EP rep6;
+        };
+        } T_UDP_RCV_DAT_PARA;
 /*
  *  UDP 通信端点
 …
 #endif
+#ifdef SUPPORT_IGMP
+        bool_t igmp_loopback;
+        uint8_t igmp_ttl;
+        T_IN4_ADDR      igmp_mcaddr;    /*  */
+#endif
         } T_UDP6_CEP;
 …
         ER              error;          /* 待ち中に発生したエラー  */
 #endif
 #ifdef SUPPORT_IGMP
         bool_t igmp_loopback;
 …
         T_IN4_ADDR      igmp_mcaddr;    /*  */
 #endif
         } T_UDP4_CEP;

EcnlProtoTool/trunk/asp3_dcre/tinet/netinet/udpn_input.c

-              r331
+              r429
+{
         T_UDP_HDR       *udph;
         uint_t          len;
+        T_UDP_RCV_DAT_PARA para;
         udph = (T_UDP_HDR *)(input->buf + off);
         len  = (uint_t)(ntohs(udph->ulen) - UDP_HDR_SIZE);
+        para.len  = (uint_t)(ntohs(udph->ulen) - UDP_HDR_SIZE);
         if (cep->rcv_tskid != TA_NULL) {        /* éãã³ããããã³ã°ã³ã¼ã«ã§ãã³ãã£ã³ã°ä¸ */
 …
                 /* ãã¼ã¿ããããã¡ã«ç§»ãã*/
                 memcpy(cep->rcv_data, GET_UDP_SDU(input, off),
                        (size_t)(len < cep->rcv_len ? len : cep->rcv_len));
+                       (size_t)(para.len < cep->rcv_len ? para.len : cep->rcv_len));
                 syscall(rel_net_buf(input));
 …
 #ifdef TCP_CFG_NON_BLOCKING_COMPAT14
                         (*cep->callback)(GET_UDP_CEPID(cep), TFN_UDP_RCV_DAT, (void*)(uint32_t)len);
+                        (*cep->callback)(GET_UDP_CEPID(cep), TFN_UDP_RCV_DAT, (void*)(uint32_t)para.len);
 #else
                         (*cep->callback)(GET_UDP_CEPID(cep), TFN_UDP_RCV_DAT, (void*)&len);
+                        (*cep->callback)(GET_UDP_CEPID(cep), TFN_UDP_RCV_DAT, (void*)&para.len);
 #endif
                 else
 …
 #ifdef TCP_CFG_NON_BLOCKING_COMPAT14
                 (*cep->callback)(GET_UDP_CEPID(cep), TEV_UDP_RCV_DAT, (void*)(uint32_t)len);
+                (*cep->callback)(GET_UDP_CEPID(cep), TEV_UDP_RCV_DAT, (void*)(uint32_t)para.len);
 #else
+                (*cep->callback)(GET_UDP_CEPID(cep), TEV_UDP_RCV_DAT, (void*)&len);
+                para.input = input;
+                para.off = off;
+#if API_PROTO == API_PROTO_IPV4
+                para.rep4.portno = ntohs(udph->sport);
+                IN_COPY_TO_HOST(&para.rep4.ipaddr, input);
+#else
+                para.rep6.portno = ntohs(udph->sport);
+                IN_COPY_TO_HOST(&para.rep6.ipaddr, input);
+#endif
+                (*cep->callback)(GET_UDP_CEPID(cep), TEV_UDP_RCV_DAT, (void*)&para.len);
 #endif
                 /*
 …
                  *  ãã¼ã¿ãèªã¿åºããªãã£ããã¨ã«ãªãã®ã§ãæ¨ã¦ãã
                  */
+                if (cep->cb_netbuf != NULL)
+                        syscall(rel_net_buf(cep->cb_netbuf));
+                if (cep->cb_netbuf != NULL) {
+                        if ((input->flags & NB_FLG_NOREL_IFOUT) == 0)
+                                syscall(rel_net_buf(cep->cb_netbuf));
+                        cep->cb_netbuf = NULL;
+                        }
+                }
         else {

EcnlProtoTool/trunk/asp3_dcre/tinet/netinet/udpn_usrreq.c

-              r331
+              r429
                 else
                         error = UDP_ALLOC_PORT(cep, pk_ccep->myaddr.portno);
+                if (error == E_OK) {
+                        /* UDP éä¿¡ç«¯ç¹çææ
+                        if (error == E_OK) {
+                                /* UDP éä¿¡ç«¯ç¹çææ
 å ±ãã³ãã¼ããã*/
                         cep->cepatr        = pk_ccep->cepatr;                   /* éä¿¡ç«¯ç¹å±æ§           */
                         cep->myaddr.ipaddr = pk_ccep->myaddr.ipaddr;            /* èªåã®ã¢ãã¬ã¹        */
                         cep->callback      = (void*)pk_ccep->callback;          /* ã³ã¼ã«ããã¯           */
                         /* UDP éä¿¡ç«¯ç¹ãçææ¸ã¿ã«ããã*/
                         cep->flags |= UDP_CEP_FLG_VALID;
+                        }
+                }
+                                cep->cepatr        = pk_ccep->cepatr;                   /* éä¿¡ç«¯ç¹å±æ§           */
+                                cep->myaddr.ipaddr = pk_ccep->myaddr.ipaddr;            /* èªåã®ã¢ãã¬ã¹        */
+                                cep->callback      = (void*)pk_ccep->callback;          /* ã³ã¼ã«ããã¯           */
+                                /* UDP éä¿¡ç«¯ç¹ãçææ¸ã¿ã«ããã*/
+                                cep->flags |= UDP_CEP_FLG_VALID;
+                                }
+                        }
         /* éä¿¡ç«¯ç¹ã®ããã¯ãè§£é¤ããã*/
 …
                 return E_NOEXS;
 #if defined(SUPPORT_INET6)
+#endif
+#if defined(SUPPORT_INET4) && defined(SUPPORT_IGMP) && TNUM_UDP4_CEPID > 0
+#elif defined(SUPPORT_INET4) && defined(SUPPORT_IGMP) && TNUM_UDP4_CEPID > 0
         switch (optname) {
         case IP_MULTICAST_LOOP:
 …
                 return E_NOEXS;
 #if defined(SUPPORT_INET6)
+#endif
+#if defined(SUPPORT_INET4) && defined(SUPPORT_IGMP) && TNUM_UDP4_CEPID > 0
+#elif defined(SUPPORT_INET4) && defined(SUPPORT_IGMP) && TNUM_UDP4_CEPID > 0
         switch (optname) {
         case IP_MULTICAST_LOOP:

EcnlProtoTool/trunk/asp3_dcre/tinet/netinet/udpn_usrreq_nblk.c

-              r331
+              r429
 #ifdef TCP_CFG_NON_BLOCKING_COMPAT14
                         (*cep->callback)(GET_UDP_CEPID(cep), TFN_UDP_RCV_DAT, (void*)error);
+                        (*cep->callback)(GET_UDP_CEPID(cep), TFN_UDP_CAN_CEP, (void*)error);
 #else
                         (*cep->callback)(GET_UDP_CEPID(cep), TFN_UDP_RCV_DAT, (void*)&error);
+                        (*cep->callback)(GET_UDP_CEPID(cep), TFN_UDP_CAN_CEP, (void*)&error);
 #endif
                 else

EcnlProtoTool/trunk/asp3_dcre/tinet/netinet6/in6_subr.c

-              r331
+              r429
         /* IPv6 ヘッダを設定する。*/
+        if ((error = in6_set_header(*nbuf, len, dstaddr, srcaddr, next, hlim)) != E_OK)
+        if ((error = in6_set_header(*nbuf, len, dstaddr, srcaddr, next, hlim)) != E_OK) {
+                syscall(rel_net_buf(*nbuf));
+                *nbuf = NULL;
                 return error;
+                }
         /* 4 オクテット境界までパディングで埋める。*/
 …
  *  in6_rtredirect -- ルーティング表にエントリを登録する。
+ *
  *    注意: 引数 tmo の単位は [ms]。
+ *    注意: 引数 tmo の単位は [us]。
  */

EcnlProtoTool/trunk/asp3_dcre/tinet/netinet6/in6_var.h

-              r331
+              r429
          * vltime と pltime は、追加/変更してからの相対時間
          */
         uint32_t        vltime;         /* 有効時間 [ms]                    */
         uint32_t        pltime;         /* 推奨有効時間 [ms]          */
+        uint32_t        vltime;         /* 有効時間 [us]                    */
+        uint32_t        pltime;         /* 推奨有効時間 [us]          */
         } __attribute__((packed, aligned(2)))T_IN6_ADDR_LIFETIME;

EcnlProtoTool/trunk/asp3_dcre/tinet/netinet6/ip6_var.h

-              r331
+              r429
         uint8_t         idix;   /* mpfid のインデックス        */
         uint8_t         unit;   /* インタフェース番号    */
+#ifdef IF_ETHER_MULTI_NIC
+        uint8_t         conn_pos;
+#endif
 #ifdef IF_ETHER_NIC_NET_BUF_ALIGN
         uint8_t         nalign[IF_ETHER_NIC_NET_BUF_ALIGN];
 …
         uint8_t         idix;   /* mpfid のインデックス        */
         uint8_t         flags;  /* フラグ          */
+#ifdef IF_ETHER_MULTI_NIC
+        uint8_t         conn_pos;
+#endif
 #ifdef IF_ETHER_NIC_NET_BUF_ALIGN
         uint8_t         nalign[IF_ETHER_NIC_NET_BUF_ALIGN];
 …
         uint8_t         idix;   /* mpfid のインデックス        */
         uint8_t         flags;  /* フラグ          */
+#ifdef IF_ETHER_MULTI_NIC
+        uint8_t         conn_pos;
+#endif
 #ifdef IF_ETHER_NIC_NET_BUF_ALIGN
         uint8_t         nalign[IF_ETHER_NIC_NET_BUF_ALIGN];

EcnlProtoTool/trunk/asp3_dcre/tinet/netinet6/nd6.c

-              r331
+              r429
                         if (nd6_cache[mix].hold != NULL) {
                                 syscall(rel_net_buf(nd6_cache[mix].hold));
+                                nd6_cache[mix].hold = NULL;
+                                }
                         fix = mix;
 …
                         if (ln->hold != NULL) {
                                 syscall(rel_net_buf(ln->hold));
+                                ln->hold = NULL;
+                                }

EcnlProtoTool/trunk/asp3_dcre/tinet/netinet6/nd6.h

-              r331
+              r429
         T_NET_BUF       *hold;
         TMO             tmout;
         SYSTIM          expire;         /* [ms] 有効時間が切れる時刻      */
+        SYSTIM          expire;         /* [us] 有効時間が切れる時刻      */
         T_IF_ADDR       ifaddr;
         uint8_t         state;
 …
 typedef struct t_def_router {
         T_IN6_ADDR      addr;
         SYSTIM          expire;         /* [ms] 有効時間が切れる時刻      */
         uint32_t        lifetime;       /* [ms] 有効時間                    */
+        SYSTIM          expire;         /* [us] 有効時間が切れる時刻      */
+        uint32_t        lifetime;       /* [us] 有効時間                    */
         uint16_t        plistmap;       /* プレフィックスマップ           */
         uint8_t         flags;          /* ルータ通知のフラグ            */

EcnlProtoTool/trunk/asp3_dcre/tinet/netinet6/nd6_rtr.c

-              r331
+              r429
                 return;
         /* ルータ要請ヘッダを設定する。*/
         rsh = GET_ROUTER_SOLICIT_HDR(output, IF_IP6_ROUTER_SOLICIT_HDR_OFFSET);
         rsh->hdr.type       = ND_ROUTER_SOLICIT;
         rsh->hdr.code       = 0;
         rsh->nd_rs_reserved = 0;
+        /* ルータ要請ヘッダを設定する。*/
+        rsh = GET_ROUTER_SOLICIT_HDR(output, IF_IP6_ROUTER_SOLICIT_HDR_OFFSET);
+        rsh->hdr.type       = ND_ROUTER_SOLICIT;
+        rsh->hdr.code       = 0;
+        rsh->nd_rs_reserved = 0;
         /* チェックサムを計算する。*/

EcnlProtoTool/trunk/asp3_dcre/tinet/tcpip_sym.def

r331	r429
15	15	TMO_UDP_OUTPUT
16	16	TMO_ICMP_OUTPUT
	17	TMO_IGMP_OUTPUT
17	18	TMO_ND6_NS_OUTPUT
18	19	TMO_ND6_NA_OUTPUT

EcnlProtoTool/trunk/asp3_dcre/tinet/tinet.trb

-              r331
+              r429
 #include <net/ethernet.h>
 #include <net/net.h>
+#include <net/net_endian.h>
 #include <net/net_buf.h>
 #include <netinet/in.h>
 …
 $tinetCfgC.add(" */")
 $tinetCfgC.add()
+$includeFiles.each do |file|
+  $tinetCfgC.add("#include #{file}")
+end
+GenerateIncludes($tinetCfgC)
 $tinetCfgC.add()

EcnlProtoTool/trunk/asp3_dcre/tinet/tinet_asp.cfg

r331	r429
73	73	INCLUDE("netinet/if_ether.cfg");
74	74	INCLUDE("netinet/ip.cfg");
	75	INCLUDE("netinet/ip_igmp.cfg");
75	76	INCLUDE("netinet/tcp.cfg");
76	77	INCLUDE("netinet/udp.cfg");

EcnlProtoTool/trunk/asp3_dcre/utils/applyrename.rb

-              r321
+              r429
 #  Copyright (C) 2003 by Embedded and Real-Time Systems Laboratory
 #                              Toyohashi Univ. of Technology, JAPAN
 #  Copyright (C) 2004-2016 by Embedded and Real-Time Systems Laboratory
+#  Copyright (C) 2004-2017 by Embedded and Real-Time Systems Laboratory
 #              Graduate School of Information Science, Nagoya Univ., JAPAN
+#
 …
 #  の責任を負わない．
+#
 #  $Id$
+#  $Id: applyrename.rb 852 2017-11-04 16:19:49Z ertl-hiro $
+#
+Encoding.default_external = 'utf-8'
 require "fileutils"

EcnlProtoTool/trunk/asp3_dcre/utils/genrename.rb

-              r321
+              r429
 #  Copyright (C) 2003 by Embedded and Real-Time Systems Laboratory
 #                              Toyohashi Univ. of Technology, JAPAN
 #  Copyright (C) 2005-2016 by Embedded and Real-Time Systems Laboratory
+#  Copyright (C) 2005-2017 by Embedded and Real-Time Systems Laboratory
 #              Graduate School of Information Science, Nagoya Univ., JAPAN
+#
 …
 #  の責任を負わない．
+#
 #  $Id$
+#  $Id: genrename.rb 852 2017-11-04 16:19:49Z ertl-hiro $
+#
+Encoding.default_external = 'utf-8'
+#
 …
     fileName = $1.sub(/([>"])$/, "_rename.h\\1")
     includes += "#include #{fileName}\n"
+  elsif /^(_+)(.*)$/ =~ sym
+    generateDefine(outFile, $2, $1)
   elsif sym != ""
     generateDefine(outFile, sym, "")

EcnlProtoTool/trunk/asp3_dcre/utils/gentest.rb

-              r331
+              r429
 #      Toyohashi Open Platform for Embedded Real-Time Systems
+#
 #  Copyright (C) 2007-2016 by Embedded and Real-Time Systems Laboratory
+#  Copyright (C) 2007-2019 by Embedded and Real-Time Systems Laboratory
 #              Graduate School of Information Science, Nagoya Univ., JAPAN
+#
 …
+#
+Encoding.default_external = 'utf-8'
+require "pp"
+require "fileutils"
+#
 #  生成動作を決めるための設定
 …
   "ref_mtx" => { 2 => "T_RMTX" },
   "ref_mbf" => { 2 => "T_RMBF" },
+  "ref_spn" => { 2 => "T_RSPN" },
   "get_mpf" => { 2 => "void *" },
   "pget_mpf" => { 2 => "void *" },
 …
   "get_tid" => { 1 => "ID" },
   "get_did" => { 1 => "ID" },
+  "get_pid" => { 1 => "ID" },
   "get_lod" => { 2 => "uint_t" },
   "mget_lod" => { 3 => "uint_t" },
   "get_nth" => { 3 => "ID" },
   "mget_nth" => { 4 => "ID" },
+  "ref_mem" => { 2 => "T_RMEM" },
   "get_ipm" => { 1 => "PRI" },
   "get_som" => { 1 => "ID" }
 …
 $functionParameters = {
+  "target_hrt_set_event" => "HRTCNT hrtcnt"
+  "target_hrt_set_event" => "HRTCNT hrtcnt",
+  "hook_hrt_set_event" => "HRTCNT hrtcnt"
+}
 …
 $functionCheckParameter = {
+  "target_hrt_set_event" => "hrtcnt"
+  "target_hrt_set_event" => "hrtcnt",
+  "hook_hrt_set_event" => "hrtcnt"
+}
 …
     lines.each do |line|
       @code[@currentCount].push(line)
         end
+    end
   end
 …
     # 処理カウント変数の生成
     if @countFlag
       print("\nstatic uint_t\t#{@count_var} = 0;\n")
+      $outFile.print("\nstatic uint_t\t#{@count_var} = 0;\n")
     end
 …
     case @puName
     when /^TASK([0-9]*)$/
       print("\nvoid\n")
       print("task#{$1}(intptr_t exinf)\n")
+      $outFile.print("\nvoid\n")
+      $outFile.print("task#{$1}(intptr_t exinf)\n")
     when /^CYC([0-9]*)$/
       print("\nvoid\n")
       print("cyclic#{$1}_handler(intptr_t exinf)\n")
+      $outFile.print("\nvoid\n")
+      $outFile.print("cyclic#{$1}_handler(intptr_t exinf)\n")
     when /^ALM([0-9]*)$/
       print("\nvoid\n")
       print("alarm#{$1}_handler(intptr_t exinf)\n")
+      $outFile.print("\nvoid\n")
+      $outFile.print("alarm#{$1}_handler(intptr_t exinf)\n")
     when /^OVR$/
       print("\nvoid\n")
       print("overrun_handler(ID tskid, intptr_t exinf)\n")
+      $outFile.print("\nvoid\n")
+      $outFile.print("overrun_handler(ID tskid, intptr_t exinf)\n")
     when /^ISR([0-9]*)$/
       print("\nvoid\n")
       print("isr#{$1}(intptr_t exinf)\n")
+      $outFile.print("\nvoid\n")
+      $outFile.print("isr#{$1}(intptr_t exinf)\n")
     when /^INTHDR([0-9]*)$/
       print("\nvoid\n")
       print("inthdr#{$1}_handler(void)\n")
+      $outFile.print("\nvoid\n")
+      $outFile.print("inthdr#{$1}_handler(void)\n")
     when /^CPUEXC([0-9]*)$/
       print("\nvoid\n")
       print("cpuexc#{$1}_handler(void *p_excinf)\n")
+      $outFile.print("\nvoid\n")
+      $outFile.print("cpuexc#{$1}_handler(void *p_excinf)\n")
     when /^EXTSVC([0-9]*)$/
       print("\nER_UINT\n")
       print("extsvc#{$1}_routine")
       print("(intptr_t par1, intptr_t par2, intptr_t par3,\n")
       print("\t\t\t\t\t\t\t\tintptr_t par4, intptr_t par5, ID cdmid)\n")
+      $outFile.print("\nER_UINT\n")
+      $outFile.print("extsvc#{$1}_routine")
+      $outFile.print("(intptr_t par1, intptr_t par2, intptr_t par3,\n")
+      $outFile.print("\t\t\t\t\t\t\t\tintptr_t par4, intptr_t par5, ID cdmid)\n")
     else
       if $functionValue[@puName]
         print("\n#{$functionValue[@puName]}\n")
+        $outFile.print("\n#{$functionValue[@puName]}\n")
       else
         print("\nvoid\n")
       end
       print(@puName)
+        $outFile.print("\nvoid\n")
+      end
+      $outFile.print(@puName)
       if $functionParameters[@puName]
         print("(#{$functionParameters[@puName]})\n")
+        $outFile.print("(#{$functionParameters[@puName]})\n")
       else
         print("(void)\n")
       end
     end
     print("{\n")
+        $outFile.print("(void)\n")
+      end
+    end
+    $outFile.print("{\n")
     @variableList.each do |varName, varType|
       if /^(.+)\w*\*$/ =~ varType
         varBaseType = $1
         print("\t#{varBaseType}")
         print(varBaseType.length < 4 ? "\t\t*" : "\t*")
+        $outFile.print("\t#{varBaseType}")
+        $outFile.print(varBaseType.length < 4 ? "\t\t*" : "\t*")
       else
         print("\t#{varType}")
         print(varType.length < 4 ? "\t\t" : "\t")
       end
       print("#{varName};\n")
+        $outFile.print("\t#{varType}")
+        $outFile.print(varType.length < 4 ? "\t\t" : "\t")
+      end
+      $outFile.print("#{varName};\n")
     end
     if @silFlag
       print("\tSIL_PRE_LOC;\n")
     end
     print("\n")
+      $outFile.print("\tSIL_PRE_LOC;\n")
+    end
+    $outFile.print("\n")
     if @countFlag
       print("\tswitch (++#{@count_var}) {\n")
+      $outFile.print("\tswitch (++#{@count_var}) {\n")
       @code.keys.sort_by { |c| c.to_i }.each do |count|
         print("\tcase #{count}:\n")
+        $outFile.print("\tcase #{count}:\n")
         @code[count].each do |line|
           print("\t",line) if line != ""
           print("\n")
+          $outFile.print("\t",line) if line != ""
+          $outFile.print("\n")
         end
         print("\t\tcheck_point(0);\n\n")
       end
       print("\tdefault:\n")
       print("\t\tcheck_point(0);\n")
       print("\t}\n")
+        $outFile.print("\t\tcheck_assert(false);\n\n")
+      end
+      $outFile.print("\tdefault:\n")
+      $outFile.print("\t\tcheck_assert(false);\n")
+      $outFile.print("\t}\n")
     else
       @code[""].each do |line|
         print(line,"\n")
       end
     end
     print("\tcheck_point(0);\n")
+        $outFile.print(line,"\n")
+      end
+    end
+    $outFile.print("\tcheck_assert(false);\n")
     if /^EXTSVC([0-9]*)$/ =~ @puName
       print("\treturn(E_SYS);\n")
+      $outFile.print("\treturn(E_SYS);\n")
     elsif $functionReturn[@pu_nama]
       print("\treturn(#{$functionReturn[@puName]});\n")
     end
     print("}\n")
+      $outFile.print("\treturn(#{$functionReturn[@puName]});\n")
+    end
+    $outFile.print("}\n")
   end
 end
 …
 def testStartCode(pu)
   # テスト開始コードは一度のみ出力する
   if $startFlag == 0
+  if !$startFlag
     pu.append("\ttest_start(__FILE__);", "")
     $startFlag = 1
+    $startFlag = true
   end
 end
 …
 #  ターゲット依存部関数の振る舞いの読み込み
+#
 def targetFunction(line, checkNum)
+def targetFunction(line, checkNum, prcid)
   if /^([a-zA-Z_]+)\s*(.*)$/ =~ line
     functionName = $1
 …
   end
   pu.append("\tcheck_point(#{checkNum});");
+  pu.append("\tcheck_point#{$cpSuffix[prcid]}(#{checkNum});");
   if param && $functionCheckParameter[functionName]
     pu.append(sprintf("\tcheck_assert(%s == %s);",
 …
+#
+#  チェックポイント番号の処理
+#
+def procCheckPoint(prcid, originalCheckNum, oline_list)
+  checkNum = ($lastCheckPoint[prcid] += 1).to_s
+  oline_list.each do |oline|
+    oline.sub!(/#{originalCheckNum}/, "#{checkNum}:")
+  end
+  return(checkNum)
+end
+#
 #  テストスクリプトの読み込み
+#
+def parseLine(line)
+  if /^==\s*(([a-zA-Z_]+)[0-9]*)(.*)$/ =~ line
+def parseLine(line, prcid, oline_list)
+  if /^==\s*START(_[a-zA-Z0-9]+)?(.*)$/ =~ line
+    $procFlag = true unless $procFlagEnd
+    $cpSuffix[prcid] = $1
+  elsif /^==\s*(([a-zA-Z_]+)[0-9]*)(.*)$/ =~ line
     # 処理単位の開始
     $procFlag = 1
+    $procFlag = true unless $procFlagEnd
     puName = $1
     line2 = $3
 …
       pu = $puList[puName] = PUCode.new(puName)
     end
     $currentPu = pu
+    $currentPu[prcid] = pu
     case line2
 …
       pu.setCount("")
     end
     testStartCode(pu) if /^START/ !~ puName
   elsif $procFlag != 0
     pu = $currentPu
+    testStartCode(pu)
+  elsif $procFlag
+    pu = $currentPu[prcid]
     if /^([0-9]+\:)\s*(.*)$/ =~ line
       # チェックポイント番号の処理
-      originalCheckNum = $1
       line = $2
+      checkNum = ($lastCheckPoint += 1).to_s
+      $outputLine.sub!(/#{originalCheckNum}/, "#{checkNum}:")
+      checkNum = procCheckPoint(prcid, $1, oline_list)
       case line
       when /^END$/
         pu.append("\tcheck_finish(#{checkNum});")
         $procFlag = 0
+        pu.append("\tcheck_finish#{$cpSuffix[prcid]}(#{checkNum});")
+        $procFlagEnd = true
         return
       when /^HOOK\((.*)\)$/
 …
         return
       when /^\[(.*)\]$/
         targetFunction($1, checkNum)
+        targetFunction($1, checkNum, prcid)
         return
       else
         pu.append("\tcheck_point(#{checkNum});")
+        pu.append("\tcheck_point#{$cpSuffix[prcid]}(#{checkNum});")
       end
     end
 …
       pu.append("\t#{call_string};", "")
       pu.useSil() if /^SIL_..._INT\(\)$/ =~ call_string
+    when /^VAR\(\s*(.*)\s+(.*)\s*\)$/
+      pu.addVariable($2, $1)
     when /^RETURN((\(.*\))?)$/
       pu.append("\treturn#{$1};", "")
 …
     when /^LABEL\((.*)\)$/
       pu.append("#{$1}:", "")
+    when /^BARRIER\((.*)\)$/
+      pu.append("\ttest_barrier(#{$1});", "")
+    when /^((SET|RESET|WAIT|WAIT_WO_RESET|WAIT_RESET)\(.*\))$/
+      pu.append("\t#{$1};", "")
     when /^([a-z_]+\(.*\))\s*(\-\>\s*([A-Za-z0-9_]*))?\s*$/
       genServiceCall(pu, $1, $3)
 …
+#
 inFileName = ARGV.shift
+outFileName = inFileName + ".new"
+#
 #  スクリプトファイル読み込み処理
+#
+$lastCheckPoint = 0             # 最後のチェックポイント番号
+$procFlag = 0                           # スクリプト処理中フラグ
+$startFlag = 0                  # テスト開始コードの出力フラグ
+$currentPu = nil                        # 読み込み中の処理単位
+$puList = {}                            # 処理単位のリスト
+$procFlag = false                                       # スクリプト処理中フラグ
+$procFlagEnd = false                            # スクリプト処理終了フラグ
+$startFlag = false                                      # テスト開始コードの出力フラグ
+$currentPu = {}                                         # 読み込み中の処理単位
+$puList = {}                                            # 処理単位のリスト
+$outputLines = []                                       # 出力すべき行のリストのリスト
+$cpSuffix = Hash.new("")                        # チェックポイント関数のサフィックス
+$lastCheckPoint = Hash.new(0)           # 最後のチェックポイント番号
 begin
   inFile = File.open(inFileName)
+  $outFile = File.open(outFileName, "w")
 rescue Errno::ENOENT, Errno::EACCES => ex
   abort(ex.message)
 end
+statements = Hash.new("")
+oline_lists = Hash.new([])
 while line = inFile.gets do
+  $outputLine = line.dup
+  line.chomp!
+  line.sub!(/^\s*\*\s*/, "")
+  line.sub!(/\s*\/\/.*$/, "")
+  line.sub!(/\s*\.\.\..*$/, "")
+  while line.sub!(/\\$/, "") do
+    line1 = inFile.gets
+    $outputLine += line1.dup
+    line1.chomp!
+    line1.sub!(/^\s*\*\s*/, "")
+    line1.sub!(/\s*\/\/.*$/, "")
+    line1.sub!(/\s*\.\.\..*$/, "")
+    line += line1
+  end
+  parseLine(line) if line != ""
+  print($outputLine)
+  break if /DO NOT DELETE THIS LINE/ =~ $outputLine
+  line.chomp!                                                                   # 末尾の改行の削除
+  if /DO NOT DELETE THIS LINE/ =~ line
+    $outputLines.push([ line ])
+    break
+  elsif line =~ /^(\s*\*)(.*)$/                                 # 行頭のスペースと "*" の削除
+    outputLine = [ $1.dup ]
+    $2.split(/｜/, -1).each_with_index do |sline, index|
+      outLine = sline.dup
+      outputLine.push(outLine)
+      sline.sub!(/^\s*/, "")                                    # 先頭のスペースの削除
+      sline.sub!(/\/\/.*$/, "")                                 # // コメントの削除
+      sline.sub!(/\.\.\..*$/, "")                               # ... コメントの削除
+      prcid = index + 1
+      statements[prcid] += sline
+      oline_lists[prcid].push(outLine)
+      next if statements[prcid].sub!(/\\\s*$/, "")              # 継続行の場合
+      statements[prcid].sub!(/\s*$/, "")                # 末尾のスペースの削除
+      if sline !~ /^\s*$/
+        parseLine(statements[prcid], prcid, oline_lists[prcid])
+      end
+      statements[prcid] = ""
+      oline_lists[prcid] = []
+    end
+    $outputLines.push(outputLine)
+    $procFlag = false if $procFlagEnd
+  else
+    $outputLines.push([ line ])
+  end
+end
+$outputLines.each do |outputLine|
+  outputLine.each_with_index do |sline, index|
+    $outFile.print("｜") if index > 1
+    $outFile.print(sline);
+  end
+  $outFile.print("\n");
 end
 …
   $puList[puName].generateCode()
 end
+#
+#  ファイルの置き換え
+#
+FileUtils.move(inFileName, inFileName + ".bak")
+FileUtils.move(outFileName, inFileName)

EcnlProtoTool/trunk/asp3_dcre/utils/makerelease.rb

-              r321
+              r429
 #      Toyohashi Open Platform for Embedded Real-Time Systems
+#
 #  Copyright (C) 2006-2016 by Embedded and Real-Time Systems Laboratory
+#  Copyright (C) 2006-2019 by Embedded and Real-Time Systems Laboratory
 #              Graduate School of Information Science, Nagoya Univ., JAPAN
+#
 …
+#
+require "optparse"
+require "fileutils"
 require "shell"
+#
+#  オプションの定義
+#
+#  -e <dirname>                 アーカイブファイルを展開して削除する．dirname
+#                                               は展開するディレクトリ名（省略可能）．
+#
+#  オプションの処理
+#
+OptionParser.new("Usage: makerelease.rb [options] MANIFEST-FILE") do |opt|
+  opt.on("-e [dirname]",        "expand archive file and delete") do |val|
+    $expandDirname = val
+  end
+  opt.parse!(ARGV)
+end
+#
 …
     else
       fileName = $prefix + "/" + canonicalPath(baseDirectory + line)
       if !File.file?("../" + fileName)
         abort("#{fileName} is not a file.")
+      if !File.file?("../" + fileName) && !File.directory?("../" + fileName)
+        abort("#{fileName} is not a file or a directory.")
       elsif $fileList.index(fileName)
         abort("#{fileName} is duplicated.")
 …
 archiveName = $package + "-" + $version + ".tar.gz"
 fileListStr = $fileList.join(" ")
 command = "tar cvfz RELEASE/#{archiveName} -C .. #{fileListStr}\n";
+command = "tar cvfz RELEASE/#{archiveName} -C .. #{fileListStr}";
 system(command)
+puts("== RELEASE/#{archiveName} is generated. ==\n")
+puts("== RELEASE/#{archiveName} is generated. ==")
+#
+#  アーカイブファイルの展開と削除
+#
+if defined?($expandDirname)
+  command = "tar xf RELEASE/#{archiveName}; rm RELEASE/#{archiveName}";
+  system(command)
+  dirname = $expandDirname || $prefix
+  if File.exist?(dirname)
+    File.rename(dirname, dirname + ".bak")
+    puts("== '#{dirname}' is renamed to '#{dirname}.bak'. ==")
+  end
+  if !$expandDirname.nil?
+    File.rename($prefix, $expandDirname)
+  end
+  puts("== RELEASE/#{archiveName} is expanded to '#{dirname}'. ==")
+  puts("== RELEASE/#{archiveName} is deleted. ==")
+end

EcnlProtoTool/trunk/mbed_api/.cproject

-              r426
+              r429
                                 <option id="toolchain.id" value="gcc-arm-embedded"/>
                                 <option id="toolchain.version" value="6.3.1.20170620"/>
+                                <option id="toolchain.enable" value="false"/>
                         </storageModule>
                         <storageModule moduleId="cdtBuildSystem" version="4.0.0">
 …
                                                                         <listOptionValue builtIn="false" value="&quot;${ProjDirPath}/src&quot;"/>
                                                                         <listOptionValue builtIn="false" value="&quot;${workspace_loc:/musl-1.1.18/include}&quot;"/>
+                                                                        <listOptionValue builtIn="false" value="&quot;${workspace_loc:/asp3_dcre/mbed}&quot;"/>
                                                                         <listOptionValue builtIn="false" value="&quot;${workspace_loc:/asp3_dcre/mbed/common}&quot;"/>
                                                                         <listOptionValue builtIn="false" value="&quot;${workspace_loc:/asp3_dcre/mbed/api}&quot;"/>
+                                                                        <listOptionValue builtIn="false" value="&quot;${workspace_loc:/asp3_dcre/mbed/platform}&quot;"/>
                                                                         <listOptionValue builtIn="false" value="&quot;${workspace_loc:/asp3_dcre/mbed/hal}&quot;"/>
                                                                         <listOptionValue builtIn="false" value="&quot;${workspace_loc:/${ProjName}/include}&quot;"/>
 …
                 </configuration>
         </storageModule>
+        <storageModule moduleId="org.eclipse.cdt.make.core.buildtargets"/>
 </cproject>

EcnlProtoTool/trunk/mbed_api/src/mbed_api.c

-              r331
+              r429
+}
+#include "assert.c"
+#include "board.c"
+#include "error.c"
+#include "gpio.c"
+#include "lp_ticker_api.c"
+void hal_critical_section_enter(void)
+{
+}
+void hal_critical_section_exit(void)
+{
+}
+void us_ticker_fire_interrupt(void)
+{
+}
+void us_ticker_free(void)
+{
+}
+//#include <pinmap.h>
+#define LED1 109
+#include "mbed_assert.c"
+#include "mbed_board.c"
+#include "mbed_critical.c"
+#include "mbed_error.c"
+#include "mbed_gpio.c"
+#include "mbed_lp_ticker_api.c"
 #include "mbed_interface.c"
+#include "pinmap_common.c"
+//#include "rtc_time.c"
+#include "semihost_api.c"
+#include "ticker_api.c"
+#include "us_ticker_api.c"
+#include "wait_api.c"
+#include "mbed_pinmap_common.c"
+//#include "mbed_rtc_time.c"
+#include "mbed_semihost_api.c"
+#include "mbed_ticker_api.c"
+#include "mbed_us_ticker_api.c"
+#include "mbed_wait_api_no_rtos.c"
+const ticker_info_t *us_ticker_get_info(void)
+{
+        return NULL;
+}

EcnlProtoTool/trunk/ntshell/Debug/Makefile

-              r427
+              r429
 #  Copyright (C) 2000-2003 by Embedded and Real-Time Systems Laboratory
 #                              Toyohashi Univ. of Technology, JAPAN
 #  Copyright (C) 2006-2016 by Embedded and Real-Time Systems Laboratory
+#  Copyright (C) 2006-2019 by Embedded and Real-Time Systems Laboratory
 #              Graduate School of Information Science, Nagoya Univ., JAPAN
+#
 …
+#
+#  ã·ã¹ãã ãµã¼ãã¹ã³ã¼ã«ã©ã¤ãã©ãªï¼libsyssvc.aï¼ã®ãã£ã¬ã¯ããªå
+#  ï¼ã·ã¹ãã ãµã¼ãã¹ã³ã¼ã«ã©ã¤ãã©ãªãmakeå¯¾è±¡ã«ããæã¯ï¼ç©ºã«å®ç¾©ããï¼
+#
+SYSSVC_LIB = ../../asp3_dcre/Debug
+#
 #  ã«ã¼ãã«ãé¢æ°åä½ã§ã³ã³ãã¤ã«ãããã©ããã®å®ç¾©
+#
 …
+#
 OMIT_TECS =
+#
+#  TECSé¢ä¿ãã¡ã¤ã«ã®ãã£ã¬ã¯ããªã®å®ç¾©
+#
+TECSDIR =
+#
 …
+#
+#  ä¾åé¢ä¿ãã¡ã¤ã«ãç½®ããã£ã¬ã¯ããªã®å®ç¾©
+#
+DEPDIR = deps
+#  ä¸éãªãã¸ã§ã¯ããã¡ã¤ã«ã¨ä¾åé¢ä¿ãã¡ã¤ã«ãç½®ããã£ã¬ã¯ããªã®å®ç¾©
+#
+OBJDIR = obj
+DEPDIR = obj
+#
 …
 endif
+TINETDIR = tinet
+#
 #  mbedãµã¼ãã¹ã®å®ç¾©
 …
 ±éã³ã³ãã¤ã«ãªãã·ã§ã³ã®å®ç¾©
+#
 COPTS := -g -std=gnu99 $(COPTS)
+COPTS := -g -std=gnu99 -ffunction-sections -fdata-sections $(COPTS)
 ifndef OMIT_WARNING_ALL
         COPTS := -Wall $(COPTS)
 …
         APPL_COBJS := main.o fdtable.o io_stub.o socket_stub.o ffarch.o fftime.o tlsf.o diskio.o ff.o sdfs.o ccsbcs.o base64.o http-strings.o http_parser.o httpd.o httpd-fs.o sha1.o websocket.o websocket_fbs.o ntshell.o text_editor.o text_history.o usrcmd.o vtrecv.o vtsend.o ntlibc.o ntstdio.o ntopt.o syscall.o mbedcall.o
 endif
 APPL_COBJS := $(APPL_COBJS) log_output.o vasyslog.o t_perror.o strerror.o
+APPL_COBJS := $(APPL_COBJS) log_output.o vasyslog.o t_perror.o strerror.o mbed_stub.o
 APPL_BINOBJS := httpd_fs.o
 APPL_CFLAGS := $(APPL_CFLAGS)
 …
 endif
-TINETDIR = tinet
 ifdef TINETDIR
+        #
 …
 #  ã·ã¹ãã ãµã¼ãã¹ã«é¢ããå®ç¾©
+#
+ifdef TCINSTALL
+GCC_PATH = $(TCINSTALL)
+else
+GCC_PATH = $(shell which $(CC))/../../
+endif
+MALLOC_LIB = "${GCC_PATH}arm-none-eabi/lib/thumb/v7-ar/fpv3/hard/libc.a"
+MALLOC_OBJS = lib_a-reent.o lib_a-impure.o lib_a-malloc.o lib_a-mallocr.o lib_a-calloc.o lib_a-callocr.o lib_a-realloc.o lib_a-reallocr.o lib_a-sbrkr.o lib_a-freer.o
 SYSSVC_DIRS := $(TECSGENDIR) $(SRCDIR)/tecs_kernel \
                                 $(SYSSVC_DIRS) $(SRCDIR)/syssvc
 SYSSVC_ASMOBJS := $(SYSSVC_ASMOBJS)
 SYSSVC_COBJS := $(INIT_TECS_COBJ) $(TECS_COBJS) $(SYSSVC_COBJS) \
                                  $(CXXRTS)
+SYSSVC_COBJS := $(SYSSVC_COBJS) $(TECS_COBJS) \
+                                $(INIT_TECS_COBJ) $(CXXRTS)
 SYSSVC_CFLAGS := $(SYSSVC_CFLAGS)
+INCLUDES := $(INCLUDES) -I$(TECSGENDIR) -I$(SRCDIR)/tecs_kernel
+INCLUDES := $(INCLUDES) -I$(TECSGENDIR) -I$(SRCDIR)/tecs_kernel -I../../musl-1.1.18/include
+#
+#  ãã¬ã¼ã¹ãã°è¨é²ã®ãµã³ãã«ã³ã¼ãã«é¢ããå®ç¾©
+#
+ifdef ENABLE_TRACE
+        COPTS := $(COPTS) -DTOPPERS_ENABLE_TRACE
+        SYSSVC_DIRS := $(SYSSVC_DIRS) $(SRCDIR)/arch/tracelog
+endif
+#
 …
 .PHONY: all
 ifndef OMIT_TECS
 all: tecs
+all: tecs | $(DEPDIR)
 #       @$(MAKE) check
         @$(MAKE) check $(OBJNAME).bin
 …
 #  ã³ã³ãã£ã®ã¥ã¬ã¼ã¿ã«é¢ããå®ç¾©
+#
+CFG_KERNEL := --kernel asp
 ifndef TINETDIR
   CFG_TRB := -T $(TARGETDIR)/target_kernel.trb
 …
   CFG_TABS := --api-table $(TINET_ROOT)/tcpip_api.def:tcpip \
                         --api-table $(SRCDIR)/kernel/kernel_api.def:kernel \
                         --symval-table $(SRCDIR)/tinet/tcpip_sym.def \
+                        --symval-table $(TINET_ROOT)/tcpip_sym.def \
                         --symval-table $(SRCDIR)/kernel/kernel_sym.def $(CFG_TABS)
 endif
 CFG_ASMOBJS := $(CFG_ASMOBJS)
 CFG_COBJS := kernel_cfg.o $(CFG_COBJS)
+CFG_OBJS := $(CFG_ASMOBJS) $(CFG_COBJS)
+CFG_CFLAGS := -DTOPPERS_CB_TYPE_ONLY $(CFG_CFLAGS)
 CFG2_OUT_SRCS := kernel_cfg.h kernel_cfg.c $(CFG2_OUT_SRCS)
-CFG_CFLAGS := -DTOPPERS_CB_TYPE_ONLY $(CFG_CFLAGS)
+#
 …
                                         $(foreach file,$(KERNEL_FCSRCS),$(file:.c=.o))
 endif
+ifdef OMIT_OFFSET_H
+        OFFSET_H =
+else
+ifdef TARGET_OFFSET_TRB
         OFFSET_H = offset.h
 endif
 …
 endif
 ifndef TARGET_TCPIP_TRB
         TARGET_TCPIP_TRB := $(SRCDIR)/tinet/tinet.trb
+        TARGET_TCPIP_TRB := $(SRCDIR)/$(TINETDIR)/tinet.trb
 endif
 …
+#
+#  ä¸éãªãã¸ã§ã¯ããã¡ã¤ã«ãç½®ããã£ã¬ã¯ããªã®å¦ç
+#
+APPL_ASMOBJS   := $(addprefix $(OBJDIR)/, $(APPL_ASMOBJS))
+APPL_CXXOBJS   := $(addprefix $(OBJDIR)/, $(APPL_CXXOBJS))
+APPL_COBJS     := $(addprefix $(OBJDIR)/, $(APPL_COBJS))
+APPL_BINOBJS   := $(addprefix $(OBJDIR)/, $(APPL_BINOBJS))
+SYSSVC_ASMOBJS := $(addprefix $(OBJDIR)/, $(SYSSVC_ASMOBJS))
+SYSSVC_COBJS   := $(addprefix $(OBJDIR)/, $(SYSSVC_COBJS))
+KERNEL_ASMOBJS := $(addprefix $(OBJDIR)/, $(KERNEL_ASMOBJS))
+KERNEL_COBJS   := $(addprefix $(OBJDIR)/, $(KERNEL_COBJS))
+KERNEL_LCOBJS  := $(addprefix $(OBJDIR)/, $(KERNEL_LCOBJS))
+CFG_ASMOBJS    := $(addprefix $(OBJDIR)/, $(CFG_ASMOBJS))
+CFG_COBJS      := $(addprefix $(OBJDIR)/, $(CFG_COBJS))
+CFG_DMY        := $(addprefix $(OBJDIR)/, $(CFG_DMY))
+MALLOC_OBJS    := $(addprefix $(OBJDIR)/, $(MALLOC_OBJS))
+#
 #  ã³ã³ãã¤ã«ã®ããã®å¤æ°ã®å®ç¾©
+#
 KERNEL_LIB_OBJS = $(KERNEL_ASMOBJS) $(KERNEL_COBJS) $(KERNEL_LCOBJS)
+APPL_OBJS = $(APPL_ASMOBJS) $(APPL_COBJS) $(APPL_CXXOBJS) $(APPL_BINOBJS)
 SYSSVC_OBJS = $(SYSSVC_ASMOBJS) $(SYSSVC_COBJS) $(HIDDEN_OBJS)
+APPL_OBJS = $(APPL_ASMOBJS) $(APPL_COBJS) $(APPL_CXXOBJS) $(APPL_BINOBJS)
+KERNEL_LIB_OBJS = $(KERNEL_ASMOBJS) $(KERNEL_COBJS) $(KERNEL_LCOBJS) $(MALLOC_OBJS)
+CFG_OBJS = $(CFG_ASMOBJS) $(CFG_COBJS)
 ALL_OBJS = $(START_OBJS) $(APPL_OBJS) $(SYSSVC_OBJS) $(CFG_OBJS) \
                                                                                         $(END_OBJS) $(HIDDEN_OBJS)
 …
         OBJ_LDFLAGS := $(OBJ_LDFLAGS) -L.
 endif
+ifdef SYSSVC_LIB
+        LIBS_DEP := $(LIBS_DEP) $(SYSSVC_LIB)/libsyssvc.a
+        OBJ_LDFLAGS := $(OBJ_LDFLAGS) -L$(SYSSVC_LIB)
+        REALCLEAN_FILES := $(REALCLEAN_FILES) libsyssvc.a
+else
+        LIBS_DEP := $(LIBS_DEP) libsyssvc.a
+        OBJ_LDFLAGS := $(OBJ_LDFLAGS) -L.
+endif
 ifdef TEXT_START_ADDRESS
 …
 tecs $(TECSGEN_SRCS) $(TECS_HEADERS): $(TECSGEN_TIMESTAMP) ;
 $(TECSGEN_TIMESTAMP): $(APPL_CDL) $(TECS_IMPORTS)
         $(TECSGEN) $< -R $(INCLUDES) --cpp "$(TECS_CPP)" -g $(TECSGENDIR)
+        $(TECSGEN) $< -R $(INCLUDES) --cpp "$(subst ", \", $(TECS_CPP))" -g $(TECSGENDIR)
+#
 …
 cfg1_out.c cfg1_out.db: cfg1_out.timestamp ;
 cfg1_out.timestamp: $(APPL_CFG) $(TECSGEN_TIMESTAMP)
+        echo $(CFG_TABS)
+        $(CFG) --pass 1 --kernel asp $(INCLUDES) $(CFG_TABS) \
+        $(CFG) --pass 1 $(CFG_KERNEL) $(INCLUDES) $(CFG_TABS) \
                                                 -M $(DEPDIR)/cfg1_out_c.d $(TARGET_KERNEL_CFG) $<
 $(CFG1_OUT): $(START_OBJS) cfg1_out.o $(CFG_DMY) $(END_OBJS) $(HIDDEN_OBJS)
+$(CFG1_OUT): $(START_OBJS) $(OBJDIR)/cfg1_out.o $(CFG_DMY) $(END_OBJS) $(HIDDEN_OBJS)
         $(LINK) $(CFLAGS) $(LDFLAGS) $(CFG1_OUT_LDFLAGS) -o $(CFG1_OUT) \
                                                 $(START_OBJS) cfg1_out.o $(CFG_DMY) $(END_OBJS)
+                                                $(START_OBJS) $(OBJDIR)/cfg1_out.o $(CFG_DMY) $(LIBS) $(END_OBJS) $(HIDDEN_OBJS)
 cfg1_out.syms: $(CFG1_OUT)
 …
 $(CFG2_OUT_SRCS) cfg2_out.db: kernel_cfg.timestamp ;
 kernel_cfg.timestamp: cfg1_out.db cfg1_out.syms cfg1_out.srec
         $(CFG) --pass 2 --kernel asp $(INCLUDES) $(CFG_TRB)
+        $(CFG) --pass 2 $(CFG_KERNEL) $(INCLUDES) $(CFG_TRB)
+#
 …
 $(OFFSET_H): offset.timestamp ;
 offset.timestamp: cfg1_out.db cfg1_out.syms cfg1_out.srec
         $(CFG) --pass 2 -O --kernel asp $(INCLUDES) -T $(TARGET_OFFSET_TRB) \
+        $(CFG) --pass 2 -O $(CFG_KERNEL) $(INCLUDES) -T $(TARGET_OFFSET_TRB) \
                                 --rom-symbol cfg1_out.syms --rom-image cfg1_out.srec
 …
+#
+#  ã·ã¹ãã ãµã¼ãã¹ã³ã¼ã«ã©ã¤ãã©ãªãã¡ã¤ã«ã®çæ
+#
+libsyssvc.a: $(filter-out $(OBJDIR)/tBannerMain.o, $(SYSSVC_OBJS))
+        rm -f libsyssvc.a
+        $(AR) -rcs libsyssvc.a $(filter-out $(OBJDIR)/tBannerMain.o, $(SYSSVC_OBJS))
+        $(RANLIB) libsyssvc.a
+#
+#  ä¸¦åmakeã®ããã®ä¾åé¢ä¿ã®å®ç¾©
+#
+$(APPL_OBJS) $(filter-out $(CFG_DMY), $(SYSSVC_OBJS)): | kernel_cfg.timestamp
+$(APPL_ASMOBJS) $(filter-out $(CFG_DMY), $(SYSSVC_ASMOBJS)) $(KERNEL_ASMOBJS) $(CFG_ASMOBJS): \
+                                                                                                                | offset.timestamp
+#
 #  ç¹å¥ãªä¾åé¢ä¿ã®å®ç¾©
+#
+tBannerMain.o: $(filter-out tBannerMain.o,$(ALL_OBJS)) $(LIBS_DEP)
+$(OBJDIR)/tBannerMain.o: $(filter-out $(OBJDIR)/tBannerMain.o,$(ALL_OBJS)) \
+                                                                                                                                $(LIBS_DEP)
+#
 …
                         -Wl,-Map=$(OBJNAME).map,--cref -Wl,--gc-sections -Wl,-e_kernel__start,--gc-keep-exported=_kernel_istk \
                         $(START_OBJS) $(APPL_OBJS) $(SYSSVC_OBJS) $(CFG_OBJS) \
+                        $(ALL_LIBS) $(END_OBJS)
+                        -Wl,--start-group $(ALL_LIBS) -Wl,--end-group $(END_OBJS)
+#
+#  ä¾åé¢ä¿ãã©ã«ãã®ä½æ
+#
+$(DEPDIR):
+        mkdir $@
+#
 …
 check: check.timestamp ;
 check.timestamp: cfg2_out.db $(OBJNAME).syms $(OBJNAME).srec
         $(CFG) --pass 3 --kernel asp -O $(INCLUDES) -T $(TARGET_CHECK_TRB) \
+        $(CFG) --pass 3 $(CFG_KERNEL) -O $(INCLUDES) -T $(TARGET_CHECK_TRB) \
                                 --rom-symbol $(OBJNAME).syms --rom-image $(OBJNAME).srec
         @echo "configuration check passed"
 …
 .PHONY: clean
 clean:
         rm -f \#* *~ *.o $(DEPDIR)/*.d $(CLEAN_FILES) check.timestamp
+        rm -f \#* *~ $(OBJDIR)/*.o $(DEPDIR)/*.d $(CLEAN_FILES) check.timestamp
         rm -f $(OBJFILE) $(OBJNAME).syms $(OBJNAME).srec $(OBJNAME).bin
         rm -f kernel_cfg.timestamp $(CFG2_OUT_SRCS) cfg2_out.db
 …
         rm -f libkernel.a
 endif
+ifndef SYSSVC_LIB
+        rm -f libsyssvc.a
+endif
+        rm -f $(MALLOC_OBJS)
 .PHONY: cleankernel
 cleankernel:
         rm -f $(OFFSET_H) $(KERNEL_LIB_OBJS)
+        rm -f $(KERNEL_LIB_OBJS:%.o=$(DEPDIR)/%.d)
+        rm -f $(KERNEL_LIB_OBJS:$(OBJDIR)/%.o=$(DEPDIR)/%.d)
+.PHONY: cleansyssvc
+cleansyssvc:
+        rm -f $(SYSSVC_OBJS)
+        rm -f $(SYSSVC_OBJS:$(OBJDIR)/%.o=$(DEPDIR)/%.d)
 .PHONY: realclean
 …
 #  ã®ã¿ãä»ãã¦ã³ã³ãã¤ã«ããï¼
+#
 ALL_CFG_COBJS = $(CFG_COBJS) cfg1_out.o
+ALL_CFG_COBJS = $(CFG_COBJS) $(OBJDIR)/cfg1_out.o
 ALL_CFG_ASMOBJS = $(CFG_ASMOBJS)
 $(ALL_CFG_COBJS): %.o: %.c
         $(CC) -c -MD -MP -MF $(DEPDIR)/$*.d $(CFLAGS) $(CFG_CFLAGS) $<
 $(ALL_CFG_COBJS:.o=.s): %.s: %.c
         $(CC) -S $(CFLAGS) $(CFG_CFLAGS) $<
 $(ALL_CFG_ASMOBJS): %.o: %.S
         $(CC) -c -MD -MP -MF $(DEPDIR)/$*.d $(CFLAGS) $(CFG_CFLAGS) $<
+$(ALL_CFG_COBJS): $(OBJDIR)/%.o: %.c
+        $(CC) -c -o $@ -MD -MP -MF $(DEPDIR)/$*.d $(CFLAGS) $(CFG_CFLAGS) $<
+$(ALL_CFG_COBJS:$(OBJDIR)/%.o=%.s): %.s: %.c
+        $(CC) -S -o $@ $(CFLAGS) $(CFG_CFLAGS) $<
+$(ALL_CFG_ASMOBJS): $(OBJDIR)/%.o: %.S
+        $(CC) -c -o $@ -MD -MP -MF $(DEPDIR)/$*.d $(CFLAGS) $(CFG_CFLAGS) $<
+#
 …
 #  ã³ã³ãã¤ã«ã«ã¼ã«ã®å®ç¾©
+#
 $(KERNEL_COBJS): %.o: %.c
         $(CC) -c -MD -MP -MF $(DEPDIR)/$*.d $(CFLAGS) $(KERNEL_CFLAGS) $<
 $(KERNEL_COBJS:.o=.s): %.s: %.c
         $(CC) -S $(CFLAGS) $(KERNEL_CFLAGS) $<
 $(KERNEL_LCOBJS): %.o:
         $(CC) -DTOPPERS_$(*F) -o $@ -c -MD -MP -MF $(DEPDIR)/$*.d \
+$(KERNEL_COBJS): $(OBJDIR)/%.o: %.c
+        $(CC) -c -o $@ -MD -MP -MF $(DEPDIR)/$*.d $(CFLAGS) $(KERNEL_CFLAGS) $<
+$(KERNEL_COBJS:$(OBJDIR)/%.o=%.s): %.s: %.c
+        $(CC) -S -o $@ $(CFLAGS) $(KERNEL_CFLAGS) $<
+$(KERNEL_LCOBJS): $(OBJDIR)/%.o:
+        $(CC) -c -o $@ -DTOPPERS_$(*F) -MD -MP -MF $(DEPDIR)/$*.d \
                                                                         $(CFLAGS) $(KERNEL_CFLAGS) $<
+$(KERNEL_LCOBJS:.o=.s): %.s:
+        $(CC) -DTOPPERS_$(*F) -o $@ -S $(CFLAGS) $(KERNEL_CFLAGS) $<
+$(KERNEL_ASMOBJS): %.o: %.S
+        $(CC) -c -MD -MP -MF $(DEPDIR)/$*.d $(CFLAGS) $(KERNEL_CFLAGS) $<
+$(SYSSVC_COBJS): %.o: %.c
+        $(CC) -c -MD -MP -MF $(DEPDIR)/$*.d $(CFLAGS) $(SYSSVC_CFLAGS) $<
+$(SYSSVC_COBJS:.o=.s): %.s: %.c
+        $(CC) -S $(CFLAGS) $(SYSSVC_CFLAGS) $<
+$(SYSSVC_ASMOBJS): %.o: %.S
+        $(CC) -c -MD -MP -MF $(DEPDIR)/$*.d $(CFLAGS) $(SYSSVC_CFLAGS) $<
+$(APPL_COBJS): %.o: %.c
+        $(CC) -c -MD -MP -MF $(DEPDIR)/$*.d $(CFLAGS) $(APPL_CFLAGS) $<
+$(APPL_COBJS:.o=.s): %.s: %.c
+        $(CC) -S $(CFLAGS) $(APPL_CFLAGS) $<
+$(APPL_CXXOBJS): %.o: %.cpp
+        $(CXX) -c -MD -MP -MF $(DEPDIR)/$*.d $(CFLAGS) $(APPL_CFLAGS) $<
+$(APPL_CXXOBJS:.o=.s): %.s: %.cpp
+        $(CXX) -S $(CFLAGS) $(APPL_CFLAGS) $<
+$(APPL_ASMOBJS): %.o: %.S
+        $(CC) -c -MD -MP -MF $(DEPDIR)/$*.d $(CFLAGS) $(APPL_CFLAGS) $<
+$(APPL_BINOBJS): %.o: %.bin
+        $(OBJCOPY) -B arm -I binary -O elf32-littlearm --rename-section .data=.rodata $< $*.o
+$(KERNEL_LCOBJS:$(OBJDIR)/%.o=%.s): %.s:
+        $(CC) -S -o $@ -DTOPPERS_$(*F) $(CFLAGS) $(KERNEL_CFLAGS) $<
+$(KERNEL_ASMOBJS): $(OBJDIR)/%.o: %.S
+        $(CC) -c -o $@ -MD -MP -MF $(DEPDIR)/$*.d $(CFLAGS) $(KERNEL_CFLAGS) $<
+$(SYSSVC_COBJS): $(OBJDIR)/%.o: %.c
+        $(CC) -c -o $@ -MD -MP -MF $(DEPDIR)/$*.d $(CFLAGS) $(SYSSVC_CFLAGS) $<
+$(SYSSVC_COBJS:$(OBJDIR)/%.o=%.s): %.s: %.c
+        $(CC) -S -o $@ $(CFLAGS) $(SYSSVC_CFLAGS) $<
+$(SYSSVC_ASMOBJS): $(OBJDIR)/%.o: %.S
+        $(CC) -c -o $@ -MD -MP -MF $(DEPDIR)/$*.d $(CFLAGS) $(SYSSVC_CFLAGS) $<
+$(APPL_COBJS): $(OBJDIR)/%.o: %.c
+        $(CC) -c -o $@ -MD -MP -MF $(DEPDIR)/$*.d $(CFLAGS) $(APPL_CFLAGS) $<
+$(APPL_COBJS:$(OBJDIR)/%.o=%.s): %.s: %.c
+        $(CC) -S -o $@ $(CFLAGS) $(APPL_CFLAGS) $<
+$(APPL_CXXOBJS): $(OBJDIR)/%.o: %.cpp
+        $(CXX) -c -o $@ -MD -MP -MF $(DEPDIR)/$*.d $(CFLAGS) $(APPL_CFLAGS) $<
+$(APPL_CXXOBJS:$(OBJDIR)/%.o=%.s): %.s: %.cpp
+        $(CXX) -S -o $@ $(CFLAGS) $(APPL_CFLAGS) $<
+$(APPL_ASMOBJS): $(OBJDIR)/%.o: %.S
+        $(CC) -c -o $@ -MD -MP -MF $(DEPDIR)/$*.d $(CFLAGS) $(APPL_CFLAGS) $<
+$(APPL_BINOBJS): $(OBJDIR)/%.o: %.bin
+        $(OBJCOPY) -B arm -I binary -O elf32-littlearm --rename-section .data=.rodata $< $(OBJDIR)/$*.o
+$(MALLOC_OBJS): $(OBJDIR)/%.o:
+        $(AR) x $(MALLOC_LIB) $(notdir $@)
+        mv $(notdir $@) $@
+#
 #  ããã©ã«ãã³ã³ãã¤ã«ã«ã¼ã«ãä¸æ¸ã
+#
 %.o: %.c
+$(OBJDIR)/%.o: %.c
         @echo "*** Default compile rules should not be used."
         $(CC) -c -MD -MP -MF $(DEPDIR)/$*.d $(CFLAGS) $<
+        $(CC) -c -o $@ -MD -MP -MF $(DEPDIR)/$*.d $(CFLAGS) $<
 %.s: %.c
         @echo "*** Default compile rules should not be used."
         $(CC) -S $(CFLAGS) $<
 %.o: %.cpp
+        $(CC) -S -o $@ $(CFLAGS) $<
+$(OBJDIR)/%.o: %.cpp
         @echo "*** Default compile rules should not be used."
         $(CXX) -c -MD -MP -MF $(DEPDIR)/$*.d $(CFLAGS) $<
+        $(CXX) -c -o $@ -MD -MP -MF $(DEPDIR)/$*.d $(CFLAGS) $<
 %.s: %.cpp
         @echo "*** Default compile rules should not be used."
         $(CXX) -S $(CFLAGS) $<
 %.o: %.S
+        $(CXX) -S -o $@ $(CFLAGS) $<
+$(OBJDIR)/%.o: %.S
         @echo "*** Default compile rules should not be used."
         $(CC) -c -MD -MP -MF $(DEPDIR)/$*.d $(CFLAGS) $<
+        $(CC) -c -o $@ -MD -MP -MF $(DEPDIR)/$*.d $(CFLAGS) $<

EcnlProtoTool/trunk/ntshell/fatfs/sdfs.c

r321	r429
116	116	#include "sdfs.h"
117	117	//#include "mbed_debug.h"
118		#include "wait_api.h"
	118	#include "mbed_wait_api.h"
119	119
120	120	#define debug(str, ...)

EcnlProtoTool/trunk/ntshell/src/mbedcall.c

r331	r429
59	59	#include "serial_api.h"
60	60	#include "us_ticker_api.h"
61		#include "wait_api.h"
	61	#include "mbed_wait_api.h"
62	62	#include "../../mbed_api/src/mbedcall.h"
63	63

EcnlProtoTool/trunk/ntshell/src/syscall.c

-              r331
+              r429
 // https://os.mbed.com/users/dkato/code/FlashAccess/#652a093cf264
 void flash_access_cache_control(void) {
+    unsigned int assoc;
+    /* ==== Cleaning and invalidation of the L1 data cache ==== */
+    __v7_all_cache(2);
+    __DSB();
+    /* ==== Cleaning and invalidation of the L2 cache ==== */
+    if (PL310->AUX_CNT & (1<<16)) {
+        assoc = 16;
+    } else {
+        assoc =  8;
+    }
+    PL310->INV_WAY = (1 << assoc) - 1;
+    while(PL310->INV_WAY & ((1 << assoc) - 1)); // poll invalidate
+    PL310->CACHE_SYNC = 0x0;
+    /* ==== Invalidate all TLB entries ==== */
+    __ca9u_inv_tlb_all();
+    /* ==== Invalidate the L1 instruction cache ==== */
+    __v7_inv_icache_all();
+    __DSB();
+    __ISB();
+        unsigned int assoc;
+        /* ==== Cleaning and invalidation of the L1 data cache ==== */
+        L1C_CleanInvalidateDCacheAll();
+        __DSB();
+        /* ==== Cleaning and invalidation of the L2 cache ==== */
+        if (L2C_310->AUX_CNT & (1 << 16)) {
+                assoc = 16;
+        }
+        else {
+                assoc = 8;
+        }
+        L2C_310->INV_WAY = (1 << assoc) - 1;
+        while (L2C_310->INV_WAY & ((1 << assoc) - 1)); // poll invalidate
+        L2C_310->CACHE_SYNC = 0x0;
+        /* ==== Invalidate all TLB entries ==== */
+        MMU_InvalidateTLB();
+        /* ==== Invalidate the L1 instruction cache ==== */
+        L1C_InvalidateICacheAll();
+        __DSB();
+        __ISB();
+}

EcnlProtoTool/trunk/ntshell/src/tinet_main.cfg

r331	r429
43	43	#include "main.h"
44	44
45		~~INCLUDE("netinet/ip_igmp.cfg");~~
46
47	45	/* DHCP クライアント */
48	46	/INCLUDE("netapp/tinet_dhcp4_cli.cfg");/

Context Navigation

Legend: