Mock Version: 1.4.21
Mock Version: 1.4.21
ENTER ['do_with_status'](['bash', '--login', '-c', '/usr/bin/rpmbuild -bs --target riscv64 --nodeps /builddir/build/SPECS/neuron.spec'], chrootPath='/var/lib/mock/f33-build-546850-65264/root'env={'TERM': 'vt100', 'SHELL': '/bin/bash', 'HOME': '/builddir', 'HOSTNAME': 'mock', 'PATH': '/usr/bin:/bin:/usr/sbin:/sbin', 'PROMPT_COMMAND': 'printf "\\033]0;<mock-chroot>\\007"', 'PS1': '<mock-chroot> \\s-\\v\\$ ', 'LANG': 'en_US.UTF-8'}shell=Falselogger=<mockbuild.trace_decorator.getLog object at 0x3faee0e700>timeout=432000uid=987gid=135user='mockbuild'nspawn_args=[]unshare_net=TrueprintOutput=False)
Executing command: ['bash', '--login', '-c', '/usr/bin/rpmbuild -bs --target riscv64 --nodeps /builddir/build/SPECS/neuron.spec'] with env {'TERM': 'vt100', 'SHELL': '/bin/bash', 'HOME': '/builddir', 'HOSTNAME': 'mock', 'PATH': '/usr/bin:/bin:/usr/sbin:/sbin', 'PROMPT_COMMAND': 'printf "\\033]0;<mock-chroot>\\007"', 'PS1': '<mock-chroot> \\s-\\v\\$ ', 'LANG': 'en_US.UTF-8'} and shell False
Building target platforms: riscv64
Building for target riscv64
setting SOURCE_DATE_EPOCH=1612915200
Wrote: /builddir/build/SRPMS/neuron-7.8.1-10.fc33.src.rpm
Child return code was: 0
ENTER ['do_with_status'](['bash', '--login', '-c', '/usr/bin/rpmbuild -bb --target riscv64 --nodeps /builddir/build/SPECS/neuron.spec'], chrootPath='/var/lib/mock/f33-build-546850-65264/root'env={'TERM': 'vt100', 'SHELL': '/bin/bash', 'HOME': '/builddir', 'HOSTNAME': 'mock', 'PATH': '/usr/bin:/bin:/usr/sbin:/sbin', 'PROMPT_COMMAND': 'printf "\\033]0;<mock-chroot>\\007"', 'PS1': '<mock-chroot> \\s-\\v\\$ ', 'LANG': 'en_US.UTF-8'}shell=Falselogger=<mockbuild.trace_decorator.getLog object at 0x3faee0e700>timeout=432000uid=987gid=135user='mockbuild'nspawn_args=[]unshare_net=TrueprintOutput=False)
Executing command: ['bash', '--login', '-c', '/usr/bin/rpmbuild -bb --target riscv64 --nodeps /builddir/build/SPECS/neuron.spec'] with env {'TERM': 'vt100', 'SHELL': '/bin/bash', 'HOME': '/builddir', 'HOSTNAME': 'mock', 'PATH': '/usr/bin:/bin:/usr/sbin:/sbin', 'PROMPT_COMMAND': 'printf "\\033]0;<mock-chroot>\\007"', 'PS1': '<mock-chroot> \\s-\\v\\$ ', 'LANG': 'en_US.UTF-8'} and shell False
Building target platforms: riscv64
Building for target riscv64
setting SOURCE_DATE_EPOCH=1612915200
Executing(%prep): /bin/sh -e /var/tmp/rpm-tmp.jRrXLO
+ umask 022
+ cd /builddir/build/BUILD
+ cd /builddir/build/BUILD
+ rm -rf nrn-7.8.1
+ /usr/bin/gzip -dc /builddir/build/SOURCES/neuron-7.8.1.tar.gz
+ /usr/bin/tar -xof -
+ STATUS=0
+ '[' 0 -ne 0 ']'
+ cd nrn-7.8.1
+ /usr/bin/chmod -Rf a+rX,u+w,g-w,o-w .
+ /usr/bin/git init -q
+ /usr/bin/git config user.name rpm-build
+ /usr/bin/git config user.email '<rpm-build>'
+ /usr/bin/git config gc.auto 0
+ /usr/bin/git add --force .
+ /usr/bin/git commit -q --allow-empty -a --author 'rpm-build <rpm-build>' -m 'neuron-7.8.1 base'
+ /usr/bin/git apply --index --reject -
+ /usr/bin/cat /builddir/build/SOURCES/0001-Unbundle-Random123.patch
Checking patch configure.ac...
Checking patch src/Makefile.am...
Applied patch configure.ac cleanly.
Applied patch src/Makefile.am cleanly.
+ /usr/bin/git commit -q -m 0001-Unbundle-Random123.patch --author 'rpm-build <rpm-build>'
+ /usr/bin/cat /builddir/build/SOURCES/0002-Unbundle-catch.patch
+ /usr/bin/git apply --index --reject -
Checking patch CMakeLists.txt...
Applied patch CMakeLists.txt cleanly.
+ /usr/bin/git commit -q -m 0002-Unbundle-catch.patch --author 'rpm-build <rpm-build>'
+ /usr/bin/cat /builddir/build/SOURCES/0003-Disable-python-build-and-install.patch
+ /usr/bin/git apply --index --reject -
Checking patch src/nrnpython/CMakeLists.txt...
Applied patch src/nrnpython/CMakeLists.txt cleanly.
+ /usr/bin/git commit -q -m 0003-Disable-python-build-and-install.patch --author 'rpm-build <rpm-build>'
+ /usr/bin/git apply --index --reject -
+ /usr/bin/cat /builddir/build/SOURCES/0004-Set-soversions-for-libs.patch
Checking patch CMakeLists.txt...
Checking patch src/nrniv/CMakeLists.txt...
Checking patch src/nrnpython/CMakeLists.txt...
Applied patch CMakeLists.txt cleanly.
Applied patch src/nrniv/CMakeLists.txt cleanly.
Applied patch src/nrnpython/CMakeLists.txt cleanly.
+ /usr/bin/git commit -q -m 0004-Set-soversions-for-libs.patch --author 'rpm-build <rpm-build>'
+ /usr/bin/cat /builddir/build/SOURCES/0005-Correct-librxdmath-path-for-64bit.patch
+ /usr/bin/git apply --index --reject -
Checking patch share/lib/python/neuron/rxd/rxd.py...
Applied patch share/lib/python/neuron/rxd/rxd.py cleanly.
+ /usr/bin/git commit -q -m 0005-Correct-librxdmath-path-for-64bit.patch --author 'rpm-build <rpm-build>'
+ /usr/bin/cat /builddir/build/SOURCES/0006-Do-not-generate-version-info-at-buildtime.patch
+ /usr/bin/git apply --index --reject -
Checking patch src/nrniv/CMakeLists.txt...
Applied patch src/nrniv/CMakeLists.txt cleanly.
+ /usr/bin/git commit -q -m 0006-Do-not-generate-version-info-at-buildtime.patch --author 'rpm-build <rpm-build>'
+ /usr/bin/cat /builddir/build/SOURCES/0007-Remove-rpaths.patch
+ /usr/bin/git apply --index --reject -
Checking patch bin/nrnivmodl_makefile_cmake.in...
Checking patch bin/nrnmech_makefile.in...
Checking patch setup.py...
Checking patch src/nrnpython/setup.py.in...
Applied patch bin/nrnivmodl_makefile_cmake.in cleanly.
Applied patch bin/nrnmech_makefile.in cleanly.
Applied patch setup.py cleanly.
Applied patch src/nrnpython/setup.py.in cleanly.
+ /usr/bin/git commit -q -m 0007-Remove-rpaths.patch --author 'rpm-build <rpm-build>'
+ find src -type f -executable '!' -name '*.sh' -exec chmod -x '{}' +
+ rm -rf src/Random123
+ rm -rf src/readline
++ date +%Y-%m-%d
+ export TIMESTAMP=2021-03-02
+ TIMESTAMP=2021-03-02
+ cat
+ for f in bin/*_makefile.in
+ sed -r -i 's|(LIBTOOL.*=.*)\$\(pkgdatadir\)(.*)|\1$(bindir)\2|' bin/nrniv_makefile.in
+ for f in bin/*_makefile.in
+ sed -r -i 's|(LIBTOOL.*=.*)\$\(pkgdatadir\)(.*)|\1$(bindir)\2|' bin/nrnmech_makefile.in
+ for f in bin/*_makefile.in
+ sed -r -i 's|(LIBTOOL.*=.*)\$\(pkgdatadir\)(.*)|\1$(bindir)\2|' bin/nrnoc_makefile.in
+ sed -i '/CompilerFlagsHelpers/ d' cmake/ReleaseDebugAutoFlags.cmake
+ RPM_EC=0
++ jobs -p
+ exit 0
Executing(%build): /bin/sh -e /var/tmp/rpm-tmp.R7JYNP
+ umask 022
+ cd /builddir/build/BUILD
+ cd nrn-7.8.1
+ export MPI_COMPILER=serial
+ MPI_COMPILER=serial
*** BUILDING neuron-7.8.1 ***
+ export MPI_SUFFIX=
+ MPI_SUFFIX=
+ export MPI_HOME=/usr
+ MPI_HOME=/usr
+ export MPI_BIN=/usr/bin
+ MPI_BIN=/usr/bin
+ export MPI_INCLUDE=/usr/include
+ MPI_INCLUDE=/usr/include
+ export MPI_LIB=/usr/lib64
+ MPI_LIB=/usr/lib64
+ export MPI_LIBFILE=
+ MPI_LIBFILE=
+ export MPI_YES=OFF
+ MPI_YES=OFF
+ export MPI_COMPILE_TYPE=
+ MPI_COMPILE_TYPE=
+ export MPI_SITEARCH=/usr/lib64/python3.9/site-packages
+ MPI_SITEARCH=/usr/lib64/python3.9/site-packages
+ export MY_CMAKE_BUILDDIR=riscv64-redhat-linux-gnu
+ MY_CMAKE_BUILDDIR=riscv64-redhat-linux-gnu
+ echo
+ echo '*** BUILDING neuron-7.8.1 ***'
+ echo
+ CFLAGS='-O2 -flto=auto -ffat-lto-objects -fexceptions -g -grecord-gcc-switches -pipe -Wall -Werror=format-security -Wp,-D_FORTIFY_SOURCE=2 -Wp,-D_GLIBCXX_ASSERTIONS -specs=/usr/lib/rpm/redhat/redhat-hardened-cc1 -fstack-protector-strong -specs=/usr/lib/rpm/redhat/redhat-annobin-cc1  -fasynchronous-unwind-tables -fstack-clash-protection'
+ export CFLAGS
+ CXXFLAGS='-O2 -flto=auto -ffat-lto-objects -fexceptions -g -grecord-gcc-switches -pipe -Wall -Werror=format-security -Wp,-D_FORTIFY_SOURCE=2 -Wp,-D_GLIBCXX_ASSERTIONS -specs=/usr/lib/rpm/redhat/redhat-hardened-cc1 -fstack-protector-strong -specs=/usr/lib/rpm/redhat/redhat-annobin-cc1  -fasynchronous-unwind-tables -fstack-clash-protection'
+ export CXXFLAGS
+ FFLAGS='-O2 -flto=auto -ffat-lto-objects -fexceptions -g -grecord-gcc-switches -pipe -Wall -Werror=format-security -Wp,-D_FORTIFY_SOURCE=2 -Wp,-D_GLIBCXX_ASSERTIONS -specs=/usr/lib/rpm/redhat/redhat-hardened-cc1 -fstack-protector-strong -specs=/usr/lib/rpm/redhat/redhat-annobin-cc1  -fasynchronous-unwind-tables -fstack-clash-protection -I/usr/lib64/gfortran/modules'
+ export FFLAGS
+ FCFLAGS='-O2 -flto=auto -ffat-lto-objects -fexceptions -g -grecord-gcc-switches -pipe -Wall -Werror=format-security -Wp,-D_FORTIFY_SOURCE=2 -Wp,-D_GLIBCXX_ASSERTIONS -specs=/usr/lib/rpm/redhat/redhat-hardened-cc1 -fstack-protector-strong -specs=/usr/lib/rpm/redhat/redhat-annobin-cc1  -fasynchronous-unwind-tables -fstack-clash-protection -I/usr/lib64/gfortran/modules'
+ export FCFLAGS
+ LDFLAGS='-Wl,-z,relro -Wl,--as-needed  -Wl,-z,now -specs=/usr/lib/rpm/redhat/redhat-hardened-ld '
+ export LDFLAGS
+ LT_SYS_LIBRARY_PATH=/usr/lib64:
+ export LT_SYS_LIBRARY_PATH
+ CC=gcc
+ export CC
+ CXX=g++
+ export CXX
+ cmake -DCMAKE_C_FLAGS_RELEASE:STRING=-DNDEBUG -DCMAKE_CXX_FLAGS_RELEASE:STRING=-DNDEBUG -DCMAKE_Fortran_FLAGS_RELEASE:STRING=-DNDEBUG -DCMAKE_VERBOSE_MAKEFILE:BOOL=ON -DCMAKE_INSTALL_INCLUDEDIR:PATH=/usr/include -DCMAKE_INSTALL_LIBDIR:PATH=/usr/lib64 -DSYSCONF_INSTALL_DIR:PATH=/etc -DSHARE_INSTALL_PREFIX:PATH=/usr/share -DCMAKE_SKIP_RPATH:BOOL=ON -DCMAKE_INSTALL_PREFIX:PATH=/usr -DBUILD_SHARED_LIBS:BOOL=ON -DNRN_ENABLE_SHARED=ON -DNRN_ENABLE_INTERVIEWS=ON -DNRN_ENABLE_PYTHON=ON -DNRN_ENABLE_PYTHON_DYNAMIC=OFF -DNRN_ENABLE_THREADS=ON -DNRN_ENABLE_MEMACS=ON -DNRN_ENABLE_RX3D=ON -DNRN_ENABLE_CORENEURON=OFF -DNRN_ENABLE_TESTS=ON -DNRN_ENABLE_REL_RPATH=OFF -DNRN_ENABLE_MODULE_INSTALL=ON -DNRN_ENABLE_INTERNAL_READLINE=OFF -DNRN_ENABLE_MPI=OFF -DMPI_INCLUDE_PATH=/usr/include -DMPI_LIBRARY= -DLIB_SUFFIX=64 -B riscv64-redhat-linux-gnu
-- The C compiler identification is GNU 10.2.1
-- The CXX compiler identification is GNU 10.2.1
-- Detecting C compiler ABI info
-- Detecting C compiler ABI info - done
-- Check for working C compiler: /usr/bin/gcc - skipped
-- Detecting C compile features
-- Detecting C compile features - done
-- Detecting CXX compiler ABI info
-- Detecting CXX compiler ABI info - done
-- Check for working CXX compiler: /usr/bin/g++ - skipped
-- Detecting CXX compile features
-- Detecting CXX compile features - done
-- Setting build type to 'RelWithDebInfo' as none was specified.
-- Found BISON: /usr/bin/bison (found version "3.6.4") 
-- Found FLEX: /usr/bin/flex (found version "2.6.4") 
-- Found Readline: /usr/include  
-- Found PythonInterp: /usr/bin/python3.9 (found version "3.9.1") 
-- Found Cython: /usr/bin/cython (found version "0.29.21") 
-- Using external Interviews from 
-- Found PythonInterp: /usr/bin/python3.9 (found suitable version "3.9.1", minimum required is "3") 
-- Found PythonLibs: /usr/lib64/libpython3.9.so
-- Check if compiler accepts -pthread
-- Check if compiler accepts -pthread - yes
-- Found Threads: TRUE  
-- Found pytest: /usr/lib/python3.9/site-packages/pytest (found version "6.0.2") 
-- 
-- Configured NEURON 7.8
-- 
-- Some things you can do now:
-- --------------+--------------------------------------------------------------
-- Command       |   Description
-- --------------+--------------------------------------------------------------
-- make install  | Will install NEURON to: /usr
--               | Change the install location of NEURON using:
--               |     cmake <src_path> -DCMAKE_INSTALL_PREFIX=<install_path>
-- make docs     | Build the API documentation
-- make uninstall| Removes files installed by make install (todo)
-- --------------+--------------------------------------------------------------
--  Build option | Status
-- --------------+--------------------------------------------------------------
-- BUILD_TYPE    | RelWithDebInfo (allowed: Custom;Debug;Release;RelWithDebInfo;Fast)
-- COMPILE FLAGS |   
-- Shared        | ON
-- Binary special| OFF
-- Legacy FR     | ON
-- MPI           | OFF
-- Python        | ON
--   EXE         | /usr/bin/python3.9
--   INC         | /usr/include/python3.9
--   LIB         | /usr/lib64/libpython3.9.so
--   MODULE      | ON
--   DYNAMIC     | OFF
-- Readline      | /usr/lib64/libreadline.so
-- Curses        | /usr/lib64/libcurses.so;/usr/lib64/libform.so
-- RX3D          | ON
--   OptLevel    | 0
-- Interviews    | ON
--   PATH        | 
--   INC         | /usr/include
--   X11 (INC)   | /usr/include
-- CoreNEURON    | OFF
-- --------------+--------------------------------------------------------------
--  See documentation : https://www.neuron.yale.edu/neuron/
-- --------------+--------------------------------------------------------------
-- 
-- Configuring done
-- Generating done
CMake Warning:
  Manually-specified variables were not used by the project:
    CMAKE_Fortran_FLAGS_RELEASE
    LIB_SUFFIX
    MPI_INCLUDE_PATH
    MPI_LIBRARY
    SHARE_INSTALL_PREFIX
    SYSCONF_INSTALL_DIR
-- Build files have been written to: /builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu
+ /usr/bin/make -O -j4 V=1 VERBOSE=1 -C riscv64-redhat-linux-gnu
make: Entering directory '/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu'
/usr/bin/cmake -S/builddir/build/BUILD/nrn-7.8.1 -B/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu --check-build-system CMakeFiles/Makefile.cmake 0
make: Leaving directory '/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu'
make: Entering directory '/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu'
/usr/bin/cmake -E cmake_progress_start /builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/CMakeFiles /builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu//CMakeFiles/progress.marks
make: Leaving directory '/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu'
/usr/bin/make  -f CMakeFiles/Makefile2 all
/usr/bin/make  -f src/nrniv/CMakeFiles/nocmodl.dir/build.make src/nrniv/CMakeFiles/nocmodl.dir/depend
/usr/bin/make  -f CMakeFiles/hh_update.dir/build.make CMakeFiles/hh_update.dir/depend
/usr/bin/make  -f src/nrniv/CMakeFiles/modlunit.dir/build.make src/nrniv/CMakeFiles/modlunit.dir/depend
/usr/bin/make  -f src/nrnpython/CMakeFiles/rxdmath.dir/build.make src/nrnpython/CMakeFiles/rxdmath.dir/depend
make[2]: Entering directory '/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu'
cd /builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu && /usr/bin/cmake -E cmake_depends "Unix Makefiles" /builddir/build/BUILD/nrn-7.8.1 /builddir/build/BUILD/nrn-7.8.1/src/nrnpython /builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu /builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/nrnpython /builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/nrnpython/CMakeFiles/rxdmath.dir/DependInfo.cmake --color=
Dependee "/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/nrnpython/CMakeFiles/rxdmath.dir/DependInfo.cmake" is newer than depender "/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/nrnpython/CMakeFiles/rxdmath.dir/depend.internal".
Dependee "/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/nrnpython/CMakeFiles/CMakeDirectoryInformation.cmake" is newer than depender "/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/nrnpython/CMakeFiles/rxdmath.dir/depend.internal".
Scanning dependencies of target rxdmath
make[2]: Leaving directory '/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu'
/usr/bin/make  -f src/nrnpython/CMakeFiles/rxdmath.dir/build.make src/nrnpython/CMakeFiles/rxdmath.dir/build
make[2]: Entering directory '/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu'
cd /builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu && /usr/bin/cmake -E cmake_depends "Unix Makefiles" /builddir/build/BUILD/nrn-7.8.1 /builddir/build/BUILD/nrn-7.8.1 /builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu /builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu /builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/CMakeFiles/hh_update.dir/DependInfo.cmake --color=
Dependee "/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/CMakeFiles/hh_update.dir/DependInfo.cmake" is newer than depender "/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/CMakeFiles/hh_update.dir/depend.internal".
Dependee "/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/CMakeFiles/CMakeDirectoryInformation.cmake" is newer than depender "/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/CMakeFiles/hh_update.dir/depend.internal".
Scanning dependencies of target hh_update
make[2]: Leaving directory '/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu'
/usr/bin/make  -f CMakeFiles/hh_update.dir/build.make CMakeFiles/hh_update.dir/build
make[2]: Entering directory '/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu'
[  0%] [FLEX][nocmodllexer] Building scanner with flex 2.6.4
cd /builddir/build/BUILD/nrn-7.8.1/src/nrniv && /usr/bin/flex -o/builddir/build/BUILD/nrn-7.8.1/src/nmodl/lex.c /builddir/build/BUILD/nrn-7.8.1/src/nmodl/lex.l
make[2]: Leaving directory '/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu'
make[2]: Entering directory '/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu'
[  0%] [FLEX][modlunitlexer] Building scanner with flex 2.6.4
cd /builddir/build/BUILD/nrn-7.8.1/src/nrniv && /usr/bin/flex -o/builddir/build/BUILD/nrn-7.8.1/src/modlunit/lex.c /builddir/build/BUILD/nrn-7.8.1/src/modlunit/lex.l
make[2]: Leaving directory '/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu'
make[2]: Entering directory '/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu'
[  1%] Update hh.mod for CoreNEURON compatibility
sed "s/ RANGE minf/ GLOBAL minf/" /builddir/build/BUILD/nrn-7.8.1/src/nrnoc/hh.mod > /builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/hh.mod.1
sed "s/ :TABLE minf/ TABLE minf/" /builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/hh.mod.1 > /builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/hh.mod.2
/usr/bin/cmake -E copy_if_different /builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/hh.mod.2 /builddir/build/BUILD/nrn-7.8.1/src/nrnoc/hh.mod
/usr/bin/cmake -E remove /builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/hh.mod.1 /builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/hh.mod.2
make[2]: Leaving directory '/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu'
make[1]: Entering directory '/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu'
[  1%] Built target hh_update
make[1]: Leaving directory '/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu'
/usr/bin/make  -f share/lib/python/neuron/rxd/geometry3d/CMakeFiles/rxd_cython_generated.dir/build.make share/lib/python/neuron/rxd/geometry3d/CMakeFiles/rxd_cython_generated.dir/depend
make[2]: Entering directory '/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu'
cd /builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu && /usr/bin/cmake -E cmake_depends "Unix Makefiles" /builddir/build/BUILD/nrn-7.8.1 /builddir/build/BUILD/nrn-7.8.1/share/lib/python/neuron/rxd/geometry3d /builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu /builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/share/lib/python/neuron/rxd/geometry3d /builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/share/lib/python/neuron/rxd/geometry3d/CMakeFiles/rxd_cython_generated.dir/DependInfo.cmake --color=
Dependee "/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/share/lib/python/neuron/rxd/geometry3d/CMakeFiles/rxd_cython_generated.dir/DependInfo.cmake" is newer than depender "/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/share/lib/python/neuron/rxd/geometry3d/CMakeFiles/rxd_cython_generated.dir/depend.internal".
Dependee "/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/share/lib/python/neuron/rxd/geometry3d/CMakeFiles/CMakeDirectoryInformation.cmake" is newer than depender "/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/share/lib/python/neuron/rxd/geometry3d/CMakeFiles/rxd_cython_generated.dir/depend.internal".
Scanning dependencies of target rxd_cython_generated
make[2]: Leaving directory '/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu'
/usr/bin/make  -f share/lib/python/neuron/rxd/geometry3d/CMakeFiles/rxd_cython_generated.dir/build.make share/lib/python/neuron/rxd/geometry3d/CMakeFiles/rxd_cython_generated.dir/build
make[2]: Entering directory '/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu'
[  1%] Building C object src/nrnpython/CMakeFiles/rxdmath.dir/rxdmath.c.o
cd /builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/nrnpython && /usr/bin/gcc -DHAVE_CONFIG_H -Drxdmath_EXPORTS  -O2 -flto=auto -ffat-lto-objects -fexceptions -g -grecord-gcc-switches -pipe -Wall -Werror=format-security -Wp,-D_FORTIFY_SOURCE=2 -Wp,-D_GLIBCXX_ASSERTIONS -specs=/usr/lib/rpm/redhat/redhat-hardened-cc1 -fstack-protector-strong -specs=/usr/lib/rpm/redhat/redhat-annobin-cc1  -fasynchronous-unwind-tables -fstack-clash-protection -fPIC -o CMakeFiles/rxdmath.dir/rxdmath.c.o -c /builddir/build/BUILD/nrn-7.8.1/src/nrnpython/rxdmath.c
make[2]: Leaving directory '/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu'
make[2]: Entering directory '/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu'
[  1%] Linking C shared library ../../lib/librxdmath.so
cd /builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/nrnpython && /usr/bin/cmake -E cmake_link_script CMakeFiles/rxdmath.dir/link.txt --verbose=1
/usr/bin/gcc -fPIC -O2 -flto=auto -ffat-lto-objects -fexceptions -g -grecord-gcc-switches -pipe -Wall -Werror=format-security -Wp,-D_FORTIFY_SOURCE=2 -Wp,-D_GLIBCXX_ASSERTIONS -specs=/usr/lib/rpm/redhat/redhat-hardened-cc1 -fstack-protector-strong -specs=/usr/lib/rpm/redhat/redhat-annobin-cc1  -fasynchronous-unwind-tables -fstack-clash-protection -Wl,-z,relro -Wl,--as-needed  -Wl,-z,now -specs=/usr/lib/rpm/redhat/redhat-hardened-ld -shared -Wl,-soname,librxdmath.so.0.0.0 -o ../../lib/librxdmath.so.0.0.0 CMakeFiles/rxdmath.dir/rxdmath.c.o 
cd /builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/nrnpython && /usr/bin/cmake -E cmake_symlink_library ../../lib/librxdmath.so.0.0.0 ../../lib/librxdmath.so.0.0.0 ../../lib/librxdmath.so
make[2]: Leaving directory '/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu'
make[1]: Entering directory '/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu'
[  1%] Built target rxdmath
make[1]: Leaving directory '/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu'
make[2]: Entering directory '/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu'
[  0%] [BISON][modlunitparser] Building parser with bison 3.6.4
cd /builddir/build/BUILD/nrn-7.8.1/src/nrniv && /usr/bin/bison --defines=/builddir/build/BUILD/nrn-7.8.1/src/modlunit/parse1.h -o /builddir/build/BUILD/nrn-7.8.1/src/modlunit/parse1.c /builddir/build/BUILD/nrn-7.8.1/src/modlunit/parse1.y
make[2]: Leaving directory '/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu'
make[2]: Entering directory '/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu'
cd /builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu && /usr/bin/cmake -E cmake_depends "Unix Makefiles" /builddir/build/BUILD/nrn-7.8.1 /builddir/build/BUILD/nrn-7.8.1/src/nrniv /builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu /builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/nrniv /builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/nrniv/CMakeFiles/modlunit.dir/DependInfo.cmake --color=
Dependee "/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/nrniv/CMakeFiles/modlunit.dir/DependInfo.cmake" is newer than depender "/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/nrniv/CMakeFiles/modlunit.dir/depend.internal".
Dependee "/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/nrniv/CMakeFiles/CMakeDirectoryInformation.cmake" is newer than depender "/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/nrniv/CMakeFiles/modlunit.dir/depend.internal".
Scanning dependencies of target modlunit
make[2]: Leaving directory '/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu'
/usr/bin/make  -f src/nrniv/CMakeFiles/modlunit.dir/build.make src/nrniv/CMakeFiles/modlunit.dir/build
make[2]: Entering directory '/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu'
[  0%] [BISON][nocmodlparser] Building parser with bison 3.6.4
cd /builddir/build/BUILD/nrn-7.8.1/src/nrniv && /usr/bin/bison --defines=/builddir/build/BUILD/nrn-7.8.1/src/nmodl/parse1.h -o /builddir/build/BUILD/nrn-7.8.1/src/nmodl/parse1.c /builddir/build/BUILD/nrn-7.8.1/src/nmodl/parse1.y
make[2]: Leaving directory '/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu'
/builddir/build/BUILD/nrn-7.8.1/src/nmodl/parse1.y: warning: 3 shift/reduce conflicts [-Wconflicts-sr]
make[2]: Entering directory '/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu'
[  2%] [BISON][nocmodlparser] Building parser with bison 3.6.4
cd /builddir/build/BUILD/nrn-7.8.1/src/nrniv && /usr/bin/bison --defines=/builddir/build/BUILD/nrn-7.8.1/src/nmodl/diffeq.h -o /builddir/build/BUILD/nrn-7.8.1/src/nmodl/diffeq.c /builddir/build/BUILD/nrn-7.8.1/src/nmodl/diffeq.y
make[2]: Leaving directory '/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu'
/builddir/build/BUILD/nrn-7.8.1/src/nmodl/diffeq.y: warning: 5 shift/reduce conflicts [-Wconflicts-sr]
make[2]: Entering directory '/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu'
cd /builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu && /usr/bin/cmake -E cmake_depends "Unix Makefiles" /builddir/build/BUILD/nrn-7.8.1 /builddir/build/BUILD/nrn-7.8.1/src/nrniv /builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu /builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/nrniv /builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/nrniv/CMakeFiles/nocmodl.dir/DependInfo.cmake --color=
Dependee "/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/nrniv/CMakeFiles/nocmodl.dir/DependInfo.cmake" is newer than depender "/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/nrniv/CMakeFiles/nocmodl.dir/depend.internal".
Dependee "/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/nrniv/CMakeFiles/CMakeDirectoryInformation.cmake" is newer than depender "/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/nrniv/CMakeFiles/nocmodl.dir/depend.internal".
Scanning dependencies of target nocmodl
make[2]: Leaving directory '/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu'
/usr/bin/make  -f src/nrniv/CMakeFiles/nocmodl.dir/build.make src/nrniv/CMakeFiles/nocmodl.dir/build
make[2]: Entering directory '/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu'
[  2%] Building C object src/nrniv/CMakeFiles/modlunit.dir/__/modlunit/parse1.c.o
cd /builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/nrniv && /usr/bin/gcc -DHAVE_CONFIG_H -DNRNUNIT=1 -I/builddir/build/BUILD/nrn-7.8.1/src/ivoc -I/builddir/build/BUILD/nrn-7.8.1/src/nrniv -I/builddir/build/BUILD/nrn-7.8.1/src/nrnoc -I/builddir/build/BUILD/nrn-7.8.1/src/oc -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/nrncvode -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/nrnjava -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/nrnoc -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/nrnpython -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/oc -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/parallel -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/sundials -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/sundials/shared -I/builddir/build/BUILD/nrn-7.8.1/src -I/builddir/build/BUILD/nrn-7.8.1/src/gnu -I/builddir/build/BUILD/nrn-7.8.1/src/memacs -I/builddir/build/BUILD/nrn-7.8.1/src/mesch -I/builddir/build/BUILD/nrn-7.8.1/src/nrncvode -I/builddir/build/BUILD/nrn-7.8.1/src/nrnmpi -I/builddir/build/BUILD/nrn-7.8.1/src/nrnpython -I/builddir/build/BUILD/nrn-7.8.1/src/parallel -I/builddir/build/BUILD/nrn-7.8.1/src/sparse -I/builddir/build/BUILD/nrn-7.8.1/src/sparse13 -I/builddir/build/BUILD/nrn-7.8.1/src/sundials -I/builddir/build/BUILD/nrn-7.8.1/src/sundials/cvodes -I/builddir/build/BUILD/nrn-7.8.1/src/sundials/ida -I/builddir/build/BUILD/nrn-7.8.1/src/sundials/shared -I/usr/include/python3.9 -O2 -flto=auto -ffat-lto-objects -fexceptions -g -grecord-gcc-switches -pipe -Wall -Werror=format-security -Wp,-D_FORTIFY_SOURCE=2 -Wp,-D_GLIBCXX_ASSERTIONS -specs=/usr/lib/rpm/redhat/redhat-hardened-cc1 -fstack-protector-strong -specs=/usr/lib/rpm/redhat/redhat-annobin-cc1  -fasynchronous-unwind-tables -fstack-clash-protection -o CMakeFiles/modlunit.dir/__/modlunit/parse1.c.o -c /builddir/build/BUILD/nrn-7.8.1/src/modlunit/parse1.c
make[2]: Leaving directory '/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu'
/builddir/build/BUILD/nrn-7.8.1/src/modlunit/parse1.y: In function 'yyparse':
/builddir/build/BUILD/nrn-7.8.1/src/modlunit/parse1.y:292:37: warning: unused variable 'd' [-Wunused-variable]
  292 |   {P1{Item *q; double d, unit_mag();
      |                                     ^
/builddir/build/BUILD/nrn-7.8.1/src/modlunit/parse1.y:292:27: warning: unused variable 'q' [-Wunused-variable]
  292 |   {P1{Item *q; double d, unit_mag();
      |                           ^
make[2]: Entering directory '/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu'
[  2%] Building C object src/nrniv/CMakeFiles/nocmodl.dir/__/nmodl/parse1.c.o
cd /builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/nrniv && /usr/bin/gcc -DHAVE_CONFIG_H -DCVODE=1 -DNMODL=1 -DNOCMODL=1 -DVECTORIZE=1 -I/builddir/build/BUILD/nrn-7.8.1/src/ivoc -I/builddir/build/BUILD/nrn-7.8.1/src/nrniv -I/builddir/build/BUILD/nrn-7.8.1/src/nrnoc -I/builddir/build/BUILD/nrn-7.8.1/src/oc -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/nrncvode -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/nrnjava -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/nrnoc -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/nrnpython -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/oc -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/parallel -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/sundials -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/sundials/shared -I/builddir/build/BUILD/nrn-7.8.1/src -I/builddir/build/BUILD/nrn-7.8.1/src/gnu -I/builddir/build/BUILD/nrn-7.8.1/src/memacs -I/builddir/build/BUILD/nrn-7.8.1/src/mesch -I/builddir/build/BUILD/nrn-7.8.1/src/nrncvode -I/builddir/build/BUILD/nrn-7.8.1/src/nrnmpi -I/builddir/build/BUILD/nrn-7.8.1/src/nrnpython -I/builddir/build/BUILD/nrn-7.8.1/src/parallel -I/builddir/build/BUILD/nrn-7.8.1/src/sparse -I/builddir/build/BUILD/nrn-7.8.1/src/sparse13 -I/builddir/build/BUILD/nrn-7.8.1/src/sundials -I/builddir/build/BUILD/nrn-7.8.1/src/sundials/cvodes -I/builddir/build/BUILD/nrn-7.8.1/src/sundials/ida -I/builddir/build/BUILD/nrn-7.8.1/src/sundials/shared -I/usr/include/python3.9 -O2 -flto=auto -ffat-lto-objects -fexceptions -g -grecord-gcc-switches -pipe -Wall -Werror=format-security -Wp,-D_FORTIFY_SOURCE=2 -Wp,-D_GLIBCXX_ASSERTIONS -specs=/usr/lib/rpm/redhat/redhat-hardened-cc1 -fstack-protector-strong -specs=/usr/lib/rpm/redhat/redhat-annobin-cc1  -fasynchronous-unwind-tables -fstack-clash-protection -o CMakeFiles/nocmodl.dir/__/nmodl/parse1.c.o -c /builddir/build/BUILD/nrn-7.8.1/src/nmodl/parse1.c
make[2]: Leaving directory '/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu'
/builddir/build/BUILD/nrn-7.8.1/src/nmodl/parse1.y: In function 'yyparse':
/builddir/build/BUILD/nrn-7.8.1/src/nmodl/parse1.y:1127:34: warning: unused variable 'd' [-Wunused-variable]
 1127 |   {Item *q; double d, unit_mag();
      |                                  ^
/builddir/build/BUILD/nrn-7.8.1/src/nmodl/parse1.y:1127:24: warning: unused variable 'q' [-Wunused-variable]
 1127 |   {Item *q; double d, unit_mag();
      |                        ^
make[2]: Entering directory '/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu'
[  2%] Building C object src/nrniv/CMakeFiles/modlunit.dir/__/modlunit/lex.c.o
cd /builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/nrniv && /usr/bin/gcc -DHAVE_CONFIG_H -DNRNUNIT=1 -I/builddir/build/BUILD/nrn-7.8.1/src/ivoc -I/builddir/build/BUILD/nrn-7.8.1/src/nrniv -I/builddir/build/BUILD/nrn-7.8.1/src/nrnoc -I/builddir/build/BUILD/nrn-7.8.1/src/oc -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/nrncvode -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/nrnjava -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/nrnoc -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/nrnpython -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/oc -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/parallel -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/sundials -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/sundials/shared -I/builddir/build/BUILD/nrn-7.8.1/src -I/builddir/build/BUILD/nrn-7.8.1/src/gnu -I/builddir/build/BUILD/nrn-7.8.1/src/memacs -I/builddir/build/BUILD/nrn-7.8.1/src/mesch -I/builddir/build/BUILD/nrn-7.8.1/src/nrncvode -I/builddir/build/BUILD/nrn-7.8.1/src/nrnmpi -I/builddir/build/BUILD/nrn-7.8.1/src/nrnpython -I/builddir/build/BUILD/nrn-7.8.1/src/parallel -I/builddir/build/BUILD/nrn-7.8.1/src/sparse -I/builddir/build/BUILD/nrn-7.8.1/src/sparse13 -I/builddir/build/BUILD/nrn-7.8.1/src/sundials -I/builddir/build/BUILD/nrn-7.8.1/src/sundials/cvodes -I/builddir/build/BUILD/nrn-7.8.1/src/sundials/ida -I/builddir/build/BUILD/nrn-7.8.1/src/sundials/shared -I/usr/include/python3.9 -O2 -flto=auto -ffat-lto-objects -fexceptions -g -grecord-gcc-switches -pipe -Wall -Werror=format-security -Wp,-D_FORTIFY_SOURCE=2 -Wp,-D_GLIBCXX_ASSERTIONS -specs=/usr/lib/rpm/redhat/redhat-hardened-cc1 -fstack-protector-strong -specs=/usr/lib/rpm/redhat/redhat-annobin-cc1  -fasynchronous-unwind-tables -fstack-clash-protection -o CMakeFiles/modlunit.dir/__/modlunit/lex.c.o -c /builddir/build/BUILD/nrn-7.8.1/src/modlunit/lex.c
make[2]: Leaving directory '/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu'
/builddir/build/BUILD/nrn-7.8.1/src/modlunit/lex.c:1471:16: warning: 'input' defined but not used [-Wunused-function]
 1471 | #else
      |                ^    
/builddir/build/BUILD/nrn-7.8.1/src/modlunit/lex.c:1428:17: warning: 'yyunput' defined but not used [-Wunused-function]
 1428 | 
      |                 ^      
make[2]: Entering directory '/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu'
[  1%] Generating ctng.cpp
cd /builddir/build/BUILD/nrn-7.8.1/share/lib/python/neuron/rxd/geometry3d && /usr/bin/cython -2 ctng.pyx -o /builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/share/lib/python/neuron/rxd/geometry3d/ctng.cpp
cd /builddir/build/BUILD/nrn-7.8.1/share/lib/python/neuron/rxd/geometry3d && bash /builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/share/lib/python/neuron/rxd/geometry3d/cy_cpp_filt.sh /builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/share/lib/python/neuron/rxd/geometry3d/ctng.cpp
make[2]: Leaving directory '/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu'
+ file=/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/share/lib/python/neuron/rxd/geometry3d/ctng.cpp
+ mingw=
+ test x = x1
make[2]: Entering directory '/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu'
[  1%] Generating surfaces.cpp
cd /builddir/build/BUILD/nrn-7.8.1/share/lib/python/neuron/rxd/geometry3d && /usr/bin/cython -2 surfaces.pyx -o /builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/share/lib/python/neuron/rxd/geometry3d/surfaces.cpp
cd /builddir/build/BUILD/nrn-7.8.1/share/lib/python/neuron/rxd/geometry3d && bash /builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/share/lib/python/neuron/rxd/geometry3d/cy_cpp_filt.sh /builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/share/lib/python/neuron/rxd/geometry3d/surfaces.cpp
make[2]: Leaving directory '/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu'
+ file=/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/share/lib/python/neuron/rxd/geometry3d/surfaces.cpp
+ mingw=
+ test x = x1
make[2]: Entering directory '/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu'
[  3%] Building C object src/nrniv/CMakeFiles/modlunit.dir/__/modlunit/consist.c.o
cd /builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/nrniv && /usr/bin/gcc -DHAVE_CONFIG_H -DNRNUNIT=1 -I/builddir/build/BUILD/nrn-7.8.1/src/ivoc -I/builddir/build/BUILD/nrn-7.8.1/src/nrniv -I/builddir/build/BUILD/nrn-7.8.1/src/nrnoc -I/builddir/build/BUILD/nrn-7.8.1/src/oc -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/nrncvode -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/nrnjava -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/nrnoc -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/nrnpython -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/oc -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/parallel -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/sundials -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/sundials/shared -I/builddir/build/BUILD/nrn-7.8.1/src -I/builddir/build/BUILD/nrn-7.8.1/src/gnu -I/builddir/build/BUILD/nrn-7.8.1/src/memacs -I/builddir/build/BUILD/nrn-7.8.1/src/mesch -I/builddir/build/BUILD/nrn-7.8.1/src/nrncvode -I/builddir/build/BUILD/nrn-7.8.1/src/nrnmpi -I/builddir/build/BUILD/nrn-7.8.1/src/nrnpython -I/builddir/build/BUILD/nrn-7.8.1/src/parallel -I/builddir/build/BUILD/nrn-7.8.1/src/sparse -I/builddir/build/BUILD/nrn-7.8.1/src/sparse13 -I/builddir/build/BUILD/nrn-7.8.1/src/sundials -I/builddir/build/BUILD/nrn-7.8.1/src/sundials/cvodes -I/builddir/build/BUILD/nrn-7.8.1/src/sundials/ida -I/builddir/build/BUILD/nrn-7.8.1/src/sundials/shared -I/usr/include/python3.9 -O2 -flto=auto -ffat-lto-objects -fexceptions -g -grecord-gcc-switches -pipe -Wall -Werror=format-security -Wp,-D_FORTIFY_SOURCE=2 -Wp,-D_GLIBCXX_ASSERTIONS -specs=/usr/lib/rpm/redhat/redhat-hardened-cc1 -fstack-protector-strong -specs=/usr/lib/rpm/redhat/redhat-annobin-cc1  -fasynchronous-unwind-tables -fstack-clash-protection -o CMakeFiles/modlunit.dir/__/modlunit/consist.c.o -c /builddir/build/BUILD/nrn-7.8.1/src/modlunit/consist.c
make[2]: Leaving directory '/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu'
make[2]: Entering directory '/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu'
[  3%] Building C object src/nrniv/CMakeFiles/modlunit.dir/__/modlunit/declare.c.o
cd /builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/nrniv && /usr/bin/gcc -DHAVE_CONFIG_H -DNRNUNIT=1 -I/builddir/build/BUILD/nrn-7.8.1/src/ivoc -I/builddir/build/BUILD/nrn-7.8.1/src/nrniv -I/builddir/build/BUILD/nrn-7.8.1/src/nrnoc -I/builddir/build/BUILD/nrn-7.8.1/src/oc -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/nrncvode -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/nrnjava -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/nrnoc -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/nrnpython -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/oc -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/parallel -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/sundials -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/sundials/shared -I/builddir/build/BUILD/nrn-7.8.1/src -I/builddir/build/BUILD/nrn-7.8.1/src/gnu -I/builddir/build/BUILD/nrn-7.8.1/src/memacs -I/builddir/build/BUILD/nrn-7.8.1/src/mesch -I/builddir/build/BUILD/nrn-7.8.1/src/nrncvode -I/builddir/build/BUILD/nrn-7.8.1/src/nrnmpi -I/builddir/build/BUILD/nrn-7.8.1/src/nrnpython -I/builddir/build/BUILD/nrn-7.8.1/src/parallel -I/builddir/build/BUILD/nrn-7.8.1/src/sparse -I/builddir/build/BUILD/nrn-7.8.1/src/sparse13 -I/builddir/build/BUILD/nrn-7.8.1/src/sundials -I/builddir/build/BUILD/nrn-7.8.1/src/sundials/cvodes -I/builddir/build/BUILD/nrn-7.8.1/src/sundials/ida -I/builddir/build/BUILD/nrn-7.8.1/src/sundials/shared -I/usr/include/python3.9 -O2 -flto=auto -ffat-lto-objects -fexceptions -g -grecord-gcc-switches -pipe -Wall -Werror=format-security -Wp,-D_FORTIFY_SOURCE=2 -Wp,-D_GLIBCXX_ASSERTIONS -specs=/usr/lib/rpm/redhat/redhat-hardened-cc1 -fstack-protector-strong -specs=/usr/lib/rpm/redhat/redhat-annobin-cc1  -fasynchronous-unwind-tables -fstack-clash-protection -o CMakeFiles/modlunit.dir/__/modlunit/declare.c.o -c /builddir/build/BUILD/nrn-7.8.1/src/modlunit/declare.c
make[2]: Leaving directory '/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu'
make[2]: Entering directory '/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu'
[  3%] Building C object src/nrniv/CMakeFiles/modlunit.dir/__/modlunit/init.c.o
cd /builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/nrniv && /usr/bin/gcc -DHAVE_CONFIG_H -DNRNUNIT=1 -I/builddir/build/BUILD/nrn-7.8.1/src/ivoc -I/builddir/build/BUILD/nrn-7.8.1/src/nrniv -I/builddir/build/BUILD/nrn-7.8.1/src/nrnoc -I/builddir/build/BUILD/nrn-7.8.1/src/oc -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/nrncvode -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/nrnjava -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/nrnoc -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/nrnpython -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/oc -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/parallel -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/sundials -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/sundials/shared -I/builddir/build/BUILD/nrn-7.8.1/src -I/builddir/build/BUILD/nrn-7.8.1/src/gnu -I/builddir/build/BUILD/nrn-7.8.1/src/memacs -I/builddir/build/BUILD/nrn-7.8.1/src/mesch -I/builddir/build/BUILD/nrn-7.8.1/src/nrncvode -I/builddir/build/BUILD/nrn-7.8.1/src/nrnmpi -I/builddir/build/BUILD/nrn-7.8.1/src/nrnpython -I/builddir/build/BUILD/nrn-7.8.1/src/parallel -I/builddir/build/BUILD/nrn-7.8.1/src/sparse -I/builddir/build/BUILD/nrn-7.8.1/src/sparse13 -I/builddir/build/BUILD/nrn-7.8.1/src/sundials -I/builddir/build/BUILD/nrn-7.8.1/src/sundials/cvodes -I/builddir/build/BUILD/nrn-7.8.1/src/sundials/ida -I/builddir/build/BUILD/nrn-7.8.1/src/sundials/shared -I/usr/include/python3.9 -O2 -flto=auto -ffat-lto-objects -fexceptions -g -grecord-gcc-switches -pipe -Wall -Werror=format-security -Wp,-D_FORTIFY_SOURCE=2 -Wp,-D_GLIBCXX_ASSERTIONS -specs=/usr/lib/rpm/redhat/redhat-hardened-cc1 -fstack-protector-strong -specs=/usr/lib/rpm/redhat/redhat-annobin-cc1  -fasynchronous-unwind-tables -fstack-clash-protection -o CMakeFiles/modlunit.dir/__/modlunit/init.c.o -c /builddir/build/BUILD/nrn-7.8.1/src/modlunit/init.c
make[2]: Leaving directory '/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu'
/builddir/build/BUILD/nrn-7.8.1/src/modlunit/init.c:18:30: warning: missing braces around initializer [-Wmissing-braces]
   18 | }               keywords[] = {
      |                              ^
   19 |                  "VERBATIM", VERBATIM,
      |                  {                   }
   20 |                  "ENDVERBATIM", END_VERBATIM, /* explicit in lex.l */
      |                  {                          }
   21 |                  "COMMENT", COMMENT,
      |                  {                 }
   22 |                  "ENDCOMMENT", END_COMMENT, /* explicit in lex.l */
      |                  {                        }
   23 |                  "TITLE", TITLE,
      |                  {             }
   24 |                  "CONSTANT", CONSTANT,
      |                  {                   }
   25 |                  "PARAMETER", PARAMETER,
      |                  {                     }
   26 |                  "INDEPENDENT", INDEPENDENT,
      |                  {                         }
   27 |                  "ASSIGNED", ASSIGNED,
      |                  {                   }
   28 |                  "INITIAL", INITIAL1,
      |                  {                  }
   29 |                  "TERMINAL", TERMINAL,
      |                  {                   }
   30 |                  "DERIVATIVE", DERIVATIVE,
      |                  {                       }
   31 |                  "EQUATION", EQUATION,
      |                  {                   }
   32 |                  "BREAKPOINT", BREAKPOINT,
      |                  {                       }
   33 |                  "CONDUCTANCE", CONDUCTANCE,
      |                  {                         }
   34 |                  "SOLVE", SOLVE,
      |                  {             }
   35 |                  "STATE", STATE,
      |                  {             }
   36 |                  "STEPPED", STEPPED,
      |                  {                 }
   37 |                  "LINEAR", LINEAR,
      |                  {               }
   38 |                  "NONLINEAR", NONLINEAR,
      |                  {                     }
   39 |                  "DISCRETE", DISCRETE,
      |                  {                   }
   40 |                  "FUNCTION", FUNCTION1,
      |                  {                    }
   41 |    "FUNCTION_TABLE", FUNCTION_TABLE,
      |    {                               }
   42 |                  "PROCEDURE", PROCEDURE,
      |                  {                     }
   43 |                  "PARTIAL", PARTIAL,
      |                  {                 }
   44 |                  "INT", INT,
      |                  {         }
   45 |    "DEL2", DEL2,
      |    {           }
   46 |                  "DEL", DEL,
      |                  {         }
   47 |                  "LOCAL", LOCAL,
      |                  {             }
   48 |                  "METHOD", USING,
      |                  {              }
   49 |                  "STEADYSTATE", USING,
      |                  {                   }
   50 |                  "SENS", SENS,
      |                  {           }
   51 |                  "STEP", STEP,
      |                  {           }
   52 |                  "WITH", WITH,
      |                  {           }
   53 |                  "FROM", FROM,
      |                  {           }
   54 |                  "TO", TO,
      |                  {       }
   55 |                  "BY", BY,
      |                  {       }
   56 |                  "if", IF,
      |                  {       }
   57 |                  "else", ELSE,
      |                  {           }
   58 |                  "while", WHILE,
      |                  {             }
   59 |                  "IF", IF,
      |                  {       }
   60 |                  "ELSE", ELSE,
      |                  {           }
   61 |                  "WHILE", WHILE,
      |                  {             }
   62 |                  "START", START1,
      |                  {              }
   63 |                  "DEFINE", DEFINE1,
      |                  {                }
   64 | 
   65 |                  "KINETIC", KINETIC,
      |                  {                 }
   66 |                  "CONSERVE", CONSERVE,
      |                  {                   }
   67 |    "PLOT", PLOT,
      |    {           }
   68 |    "VS", VS,
      |    {       }
   69 |    "LAG", LAG,
      |    {         }
   70 |    "RESET", RESET,
      |    {             }
   71 |    "MATCH", MATCH,
      |    {             }
   72 |    "MODEL_LEVEL", MODEL_LEVEL, /* inserted by merge */
      |    {                         }
   73 |    "SWEEP", SWEEP,
      |    {             }
   74 |    "FIRST", FIRST,
      |    {             }
   75 |    "LAST", LAST,
      |    {           }
   76 |    "COMPARTMENT", COMPARTMENT,
      |    {                         }
   77 |    "LONGITUDINAL_DIFFUSION", LONGDIFUS,
      |    {                                  }
   78 |    "PUTQ", PUTQ,
      |    {           }
   79 |    "GETQ", GETQ,
      |    {           }
   80 |    "IFERROR", IFERROR,
      |    {                 }
   81 |    "SOLVEFOR", SOLVEFOR,
      |    {                   }
   82 |    "UNITS", UNITBLK,
      |    {               }
   83 |    "UNITSON", UNITSON,
      |    {                 }
   84 |    "UNITSOFF", UNITSOFF,
      |    {                   }
   85 |    "TABLE", TABLE,
      |    {             }
   86 |    "DEPEND", DEPEND,
      |    {               }
   87 |    "NEURON", NEURON,
      |    {               }
   88 |    "SUFFIX", SUFFIX,
      |    {               }
   89 |    "POINT_PROCESS", SUFFIX,
      |    {                      }
   90 |    "ARTIFICIAL_CELL", SUFFIX,
      |    {                        }
   91 |    "NONSPECIFIC_CURRENT", NONSPECIFIC,
      |    {                                 }
   92 |    "ELECTRODE_CURRENT", ELECTRODE_CURRENT,
      |    {                                     }
   93 |    "USEION", USEION,
      |    {               }
   94 |    "READ", READ,
      |    {           }
   95 |    "WRITE", WRITE,
      |    {             }
   96 |    "RANGE", RANGE,
      |    {             }
   97 |    "SECTION", SECTION,
      |    {                 }
   98 |    "VALENCE", VALENCE,
      |    {                 }
   99 |    "GLOBAL", GLOBAL,
      |    {               }
  100 |    "POINTER", POINTER,
      |    {                 }
  101 |    "BBCOREPOINTER", POINTER,
      |    {                       }
  102 |    "EXTERNAL", EXTERNAL,
      |    {                   }
  103 |    "INCLUDE", INCLUDE1,
      |    {                  }
  104 |    "CONSTRUCTOR", CONSTRUCTOR,
      |    {                         }
  105 |    "DESTRUCTOR", DESTRUCTOR,
      |    {                       }
  106 |    "NET_RECEIVE", NETRECEIVE,
      |    {                        }
  107 |    "BEFORE", BEFORE, /* before NEURON sets up cy' = f(y,t) */
      |    {               }
  108 |    "AFTER", AFTER, /* after NEURON solves cy' = f(y, t) */
      |    {             }
  109 |    "WATCH", WATCH,
      |    {             }
  110 |    "FOR_NETCONS", FOR_NETCONS,
      |    {                         }
  111 |    "THREADSAFE", THREADSAFE,
      |    {                       }
  112 |    "PROTECT", PROTECT,
      |    {                 }
  113 |                         0, 0
      |                         {
  114 | };
      | }
/builddir/build/BUILD/nrn-7.8.1/src/modlunit/init.c:124:29: warning: missing braces around initializer [-Wmissing-braces]
  124 | }               special[] = {
      |                             ^
  125 |                  ";", SEMI, &semi,
      |                  {               }
  126 |                  "{", BEGINBLK, &beginblk,
      |                  {                       }
  127 |                  "}", ENDBLK, &endblk,
      |                  {                   }
  128 |                  0, 0, 0
      |                  {
  129 | };
      | }
/builddir/build/BUILD/nrn-7.8.1/src/modlunit/init.c:135:29: warning: missing braces around initializer [-Wmissing-braces]
  135 | }               methods[] = {
      |                             ^
  136 |                  "adams", DERF | KINF, 0,
      |                  {                      }
  137 |                  "runge", DERF | KINF, 0,
      |                  {                      }
  138 |                  "euler", DERF | KINF, 0,
      |                  {                      }
  139 |                  "adeuler", DERF | KINF, 1,
      |                  {                        }
  140 |                  "heun", DERF | KINF, 0,
      |                  {                     }
  141 |    "adrunge", DERF | KINF, 1,
      |    {                        }
  142 |                  "newton", NLINF, 0,
      |                  {                 }
  143 |                  "simplex", NLINF, 0,
      |                  {                  }
  144 |                  "simeq", LINF, 0,
      |                  {               }
  145 |                  "seidel", LINF, 0,
      |                  {                }
  146 |    "_advance", KINF, 0,
      |    {                  }
  147 |    "sparse", KINF, 0,
      |    {                }
  148 |    "derivimplicit", DERF, 0, /* name hard wired in deriv.c */
      |    {                       }
  149 |    "cnexp", DERF, 0,
      |    {               }
  150 |                  "clsoda", DERF | KINF, 0,   /* Tolerance built in to
      |                  {                       }
  151 | scopgear.c */
  152 |    "after_cvode", 0, 0,
      |    {                  }
  153 |    "cvode_t", 0, 0,
      |    {              }
  154 |    "cvode_t_v", 0, 0,
      |    {                }
  155 |                  0, 0, 0
      |                  {
  156 | };
      | }
make[2]: Entering directory '/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu'
[  3%] Building C object src/nrniv/CMakeFiles/nocmodl.dir/__/nmodl/diffeq.c.o
cd /builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/nrniv && /usr/bin/gcc -DHAVE_CONFIG_H -DCVODE=1 -DNMODL=1 -DNOCMODL=1 -DVECTORIZE=1 -I/builddir/build/BUILD/nrn-7.8.1/src/ivoc -I/builddir/build/BUILD/nrn-7.8.1/src/nrniv -I/builddir/build/BUILD/nrn-7.8.1/src/nrnoc -I/builddir/build/BUILD/nrn-7.8.1/src/oc -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/nrncvode -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/nrnjava -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/nrnoc -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/nrnpython -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/oc -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/parallel -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/sundials -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/sundials/shared -I/builddir/build/BUILD/nrn-7.8.1/src -I/builddir/build/BUILD/nrn-7.8.1/src/gnu -I/builddir/build/BUILD/nrn-7.8.1/src/memacs -I/builddir/build/BUILD/nrn-7.8.1/src/mesch -I/builddir/build/BUILD/nrn-7.8.1/src/nrncvode -I/builddir/build/BUILD/nrn-7.8.1/src/nrnmpi -I/builddir/build/BUILD/nrn-7.8.1/src/nrnpython -I/builddir/build/BUILD/nrn-7.8.1/src/parallel -I/builddir/build/BUILD/nrn-7.8.1/src/sparse -I/builddir/build/BUILD/nrn-7.8.1/src/sparse13 -I/builddir/build/BUILD/nrn-7.8.1/src/sundials -I/builddir/build/BUILD/nrn-7.8.1/src/sundials/cvodes -I/builddir/build/BUILD/nrn-7.8.1/src/sundials/ida -I/builddir/build/BUILD/nrn-7.8.1/src/sundials/shared -I/usr/include/python3.9 -O2 -flto=auto -ffat-lto-objects -fexceptions -g -grecord-gcc-switches -pipe -Wall -Werror=format-security -Wp,-D_FORTIFY_SOURCE=2 -Wp,-D_GLIBCXX_ASSERTIONS -specs=/usr/lib/rpm/redhat/redhat-hardened-cc1 -fstack-protector-strong -specs=/usr/lib/rpm/redhat/redhat-annobin-cc1  -fasynchronous-unwind-tables -fstack-clash-protection -o CMakeFiles/nocmodl.dir/__/nmodl/diffeq.c.o -c /builddir/build/BUILD/nrn-7.8.1/src/nmodl/diffeq.c
make[2]: Leaving directory '/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu'
make[2]: Entering directory '/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu'
[  4%] Building C object src/nrniv/CMakeFiles/modlunit.dir/__/modlunit/kinunit.c.o
cd /builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/nrniv && /usr/bin/gcc -DHAVE_CONFIG_H -DNRNUNIT=1 -I/builddir/build/BUILD/nrn-7.8.1/src/ivoc -I/builddir/build/BUILD/nrn-7.8.1/src/nrniv -I/builddir/build/BUILD/nrn-7.8.1/src/nrnoc -I/builddir/build/BUILD/nrn-7.8.1/src/oc -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/nrncvode -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/nrnjava -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/nrnoc -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/nrnpython -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/oc -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/parallel -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/sundials -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/sundials/shared -I/builddir/build/BUILD/nrn-7.8.1/src -I/builddir/build/BUILD/nrn-7.8.1/src/gnu -I/builddir/build/BUILD/nrn-7.8.1/src/memacs -I/builddir/build/BUILD/nrn-7.8.1/src/mesch -I/builddir/build/BUILD/nrn-7.8.1/src/nrncvode -I/builddir/build/BUILD/nrn-7.8.1/src/nrnmpi -I/builddir/build/BUILD/nrn-7.8.1/src/nrnpython -I/builddir/build/BUILD/nrn-7.8.1/src/parallel -I/builddir/build/BUILD/nrn-7.8.1/src/sparse -I/builddir/build/BUILD/nrn-7.8.1/src/sparse13 -I/builddir/build/BUILD/nrn-7.8.1/src/sundials -I/builddir/build/BUILD/nrn-7.8.1/src/sundials/cvodes -I/builddir/build/BUILD/nrn-7.8.1/src/sundials/ida -I/builddir/build/BUILD/nrn-7.8.1/src/sundials/shared -I/usr/include/python3.9 -O2 -flto=auto -ffat-lto-objects -fexceptions -g -grecord-gcc-switches -pipe -Wall -Werror=format-security -Wp,-D_FORTIFY_SOURCE=2 -Wp,-D_GLIBCXX_ASSERTIONS -specs=/usr/lib/rpm/redhat/redhat-hardened-cc1 -fstack-protector-strong -specs=/usr/lib/rpm/redhat/redhat-annobin-cc1  -fasynchronous-unwind-tables -fstack-clash-protection -o CMakeFiles/modlunit.dir/__/modlunit/kinunit.c.o -c /builddir/build/BUILD/nrn-7.8.1/src/modlunit/kinunit.c
make[2]: Leaving directory '/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu'
make[2]: Entering directory '/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu'
[  4%] Building C object src/nrniv/CMakeFiles/modlunit.dir/__/modlunit/io.c.o
cd /builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/nrniv && /usr/bin/gcc -DHAVE_CONFIG_H -DNRNUNIT=1 -I/builddir/build/BUILD/nrn-7.8.1/src/ivoc -I/builddir/build/BUILD/nrn-7.8.1/src/nrniv -I/builddir/build/BUILD/nrn-7.8.1/src/nrnoc -I/builddir/build/BUILD/nrn-7.8.1/src/oc -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/nrncvode -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/nrnjava -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/nrnoc -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/nrnpython -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/oc -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/parallel -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/sundials -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/sundials/shared -I/builddir/build/BUILD/nrn-7.8.1/src -I/builddir/build/BUILD/nrn-7.8.1/src/gnu -I/builddir/build/BUILD/nrn-7.8.1/src/memacs -I/builddir/build/BUILD/nrn-7.8.1/src/mesch -I/builddir/build/BUILD/nrn-7.8.1/src/nrncvode -I/builddir/build/BUILD/nrn-7.8.1/src/nrnmpi -I/builddir/build/BUILD/nrn-7.8.1/src/nrnpython -I/builddir/build/BUILD/nrn-7.8.1/src/parallel -I/builddir/build/BUILD/nrn-7.8.1/src/sparse -I/builddir/build/BUILD/nrn-7.8.1/src/sparse13 -I/builddir/build/BUILD/nrn-7.8.1/src/sundials -I/builddir/build/BUILD/nrn-7.8.1/src/sundials/cvodes -I/builddir/build/BUILD/nrn-7.8.1/src/sundials/ida -I/builddir/build/BUILD/nrn-7.8.1/src/sundials/shared -I/usr/include/python3.9 -O2 -flto=auto -ffat-lto-objects -fexceptions -g -grecord-gcc-switches -pipe -Wall -Werror=format-security -Wp,-D_FORTIFY_SOURCE=2 -Wp,-D_GLIBCXX_ASSERTIONS -specs=/usr/lib/rpm/redhat/redhat-hardened-cc1 -fstack-protector-strong -specs=/usr/lib/rpm/redhat/redhat-annobin-cc1  -fasynchronous-unwind-tables -fstack-clash-protection -o CMakeFiles/modlunit.dir/__/modlunit/io.c.o -c /builddir/build/BUILD/nrn-7.8.1/src/modlunit/io.c
make[2]: Leaving directory '/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu'
make[2]: Entering directory '/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu'
[  4%] Building C object src/nrniv/CMakeFiles/modlunit.dir/__/modlunit/model.c.o
cd /builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/nrniv && /usr/bin/gcc -DHAVE_CONFIG_H -DNRNUNIT=1 -I/builddir/build/BUILD/nrn-7.8.1/src/ivoc -I/builddir/build/BUILD/nrn-7.8.1/src/nrniv -I/builddir/build/BUILD/nrn-7.8.1/src/nrnoc -I/builddir/build/BUILD/nrn-7.8.1/src/oc -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/nrncvode -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/nrnjava -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/nrnoc -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/nrnpython -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/oc -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/parallel -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/sundials -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/sundials/shared -I/builddir/build/BUILD/nrn-7.8.1/src -I/builddir/build/BUILD/nrn-7.8.1/src/gnu -I/builddir/build/BUILD/nrn-7.8.1/src/memacs -I/builddir/build/BUILD/nrn-7.8.1/src/mesch -I/builddir/build/BUILD/nrn-7.8.1/src/nrncvode -I/builddir/build/BUILD/nrn-7.8.1/src/nrnmpi -I/builddir/build/BUILD/nrn-7.8.1/src/nrnpython -I/builddir/build/BUILD/nrn-7.8.1/src/parallel -I/builddir/build/BUILD/nrn-7.8.1/src/sparse -I/builddir/build/BUILD/nrn-7.8.1/src/sparse13 -I/builddir/build/BUILD/nrn-7.8.1/src/sundials -I/builddir/build/BUILD/nrn-7.8.1/src/sundials/cvodes -I/builddir/build/BUILD/nrn-7.8.1/src/sundials/ida -I/builddir/build/BUILD/nrn-7.8.1/src/sundials/shared -I/usr/include/python3.9 -O2 -flto=auto -ffat-lto-objects -fexceptions -g -grecord-gcc-switches -pipe -Wall -Werror=format-security -Wp,-D_FORTIFY_SOURCE=2 -Wp,-D_GLIBCXX_ASSERTIONS -specs=/usr/lib/rpm/redhat/redhat-hardened-cc1 -fstack-protector-strong -specs=/usr/lib/rpm/redhat/redhat-annobin-cc1  -fasynchronous-unwind-tables -fstack-clash-protection -o CMakeFiles/modlunit.dir/__/modlunit/model.c.o -c /builddir/build/BUILD/nrn-7.8.1/src/modlunit/model.c
make[2]: Leaving directory '/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu'
/builddir/build/BUILD/nrn-7.8.1/src/modlunit/model.c: In function 'openfiles':
/builddir/build/BUILD/nrn-7.8.1/src/modlunit/model.c:145:22: warning: '%s' directive writing up to 8191 bytes into a region of size 8187 [-Wformat-overflow=]
  145 |   sprintf(modprefix, "%s", argv[1]);
      |                      ^~~~
In file included from /usr/include/stdio.h:866,
                 from /builddir/build/BUILD/nrn-7.8.1/src/modlunit/model.h:3,
                 from /builddir/build/BUILD/nrn-7.8.1/src/modlunit/model.c:27:
/usr/include/bits/stdio2.h:38:10: note: '__sprintf_chk' output between 1 and 8192 bytes into a destination of size 8187
   38 |   return __builtin___sprintf_chk (__s, __USE_FORTIFY_LEVEL - 1,
      |          ^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
   39 |       __bos (__s), __fmt, __va_arg_pack ());
      |       ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
make[2]: Entering directory '/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu'
[  4%] Building C object src/nrniv/CMakeFiles/modlunit.dir/__/modlunit/list.c.o
cd /builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/nrniv && /usr/bin/gcc -DHAVE_CONFIG_H -DNRNUNIT=1 -I/builddir/build/BUILD/nrn-7.8.1/src/ivoc -I/builddir/build/BUILD/nrn-7.8.1/src/nrniv -I/builddir/build/BUILD/nrn-7.8.1/src/nrnoc -I/builddir/build/BUILD/nrn-7.8.1/src/oc -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/nrncvode -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/nrnjava -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/nrnoc -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/nrnpython -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/oc -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/parallel -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/sundials -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/sundials/shared -I/builddir/build/BUILD/nrn-7.8.1/src -I/builddir/build/BUILD/nrn-7.8.1/src/gnu -I/builddir/build/BUILD/nrn-7.8.1/src/memacs -I/builddir/build/BUILD/nrn-7.8.1/src/mesch -I/builddir/build/BUILD/nrn-7.8.1/src/nrncvode -I/builddir/build/BUILD/nrn-7.8.1/src/nrnmpi -I/builddir/build/BUILD/nrn-7.8.1/src/nrnpython -I/builddir/build/BUILD/nrn-7.8.1/src/parallel -I/builddir/build/BUILD/nrn-7.8.1/src/sparse -I/builddir/build/BUILD/nrn-7.8.1/src/sparse13 -I/builddir/build/BUILD/nrn-7.8.1/src/sundials -I/builddir/build/BUILD/nrn-7.8.1/src/sundials/cvodes -I/builddir/build/BUILD/nrn-7.8.1/src/sundials/ida -I/builddir/build/BUILD/nrn-7.8.1/src/sundials/shared -I/usr/include/python3.9 -O2 -flto=auto -ffat-lto-objects -fexceptions -g -grecord-gcc-switches -pipe -Wall -Werror=format-security -Wp,-D_FORTIFY_SOURCE=2 -Wp,-D_GLIBCXX_ASSERTIONS -specs=/usr/lib/rpm/redhat/redhat-hardened-cc1 -fstack-protector-strong -specs=/usr/lib/rpm/redhat/redhat-annobin-cc1  -fasynchronous-unwind-tables -fstack-clash-protection -o CMakeFiles/modlunit.dir/__/modlunit/list.c.o -c /builddir/build/BUILD/nrn-7.8.1/src/modlunit/list.c
make[2]: Leaving directory '/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu'
make[2]: Entering directory '/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu'
[  4%] Building C object src/nrniv/CMakeFiles/nocmodl.dir/__/nmodl/lex.c.o
cd /builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/nrniv && /usr/bin/gcc -DHAVE_CONFIG_H -DCVODE=1 -DNMODL=1 -DNOCMODL=1 -DVECTORIZE=1 -I/builddir/build/BUILD/nrn-7.8.1/src/ivoc -I/builddir/build/BUILD/nrn-7.8.1/src/nrniv -I/builddir/build/BUILD/nrn-7.8.1/src/nrnoc -I/builddir/build/BUILD/nrn-7.8.1/src/oc -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/nrncvode -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/nrnjava -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/nrnoc -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/nrnpython -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/oc -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/parallel -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/sundials -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/sundials/shared -I/builddir/build/BUILD/nrn-7.8.1/src -I/builddir/build/BUILD/nrn-7.8.1/src/gnu -I/builddir/build/BUILD/nrn-7.8.1/src/memacs -I/builddir/build/BUILD/nrn-7.8.1/src/mesch -I/builddir/build/BUILD/nrn-7.8.1/src/nrncvode -I/builddir/build/BUILD/nrn-7.8.1/src/nrnmpi -I/builddir/build/BUILD/nrn-7.8.1/src/nrnpython -I/builddir/build/BUILD/nrn-7.8.1/src/parallel -I/builddir/build/BUILD/nrn-7.8.1/src/sparse -I/builddir/build/BUILD/nrn-7.8.1/src/sparse13 -I/builddir/build/BUILD/nrn-7.8.1/src/sundials -I/builddir/build/BUILD/nrn-7.8.1/src/sundials/cvodes -I/builddir/build/BUILD/nrn-7.8.1/src/sundials/ida -I/builddir/build/BUILD/nrn-7.8.1/src/sundials/shared -I/usr/include/python3.9 -O2 -flto=auto -ffat-lto-objects -fexceptions -g -grecord-gcc-switches -pipe -Wall -Werror=format-security -Wp,-D_FORTIFY_SOURCE=2 -Wp,-D_GLIBCXX_ASSERTIONS -specs=/usr/lib/rpm/redhat/redhat-hardened-cc1 -fstack-protector-strong -specs=/usr/lib/rpm/redhat/redhat-annobin-cc1  -fasynchronous-unwind-tables -fstack-clash-protection -o CMakeFiles/nocmodl.dir/__/nmodl/lex.c.o -c /builddir/build/BUILD/nrn-7.8.1/src/nmodl/lex.c
make[2]: Leaving directory '/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu'
/builddir/build/BUILD/nrn-7.8.1/src/nmodl/lex.c:1433:17: warning: 'yyunput' defined but not used [-Wunused-function]
 1433 | 
      |                 ^      
make[2]: Entering directory '/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu'
[  4%] Building C object src/nrniv/CMakeFiles/nocmodl.dir/__/nmodl/consist.c.o
cd /builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/nrniv && /usr/bin/gcc -DHAVE_CONFIG_H -DCVODE=1 -DNMODL=1 -DNOCMODL=1 -DVECTORIZE=1 -I/builddir/build/BUILD/nrn-7.8.1/src/ivoc -I/builddir/build/BUILD/nrn-7.8.1/src/nrniv -I/builddir/build/BUILD/nrn-7.8.1/src/nrnoc -I/builddir/build/BUILD/nrn-7.8.1/src/oc -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/nrncvode -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/nrnjava -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/nrnoc -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/nrnpython -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/oc -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/parallel -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/sundials -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/sundials/shared -I/builddir/build/BUILD/nrn-7.8.1/src -I/builddir/build/BUILD/nrn-7.8.1/src/gnu -I/builddir/build/BUILD/nrn-7.8.1/src/memacs -I/builddir/build/BUILD/nrn-7.8.1/src/mesch -I/builddir/build/BUILD/nrn-7.8.1/src/nrncvode -I/builddir/build/BUILD/nrn-7.8.1/src/nrnmpi -I/builddir/build/BUILD/nrn-7.8.1/src/nrnpython -I/builddir/build/BUILD/nrn-7.8.1/src/parallel -I/builddir/build/BUILD/nrn-7.8.1/src/sparse -I/builddir/build/BUILD/nrn-7.8.1/src/sparse13 -I/builddir/build/BUILD/nrn-7.8.1/src/sundials -I/builddir/build/BUILD/nrn-7.8.1/src/sundials/cvodes -I/builddir/build/BUILD/nrn-7.8.1/src/sundials/ida -I/builddir/build/BUILD/nrn-7.8.1/src/sundials/shared -I/usr/include/python3.9 -O2 -flto=auto -ffat-lto-objects -fexceptions -g -grecord-gcc-switches -pipe -Wall -Werror=format-security -Wp,-D_FORTIFY_SOURCE=2 -Wp,-D_GLIBCXX_ASSERTIONS -specs=/usr/lib/rpm/redhat/redhat-hardened-cc1 -fstack-protector-strong -specs=/usr/lib/rpm/redhat/redhat-annobin-cc1  -fasynchronous-unwind-tables -fstack-clash-protection -o CMakeFiles/nocmodl.dir/__/nmodl/consist.c.o -c /builddir/build/BUILD/nrn-7.8.1/src/nmodl/consist.c
make[2]: Leaving directory '/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu'
make[2]: Entering directory '/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu'
[  4%] Building C object src/nrniv/CMakeFiles/modlunit.dir/__/modlunit/nrnunit.c.o
cd /builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/nrniv && /usr/bin/gcc -DHAVE_CONFIG_H -DNRNUNIT=1 -I/builddir/build/BUILD/nrn-7.8.1/src/ivoc -I/builddir/build/BUILD/nrn-7.8.1/src/nrniv -I/builddir/build/BUILD/nrn-7.8.1/src/nrnoc -I/builddir/build/BUILD/nrn-7.8.1/src/oc -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/nrncvode -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/nrnjava -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/nrnoc -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/nrnpython -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/oc -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/parallel -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/sundials -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/sundials/shared -I/builddir/build/BUILD/nrn-7.8.1/src -I/builddir/build/BUILD/nrn-7.8.1/src/gnu -I/builddir/build/BUILD/nrn-7.8.1/src/memacs -I/builddir/build/BUILD/nrn-7.8.1/src/mesch -I/builddir/build/BUILD/nrn-7.8.1/src/nrncvode -I/builddir/build/BUILD/nrn-7.8.1/src/nrnmpi -I/builddir/build/BUILD/nrn-7.8.1/src/nrnpython -I/builddir/build/BUILD/nrn-7.8.1/src/parallel -I/builddir/build/BUILD/nrn-7.8.1/src/sparse -I/builddir/build/BUILD/nrn-7.8.1/src/sparse13 -I/builddir/build/BUILD/nrn-7.8.1/src/sundials -I/builddir/build/BUILD/nrn-7.8.1/src/sundials/cvodes -I/builddir/build/BUILD/nrn-7.8.1/src/sundials/ida -I/builddir/build/BUILD/nrn-7.8.1/src/sundials/shared -I/usr/include/python3.9 -O2 -flto=auto -ffat-lto-objects -fexceptions -g -grecord-gcc-switches -pipe -Wall -Werror=format-security -Wp,-D_FORTIFY_SOURCE=2 -Wp,-D_GLIBCXX_ASSERTIONS -specs=/usr/lib/rpm/redhat/redhat-hardened-cc1 -fstack-protector-strong -specs=/usr/lib/rpm/redhat/redhat-annobin-cc1  -fasynchronous-unwind-tables -fstack-clash-protection -o CMakeFiles/modlunit.dir/__/modlunit/nrnunit.c.o -c /builddir/build/BUILD/nrn-7.8.1/src/modlunit/nrnunit.c
make[2]: Leaving directory '/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu'
make[2]: Entering directory '/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu'
[  5%] Building C object src/nrniv/CMakeFiles/nocmodl.dir/__/nmodl/discrete.c.o
cd /builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/nrniv && /usr/bin/gcc -DHAVE_CONFIG_H -DCVODE=1 -DNMODL=1 -DNOCMODL=1 -DVECTORIZE=1 -I/builddir/build/BUILD/nrn-7.8.1/src/ivoc -I/builddir/build/BUILD/nrn-7.8.1/src/nrniv -I/builddir/build/BUILD/nrn-7.8.1/src/nrnoc -I/builddir/build/BUILD/nrn-7.8.1/src/oc -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/nrncvode -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/nrnjava -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/nrnoc -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/nrnpython -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/oc -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/parallel -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/sundials -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/sundials/shared -I/builddir/build/BUILD/nrn-7.8.1/src -I/builddir/build/BUILD/nrn-7.8.1/src/gnu -I/builddir/build/BUILD/nrn-7.8.1/src/memacs -I/builddir/build/BUILD/nrn-7.8.1/src/mesch -I/builddir/build/BUILD/nrn-7.8.1/src/nrncvode -I/builddir/build/BUILD/nrn-7.8.1/src/nrnmpi -I/builddir/build/BUILD/nrn-7.8.1/src/nrnpython -I/builddir/build/BUILD/nrn-7.8.1/src/parallel -I/builddir/build/BUILD/nrn-7.8.1/src/sparse -I/builddir/build/BUILD/nrn-7.8.1/src/sparse13 -I/builddir/build/BUILD/nrn-7.8.1/src/sundials -I/builddir/build/BUILD/nrn-7.8.1/src/sundials/cvodes -I/builddir/build/BUILD/nrn-7.8.1/src/sundials/ida -I/builddir/build/BUILD/nrn-7.8.1/src/sundials/shared -I/usr/include/python3.9 -O2 -flto=auto -ffat-lto-objects -fexceptions -g -grecord-gcc-switches -pipe -Wall -Werror=format-security -Wp,-D_FORTIFY_SOURCE=2 -Wp,-D_GLIBCXX_ASSERTIONS -specs=/usr/lib/rpm/redhat/redhat-hardened-cc1 -fstack-protector-strong -specs=/usr/lib/rpm/redhat/redhat-annobin-cc1  -fasynchronous-unwind-tables -fstack-clash-protection -o CMakeFiles/nocmodl.dir/__/nmodl/discrete.c.o -c /builddir/build/BUILD/nrn-7.8.1/src/nmodl/discrete.c
make[2]: Leaving directory '/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu'
make[2]: Entering directory '/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu'
[  6%] Building C object src/nrniv/CMakeFiles/modlunit.dir/__/modlunit/passn.c.o
cd /builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/nrniv && /usr/bin/gcc -DHAVE_CONFIG_H -DNRNUNIT=1 -I/builddir/build/BUILD/nrn-7.8.1/src/ivoc -I/builddir/build/BUILD/nrn-7.8.1/src/nrniv -I/builddir/build/BUILD/nrn-7.8.1/src/nrnoc -I/builddir/build/BUILD/nrn-7.8.1/src/oc -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/nrncvode -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/nrnjava -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/nrnoc -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/nrnpython -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/oc -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/parallel -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/sundials -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/sundials/shared -I/builddir/build/BUILD/nrn-7.8.1/src -I/builddir/build/BUILD/nrn-7.8.1/src/gnu -I/builddir/build/BUILD/nrn-7.8.1/src/memacs -I/builddir/build/BUILD/nrn-7.8.1/src/mesch -I/builddir/build/BUILD/nrn-7.8.1/src/nrncvode -I/builddir/build/BUILD/nrn-7.8.1/src/nrnmpi -I/builddir/build/BUILD/nrn-7.8.1/src/nrnpython -I/builddir/build/BUILD/nrn-7.8.1/src/parallel -I/builddir/build/BUILD/nrn-7.8.1/src/sparse -I/builddir/build/BUILD/nrn-7.8.1/src/sparse13 -I/builddir/build/BUILD/nrn-7.8.1/src/sundials -I/builddir/build/BUILD/nrn-7.8.1/src/sundials/cvodes -I/builddir/build/BUILD/nrn-7.8.1/src/sundials/ida -I/builddir/build/BUILD/nrn-7.8.1/src/sundials/shared -I/usr/include/python3.9 -O2 -flto=auto -ffat-lto-objects -fexceptions -g -grecord-gcc-switches -pipe -Wall -Werror=format-security -Wp,-D_FORTIFY_SOURCE=2 -Wp,-D_GLIBCXX_ASSERTIONS -specs=/usr/lib/rpm/redhat/redhat-hardened-cc1 -fstack-protector-strong -specs=/usr/lib/rpm/redhat/redhat-annobin-cc1  -fasynchronous-unwind-tables -fstack-clash-protection -o CMakeFiles/modlunit.dir/__/modlunit/passn.c.o -c /builddir/build/BUILD/nrn-7.8.1/src/modlunit/passn.c
make[2]: Leaving directory '/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu'
make[2]: Entering directory '/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu'
[  6%] Building C object src/nrniv/CMakeFiles/nocmodl.dir/__/nmodl/init.c.o
cd /builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/nrniv && /usr/bin/gcc -DHAVE_CONFIG_H -DCVODE=1 -DNMODL=1 -DNOCMODL=1 -DVECTORIZE=1 -I/builddir/build/BUILD/nrn-7.8.1/src/ivoc -I/builddir/build/BUILD/nrn-7.8.1/src/nrniv -I/builddir/build/BUILD/nrn-7.8.1/src/nrnoc -I/builddir/build/BUILD/nrn-7.8.1/src/oc -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/nrncvode -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/nrnjava -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/nrnoc -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/nrnpython -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/oc -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/parallel -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/sundials -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/sundials/shared -I/builddir/build/BUILD/nrn-7.8.1/src -I/builddir/build/BUILD/nrn-7.8.1/src/gnu -I/builddir/build/BUILD/nrn-7.8.1/src/memacs -I/builddir/build/BUILD/nrn-7.8.1/src/mesch -I/builddir/build/BUILD/nrn-7.8.1/src/nrncvode -I/builddir/build/BUILD/nrn-7.8.1/src/nrnmpi -I/builddir/build/BUILD/nrn-7.8.1/src/nrnpython -I/builddir/build/BUILD/nrn-7.8.1/src/parallel -I/builddir/build/BUILD/nrn-7.8.1/src/sparse -I/builddir/build/BUILD/nrn-7.8.1/src/sparse13 -I/builddir/build/BUILD/nrn-7.8.1/src/sundials -I/builddir/build/BUILD/nrn-7.8.1/src/sundials/cvodes -I/builddir/build/BUILD/nrn-7.8.1/src/sundials/ida -I/builddir/build/BUILD/nrn-7.8.1/src/sundials/shared -I/usr/include/python3.9 -O2 -flto=auto -ffat-lto-objects -fexceptions -g -grecord-gcc-switches -pipe -Wall -Werror=format-security -Wp,-D_FORTIFY_SOURCE=2 -Wp,-D_GLIBCXX_ASSERTIONS -specs=/usr/lib/rpm/redhat/redhat-hardened-cc1 -fstack-protector-strong -specs=/usr/lib/rpm/redhat/redhat-annobin-cc1  -fasynchronous-unwind-tables -fstack-clash-protection -o CMakeFiles/nocmodl.dir/__/nmodl/init.c.o -c /builddir/build/BUILD/nrn-7.8.1/src/nmodl/init.c
make[2]: Leaving directory '/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu'
/builddir/build/BUILD/nrn-7.8.1/src/nmodl/init.c:16:30: warning: missing braces around initializer [-Wmissing-braces]
   16 | }               keywords[] = {
      |                              ^
   17 |                  "VERBATIM", VERBATIM,
      |                  {                   }
   18 |                  "COMMENT", COMMENT,
      |                  {                 }
   19 |                  "TITLE", MODEL,
      |                  {             }
   20 |                  "CONSTANT", CONSTANT,
      |                  {                   }
   21 |    "PARAMETER", PARAMETER,
      |    {                     }
   22 |                  "INDEPENDENT", INDEPENDENT,
      |                  {                         }
   23 |                  "ASSIGNED", DEPENDENT,
      |                  {                    }
   24 |                  "INITIAL", INITIAL1,
      |                  {                  }
   25 |                  "TERMINAL", TERMINAL,
      |                  {                   }
   26 |                  "DERIVATIVE", DERIVATIVE,
      |                  {                       }
   27 |                  "EQUATION", EQUATION,
      |                  {                   }
   28 |                  "BREAKPOINT", BREAKPOINT,
      |                  {                       }
   29 |                  "CONDUCTANCE", CONDUCTANCE,
      |                  {                         }
   30 |                  "SOLVE", SOLVE,
      |                  {             }
   31 |                  "STATE", STATE,
      |                  {             }
   32 |                  "STEPPED", STEPPED,
      |                  {                 }
   33 |                  "LINEAR", LINEAR,
      |                  {               }
   34 |                  "NONLINEAR", NONLINEAR,
      |                  {                     }
   35 |                  "DISCRETE", DISCRETE,
      |                  {                   }
   36 |                  "FUNCTION", FUNCTION1,
      |                  {                    }
   37 |    "FUNCTION_TABLE", FUNCTION_TABLE,
      |    {                               }
   38 |                  "PROCEDURE", PROCEDURE,
      |                  {                     }
   39 |                  "PARTIAL", PARTIAL,
      |                  {                 }
   40 |                  "INT", INT,
      |                  {         }
   41 |    "DEL2", DEL2,
      |    {           }
   42 |                  "DEL", DEL,
      |                  {         }
   43 |                  "LOCAL", LOCAL,
      |                  {             }
   44 |                  "METHOD", USING,
      |                  {              }
   45 |    "STEADYSTATE", USING,
      |    {                   }
   46 |                  "SENS", SENS,
      |                  {           }
   47 |                  "STEP", STEP,
      |                  {           }
   48 |                  "WITH", WITH,
      |                  {           }
   49 |                  "FROM", FROM,
      |                  {           }
   50 |    "FORALL", FORALL1,
      |    {                }
   51 |                  "TO", TO,
      |                  {       }
   52 |                  "BY", BY,
      |                  {       }
   53 |                  "if", IF,
      |                  {       }
   54 |                  "else", ELSE,
      |                  {           }
   55 |                  "while", WHILE,
      |                  {             }
   56 |                  "START", START1,
      |                  {              }
   57 |                  "DEFINE", DEFINE1,
      |                  {                }
   58 | 
   59 |                  "KINETIC", KINETIC,
      |                  {                 }
   60 |                  "CONSERVE", CONSERVE,
      |                  {                   }
   61 |    "PLOT", PLOT,
      |    {           }
   62 |    "VS", VS,
      |    {       }
   63 |    "LAG", LAG,
      |    {         }
   64 |    "RESET", RESET,
      |    {             }
   65 |    "MATCH", MATCH,
      |    {             }
   66 |    "MODEL_LEVEL", MODEL_LEVEL, /* inserted by merge */
      |    {                         }
   67 |    "SWEEP", SWEEP,
      |    {             }
   68 |    "FIRST", FIRST,
      |    {             }
   69 |    "LAST", LAST,
      |    {           }
   70 |    "COMPARTMENT", COMPARTMENT,
      |    {                         }
   71 |    "LONGITUDINAL_DIFFUSION", LONGDIFUS,
      |    {                                  }
   72 |    "PUTQ", PUTQ,
      |    {           }
   73 |    "GETQ", GETQ,
      |    {           }
   74 |    "IFERROR", IFERROR,
      |    {                 }
   75 |    "SOLVEFOR", SOLVEFOR,
      |    {                   }
   76 |    "UNITS", UNITS,
      |    {             }
   77 |    "UNITSON", UNITSON,
      |    {                 }
   78 |    "UNITSOFF", UNITSOFF,
      |    {                   }
   79 |    "TABLE", TABLE,
      |    {             }
   80 |    "DEPEND", DEPEND,
      |    {               }
   81 |    "NEURON", NEURON,
      |    {               }
   82 |    "SUFFIX", SUFFIX,
      |    {               }
   83 |    "POINT_PROCESS", SUFFIX,
      |    {                      }
   84 |    "ARTIFICIAL_CELL", SUFFIX,
      |    {                        }
   85 |    "NONSPECIFIC_CURRENT", NONSPECIFIC,
      |    {                                 }
   86 |    "ELECTRODE_CURRENT", ELECTRODE_CURRENT,
      |    {                                     }
   87 |    "SECTION", SECTION,
      |    {                 }
   88 |    "RANGE", RANGE,
      |    {             }
   89 |    "USEION", USEION,
      |    {               }
   90 |    "READ", READ,
      |    {           }
   91 |    "WRITE", WRITE,
      |    {             }
   92 |    "VALENCE", VALENCE,
      |    {                 }
   93 |    "CHARGE", VALENCE,
      |    {                }
   94 |    "GLOBAL", GLOBAL,
      |    {               }
   95 |    "POINTER", POINTER,
      |    {                 }
   96 |    "BBCOREPOINTER", BBCOREPOINTER,
      |    {                             }
   97 |    "EXTERNAL", EXTERNAL,
      |    {                   }
   98 |    "INCLUDE", INCLUDE1,
      |    {                  }
   99 |    "CONSTRUCTOR", CONSTRUCTOR,
      |    {                         }
  100 |    "DESTRUCTOR", DESTRUCTOR,
      |    {                       }
  101 |    "NET_RECEIVE", NETRECEIVE,
      |    {                        }
  102 |    "BEFORE", BEFORE, /* before NEURON sets up cy' = f(y,t) */
      |    {               }
  103 |    "AFTER", AFTER, /* after NEURON solves cy' = f(y, t) */
      |    {             }
  104 |    "WATCH", WATCH,
      |    {             }
  105 |    "FOR_NETCONS", FOR_NETCONS,
      |    {                         }
  106 |    "THREADSAFE", THREADSAFE,
      |    {                       }
  107 |    "PROTECT", PROTECT,
      |    {                 }
  108 |    "MUTEXLOCK", NRNMUTEXLOCK,
      |    {                        }
  109 |    "MUTEXUNLOCK", NRNMUTEXUNLOCK,
      |    {                            }
  110 |    "REPRESENTS", REPRESENTS,
      |    {                       }
  111 |                  0, 0
      |                  {
  112 | };
      | }
/builddir/build/BUILD/nrn-7.8.1/src/nmodl/init.c:122:29: warning: missing braces around initializer [-Wmissing-braces]
  122 | }               special[] = {
      |                             ^
  123 |                  ";", SEMI, &semi,
      |                  {               }
  124 |                  "{", BEGINBLK, &beginblk,
      |                  {                       }
  125 |                  "}", ENDBLK, &endblk,
      |                  {                   }
  126 |                  0, 0, 0
      |                  {
  127 | };
      | }
/builddir/build/BUILD/nrn-7.8.1/src/nmodl/init.c:133:29: warning: missing braces around initializer [-Wmissing-braces]
  133 | }               methods[] = {
      |                             ^
  134 |                  "adams", DERF | KINF, 0,
      |                  {                      }
  135 |                  "runge", DERF | KINF, 0,
      |                  {                      }
  136 |                  "euler", DERF | KINF, 0,
      |                  {                      }
  137 |                  "adeuler", DERF | KINF, 1,
      |                  {                        }
  138 |                  "heun", DERF | KINF, 0,
      |                  {                     }
  139 |    "adrunge", DERF | KINF, 1,
      |    {                        }
  140 |                  "gear", DERF | KINF, 1,
      |                  {                     }
  141 |                  "newton", NLINF, 0,
      |                  {                 }
  142 |                  "simplex", NLINF, 0,
      |                  {                  }
  143 |                  "simeq", LINF, 0,
      |                  {               }
  144 |                  "seidel", LINF, 0,
      |                  {                }
  145 |    "_advance", KINF, 0,
      |    {                  }
  146 |    "sparse", KINF, 0,
      |    {                }
  147 |    "derivimplicit", DERF, 0, /* name hard wired in deriv.c */
      |    {                       }
  148 |    "cnexp", DERF, 0, /* see solve.c */
      |    {               }
  149 |                  "clsoda", DERF | KINF, 1,   /* Tolerance built in to
      |                  {                       }
  150 | scopgear.c */
  151 |    "after_cvode", 0, 0,
      |    {                  }
  152 |    "cvode_t", 0, 0,
      |    {              }
  153 |    "cvode_t_v", 0, 0,
      |    {                }
  154 |                  0, 0, 0
      |                  {
  155 | };
      | }
make[2]: Entering directory '/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu'
[  6%] Building C object src/nrniv/CMakeFiles/modlunit.dir/__/modlunit/symbol.c.o
cd /builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/nrniv && /usr/bin/gcc -DHAVE_CONFIG_H -DNRNUNIT=1 -I/builddir/build/BUILD/nrn-7.8.1/src/ivoc -I/builddir/build/BUILD/nrn-7.8.1/src/nrniv -I/builddir/build/BUILD/nrn-7.8.1/src/nrnoc -I/builddir/build/BUILD/nrn-7.8.1/src/oc -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/nrncvode -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/nrnjava -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/nrnoc -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/nrnpython -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/oc -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/parallel -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/sundials -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/sundials/shared -I/builddir/build/BUILD/nrn-7.8.1/src -I/builddir/build/BUILD/nrn-7.8.1/src/gnu -I/builddir/build/BUILD/nrn-7.8.1/src/memacs -I/builddir/build/BUILD/nrn-7.8.1/src/mesch -I/builddir/build/BUILD/nrn-7.8.1/src/nrncvode -I/builddir/build/BUILD/nrn-7.8.1/src/nrnmpi -I/builddir/build/BUILD/nrn-7.8.1/src/nrnpython -I/builddir/build/BUILD/nrn-7.8.1/src/parallel -I/builddir/build/BUILD/nrn-7.8.1/src/sparse -I/builddir/build/BUILD/nrn-7.8.1/src/sparse13 -I/builddir/build/BUILD/nrn-7.8.1/src/sundials -I/builddir/build/BUILD/nrn-7.8.1/src/sundials/cvodes -I/builddir/build/BUILD/nrn-7.8.1/src/sundials/ida -I/builddir/build/BUILD/nrn-7.8.1/src/sundials/shared -I/usr/include/python3.9 -O2 -flto=auto -ffat-lto-objects -fexceptions -g -grecord-gcc-switches -pipe -Wall -Werror=format-security -Wp,-D_FORTIFY_SOURCE=2 -Wp,-D_GLIBCXX_ASSERTIONS -specs=/usr/lib/rpm/redhat/redhat-hardened-cc1 -fstack-protector-strong -specs=/usr/lib/rpm/redhat/redhat-annobin-cc1  -fasynchronous-unwind-tables -fstack-clash-protection -o CMakeFiles/modlunit.dir/__/modlunit/symbol.c.o -c /builddir/build/BUILD/nrn-7.8.1/src/modlunit/symbol.c
make[2]: Leaving directory '/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu'
In file included from /builddir/build/BUILD/nrn-7.8.1/src/modlunit/symbol.c:4:
/builddir/build/BUILD/nrn-7.8.1/src/modlunit/symbol.c: In function 'lookup':
/builddir/build/BUILD/nrn-7.8.1/src/modlunit/symbol.c:27:23: warning: array subscript has type 'char' [-Wchar-subscripts]
   27 |  ITERATE(sp, symlist[s[0]]) {
      |                      ~^~~
/builddir/build/BUILD/nrn-7.8.1/src/modlunit/model.h:25:38: note: in definition of macro 'ITERATE'
   25 | #define ITERATE(itm,lst) for (itm = (lst)->next; itm != (lst); itm = itm->next)
      |                                      ^~~
/builddir/build/BUILD/nrn-7.8.1/src/modlunit/symbol.c:27:23: warning: array subscript has type 'char' [-Wchar-subscripts]
   27 |  ITERATE(sp, symlist[s[0]]) {
      |                      ~^~~
/builddir/build/BUILD/nrn-7.8.1/src/modlunit/model.h:25:58: note: in definition of macro 'ITERATE'
   25 | #define ITERATE(itm,lst) for (itm = (lst)->next; itm != (lst); itm = itm->next)
      |                                                          ^~~
/builddir/build/BUILD/nrn-7.8.1/src/modlunit/symbol.c: In function 'install':
/builddir/build/BUILD/nrn-7.8.1/src/modlunit/symbol.c:69:17: warning: array subscript has type 'char' [-Wchar-subscripts]
   69 |   sl = symlist[s[0]];
      |                ~^~~
make[2]: Entering directory '/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu'
[  4%] Building C object src/nrniv/CMakeFiles/nocmodl.dir/__/nmodl/deriv.c.o
cd /builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/nrniv && /usr/bin/gcc -DHAVE_CONFIG_H -DCVODE=1 -DNMODL=1 -DNOCMODL=1 -DVECTORIZE=1 -I/builddir/build/BUILD/nrn-7.8.1/src/ivoc -I/builddir/build/BUILD/nrn-7.8.1/src/nrniv -I/builddir/build/BUILD/nrn-7.8.1/src/nrnoc -I/builddir/build/BUILD/nrn-7.8.1/src/oc -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/nrncvode -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/nrnjava -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/nrnoc -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/nrnpython -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/oc -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/parallel -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/sundials -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/sundials/shared -I/builddir/build/BUILD/nrn-7.8.1/src -I/builddir/build/BUILD/nrn-7.8.1/src/gnu -I/builddir/build/BUILD/nrn-7.8.1/src/memacs -I/builddir/build/BUILD/nrn-7.8.1/src/mesch -I/builddir/build/BUILD/nrn-7.8.1/src/nrncvode -I/builddir/build/BUILD/nrn-7.8.1/src/nrnmpi -I/builddir/build/BUILD/nrn-7.8.1/src/nrnpython -I/builddir/build/BUILD/nrn-7.8.1/src/parallel -I/builddir/build/BUILD/nrn-7.8.1/src/sparse -I/builddir/build/BUILD/nrn-7.8.1/src/sparse13 -I/builddir/build/BUILD/nrn-7.8.1/src/sundials -I/builddir/build/BUILD/nrn-7.8.1/src/sundials/cvodes -I/builddir/build/BUILD/nrn-7.8.1/src/sundials/ida -I/builddir/build/BUILD/nrn-7.8.1/src/sundials/shared -I/usr/include/python3.9 -O2 -flto=auto -ffat-lto-objects -fexceptions -g -grecord-gcc-switches -pipe -Wall -Werror=format-security -Wp,-D_FORTIFY_SOURCE=2 -Wp,-D_GLIBCXX_ASSERTIONS -specs=/usr/lib/rpm/redhat/redhat-hardened-cc1 -fstack-protector-strong -specs=/usr/lib/rpm/redhat/redhat-annobin-cc1  -fasynchronous-unwind-tables -fstack-clash-protection -o CMakeFiles/nocmodl.dir/__/nmodl/deriv.c.o -c /builddir/build/BUILD/nrn-7.8.1/src/nmodl/deriv.c
make[2]: Leaving directory '/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu'
/builddir/build/BUILD/nrn-7.8.1/src/nmodl/deriv.c: In function 'massagederiv':
/builddir/build/BUILD/nrn-7.8.1/src/nmodl/deriv.c:432:33: warning: unused variable 'solve_seen' [-Wunused-variable]
  432 |  int count = 0, deriv_implicit, solve_seen;
      |                                 ^~~~~~~~~~
make[2]: Entering directory '/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu'
[  6%] Building C object src/nrniv/CMakeFiles/modlunit.dir/__/modlunit/units1.c.o
cd /builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/nrniv && /usr/bin/gcc -DHAVE_CONFIG_H -DNRNUNIT=1 -I/builddir/build/BUILD/nrn-7.8.1/src/ivoc -I/builddir/build/BUILD/nrn-7.8.1/src/nrniv -I/builddir/build/BUILD/nrn-7.8.1/src/nrnoc -I/builddir/build/BUILD/nrn-7.8.1/src/oc -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/nrncvode -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/nrnjava -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/nrnoc -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/nrnpython -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/oc -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/parallel -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/sundials -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/sundials/shared -I/builddir/build/BUILD/nrn-7.8.1/src -I/builddir/build/BUILD/nrn-7.8.1/src/gnu -I/builddir/build/BUILD/nrn-7.8.1/src/memacs -I/builddir/build/BUILD/nrn-7.8.1/src/mesch -I/builddir/build/BUILD/nrn-7.8.1/src/nrncvode -I/builddir/build/BUILD/nrn-7.8.1/src/nrnmpi -I/builddir/build/BUILD/nrn-7.8.1/src/nrnpython -I/builddir/build/BUILD/nrn-7.8.1/src/parallel -I/builddir/build/BUILD/nrn-7.8.1/src/sparse -I/builddir/build/BUILD/nrn-7.8.1/src/sparse13 -I/builddir/build/BUILD/nrn-7.8.1/src/sundials -I/builddir/build/BUILD/nrn-7.8.1/src/sundials/cvodes -I/builddir/build/BUILD/nrn-7.8.1/src/sundials/ida -I/builddir/build/BUILD/nrn-7.8.1/src/sundials/shared -I/usr/include/python3.9 -O2 -flto=auto -ffat-lto-objects -fexceptions -g -grecord-gcc-switches -pipe -Wall -Werror=format-security -Wp,-D_FORTIFY_SOURCE=2 -Wp,-D_GLIBCXX_ASSERTIONS -specs=/usr/lib/rpm/redhat/redhat-hardened-cc1 -fstack-protector-strong -specs=/usr/lib/rpm/redhat/redhat-annobin-cc1  -fasynchronous-unwind-tables -fstack-clash-protection -o CMakeFiles/modlunit.dir/__/modlunit/units1.c.o -c /builddir/build/BUILD/nrn-7.8.1/src/modlunit/units1.c
make[2]: Leaving directory '/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu'
make[2]: Entering directory '/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu'
[  6%] Building C object src/nrniv/CMakeFiles/nocmodl.dir/__/nmodl/io.c.o
cd /builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/nrniv && /usr/bin/gcc -DHAVE_CONFIG_H -DCVODE=1 -DNMODL=1 -DNOCMODL=1 -DVECTORIZE=1 -I/builddir/build/BUILD/nrn-7.8.1/src/ivoc -I/builddir/build/BUILD/nrn-7.8.1/src/nrniv -I/builddir/build/BUILD/nrn-7.8.1/src/nrnoc -I/builddir/build/BUILD/nrn-7.8.1/src/oc -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/nrncvode -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/nrnjava -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/nrnoc -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/nrnpython -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/oc -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/parallel -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/sundials -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/sundials/shared -I/builddir/build/BUILD/nrn-7.8.1/src -I/builddir/build/BUILD/nrn-7.8.1/src/gnu -I/builddir/build/BUILD/nrn-7.8.1/src/memacs -I/builddir/build/BUILD/nrn-7.8.1/src/mesch -I/builddir/build/BUILD/nrn-7.8.1/src/nrncvode -I/builddir/build/BUILD/nrn-7.8.1/src/nrnmpi -I/builddir/build/BUILD/nrn-7.8.1/src/nrnpython -I/builddir/build/BUILD/nrn-7.8.1/src/parallel -I/builddir/build/BUILD/nrn-7.8.1/src/sparse -I/builddir/build/BUILD/nrn-7.8.1/src/sparse13 -I/builddir/build/BUILD/nrn-7.8.1/src/sundials -I/builddir/build/BUILD/nrn-7.8.1/src/sundials/cvodes -I/builddir/build/BUILD/nrn-7.8.1/src/sundials/ida -I/builddir/build/BUILD/nrn-7.8.1/src/sundials/shared -I/usr/include/python3.9 -O2 -flto=auto -ffat-lto-objects -fexceptions -g -grecord-gcc-switches -pipe -Wall -Werror=format-security -Wp,-D_FORTIFY_SOURCE=2 -Wp,-D_GLIBCXX_ASSERTIONS -specs=/usr/lib/rpm/redhat/redhat-hardened-cc1 -fstack-protector-strong -specs=/usr/lib/rpm/redhat/redhat-annobin-cc1  -fasynchronous-unwind-tables -fstack-clash-protection -o CMakeFiles/nocmodl.dir/__/nmodl/io.c.o -c /builddir/build/BUILD/nrn-7.8.1/src/nmodl/io.c
make[2]: Leaving directory '/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu'
make[2]: Entering directory '/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu'
[  6%] Building C object src/nrniv/CMakeFiles/modlunit.dir/__/modlunit/units.c.o
cd /builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/nrniv && /usr/bin/gcc -DHAVE_CONFIG_H -DNRNUNIT=1 -I/builddir/build/BUILD/nrn-7.8.1/src/ivoc -I/builddir/build/BUILD/nrn-7.8.1/src/nrniv -I/builddir/build/BUILD/nrn-7.8.1/src/nrnoc -I/builddir/build/BUILD/nrn-7.8.1/src/oc -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/nrncvode -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/nrnjava -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/nrnoc -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/nrnpython -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/oc -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/parallel -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/sundials -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/sundials/shared -I/builddir/build/BUILD/nrn-7.8.1/src -I/builddir/build/BUILD/nrn-7.8.1/src/gnu -I/builddir/build/BUILD/nrn-7.8.1/src/memacs -I/builddir/build/BUILD/nrn-7.8.1/src/mesch -I/builddir/build/BUILD/nrn-7.8.1/src/nrncvode -I/builddir/build/BUILD/nrn-7.8.1/src/nrnmpi -I/builddir/build/BUILD/nrn-7.8.1/src/nrnpython -I/builddir/build/BUILD/nrn-7.8.1/src/parallel -I/builddir/build/BUILD/nrn-7.8.1/src/sparse -I/builddir/build/BUILD/nrn-7.8.1/src/sparse13 -I/builddir/build/BUILD/nrn-7.8.1/src/sundials -I/builddir/build/BUILD/nrn-7.8.1/src/sundials/cvodes -I/builddir/build/BUILD/nrn-7.8.1/src/sundials/ida -I/builddir/build/BUILD/nrn-7.8.1/src/sundials/shared -I/usr/include/python3.9 -O2 -flto=auto -ffat-lto-objects -fexceptions -g -grecord-gcc-switches -pipe -Wall -Werror=format-security -Wp,-D_FORTIFY_SOURCE=2 -Wp,-D_GLIBCXX_ASSERTIONS -specs=/usr/lib/rpm/redhat/redhat-hardened-cc1 -fstack-protector-strong -specs=/usr/lib/rpm/redhat/redhat-annobin-cc1  -fasynchronous-unwind-tables -fstack-clash-protection -o CMakeFiles/modlunit.dir/__/modlunit/units.c.o -c /builddir/build/BUILD/nrn-7.8.1/src/modlunit/units.c
make[2]: Leaving directory '/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu'
/builddir/build/BUILD/nrn-7.8.1/src/modlunit/units.c:76:1: warning: missing braces around initializer [-Wmissing-braces]
   76 | {
      | ^
   77 |  1e-18, "atto",
      |  {            }
   78 |  1e-15, "femto",
      |  {             }
   79 |  1e-12, "pico",
      |  {            }
   80 |  1e-9, "nano",
      |  {           }
   81 |  1e-6, "micro",
      |  {            }
   82 |  1e-3, "milli",
      |  {            }
   83 |  1e-2, "centi",
      |  {            }
   84 |  1e-1, "deci",
      |  {           }
   85 |  1e1, "deka",
      |  {          }
   86 |  1e2, "hecta",
      |  {           }
   87 |  1e2, "hecto",
      |  {           }
   88 |  1e3, "kilo",
      |  {          }
   89 |  1e6, "mega",
      |  {          }
   90 |  1e6, "meg",
      |  {         }
   91 |  1e9, "giga",
      |  {          }
   92 |  1e12, "tera",
      |  {           }
   93 |  0.0, 0
      |  {
   94 | };
      | }
/builddir/build/BUILD/nrn-7.8.1/src/modlunit/units.c: In function 'pu':
/builddir/build/BUILD/nrn-7.8.1/src/modlunit/units.c:660:3: warning: this 'if' clause does not guard... [-Wmisleading-indentation]
  660 |   if(u > 1)
      |   ^~
/builddir/build/BUILD/nrn-7.8.1/src/modlunit/units.c:662:4: note: ...this statement, but the latter is misleadingly indented as if it were guarded by the 'if'
  662 |    return(2);
      |    ^~~~~~
/builddir/build/BUILD/nrn-7.8.1/src/modlunit/units.c: In function 'unit_stk_clean':
/builddir/build/BUILD/nrn-7.8.1/src/modlunit/units.c:487:19: warning: array subscript -1 is outside array bounds of 'struct unit[20]' [-Warray-bounds]
  487 |  usp = unit_stack - 1;
      |        ~~~~~~~~~~~^~~
/builddir/build/BUILD/nrn-7.8.1/src/modlunit/units.c:121:20: note: while referencing 'unit_stack'
  121 | static struct unit unit_stack[UNIT_STK_SIZE], *usp;
      |                    ^~~~~~~~~~
/builddir/build/BUILD/nrn-7.8.1/src/modlunit/units.c: In function 'punit':
/builddir/build/BUILD/nrn-7.8.1/src/modlunit/units.c:185:27: warning: array subscript -1 is outside array bounds of 'struct unit[20]' [-Warray-bounds]
  185 |  for (i=usp; i!=unit_stack-1; --i) {
      |                 ~~~~~~~~~~^~
/builddir/build/BUILD/nrn-7.8.1/src/modlunit/units.c:121:20: note: while referencing 'unit_stack'
  121 | static struct unit unit_stack[UNIT_STK_SIZE], *usp;
      |                    ^~~~~~~~~~
/builddir/build/BUILD/nrn-7.8.1/src/modlunit/units.c: In function 'unit_init':
/builddir/build/BUILD/nrn-7.8.1/src/modlunit/units.c:487:19: warning: array subscript -1 is outside array bounds of 'struct unit[20]' [-Warray-bounds]
  487 |  usp = unit_stack - 1;
      |        ~~~~~~~~~~~^~~
/builddir/build/BUILD/nrn-7.8.1/src/modlunit/units.c:121:20: note: while referencing 'unit_stack'
  121 | static struct unit unit_stack[UNIT_STK_SIZE], *usp;
      |                    ^~~~~~~~~~
make[2]: Entering directory '/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu'
[  6%] Building C object src/nrniv/CMakeFiles/modlunit.dir/__/modlunit/version.c.o
cd /builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/nrniv && /usr/bin/gcc -DHAVE_CONFIG_H -DNRNUNIT=1 -I/builddir/build/BUILD/nrn-7.8.1/src/ivoc -I/builddir/build/BUILD/nrn-7.8.1/src/nrniv -I/builddir/build/BUILD/nrn-7.8.1/src/nrnoc -I/builddir/build/BUILD/nrn-7.8.1/src/oc -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/nrncvode -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/nrnjava -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/nrnoc -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/nrnpython -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/oc -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/parallel -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/sundials -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/sundials/shared -I/builddir/build/BUILD/nrn-7.8.1/src -I/builddir/build/BUILD/nrn-7.8.1/src/gnu -I/builddir/build/BUILD/nrn-7.8.1/src/memacs -I/builddir/build/BUILD/nrn-7.8.1/src/mesch -I/builddir/build/BUILD/nrn-7.8.1/src/nrncvode -I/builddir/build/BUILD/nrn-7.8.1/src/nrnmpi -I/builddir/build/BUILD/nrn-7.8.1/src/nrnpython -I/builddir/build/BUILD/nrn-7.8.1/src/parallel -I/builddir/build/BUILD/nrn-7.8.1/src/sparse -I/builddir/build/BUILD/nrn-7.8.1/src/sparse13 -I/builddir/build/BUILD/nrn-7.8.1/src/sundials -I/builddir/build/BUILD/nrn-7.8.1/src/sundials/cvodes -I/builddir/build/BUILD/nrn-7.8.1/src/sundials/ida -I/builddir/build/BUILD/nrn-7.8.1/src/sundials/shared -I/usr/include/python3.9 -O2 -flto=auto -ffat-lto-objects -fexceptions -g -grecord-gcc-switches -pipe -Wall -Werror=format-security -Wp,-D_FORTIFY_SOURCE=2 -Wp,-D_GLIBCXX_ASSERTIONS -specs=/usr/lib/rpm/redhat/redhat-hardened-cc1 -fstack-protector-strong -specs=/usr/lib/rpm/redhat/redhat-annobin-cc1  -fasynchronous-unwind-tables -fstack-clash-protection -o CMakeFiles/modlunit.dir/__/modlunit/version.c.o -c /builddir/build/BUILD/nrn-7.8.1/src/modlunit/version.c
make[2]: Leaving directory '/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu'
make[2]: Entering directory '/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu'
[  6%] Building C object src/nrniv/CMakeFiles/nocmodl.dir/__/nmodl/list.c.o
cd /builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/nrniv && /usr/bin/gcc -DHAVE_CONFIG_H -DCVODE=1 -DNMODL=1 -DNOCMODL=1 -DVECTORIZE=1 -I/builddir/build/BUILD/nrn-7.8.1/src/ivoc -I/builddir/build/BUILD/nrn-7.8.1/src/nrniv -I/builddir/build/BUILD/nrn-7.8.1/src/nrnoc -I/builddir/build/BUILD/nrn-7.8.1/src/oc -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/nrncvode -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/nrnjava -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/nrnoc -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/nrnpython -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/oc -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/parallel -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/sundials -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/sundials/shared -I/builddir/build/BUILD/nrn-7.8.1/src -I/builddir/build/BUILD/nrn-7.8.1/src/gnu -I/builddir/build/BUILD/nrn-7.8.1/src/memacs -I/builddir/build/BUILD/nrn-7.8.1/src/mesch -I/builddir/build/BUILD/nrn-7.8.1/src/nrncvode -I/builddir/build/BUILD/nrn-7.8.1/src/nrnmpi -I/builddir/build/BUILD/nrn-7.8.1/src/nrnpython -I/builddir/build/BUILD/nrn-7.8.1/src/parallel -I/builddir/build/BUILD/nrn-7.8.1/src/sparse -I/builddir/build/BUILD/nrn-7.8.1/src/sparse13 -I/builddir/build/BUILD/nrn-7.8.1/src/sundials -I/builddir/build/BUILD/nrn-7.8.1/src/sundials/cvodes -I/builddir/build/BUILD/nrn-7.8.1/src/sundials/ida -I/builddir/build/BUILD/nrn-7.8.1/src/sundials/shared -I/usr/include/python3.9 -O2 -flto=auto -ffat-lto-objects -fexceptions -g -grecord-gcc-switches -pipe -Wall -Werror=format-security -Wp,-D_FORTIFY_SOURCE=2 -Wp,-D_GLIBCXX_ASSERTIONS -specs=/usr/lib/rpm/redhat/redhat-hardened-cc1 -fstack-protector-strong -specs=/usr/lib/rpm/redhat/redhat-annobin-cc1  -fasynchronous-unwind-tables -fstack-clash-protection -o CMakeFiles/nocmodl.dir/__/nmodl/list.c.o -c /builddir/build/BUILD/nrn-7.8.1/src/nmodl/list.c
make[2]: Leaving directory '/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu'
make[2]: Entering directory '/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu'
[  8%] Building C object src/nrniv/CMakeFiles/nocmodl.dir/__/nmodl/modl.c.o
cd /builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/nrniv && /usr/bin/gcc -DHAVE_CONFIG_H -DCVODE=1 -DNMODL=1 -DNOCMODL=1 -DVECTORIZE=1 -I/builddir/build/BUILD/nrn-7.8.1/src/ivoc -I/builddir/build/BUILD/nrn-7.8.1/src/nrniv -I/builddir/build/BUILD/nrn-7.8.1/src/nrnoc -I/builddir/build/BUILD/nrn-7.8.1/src/oc -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/nrncvode -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/nrnjava -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/nrnoc -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/nrnpython -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/oc -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/parallel -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/sundials -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/sundials/shared -I/builddir/build/BUILD/nrn-7.8.1/src -I/builddir/build/BUILD/nrn-7.8.1/src/gnu -I/builddir/build/BUILD/nrn-7.8.1/src/memacs -I/builddir/build/BUILD/nrn-7.8.1/src/mesch -I/builddir/build/BUILD/nrn-7.8.1/src/nrncvode -I/builddir/build/BUILD/nrn-7.8.1/src/nrnmpi -I/builddir/build/BUILD/nrn-7.8.1/src/nrnpython -I/builddir/build/BUILD/nrn-7.8.1/src/parallel -I/builddir/build/BUILD/nrn-7.8.1/src/sparse -I/builddir/build/BUILD/nrn-7.8.1/src/sparse13 -I/builddir/build/BUILD/nrn-7.8.1/src/sundials -I/builddir/build/BUILD/nrn-7.8.1/src/sundials/cvodes -I/builddir/build/BUILD/nrn-7.8.1/src/sundials/ida -I/builddir/build/BUILD/nrn-7.8.1/src/sundials/shared -I/usr/include/python3.9 -O2 -flto=auto -ffat-lto-objects -fexceptions -g -grecord-gcc-switches -pipe -Wall -Werror=format-security -Wp,-D_FORTIFY_SOURCE=2 -Wp,-D_GLIBCXX_ASSERTIONS -specs=/usr/lib/rpm/redhat/redhat-hardened-cc1 -fstack-protector-strong -specs=/usr/lib/rpm/redhat/redhat-annobin-cc1  -fasynchronous-unwind-tables -fstack-clash-protection -o CMakeFiles/nocmodl.dir/__/nmodl/modl.c.o -c /builddir/build/BUILD/nrn-7.8.1/src/nmodl/modl.c
make[2]: Leaving directory '/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu'
/builddir/build/BUILD/nrn-7.8.1/src/nmodl/modl.c:77:13: warning: 'pgm_name' defined but not used [-Wunused-variable]
   77 | static char pgm_name[] = "nmodl";
      |             ^~~~~~~~
make[2]: Entering directory '/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu'
[  3%] Generating graphicsPrimitives.cpp
cd /builddir/build/BUILD/nrn-7.8.1/share/lib/python/neuron/rxd/geometry3d && /usr/bin/cython -2 graphicsPrimitives.pyx -o /builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/share/lib/python/neuron/rxd/geometry3d/graphicsPrimitives.cpp
cd /builddir/build/BUILD/nrn-7.8.1/share/lib/python/neuron/rxd/geometry3d && bash /builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/share/lib/python/neuron/rxd/geometry3d/cy_cpp_filt.sh /builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/share/lib/python/neuron/rxd/geometry3d/graphicsPrimitives.cpp
make[2]: Leaving directory '/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu'
+ file=/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/share/lib/python/neuron/rxd/geometry3d/graphicsPrimitives.cpp
+ mingw=
+ test x = x1
make[2]: Entering directory '/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu'
[  6%] Building C object src/nrniv/CMakeFiles/nocmodl.dir/__/nmodl/kinetic.c.o
cd /builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/nrniv && /usr/bin/gcc -DHAVE_CONFIG_H -DCVODE=1 -DNMODL=1 -DNOCMODL=1 -DVECTORIZE=1 -I/builddir/build/BUILD/nrn-7.8.1/src/ivoc -I/builddir/build/BUILD/nrn-7.8.1/src/nrniv -I/builddir/build/BUILD/nrn-7.8.1/src/nrnoc -I/builddir/build/BUILD/nrn-7.8.1/src/oc -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/nrncvode -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/nrnjava -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/nrnoc -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/nrnpython -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/oc -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/parallel -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/sundials -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/sundials/shared -I/builddir/build/BUILD/nrn-7.8.1/src -I/builddir/build/BUILD/nrn-7.8.1/src/gnu -I/builddir/build/BUILD/nrn-7.8.1/src/memacs -I/builddir/build/BUILD/nrn-7.8.1/src/mesch -I/builddir/build/BUILD/nrn-7.8.1/src/nrncvode -I/builddir/build/BUILD/nrn-7.8.1/src/nrnmpi -I/builddir/build/BUILD/nrn-7.8.1/src/nrnpython -I/builddir/build/BUILD/nrn-7.8.1/src/parallel -I/builddir/build/BUILD/nrn-7.8.1/src/sparse -I/builddir/build/BUILD/nrn-7.8.1/src/sparse13 -I/builddir/build/BUILD/nrn-7.8.1/src/sundials -I/builddir/build/BUILD/nrn-7.8.1/src/sundials/cvodes -I/builddir/build/BUILD/nrn-7.8.1/src/sundials/ida -I/builddir/build/BUILD/nrn-7.8.1/src/sundials/shared -I/usr/include/python3.9 -O2 -flto=auto -ffat-lto-objects -fexceptions -g -grecord-gcc-switches -pipe -Wall -Werror=format-security -Wp,-D_FORTIFY_SOURCE=2 -Wp,-D_GLIBCXX_ASSERTIONS -specs=/usr/lib/rpm/redhat/redhat-hardened-cc1 -fstack-protector-strong -specs=/usr/lib/rpm/redhat/redhat-annobin-cc1  -fasynchronous-unwind-tables -fstack-clash-protection -o CMakeFiles/nocmodl.dir/__/nmodl/kinetic.c.o -c /builddir/build/BUILD/nrn-7.8.1/src/nmodl/kinetic.c
make[2]: Leaving directory '/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu'
/builddir/build/BUILD/nrn-7.8.1/src/nmodl/kinetic.c: In function 'flux':
/builddir/build/BUILD/nrn-7.8.1/src/nmodl/kinetic.c:251:8: warning: unused variable 'isfunc' [-Wunused-variable]
  251 |    int isfunc;
      |        ^~~~~~
/builddir/build/BUILD/nrn-7.8.1/src/nmodl/kinetic.c: In function 'kinetic_implicit':
/builddir/build/BUILD/nrn-7.8.1/src/nmodl/kinetic.c:706:23: warning: unused variable 'sparsedec' [-Wunused-variable]
  706 |  int i, nstate, flag, sparsedec, firsttrans, firsttrans1;
      |                       ^~~~~~~~~
/builddir/build/BUILD/nrn-7.8.1/src/nmodl/kinetic.c: In function 'massageconserve':
/builddir/build/BUILD/nrn-7.8.1/src/nmodl/kinetic.c:1024:8: warning: variable 'qv' set but not used [-Wunused-but-set-variable]
 1024 |  Item* qv;
      |        ^~
/builddir/build/BUILD/nrn-7.8.1/src/nmodl/kinetic.c: In function 'kinlist':
/builddir/build/BUILD/nrn-7.8.1/src/nmodl/kinetic.c:1160:8: warning: variable 'qv' set but not used [-Wunused-but-set-variable]
 1160 |  Item* qv;
      |        ^~
/builddir/build/BUILD/nrn-7.8.1/src/nmodl/kinetic.c: In function 'single_channel':
/builddir/build/BUILD/nrn-7.8.1/src/nmodl/kinetic.c:1590:6: warning: variable 'nstate' set but not used [-Wunused-but-set-variable]
 1590 |  int nstate, i;
      |      ^~~~~~
At top level:
/builddir/build/BUILD/nrn-7.8.1/src/nmodl/kinetic.c:1415:14: warning: 'astmt_last' defined but not used [-Wunused-variable]
 1415 | static Item* astmt_last;
      |              ^~~~~~~~~~
/builddir/build/BUILD/nrn-7.8.1/src/nmodl/kinetic.c:120:12: warning: 'sparsedeclared' defined but not used [-Wunused-function]
  120 | static int sparsedeclared(i) int i; {
      |            ^~~~~~~~~~~~~~
/builddir/build/BUILD/nrn-7.8.1/src/nmodl/kinetic.c:110:14: warning: 'instance_loop' defined but not used [-Wunused-function]
  110 | static char* instance_loop() {
      |              ^~~~~~~~~~~~~
make[1]: Entering directory '/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu'
[  8%] Built target rxd_cython_generated
make[1]: Leaving directory '/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu'
make[2]: Entering directory '/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu'
[  8%] Building C object src/nrniv/CMakeFiles/nocmodl.dir/__/nmodl/noccout.c.o
cd /builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/nrniv && /usr/bin/gcc -DHAVE_CONFIG_H -DCVODE=1 -DNMODL=1 -DNOCMODL=1 -DVECTORIZE=1 -I/builddir/build/BUILD/nrn-7.8.1/src/ivoc -I/builddir/build/BUILD/nrn-7.8.1/src/nrniv -I/builddir/build/BUILD/nrn-7.8.1/src/nrnoc -I/builddir/build/BUILD/nrn-7.8.1/src/oc -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/nrncvode -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/nrnjava -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/nrnoc -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/nrnpython -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/oc -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/parallel -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/sundials -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/sundials/shared -I/builddir/build/BUILD/nrn-7.8.1/src -I/builddir/build/BUILD/nrn-7.8.1/src/gnu -I/builddir/build/BUILD/nrn-7.8.1/src/memacs -I/builddir/build/BUILD/nrn-7.8.1/src/mesch -I/builddir/build/BUILD/nrn-7.8.1/src/nrncvode -I/builddir/build/BUILD/nrn-7.8.1/src/nrnmpi -I/builddir/build/BUILD/nrn-7.8.1/src/nrnpython -I/builddir/build/BUILD/nrn-7.8.1/src/parallel -I/builddir/build/BUILD/nrn-7.8.1/src/sparse -I/builddir/build/BUILD/nrn-7.8.1/src/sparse13 -I/builddir/build/BUILD/nrn-7.8.1/src/sundials -I/builddir/build/BUILD/nrn-7.8.1/src/sundials/cvodes -I/builddir/build/BUILD/nrn-7.8.1/src/sundials/ida -I/builddir/build/BUILD/nrn-7.8.1/src/sundials/shared -I/usr/include/python3.9 -O2 -flto=auto -ffat-lto-objects -fexceptions -g -grecord-gcc-switches -pipe -Wall -Werror=format-security -Wp,-D_FORTIFY_SOURCE=2 -Wp,-D_GLIBCXX_ASSERTIONS -specs=/usr/lib/rpm/redhat/redhat-hardened-cc1 -fstack-protector-strong -specs=/usr/lib/rpm/redhat/redhat-annobin-cc1  -fasynchronous-unwind-tables -fstack-clash-protection -o CMakeFiles/nocmodl.dir/__/nmodl/noccout.c.o -c /builddir/build/BUILD/nrn-7.8.1/src/nmodl/noccout.c
make[2]: Leaving directory '/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu'
make[2]: Entering directory '/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu'
[  8%] Building C object src/nrniv/CMakeFiles/nocmodl.dir/__/nmodl/parsact.c.o
cd /builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/nrniv && /usr/bin/gcc -DHAVE_CONFIG_H -DCVODE=1 -DNMODL=1 -DNOCMODL=1 -DVECTORIZE=1 -I/builddir/build/BUILD/nrn-7.8.1/src/ivoc -I/builddir/build/BUILD/nrn-7.8.1/src/nrniv -I/builddir/build/BUILD/nrn-7.8.1/src/nrnoc -I/builddir/build/BUILD/nrn-7.8.1/src/oc -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/nrncvode -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/nrnjava -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/nrnoc -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/nrnpython -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/oc -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/parallel -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/sundials -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/sundials/shared -I/builddir/build/BUILD/nrn-7.8.1/src -I/builddir/build/BUILD/nrn-7.8.1/src/gnu -I/builddir/build/BUILD/nrn-7.8.1/src/memacs -I/builddir/build/BUILD/nrn-7.8.1/src/mesch -I/builddir/build/BUILD/nrn-7.8.1/src/nrncvode -I/builddir/build/BUILD/nrn-7.8.1/src/nrnmpi -I/builddir/build/BUILD/nrn-7.8.1/src/nrnpython -I/builddir/build/BUILD/nrn-7.8.1/src/parallel -I/builddir/build/BUILD/nrn-7.8.1/src/sparse -I/builddir/build/BUILD/nrn-7.8.1/src/sparse13 -I/builddir/build/BUILD/nrn-7.8.1/src/sundials -I/builddir/build/BUILD/nrn-7.8.1/src/sundials/cvodes -I/builddir/build/BUILD/nrn-7.8.1/src/sundials/ida -I/builddir/build/BUILD/nrn-7.8.1/src/sundials/shared -I/usr/include/python3.9 -O2 -flto=auto -ffat-lto-objects -fexceptions -g -grecord-gcc-switches -pipe -Wall -Werror=format-security -Wp,-D_FORTIFY_SOURCE=2 -Wp,-D_GLIBCXX_ASSERTIONS -specs=/usr/lib/rpm/redhat/redhat-hardened-cc1 -fstack-protector-strong -specs=/usr/lib/rpm/redhat/redhat-annobin-cc1  -fasynchronous-unwind-tables -fstack-clash-protection -o CMakeFiles/nocmodl.dir/__/nmodl/parsact.c.o -c /builddir/build/BUILD/nrn-7.8.1/src/nmodl/parsact.c
make[2]: Leaving directory '/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu'
/builddir/build/BUILD/nrn-7.8.1/src/nmodl/parsact.c: In function 'vectorize_scan_for_func':
/builddir/build/BUILD/nrn-7.8.1/src/nmodl/parsact.c:403:6: warning: unused variable 'b' [-Wunused-variable]
  403 |  int b;
      |      ^
/builddir/build/BUILD/nrn-7.8.1/src/nmodl/parsact.c:402:12: warning: unused variable 'qq' [-Wunused-variable]
  402 |  Item* q, *qq;
      |            ^~
/builddir/build/BUILD/nrn-7.8.1/src/nmodl/parsact.c: In function 'defarg':
/builddir/build/BUILD/nrn-7.8.1/src/nmodl/parsact.c:425:18: warning: unused variable 'q3' [-Wunused-variable]
  425 |  Item           *q3, *q;
      |                  ^~
/builddir/build/BUILD/nrn-7.8.1/src/nmodl/parsact.c: In function 'hocfunchack':
/builddir/build/BUILD/nrn-7.8.1/src/nmodl/parsact.c:959:8: warning: unused variable 'q' [-Wunused-variable]
  959 |  Item *q;
      |        ^
make[2]: Entering directory '/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu'
[  8%] Building C object src/nrniv/CMakeFiles/nocmodl.dir/__/nmodl/netrec_discon.c.o
cd /builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/nrniv && /usr/bin/gcc -DHAVE_CONFIG_H -DCVODE=1 -DNMODL=1 -DNOCMODL=1 -DVECTORIZE=1 -I/builddir/build/BUILD/nrn-7.8.1/src/ivoc -I/builddir/build/BUILD/nrn-7.8.1/src/nrniv -I/builddir/build/BUILD/nrn-7.8.1/src/nrnoc -I/builddir/build/BUILD/nrn-7.8.1/src/oc -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/nrncvode -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/nrnjava -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/nrnoc -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/nrnpython -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/oc -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/parallel -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/sundials -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/sundials/shared -I/builddir/build/BUILD/nrn-7.8.1/src -I/builddir/build/BUILD/nrn-7.8.1/src/gnu -I/builddir/build/BUILD/nrn-7.8.1/src/memacs -I/builddir/build/BUILD/nrn-7.8.1/src/mesch -I/builddir/build/BUILD/nrn-7.8.1/src/nrncvode -I/builddir/build/BUILD/nrn-7.8.1/src/nrnmpi -I/builddir/build/BUILD/nrn-7.8.1/src/nrnpython -I/builddir/build/BUILD/nrn-7.8.1/src/parallel -I/builddir/build/BUILD/nrn-7.8.1/src/sparse -I/builddir/build/BUILD/nrn-7.8.1/src/sparse13 -I/builddir/build/BUILD/nrn-7.8.1/src/sundials -I/builddir/build/BUILD/nrn-7.8.1/src/sundials/cvodes -I/builddir/build/BUILD/nrn-7.8.1/src/sundials/ida -I/builddir/build/BUILD/nrn-7.8.1/src/sundials/shared -I/usr/include/python3.9 -O2 -flto=auto -ffat-lto-objects -fexceptions -g -grecord-gcc-switches -pipe -Wall -Werror=format-security -Wp,-D_FORTIFY_SOURCE=2 -Wp,-D_GLIBCXX_ASSERTIONS -specs=/usr/lib/rpm/redhat/redhat-hardened-cc1 -fstack-protector-strong -specs=/usr/lib/rpm/redhat/redhat-annobin-cc1  -fasynchronous-unwind-tables -fstack-clash-protection -o CMakeFiles/nocmodl.dir/__/nmodl/netrec_discon.c.o -c /builddir/build/BUILD/nrn-7.8.1/src/nmodl/netrec_discon.c
make[2]: Leaving directory '/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu'
/builddir/build/BUILD/nrn-7.8.1/src/nmodl/netrec_discon.c: In function 'general_discon_adjust':
/builddir/build/BUILD/nrn-7.8.1/src/nmodl/netrec_discon.c:158:7: warning: unused variable 'i' [-Wunused-variable]
  158 |   int i;
      |       ^
make[2]: Entering directory '/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu'
[  9%] Building C object src/nrniv/CMakeFiles/nocmodl.dir/__/nmodl/partial.c.o
cd /builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/nrniv && /usr/bin/gcc -DHAVE_CONFIG_H -DCVODE=1 -DNMODL=1 -DNOCMODL=1 -DVECTORIZE=1 -I/builddir/build/BUILD/nrn-7.8.1/src/ivoc -I/builddir/build/BUILD/nrn-7.8.1/src/nrniv -I/builddir/build/BUILD/nrn-7.8.1/src/nrnoc -I/builddir/build/BUILD/nrn-7.8.1/src/oc -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/nrncvode -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/nrnjava -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/nrnoc -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/nrnpython -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/oc -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/parallel -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/sundials -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/sundials/shared -I/builddir/build/BUILD/nrn-7.8.1/src -I/builddir/build/BUILD/nrn-7.8.1/src/gnu -I/builddir/build/BUILD/nrn-7.8.1/src/memacs -I/builddir/build/BUILD/nrn-7.8.1/src/mesch -I/builddir/build/BUILD/nrn-7.8.1/src/nrncvode -I/builddir/build/BUILD/nrn-7.8.1/src/nrnmpi -I/builddir/build/BUILD/nrn-7.8.1/src/nrnpython -I/builddir/build/BUILD/nrn-7.8.1/src/parallel -I/builddir/build/BUILD/nrn-7.8.1/src/sparse -I/builddir/build/BUILD/nrn-7.8.1/src/sparse13 -I/builddir/build/BUILD/nrn-7.8.1/src/sundials -I/builddir/build/BUILD/nrn-7.8.1/src/sundials/cvodes -I/builddir/build/BUILD/nrn-7.8.1/src/sundials/ida -I/builddir/build/BUILD/nrn-7.8.1/src/sundials/shared -I/usr/include/python3.9 -O2 -flto=auto -ffat-lto-objects -fexceptions -g -grecord-gcc-switches -pipe -Wall -Werror=format-security -Wp,-D_FORTIFY_SOURCE=2 -Wp,-D_GLIBCXX_ASSERTIONS -specs=/usr/lib/rpm/redhat/redhat-hardened-cc1 -fstack-protector-strong -specs=/usr/lib/rpm/redhat/redhat-annobin-cc1  -fasynchronous-unwind-tables -fstack-clash-protection -o CMakeFiles/nocmodl.dir/__/nmodl/partial.c.o -c /builddir/build/BUILD/nrn-7.8.1/src/nmodl/partial.c
make[2]: Leaving directory '/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu'
make[2]: Entering directory '/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu'
[  9%] Building C object src/nrniv/CMakeFiles/nocmodl.dir/__/nmodl/sens.c.o
cd /builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/nrniv && /usr/bin/gcc -DHAVE_CONFIG_H -DCVODE=1 -DNMODL=1 -DNOCMODL=1 -DVECTORIZE=1 -I/builddir/build/BUILD/nrn-7.8.1/src/ivoc -I/builddir/build/BUILD/nrn-7.8.1/src/nrniv -I/builddir/build/BUILD/nrn-7.8.1/src/nrnoc -I/builddir/build/BUILD/nrn-7.8.1/src/oc -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/nrncvode -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/nrnjava -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/nrnoc -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/nrnpython -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/oc -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/parallel -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/sundials -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/sundials/shared -I/builddir/build/BUILD/nrn-7.8.1/src -I/builddir/build/BUILD/nrn-7.8.1/src/gnu -I/builddir/build/BUILD/nrn-7.8.1/src/memacs -I/builddir/build/BUILD/nrn-7.8.1/src/mesch -I/builddir/build/BUILD/nrn-7.8.1/src/nrncvode -I/builddir/build/BUILD/nrn-7.8.1/src/nrnmpi -I/builddir/build/BUILD/nrn-7.8.1/src/nrnpython -I/builddir/build/BUILD/nrn-7.8.1/src/parallel -I/builddir/build/BUILD/nrn-7.8.1/src/sparse -I/builddir/build/BUILD/nrn-7.8.1/src/sparse13 -I/builddir/build/BUILD/nrn-7.8.1/src/sundials -I/builddir/build/BUILD/nrn-7.8.1/src/sundials/cvodes -I/builddir/build/BUILD/nrn-7.8.1/src/sundials/ida -I/builddir/build/BUILD/nrn-7.8.1/src/sundials/shared -I/usr/include/python3.9 -O2 -flto=auto -ffat-lto-objects -fexceptions -g -grecord-gcc-switches -pipe -Wall -Werror=format-security -Wp,-D_FORTIFY_SOURCE=2 -Wp,-D_GLIBCXX_ASSERTIONS -specs=/usr/lib/rpm/redhat/redhat-hardened-cc1 -fstack-protector-strong -specs=/usr/lib/rpm/redhat/redhat-annobin-cc1  -fasynchronous-unwind-tables -fstack-clash-protection -o CMakeFiles/nocmodl.dir/__/nmodl/sens.c.o -c /builddir/build/BUILD/nrn-7.8.1/src/nmodl/sens.c
make[2]: Leaving directory '/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu'
/usr/bin/make  -f share/lib/python/neuron/rxd/geometry3d/CMakeFiles/rx3dextensions_0.dir/build.make share/lib/python/neuron/rxd/geometry3d/CMakeFiles/rx3dextensions_0.dir/depend
make[2]: Entering directory '/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu'
cd /builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu && /usr/bin/cmake -E cmake_depends "Unix Makefiles" /builddir/build/BUILD/nrn-7.8.1 /builddir/build/BUILD/nrn-7.8.1/share/lib/python/neuron/rxd/geometry3d /builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu /builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/share/lib/python/neuron/rxd/geometry3d /builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/share/lib/python/neuron/rxd/geometry3d/CMakeFiles/rx3dextensions_0.dir/DependInfo.cmake --color=
Dependee "/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/share/lib/python/neuron/rxd/geometry3d/CMakeFiles/rx3dextensions_0.dir/DependInfo.cmake" is newer than depender "/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/share/lib/python/neuron/rxd/geometry3d/CMakeFiles/rx3dextensions_0.dir/depend.internal".
Dependee "/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/share/lib/python/neuron/rxd/geometry3d/CMakeFiles/CMakeDirectoryInformation.cmake" is newer than depender "/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/share/lib/python/neuron/rxd/geometry3d/CMakeFiles/rx3dextensions_0.dir/depend.internal".
Scanning dependencies of target rx3dextensions_0
make[2]: Leaving directory '/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu'
/usr/bin/make  -f share/lib/python/neuron/rxd/geometry3d/CMakeFiles/rx3dextensions_0.dir/build.make share/lib/python/neuron/rxd/geometry3d/CMakeFiles/rx3dextensions_0.dir/build
make[2]: Entering directory '/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu'
cd /builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/share/lib/python/neuron/rxd/geometry3d && bash /builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/share/lib/python/neuron/rxd/geometry3d/runpy.sh /usr/bin/python3.9
runpy /usr/bin/python3.9
running build_ext
make[2]: Leaving directory '/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu'
+ echo runpy /usr/bin/python3.9
+ pyexe=/usr/bin/python3.9
+ mingw=
+ shift
+ test x = x1
+ /usr/bin/python3.9 setup.py build_ext --build-lib=/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/lib/python
make[1]: Entering directory '/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu'
[  9%] Built target rx3dextensions_0
make[1]: Leaving directory '/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu'
/usr/bin/make  -f share/lib/python/neuron/rxd/geometry3d/CMakeFiles/rx3d.dir/build.make share/lib/python/neuron/rxd/geometry3d/CMakeFiles/rx3d.dir/depend
make[2]: Entering directory '/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu'
[  9%] Building C object src/nrniv/CMakeFiles/nocmodl.dir/__/nmodl/simultan.c.o
cd /builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/nrniv && /usr/bin/gcc -DHAVE_CONFIG_H -DCVODE=1 -DNMODL=1 -DNOCMODL=1 -DVECTORIZE=1 -I/builddir/build/BUILD/nrn-7.8.1/src/ivoc -I/builddir/build/BUILD/nrn-7.8.1/src/nrniv -I/builddir/build/BUILD/nrn-7.8.1/src/nrnoc -I/builddir/build/BUILD/nrn-7.8.1/src/oc -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/nrncvode -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/nrnjava -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/nrnoc -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/nrnpython -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/oc -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/parallel -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/sundials -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/sundials/shared -I/builddir/build/BUILD/nrn-7.8.1/src -I/builddir/build/BUILD/nrn-7.8.1/src/gnu -I/builddir/build/BUILD/nrn-7.8.1/src/memacs -I/builddir/build/BUILD/nrn-7.8.1/src/mesch -I/builddir/build/BUILD/nrn-7.8.1/src/nrncvode -I/builddir/build/BUILD/nrn-7.8.1/src/nrnmpi -I/builddir/build/BUILD/nrn-7.8.1/src/nrnpython -I/builddir/build/BUILD/nrn-7.8.1/src/parallel -I/builddir/build/BUILD/nrn-7.8.1/src/sparse -I/builddir/build/BUILD/nrn-7.8.1/src/sparse13 -I/builddir/build/BUILD/nrn-7.8.1/src/sundials -I/builddir/build/BUILD/nrn-7.8.1/src/sundials/cvodes -I/builddir/build/BUILD/nrn-7.8.1/src/sundials/ida -I/builddir/build/BUILD/nrn-7.8.1/src/sundials/shared -I/usr/include/python3.9 -O2 -flto=auto -ffat-lto-objects -fexceptions -g -grecord-gcc-switches -pipe -Wall -Werror=format-security -Wp,-D_FORTIFY_SOURCE=2 -Wp,-D_GLIBCXX_ASSERTIONS -specs=/usr/lib/rpm/redhat/redhat-hardened-cc1 -fstack-protector-strong -specs=/usr/lib/rpm/redhat/redhat-annobin-cc1  -fasynchronous-unwind-tables -fstack-clash-protection -o CMakeFiles/nocmodl.dir/__/nmodl/simultan.c.o -c /builddir/build/BUILD/nrn-7.8.1/src/nmodl/simultan.c
make[2]: Leaving directory '/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu'
make[2]: Entering directory '/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu'
cd /builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu && /usr/bin/cmake -E cmake_depends "Unix Makefiles" /builddir/build/BUILD/nrn-7.8.1 /builddir/build/BUILD/nrn-7.8.1/share/lib/python/neuron/rxd/geometry3d /builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu /builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/share/lib/python/neuron/rxd/geometry3d /builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/share/lib/python/neuron/rxd/geometry3d/CMakeFiles/rx3d.dir/DependInfo.cmake --color=
Dependee "/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/share/lib/python/neuron/rxd/geometry3d/CMakeFiles/rx3d.dir/DependInfo.cmake" is newer than depender "/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/share/lib/python/neuron/rxd/geometry3d/CMakeFiles/rx3d.dir/depend.internal".
Dependee "/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/share/lib/python/neuron/rxd/geometry3d/CMakeFiles/CMakeDirectoryInformation.cmake" is newer than depender "/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/share/lib/python/neuron/rxd/geometry3d/CMakeFiles/rx3d.dir/depend.internal".
Scanning dependencies of target rx3d
make[2]: Leaving directory '/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu'
/usr/bin/make  -f share/lib/python/neuron/rxd/geometry3d/CMakeFiles/rx3d.dir/build.make share/lib/python/neuron/rxd/geometry3d/CMakeFiles/rx3d.dir/build
make[2]: Nothing to be done for 'share/lib/python/neuron/rxd/geometry3d/CMakeFiles/rx3d.dir/build'.
make[1]: Entering directory '/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu'
[  9%] Built target rx3d
make[1]: Leaving directory '/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu'
make[2]: Entering directory '/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu'
[  9%] Building C object src/nrniv/CMakeFiles/nocmodl.dir/__/nmodl/symbol.c.o
cd /builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/nrniv && /usr/bin/gcc -DHAVE_CONFIG_H -DCVODE=1 -DNMODL=1 -DNOCMODL=1 -DVECTORIZE=1 -I/builddir/build/BUILD/nrn-7.8.1/src/ivoc -I/builddir/build/BUILD/nrn-7.8.1/src/nrniv -I/builddir/build/BUILD/nrn-7.8.1/src/nrnoc -I/builddir/build/BUILD/nrn-7.8.1/src/oc -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/nrncvode -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/nrnjava -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/nrnoc -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/nrnpython -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/oc -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/parallel -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/sundials -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/sundials/shared -I/builddir/build/BUILD/nrn-7.8.1/src -I/builddir/build/BUILD/nrn-7.8.1/src/gnu -I/builddir/build/BUILD/nrn-7.8.1/src/memacs -I/builddir/build/BUILD/nrn-7.8.1/src/mesch -I/builddir/build/BUILD/nrn-7.8.1/src/nrncvode -I/builddir/build/BUILD/nrn-7.8.1/src/nrnmpi -I/builddir/build/BUILD/nrn-7.8.1/src/nrnpython -I/builddir/build/BUILD/nrn-7.8.1/src/parallel -I/builddir/build/BUILD/nrn-7.8.1/src/sparse -I/builddir/build/BUILD/nrn-7.8.1/src/sparse13 -I/builddir/build/BUILD/nrn-7.8.1/src/sundials -I/builddir/build/BUILD/nrn-7.8.1/src/sundials/cvodes -I/builddir/build/BUILD/nrn-7.8.1/src/sundials/ida -I/builddir/build/BUILD/nrn-7.8.1/src/sundials/shared -I/usr/include/python3.9 -O2 -flto=auto -ffat-lto-objects -fexceptions -g -grecord-gcc-switches -pipe -Wall -Werror=format-security -Wp,-D_FORTIFY_SOURCE=2 -Wp,-D_GLIBCXX_ASSERTIONS -specs=/usr/lib/rpm/redhat/redhat-hardened-cc1 -fstack-protector-strong -specs=/usr/lib/rpm/redhat/redhat-annobin-cc1  -fasynchronous-unwind-tables -fstack-clash-protection -o CMakeFiles/nocmodl.dir/__/nmodl/symbol.c.o -c /builddir/build/BUILD/nrn-7.8.1/src/nmodl/symbol.c
make[2]: Leaving directory '/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu'
In file included from /builddir/build/BUILD/nrn-7.8.1/src/nmodl/symbol.c:3:
/builddir/build/BUILD/nrn-7.8.1/src/nmodl/symbol.c: In function 'lookup':
/builddir/build/BUILD/nrn-7.8.1/src/nmodl/symbol.c:25:23: warning: array subscript has type 'char' [-Wchar-subscripts]
   25 |  ITERATE(sp, symlist[s[0]]) {
      |                      ~^~~
/builddir/build/BUILD/nrn-7.8.1/src/nmodl/modl.h:110:38: note: in definition of macro 'ITERATE'
  110 | #define ITERATE(itm,lst) for (itm = (lst)->next; itm != (lst); itm = itm->next)
      |                                      ^~~
/builddir/build/BUILD/nrn-7.8.1/src/nmodl/symbol.c:25:23: warning: array subscript has type 'char' [-Wchar-subscripts]
   25 |  ITERATE(sp, symlist[s[0]]) {
      |                      ~^~~
/builddir/build/BUILD/nrn-7.8.1/src/nmodl/modl.h:110:58: note: in definition of macro 'ITERATE'
  110 | #define ITERATE(itm,lst) for (itm = (lst)->next; itm != (lst); itm = itm->next)
      |                                                          ^~~
/builddir/build/BUILD/nrn-7.8.1/src/nmodl/symbol.c: In function 'install':
/builddir/build/BUILD/nrn-7.8.1/src/nmodl/symbol.c:65:17: warning: array subscript has type 'char' [-Wchar-subscripts]
   65 |   sl = symlist[s[0]];
      |                ~^~~
make[2]: Entering directory '/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu'
[  9%] Building C object src/nrniv/CMakeFiles/nocmodl.dir/__/nmodl/solve.c.o
cd /builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/nrniv && /usr/bin/gcc -DHAVE_CONFIG_H -DCVODE=1 -DNMODL=1 -DNOCMODL=1 -DVECTORIZE=1 -I/builddir/build/BUILD/nrn-7.8.1/src/ivoc -I/builddir/build/BUILD/nrn-7.8.1/src/nrniv -I/builddir/build/BUILD/nrn-7.8.1/src/nrnoc -I/builddir/build/BUILD/nrn-7.8.1/src/oc -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/nrncvode -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/nrnjava -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/nrnoc -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/nrnpython -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/oc -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/parallel -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/sundials -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/sundials/shared -I/builddir/build/BUILD/nrn-7.8.1/src -I/builddir/build/BUILD/nrn-7.8.1/src/gnu -I/builddir/build/BUILD/nrn-7.8.1/src/memacs -I/builddir/build/BUILD/nrn-7.8.1/src/mesch -I/builddir/build/BUILD/nrn-7.8.1/src/nrncvode -I/builddir/build/BUILD/nrn-7.8.1/src/nrnmpi -I/builddir/build/BUILD/nrn-7.8.1/src/nrnpython -I/builddir/build/BUILD/nrn-7.8.1/src/parallel -I/builddir/build/BUILD/nrn-7.8.1/src/sparse -I/builddir/build/BUILD/nrn-7.8.1/src/sparse13 -I/builddir/build/BUILD/nrn-7.8.1/src/sundials -I/builddir/build/BUILD/nrn-7.8.1/src/sundials/cvodes -I/builddir/build/BUILD/nrn-7.8.1/src/sundials/ida -I/builddir/build/BUILD/nrn-7.8.1/src/sundials/shared -I/usr/include/python3.9 -O2 -flto=auto -ffat-lto-objects -fexceptions -g -grecord-gcc-switches -pipe -Wall -Werror=format-security -Wp,-D_FORTIFY_SOURCE=2 -Wp,-D_GLIBCXX_ASSERTIONS -specs=/usr/lib/rpm/redhat/redhat-hardened-cc1 -fstack-protector-strong -specs=/usr/lib/rpm/redhat/redhat-annobin-cc1  -fasynchronous-unwind-tables -fstack-clash-protection -o CMakeFiles/nocmodl.dir/__/nmodl/solve.c.o -c /builddir/build/BUILD/nrn-7.8.1/src/nmodl/solve.c
make[2]: Leaving directory '/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu'
/builddir/build/BUILD/nrn-7.8.1/src/nmodl/solve.c: In function 'whileloop':
/builddir/build/BUILD/nrn-7.8.1/src/nmodl/solve.c:393:8: warning: variable 'cp' set but not used [-Wunused-but-set-variable]
  393 |  char *cp=0;
      |        ^~
make[2]: Entering directory '/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu'
[ 10%] Building C object src/nrniv/CMakeFiles/nocmodl.dir/__/nmodl/version.c.o
cd /builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/nrniv && /usr/bin/gcc -DHAVE_CONFIG_H -DCVODE=1 -DNMODL=1 -DNOCMODL=1 -DVECTORIZE=1 -I/builddir/build/BUILD/nrn-7.8.1/src/ivoc -I/builddir/build/BUILD/nrn-7.8.1/src/nrniv -I/builddir/build/BUILD/nrn-7.8.1/src/nrnoc -I/builddir/build/BUILD/nrn-7.8.1/src/oc -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/nrncvode -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/nrnjava -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/nrnoc -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/nrnpython -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/oc -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/parallel -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/sundials -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/sundials/shared -I/builddir/build/BUILD/nrn-7.8.1/src -I/builddir/build/BUILD/nrn-7.8.1/src/gnu -I/builddir/build/BUILD/nrn-7.8.1/src/memacs -I/builddir/build/BUILD/nrn-7.8.1/src/mesch -I/builddir/build/BUILD/nrn-7.8.1/src/nrncvode -I/builddir/build/BUILD/nrn-7.8.1/src/nrnmpi -I/builddir/build/BUILD/nrn-7.8.1/src/nrnpython -I/builddir/build/BUILD/nrn-7.8.1/src/parallel -I/builddir/build/BUILD/nrn-7.8.1/src/sparse -I/builddir/build/BUILD/nrn-7.8.1/src/sparse13 -I/builddir/build/BUILD/nrn-7.8.1/src/sundials -I/builddir/build/BUILD/nrn-7.8.1/src/sundials/cvodes -I/builddir/build/BUILD/nrn-7.8.1/src/sundials/ida -I/builddir/build/BUILD/nrn-7.8.1/src/sundials/shared -I/usr/include/python3.9 -O2 -flto=auto -ffat-lto-objects -fexceptions -g -grecord-gcc-switches -pipe -Wall -Werror=format-security -Wp,-D_FORTIFY_SOURCE=2 -Wp,-D_GLIBCXX_ASSERTIONS -specs=/usr/lib/rpm/redhat/redhat-hardened-cc1 -fstack-protector-strong -specs=/usr/lib/rpm/redhat/redhat-annobin-cc1  -fasynchronous-unwind-tables -fstack-clash-protection -o CMakeFiles/nocmodl.dir/__/nmodl/version.c.o -c /builddir/build/BUILD/nrn-7.8.1/src/nmodl/version.c
make[2]: Leaving directory '/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu'
make[2]: Entering directory '/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu'
[  8%] Building C object src/nrniv/CMakeFiles/nocmodl.dir/__/nmodl/nocpout.c.o
cd /builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/nrniv && /usr/bin/gcc -DHAVE_CONFIG_H -DCVODE=1 -DNMODL=1 -DNOCMODL=1 -DVECTORIZE=1 -I/builddir/build/BUILD/nrn-7.8.1/src/ivoc -I/builddir/build/BUILD/nrn-7.8.1/src/nrniv -I/builddir/build/BUILD/nrn-7.8.1/src/nrnoc -I/builddir/build/BUILD/nrn-7.8.1/src/oc -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/nrncvode -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/nrnjava -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/nrnoc -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/nrnpython -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/oc -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/parallel -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/sundials -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/sundials/shared -I/builddir/build/BUILD/nrn-7.8.1/src -I/builddir/build/BUILD/nrn-7.8.1/src/gnu -I/builddir/build/BUILD/nrn-7.8.1/src/memacs -I/builddir/build/BUILD/nrn-7.8.1/src/mesch -I/builddir/build/BUILD/nrn-7.8.1/src/nrncvode -I/builddir/build/BUILD/nrn-7.8.1/src/nrnmpi -I/builddir/build/BUILD/nrn-7.8.1/src/nrnpython -I/builddir/build/BUILD/nrn-7.8.1/src/parallel -I/builddir/build/BUILD/nrn-7.8.1/src/sparse -I/builddir/build/BUILD/nrn-7.8.1/src/sparse13 -I/builddir/build/BUILD/nrn-7.8.1/src/sundials -I/builddir/build/BUILD/nrn-7.8.1/src/sundials/cvodes -I/builddir/build/BUILD/nrn-7.8.1/src/sundials/ida -I/builddir/build/BUILD/nrn-7.8.1/src/sundials/shared -I/usr/include/python3.9 -O2 -flto=auto -ffat-lto-objects -fexceptions -g -grecord-gcc-switches -pipe -Wall -Werror=format-security -Wp,-D_FORTIFY_SOURCE=2 -Wp,-D_GLIBCXX_ASSERTIONS -specs=/usr/lib/rpm/redhat/redhat-hardened-cc1 -fstack-protector-strong -specs=/usr/lib/rpm/redhat/redhat-annobin-cc1  -fasynchronous-unwind-tables -fstack-clash-protection -o CMakeFiles/nocmodl.dir/__/nmodl/nocpout.c.o -c /builddir/build/BUILD/nrn-7.8.1/src/nmodl/nocpout.c
make[2]: Leaving directory '/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu'
/builddir/build/BUILD/nrn-7.8.1/src/nmodl/nocpout.c: In function 'parout':
/builddir/build/BUILD/nrn-7.8.1/src/nmodl/nocpout.c:224:9: warning: unused variable 'j' [-Wunused-variable]
  224 |  int i, j, ioncount, pointercount, gind, emit_check_table_thread;
      |         ^
/builddir/build/BUILD/nrn-7.8.1/src/nmodl/nocpout.c: In function 'decode_limits':
/builddir/build/BUILD/nrn-7.8.1/src/nmodl/nocpout.c:1377:9: warning: unused variable 'd1' [-Wunused-variable]
 1377 |  double d1;
      |         ^~
/builddir/build/BUILD/nrn-7.8.1/src/nmodl/nocpout.c: In function 'decode_tolerance':
/builddir/build/BUILD/nrn-7.8.1/src/nmodl/nocpout.c:1404:9: warning: unused variable 'd1' [-Wunused-variable]
 1404 |  double d1;
      |         ^~
/builddir/build/BUILD/nrn-7.8.1/src/nmodl/nocpout.c: In function 'cvode_rw_cur':
/builddir/build/BUILD/nrn-7.8.1/src/nmodl/nocpout.c:2537:10: warning: variable 'sion' set but not used [-Wunused-but-set-variable]
 2537 |  Symbol* sion;
      |          ^~~~
/builddir/build/BUILD/nrn-7.8.1/src/nmodl/nocpout.c: In function 'net_receive':
/builddir/build/BUILD/nrn-7.8.1/src/nmodl/nocpout.c:2566:9: warning: unused variable 'b' [-Wunused-variable]
 2566 |  int i, b;
      |         ^
/builddir/build/BUILD/nrn-7.8.1/src/nmodl/nocpout.c: In function 'conductance_hint':
/builddir/build/BUILD/nrn-7.8.1/src/nmodl/nocpout.c:2744:8: warning: unused variable 'q' [-Wunused-variable]
 2744 |  Item* q;
      |        ^
At top level:
/builddir/build/BUILD/nrn-7.8.1/src/nmodl/nocpout.c:180:12: warning: 'cvode_index' defined but not used [-Wunused-variable]
  180 | static int cvode_index;
      |            ^~~~~~~~~~~
/builddir/build/BUILD/nrn-7.8.1/src/nmodl/nocpout.c:177:12: warning: 'cond_index' defined but not used [-Wunused-variable]
  177 | static int cond_index;
      |            ^~~~~~~~~~
make[2]: Entering directory '/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu'
[ 10%] Building C object src/nrniv/CMakeFiles/nocmodl.dir/__/nmodl/units.c.o
cd /builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/nrniv && /usr/bin/gcc -DHAVE_CONFIG_H -DCVODE=1 -DNMODL=1 -DNOCMODL=1 -DVECTORIZE=1 -I/builddir/build/BUILD/nrn-7.8.1/src/ivoc -I/builddir/build/BUILD/nrn-7.8.1/src/nrniv -I/builddir/build/BUILD/nrn-7.8.1/src/nrnoc -I/builddir/build/BUILD/nrn-7.8.1/src/oc -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/nrncvode -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/nrnjava -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/nrnoc -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/nrnpython -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/oc -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/parallel -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/sundials -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/sundials/shared -I/builddir/build/BUILD/nrn-7.8.1/src -I/builddir/build/BUILD/nrn-7.8.1/src/gnu -I/builddir/build/BUILD/nrn-7.8.1/src/memacs -I/builddir/build/BUILD/nrn-7.8.1/src/mesch -I/builddir/build/BUILD/nrn-7.8.1/src/nrncvode -I/builddir/build/BUILD/nrn-7.8.1/src/nrnmpi -I/builddir/build/BUILD/nrn-7.8.1/src/nrnpython -I/builddir/build/BUILD/nrn-7.8.1/src/parallel -I/builddir/build/BUILD/nrn-7.8.1/src/sparse -I/builddir/build/BUILD/nrn-7.8.1/src/sparse13 -I/builddir/build/BUILD/nrn-7.8.1/src/sundials -I/builddir/build/BUILD/nrn-7.8.1/src/sundials/cvodes -I/builddir/build/BUILD/nrn-7.8.1/src/sundials/ida -I/builddir/build/BUILD/nrn-7.8.1/src/sundials/shared -I/usr/include/python3.9 -O2 -flto=auto -ffat-lto-objects -fexceptions -g -grecord-gcc-switches -pipe -Wall -Werror=format-security -Wp,-D_FORTIFY_SOURCE=2 -Wp,-D_GLIBCXX_ASSERTIONS -specs=/usr/lib/rpm/redhat/redhat-hardened-cc1 -fstack-protector-strong -specs=/usr/lib/rpm/redhat/redhat-annobin-cc1  -fasynchronous-unwind-tables -fstack-clash-protection -o CMakeFiles/nocmodl.dir/__/nmodl/units.c.o -c /builddir/build/BUILD/nrn-7.8.1/src/nmodl/units.c
make[2]: Leaving directory '/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu'
In file included from /builddir/build/BUILD/nrn-7.8.1/src/nmodl/units.c:6:
/builddir/build/BUILD/nrn-7.8.1/src/nmodl/../modlunit/units.c:76:1: warning: missing braces around initializer [-Wmissing-braces]
   76 | {
      | ^
   77 |  1e-18, "atto",
      |  {            }
   78 |  1e-15, "femto",
      |  {             }
   79 |  1e-12, "pico",
      |  {            }
   80 |  1e-9, "nano",
      |  {           }
   81 |  1e-6, "micro",
      |  {            }
   82 |  1e-3, "milli",
      |  {            }
   83 |  1e-2, "centi",
      |  {            }
   84 |  1e-1, "deci",
      |  {           }
   85 |  1e1, "deka",
      |  {          }
   86 |  1e2, "hecta",
      |  {           }
   87 |  1e2, "hecto",
      |  {           }
   88 |  1e3, "kilo",
      |  {          }
   89 |  1e6, "mega",
      |  {          }
   90 |  1e6, "meg",
      |  {         }
   91 |  1e9, "giga",
      |  {          }
   92 |  1e12, "tera",
      |  {           }
   93 |  0.0, 0
      |  {
   94 | };
      | }
/builddir/build/BUILD/nrn-7.8.1/src/nmodl/../modlunit/units.c: In function 'pu':
/builddir/build/BUILD/nrn-7.8.1/src/nmodl/../modlunit/units.c:660:3: warning: this 'if' clause does not guard... [-Wmisleading-indentation]
  660 |   if(u > 1)
      |   ^~
/builddir/build/BUILD/nrn-7.8.1/src/nmodl/../modlunit/units.c:662:4: note: ...this statement, but the latter is misleadingly indented as if it were guarded by the 'if'
  662 |    return(2);
      |    ^~~~~~
/builddir/build/BUILD/nrn-7.8.1/src/nmodl/../modlunit/units.c: In function 'unit_stk_clean':
/builddir/build/BUILD/nrn-7.8.1/src/nmodl/../modlunit/units.c:487:19: warning: array subscript -1 is outside array bounds of 'struct unit[20]' [-Warray-bounds]
  487 |  usp = unit_stack - 1;
      |        ~~~~~~~~~~~^~~
/builddir/build/BUILD/nrn-7.8.1/src/nmodl/../modlunit/units.c:121:20: note: while referencing 'unit_stack'
  121 | static struct unit unit_stack[UNIT_STK_SIZE], *usp;
      |                    ^~~~~~~~~~
/builddir/build/BUILD/nrn-7.8.1/src/nmodl/../modlunit/units.c: In function 'punit':
/builddir/build/BUILD/nrn-7.8.1/src/nmodl/../modlunit/units.c:185:27: warning: array subscript -1 is outside array bounds of 'struct unit[20]' [-Warray-bounds]
  185 |  for (i=usp; i!=unit_stack-1; --i) {
      |                 ~~~~~~~~~~^~
/builddir/build/BUILD/nrn-7.8.1/src/nmodl/../modlunit/units.c:121:20: note: while referencing 'unit_stack'
  121 | static struct unit unit_stack[UNIT_STK_SIZE], *usp;
      |                    ^~~~~~~~~~
/builddir/build/BUILD/nrn-7.8.1/src/nmodl/../modlunit/units.c: In function 'unit_init':
/builddir/build/BUILD/nrn-7.8.1/src/nmodl/../modlunit/units.c:487:19: warning: array subscript -1 is outside array bounds of 'struct unit[20]' [-Warray-bounds]
  487 |  usp = unit_stack - 1;
      |        ~~~~~~~~~~~^~~
/builddir/build/BUILD/nrn-7.8.1/src/nmodl/../modlunit/units.c:121:20: note: while referencing 'unit_stack'
  121 | static struct unit unit_stack[UNIT_STK_SIZE], *usp;
      |                    ^~~~~~~~~~
make[2]: Entering directory '/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu'
[  7%] Linking C executable ../../bin/modlunit
cd /builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/nrniv && /usr/bin/cmake -E cmake_link_script CMakeFiles/modlunit.dir/link.txt --verbose=1
/usr/bin/gcc -O2 -flto=auto -ffat-lto-objects -fexceptions -g -grecord-gcc-switches -pipe -Wall -Werror=format-security -Wp,-D_FORTIFY_SOURCE=2 -Wp,-D_GLIBCXX_ASSERTIONS -specs=/usr/lib/rpm/redhat/redhat-hardened-cc1 -fstack-protector-strong -specs=/usr/lib/rpm/redhat/redhat-annobin-cc1  -fasynchronous-unwind-tables -fstack-clash-protection -Wl,-z,relro -Wl,--as-needed  -Wl,-z,now -specs=/usr/lib/rpm/redhat/redhat-hardened-ld -rdynamic CMakeFiles/modlunit.dir/__/modlunit/parse1.c.o CMakeFiles/modlunit.dir/__/modlunit/lex.c.o CMakeFiles/modlunit.dir/__/modlunit/consist.c.o CMakeFiles/modlunit.dir/__/modlunit/declare.c.o CMakeFiles/modlunit.dir/__/modlunit/init.c.o CMakeFiles/modlunit.dir/__/modlunit/io.c.o CMakeFiles/modlunit.dir/__/modlunit/kinunit.c.o CMakeFiles/modlunit.dir/__/modlunit/list.c.o CMakeFiles/modlunit.dir/__/modlunit/model.c.o CMakeFiles/modlunit.dir/__/modlunit/nrnunit.c.o CMakeFiles/modlunit.dir/__/modlunit/passn.c.o CMakeFiles/modlunit.dir/__/modlunit/symbol.c.o CMakeFiles/modlunit.dir/__/modlunit/units.c.o CMakeFiles/modlunit.dir/__/modlunit/units1.c.o CMakeFiles/modlunit.dir/__/modlunit/version.c.o -o ../../bin/modlunit 
make[2]: Leaving directory '/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu'
make[1]: Entering directory '/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu'
[ 10%] Built target modlunit
make[1]: Leaving directory '/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu'
make[2]: Entering directory '/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu'
[ 10%] Linking C executable ../../bin/nocmodl
cd /builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/nrniv && /usr/bin/cmake -E cmake_link_script CMakeFiles/nocmodl.dir/link.txt --verbose=1
/usr/bin/gcc -O2 -flto=auto -ffat-lto-objects -fexceptions -g -grecord-gcc-switches -pipe -Wall -Werror=format-security -Wp,-D_FORTIFY_SOURCE=2 -Wp,-D_GLIBCXX_ASSERTIONS -specs=/usr/lib/rpm/redhat/redhat-hardened-cc1 -fstack-protector-strong -specs=/usr/lib/rpm/redhat/redhat-annobin-cc1  -fasynchronous-unwind-tables -fstack-clash-protection -Wl,-z,relro -Wl,--as-needed  -Wl,-z,now -specs=/usr/lib/rpm/redhat/redhat-hardened-ld -rdynamic CMakeFiles/nocmodl.dir/__/nmodl/parse1.c.o CMakeFiles/nocmodl.dir/__/nmodl/diffeq.c.o CMakeFiles/nocmodl.dir/__/nmodl/lex.c.o CMakeFiles/nocmodl.dir/__/nmodl/consist.c.o CMakeFiles/nocmodl.dir/__/nmodl/deriv.c.o CMakeFiles/nocmodl.dir/__/nmodl/discrete.c.o CMakeFiles/nocmodl.dir/__/nmodl/init.c.o CMakeFiles/nocmodl.dir/__/nmodl/io.c.o CMakeFiles/nocmodl.dir/__/nmodl/kinetic.c.o CMakeFiles/nocmodl.dir/__/nmodl/list.c.o CMakeFiles/nocmodl.dir/__/nmodl/modl.c.o CMakeFiles/nocmodl.dir/__/nmodl/nocpout.c.o CMakeFiles/nocmodl.dir/__/nmodl/noccout.c.o CMakeFiles/nocmodl.dir/__/nmodl/parsact.c.o CMakeFiles/nocmodl.dir/__/nmodl/netrec_discon.c.o CMakeFiles/nocmodl.dir/__/nmodl/partial.c.o CMakeFiles/nocmodl.dir/__/nmodl/sens.c.o CMakeFiles/nocmodl.dir/__/nmodl/simultan.c.o CMakeFiles/nocmodl.dir/__/nmodl/solve.c.o CMakeFiles/nocmodl.dir/__/nmodl/symbol.c.o CMakeFiles/nocmodl.dir/__/nmodl/units.c.o CMakeFiles/nocmodl.dir/__/nmodl/version.c.o -o ../../bin/nocmodl 
make[2]: Leaving directory '/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu'
make[1]: Entering directory '/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu'
[ 10%] Built target nocmodl
make[1]: Leaving directory '/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu'
/usr/bin/make  -f src/nrniv/CMakeFiles/nrniv_lib.dir/build.make src/nrniv/CMakeFiles/nrniv_lib.dir/depend
make[2]: Entering directory '/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu'
[ 10%] Generating ../../../src/nrnoc/svclmp.c
cd /builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/nrniv && /usr/bin/cmake -E env MODLUNIT=/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/share/nrn/lib/nrnunits.lib /builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/bin/nocmodl /builddir/build/BUILD/nrn-7.8.1/src/nrnoc/svclmp.mod
cd /builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/nrniv && sed 's/_reg()/_reg_()/' /builddir/build/BUILD/nrn-7.8.1/src/nrnoc/svclmp.c > /builddir/build/BUILD/nrn-7.8.1/src/nrnoc/svclmp.c.tmp
cd /builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/nrniv && mv /builddir/build/BUILD/nrn-7.8.1/src/nrnoc/svclmp.c.tmp /builddir/build/BUILD/nrn-7.8.1/src/nrnoc/svclmp.c
make[2]: Leaving directory '/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu'
Translating /builddir/build/BUILD/nrn-7.8.1/src/nrnoc/svclmp.mod into /builddir/build/BUILD/nrn-7.8.1/src/nrnoc/svclmp.c
Thread Safe
make[2]: Entering directory '/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu'
[ 10%] Generating ../../../src/nrnoc/apcount.c
cd /builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/nrniv && /usr/bin/cmake -E env MODLUNIT=/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/share/nrn/lib/nrnunits.lib /builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/bin/nocmodl /builddir/build/BUILD/nrn-7.8.1/src/nrnoc/apcount.mod
cd /builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/nrniv && sed 's/_reg()/_reg_()/' /builddir/build/BUILD/nrn-7.8.1/src/nrnoc/apcount.c > /builddir/build/BUILD/nrn-7.8.1/src/nrnoc/apcount.c.tmp
cd /builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/nrniv && mv /builddir/build/BUILD/nrn-7.8.1/src/nrnoc/apcount.c.tmp /builddir/build/BUILD/nrn-7.8.1/src/nrnoc/apcount.c
make[2]: Leaving directory '/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu'
Translating /builddir/build/BUILD/nrn-7.8.1/src/nrnoc/apcount.mod into /builddir/build/BUILD/nrn-7.8.1/src/nrnoc/apcount.c
Thread Safe
make[2]: Entering directory '/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu'
[ 11%] Generating ../../../src/nrnoc/feature.c
cd /builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/nrniv && /usr/bin/cmake -E env MODLUNIT=/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/share/nrn/lib/nrnunits.lib /builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/bin/nocmodl /builddir/build/BUILD/nrn-7.8.1/src/nrnoc/feature.mod
cd /builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/nrniv && sed 's/_reg()/_reg_()/' /builddir/build/BUILD/nrn-7.8.1/src/nrnoc/feature.c > /builddir/build/BUILD/nrn-7.8.1/src/nrnoc/feature.c.tmp
cd /builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/nrniv && mv /builddir/build/BUILD/nrn-7.8.1/src/nrnoc/feature.c.tmp /builddir/build/BUILD/nrn-7.8.1/src/nrnoc/feature.c
make[2]: Leaving directory '/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu'
Translating /builddir/build/BUILD/nrn-7.8.1/src/nrnoc/feature.mod into /builddir/build/BUILD/nrn-7.8.1/src/nrnoc/feature.c
Notice: VERBATIM blocks are not thread safe
make[2]: Entering directory '/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu'
[ 10%] Generating ../nrnoc/hocusr.h
cd /builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/nrniv && /usr/bin/gcc -E -I/builddir/build/BUILD/nrn-7.8.1/src/nrnoc -I/builddir/build/BUILD/nrn-7.8.1/src/oc /builddir/build/BUILD/nrn-7.8.1/src/nrnoc/neuron.h > neuron.tmp1
cd /builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/nrniv && sed /^#/d neuron.tmp1 > neuron.tmp2
cd /builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/nrniv && /usr/bin/python3.9 /builddir/build/BUILD/nrn-7.8.1/src/oc/mk_hocusr_h.py < neuron.tmp2 > temp2hoc
cd /builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/nrniv && sed s/\"nrnhoc_topology\"/\"topology\"/ temp2hoc > /builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/nrnoc/hocusr.h
make[2]: Leaving directory '/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu'
make[2]: Entering directory '/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu'
[ 11%] Generating ../../../src/nrnoc/intfire2.c
cd /builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/nrniv && /usr/bin/cmake -E env MODLUNIT=/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/share/nrn/lib/nrnunits.lib /builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/bin/nocmodl /builddir/build/BUILD/nrn-7.8.1/src/nrnoc/intfire2.mod
cd /builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/nrniv && sed 's/_reg()/_reg_()/' /builddir/build/BUILD/nrn-7.8.1/src/nrnoc/intfire2.c > /builddir/build/BUILD/nrn-7.8.1/src/nrnoc/intfire2.c.tmp
cd /builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/nrniv && mv /builddir/build/BUILD/nrn-7.8.1/src/nrnoc/intfire2.c.tmp /builddir/build/BUILD/nrn-7.8.1/src/nrnoc/intfire2.c
make[2]: Leaving directory '/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu'
Translating /builddir/build/BUILD/nrn-7.8.1/src/nrnoc/intfire2.mod into /builddir/build/BUILD/nrn-7.8.1/src/nrnoc/intfire2.c
Thread Safe
make[2]: Entering directory '/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu'
[ 11%] Generating ../../../src/nrnoc/oclmp.c
cd /builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/nrniv && /usr/bin/cmake -E env MODLUNIT=/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/share/nrn/lib/nrnunits.lib /builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/bin/nocmodl /builddir/build/BUILD/nrn-7.8.1/src/nrnoc/oclmp.mod
cd /builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/nrniv && sed 's/_reg()/_reg_()/' /builddir/build/BUILD/nrn-7.8.1/src/nrnoc/oclmp.c > /builddir/build/BUILD/nrn-7.8.1/src/nrnoc/oclmp.c.tmp
cd /builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/nrniv && mv /builddir/build/BUILD/nrn-7.8.1/src/nrnoc/oclmp.c.tmp /builddir/build/BUILD/nrn-7.8.1/src/nrnoc/oclmp.c
make[2]: Leaving directory '/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu'
Translating /builddir/build/BUILD/nrn-7.8.1/src/nrnoc/oclmp.mod into /builddir/build/BUILD/nrn-7.8.1/src/nrnoc/oclmp.c
Thread Safe
make[2]: Entering directory '/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu'
[ 11%] Generating ../../../src/nrnoc/ppmark.c
cd /builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/nrniv && /usr/bin/cmake -E env MODLUNIT=/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/share/nrn/lib/nrnunits.lib /builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/bin/nocmodl /builddir/build/BUILD/nrn-7.8.1/src/nrnoc/ppmark.mod
cd /builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/nrniv && sed 's/_reg()/_reg_()/' /builddir/build/BUILD/nrn-7.8.1/src/nrnoc/ppmark.c > /builddir/build/BUILD/nrn-7.8.1/src/nrnoc/ppmark.c.tmp
cd /builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/nrniv && mv /builddir/build/BUILD/nrn-7.8.1/src/nrnoc/ppmark.c.tmp /builddir/build/BUILD/nrn-7.8.1/src/nrnoc/ppmark.c
make[2]: Leaving directory '/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu'
Translating /builddir/build/BUILD/nrn-7.8.1/src/nrnoc/ppmark.mod into /builddir/build/BUILD/nrn-7.8.1/src/nrnoc/ppmark.c
Thread Safe
make[2]: Entering directory '/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu'
[ 12%] Generating ../../../src/nrnoc/syn.c
cd /builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/nrniv && /usr/bin/cmake -E env MODLUNIT=/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/share/nrn/lib/nrnunits.lib /builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/bin/nocmodl /builddir/build/BUILD/nrn-7.8.1/src/nrnoc/syn.mod
cd /builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/nrniv && sed 's/_reg()/_reg_()/' /builddir/build/BUILD/nrn-7.8.1/src/nrnoc/syn.c > /builddir/build/BUILD/nrn-7.8.1/src/nrnoc/syn.c.tmp
cd /builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/nrniv && mv /builddir/build/BUILD/nrn-7.8.1/src/nrnoc/syn.c.tmp /builddir/build/BUILD/nrn-7.8.1/src/nrnoc/syn.c
make[2]: Leaving directory '/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu'
Translating /builddir/build/BUILD/nrn-7.8.1/src/nrnoc/syn.mod into /builddir/build/BUILD/nrn-7.8.1/src/nrnoc/syn.c
Thread Safe
make[2]: Entering directory '/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu'
[ 12%] Generating ../../../src/nrnoc/exp2syn.c
cd /builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/nrniv && /usr/bin/cmake -E env MODLUNIT=/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/share/nrn/lib/nrnunits.lib /builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/bin/nocmodl /builddir/build/BUILD/nrn-7.8.1/src/nrnoc/exp2syn.mod
cd /builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/nrniv && sed 's/_reg()/_reg_()/' /builddir/build/BUILD/nrn-7.8.1/src/nrnoc/exp2syn.c > /builddir/build/BUILD/nrn-7.8.1/src/nrnoc/exp2syn.c.tmp
cd /builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/nrniv && mv /builddir/build/BUILD/nrn-7.8.1/src/nrnoc/exp2syn.c.tmp /builddir/build/BUILD/nrn-7.8.1/src/nrnoc/exp2syn.c
make[2]: Leaving directory '/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu'
Translating /builddir/build/BUILD/nrn-7.8.1/src/nrnoc/exp2syn.mod into /builddir/build/BUILD/nrn-7.8.1/src/nrnoc/exp2syn.c
Thread Safe
make[2]: Entering directory '/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu'
[ 12%] Generating ../../../src/nrnoc/hh.c
cd /builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/nrniv && /usr/bin/cmake -E env MODLUNIT=/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/share/nrn/lib/nrnunits.lib /builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/bin/nocmodl /builddir/build/BUILD/nrn-7.8.1/src/nrnoc/hh.mod
    cd /builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/nrniv && sed 's/_reg()/_reg_()/' /builddir/build/BUILD/nrn-7.8.1/src/nrnoc/hh.c > /builddir/build/BUILD/nrn-7.8.1/src/nrnoc/hh.c.tmp
cd /builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/nrniv && mv /builddir/build/BUILD/nrn-7.8.1/src/nrnoc/hh.c.tmp /builddir/build/BUILD/nrn-7.8.1/src/nrnoc/hh.c
make[2]: Leaving directory '/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu'
Translating /builddir/build/BUILD/nrn-7.8.1/src/nrnoc/hh.mod into /builddir/build/BUILD/nrn-7.8.1/src/nrnoc/hh.c
Thread Safe
make[2]: Entering directory '/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu'
[ 12%] Generating ../../../src/nrnoc/intfire4.c
cd /builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/nrniv && /usr/bin/cmake -E env MODLUNIT=/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/share/nrn/lib/nrnunits.lib /builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/bin/nocmodl /builddir/build/BUILD/nrn-7.8.1/src/nrnoc/intfire4.mod
cd /builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/nrniv && sed 's/_reg()/_reg_()/' /builddir/build/BUILD/nrn-7.8.1/src/nrnoc/intfire4.c > /builddir/build/BUILD/nrn-7.8.1/src/nrnoc/intfire4.c.tmp
cd /builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/nrniv && mv /builddir/build/BUILD/nrn-7.8.1/src/nrnoc/intfire4.c.tmp /builddir/build/BUILD/nrn-7.8.1/src/nrnoc/intfire4.c
make[2]: Leaving directory '/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu'
Translating /builddir/build/BUILD/nrn-7.8.1/src/nrnoc/intfire4.mod into /builddir/build/BUILD/nrn-7.8.1/src/nrnoc/intfire4.c
Thread Safe
make[2]: Entering directory '/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu'
[ 12%] Generating ../../../src/nrnoc/passive.c
cd /builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/nrniv && /usr/bin/cmake -E env MODLUNIT=/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/share/nrn/lib/nrnunits.lib /builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/bin/nocmodl /builddir/build/BUILD/nrn-7.8.1/src/nrnoc/passive.mod
cd /builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/nrniv && sed 's/_reg()/_reg_()/' /builddir/build/BUILD/nrn-7.8.1/src/nrnoc/passive.c > /builddir/build/BUILD/nrn-7.8.1/src/nrnoc/passive.c.tmp
cd /builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/nrniv && mv /builddir/build/BUILD/nrn-7.8.1/src/nrnoc/passive.c.tmp /builddir/build/BUILD/nrn-7.8.1/src/nrnoc/passive.c
make[2]: Leaving directory '/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu'
Translating /builddir/build/BUILD/nrn-7.8.1/src/nrnoc/passive.mod into /builddir/build/BUILD/nrn-7.8.1/src/nrnoc/passive.c
Thread Safe
make[2]: Entering directory '/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu'
[ 13%] Generating ../../../src/nrnoc/stim.c
cd /builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/nrniv && /usr/bin/cmake -E env MODLUNIT=/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/share/nrn/lib/nrnunits.lib /builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/bin/nocmodl /builddir/build/BUILD/nrn-7.8.1/src/nrnoc/stim.mod
cd /builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/nrniv && sed 's/_reg()/_reg_()/' /builddir/build/BUILD/nrn-7.8.1/src/nrnoc/stim.c > /builddir/build/BUILD/nrn-7.8.1/src/nrnoc/stim.c.tmp
cd /builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/nrniv && mv /builddir/build/BUILD/nrn-7.8.1/src/nrnoc/stim.c.tmp /builddir/build/BUILD/nrn-7.8.1/src/nrnoc/stim.c
make[2]: Leaving directory '/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu'
Translating /builddir/build/BUILD/nrn-7.8.1/src/nrnoc/stim.mod into /builddir/build/BUILD/nrn-7.8.1/src/nrnoc/stim.c
Thread Safe
make[2]: Entering directory '/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu'
[ 13%] Generating ../../../src/nrnoc/vclmp.c
cd /builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/nrniv && /usr/bin/cmake -E env MODLUNIT=/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/share/nrn/lib/nrnunits.lib /builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/bin/nocmodl /builddir/build/BUILD/nrn-7.8.1/src/nrnoc/vclmp.mod
cd /builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/nrniv && sed 's/_reg()/_reg_()/' /builddir/build/BUILD/nrn-7.8.1/src/nrnoc/vclmp.c > /builddir/build/BUILD/nrn-7.8.1/src/nrnoc/vclmp.c.tmp
cd /builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/nrniv && mv /builddir/build/BUILD/nrn-7.8.1/src/nrnoc/vclmp.c.tmp /builddir/build/BUILD/nrn-7.8.1/src/nrnoc/vclmp.c
make[2]: Leaving directory '/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu'
Translating /builddir/build/BUILD/nrn-7.8.1/src/nrnoc/vclmp.mod into /builddir/build/BUILD/nrn-7.8.1/src/nrnoc/vclmp.c
Notice: VERBATIM blocks are not thread safe
Notice: LINEAR is not thread safe.
make[2]: Entering directory '/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu'
[ 10%] [BISON][ocparser] Building parser with bison 3.6.4
cd /builddir/build/BUILD/nrn-7.8.1/src/nrniv && /usr/bin/bison --defines=/builddir/build/BUILD/nrn-7.8.1/src/oc/parse.h -o /builddir/build/BUILD/nrn-7.8.1/src/oc/parse.c /builddir/build/BUILD/nrn-7.8.1/src/oc/parse.y
make[2]: Leaving directory '/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu'
/builddir/build/BUILD/nrn-7.8.1/src/oc/parse.y: warning: 98 shift/reduce conflicts [-Wconflicts-sr]
make[2]: Entering directory '/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu'
[ 13%] Generating ../../../src/nrnoc/expsyn.c
cd /builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/nrniv && /usr/bin/cmake -E env MODLUNIT=/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/share/nrn/lib/nrnunits.lib /builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/bin/nocmodl /builddir/build/BUILD/nrn-7.8.1/src/nrnoc/expsyn.mod
cd /builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/nrniv && sed 's/_reg()/_reg_()/' /builddir/build/BUILD/nrn-7.8.1/src/nrnoc/expsyn.c > /builddir/build/BUILD/nrn-7.8.1/src/nrnoc/expsyn.c.tmp
cd /builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/nrniv && mv /builddir/build/BUILD/nrn-7.8.1/src/nrnoc/expsyn.c.tmp /builddir/build/BUILD/nrn-7.8.1/src/nrnoc/expsyn.c
make[2]: Leaving directory '/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu'
Translating /builddir/build/BUILD/nrn-7.8.1/src/nrnoc/expsyn.mod into /builddir/build/BUILD/nrn-7.8.1/src/nrnoc/expsyn.c
Thread Safe
make[2]: Entering directory '/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu'
[ 13%] Generating ../../../src/nrnoc/intfire1.c
cd /builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/nrniv && /usr/bin/cmake -E env MODLUNIT=/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/share/nrn/lib/nrnunits.lib /builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/bin/nocmodl /builddir/build/BUILD/nrn-7.8.1/src/nrnoc/intfire1.mod
cd /builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/nrniv && sed 's/_reg()/_reg_()/' /builddir/build/BUILD/nrn-7.8.1/src/nrnoc/intfire1.c > /builddir/build/BUILD/nrn-7.8.1/src/nrnoc/intfire1.c.tmp
cd /builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/nrniv && mv /builddir/build/BUILD/nrn-7.8.1/src/nrnoc/intfire1.c.tmp /builddir/build/BUILD/nrn-7.8.1/src/nrnoc/intfire1.c
make[2]: Leaving directory '/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu'
Translating /builddir/build/BUILD/nrn-7.8.1/src/nrnoc/intfire1.mod into /builddir/build/BUILD/nrn-7.8.1/src/nrnoc/intfire1.c
Thread Safe
make[2]: Entering directory '/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu'
[ 13%] Generating ../../../src/nrnoc/netstim.c
cd /builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/nrniv && /usr/bin/cmake -E env MODLUNIT=/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/share/nrn/lib/nrnunits.lib /builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/bin/nocmodl /builddir/build/BUILD/nrn-7.8.1/src/nrnoc/netstim.mod
Notice: ARTIFICIAL_CELL is a synonym for POINT_PROCESS which hints that it
only affects and is affected by discrete events. As such it is not
located in a section and is not associated with an integrator
cd /builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/nrniv && sed 's/_reg()/_reg_()/' /builddir/build/BUILD/nrn-7.8.1/src/nrnoc/netstim.c > /builddir/build/BUILD/nrn-7.8.1/src/nrnoc/netstim.c.tmp
cd /builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/nrniv && mv /builddir/build/BUILD/nrn-7.8.1/src/nrnoc/netstim.c.tmp /builddir/build/BUILD/nrn-7.8.1/src/nrnoc/netstim.c
make[2]: Leaving directory '/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu'
Translating /builddir/build/BUILD/nrn-7.8.1/src/nrnoc/netstim.mod into /builddir/build/BUILD/nrn-7.8.1/src/nrnoc/netstim.c
Thread Safe
make[2]: Entering directory '/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu'
[ 14%] Generating ../../../src/nrnoc/pattern.c
cd /builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/nrniv && /usr/bin/cmake -E env MODLUNIT=/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/share/nrn/lib/nrnunits.lib /builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/bin/nocmodl /builddir/build/BUILD/nrn-7.8.1/src/nrnoc/pattern.mod
Notice: ARTIFICIAL_CELL is a synonym for POINT_PROCESS which hints that it
only affects and is affected by discrete events. As such it is not
located in a section and is not associated with an integrator
cd /builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/nrniv && sed 's/_reg()/_reg_()/' /builddir/build/BUILD/nrn-7.8.1/src/nrnoc/pattern.c > /builddir/build/BUILD/nrn-7.8.1/src/nrnoc/pattern.c.tmp
cd /builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/nrniv && mv /builddir/build/BUILD/nrn-7.8.1/src/nrnoc/pattern.c.tmp /builddir/build/BUILD/nrn-7.8.1/src/nrnoc/pattern.c
make[2]: Leaving directory '/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu'
Translating /builddir/build/BUILD/nrn-7.8.1/src/nrnoc/pattern.mod into /builddir/build/BUILD/nrn-7.8.1/src/nrnoc/pattern.c
Notice: Use of POINTER is not thread safe.
Notice: VERBATIM blocks are not thread safe
make[2]: Entering directory '/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu'
cd /builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu && /usr/bin/cmake -E cmake_depends "Unix Makefiles" /builddir/build/BUILD/nrn-7.8.1 /builddir/build/BUILD/nrn-7.8.1/src/nrniv /builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu /builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/nrniv /builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/nrniv/CMakeFiles/nrniv_lib.dir/DependInfo.cmake --color=
Dependee "/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/nrniv/CMakeFiles/nrniv_lib.dir/DependInfo.cmake" is newer than depender "/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/nrniv/CMakeFiles/nrniv_lib.dir/depend.internal".
Dependee "/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/nrniv/CMakeFiles/CMakeDirectoryInformation.cmake" is newer than depender "/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/nrniv/CMakeFiles/nrniv_lib.dir/depend.internal".
Scanning dependencies of target nrniv_lib
make[2]: Leaving directory '/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu'
/usr/bin/make  -f src/nrniv/CMakeFiles/nrniv_lib.dir/build.make src/nrniv/CMakeFiles/nrniv_lib.dir/build
make[2]: Entering directory '/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu'
[ 14%] Building CXX object src/nrniv/CMakeFiles/nrniv_lib.dir/__/ivoc/bndedval.cpp.o
cd /builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/nrniv && /usr/bin/g++ -DHAVE_CONFIG_H -Dnrniv_lib_EXPORTS -DUSEBBS=1 -DUSEGNU=1 -DUSEMATRIX=1 -I/builddir/build/BUILD/nrn-7.8.1/src/ivoc -I/builddir/build/BUILD/nrn-7.8.1/src/nrniv -I/builddir/build/BUILD/nrn-7.8.1/src/nrnoc -I/builddir/build/BUILD/nrn-7.8.1/src/oc -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/nrncvode -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/nrnjava -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/nrnoc -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/nrnpython -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/oc -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/parallel -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/sundials -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/sundials/shared -I/builddir/build/BUILD/nrn-7.8.1/src -I/builddir/build/BUILD/nrn-7.8.1/src/gnu -I/builddir/build/BUILD/nrn-7.8.1/src/memacs -I/builddir/build/BUILD/nrn-7.8.1/src/mesch -I/builddir/build/BUILD/nrn-7.8.1/src/nrncvode -I/builddir/build/BUILD/nrn-7.8.1/src/nrnmpi -I/builddir/build/BUILD/nrn-7.8.1/src/nrnpython -I/builddir/build/BUILD/nrn-7.8.1/src/parallel -I/builddir/build/BUILD/nrn-7.8.1/src/sparse -I/builddir/build/BUILD/nrn-7.8.1/src/sparse13 -I/builddir/build/BUILD/nrn-7.8.1/src/sundials -I/builddir/build/BUILD/nrn-7.8.1/src/sundials/cvodes -I/builddir/build/BUILD/nrn-7.8.1/src/sundials/ida -I/builddir/build/BUILD/nrn-7.8.1/src/sundials/shared -I/usr/include/python3.9 -O2 -flto=auto -ffat-lto-objects -fexceptions -g -grecord-gcc-switches -pipe -Wall -Werror=format-security -Wp,-D_FORTIFY_SOURCE=2 -Wp,-D_GLIBCXX_ASSERTIONS -specs=/usr/lib/rpm/redhat/redhat-hardened-cc1 -fstack-protector-strong -specs=/usr/lib/rpm/redhat/redhat-annobin-cc1  -fasynchronous-unwind-tables -fstack-clash-protection -fPIC -std=c++98 -o CMakeFiles/nrniv_lib.dir/__/ivoc/bndedval.cpp.o -c /builddir/build/BUILD/nrn-7.8.1/src/ivoc/bndedval.cpp
make[2]: Leaving directory '/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu'
make[2]: Entering directory '/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu'
[ 15%] Building CXX object src/nrniv/CMakeFiles/nrniv_lib.dir/__/ivoc/cbwidget.cpp.o
cd /builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/nrniv && /usr/bin/g++ -DHAVE_CONFIG_H -Dnrniv_lib_EXPORTS -DUSEBBS=1 -DUSEGNU=1 -DUSEMATRIX=1 -I/builddir/build/BUILD/nrn-7.8.1/src/ivoc -I/builddir/build/BUILD/nrn-7.8.1/src/nrniv -I/builddir/build/BUILD/nrn-7.8.1/src/nrnoc -I/builddir/build/BUILD/nrn-7.8.1/src/oc -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/nrncvode -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/nrnjava -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/nrnoc -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/nrnpython -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/oc -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/parallel -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/sundials -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/sundials/shared -I/builddir/build/BUILD/nrn-7.8.1/src -I/builddir/build/BUILD/nrn-7.8.1/src/gnu -I/builddir/build/BUILD/nrn-7.8.1/src/memacs -I/builddir/build/BUILD/nrn-7.8.1/src/mesch -I/builddir/build/BUILD/nrn-7.8.1/src/nrncvode -I/builddir/build/BUILD/nrn-7.8.1/src/nrnmpi -I/builddir/build/BUILD/nrn-7.8.1/src/nrnpython -I/builddir/build/BUILD/nrn-7.8.1/src/parallel -I/builddir/build/BUILD/nrn-7.8.1/src/sparse -I/builddir/build/BUILD/nrn-7.8.1/src/sparse13 -I/builddir/build/BUILD/nrn-7.8.1/src/sundials -I/builddir/build/BUILD/nrn-7.8.1/src/sundials/cvodes -I/builddir/build/BUILD/nrn-7.8.1/src/sundials/ida -I/builddir/build/BUILD/nrn-7.8.1/src/sundials/shared -I/usr/include/python3.9 -O2 -flto=auto -ffat-lto-objects -fexceptions -g -grecord-gcc-switches -pipe -Wall -Werror=format-security -Wp,-D_FORTIFY_SOURCE=2 -Wp,-D_GLIBCXX_ASSERTIONS -specs=/usr/lib/rpm/redhat/redhat-hardened-cc1 -fstack-protector-strong -specs=/usr/lib/rpm/redhat/redhat-annobin-cc1  -fasynchronous-unwind-tables -fstack-clash-protection -fPIC -std=c++98 -o CMakeFiles/nrniv_lib.dir/__/ivoc/cbwidget.cpp.o -c /builddir/build/BUILD/nrn-7.8.1/src/ivoc/cbwidget.cpp
make[2]: Leaving directory '/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu'
make[2]: Entering directory '/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu'
[ 15%] Building CXX object src/nrniv/CMakeFiles/nrniv_lib.dir/__/ivoc/apwindow.cpp.o
cd /builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/nrniv && /usr/bin/g++ -DHAVE_CONFIG_H -Dnrniv_lib_EXPORTS -DUSEBBS=1 -DUSEGNU=1 -DUSEMATRIX=1 -I/builddir/build/BUILD/nrn-7.8.1/src/ivoc -I/builddir/build/BUILD/nrn-7.8.1/src/nrniv -I/builddir/build/BUILD/nrn-7.8.1/src/nrnoc -I/builddir/build/BUILD/nrn-7.8.1/src/oc -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/nrncvode -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/nrnjava -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/nrnoc -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/nrnpython -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/oc -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/parallel -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/sundials -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/sundials/shared -I/builddir/build/BUILD/nrn-7.8.1/src -I/builddir/build/BUILD/nrn-7.8.1/src/gnu -I/builddir/build/BUILD/nrn-7.8.1/src/memacs -I/builddir/build/BUILD/nrn-7.8.1/src/mesch -I/builddir/build/BUILD/nrn-7.8.1/src/nrncvode -I/builddir/build/BUILD/nrn-7.8.1/src/nrnmpi -I/builddir/build/BUILD/nrn-7.8.1/src/nrnpython -I/builddir/build/BUILD/nrn-7.8.1/src/parallel -I/builddir/build/BUILD/nrn-7.8.1/src/sparse -I/builddir/build/BUILD/nrn-7.8.1/src/sparse13 -I/builddir/build/BUILD/nrn-7.8.1/src/sundials -I/builddir/build/BUILD/nrn-7.8.1/src/sundials/cvodes -I/builddir/build/BUILD/nrn-7.8.1/src/sundials/ida -I/builddir/build/BUILD/nrn-7.8.1/src/sundials/shared -I/usr/include/python3.9 -O2 -flto=auto -ffat-lto-objects -fexceptions -g -grecord-gcc-switches -pipe -Wall -Werror=format-security -Wp,-D_FORTIFY_SOURCE=2 -Wp,-D_GLIBCXX_ASSERTIONS -specs=/usr/lib/rpm/redhat/redhat-hardened-cc1 -fstack-protector-strong -specs=/usr/lib/rpm/redhat/redhat-annobin-cc1  -fasynchronous-unwind-tables -fstack-clash-protection -fPIC -std=c++98 -o CMakeFiles/nrniv_lib.dir/__/ivoc/apwindow.cpp.o -c /builddir/build/BUILD/nrn-7.8.1/src/ivoc/apwindow.cpp
make[2]: Leaving directory '/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu'
make[2]: Entering directory '/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu'
[ 14%] Building CXX object src/nrniv/CMakeFiles/nrniv_lib.dir/__/ivoc/axis.cpp.o
cd /builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/nrniv && /usr/bin/g++ -DHAVE_CONFIG_H -Dnrniv_lib_EXPORTS -DUSEBBS=1 -DUSEGNU=1 -DUSEMATRIX=1 -I/builddir/build/BUILD/nrn-7.8.1/src/ivoc -I/builddir/build/BUILD/nrn-7.8.1/src/nrniv -I/builddir/build/BUILD/nrn-7.8.1/src/nrnoc -I/builddir/build/BUILD/nrn-7.8.1/src/oc -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/nrncvode -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/nrnjava -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/nrnoc -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/nrnpython -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/oc -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/parallel -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/sundials -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/sundials/shared -I/builddir/build/BUILD/nrn-7.8.1/src -I/builddir/build/BUILD/nrn-7.8.1/src/gnu -I/builddir/build/BUILD/nrn-7.8.1/src/memacs -I/builddir/build/BUILD/nrn-7.8.1/src/mesch -I/builddir/build/BUILD/nrn-7.8.1/src/nrncvode -I/builddir/build/BUILD/nrn-7.8.1/src/nrnmpi -I/builddir/build/BUILD/nrn-7.8.1/src/nrnpython -I/builddir/build/BUILD/nrn-7.8.1/src/parallel -I/builddir/build/BUILD/nrn-7.8.1/src/sparse -I/builddir/build/BUILD/nrn-7.8.1/src/sparse13 -I/builddir/build/BUILD/nrn-7.8.1/src/sundials -I/builddir/build/BUILD/nrn-7.8.1/src/sundials/cvodes -I/builddir/build/BUILD/nrn-7.8.1/src/sundials/ida -I/builddir/build/BUILD/nrn-7.8.1/src/sundials/shared -I/usr/include/python3.9 -O2 -flto=auto -ffat-lto-objects -fexceptions -g -grecord-gcc-switches -pipe -Wall -Werror=format-security -Wp,-D_FORTIFY_SOURCE=2 -Wp,-D_GLIBCXX_ASSERTIONS -specs=/usr/lib/rpm/redhat/redhat-hardened-cc1 -fstack-protector-strong -specs=/usr/lib/rpm/redhat/redhat-annobin-cc1  -fasynchronous-unwind-tables -fstack-clash-protection -fPIC -std=c++98 -o CMakeFiles/nrniv_lib.dir/__/ivoc/axis.cpp.o -c /builddir/build/BUILD/nrn-7.8.1/src/ivoc/axis.cpp
make[2]: Leaving directory '/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu'
make[2]: Entering directory '/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu'
[ 15%] Building CXX object src/nrniv/CMakeFiles/nrniv_lib.dir/__/ivoc/epsprint.cpp.o
cd /builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/nrniv && /usr/bin/g++ -DHAVE_CONFIG_H -Dnrniv_lib_EXPORTS -DUSEBBS=1 -DUSEGNU=1 -DUSEMATRIX=1 -I/builddir/build/BUILD/nrn-7.8.1/src/ivoc -I/builddir/build/BUILD/nrn-7.8.1/src/nrniv -I/builddir/build/BUILD/nrn-7.8.1/src/nrnoc -I/builddir/build/BUILD/nrn-7.8.1/src/oc -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/nrncvode -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/nrnjava -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/nrnoc -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/nrnpython -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/oc -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/parallel -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/sundials -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/sundials/shared -I/builddir/build/BUILD/nrn-7.8.1/src -I/builddir/build/BUILD/nrn-7.8.1/src/gnu -I/builddir/build/BUILD/nrn-7.8.1/src/memacs -I/builddir/build/BUILD/nrn-7.8.1/src/mesch -I/builddir/build/BUILD/nrn-7.8.1/src/nrncvode -I/builddir/build/BUILD/nrn-7.8.1/src/nrnmpi -I/builddir/build/BUILD/nrn-7.8.1/src/nrnpython -I/builddir/build/BUILD/nrn-7.8.1/src/parallel -I/builddir/build/BUILD/nrn-7.8.1/src/sparse -I/builddir/build/BUILD/nrn-7.8.1/src/sparse13 -I/builddir/build/BUILD/nrn-7.8.1/src/sundials -I/builddir/build/BUILD/nrn-7.8.1/src/sundials/cvodes -I/builddir/build/BUILD/nrn-7.8.1/src/sundials/ida -I/builddir/build/BUILD/nrn-7.8.1/src/sundials/shared -I/usr/include/python3.9 -O2 -flto=auto -ffat-lto-objects -fexceptions -g -grecord-gcc-switches -pipe -Wall -Werror=format-security -Wp,-D_FORTIFY_SOURCE=2 -Wp,-D_GLIBCXX_ASSERTIONS -specs=/usr/lib/rpm/redhat/redhat-hardened-cc1 -fstack-protector-strong -specs=/usr/lib/rpm/redhat/redhat-annobin-cc1  -fasynchronous-unwind-tables -fstack-clash-protection -fPIC -std=c++98 -o CMakeFiles/nrniv_lib.dir/__/ivoc/epsprint.cpp.o -c /builddir/build/BUILD/nrn-7.8.1/src/ivoc/epsprint.cpp
make[2]: Leaving directory '/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu'
make[2]: Entering directory '/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu'
[ 15%] Building CXX object src/nrniv/CMakeFiles/nrniv_lib.dir/__/ivoc/fourier.cpp.o
cd /builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/nrniv && /usr/bin/g++ -DHAVE_CONFIG_H -Dnrniv_lib_EXPORTS -DUSEBBS=1 -DUSEGNU=1 -DUSEMATRIX=1 -I/builddir/build/BUILD/nrn-7.8.1/src/ivoc -I/builddir/build/BUILD/nrn-7.8.1/src/nrniv -I/builddir/build/BUILD/nrn-7.8.1/src/nrnoc -I/builddir/build/BUILD/nrn-7.8.1/src/oc -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/nrncvode -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/nrnjava -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/nrnoc -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/nrnpython -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/oc -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/parallel -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/sundials -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/sundials/shared -I/builddir/build/BUILD/nrn-7.8.1/src -I/builddir/build/BUILD/nrn-7.8.1/src/gnu -I/builddir/build/BUILD/nrn-7.8.1/src/memacs -I/builddir/build/BUILD/nrn-7.8.1/src/mesch -I/builddir/build/BUILD/nrn-7.8.1/src/nrncvode -I/builddir/build/BUILD/nrn-7.8.1/src/nrnmpi -I/builddir/build/BUILD/nrn-7.8.1/src/nrnpython -I/builddir/build/BUILD/nrn-7.8.1/src/parallel -I/builddir/build/BUILD/nrn-7.8.1/src/sparse -I/builddir/build/BUILD/nrn-7.8.1/src/sparse13 -I/builddir/build/BUILD/nrn-7.8.1/src/sundials -I/builddir/build/BUILD/nrn-7.8.1/src/sundials/cvodes -I/builddir/build/BUILD/nrn-7.8.1/src/sundials/ida -I/builddir/build/BUILD/nrn-7.8.1/src/sundials/shared -I/usr/include/python3.9 -O2 -flto=auto -ffat-lto-objects -fexceptions -g -grecord-gcc-switches -pipe -Wall -Werror=format-security -Wp,-D_FORTIFY_SOURCE=2 -Wp,-D_GLIBCXX_ASSERTIONS -specs=/usr/lib/rpm/redhat/redhat-hardened-cc1 -fstack-protector-strong -specs=/usr/lib/rpm/redhat/redhat-annobin-cc1  -fasynchronous-unwind-tables -fstack-clash-protection -fPIC -std=c++98 -o CMakeFiles/nrniv_lib.dir/__/ivoc/fourier.cpp.o -c /builddir/build/BUILD/nrn-7.8.1/src/ivoc/fourier.cpp
make[2]: Leaving directory '/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu'
In file included from /builddir/build/BUILD/nrn-7.8.1/src/ivoc/fourier.cpp:38:
/builddir/build/BUILD/nrn-7.8.1/src/ivoc/nrngsl_real_radix2.c: In function 'int nrngsl_fft_real_radix2_transform(double*, size_t, size_t)':
/builddir/build/BUILD/nrn-7.8.1/src/ivoc/nrngsl_real_radix2.c:91:7: warning: variable 'status' set but not used [-Wunused-but-set-variable]
   91 |   int status;
      |       ^~~~~~
In file included from /builddir/build/BUILD/nrn-7.8.1/src/ivoc/fourier.cpp:39:
/builddir/build/BUILD/nrn-7.8.1/src/ivoc/nrngsl_hc_radix2.c: In function 'int nrngsl_fft_halfcomplex_radix2_transform(double*, size_t, size_t)':
/builddir/build/BUILD/nrn-7.8.1/src/ivoc/nrngsl_hc_radix2.c:63:7: warning: variable 'status' set but not used [-Wunused-but-set-variable]
   63 |   int status;
      |       ^~~~~~
/builddir/build/BUILD/nrn-7.8.1/src/ivoc/fourier.cpp: In function 'void nrn_convlv(double*, long unsigned int, double*, long unsigned int, int, double*)':
/builddir/build/BUILD/nrn-7.8.1/src/ivoc/fourier.cpp:98:14: warning: comparison of integer expressions of different signedness: 'long unsigned int' and 'int' [-Wsign-compare]
   98 |  for (i=1; i < n2; ++i) {
      |            ~~^~~~
/builddir/build/BUILD/nrn-7.8.1/src/ivoc/fourier.cpp:86:14: warning: unused variable 'x_' [-Wunused-variable]
   86 |  double scl, x_;
      |              ^~
/builddir/build/BUILD/nrn-7.8.1/src/ivoc/fourier.cpp: In function 'void nrn_spctrm(double*, double*, int, int)':
/builddir/build/BUILD/nrn-7.8.1/src/ivoc/fourier.cpp:149:13: warning: variable 'ainv' set but not used [-Wunused-but-set-variable]
  149 |   double a, ainv, wfac, x_;
      |             ^~~~
/builddir/build/BUILD/nrn-7.8.1/src/ivoc/fourier.cpp:149:25: warning: unused variable 'x_' [-Wunused-variable]
  149 |   double a, ainv, wfac, x_;
      |                         ^~
make[2]: Entering directory '/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu'
[ 15%] Building CXX object src/nrniv/CMakeFiles/nrniv_lib.dir/__/ivoc/gifimage.cpp.o
cd /builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/nrniv && /usr/bin/g++ -DHAVE_CONFIG_H -Dnrniv_lib_EXPORTS -DUSEBBS=1 -DUSEGNU=1 -DUSEMATRIX=1 -I/builddir/build/BUILD/nrn-7.8.1/src/ivoc -I/builddir/build/BUILD/nrn-7.8.1/src/nrniv -I/builddir/build/BUILD/nrn-7.8.1/src/nrnoc -I/builddir/build/BUILD/nrn-7.8.1/src/oc -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/nrncvode -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/nrnjava -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/nrnoc -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/nrnpython -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/oc -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/parallel -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/sundials -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/sundials/shared -I/builddir/build/BUILD/nrn-7.8.1/src -I/builddir/build/BUILD/nrn-7.8.1/src/gnu -I/builddir/build/BUILD/nrn-7.8.1/src/memacs -I/builddir/build/BUILD/nrn-7.8.1/src/mesch -I/builddir/build/BUILD/nrn-7.8.1/src/nrncvode -I/builddir/build/BUILD/nrn-7.8.1/src/nrnmpi -I/builddir/build/BUILD/nrn-7.8.1/src/nrnpython -I/builddir/build/BUILD/nrn-7.8.1/src/parallel -I/builddir/build/BUILD/nrn-7.8.1/src/sparse -I/builddir/build/BUILD/nrn-7.8.1/src/sparse13 -I/builddir/build/BUILD/nrn-7.8.1/src/sundials -I/builddir/build/BUILD/nrn-7.8.1/src/sundials/cvodes -I/builddir/build/BUILD/nrn-7.8.1/src/sundials/ida -I/builddir/build/BUILD/nrn-7.8.1/src/sundials/shared -I/usr/include/python3.9 -O2 -flto=auto -ffat-lto-objects -fexceptions -g -grecord-gcc-switches -pipe -Wall -Werror=format-security -Wp,-D_FORTIFY_SOURCE=2 -Wp,-D_GLIBCXX_ASSERTIONS -specs=/usr/lib/rpm/redhat/redhat-hardened-cc1 -fstack-protector-strong -specs=/usr/lib/rpm/redhat/redhat-annobin-cc1  -fasynchronous-unwind-tables -fstack-clash-protection -fPIC -std=c++98 -o CMakeFiles/nrniv_lib.dir/__/ivoc/gifimage.cpp.o -c /builddir/build/BUILD/nrn-7.8.1/src/ivoc/gifimage.cpp
make[2]: Leaving directory '/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu'
/builddir/build/BUILD/nrn-7.8.1/src/ivoc/gifimage.cpp: In function 'int LoadGIF(const char*, PICINFO*)':
/builddir/build/BUILD/nrn-7.8.1/src/ivoc/gifimage.cpp:288:8: warning: variable 'ch' set but not used [-Wunused-but-set-variable]
  288 |  int   ch, j, sbsize, cmtlen;
      |        ^~
/builddir/build/BUILD/nrn-7.8.1/src/ivoc/gifimage.cpp:156:22: warning: unused variable 'ch1' [-Wunused-variable]
  156 |   register byte  ch, ch1, *origptr;
      |                      ^~~
/builddir/build/BUILD/nrn-7.8.1/src/ivoc/gifimage.cpp: In function 'int readImage(PICINFO*)':
/builddir/build/BUILD/nrn-7.8.1/src/ivoc/gifimage.cpp:490:34: warning: unused variable 'picptr' [-Wunused-variable]
  490 |   register byte ch, ch1, *ptr1, *picptr;
      |                                  ^~~~~~
/builddir/build/BUILD/nrn-7.8.1/src/ivoc/gifimage.cpp: At global scope:
/builddir/build/BUILD/nrn-7.8.1/src/ivoc/gifimage.cpp:96:5: warning: 'BytesPerScanline' defined but not used [-Wunused-variable]
   96 |     BytesPerScanline,  /* bytes per scanline in output raster */
      |     ^~~~~~~~~~~~~~~~
/builddir/build/BUILD/nrn-7.8.1/src/ivoc/gifimage.cpp: In function 'gif_image(char const*)':
/builddir/build/BUILD/nrn-7.8.1/src/ivoc/gifimage.cpp:43:9: warning: 'image' may be used uninitialized in this function [-Wmaybe-uninitialized]
   43 |  return image;
      |         ^~~~~
make[2]: Entering directory '/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu'
[ 15%] Building CXX object src/nrniv/CMakeFiles/nrniv_lib.dir/__/ivoc/checkpnt.cpp.o
cd /builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/nrniv && /usr/bin/g++ -DHAVE_CONFIG_H -Dnrniv_lib_EXPORTS -DUSEBBS=1 -DUSEGNU=1 -DUSEMATRIX=1 -I/builddir/build/BUILD/nrn-7.8.1/src/ivoc -I/builddir/build/BUILD/nrn-7.8.1/src/nrniv -I/builddir/build/BUILD/nrn-7.8.1/src/nrnoc -I/builddir/build/BUILD/nrn-7.8.1/src/oc -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/nrncvode -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/nrnjava -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/nrnoc -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/nrnpython -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/oc -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/parallel -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/sundials -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/sundials/shared -I/builddir/build/BUILD/nrn-7.8.1/src -I/builddir/build/BUILD/nrn-7.8.1/src/gnu -I/builddir/build/BUILD/nrn-7.8.1/src/memacs -I/builddir/build/BUILD/nrn-7.8.1/src/mesch -I/builddir/build/BUILD/nrn-7.8.1/src/nrncvode -I/builddir/build/BUILD/nrn-7.8.1/src/nrnmpi -I/builddir/build/BUILD/nrn-7.8.1/src/nrnpython -I/builddir/build/BUILD/nrn-7.8.1/src/parallel -I/builddir/build/BUILD/nrn-7.8.1/src/sparse -I/builddir/build/BUILD/nrn-7.8.1/src/sparse13 -I/builddir/build/BUILD/nrn-7.8.1/src/sundials -I/builddir/build/BUILD/nrn-7.8.1/src/sundials/cvodes -I/builddir/build/BUILD/nrn-7.8.1/src/sundials/ida -I/builddir/build/BUILD/nrn-7.8.1/src/sundials/shared -I/usr/include/python3.9 -O2 -flto=auto -ffat-lto-objects -fexceptions -g -grecord-gcc-switches -pipe -Wall -Werror=format-security -Wp,-D_FORTIFY_SOURCE=2 -Wp,-D_GLIBCXX_ASSERTIONS -specs=/usr/lib/rpm/redhat/redhat-hardened-cc1 -fstack-protector-strong -specs=/usr/lib/rpm/redhat/redhat-annobin-cc1  -fasynchronous-unwind-tables -fstack-clash-protection -fPIC -std=c++98 -o CMakeFiles/nrniv_lib.dir/__/ivoc/checkpnt.cpp.o -c /builddir/build/BUILD/nrn-7.8.1/src/ivoc/checkpnt.cpp
make[2]: Leaving directory '/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu'
make[2]: Entering directory '/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu'
[ 16%] Building CXX object src/nrniv/CMakeFiles/nrniv_lib.dir/__/ivoc/graphvec.cpp.o
cd /builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/nrniv && /usr/bin/g++ -DHAVE_CONFIG_H -Dnrniv_lib_EXPORTS -DUSEBBS=1 -DUSEGNU=1 -DUSEMATRIX=1 -I/builddir/build/BUILD/nrn-7.8.1/src/ivoc -I/builddir/build/BUILD/nrn-7.8.1/src/nrniv -I/builddir/build/BUILD/nrn-7.8.1/src/nrnoc -I/builddir/build/BUILD/nrn-7.8.1/src/oc -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/nrncvode -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/nrnjava -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/nrnoc -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/nrnpython -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/oc -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/parallel -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/sundials -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/sundials/shared -I/builddir/build/BUILD/nrn-7.8.1/src -I/builddir/build/BUILD/nrn-7.8.1/src/gnu -I/builddir/build/BUILD/nrn-7.8.1/src/memacs -I/builddir/build/BUILD/nrn-7.8.1/src/mesch -I/builddir/build/BUILD/nrn-7.8.1/src/nrncvode -I/builddir/build/BUILD/nrn-7.8.1/src/nrnmpi -I/builddir/build/BUILD/nrn-7.8.1/src/nrnpython -I/builddir/build/BUILD/nrn-7.8.1/src/parallel -I/builddir/build/BUILD/nrn-7.8.1/src/sparse -I/builddir/build/BUILD/nrn-7.8.1/src/sparse13 -I/builddir/build/BUILD/nrn-7.8.1/src/sundials -I/builddir/build/BUILD/nrn-7.8.1/src/sundials/cvodes -I/builddir/build/BUILD/nrn-7.8.1/src/sundials/ida -I/builddir/build/BUILD/nrn-7.8.1/src/sundials/shared -I/usr/include/python3.9 -O2 -flto=auto -ffat-lto-objects -fexceptions -g -grecord-gcc-switches -pipe -Wall -Werror=format-security -Wp,-D_FORTIFY_SOURCE=2 -Wp,-D_GLIBCXX_ASSERTIONS -specs=/usr/lib/rpm/redhat/redhat-hardened-cc1 -fstack-protector-strong -specs=/usr/lib/rpm/redhat/redhat-annobin-cc1  -fasynchronous-unwind-tables -fstack-clash-protection -fPIC -std=c++98 -o CMakeFiles/nrniv_lib.dir/__/ivoc/graphvec.cpp.o -c /builddir/build/BUILD/nrn-7.8.1/src/ivoc/graphvec.cpp
make[2]: Leaving directory '/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu'
make[2]: Entering directory '/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu'
[ 16%] Building CXX object src/nrniv/CMakeFiles/nrniv_lib.dir/__/ivoc/grglyph.cpp.o
cd /builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/nrniv && /usr/bin/g++ -DHAVE_CONFIG_H -Dnrniv_lib_EXPORTS -DUSEBBS=1 -DUSEGNU=1 -DUSEMATRIX=1 -I/builddir/build/BUILD/nrn-7.8.1/src/ivoc -I/builddir/build/BUILD/nrn-7.8.1/src/nrniv -I/builddir/build/BUILD/nrn-7.8.1/src/nrnoc -I/builddir/build/BUILD/nrn-7.8.1/src/oc -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/nrncvode -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/nrnjava -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/nrnoc -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/nrnpython -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/oc -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/parallel -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/sundials -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/sundials/shared -I/builddir/build/BUILD/nrn-7.8.1/src -I/builddir/build/BUILD/nrn-7.8.1/src/gnu -I/builddir/build/BUILD/nrn-7.8.1/src/memacs -I/builddir/build/BUILD/nrn-7.8.1/src/mesch -I/builddir/build/BUILD/nrn-7.8.1/src/nrncvode -I/builddir/build/BUILD/nrn-7.8.1/src/nrnmpi -I/builddir/build/BUILD/nrn-7.8.1/src/nrnpython -I/builddir/build/BUILD/nrn-7.8.1/src/parallel -I/builddir/build/BUILD/nrn-7.8.1/src/sparse -I/builddir/build/BUILD/nrn-7.8.1/src/sparse13 -I/builddir/build/BUILD/nrn-7.8.1/src/sundials -I/builddir/build/BUILD/nrn-7.8.1/src/sundials/cvodes -I/builddir/build/BUILD/nrn-7.8.1/src/sundials/ida -I/builddir/build/BUILD/nrn-7.8.1/src/sundials/shared -I/usr/include/python3.9 -O2 -flto=auto -ffat-lto-objects -fexceptions -g -grecord-gcc-switches -pipe -Wall -Werror=format-security -Wp,-D_FORTIFY_SOURCE=2 -Wp,-D_GLIBCXX_ASSERTIONS -specs=/usr/lib/rpm/redhat/redhat-hardened-cc1 -fstack-protector-strong -specs=/usr/lib/rpm/redhat/redhat-annobin-cc1  -fasynchronous-unwind-tables -fstack-clash-protection -fPIC -std=c++98 -o CMakeFiles/nrniv_lib.dir/__/ivoc/grglyph.cpp.o -c /builddir/build/BUILD/nrn-7.8.1/src/ivoc/grglyph.cpp
make[2]: Leaving directory '/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu'
make[2]: Entering directory '/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu'
[ 16%] Building CXX object src/nrniv/CMakeFiles/nrniv_lib.dir/__/ivoc/grmanip.cpp.o
cd /builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/nrniv && /usr/bin/g++ -DHAVE_CONFIG_H -Dnrniv_lib_EXPORTS -DUSEBBS=1 -DUSEGNU=1 -DUSEMATRIX=1 -I/builddir/build/BUILD/nrn-7.8.1/src/ivoc -I/builddir/build/BUILD/nrn-7.8.1/src/nrniv -I/builddir/build/BUILD/nrn-7.8.1/src/nrnoc -I/builddir/build/BUILD/nrn-7.8.1/src/oc -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/nrncvode -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/nrnjava -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/nrnoc -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/nrnpython -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/oc -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/parallel -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/sundials -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/sundials/shared -I/builddir/build/BUILD/nrn-7.8.1/src -I/builddir/build/BUILD/nrn-7.8.1/src/gnu -I/builddir/build/BUILD/nrn-7.8.1/src/memacs -I/builddir/build/BUILD/nrn-7.8.1/src/mesch -I/builddir/build/BUILD/nrn-7.8.1/src/nrncvode -I/builddir/build/BUILD/nrn-7.8.1/src/nrnmpi -I/builddir/build/BUILD/nrn-7.8.1/src/nrnpython -I/builddir/build/BUILD/nrn-7.8.1/src/parallel -I/builddir/build/BUILD/nrn-7.8.1/src/sparse -I/builddir/build/BUILD/nrn-7.8.1/src/sparse13 -I/builddir/build/BUILD/nrn-7.8.1/src/sundials -I/builddir/build/BUILD/nrn-7.8.1/src/sundials/cvodes -I/builddir/build/BUILD/nrn-7.8.1/src/sundials/ida -I/builddir/build/BUILD/nrn-7.8.1/src/sundials/shared -I/usr/include/python3.9 -O2 -flto=auto -ffat-lto-objects -fexceptions -g -grecord-gcc-switches -pipe -Wall -Werror=format-security -Wp,-D_FORTIFY_SOURCE=2 -Wp,-D_GLIBCXX_ASSERTIONS -specs=/usr/lib/rpm/redhat/redhat-hardened-cc1 -fstack-protector-strong -specs=/usr/lib/rpm/redhat/redhat-annobin-cc1  -fasynchronous-unwind-tables -fstack-clash-protection -fPIC -std=c++98 -o CMakeFiles/nrniv_lib.dir/__/ivoc/grmanip.cpp.o -c /builddir/build/BUILD/nrn-7.8.1/src/ivoc/grmanip.cpp
make[2]: Leaving directory '/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu'
/builddir/build/BUILD/nrn-7.8.1/src/ivoc/grmanip.cpp: In member function 'virtual void HocMark::pick(ivCanvas*, const ivAllocation&, int, ivHit&)':
/builddir/build/BUILD/nrn-7.8.1/src/ivoc/grmanip.cpp:147:9: warning: unused variable 'x' [-Wunused-variable]
  147 |   Coord x = h.left(), y = h.bottom();
      |         ^
/builddir/build/BUILD/nrn-7.8.1/src/ivoc/grmanip.cpp:147:23: warning: unused variable 'y' [-Wunused-variable]
  147 |   Coord x = h.left(), y = h.bottom();
      |                       ^
make[2]: Entering directory '/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu'
[ 17%] Building CXX object src/nrniv/CMakeFiles/nrniv_lib.dir/__/ivoc/hocmark.cpp.o
cd /builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/nrniv && /usr/bin/g++ -DHAVE_CONFIG_H -Dnrniv_lib_EXPORTS -DUSEBBS=1 -DUSEGNU=1 -DUSEMATRIX=1 -I/builddir/build/BUILD/nrn-7.8.1/src/ivoc -I/builddir/build/BUILD/nrn-7.8.1/src/nrniv -I/builddir/build/BUILD/nrn-7.8.1/src/nrnoc -I/builddir/build/BUILD/nrn-7.8.1/src/oc -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/nrncvode -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/nrnjava -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/nrnoc -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/nrnpython -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/oc -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/parallel -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/sundials -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/sundials/shared -I/builddir/build/BUILD/nrn-7.8.1/src -I/builddir/build/BUILD/nrn-7.8.1/src/gnu -I/builddir/build/BUILD/nrn-7.8.1/src/memacs -I/builddir/build/BUILD/nrn-7.8.1/src/mesch -I/builddir/build/BUILD/nrn-7.8.1/src/nrncvode -I/builddir/build/BUILD/nrn-7.8.1/src/nrnmpi -I/builddir/build/BUILD/nrn-7.8.1/src/nrnpython -I/builddir/build/BUILD/nrn-7.8.1/src/parallel -I/builddir/build/BUILD/nrn-7.8.1/src/sparse -I/builddir/build/BUILD/nrn-7.8.1/src/sparse13 -I/builddir/build/BUILD/nrn-7.8.1/src/sundials -I/builddir/build/BUILD/nrn-7.8.1/src/sundials/cvodes -I/builddir/build/BUILD/nrn-7.8.1/src/sundials/ida -I/builddir/build/BUILD/nrn-7.8.1/src/sundials/shared -I/usr/include/python3.9 -O2 -flto=auto -ffat-lto-objects -fexceptions -g -grecord-gcc-switches -pipe -Wall -Werror=format-security -Wp,-D_FORTIFY_SOURCE=2 -Wp,-D_GLIBCXX_ASSERTIONS -specs=/usr/lib/rpm/redhat/redhat-hardened-cc1 -fstack-protector-strong -specs=/usr/lib/rpm/redhat/redhat-annobin-cc1  -fasynchronous-unwind-tables -fstack-clash-protection -fPIC -std=c++98 -o CMakeFiles/nrniv_lib.dir/__/ivoc/hocmark.cpp.o -c /builddir/build/BUILD/nrn-7.8.1/src/ivoc/hocmark.cpp
make[2]: Leaving directory '/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu'
make[2]: Entering directory '/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu'
[ 17%] Building CXX object src/nrniv/CMakeFiles/nrniv_lib.dir/__/ivoc/htlist.cpp.o
cd /builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/nrniv && /usr/bin/g++ -DHAVE_CONFIG_H -Dnrniv_lib_EXPORTS -DUSEBBS=1 -DUSEGNU=1 -DUSEMATRIX=1 -I/builddir/build/BUILD/nrn-7.8.1/src/ivoc -I/builddir/build/BUILD/nrn-7.8.1/src/nrniv -I/builddir/build/BUILD/nrn-7.8.1/src/nrnoc -I/builddir/build/BUILD/nrn-7.8.1/src/oc -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/nrncvode -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/nrnjava -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/nrnoc -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/nrnpython -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/oc -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/parallel -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/sundials -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/sundials/shared -I/builddir/build/BUILD/nrn-7.8.1/src -I/builddir/build/BUILD/nrn-7.8.1/src/gnu -I/builddir/build/BUILD/nrn-7.8.1/src/memacs -I/builddir/build/BUILD/nrn-7.8.1/src/mesch -I/builddir/build/BUILD/nrn-7.8.1/src/nrncvode -I/builddir/build/BUILD/nrn-7.8.1/src/nrnmpi -I/builddir/build/BUILD/nrn-7.8.1/src/nrnpython -I/builddir/build/BUILD/nrn-7.8.1/src/parallel -I/builddir/build/BUILD/nrn-7.8.1/src/sparse -I/builddir/build/BUILD/nrn-7.8.1/src/sparse13 -I/builddir/build/BUILD/nrn-7.8.1/src/sundials -I/builddir/build/BUILD/nrn-7.8.1/src/sundials/cvodes -I/builddir/build/BUILD/nrn-7.8.1/src/sundials/ida -I/builddir/build/BUILD/nrn-7.8.1/src/sundials/shared -I/usr/include/python3.9 -O2 -flto=auto -ffat-lto-objects -fexceptions -g -grecord-gcc-switches -pipe -Wall -Werror=format-security -Wp,-D_FORTIFY_SOURCE=2 -Wp,-D_GLIBCXX_ASSERTIONS -specs=/usr/lib/rpm/redhat/redhat-hardened-cc1 -fstack-protector-strong -specs=/usr/lib/rpm/redhat/redhat-annobin-cc1  -fasynchronous-unwind-tables -fstack-clash-protection -fPIC -std=c++98 -o CMakeFiles/nrniv_lib.dir/__/ivoc/htlist.cpp.o -c /builddir/build/BUILD/nrn-7.8.1/src/ivoc/htlist.cpp
make[2]: Leaving directory '/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu'
make[2]: Entering directory '/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu'
[ 17%] Building CXX object src/nrniv/CMakeFiles/nrniv_lib.dir/__/ivoc/ivocmain.cpp.o
cd /builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/nrniv && /usr/bin/g++ -DHAVE_CONFIG_H -Dnrniv_lib_EXPORTS -DUSEBBS=1 -DUSEGNU=1 -DUSEMATRIX=1 -I/builddir/build/BUILD/nrn-7.8.1/src/ivoc -I/builddir/build/BUILD/nrn-7.8.1/src/nrniv -I/builddir/build/BUILD/nrn-7.8.1/src/nrnoc -I/builddir/build/BUILD/nrn-7.8.1/src/oc -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/nrncvode -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/nrnjava -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/nrnoc -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/nrnpython -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/oc -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/parallel -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/sundials -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/sundials/shared -I/builddir/build/BUILD/nrn-7.8.1/src -I/builddir/build/BUILD/nrn-7.8.1/src/gnu -I/builddir/build/BUILD/nrn-7.8.1/src/memacs -I/builddir/build/BUILD/nrn-7.8.1/src/mesch -I/builddir/build/BUILD/nrn-7.8.1/src/nrncvode -I/builddir/build/BUILD/nrn-7.8.1/src/nrnmpi -I/builddir/build/BUILD/nrn-7.8.1/src/nrnpython -I/builddir/build/BUILD/nrn-7.8.1/src/parallel -I/builddir/build/BUILD/nrn-7.8.1/src/sparse -I/builddir/build/BUILD/nrn-7.8.1/src/sparse13 -I/builddir/build/BUILD/nrn-7.8.1/src/sundials -I/builddir/build/BUILD/nrn-7.8.1/src/sundials/cvodes -I/builddir/build/BUILD/nrn-7.8.1/src/sundials/ida -I/builddir/build/BUILD/nrn-7.8.1/src/sundials/shared -I/usr/include/python3.9 -O2 -flto=auto -ffat-lto-objects -fexceptions -g -grecord-gcc-switches -pipe -Wall -Werror=format-security -Wp,-D_FORTIFY_SOURCE=2 -Wp,-D_GLIBCXX_ASSERTIONS -specs=/usr/lib/rpm/redhat/redhat-hardened-cc1 -fstack-protector-strong -specs=/usr/lib/rpm/redhat/redhat-annobin-cc1  -fasynchronous-unwind-tables -fstack-clash-protection -fPIC -std=c++98 -o CMakeFiles/nrniv_lib.dir/__/ivoc/ivocmain.cpp.o -c /builddir/build/BUILD/nrn-7.8.1/src/ivoc/ivocmain.cpp
make[2]: Leaving directory '/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu'
/builddir/build/BUILD/nrn-7.8.1/src/ivoc/ivocmain.cpp: In function 'bool nrn_optarg_on(const char*, int*, const char**)':
/builddir/build/BUILD/nrn-7.8.1/src/ivoc/ivocmain.cpp:337:8: warning: unused variable 'a' [-Wunused-variable]
  337 |  char* a;
      |        ^
/builddir/build/BUILD/nrn-7.8.1/src/ivoc/ivocmain.cpp: At global scope:
/builddir/build/BUILD/nrn-7.8.1/src/ivoc/ivocmain.cpp:332:13: warning: 'bool nrn_optarg_on(const char*, int*, char**)' declared 'static' but never defined [-Wunused-function]
  332 | static bool nrn_optarg_on(const char* opt, int* argc, char** argv);
      |             ^~~~~~~~~~~~~
/builddir/build/BUILD/nrn-7.8.1/src/ivoc/ivocmain.cpp:333:14: warning: 'char* nrn_optarg(const char*, int*, char**)' declared 'static' but never defined [-Wunused-function]
  333 | static char* nrn_optarg(const char* opt, int* argc, char** argv);
      |              ^~~~~~~~~~
/builddir/build/BUILD/nrn-7.8.1/src/ivoc/ivocmain.cpp:334:12: warning: 'int nrn_optargint(const char*, int*, char**, int)' declared 'static' but never defined [-Wunused-function]
  334 | static int nrn_optargint(const char* opt, int* argc, char** argv, int dflt);
      |            ^~~~~~~~~~~~~
make[2]: Entering directory '/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu'
[ 17%] Building CXX object src/nrniv/CMakeFiles/nrniv_lib.dir/__/ivoc/idraw.cpp.o
cd /builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/nrniv && /usr/bin/g++ -DHAVE_CONFIG_H -Dnrniv_lib_EXPORTS -DUSEBBS=1 -DUSEGNU=1 -DUSEMATRIX=1 -I/builddir/build/BUILD/nrn-7.8.1/src/ivoc -I/builddir/build/BUILD/nrn-7.8.1/src/nrniv -I/builddir/build/BUILD/nrn-7.8.1/src/nrnoc -I/builddir/build/BUILD/nrn-7.8.1/src/oc -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/nrncvode -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/nrnjava -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/nrnoc -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/nrnpython -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/oc -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/parallel -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/sundials -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/sundials/shared -I/builddir/build/BUILD/nrn-7.8.1/src -I/builddir/build/BUILD/nrn-7.8.1/src/gnu -I/builddir/build/BUILD/nrn-7.8.1/src/memacs -I/builddir/build/BUILD/nrn-7.8.1/src/mesch -I/builddir/build/BUILD/nrn-7.8.1/src/nrncvode -I/builddir/build/BUILD/nrn-7.8.1/src/nrnmpi -I/builddir/build/BUILD/nrn-7.8.1/src/nrnpython -I/builddir/build/BUILD/nrn-7.8.1/src/parallel -I/builddir/build/BUILD/nrn-7.8.1/src/sparse -I/builddir/build/BUILD/nrn-7.8.1/src/sparse13 -I/builddir/build/BUILD/nrn-7.8.1/src/sundials -I/builddir/build/BUILD/nrn-7.8.1/src/sundials/cvodes -I/builddir/build/BUILD/nrn-7.8.1/src/sundials/ida -I/builddir/build/BUILD/nrn-7.8.1/src/sundials/shared -I/usr/include/python3.9 -O2 -flto=auto -ffat-lto-objects -fexceptions -g -grecord-gcc-switches -pipe -Wall -Werror=format-security -Wp,-D_FORTIFY_SOURCE=2 -Wp,-D_GLIBCXX_ASSERTIONS -specs=/usr/lib/rpm/redhat/redhat-hardened-cc1 -fstack-protector-strong -specs=/usr/lib/rpm/redhat/redhat-annobin-cc1  -fasynchronous-unwind-tables -fstack-clash-protection -fPIC -std=c++98 -o CMakeFiles/nrniv_lib.dir/__/ivoc/idraw.cpp.o -c /builddir/build/BUILD/nrn-7.8.1/src/ivoc/idraw.cpp
make[2]: Leaving directory '/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu'
make[2]: Entering directory '/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu'
[ 17%] Building CXX object src/nrniv/CMakeFiles/nrniv_lib.dir/__/ivoc/ivoc.cpp.o
cd /builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/nrniv && /usr/bin/g++ -DHAVE_CONFIG_H -Dnrniv_lib_EXPORTS -DUSEBBS=1 -DUSEGNU=1 -DUSEMATRIX=1 -I/builddir/build/BUILD/nrn-7.8.1/src/ivoc -I/builddir/build/BUILD/nrn-7.8.1/src/nrniv -I/builddir/build/BUILD/nrn-7.8.1/src/nrnoc -I/builddir/build/BUILD/nrn-7.8.1/src/oc -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/nrncvode -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/nrnjava -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/nrnoc -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/nrnpython -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/oc -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/parallel -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/sundials -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/sundials/shared -I/builddir/build/BUILD/nrn-7.8.1/src -I/builddir/build/BUILD/nrn-7.8.1/src/gnu -I/builddir/build/BUILD/nrn-7.8.1/src/memacs -I/builddir/build/BUILD/nrn-7.8.1/src/mesch -I/builddir/build/BUILD/nrn-7.8.1/src/nrncvode -I/builddir/build/BUILD/nrn-7.8.1/src/nrnmpi -I/builddir/build/BUILD/nrn-7.8.1/src/nrnpython -I/builddir/build/BUILD/nrn-7.8.1/src/parallel -I/builddir/build/BUILD/nrn-7.8.1/src/sparse -I/builddir/build/BUILD/nrn-7.8.1/src/sparse13 -I/builddir/build/BUILD/nrn-7.8.1/src/sundials -I/builddir/build/BUILD/nrn-7.8.1/src/sundials/cvodes -I/builddir/build/BUILD/nrn-7.8.1/src/sundials/ida -I/builddir/build/BUILD/nrn-7.8.1/src/sundials/shared -I/usr/include/python3.9 -O2 -flto=auto -ffat-lto-objects -fexceptions -g -grecord-gcc-switches -pipe -Wall -Werror=format-security -Wp,-D_FORTIFY_SOURCE=2 -Wp,-D_GLIBCXX_ASSERTIONS -specs=/usr/lib/rpm/redhat/redhat-hardened-cc1 -fstack-protector-strong -specs=/usr/lib/rpm/redhat/redhat-annobin-cc1  -fasynchronous-unwind-tables -fstack-clash-protection -fPIC -std=c++98 -o CMakeFiles/nrniv_lib.dir/__/ivoc/ivoc.cpp.o -c /builddir/build/BUILD/nrn-7.8.1/src/ivoc/ivoc.cpp
make[2]: Leaving directory '/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu'
make[2]: Entering directory '/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu'
[ 16%] Building CXX object src/nrniv/CMakeFiles/nrniv_lib.dir/__/ivoc/graph.cpp.o
cd /builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/nrniv && /usr/bin/g++ -DHAVE_CONFIG_H -Dnrniv_lib_EXPORTS -DUSEBBS=1 -DUSEGNU=1 -DUSEMATRIX=1 -I/builddir/build/BUILD/nrn-7.8.1/src/ivoc -I/builddir/build/BUILD/nrn-7.8.1/src/nrniv -I/builddir/build/BUILD/nrn-7.8.1/src/nrnoc -I/builddir/build/BUILD/nrn-7.8.1/src/oc -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/nrncvode -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/nrnjava -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/nrnoc -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/nrnpython -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/oc -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/parallel -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/sundials -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/sundials/shared -I/builddir/build/BUILD/nrn-7.8.1/src -I/builddir/build/BUILD/nrn-7.8.1/src/gnu -I/builddir/build/BUILD/nrn-7.8.1/src/memacs -I/builddir/build/BUILD/nrn-7.8.1/src/mesch -I/builddir/build/BUILD/nrn-7.8.1/src/nrncvode -I/builddir/build/BUILD/nrn-7.8.1/src/nrnmpi -I/builddir/build/BUILD/nrn-7.8.1/src/nrnpython -I/builddir/build/BUILD/nrn-7.8.1/src/parallel -I/builddir/build/BUILD/nrn-7.8.1/src/sparse -I/builddir/build/BUILD/nrn-7.8.1/src/sparse13 -I/builddir/build/BUILD/nrn-7.8.1/src/sundials -I/builddir/build/BUILD/nrn-7.8.1/src/sundials/cvodes -I/builddir/build/BUILD/nrn-7.8.1/src/sundials/ida -I/builddir/build/BUILD/nrn-7.8.1/src/sundials/shared -I/usr/include/python3.9 -O2 -flto=auto -ffat-lto-objects -fexceptions -g -grecord-gcc-switches -pipe -Wall -Werror=format-security -Wp,-D_FORTIFY_SOURCE=2 -Wp,-D_GLIBCXX_ASSERTIONS -specs=/usr/lib/rpm/redhat/redhat-hardened-cc1 -fstack-protector-strong -specs=/usr/lib/rpm/redhat/redhat-annobin-cc1  -fasynchronous-unwind-tables -fstack-clash-protection -fPIC -std=c++98 -o CMakeFiles/nrniv_lib.dir/__/ivoc/graph.cpp.o -c /builddir/build/BUILD/nrn-7.8.1/src/ivoc/graph.cpp
make[2]: Leaving directory '/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu'
/builddir/build/BUILD/nrn-7.8.1/src/ivoc/graph.cpp: In function 'double ivoc_view_size(void*)':
/builddir/build/BUILD/nrn-7.8.1/src/ivoc/graph.cpp:433:6: warning: unused variable 'i' [-Wunused-variable]
  433 |  int i;
      |      ^
/builddir/build/BUILD/nrn-7.8.1/src/ivoc/graph.cpp: In member function 'void Graph::ascii_save(std::ostream&) const':
/builddir/build/BUILD/nrn-7.8.1/src/ivoc/graph.cpp:1692:9: warning: unused variable 'j' [-Wunused-variable]
 1692 |     int j, jcnt;
      |         ^
/builddir/build/BUILD/nrn-7.8.1/src/ivoc/graph.cpp: In member function 'virtual void Graph::wholeplot(ivCoord&, ivCoord&, ivCoord&, ivCoord&) const':
/builddir/build/BUILD/nrn-7.8.1/src/ivoc/graph.cpp:1812:13: warning: unused variable 'gl' [-Wunused-variable]
 1812 |  GraphLine* gl;
      |             ^~
/builddir/build/BUILD/nrn-7.8.1/src/ivoc/graph.cpp: In member function 'void Graph::cross_action(char, GPolyLine*, int)':
/builddir/build/BUILD/nrn-7.8.1/src/ivoc/graph.cpp:2064:8: warning: unused variable 'buf' [-Wunused-variable]
 2064 |   char buf[256];
      |        ^~~
/builddir/build/BUILD/nrn-7.8.1/src/ivoc/graph.cpp: In member function 'virtual void LineExtension::request(ivRequisition&) const':
/builddir/build/BUILD/nrn-7.8.1/src/ivoc/graph.cpp:3392:14: warning: unused variable 'eps' [-Wunused-variable]
 3392 |  const float eps = 1e-4;
      |              ^~~
make[2]: Entering directory '/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu'
[ 18%] Building CXX object src/nrniv/CMakeFiles/nrniv_lib.dir/__/ivoc/ivocrand.cpp.o
cd /builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/nrniv && /usr/bin/g++ -DHAVE_CONFIG_H -Dnrniv_lib_EXPORTS -DUSEBBS=1 -DUSEGNU=1 -DUSEMATRIX=1 -I/builddir/build/BUILD/nrn-7.8.1/src/ivoc -I/builddir/build/BUILD/nrn-7.8.1/src/nrniv -I/builddir/build/BUILD/nrn-7.8.1/src/nrnoc -I/builddir/build/BUILD/nrn-7.8.1/src/oc -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/nrncvode -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/nrnjava -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/nrnoc -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/nrnpython -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/oc -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/parallel -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/sundials -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/sundials/shared -I/builddir/build/BUILD/nrn-7.8.1/src -I/builddir/build/BUILD/nrn-7.8.1/src/gnu -I/builddir/build/BUILD/nrn-7.8.1/src/memacs -I/builddir/build/BUILD/nrn-7.8.1/src/mesch -I/builddir/build/BUILD/nrn-7.8.1/src/nrncvode -I/builddir/build/BUILD/nrn-7.8.1/src/nrnmpi -I/builddir/build/BUILD/nrn-7.8.1/src/nrnpython -I/builddir/build/BUILD/nrn-7.8.1/src/parallel -I/builddir/build/BUILD/nrn-7.8.1/src/sparse -I/builddir/build/BUILD/nrn-7.8.1/src/sparse13 -I/builddir/build/BUILD/nrn-7.8.1/src/sundials -I/builddir/build/BUILD/nrn-7.8.1/src/sundials/cvodes -I/builddir/build/BUILD/nrn-7.8.1/src/sundials/ida -I/builddir/build/BUILD/nrn-7.8.1/src/sundials/shared -I/usr/include/python3.9 -O2 -flto=auto -ffat-lto-objects -fexceptions -g -grecord-gcc-switches -pipe -Wall -Werror=format-security -Wp,-D_FORTIFY_SOURCE=2 -Wp,-D_GLIBCXX_ASSERTIONS -specs=/usr/lib/rpm/redhat/redhat-hardened-cc1 -fstack-protector-strong -specs=/usr/lib/rpm/redhat/redhat-annobin-cc1  -fasynchronous-unwind-tables -fstack-clash-protection -fPIC -std=c++98 -o CMakeFiles/nrniv_lib.dir/__/ivoc/ivocrand.cpp.o -c /builddir/build/BUILD/nrn-7.8.1/src/ivoc/ivocrand.cpp
make[2]: Leaving directory '/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu'
In file included from /builddir/build/BUILD/nrn-7.8.1/src/ivoc/ivocrand.cpp:32:
/builddir/build/BUILD/nrn-7.8.1/src/gnu/RndInt.h: In constructor 'RandomInteger::RandomInteger(long int, long int, RNG*)':
/builddir/build/BUILD/nrn-7.8.1/src/gnu/RndInt.h:54:8: warning: 'RandomInteger::pHigh' will be initialized after [-Wreorder]
   54 |   long pHigh;
      |        ^~~~~
/builddir/build/BUILD/nrn-7.8.1/src/gnu/RndInt.h:52:8: warning:   'RNG* RandomInteger::pGenerator' [-Wreorder]
   52 |   RNG *pGenerator;
      |        ^~~~~~~~~~
/builddir/build/BUILD/nrn-7.8.1/src/gnu/RndInt.h:93:8: warning:   when initialized here [-Wreorder]
   93 | inline RandomInteger::RandomInteger(long low, long high, RNG *gen)
      |        ^~~~~~~~~~~~~
/builddir/build/BUILD/nrn-7.8.1/src/gnu/RndInt.h: In constructor 'RandomInteger::RandomInteger(long int, RNG*)':
/builddir/build/BUILD/nrn-7.8.1/src/gnu/RndInt.h:54:8: warning: 'RandomInteger::pHigh' will be initialized after [-Wreorder]
   54 |   long pHigh;
      |        ^~~~~
/builddir/build/BUILD/nrn-7.8.1/src/gnu/RndInt.h:52:8: warning:   'RNG* RandomInteger::pGenerator' [-Wreorder]
   52 |   RNG *pGenerator;
      |        ^~~~~~~~~~
/builddir/build/BUILD/nrn-7.8.1/src/gnu/RndInt.h:99:8: warning:   when initialized here [-Wreorder]
   99 | inline RandomInteger::RandomInteger(long high, RNG *gen)
      |        ^~~~~~~~~~~~~
/builddir/build/BUILD/nrn-7.8.1/src/gnu/RndInt.h: In constructor 'RandomInteger::RandomInteger(RNG*)':
/builddir/build/BUILD/nrn-7.8.1/src/gnu/RndInt.h:54:8: warning: 'RandomInteger::pHigh' will be initialized after [-Wreorder]
   54 |   long pHigh;
      |        ^~~~~
/builddir/build/BUILD/nrn-7.8.1/src/gnu/RndInt.h:52:8: warning:   'RNG* RandomInteger::pGenerator' [-Wreorder]
   52 |   RNG *pGenerator;
      |        ^~~~~~~~~~
/builddir/build/BUILD/nrn-7.8.1/src/gnu/RndInt.h:106:8: warning:   when initialized here [-Wreorder]
  106 | inline RandomInteger::RandomInteger(RNG *gen)
      |        ^~~~~~~~~~~~~
make[2]: Entering directory '/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu'
[ 18%] Building CXX object src/nrniv/CMakeFiles/nrniv_lib.dir/__/ivoc/mlinedit.cpp.o
cd /builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/nrniv && /usr/bin/g++ -DHAVE_CONFIG_H -Dnrniv_lib_EXPORTS -DUSEBBS=1 -DUSEGNU=1 -DUSEMATRIX=1 -I/builddir/build/BUILD/nrn-7.8.1/src/ivoc -I/builddir/build/BUILD/nrn-7.8.1/src/nrniv -I/builddir/build/BUILD/nrn-7.8.1/src/nrnoc -I/builddir/build/BUILD/nrn-7.8.1/src/oc -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/nrncvode -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/nrnjava -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/nrnoc -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/nrnpython -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/oc -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/parallel -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/sundials -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/sundials/shared -I/builddir/build/BUILD/nrn-7.8.1/src -I/builddir/build/BUILD/nrn-7.8.1/src/gnu -I/builddir/build/BUILD/nrn-7.8.1/src/memacs -I/builddir/build/BUILD/nrn-7.8.1/src/mesch -I/builddir/build/BUILD/nrn-7.8.1/src/nrncvode -I/builddir/build/BUILD/nrn-7.8.1/src/nrnmpi -I/builddir/build/BUILD/nrn-7.8.1/src/nrnpython -I/builddir/build/BUILD/nrn-7.8.1/src/parallel -I/builddir/build/BUILD/nrn-7.8.1/src/sparse -I/builddir/build/BUILD/nrn-7.8.1/src/sparse13 -I/builddir/build/BUILD/nrn-7.8.1/src/sundials -I/builddir/build/BUILD/nrn-7.8.1/src/sundials/cvodes -I/builddir/build/BUILD/nrn-7.8.1/src/sundials/ida -I/builddir/build/BUILD/nrn-7.8.1/src/sundials/shared -I/usr/include/python3.9 -O2 -flto=auto -ffat-lto-objects -fexceptions -g -grecord-gcc-switches -pipe -Wall -Werror=format-security -Wp,-D_FORTIFY_SOURCE=2 -Wp,-D_GLIBCXX_ASSERTIONS -specs=/usr/lib/rpm/redhat/redhat-hardened-cc1 -fstack-protector-strong -specs=/usr/lib/rpm/redhat/redhat-annobin-cc1  -fasynchronous-unwind-tables -fstack-clash-protection -fPIC -std=c++98 -o CMakeFiles/nrniv_lib.dir/__/ivoc/mlinedit.cpp.o -c /builddir/build/BUILD/nrn-7.8.1/src/ivoc/mlinedit.cpp
make[2]: Leaving directory '/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu'
/builddir/build/BUILD/nrn-7.8.1/src/ivoc/mlinedit.cpp: In function 'void* cons(Object*)':
/builddir/build/BUILD/nrn-7.8.1/src/ivoc/mlinedit.cpp:139:1: warning: control reaches end of non-void function [-Wreturn-type]
  139 | }
      | ^
make[2]: Entering directory '/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu'
[ 18%] Building CXX object src/nrniv/CMakeFiles/nrniv_lib.dir/__/ivoc/matrix.cpp.o
cd /builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/nrniv && /usr/bin/g++ -DHAVE_CONFIG_H -Dnrniv_lib_EXPORTS -DUSEBBS=1 -DUSEGNU=1 -DUSEMATRIX=1 -I/builddir/build/BUILD/nrn-7.8.1/src/ivoc -I/builddir/build/BUILD/nrn-7.8.1/src/nrniv -I/builddir/build/BUILD/nrn-7.8.1/src/nrnoc -I/builddir/build/BUILD/nrn-7.8.1/src/oc -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/nrncvode -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/nrnjava -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/nrnoc -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/nrnpython -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/oc -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/parallel -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/sundials -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/sundials/shared -I/builddir/build/BUILD/nrn-7.8.1/src -I/builddir/build/BUILD/nrn-7.8.1/src/gnu -I/builddir/build/BUILD/nrn-7.8.1/src/memacs -I/builddir/build/BUILD/nrn-7.8.1/src/mesch -I/builddir/build/BUILD/nrn-7.8.1/src/nrncvode -I/builddir/build/BUILD/nrn-7.8.1/src/nrnmpi -I/builddir/build/BUILD/nrn-7.8.1/src/nrnpython -I/builddir/build/BUILD/nrn-7.8.1/src/parallel -I/builddir/build/BUILD/nrn-7.8.1/src/sparse -I/builddir/build/BUILD/nrn-7.8.1/src/sparse13 -I/builddir/build/BUILD/nrn-7.8.1/src/sundials -I/builddir/build/BUILD/nrn-7.8.1/src/sundials/cvodes -I/builddir/build/BUILD/nrn-7.8.1/src/sundials/ida -I/builddir/build/BUILD/nrn-7.8.1/src/sundials/shared -I/usr/include/python3.9 -O2 -flto=auto -ffat-lto-objects -fexceptions -g -grecord-gcc-switches -pipe -Wall -Werror=format-security -Wp,-D_FORTIFY_SOURCE=2 -Wp,-D_GLIBCXX_ASSERTIONS -specs=/usr/lib/rpm/redhat/redhat-hardened-cc1 -fstack-protector-strong -specs=/usr/lib/rpm/redhat/redhat-annobin-cc1  -fasynchronous-unwind-tables -fstack-clash-protection -fPIC -std=c++98 -o CMakeFiles/nrniv_lib.dir/__/ivoc/matrix.cpp.o -c /builddir/build/BUILD/nrn-7.8.1/src/ivoc/matrix.cpp
make[2]: Leaving directory '/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu'
/builddir/build/BUILD/nrn-7.8.1/src/ivoc/matrix.cpp: In function 'void steer_x(void*)':
/builddir/build/BUILD/nrn-7.8.1/src/ivoc/matrix.cpp:731:10: warning: unused variable 's' [-Wunused-variable]
  731 |  Symbol* s = hoc_spop();
      |          ^
make[2]: Entering directory '/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu'
[ 18%] Building CXX object src/nrniv/CMakeFiles/nrniv_lib.dir/__/ivoc/mymath.cpp.o
cd /builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/nrniv && /usr/bin/g++ -DHAVE_CONFIG_H -Dnrniv_lib_EXPORTS -DUSEBBS=1 -DUSEGNU=1 -DUSEMATRIX=1 -I/builddir/build/BUILD/nrn-7.8.1/src/ivoc -I/builddir/build/BUILD/nrn-7.8.1/src/nrniv -I/builddir/build/BUILD/nrn-7.8.1/src/nrnoc -I/builddir/build/BUILD/nrn-7.8.1/src/oc -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/nrncvode -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/nrnjava -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/nrnoc -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/nrnpython -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/oc -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/parallel -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/sundials -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/sundials/shared -I/builddir/build/BUILD/nrn-7.8.1/src -I/builddir/build/BUILD/nrn-7.8.1/src/gnu -I/builddir/build/BUILD/nrn-7.8.1/src/memacs -I/builddir/build/BUILD/nrn-7.8.1/src/mesch -I/builddir/build/BUILD/nrn-7.8.1/src/nrncvode -I/builddir/build/BUILD/nrn-7.8.1/src/nrnmpi -I/builddir/build/BUILD/nrn-7.8.1/src/nrnpython -I/builddir/build/BUILD/nrn-7.8.1/src/parallel -I/builddir/build/BUILD/nrn-7.8.1/src/sparse -I/builddir/build/BUILD/nrn-7.8.1/src/sparse13 -I/builddir/build/BUILD/nrn-7.8.1/src/sundials -I/builddir/build/BUILD/nrn-7.8.1/src/sundials/cvodes -I/builddir/build/BUILD/nrn-7.8.1/src/sundials/ida -I/builddir/build/BUILD/nrn-7.8.1/src/sundials/shared -I/usr/include/python3.9 -O2 -flto=auto -ffat-lto-objects -fexceptions -g -grecord-gcc-switches -pipe -Wall -Werror=format-security -Wp,-D_FORTIFY_SOURCE=2 -Wp,-D_GLIBCXX_ASSERTIONS -specs=/usr/lib/rpm/redhat/redhat-hardened-cc1 -fstack-protector-strong -specs=/usr/lib/rpm/redhat/redhat-annobin-cc1  -fasynchronous-unwind-tables -fstack-clash-protection -fPIC -std=c++98 -o CMakeFiles/nrniv_lib.dir/__/ivoc/mymath.cpp.o -c /builddir/build/BUILD/nrn-7.8.1/src/ivoc/mymath.cpp
make[2]: Leaving directory '/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu'
/builddir/build/BUILD/nrn-7.8.1/src/ivoc/mymath.cpp: In function 'int nrn_feround(int)':
/builddir/build/BUILD/nrn-7.8.1/src/ivoc/mymath.cpp:37:6: warning: unused variable 'm' [-Wunused-variable]
   37 |  int m;
      |      ^
make[2]: Entering directory '/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu'
[ 19%] Building CXX object src/nrniv/CMakeFiles/nrniv_lib.dir/__/ivoc/objcmd.cpp.o
cd /builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/nrniv && /usr/bin/g++ -DHAVE_CONFIG_H -Dnrniv_lib_EXPORTS -DUSEBBS=1 -DUSEGNU=1 -DUSEMATRIX=1 -I/builddir/build/BUILD/nrn-7.8.1/src/ivoc -I/builddir/build/BUILD/nrn-7.8.1/src/nrniv -I/builddir/build/BUILD/nrn-7.8.1/src/nrnoc -I/builddir/build/BUILD/nrn-7.8.1/src/oc -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/nrncvode -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/nrnjava -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/nrnoc -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/nrnpython -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/oc -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/parallel -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/sundials -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/sundials/shared -I/builddir/build/BUILD/nrn-7.8.1/src -I/builddir/build/BUILD/nrn-7.8.1/src/gnu -I/builddir/build/BUILD/nrn-7.8.1/src/memacs -I/builddir/build/BUILD/nrn-7.8.1/src/mesch -I/builddir/build/BUILD/nrn-7.8.1/src/nrncvode -I/builddir/build/BUILD/nrn-7.8.1/src/nrnmpi -I/builddir/build/BUILD/nrn-7.8.1/src/nrnpython -I/builddir/build/BUILD/nrn-7.8.1/src/parallel -I/builddir/build/BUILD/nrn-7.8.1/src/sparse -I/builddir/build/BUILD/nrn-7.8.1/src/sparse13 -I/builddir/build/BUILD/nrn-7.8.1/src/sundials -I/builddir/build/BUILD/nrn-7.8.1/src/sundials/cvodes -I/builddir/build/BUILD/nrn-7.8.1/src/sundials/ida -I/builddir/build/BUILD/nrn-7.8.1/src/sundials/shared -I/usr/include/python3.9 -O2 -flto=auto -ffat-lto-objects -fexceptions -g -grecord-gcc-switches -pipe -Wall -Werror=format-security -Wp,-D_FORTIFY_SOURCE=2 -Wp,-D_GLIBCXX_ASSERTIONS -specs=/usr/lib/rpm/redhat/redhat-hardened-cc1 -fstack-protector-strong -specs=/usr/lib/rpm/redhat/redhat-annobin-cc1  -fasynchronous-unwind-tables -fstack-clash-protection -fPIC -std=c++98 -o CMakeFiles/nrniv_lib.dir/__/ivoc/objcmd.cpp.o -c /builddir/build/BUILD/nrn-7.8.1/src/ivoc/objcmd.cpp
make[2]: Leaving directory '/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu'
make[2]: Entering directory '/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu'
[ 19%] Building CXX object src/nrniv/CMakeFiles/nrniv_lib.dir/__/ivoc/oc2iv.cpp.o
cd /builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/nrniv && /usr/bin/g++ -DHAVE_CONFIG_H -Dnrniv_lib_EXPORTS -DUSEBBS=1 -DUSEGNU=1 -DUSEMATRIX=1 -I/builddir/build/BUILD/nrn-7.8.1/src/ivoc -I/builddir/build/BUILD/nrn-7.8.1/src/nrniv -I/builddir/build/BUILD/nrn-7.8.1/src/nrnoc -I/builddir/build/BUILD/nrn-7.8.1/src/oc -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/nrncvode -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/nrnjava -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/nrnoc -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/nrnpython -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/oc -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/parallel -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/sundials -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/sundials/shared -I/builddir/build/BUILD/nrn-7.8.1/src -I/builddir/build/BUILD/nrn-7.8.1/src/gnu -I/builddir/build/BUILD/nrn-7.8.1/src/memacs -I/builddir/build/BUILD/nrn-7.8.1/src/mesch -I/builddir/build/BUILD/nrn-7.8.1/src/nrncvode -I/builddir/build/BUILD/nrn-7.8.1/src/nrnmpi -I/builddir/build/BUILD/nrn-7.8.1/src/nrnpython -I/builddir/build/BUILD/nrn-7.8.1/src/parallel -I/builddir/build/BUILD/nrn-7.8.1/src/sparse -I/builddir/build/BUILD/nrn-7.8.1/src/sparse13 -I/builddir/build/BUILD/nrn-7.8.1/src/sundials -I/builddir/build/BUILD/nrn-7.8.1/src/sundials/cvodes -I/builddir/build/BUILD/nrn-7.8.1/src/sundials/ida -I/builddir/build/BUILD/nrn-7.8.1/src/sundials/shared -I/usr/include/python3.9 -O2 -flto=auto -ffat-lto-objects -fexceptions -g -grecord-gcc-switches -pipe -Wall -Werror=format-security -Wp,-D_FORTIFY_SOURCE=2 -Wp,-D_GLIBCXX_ASSERTIONS -specs=/usr/lib/rpm/redhat/redhat-hardened-cc1 -fstack-protector-strong -specs=/usr/lib/rpm/redhat/redhat-annobin-cc1  -fasynchronous-unwind-tables -fstack-clash-protection -fPIC -std=c++98 -o CMakeFiles/nrniv_lib.dir/__/ivoc/oc2iv.cpp.o -c /builddir/build/BUILD/nrn-7.8.1/src/ivoc/oc2iv.cpp
make[2]: Leaving directory '/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu'
make[2]: Entering directory '/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu'
[ 19%] Building CXX object src/nrniv/CMakeFiles/nrniv_lib.dir/__/ivoc/ocbrowsr.cpp.o
cd /builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/nrniv && /usr/bin/g++ -DHAVE_CONFIG_H -Dnrniv_lib_EXPORTS -DUSEBBS=1 -DUSEGNU=1 -DUSEMATRIX=1 -I/builddir/build/BUILD/nrn-7.8.1/src/ivoc -I/builddir/build/BUILD/nrn-7.8.1/src/nrniv -I/builddir/build/BUILD/nrn-7.8.1/src/nrnoc -I/builddir/build/BUILD/nrn-7.8.1/src/oc -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/nrncvode -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/nrnjava -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/nrnoc -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/nrnpython -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/oc -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/parallel -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/sundials -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/sundials/shared -I/builddir/build/BUILD/nrn-7.8.1/src -I/builddir/build/BUILD/nrn-7.8.1/src/gnu -I/builddir/build/BUILD/nrn-7.8.1/src/memacs -I/builddir/build/BUILD/nrn-7.8.1/src/mesch -I/builddir/build/BUILD/nrn-7.8.1/src/nrncvode -I/builddir/build/BUILD/nrn-7.8.1/src/nrnmpi -I/builddir/build/BUILD/nrn-7.8.1/src/nrnpython -I/builddir/build/BUILD/nrn-7.8.1/src/parallel -I/builddir/build/BUILD/nrn-7.8.1/src/sparse -I/builddir/build/BUILD/nrn-7.8.1/src/sparse13 -I/builddir/build/BUILD/nrn-7.8.1/src/sundials -I/builddir/build/BUILD/nrn-7.8.1/src/sundials/cvodes -I/builddir/build/BUILD/nrn-7.8.1/src/sundials/ida -I/builddir/build/BUILD/nrn-7.8.1/src/sundials/shared -I/usr/include/python3.9 -O2 -flto=auto -ffat-lto-objects -fexceptions -g -grecord-gcc-switches -pipe -Wall -Werror=format-security -Wp,-D_FORTIFY_SOURCE=2 -Wp,-D_GLIBCXX_ASSERTIONS -specs=/usr/lib/rpm/redhat/redhat-hardened-cc1 -fstack-protector-strong -specs=/usr/lib/rpm/redhat/redhat-annobin-cc1  -fasynchronous-unwind-tables -fstack-clash-protection -fPIC -std=c++98 -o CMakeFiles/nrniv_lib.dir/__/ivoc/ocbrowsr.cpp.o -c /builddir/build/BUILD/nrn-7.8.1/src/ivoc/ocbrowsr.cpp
make[2]: Leaving directory '/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu'
make[2]: Entering directory '/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu'
[ 19%] Building CXX object src/nrniv/CMakeFiles/nrniv_lib.dir/__/ivoc/ocbox.cpp.o
cd /builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/nrniv && /usr/bin/g++ -DHAVE_CONFIG_H -Dnrniv_lib_EXPORTS -DUSEBBS=1 -DUSEGNU=1 -DUSEMATRIX=1 -I/builddir/build/BUILD/nrn-7.8.1/src/ivoc -I/builddir/build/BUILD/nrn-7.8.1/src/nrniv -I/builddir/build/BUILD/nrn-7.8.1/src/nrnoc -I/builddir/build/BUILD/nrn-7.8.1/src/oc -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/nrncvode -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/nrnjava -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/nrnoc -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/nrnpython -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/oc -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/parallel -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/sundials -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/sundials/shared -I/builddir/build/BUILD/nrn-7.8.1/src -I/builddir/build/BUILD/nrn-7.8.1/src/gnu -I/builddir/build/BUILD/nrn-7.8.1/src/memacs -I/builddir/build/BUILD/nrn-7.8.1/src/mesch -I/builddir/build/BUILD/nrn-7.8.1/src/nrncvode -I/builddir/build/BUILD/nrn-7.8.1/src/nrnmpi -I/builddir/build/BUILD/nrn-7.8.1/src/nrnpython -I/builddir/build/BUILD/nrn-7.8.1/src/parallel -I/builddir/build/BUILD/nrn-7.8.1/src/sparse -I/builddir/build/BUILD/nrn-7.8.1/src/sparse13 -I/builddir/build/BUILD/nrn-7.8.1/src/sundials -I/builddir/build/BUILD/nrn-7.8.1/src/sundials/cvodes -I/builddir/build/BUILD/nrn-7.8.1/src/sundials/ida -I/builddir/build/BUILD/nrn-7.8.1/src/sundials/shared -I/usr/include/python3.9 -O2 -flto=auto -ffat-lto-objects -fexceptions -g -grecord-gcc-switches -pipe -Wall -Werror=format-security -Wp,-D_FORTIFY_SOURCE=2 -Wp,-D_GLIBCXX_ASSERTIONS -specs=/usr/lib/rpm/redhat/redhat-hardened-cc1 -fstack-protector-strong -specs=/usr/lib/rpm/redhat/redhat-annobin-cc1  -fasynchronous-unwind-tables -fstack-clash-protection -fPIC -std=c++98 -o CMakeFiles/nrniv_lib.dir/__/ivoc/ocbox.cpp.o -c /builddir/build/BUILD/nrn-7.8.1/src/ivoc/ocbox.cpp
make[2]: Leaving directory '/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu'
/builddir/build/BUILD/nrn-7.8.1/src/ivoc/ocbox.cpp: In member function 'virtual void OcBox::box_append(OcGlyph*)':
/builddir/build/BUILD/nrn-7.8.1/src/ivoc/ocbox.cpp:577:13: warning: unused variable 'wk' [-Wunused-variable]
  577 |  WidgetKit& wk = *WidgetKit::instance();
      |             ^~
make[2]: Entering directory '/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu'
[ 19%] Building CXX object src/nrniv/CMakeFiles/nrniv_lib.dir/__/ivoc/ocdeck.cpp.o
cd /builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/nrniv && /usr/bin/g++ -DHAVE_CONFIG_H -Dnrniv_lib_EXPORTS -DUSEBBS=1 -DUSEGNU=1 -DUSEMATRIX=1 -I/builddir/build/BUILD/nrn-7.8.1/src/ivoc -I/builddir/build/BUILD/nrn-7.8.1/src/nrniv -I/builddir/build/BUILD/nrn-7.8.1/src/nrnoc -I/builddir/build/BUILD/nrn-7.8.1/src/oc -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/nrncvode -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/nrnjava -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/nrnoc -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/nrnpython -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/oc -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/parallel -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/sundials -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/sundials/shared -I/builddir/build/BUILD/nrn-7.8.1/src -I/builddir/build/BUILD/nrn-7.8.1/src/gnu -I/builddir/build/BUILD/nrn-7.8.1/src/memacs -I/builddir/build/BUILD/nrn-7.8.1/src/mesch -I/builddir/build/BUILD/nrn-7.8.1/src/nrncvode -I/builddir/build/BUILD/nrn-7.8.1/src/nrnmpi -I/builddir/build/BUILD/nrn-7.8.1/src/nrnpython -I/builddir/build/BUILD/nrn-7.8.1/src/parallel -I/builddir/build/BUILD/nrn-7.8.1/src/sparse -I/builddir/build/BUILD/nrn-7.8.1/src/sparse13 -I/builddir/build/BUILD/nrn-7.8.1/src/sundials -I/builddir/build/BUILD/nrn-7.8.1/src/sundials/cvodes -I/builddir/build/BUILD/nrn-7.8.1/src/sundials/ida -I/builddir/build/BUILD/nrn-7.8.1/src/sundials/shared -I/usr/include/python3.9 -O2 -flto=auto -ffat-lto-objects -fexceptions -g -grecord-gcc-switches -pipe -Wall -Werror=format-security -Wp,-D_FORTIFY_SOURCE=2 -Wp,-D_GLIBCXX_ASSERTIONS -specs=/usr/lib/rpm/redhat/redhat-hardened-cc1 -fstack-protector-strong -specs=/usr/lib/rpm/redhat/redhat-annobin-cc1  -fasynchronous-unwind-tables -fstack-clash-protection -fPIC -std=c++98 -o CMakeFiles/nrniv_lib.dir/__/ivoc/ocdeck.cpp.o -c /builddir/build/BUILD/nrn-7.8.1/src/ivoc/ocdeck.cpp
make[2]: Leaving directory '/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu'
/builddir/build/BUILD/nrn-7.8.1/src/ivoc/ocdeck.cpp: In member function 'virtual void OcDeck::box_append(OcGlyph*)':
/builddir/build/BUILD/nrn-7.8.1/src/ivoc/ocdeck.cpp:293:13: warning: unused variable 'wk' [-Wunused-variable]
  293 |  WidgetKit& wk = *WidgetKit::instance();
      |             ^~
/builddir/build/BUILD/nrn-7.8.1/src/ivoc/ocdeck.cpp:294:13: warning: unused variable 'lk' [-Wunused-variable]
  294 |  LayoutKit& lk = *LayoutKit::instance();
      |             ^~
make[2]: Entering directory '/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu'
[ 18%] Building CXX object src/nrniv/CMakeFiles/nrniv_lib.dir/__/ivoc/ivocvect.cpp.o
cd /builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/nrniv && /usr/bin/g++ -DHAVE_CONFIG_H -Dnrniv_lib_EXPORTS -DUSEBBS=1 -DUSEGNU=1 -DUSEMATRIX=1 -I/builddir/build/BUILD/nrn-7.8.1/src/ivoc -I/builddir/build/BUILD/nrn-7.8.1/src/nrniv -I/builddir/build/BUILD/nrn-7.8.1/src/nrnoc -I/builddir/build/BUILD/nrn-7.8.1/src/oc -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/nrncvode -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/nrnjava -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/nrnoc -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/nrnpython -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/oc -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/parallel -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/sundials -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/sundials/shared -I/builddir/build/BUILD/nrn-7.8.1/src -I/builddir/build/BUILD/nrn-7.8.1/src/gnu -I/builddir/build/BUILD/nrn-7.8.1/src/memacs -I/builddir/build/BUILD/nrn-7.8.1/src/mesch -I/builddir/build/BUILD/nrn-7.8.1/src/nrncvode -I/builddir/build/BUILD/nrn-7.8.1/src/nrnmpi -I/builddir/build/BUILD/nrn-7.8.1/src/nrnpython -I/builddir/build/BUILD/nrn-7.8.1/src/parallel -I/builddir/build/BUILD/nrn-7.8.1/src/sparse -I/builddir/build/BUILD/nrn-7.8.1/src/sparse13 -I/builddir/build/BUILD/nrn-7.8.1/src/sundials -I/builddir/build/BUILD/nrn-7.8.1/src/sundials/cvodes -I/builddir/build/BUILD/nrn-7.8.1/src/sundials/ida -I/builddir/build/BUILD/nrn-7.8.1/src/sundials/shared -I/usr/include/python3.9 -O2 -flto=auto -ffat-lto-objects -fexceptions -g -grecord-gcc-switches -pipe -Wall -Werror=format-security -Wp,-D_FORTIFY_SOURCE=2 -Wp,-D_GLIBCXX_ASSERTIONS -specs=/usr/lib/rpm/redhat/redhat-hardened-cc1 -fstack-protector-strong -specs=/usr/lib/rpm/redhat/redhat-annobin-cc1  -fasynchronous-unwind-tables -fstack-clash-protection -fPIC -std=c++98 -o CMakeFiles/nrniv_lib.dir/__/ivoc/ivocvect.cpp.o -c /builddir/build/BUILD/nrn-7.8.1/src/ivoc/ivocvect.cpp
/builddir/build/BUILD/nrn-7.8.1/src/ivoc/ivocvect.cpp: In function 'double v_fread(void*)':
/builddir/build/BUILD/nrn-7.8.1/src/ivoc/ivocvect.cpp:67:67: warning: comparison of integer expressions of different signedness: 'size_t' {aka 'long unsigned int'} and 'int' [-Wsign-compare]
   67 | #define FRead(arg1,arg2,arg3,arg4) if (fread(arg1,arg2,arg3,arg4) != arg3) {}
      |                                        ~~~~~~~~~~~~~~~~~~~~~~~~~~~^~~~~~~~~~~
   68 | #endif
      | ~~~~~~                                                             
   69 | 
      |                                                                    
   70 | static double dmaxint_;
      | ~~~~~~~~~~~~~~~~~~~~~~~                                            
   71 | 
      |                                                                    
   72 | // Definitions allow machine independent write and read
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~            
   73 | // note that must include BYTEHEADER at head of routine
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~            
   74 | // The policy is that each machine vwrite binary information in
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~    
   75 | // without swapping, ie. native endian.
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                            
   76 | // On reading, the type is checked to decide whether
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~               
   77 | // byteswapping should be performed
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                                
   78 | 
      |                                                                    
   79 | #define BYTEHEADER int _II__;  char *_IN__; char _OUT__[16]; int BYTESWAP_FLAG=0;
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
   80 | #define BYTESWAP(_X__,_TYPE__) \
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                                   
   81 |     if (BYTESWAP_FLAG == 1) { \
      |     ~~~~~~~~~~~~~~~~~~~~~~~~~~~                                    
   82 |  _IN__ = (char *) &(_X__); \
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~                                       
   83 |  for (_II__=0;_II__<sizeof(_TYPE__);_II__++) { \
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                   
   84 |   _OUT__[_II__] = _IN__[sizeof(_TYPE__)-_II__-1]; } \
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~              
   85 |  (_X__) = *((_TYPE__ *) &_OUT__); \
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                                
   86 |     }
      |     ~                                                              
   87 | 
      |                                                                    
   88 | #include "ivocvect.h"
      | ~~~~~~~~~~~~~~~~~~~~~                                              
   89 | 
      |                                                                    
   90 | // definition of SampleHistogram from the gnu c++ class library
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~    
   91 | #include <SmplHist.h>
      | ~~~~~~~~~~~~~~~~~~~~~                                              
   92 | 
      |                                                                    
   93 | // definition of random numer generator
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                            
   94 | #include "random1.h"
      | ~~~~~~~~~~~~~~~~~~~~                                               
   95 | #include <Uniform.h>
      | ~~~~~~~~~~~~~~~~~~~~                                               
   96 | 
      |                                                                    
   97 | // definition of comparison functions
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                              
   98 | #include <d_defs.h>
      | ~~~~~~~~~~~~~~~~~~~                                                
   99 | 
      |                                                                    
  100 | #if HAVE_IV
      | ~~~~~~~~~~~                                                        
  101 | #include "utility.h"
      | ~~~~~~~~~~~~~~~~~~~~                                               
  102 | #endif
      | ~~~~~~                                                             
  103 | #include "oc2iv.h"
      | ~~~~~~~~~~~~~~~~~~                                                 
  104 | #include "parse.h"
      | ~~~~~~~~~~~~~~~~~~                                                 
  105 | #include "ocfile.h"
      | ~~~~~~~~~~~~~~~~~~~                                                
  106 | 
      |                                                                    
  107 | extern "C" {
      | ~~~~~~~~~~~~                                                       
  108 | extern Object* hoc_thisobject;
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                                     
  109 | extern Symlist* hoc_top_level_symlist;
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                             
  110 | extern void nrn_exit(int);
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~                                         
  111 | IvocVect* (*nrnpy_vec_from_python_p_)(void*);
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                      
  112 | Object** (*nrnpy_vec_to_python_p_)(void*);
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                         
  113 | Object** (*nrnpy_vec_as_numpy_helper_)(int, double*);
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~              
  114 | };
      | ~~                                                                 
  115 | 
      |                                                                    
  116 | 
      |                                                                    
  117 | int cmpfcn(double a, double b) { return ((a) <= (b))? (((a) == (b))? 0 : -1) : 1; }
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
  118 | 
      |                                                                    
  119 | 
      |                                                                    
  120 | // math functions with error checking defined in oc/SRC/math.c
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~     
  121 | extern "C" {
      | ~~~~~~~~~~~~                                                       
  122 |   extern double hoc_Log(double x), hoc_Log10(double x), hoc_Exp(double x), hoc_Sqrt(double x);
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
  123 |   extern double hoc_scan(FILE*);
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                                   
  124 | }
      | ~                                                                  
  125 | 
      |                                                                    
  126 | static int narg() {
      | ~~~~~~~~~~~~~~~~~~~                                                
  127 |   int i=0;
      |   ~~~~~~~~                                                         
  128 |   while (ifarg(i++));
      |   ~~~~~~~~~~~~~~~~~~~                                              
  129 |   return i-2;
      |   ~~~~~~~~~~~                                                      
  130 | }
      | ~                                                                  
  131 | 
      |                                                                    
  132 | #define MAX_FIT_PARAMS 20
      | ~~~~~~~~~~~~~~~~~~~~~~~~~                                          
  133 | 
      |                                                                    
  134 | #define TWO_BYTE_HIGH  65535.
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                                      
  135 | #define ONE_BYTE_HIGH  255.
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~                                        
  136 | #define ONE_BYTE_HALF  128.
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~                                        
  137 | 
      |                                                                    
  138 | #define EPSILON 1e-9
      | ~~~~~~~~~~~~~~~~~~~~                                               
  139 | 
      |                                                                    
  140 | extern "C" {
      | ~~~~~~~~~~~~                                                       
  141 |  extern void notify_freed_val_array(double*, size_t);
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~              
  142 |  extern void install_vector_method(const char* name, Pfrd_vp);
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~     
  143 |  extern int vector_instance_px(void*, double**);
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                   
  144 |  extern int vector_arg_px(int, double**);
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                          
  145 |         extern int nrn_mlh_gsort (double* vec, int *base_ptr, int total_elems, doubleComparator cmp);
      |         ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
  146 | };
      | ~~                                                                 
  147 | 
      |                                                                    
  148 | extern "C" int hoc_return_type_code;
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                               
  149 | 
      |                                                                    
  150 | IvocVect::IvocVect(Object* o) : ParentVect(){obj_ = o; label_ = NULL; MUTCONSTRUCT(0)}
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
  151 | IvocVect::IvocVect(int l, Object* o) : ParentVect(l){obj_ = o; label_ = NULL; MUTCONSTRUCT(0)}
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
  152 | IvocVect::IvocVect(int l, double fill_value, Object* o) : ParentVect(l, fill_value){obj_ = o; label_ = NULL; MUTCONSTRUCT(0)}
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
  153 | IvocVect::IvocVect(IvocVect& v, Object* o) : ParentVect(v) {obj_ = o; label_ = NULL; MUTCONSTRUCT(0)}
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
  154 | 
      |                                                                    
  155 | IvocVect::~IvocVect(){
      | ~~~~~~~~~~~~~~~~~~~~~~                                             
  156 |  MUTDESTRUCT
      |  ~~~~~~~~~~~                                                       
  157 |  if (label_) {
      |  ~~~~~~~~~~~~~                                                     
  158 |   delete [] label_;
      |   ~~~~~~~~~~~~~~~~~                                                
  159 |  }
      |  ~                                                                 
  160 |  notify_freed_val_array(vec(), capacity());
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                        
  161 | }
      | ~                                                                  
  162 | 
      |                                                                    
  163 | void IvocVect::label(const char* label) {
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                          
  164 |  if (label_) {
      |  ~~~~~~~~~~~~~                                                     
  165 |   delete [] label_;
      |   ~~~~~~~~~~~~~~~~~                                                
  166 |   label_ = NULL;
      |   ~~~~~~~~~~~~~~                                                   
  167 |  }
      |  ~                                                                 
  168 |  if (label) {
      |  ~~~~~~~~~~~~                                                      
  169 |   label_ = new char[strlen(label) + 1];
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                            
  170 |   strcpy(label_, label);
      |   ~~~~~~~~~~~~~~~~~~~~~~                                           
  171 |  }
      |  ~                                                                 
  172 | }
      | ~                                                                  
  173 | 
      |                                                                    
  174 | static const char* nullstr = "";
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                                   
  175 | 
      |                                                                    
  176 | static const char** v_label(void* v) {
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                             
  177 |  Vect* x  = (Vect*)v;
      |  ~~~~~~~~~~~~~~~~~~~~                                              
  178 |  if (ifarg(1)) {
      |  ~~~~~~~~~~~~~~~                                                   
  179 |   x->label(gargstr(1));
      |   ~~~~~~~~~~~~~~~~~~~~~                                            
  180 |  }
      |  ~                                                                 
  181 |  if (x->label_) {
      |  ~~~~~~~~~~~~~~~~                                                  
  182 |   return (const char**)&x->label_;
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                                 
  183 |  }
      |  ~                                                                 
  184 |  return &nullstr;
      |  ~~~~~~~~~~~~~~~~                                                  
  185 | }
      | ~                                                                  
  186 | 
      |                                                                    
  187 | static void same_err(const char* s, Vect* x, Vect* y) {
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~            
  188 |  if (x == y) {
      |  ~~~~~~~~~~~~~                                                     
  189 |   hoc_execerror(s, " argument needs to be copied first");
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~          
  190 |  }
      |  ~                                                                 
  191 | }
      | ~                                                                  
  192 | 
      |                                                                    
  193 | /* the Vect->at(start, end) function was used in about a dozen places
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
  194 | for the purpose of dealing with a subrange of elements. However that
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
  195 | function clones the subrange and returns a new Vect. This caused a
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ 
  196 | memory leak and was needlessly inefficient for those functions.
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~    
  197 | To fix both problems for these specific functions
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                  
  198 | we use a special vector which does not have
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                        
  199 | it's own space but merely a pointer and capacity to the right space of
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
  200 | the original vector. The usage is restricted to only once at a time, i.e.
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
  201 | can't use two subvecs at once and never do anything which affects the
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
  202 | memory space.
      | ~~~~~~~~~~~~~                                                      
  203 | */
      | ~~                                                                 
  204 | 
      |                                                                    
  205 | static IvocVect* subvec_; // allocated when registered.
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~            
  206 | IvocVect* IvocVect::subvec(int start, int end) {
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                   
  207 |  subvec_->len = end - start + 1;
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                                   
  208 |  subvec_->s = s + start;
      |  ~~~~~~~~~~~~~~~~~~~~~~~                                           
  209 |  return subvec_;
      |  ~~~~~~~~~~~~~~~                                                   
  210 | }
      | ~                                                                  
  211 | 
      |                                                                    
  212 | void IvocVect::resize(int newlen) { // all that for this
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~           
  213 |  long oldcap = capacity();
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~                                         
  214 |  if (newlen > space) {
      |  ~~~~~~~~~~~~~~~~~~~~~                                             
  215 |   notify_freed_val_array(vec(), capacity());
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                       
  216 |  }
      |  ~                                                                 
  217 |  ParentVect::resize(newlen);
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~                                       
  218 |  for (;oldcap < newlen; ++oldcap) {
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                                
  219 |   elem(oldcap) = 0.;
      |   ~~~~~~~~~~~~~~~~~~                                               
  220 |  }
      |  ~                                                                 
  221 | }
      | ~                                                                  
  222 | 
      |                                                                    
  223 | void IvocVect::resize_chunk(int newlen, int extra) {
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~               
  224 |  if (newlen > space) {
      |  ~~~~~~~~~~~~~~~~~~~~~                                             
  225 |   long x = newlen + extra;
      |   ~~~~~~~~~~~~~~~~~~~~~~~~                                         
  226 |   if (extra == 0) {
      |   ~~~~~~~~~~~~~~~~~                                                
  227 |    x = ListImpl_best_new_count(newlen, sizeof(double));
      |    ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~            
  228 |   }
      |   ~                                                                
  229 | //  printf("resize_chunk %d\n", x);
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                                
  230 |   resize(x);
      |   ~~~~~~~~~~                                                       
  231 |  }
      |  ~                                                                 
  232 |  resize(newlen);
      |  ~~~~~~~~~~~~~~~                                                   
  233 | }
      | ~                                                                  
  234 | 
      |                                                                    
  235 | #if HAVE_IV
      | ~~~~~~~~~~~                                                        
  236 | /*static*/ class GraphMarkItem : public GraphItem {
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                
  237 | public:
      | ~~~~~~~                                                            
  238 |  GraphMarkItem(Glyph* g) : GraphItem(g){}
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                          
  239 |  virtual ~GraphMarkItem(){};
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~                                       
  240 |  virtual void erase(Scene* s, GlyphIndex i, int type) {
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~            
  241 |   if (type & GraphItem::ERASE_LINE) {
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                              
  242 |    s->remove(i);
      |    ~~~~~~~~~~~~~                                                   
  243 |   }
      |   ~                                                                
  244 |  }
      |  ~                                                                 
  245 | };
      | ~~                                                                 
  246 | #endif
      | ~~~~~~                                                             
  247 | 
      |                                                                    
  248 | static void* v_cons(Object* o) {
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                                   
  249 |  double fill_value = 0.;
      |  ~~~~~~~~~~~~~~~~~~~~~~~                                           
  250 |  int n = 0;
      |  ~~~~~~~~~~                                                        
  251 |  Vect* vec;
      |  ~~~~~~~~~~                                                        
  252 |  if (ifarg(1)) {
      |  ~~~~~~~~~~~~~~~                                                   
  253 |   if (hoc_is_double_arg(1)) {
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~                                      
  254 |    n = int(chkarg(1,0,1e10));
      |    ~~~~~~~~~~~~~~~~~~~~~~~~~~                                      
  255 |    if (ifarg(2)) fill_value = *getarg(2);
      |    ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                          
  256 |    vec =  new Vect(n,fill_value, o);
      |    ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                               
  257 |   }else{
      |   ~~~~~~                                                           
  258 |    if (!nrnpy_vec_from_python_p_) {
      |    ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                                
  259 |     hoc_execerror("Python not available", 0);
      |     ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                      
  260 |    }
      |    ~                                                               
  261 |    vec = (*nrnpy_vec_from_python_p_)(new Vect(0, 0, o));
      |    ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~           
  262 |   }
      |   ~                                                                
  263 |  }else{
      |  ~~~~~~                                                            
  264 |   vec = new Vect(0, 0, o);
      |   ~~~~~~~~~~~~~~~~~~~~~~~~                                         
  265 |  }
      |  ~                                                                 
  266 |  return vec;
      |  ~~~~~~~~~~~                                                       
  267 | }
      | ~                                                                  
  268 | 
      |                                                                    
  269 | 
      |                                                                    
  270 | static void v_destruct(void* v) {
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                                  
  271 |  delete (Vect*)v;
      |  ~~~~~~~~~~~~~~~~                                                  
  272 | }
      | ~                                                                  
  273 | 
      |                                                                    
  274 | static Symbol* svec_;
      | ~~~~~~~~~~~~~~~~~~~~~                                              
  275 | 
      |                                                                    
  276 | // extern "C" vector functions used by ocmatrix.dll
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                
  277 | // can also be used in mod files
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                                   
  278 | Vect* vector_new(int n, Object* o){return new Vect(n, o);}
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~         
  279 | Vect* vector_new0(){return new Vect();}
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                            
  280 | Vect* vector_new1(int n){return new Vect(n);}
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                      
  281 | Vect* vector_new2(Vect* v){return new Vect(*v);}
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                   
  282 | void vector_delete(Vect* v){delete v;}
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                             
  283 | int vector_buffer_size(Vect* v){return v->buffer_size();}
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~          
  284 | int vector_capacity(Vect* v){return v->capacity();}
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                
  285 | void vector_resize(Vect* v, int n){v->resize(n);}
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                  
  286 | Object** vector_temp_objvar(Vect* v){return v->temp_objvar();}
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~     
  287 | double* vector_vec(Vect* v){return v->vec();}
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                      
  288 | Object** vector_pobj(Vect* v){return &v->obj_;}
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                    
  289 | char* vector_get_label(Vect* v) { return v->label_; }
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~              
  290 | void vector_set_label(Vect* v, char* s) { v->label(s); }
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~           
  291 | void vector_append(Vect* v, double x){
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                             
  292 |   long n = v->capacity();
      |   ~~~~~~~~~~~~~~~~~~~~~~~                                          
  293 |   v->resize_chunk(n+1);
      |   ~~~~~~~~~~~~~~~~~~~~~                                            
  294 |   v->elem(n) = x;
      |   ~~~~~~~~~~~~~~~                                                  
  295 | }
      | ~                                                                  
  296 | 
      |                                                                    
  297 | #ifdef WIN32
      | ~~~~~~~~~~~~                                                       
  298 | #if !defined(USEMATRIX) || USEMATRIX == 0
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                          
  299 | #include "../windll/dll.h"
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~                                         
  300 | extern "C" {extern char* neuron_home;}
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                             
  301 | 
      |                                                                    
  302 | void load_ocmatrix() {
      | ~~~~~~~~~~~~~~~~~~~~~~                                             
  303 |  struct DLL* dll = NULL;
      |  ~~~~~~~~~~~~~~~~~~~~~~~                                           
  304 |  char buf[256];
      |  ~~~~~~~~~~~~~~                                                    
  305 |  sprintf(buf, "%s\\lib\\ocmatrix.dll", neuron_home);
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~               
  306 |  dll = dll_load(buf);
      |  ~~~~~~~~~~~~~~~~~~~~                                              
  307 |  if (dll) {
      |  ~~~~~~~~~~                                                        
  308 |   Pfri mreg = (Pfri)dll_lookup(dll, "_Matrix_reg");
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                
  309 |   if (mreg) {
      |   ~~~~~~~~~~~                                                      
  310 |    (*mreg)();
      |    ~~~~~~~~~~                                                      
  311 |   }
      |   ~                                                                
  312 |  }else{
      |  ~~~~~~                                                            
  313 |   printf("No Matrix class.\n");
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                                    
  314 |  }
      |  ~                                                                 
  315 | }
      | ~                                                                  
  316 | #endif
      | ~~~~~~                                                             
  317 | #endif
      | ~~~~~~                                                             
  318 | 
      |                                                                    
  319 | Object** IvocVect::temp_objvar() {
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                                 
  320 |  IvocVect* v = (IvocVect*)this;
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                                    
  321 |  Object** po;
      |  ~~~~~~~~~~~~                                                      
  322 |  if (v->obj_) {
      |  ~~~~~~~~~~~~~~                                                    
  323 |   po = hoc_temp_objptr(v->obj_);
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                                   
  324 |  }else{
      |  ~~~~~~                                                            
  325 |   po = hoc_temp_objvar(svec_, (void*)v);
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                           
  326 |   obj_ = *po;
      |   ~~~~~~~~~~~                                                      
  327 |  }
      |  ~                                                                 
  328 |  return po;
      |  ~~~~~~~~~~                                                        
  329 | }
      | ~                                                                  
  330 | 
      |                                                                    
  331 | extern "C" { // bug in cray compiler requires this
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                 
  332 | void install_vector_method(const char* name, double (*f)(void*)) {
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ 
  333 |  Symbol* s_meth;
      |  ~~~~~~~~~~~~~~~                                                   
  334 |  if (hoc_table_lookup(name, svec_->u.ctemplate->symtable)) {
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~       
  335 |   hoc_execerror(name, " already a method in the Vector class");
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~    
  336 |  }
      |  ~                                                                 
  337 |  s_meth = hoc_install(name, FUNCTION, 0.0, &svec_->u.ctemplate->symtable);
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
  338 |  s_meth->u.u_proc->defn.pfd = (Pfrd)f;
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                             
  339 | #define PUBLIC_TYPE 1
      | ~~~~~~~~~~~~~~~~~~~~~                                              
  340 |  s_meth->cpublic = PUBLIC_TYPE;
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                                    
  341 | }
      | ~                                                                  
  342 | }
      | ~                                                                  
  343 | 
      |                                                                    
  344 | int vector_instance_px(void* v, double** px) {
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                     
  345 |  Vect* x = (Vect*)v;
      |  ~~~~~~~~~~~~~~~~~~~                                               
  346 |  *px = x->vec();
      |  ~~~~~~~~~~~~~~~                                                   
  347 |  return x->capacity();
      |  ~~~~~~~~~~~~~~~~~~~~~                                             
  348 | }
      | ~                                                                  
  349 | 
      |                                                                    
  350 | Vect* vector_arg(int i) {
      | ~~~~~~~~~~~~~~~~~~~~~~~~~                                          
  351 |  Object* ob = *hoc_objgetarg(i);
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                                   
  352 |  if (!ob || ob->ctemplate != svec_->u.ctemplate) {
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                 
  353 |   check_obj_type(ob, "Vector");
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                                    
  354 |  }
      |  ~                                                                 
  355 |  return (Vect*)(ob->u.this_pointer);
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                               
  356 | }
      | ~                                                                  
  357 | 
      |                                                                    
  358 | int is_vector_arg(int i) {
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~                                         
  359 |  Object* ob = *hoc_objgetarg(i);
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                                   
  360 |  if (!ob || ob->ctemplate != svec_->u.ctemplate) {
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                 
  361 |   return 0;
      |   ~~~~~~~~~                                                        
  362 |  }
      |  ~                                                                 
  363 |  return 1;
      |  ~~~~~~~~~                                                         
  364 | }
      | ~                                                                  
  365 | 
      |                                                                    
  366 | int vector_arg_px(int i, double** px) {
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                            
  367 |  Vect* x = vector_arg(i);
      |  ~~~~~~~~~~~~~~~~~~~~~~~~                                          
  368 |  *px = x->vec();
      |  ~~~~~~~~~~~~~~~                                                   
  369 |  return x->capacity();
      |  ~~~~~~~~~~~~~~~~~~~~~                                             
  370 | }
      | ~                                                                  
  371 | 
      |                                                                    
  372 | extern void nrn_vecsim_add(void*, bool);
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                           
  373 | extern void nrn_vecsim_remove(void*);
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                              
  374 | 
      |                                                                    
  375 | static int possible_destvec(int arg, Vect*& dest) {
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                
  376 |  if (ifarg(arg) && hoc_is_object_arg(arg)) {
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                       
  377 |    dest = vector_arg(arg);
      |    ~~~~~~~~~~~~~~~~~~~~~~~                                         
  378 |    return arg+1;
      |    ~~~~~~~~~~~~~                                                   
  379 |  }else{
      |  ~~~~~~                                                            
  380 |   dest = new Vect();
      |   ~~~~~~~~~~~~~~~~~~                                               
  381 |   return arg;
      |   ~~~~~~~~~~~                                                      
  382 |  }
      |  ~                                                                 
  383 | }
      | ~                                                                  
  384 | 
      |                                                                    
  385 | static double v_play_remove(void* v) {
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                             
  386 |  nrn_vecsim_remove(v);
      |  ~~~~~~~~~~~~~~~~~~~~~                                             
  387 |  return 1.;
      |  ~~~~~~~~~~                                                        
  388 | }
      | ~                                                                  
  389 | 
      |                                                                    
  390 | static double v_fwrite(void* v) {
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                                  
  391 |  Vect* vp = (Vect*)v;
      |  ~~~~~~~~~~~~~~~~~~~~                                              
  392 |  void* s;
      |  ~~~~~~~~                                                          
  393 |  int x_max = vp->capacity()-1;
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                                     
  394 |  int start = 0;
      |  ~~~~~~~~~~~~~~                                                    
  395 |  int end = x_max;
      |  ~~~~~~~~~~~~~~~~                                                  
  396 |  hoc_return_type_code = 1; // integer
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                              
  397 |  if (ifarg(2)) {
      |  ~~~~~~~~~~~~~~~                                                   
  398 |    start = int(chkarg(2,0,x_max));
      |    ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                                 
  399 |    end = int(chkarg(3,0,x_max));
      |    ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                                   
  400 |  }
      |  ~                                                                 
  401 |  s = (void*)(&vp->elem(start));
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                                    
  402 |  const char* x = (const char*)s;
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                                   
  403 | 
      |                                                                    
  404 |     Object* ob = *hoc_objgetarg(1);
      |     ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                                
  405 |     check_obj_type(ob, "File");
      |     ~~~~~~~~~~~~~~~~~~~~~~~~~~~                                    
  406 |     OcFile* f = (OcFile*)(ob->u.this_pointer);
      |     ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                     
  407 |  FILE* fp = f->file();
      |  ~~~~~~~~~~~~~~~~~~~~~                                             
  408 |  if (!fp) {
      |  ~~~~~~~~~~                                                        
  409 |   return 0.;
      |   ~~~~~~~~~~                                                       
  410 |  }
      |  ~                                                                 
  411 |  int n = end-start+1;
      |  ~~~~~~~~~~~~~~~~~~~~                                              
  412 |  BinaryMode(f);
      |  ~~~~~~~~~~~~~~                                                    
  413 |  return (double)fwrite(x,sizeof(double),n,fp);
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                     
  414 | }
      | ~                                                                  
  415 | 
      |                                                                    
  416 | static double v_fread(void* v) {
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                                   
  417 |  Vect* vp = (Vect*)v;
      |  ~~~~~~~~~~~~~~~~~~~~                                              
  418 |  void* s = (void*)(vp->vec());
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                                     
  419 | 
      |                                                                    
  420 |         Object* ob = *hoc_objgetarg(1);
      |         ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                            
  421 | 
      |                                                                    
  422 |  check_obj_type(ob, "File");
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~                                       
  423 |  OcFile* f = (OcFile*)(ob->u.this_pointer);
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                        
  424 | 
      |                                                                    
  425 |  if (ifarg(2)) vp->resize(int(chkarg(2,0,1e10)));
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                  
  426 |  int n = vp->capacity();
      |  ~~~~~~~~~~~~~~~~~~~~~~~                                           
  427 | 
      |                                                                    
  428 |         int type = 4;
      |         ~~~~~~~~~~~~~                                              
  429 |  if (ifarg(3)) {
      |  ~~~~~~~~~~~~~~~                                                   
  430 |            type = int(chkarg(3,1,5));
      |            ~~~~~~~~~~~~~~~~~~~~~~~~~~                              
  431 |         }
      |         ~                                                          
  432 | 
      |                                                                    
  433 |  FILE* fp = f->file();
      |  ~~~~~~~~~~~~~~~~~~~~~                                             
  434 |  if (!fp) {
      |  ~~~~~~~~~~                                                        
  435 |   return 0.;
      |   ~~~~~~~~~~                                                       
  436 |  }
      |  ~                                                                 
  437 | 
      |                                                                    
  438 |  int i;
      |  ~~~~~~                                                            
  439 |  BinaryMode(f)
      |  ~~~~~~~~~~~~~                                                     
  440 |  if (n > 0) switch (type) {
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~                                        
  441 | 
      |                                                                    
  442 |         case 5:         // short ints
      |         ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                              
  443 |         {
      |         ~                                                          
  444 |            short *xs = (short *)malloc(n * (unsigned)sizeof(short));
      |            ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
  445 |            FRead(xs,sizeof(short),n,fp);
      |            ~~~~~~~~~~~~~~~~~~~~~~~~                                
/builddir/build/BUILD/nrn-7.8.1/src/ivoc/ivocvect.cpp:445:12: note: in expansion of macro 'FRead'
  445 |            FRead(xs,sizeof(short),n,fp);
      |            ^~~~~
/builddir/build/BUILD/nrn-7.8.1/src/ivoc/ivocvect.cpp:67:67: warning: comparison of integer expressions of different signedness: 'size_t' {aka 'long unsigned int'} and 'int' [-Wsign-compare]
   67 | #define FRead(arg1,arg2,arg3,arg4) if (fread(arg1,arg2,arg3,arg4) != arg3) {}
      |                                        ~~~~~~~~~~~~~~~~~~~~~~~~~~~^~~~~~~~~~~
   68 | #endif
      | ~~~~~~                                                             
   69 | 
      |                                                                    
   70 | static double dmaxint_;
      | ~~~~~~~~~~~~~~~~~~~~~~~                                            
   71 | 
      |                                                                    
   72 | // Definitions allow machine independent write and read
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~            
   73 | // note that must include BYTEHEADER at head of routine
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~            
   74 | // The policy is that each machine vwrite binary information in
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~    
   75 | // without swapping, ie. native endian.
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                            
   76 | // On reading, the type is checked to decide whether
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~               
   77 | // byteswapping should be performed
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                                
   78 | 
      |                                                                    
   79 | #define BYTEHEADER int _II__;  char *_IN__; char _OUT__[16]; int BYTESWAP_FLAG=0;
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
   80 | #define BYTESWAP(_X__,_TYPE__) \
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                                   
   81 |     if (BYTESWAP_FLAG == 1) { \
      |     ~~~~~~~~~~~~~~~~~~~~~~~~~~~                                    
   82 |  _IN__ = (char *) &(_X__); \
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~                                       
   83 |  for (_II__=0;_II__<sizeof(_TYPE__);_II__++) { \
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                   
   84 |   _OUT__[_II__] = _IN__[sizeof(_TYPE__)-_II__-1]; } \
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~              
   85 |  (_X__) = *((_TYPE__ *) &_OUT__); \
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                                
   86 |     }
      |     ~                                                              
   87 | 
      |                                                                    
   88 | #include "ivocvect.h"
      | ~~~~~~~~~~~~~~~~~~~~~                                              
   89 | 
      |                                                                    
   90 | // definition of SampleHistogram from the gnu c++ class library
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~    
   91 | #include <SmplHist.h>
      | ~~~~~~~~~~~~~~~~~~~~~                                              
   92 | 
      |                                                                    
   93 | // definition of random numer generator
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                            
   94 | #include "random1.h"
      | ~~~~~~~~~~~~~~~~~~~~                                               
   95 | #include <Uniform.h>
      | ~~~~~~~~~~~~~~~~~~~~                                               
   96 | 
      |                                                                    
   97 | // definition of comparison functions
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                              
   98 | #include <d_defs.h>
      | ~~~~~~~~~~~~~~~~~~~                                                
   99 | 
      |                                                                    
  100 | #if HAVE_IV
      | ~~~~~~~~~~~                                                        
  101 | #include "utility.h"
      | ~~~~~~~~~~~~~~~~~~~~                                               
  102 | #endif
      | ~~~~~~                                                             
  103 | #include "oc2iv.h"
      | ~~~~~~~~~~~~~~~~~~                                                 
  104 | #include "parse.h"
      | ~~~~~~~~~~~~~~~~~~                                                 
  105 | #include "ocfile.h"
      | ~~~~~~~~~~~~~~~~~~~                                                
  106 | 
      |                                                                    
  107 | extern "C" {
      | ~~~~~~~~~~~~                                                       
  108 | extern Object* hoc_thisobject;
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                                     
  109 | extern Symlist* hoc_top_level_symlist;
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                             
  110 | extern void nrn_exit(int);
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~                                         
  111 | IvocVect* (*nrnpy_vec_from_python_p_)(void*);
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                      
  112 | Object** (*nrnpy_vec_to_python_p_)(void*);
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                         
  113 | Object** (*nrnpy_vec_as_numpy_helper_)(int, double*);
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~              
  114 | };
      | ~~                                                                 
  115 | 
      |                                                                    
  116 | 
      |                                                                    
  117 | int cmpfcn(double a, double b) { return ((a) <= (b))? (((a) == (b))? 0 : -1) : 1; }
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
  118 | 
      |                                                                    
  119 | 
      |                                                                    
  120 | // math functions with error checking defined in oc/SRC/math.c
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~     
  121 | extern "C" {
      | ~~~~~~~~~~~~                                                       
  122 |   extern double hoc_Log(double x), hoc_Log10(double x), hoc_Exp(double x), hoc_Sqrt(double x);
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
  123 |   extern double hoc_scan(FILE*);
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                                   
  124 | }
      | ~                                                                  
  125 | 
      |                                                                    
  126 | static int narg() {
      | ~~~~~~~~~~~~~~~~~~~                                                
  127 |   int i=0;
      |   ~~~~~~~~                                                         
  128 |   while (ifarg(i++));
      |   ~~~~~~~~~~~~~~~~~~~                                              
  129 |   return i-2;
      |   ~~~~~~~~~~~                                                      
  130 | }
      | ~                                                                  
  131 | 
      |                                                                    
  132 | #define MAX_FIT_PARAMS 20
      | ~~~~~~~~~~~~~~~~~~~~~~~~~                                          
  133 | 
      |                                                                    
  134 | #define TWO_BYTE_HIGH  65535.
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                                      
  135 | #define ONE_BYTE_HIGH  255.
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~                                        
  136 | #define ONE_BYTE_HALF  128.
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~                                        
  137 | 
      |                                                                    
  138 | #define EPSILON 1e-9
      | ~~~~~~~~~~~~~~~~~~~~                                               
  139 | 
      |                                                                    
  140 | extern "C" {
      | ~~~~~~~~~~~~                                                       
  141 |  extern void notify_freed_val_array(double*, size_t);
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~              
  142 |  extern void install_vector_method(const char* name, Pfrd_vp);
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~     
  143 |  extern int vector_instance_px(void*, double**);
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                   
  144 |  extern int vector_arg_px(int, double**);
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                          
  145 |         extern int nrn_mlh_gsort (double* vec, int *base_ptr, int total_elems, doubleComparator cmp);
      |         ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
  146 | };
      | ~~                                                                 
  147 | 
      |                                                                    
  148 | extern "C" int hoc_return_type_code;
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                               
  149 | 
      |                                                                    
  150 | IvocVect::IvocVect(Object* o) : ParentVect(){obj_ = o; label_ = NULL; MUTCONSTRUCT(0)}
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
  151 | IvocVect::IvocVect(int l, Object* o) : ParentVect(l){obj_ = o; label_ = NULL; MUTCONSTRUCT(0)}
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
  152 | IvocVect::IvocVect(int l, double fill_value, Object* o) : ParentVect(l, fill_value){obj_ = o; label_ = NULL; MUTCONSTRUCT(0)}
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
  153 | IvocVect::IvocVect(IvocVect& v, Object* o) : ParentVect(v) {obj_ = o; label_ = NULL; MUTCONSTRUCT(0)}
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
  154 | 
      |                                                                    
  155 | IvocVect::~IvocVect(){
      | ~~~~~~~~~~~~~~~~~~~~~~                                             
  156 |  MUTDESTRUCT
      |  ~~~~~~~~~~~                                                       
  157 |  if (label_) {
      |  ~~~~~~~~~~~~~                                                     
  158 |   delete [] label_;
      |   ~~~~~~~~~~~~~~~~~                                                
  159 |  }
      |  ~                                                                 
  160 |  notify_freed_val_array(vec(), capacity());
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                        
  161 | }
      | ~                                                                  
  162 | 
      |                                                                    
  163 | void IvocVect::label(const char* label) {
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                          
  164 |  if (label_) {
      |  ~~~~~~~~~~~~~                                                     
  165 |   delete [] label_;
      |   ~~~~~~~~~~~~~~~~~                                                
  166 |   label_ = NULL;
      |   ~~~~~~~~~~~~~~                                                   
  167 |  }
      |  ~                                                                 
  168 |  if (label) {
      |  ~~~~~~~~~~~~                                                      
  169 |   label_ = new char[strlen(label) + 1];
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                            
  170 |   strcpy(label_, label);
      |   ~~~~~~~~~~~~~~~~~~~~~~                                           
  171 |  }
      |  ~                                                                 
  172 | }
      | ~                                                                  
  173 | 
      |                                                                    
  174 | static const char* nullstr = "";
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                                   
  175 | 
      |                                                                    
  176 | static const char** v_label(void* v) {
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                             
  177 |  Vect* x  = (Vect*)v;
      |  ~~~~~~~~~~~~~~~~~~~~                                              
  178 |  if (ifarg(1)) {
      |  ~~~~~~~~~~~~~~~                                                   
  179 |   x->label(gargstr(1));
      |   ~~~~~~~~~~~~~~~~~~~~~                                            
  180 |  }
      |  ~                                                                 
  181 |  if (x->label_) {
      |  ~~~~~~~~~~~~~~~~                                                  
  182 |   return (const char**)&x->label_;
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                                 
  183 |  }
      |  ~                                                                 
  184 |  return &nullstr;
      |  ~~~~~~~~~~~~~~~~                                                  
  185 | }
      | ~                                                                  
  186 | 
      |                                                                    
  187 | static void same_err(const char* s, Vect* x, Vect* y) {
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~            
  188 |  if (x == y) {
      |  ~~~~~~~~~~~~~                                                     
  189 |   hoc_execerror(s, " argument needs to be copied first");
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~          
  190 |  }
      |  ~                                                                 
  191 | }
      | ~                                                                  
  192 | 
      |                                                                    
  193 | /* the Vect->at(start, end) function was used in about a dozen places
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
  194 | for the purpose of dealing with a subrange of elements. However that
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
  195 | function clones the subrange and returns a new Vect. This caused a
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ 
  196 | memory leak and was needlessly inefficient for those functions.
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~    
  197 | To fix both problems for these specific functions
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                  
  198 | we use a special vector which does not have
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                        
  199 | it's own space but merely a pointer and capacity to the right space of
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
  200 | the original vector. The usage is restricted to only once at a time, i.e.
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
  201 | can't use two subvecs at once and never do anything which affects the
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
  202 | memory space.
      | ~~~~~~~~~~~~~                                                      
  203 | */
      | ~~                                                                 
  204 | 
      |                                                                    
  205 | static IvocVect* subvec_; // allocated when registered.
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~            
  206 | IvocVect* IvocVect::subvec(int start, int end) {
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                   
  207 |  subvec_->len = end - start + 1;
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                                   
  208 |  subvec_->s = s + start;
      |  ~~~~~~~~~~~~~~~~~~~~~~~                                           
  209 |  return subvec_;
      |  ~~~~~~~~~~~~~~~                                                   
  210 | }
      | ~                                                                  
  211 | 
      |                                                                    
  212 | void IvocVect::resize(int newlen) { // all that for this
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~           
  213 |  long oldcap = capacity();
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~                                         
  214 |  if (newlen > space) {
      |  ~~~~~~~~~~~~~~~~~~~~~                                             
  215 |   notify_freed_val_array(vec(), capacity());
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                       
  216 |  }
      |  ~                                                                 
  217 |  ParentVect::resize(newlen);
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~                                       
  218 |  for (;oldcap < newlen; ++oldcap) {
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                                
  219 |   elem(oldcap) = 0.;
      |   ~~~~~~~~~~~~~~~~~~                                               
  220 |  }
      |  ~                                                                 
  221 | }
      | ~                                                                  
  222 | 
      |                                                                    
  223 | void IvocVect::resize_chunk(int newlen, int extra) {
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~               
  224 |  if (newlen > space) {
      |  ~~~~~~~~~~~~~~~~~~~~~                                             
  225 |   long x = newlen + extra;
      |   ~~~~~~~~~~~~~~~~~~~~~~~~                                         
  226 |   if (extra == 0) {
      |   ~~~~~~~~~~~~~~~~~                                                
  227 |    x = ListImpl_best_new_count(newlen, sizeof(double));
      |    ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~            
  228 |   }
      |   ~                                                                
  229 | //  printf("resize_chunk %d\n", x);
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                                
  230 |   resize(x);
      |   ~~~~~~~~~~                                                       
  231 |  }
      |  ~                                                                 
  232 |  resize(newlen);
      |  ~~~~~~~~~~~~~~~                                                   
  233 | }
      | ~                                                                  
  234 | 
      |                                                                    
  235 | #if HAVE_IV
      | ~~~~~~~~~~~                                                        
  236 | /*static*/ class GraphMarkItem : public GraphItem {
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                
  237 | public:
      | ~~~~~~~                                                            
  238 |  GraphMarkItem(Glyph* g) : GraphItem(g){}
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                          
  239 |  virtual ~GraphMarkItem(){};
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~                                       
  240 |  virtual void erase(Scene* s, GlyphIndex i, int type) {
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~            
  241 |   if (type & GraphItem::ERASE_LINE) {
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                              
  242 |    s->remove(i);
      |    ~~~~~~~~~~~~~                                                   
  243 |   }
      |   ~                                                                
  244 |  }
      |  ~                                                                 
  245 | };
      | ~~                                                                 
  246 | #endif
      | ~~~~~~                                                             
  247 | 
      |                                                                    
  248 | static void* v_cons(Object* o) {
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                                   
  249 |  double fill_value = 0.;
      |  ~~~~~~~~~~~~~~~~~~~~~~~                                           
  250 |  int n = 0;
      |  ~~~~~~~~~~                                                        
  251 |  Vect* vec;
      |  ~~~~~~~~~~                                                        
  252 |  if (ifarg(1)) {
      |  ~~~~~~~~~~~~~~~                                                   
  253 |   if (hoc_is_double_arg(1)) {
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~                                      
  254 |    n = int(chkarg(1,0,1e10));
      |    ~~~~~~~~~~~~~~~~~~~~~~~~~~                                      
  255 |    if (ifarg(2)) fill_value = *getarg(2);
      |    ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                          
  256 |    vec =  new Vect(n,fill_value, o);
      |    ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                               
  257 |   }else{
      |   ~~~~~~                                                           
  258 |    if (!nrnpy_vec_from_python_p_) {
      |    ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                                
  259 |     hoc_execerror("Python not available", 0);
      |     ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                      
  260 |    }
      |    ~                                                               
  261 |    vec = (*nrnpy_vec_from_python_p_)(new Vect(0, 0, o));
      |    ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~           
  262 |   }
      |   ~                                                                
  263 |  }else{
      |  ~~~~~~                                                            
  264 |   vec = new Vect(0, 0, o);
      |   ~~~~~~~~~~~~~~~~~~~~~~~~                                         
  265 |  }
      |  ~                                                                 
  266 |  return vec;
      |  ~~~~~~~~~~~                                                       
  267 | }
      | ~                                                                  
  268 | 
      |                                                                    
  269 | 
      |                                                                    
  270 | static void v_destruct(void* v) {
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                                  
  271 |  delete (Vect*)v;
      |  ~~~~~~~~~~~~~~~~                                                  
  272 | }
      | ~                                                                  
  273 | 
      |                                                                    
  274 | static Symbol* svec_;
      | ~~~~~~~~~~~~~~~~~~~~~                                              
  275 | 
      |                                                                    
  276 | // extern "C" vector functions used by ocmatrix.dll
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                
  277 | // can also be used in mod files
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                                   
  278 | Vect* vector_new(int n, Object* o){return new Vect(n, o);}
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~         
  279 | Vect* vector_new0(){return new Vect();}
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                            
  280 | Vect* vector_new1(int n){return new Vect(n);}
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                      
  281 | Vect* vector_new2(Vect* v){return new Vect(*v);}
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                   
  282 | void vector_delete(Vect* v){delete v;}
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                             
  283 | int vector_buffer_size(Vect* v){return v->buffer_size();}
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~          
  284 | int vector_capacity(Vect* v){return v->capacity();}
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                
  285 | void vector_resize(Vect* v, int n){v->resize(n);}
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                  
  286 | Object** vector_temp_objvar(Vect* v){return v->temp_objvar();}
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~     
  287 | double* vector_vec(Vect* v){return v->vec();}
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                      
  288 | Object** vector_pobj(Vect* v){return &v->obj_;}
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                    
  289 | char* vector_get_label(Vect* v) { return v->label_; }
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~              
  290 | void vector_set_label(Vect* v, char* s) { v->label(s); }
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~           
  291 | void vector_append(Vect* v, double x){
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                             
  292 |   long n = v->capacity();
      |   ~~~~~~~~~~~~~~~~~~~~~~~                                          
  293 |   v->resize_chunk(n+1);
      |   ~~~~~~~~~~~~~~~~~~~~~                                            
  294 |   v->elem(n) = x;
      |   ~~~~~~~~~~~~~~~                                                  
  295 | }
      | ~                                                                  
  296 | 
      |                                                                    
  297 | #ifdef WIN32
      | ~~~~~~~~~~~~                                                       
  298 | #if !defined(USEMATRIX) || USEMATRIX == 0
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                          
  299 | #include "../windll/dll.h"
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~                                         
  300 | extern "C" {extern char* neuron_home;}
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                             
  301 | 
      |                                                                    
  302 | void load_ocmatrix() {
      | ~~~~~~~~~~~~~~~~~~~~~~                                             
  303 |  struct DLL* dll = NULL;
      |  ~~~~~~~~~~~~~~~~~~~~~~~                                           
  304 |  char buf[256];
      |  ~~~~~~~~~~~~~~                                                    
  305 |  sprintf(buf, "%s\\lib\\ocmatrix.dll", neuron_home);
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~               
  306 |  dll = dll_load(buf);
      |  ~~~~~~~~~~~~~~~~~~~~                                              
  307 |  if (dll) {
      |  ~~~~~~~~~~                                                        
  308 |   Pfri mreg = (Pfri)dll_lookup(dll, "_Matrix_reg");
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                
  309 |   if (mreg) {
      |   ~~~~~~~~~~~                                                      
  310 |    (*mreg)();
      |    ~~~~~~~~~~                                                      
  311 |   }
      |   ~                                                                
  312 |  }else{
      |  ~~~~~~                                                            
  313 |   printf("No Matrix class.\n");
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                                    
  314 |  }
      |  ~                                                                 
  315 | }
      | ~                                                                  
  316 | #endif
      | ~~~~~~                                                             
  317 | #endif
      | ~~~~~~                                                             
  318 | 
      |                                                                    
  319 | Object** IvocVect::temp_objvar() {
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                                 
  320 |  IvocVect* v = (IvocVect*)this;
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                                    
  321 |  Object** po;
      |  ~~~~~~~~~~~~                                                      
  322 |  if (v->obj_) {
      |  ~~~~~~~~~~~~~~                                                    
  323 |   po = hoc_temp_objptr(v->obj_);
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                                   
  324 |  }else{
      |  ~~~~~~                                                            
  325 |   po = hoc_temp_objvar(svec_, (void*)v);
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                           
  326 |   obj_ = *po;
      |   ~~~~~~~~~~~                                                      
  327 |  }
      |  ~                                                                 
  328 |  return po;
      |  ~~~~~~~~~~                                                        
  329 | }
      | ~                                                                  
  330 | 
      |                                                                    
  331 | extern "C" { // bug in cray compiler requires this
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                 
  332 | void install_vector_method(const char* name, double (*f)(void*)) {
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ 
  333 |  Symbol* s_meth;
      |  ~~~~~~~~~~~~~~~                                                   
  334 |  if (hoc_table_lookup(name, svec_->u.ctemplate->symtable)) {
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~       
  335 |   hoc_execerror(name, " already a method in the Vector class");
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~    
  336 |  }
      |  ~                                                                 
  337 |  s_meth = hoc_install(name, FUNCTION, 0.0, &svec_->u.ctemplate->symtable);
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
  338 |  s_meth->u.u_proc->defn.pfd = (Pfrd)f;
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                             
  339 | #define PUBLIC_TYPE 1
      | ~~~~~~~~~~~~~~~~~~~~~                                              
  340 |  s_meth->cpublic = PUBLIC_TYPE;
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                                    
  341 | }
      | ~                                                                  
  342 | }
      | ~                                                                  
  343 | 
      |                                                                    
  344 | int vector_instance_px(void* v, double** px) {
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                     
  345 |  Vect* x = (Vect*)v;
      |  ~~~~~~~~~~~~~~~~~~~                                               
  346 |  *px = x->vec();
      |  ~~~~~~~~~~~~~~~                                                   
  347 |  return x->capacity();
      |  ~~~~~~~~~~~~~~~~~~~~~                                             
  348 | }
      | ~                                                                  
  349 | 
      |                                                                    
  350 | Vect* vector_arg(int i) {
      | ~~~~~~~~~~~~~~~~~~~~~~~~~                                          
  351 |  Object* ob = *hoc_objgetarg(i);
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                                   
  352 |  if (!ob || ob->ctemplate != svec_->u.ctemplate) {
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                 
  353 |   check_obj_type(ob, "Vector");
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                                    
  354 |  }
      |  ~                                                                 
  355 |  return (Vect*)(ob->u.this_pointer);
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                               
  356 | }
      | ~                                                                  
  357 | 
      |                                                                    
  358 | int is_vector_arg(int i) {
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~                                         
  359 |  Object* ob = *hoc_objgetarg(i);
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                                   
  360 |  if (!ob || ob->ctemplate != svec_->u.ctemplate) {
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                 
  361 |   return 0;
      |   ~~~~~~~~~                                                        
  362 |  }
      |  ~                                                                 
  363 |  return 1;
      |  ~~~~~~~~~                                                         
  364 | }
      | ~                                                                  
  365 | 
      |                                                                    
  366 | int vector_arg_px(int i, double** px) {
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                            
  367 |  Vect* x = vector_arg(i);
      |  ~~~~~~~~~~~~~~~~~~~~~~~~                                          
  368 |  *px = x->vec();
      |  ~~~~~~~~~~~~~~~                                                   
  369 |  return x->capacity();
      |  ~~~~~~~~~~~~~~~~~~~~~                                             
  370 | }
      | ~                                                                  
  371 | 
      |                                                                    
  372 | extern void nrn_vecsim_add(void*, bool);
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                           
  373 | extern void nrn_vecsim_remove(void*);
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                              
  374 | 
      |                                                                    
  375 | static int possible_destvec(int arg, Vect*& dest) {
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                
  376 |  if (ifarg(arg) && hoc_is_object_arg(arg)) {
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                       
  377 |    dest = vector_arg(arg);
      |    ~~~~~~~~~~~~~~~~~~~~~~~                                         
  378 |    return arg+1;
      |    ~~~~~~~~~~~~~                                                   
  379 |  }else{
      |  ~~~~~~                                                            
  380 |   dest = new Vect();
      |   ~~~~~~~~~~~~~~~~~~                                               
  381 |   return arg;
      |   ~~~~~~~~~~~                                                      
  382 |  }
      |  ~                                                                 
  383 | }
      | ~                                                                  
  384 | 
      |                                                                    
  385 | static double v_play_remove(void* v) {
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                             
  386 |  nrn_vecsim_remove(v);
      |  ~~~~~~~~~~~~~~~~~~~~~                                             
  387 |  return 1.;
      |  ~~~~~~~~~~                                                        
  388 | }
      | ~                                                                  
  389 | 
      |                                                                    
  390 | static double v_fwrite(void* v) {
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                                  
  391 |  Vect* vp = (Vect*)v;
      |  ~~~~~~~~~~~~~~~~~~~~                                              
  392 |  void* s;
      |  ~~~~~~~~                                                          
  393 |  int x_max = vp->capacity()-1;
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                                     
  394 |  int start = 0;
      |  ~~~~~~~~~~~~~~                                                    
  395 |  int end = x_max;
      |  ~~~~~~~~~~~~~~~~                                                  
  396 |  hoc_return_type_code = 1; // integer
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                              
  397 |  if (ifarg(2)) {
      |  ~~~~~~~~~~~~~~~                                                   
  398 |    start = int(chkarg(2,0,x_max));
      |    ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                                 
  399 |    end = int(chkarg(3,0,x_max));
      |    ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                                   
  400 |  }
      |  ~                                                                 
  401 |  s = (void*)(&vp->elem(start));
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                                    
  402 |  const char* x = (const char*)s;
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                                   
  403 | 
      |                                                                    
  404 |     Object* ob = *hoc_objgetarg(1);
      |     ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                                
  405 |     check_obj_type(ob, "File");
      |     ~~~~~~~~~~~~~~~~~~~~~~~~~~~                                    
  406 |     OcFile* f = (OcFile*)(ob->u.this_pointer);
      |     ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                     
  407 |  FILE* fp = f->file();
      |  ~~~~~~~~~~~~~~~~~~~~~                                             
  408 |  if (!fp) {
      |  ~~~~~~~~~~                                                        
  409 |   return 0.;
      |   ~~~~~~~~~~                                                       
  410 |  }
      |  ~                                                                 
  411 |  int n = end-start+1;
      |  ~~~~~~~~~~~~~~~~~~~~                                              
  412 |  BinaryMode(f);
      |  ~~~~~~~~~~~~~~                                                    
  413 |  return (double)fwrite(x,sizeof(double),n,fp);
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                     
  414 | }
      | ~                                                                  
  415 | 
      |                                                                    
  416 | static double v_fread(void* v) {
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                                   
  417 |  Vect* vp = (Vect*)v;
      |  ~~~~~~~~~~~~~~~~~~~~                                              
  418 |  void* s = (void*)(vp->vec());
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                                     
  419 | 
      |                                                                    
  420 |         Object* ob = *hoc_objgetarg(1);
      |         ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                            
  421 | 
      |                                                                    
  422 |  check_obj_type(ob, "File");
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~                                       
  423 |  OcFile* f = (OcFile*)(ob->u.this_pointer);
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                        
  424 | 
      |                                                                    
  425 |  if (ifarg(2)) vp->resize(int(chkarg(2,0,1e10)));
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                  
  426 |  int n = vp->capacity();
      |  ~~~~~~~~~~~~~~~~~~~~~~~                                           
  427 | 
      |                                                                    
  428 |         int type = 4;
      |         ~~~~~~~~~~~~~                                              
  429 |  if (ifarg(3)) {
      |  ~~~~~~~~~~~~~~~                                                   
  430 |            type = int(chkarg(3,1,5));
      |            ~~~~~~~~~~~~~~~~~~~~~~~~~~                              
  431 |         }
      |         ~                                                          
  432 | 
      |                                                                    
  433 |  FILE* fp = f->file();
      |  ~~~~~~~~~~~~~~~~~~~~~                                             
  434 |  if (!fp) {
      |  ~~~~~~~~~~                                                        
  435 |   return 0.;
      |   ~~~~~~~~~~                                                       
  436 |  }
      |  ~                                                                 
  437 | 
      |                                                                    
  438 |  int i;
      |  ~~~~~~                                                            
  439 |  BinaryMode(f)
      |  ~~~~~~~~~~~~~                                                     
  440 |  if (n > 0) switch (type) {
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~                                        
  441 | 
      |                                                                    
  442 |         case 5:         // short ints
      |         ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                              
  443 |         {
      |         ~                                                          
  444 |            short *xs = (short *)malloc(n * (unsigned)sizeof(short));
      |            ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
  445 |            FRead(xs,sizeof(short),n,fp);
      |            ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                           
  446 |            for (i=0;i<n;++i) {
      |            ~~~~~~~~~~~~~~~~~~~                                     
  447 |       vp->elem(i) = double(xs[i]);
      |       ~~~~~~~~~~~~~~~~~~~~~~~~~~~~                                 
  448 |     }
      |     ~                                                              
  449 |            free((char *)xs);
      |            ~~~~~~~~~~~~~~~~~                                       
  450 |            break;
      |            ~~~~~~                                                  
  451 |         }
      |         ~                                                          
  452 | 
      |                                                                    
  453 |         case 4:        // doubles
      |         ~~~~~~~~~~~~~~~~~~~~~~~~~                                  
  454 |            FRead(&(vp->elem(0)),sizeof(double),n,fp);
      |            ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                   
/builddir/build/BUILD/nrn-7.8.1/src/ivoc/ivocvect.cpp:454:12: note: in expansion of macro 'FRead'
  454 |            FRead(&(vp->elem(0)),sizeof(double),n,fp);
      |            ^~~~~
/builddir/build/BUILD/nrn-7.8.1/src/ivoc/ivocvect.cpp:67:67: warning: comparison of integer expressions of different signedness: 'size_t' {aka 'long unsigned int'} and 'int' [-Wsign-compare]
   67 | #define FRead(arg1,arg2,arg3,arg4) if (fread(arg1,arg2,arg3,arg4) != arg3) {}
      |                                        ~~~~~~~~~~~~~~~~~~~~~~~~~~~^~~~~~~~~~~
   68 | #endif
      | ~~~~~~                                                             
   69 | 
      |                                                                    
   70 | static double dmaxint_;
      | ~~~~~~~~~~~~~~~~~~~~~~~                                            
   71 | 
      |                                                                    
   72 | // Definitions allow machine independent write and read
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~            
   73 | // note that must include BYTEHEADER at head of routine
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~            
   74 | // The policy is that each machine vwrite binary information in
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~    
   75 | // without swapping, ie. native endian.
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                            
   76 | // On reading, the type is checked to decide whether
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~               
   77 | // byteswapping should be performed
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                                
   78 | 
      |                                                                    
   79 | #define BYTEHEADER int _II__;  char *_IN__; char _OUT__[16]; int BYTESWAP_FLAG=0;
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
   80 | #define BYTESWAP(_X__,_TYPE__) \
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                                   
   81 |     if (BYTESWAP_FLAG == 1) { \
      |     ~~~~~~~~~~~~~~~~~~~~~~~~~~~                                    
   82 |  _IN__ = (char *) &(_X__); \
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~                                       
   83 |  for (_II__=0;_II__<sizeof(_TYPE__);_II__++) { \
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                   
   84 |   _OUT__[_II__] = _IN__[sizeof(_TYPE__)-_II__-1]; } \
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~              
   85 |  (_X__) = *((_TYPE__ *) &_OUT__); \
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                                
   86 |     }
      |     ~                                                              
   87 | 
      |                                                                    
   88 | #include "ivocvect.h"
      | ~~~~~~~~~~~~~~~~~~~~~                                              
   89 | 
      |                                                                    
   90 | // definition of SampleHistogram from the gnu c++ class library
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~    
   91 | #include <SmplHist.h>
      | ~~~~~~~~~~~~~~~~~~~~~                                              
   92 | 
      |                                                                    
   93 | // definition of random numer generator
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                            
   94 | #include "random1.h"
      | ~~~~~~~~~~~~~~~~~~~~                                               
   95 | #include <Uniform.h>
      | ~~~~~~~~~~~~~~~~~~~~                                               
   96 | 
      |                                                                    
   97 | // definition of comparison functions
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                              
   98 | #include <d_defs.h>
      | ~~~~~~~~~~~~~~~~~~~                                                
   99 | 
      |                                                                    
  100 | #if HAVE_IV
      | ~~~~~~~~~~~                                                        
  101 | #include "utility.h"
      | ~~~~~~~~~~~~~~~~~~~~                                               
  102 | #endif
      | ~~~~~~                                                             
  103 | #include "oc2iv.h"
      | ~~~~~~~~~~~~~~~~~~                                                 
  104 | #include "parse.h"
      | ~~~~~~~~~~~~~~~~~~                                                 
  105 | #include "ocfile.h"
      | ~~~~~~~~~~~~~~~~~~~                                                
  106 | 
      |                                                                    
  107 | extern "C" {
      | ~~~~~~~~~~~~                                                       
  108 | extern Object* hoc_thisobject;
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                                     
  109 | extern Symlist* hoc_top_level_symlist;
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                             
  110 | extern void nrn_exit(int);
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~                                         
  111 | IvocVect* (*nrnpy_vec_from_python_p_)(void*);
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                      
  112 | Object** (*nrnpy_vec_to_python_p_)(void*);
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                         
  113 | Object** (*nrnpy_vec_as_numpy_helper_)(int, double*);
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~              
  114 | };
      | ~~                                                                 
  115 | 
      |                                                                    
  116 | 
      |                                                                    
  117 | int cmpfcn(double a, double b) { return ((a) <= (b))? (((a) == (b))? 0 : -1) : 1; }
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
  118 | 
      |                                                                    
  119 | 
      |                                                                    
  120 | // math functions with error checking defined in oc/SRC/math.c
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~     
  121 | extern "C" {
      | ~~~~~~~~~~~~                                                       
  122 |   extern double hoc_Log(double x), hoc_Log10(double x), hoc_Exp(double x), hoc_Sqrt(double x);
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
  123 |   extern double hoc_scan(FILE*);
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                                   
  124 | }
      | ~                                                                  
  125 | 
      |                                                                    
  126 | static int narg() {
      | ~~~~~~~~~~~~~~~~~~~                                                
  127 |   int i=0;
      |   ~~~~~~~~                                                         
  128 |   while (ifarg(i++));
      |   ~~~~~~~~~~~~~~~~~~~                                              
  129 |   return i-2;
      |   ~~~~~~~~~~~                                                      
  130 | }
      | ~                                                                  
  131 | 
      |                                                                    
  132 | #define MAX_FIT_PARAMS 20
      | ~~~~~~~~~~~~~~~~~~~~~~~~~                                          
  133 | 
      |                                                                    
  134 | #define TWO_BYTE_HIGH  65535.
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                                      
  135 | #define ONE_BYTE_HIGH  255.
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~                                        
  136 | #define ONE_BYTE_HALF  128.
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~                                        
  137 | 
      |                                                                    
  138 | #define EPSILON 1e-9
      | ~~~~~~~~~~~~~~~~~~~~                                               
  139 | 
      |                                                                    
  140 | extern "C" {
      | ~~~~~~~~~~~~                                                       
  141 |  extern void notify_freed_val_array(double*, size_t);
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~              
  142 |  extern void install_vector_method(const char* name, Pfrd_vp);
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~     
  143 |  extern int vector_instance_px(void*, double**);
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                   
  144 |  extern int vector_arg_px(int, double**);
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                          
  145 |         extern int nrn_mlh_gsort (double* vec, int *base_ptr, int total_elems, doubleComparator cmp);
      |         ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
  146 | };
      | ~~                                                                 
  147 | 
      |                                                                    
  148 | extern "C" int hoc_return_type_code;
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                               
  149 | 
      |                                                                    
  150 | IvocVect::IvocVect(Object* o) : ParentVect(){obj_ = o; label_ = NULL; MUTCONSTRUCT(0)}
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
  151 | IvocVect::IvocVect(int l, Object* o) : ParentVect(l){obj_ = o; label_ = NULL; MUTCONSTRUCT(0)}
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
  152 | IvocVect::IvocVect(int l, double fill_value, Object* o) : ParentVect(l, fill_value){obj_ = o; label_ = NULL; MUTCONSTRUCT(0)}
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
  153 | IvocVect::IvocVect(IvocVect& v, Object* o) : ParentVect(v) {obj_ = o; label_ = NULL; MUTCONSTRUCT(0)}
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
  154 | 
      |                                                                    
  155 | IvocVect::~IvocVect(){
      | ~~~~~~~~~~~~~~~~~~~~~~                                             
  156 |  MUTDESTRUCT
      |  ~~~~~~~~~~~                                                       
  157 |  if (label_) {
      |  ~~~~~~~~~~~~~                                                     
  158 |   delete [] label_;
      |   ~~~~~~~~~~~~~~~~~                                                
  159 |  }
      |  ~                                                                 
  160 |  notify_freed_val_array(vec(), capacity());
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                        
  161 | }
      | ~                                                                  
  162 | 
      |                                                                    
  163 | void IvocVect::label(const char* label) {
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                          
  164 |  if (label_) {
      |  ~~~~~~~~~~~~~                                                     
  165 |   delete [] label_;
      |   ~~~~~~~~~~~~~~~~~                                                
  166 |   label_ = NULL;
      |   ~~~~~~~~~~~~~~                                                   
  167 |  }
      |  ~                                                                 
  168 |  if (label) {
      |  ~~~~~~~~~~~~                                                      
  169 |   label_ = new char[strlen(label) + 1];
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                            
  170 |   strcpy(label_, label);
      |   ~~~~~~~~~~~~~~~~~~~~~~                                           
  171 |  }
      |  ~                                                                 
  172 | }
      | ~                                                                  
  173 | 
      |                                                                    
  174 | static const char* nullstr = "";
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                                   
  175 | 
      |                                                                    
  176 | static const char** v_label(void* v) {
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                             
  177 |  Vect* x  = (Vect*)v;
      |  ~~~~~~~~~~~~~~~~~~~~                                              
  178 |  if (ifarg(1)) {
      |  ~~~~~~~~~~~~~~~                                                   
  179 |   x->label(gargstr(1));
      |   ~~~~~~~~~~~~~~~~~~~~~                                            
  180 |  }
      |  ~                                                                 
  181 |  if (x->label_) {
      |  ~~~~~~~~~~~~~~~~                                                  
  182 |   return (const char**)&x->label_;
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                                 
  183 |  }
      |  ~                                                                 
  184 |  return &nullstr;
      |  ~~~~~~~~~~~~~~~~                                                  
  185 | }
      | ~                                                                  
  186 | 
      |                                                                    
  187 | static void same_err(const char* s, Vect* x, Vect* y) {
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~            
  188 |  if (x == y) {
      |  ~~~~~~~~~~~~~                                                     
  189 |   hoc_execerror(s, " argument needs to be copied first");
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~          
  190 |  }
      |  ~                                                                 
  191 | }
      | ~                                                                  
  192 | 
      |                                                                    
  193 | /* the Vect->at(start, end) function was used in about a dozen places
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
  194 | for the purpose of dealing with a subrange of elements. However that
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
  195 | function clones the subrange and returns a new Vect. This caused a
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ 
  196 | memory leak and was needlessly inefficient for those functions.
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~    
  197 | To fix both problems for these specific functions
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                  
  198 | we use a special vector which does not have
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                        
  199 | it's own space but merely a pointer and capacity to the right space of
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
  200 | the original vector. The usage is restricted to only once at a time, i.e.
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
  201 | can't use two subvecs at once and never do anything which affects the
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
  202 | memory space.
      | ~~~~~~~~~~~~~                                                      
  203 | */
      | ~~                                                                 
  204 | 
      |                                                                    
  205 | static IvocVect* subvec_; // allocated when registered.
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~            
  206 | IvocVect* IvocVect::subvec(int start, int end) {
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                   
  207 |  subvec_->len = end - start + 1;
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                                   
  208 |  subvec_->s = s + start;
      |  ~~~~~~~~~~~~~~~~~~~~~~~                                           
  209 |  return subvec_;
      |  ~~~~~~~~~~~~~~~                                                   
  210 | }
      | ~                                                                  
  211 | 
      |                                                                    
  212 | void IvocVect::resize(int newlen) { // all that for this
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~           
  213 |  long oldcap = capacity();
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~                                         
  214 |  if (newlen > space) {
      |  ~~~~~~~~~~~~~~~~~~~~~                                             
  215 |   notify_freed_val_array(vec(), capacity());
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                       
  216 |  }
      |  ~                                                                 
  217 |  ParentVect::resize(newlen);
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~                                       
  218 |  for (;oldcap < newlen; ++oldcap) {
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                                
  219 |   elem(oldcap) = 0.;
      |   ~~~~~~~~~~~~~~~~~~                                               
  220 |  }
      |  ~                                                                 
  221 | }
      | ~                                                                  
  222 | 
      |                                                                    
  223 | void IvocVect::resize_chunk(int newlen, int extra) {
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~               
  224 |  if (newlen > space) {
      |  ~~~~~~~~~~~~~~~~~~~~~                                             
  225 |   long x = newlen + extra;
      |   ~~~~~~~~~~~~~~~~~~~~~~~~                                         
  226 |   if (extra == 0) {
      |   ~~~~~~~~~~~~~~~~~                                                
  227 |    x = ListImpl_best_new_count(newlen, sizeof(double));
      |    ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~            
  228 |   }
      |   ~                                                                
  229 | //  printf("resize_chunk %d\n", x);
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                                
  230 |   resize(x);
      |   ~~~~~~~~~~                                                       
  231 |  }
      |  ~                                                                 
  232 |  resize(newlen);
      |  ~~~~~~~~~~~~~~~                                                   
  233 | }
      | ~                                                                  
  234 | 
      |                                                                    
  235 | #if HAVE_IV
      | ~~~~~~~~~~~                                                        
  236 | /*static*/ class GraphMarkItem : public GraphItem {
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                
  237 | public:
      | ~~~~~~~                                                            
  238 |  GraphMarkItem(Glyph* g) : GraphItem(g){}
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                          
  239 |  virtual ~GraphMarkItem(){};
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~                                       
  240 |  virtual void erase(Scene* s, GlyphIndex i, int type) {
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~            
  241 |   if (type & GraphItem::ERASE_LINE) {
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                              
  242 |    s->remove(i);
      |    ~~~~~~~~~~~~~                                                   
  243 |   }
      |   ~                                                                
  244 |  }
      |  ~                                                                 
  245 | };
      | ~~                                                                 
  246 | #endif
      | ~~~~~~                                                             
  247 | 
      |                                                                    
  248 | static void* v_cons(Object* o) {
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                                   
  249 |  double fill_value = 0.;
      |  ~~~~~~~~~~~~~~~~~~~~~~~                                           
  250 |  int n = 0;
      |  ~~~~~~~~~~                                                        
  251 |  Vect* vec;
      |  ~~~~~~~~~~                                                        
  252 |  if (ifarg(1)) {
      |  ~~~~~~~~~~~~~~~                                                   
  253 |   if (hoc_is_double_arg(1)) {
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~                                      
  254 |    n = int(chkarg(1,0,1e10));
      |    ~~~~~~~~~~~~~~~~~~~~~~~~~~                                      
  255 |    if (ifarg(2)) fill_value = *getarg(2);
      |    ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                          
  256 |    vec =  new Vect(n,fill_value, o);
      |    ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                               
  257 |   }else{
      |   ~~~~~~                                                           
  258 |    if (!nrnpy_vec_from_python_p_) {
      |    ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                                
  259 |     hoc_execerror("Python not available", 0);
      |     ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                      
  260 |    }
      |    ~                                                               
  261 |    vec = (*nrnpy_vec_from_python_p_)(new Vect(0, 0, o));
      |    ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~           
  262 |   }
      |   ~                                                                
  263 |  }else{
      |  ~~~~~~                                                            
  264 |   vec = new Vect(0, 0, o);
      |   ~~~~~~~~~~~~~~~~~~~~~~~~                                         
  265 |  }
      |  ~                                                                 
  266 |  return vec;
      |  ~~~~~~~~~~~                                                       
  267 | }
      | ~                                                                  
  268 | 
      |                                                                    
  269 | 
      |                                                                    
  270 | static void v_destruct(void* v) {
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                                  
  271 |  delete (Vect*)v;
      |  ~~~~~~~~~~~~~~~~                                                  
  272 | }
      | ~                                                                  
  273 | 
      |                                                                    
  274 | static Symbol* svec_;
      | ~~~~~~~~~~~~~~~~~~~~~                                              
  275 | 
      |                                                                    
  276 | // extern "C" vector functions used by ocmatrix.dll
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                
  277 | // can also be used in mod files
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                                   
  278 | Vect* vector_new(int n, Object* o){return new Vect(n, o);}
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~         
  279 | Vect* vector_new0(){return new Vect();}
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                            
  280 | Vect* vector_new1(int n){return new Vect(n);}
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                      
  281 | Vect* vector_new2(Vect* v){return new Vect(*v);}
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                   
  282 | void vector_delete(Vect* v){delete v;}
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                             
  283 | int vector_buffer_size(Vect* v){return v->buffer_size();}
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~          
  284 | int vector_capacity(Vect* v){return v->capacity();}
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                
  285 | void vector_resize(Vect* v, int n){v->resize(n);}
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                  
  286 | Object** vector_temp_objvar(Vect* v){return v->temp_objvar();}
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~     
  287 | double* vector_vec(Vect* v){return v->vec();}
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                      
  288 | Object** vector_pobj(Vect* v){return &v->obj_;}
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                    
  289 | char* vector_get_label(Vect* v) { return v->label_; }
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~              
  290 | void vector_set_label(Vect* v, char* s) { v->label(s); }
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~           
  291 | void vector_append(Vect* v, double x){
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                             
  292 |   long n = v->capacity();
      |   ~~~~~~~~~~~~~~~~~~~~~~~                                          
  293 |   v->resize_chunk(n+1);
      |   ~~~~~~~~~~~~~~~~~~~~~                                            
  294 |   v->elem(n) = x;
      |   ~~~~~~~~~~~~~~~                                                  
  295 | }
      | ~                                                                  
  296 | 
      |                                                                    
  297 | #ifdef WIN32
      | ~~~~~~~~~~~~                                                       
  298 | #if !defined(USEMATRIX) || USEMATRIX == 0
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                          
  299 | #include "../windll/dll.h"
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~                                         
  300 | extern "C" {extern char* neuron_home;}
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                             
  301 | 
      |                                                                    
  302 | void load_ocmatrix() {
      | ~~~~~~~~~~~~~~~~~~~~~~                                             
  303 |  struct DLL* dll = NULL;
      |  ~~~~~~~~~~~~~~~~~~~~~~~                                           
  304 |  char buf[256];
      |  ~~~~~~~~~~~~~~                                                    
  305 |  sprintf(buf, "%s\\lib\\ocmatrix.dll", neuron_home);
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~               
  306 |  dll = dll_load(buf);
      |  ~~~~~~~~~~~~~~~~~~~~                                              
  307 |  if (dll) {
      |  ~~~~~~~~~~                                                        
  308 |   Pfri mreg = (Pfri)dll_lookup(dll, "_Matrix_reg");
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                
  309 |   if (mreg) {
      |   ~~~~~~~~~~~                                                      
  310 |    (*mreg)();
      |    ~~~~~~~~~~                                                      
  311 |   }
      |   ~                                                                
  312 |  }else{
      |  ~~~~~~                                                            
  313 |   printf("No Matrix class.\n");
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                                    
  314 |  }
      |  ~                                                                 
  315 | }
      | ~                                                                  
  316 | #endif
      | ~~~~~~                                                             
  317 | #endif
      | ~~~~~~                                                             
  318 | 
      |                                                                    
  319 | Object** IvocVect::temp_objvar() {
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                                 
  320 |  IvocVect* v = (IvocVect*)this;
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                                    
  321 |  Object** po;
      |  ~~~~~~~~~~~~                                                      
  322 |  if (v->obj_) {
      |  ~~~~~~~~~~~~~~                                                    
  323 |   po = hoc_temp_objptr(v->obj_);
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                                   
  324 |  }else{
      |  ~~~~~~                                                            
  325 |   po = hoc_temp_objvar(svec_, (void*)v);
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                           
  326 |   obj_ = *po;
      |   ~~~~~~~~~~~                                                      
  327 |  }
      |  ~                                                                 
  328 |  return po;
      |  ~~~~~~~~~~                                                        
  329 | }
      | ~                                                                  
  330 | 
      |                                                                    
  331 | extern "C" { // bug in cray compiler requires this
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                 
  332 | void install_vector_method(const char* name, double (*f)(void*)) {
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ 
  333 |  Symbol* s_meth;
      |  ~~~~~~~~~~~~~~~                                                   
  334 |  if (hoc_table_lookup(name, svec_->u.ctemplate->symtable)) {
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~       
  335 |   hoc_execerror(name, " already a method in the Vector class");
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~    
  336 |  }
      |  ~                                                                 
  337 |  s_meth = hoc_install(name, FUNCTION, 0.0, &svec_->u.ctemplate->symtable);
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
  338 |  s_meth->u.u_proc->defn.pfd = (Pfrd)f;
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                             
  339 | #define PUBLIC_TYPE 1
      | ~~~~~~~~~~~~~~~~~~~~~                                              
  340 |  s_meth->cpublic = PUBLIC_TYPE;
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                                    
  341 | }
      | ~                                                                  
  342 | }
      | ~                                                                  
  343 | 
      |                                                                    
  344 | int vector_instance_px(void* v, double** px) {
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                     
  345 |  Vect* x = (Vect*)v;
      |  ~~~~~~~~~~~~~~~~~~~                                               
  346 |  *px = x->vec();
      |  ~~~~~~~~~~~~~~~                                                   
  347 |  return x->capacity();
      |  ~~~~~~~~~~~~~~~~~~~~~                                             
  348 | }
      | ~                                                                  
  349 | 
      |                                                                    
  350 | Vect* vector_arg(int i) {
      | ~~~~~~~~~~~~~~~~~~~~~~~~~                                          
  351 |  Object* ob = *hoc_objgetarg(i);
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                                   
  352 |  if (!ob || ob->ctemplate != svec_->u.ctemplate) {
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                 
  353 |   check_obj_type(ob, "Vector");
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                                    
  354 |  }
      |  ~                                                                 
  355 |  return (Vect*)(ob->u.this_pointer);
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                               
  356 | }
      | ~                                                                  
  357 | 
      |                                                                    
  358 | int is_vector_arg(int i) {
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~                                         
  359 |  Object* ob = *hoc_objgetarg(i);
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                                   
  360 |  if (!ob || ob->ctemplate != svec_->u.ctemplate) {
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                 
  361 |   return 0;
      |   ~~~~~~~~~                                                        
  362 |  }
      |  ~                                                                 
  363 |  return 1;
      |  ~~~~~~~~~                                                         
  364 | }
      | ~                                                                  
  365 | 
      |                                                                    
  366 | int vector_arg_px(int i, double** px) {
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                            
  367 |  Vect* x = vector_arg(i);
      |  ~~~~~~~~~~~~~~~~~~~~~~~~                                          
  368 |  *px = x->vec();
      |  ~~~~~~~~~~~~~~~                                                   
  369 |  return x->capacity();
      |  ~~~~~~~~~~~~~~~~~~~~~                                             
  370 | }
      | ~                                                                  
  371 | 
      |                                                                    
  372 | extern void nrn_vecsim_add(void*, bool);
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                           
  373 | extern void nrn_vecsim_remove(void*);
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                              
  374 | 
      |                                                                    
  375 | static int possible_destvec(int arg, Vect*& dest) {
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                
  376 |  if (ifarg(arg) && hoc_is_object_arg(arg)) {
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                       
  377 |    dest = vector_arg(arg);
      |    ~~~~~~~~~~~~~~~~~~~~~~~                                         
  378 |    return arg+1;
      |    ~~~~~~~~~~~~~                                                   
  379 |  }else{
      |  ~~~~~~                                                            
  380 |   dest = new Vect();
      |   ~~~~~~~~~~~~~~~~~~                                               
  381 |   return arg;
      |   ~~~~~~~~~~~                                                      
  382 |  }
      |  ~                                                                 
  383 | }
      | ~                                                                  
  384 | 
      |                                                                    
  385 | static double v_play_remove(void* v) {
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                             
  386 |  nrn_vecsim_remove(v);
      |  ~~~~~~~~~~~~~~~~~~~~~                                             
  387 |  return 1.;
      |  ~~~~~~~~~~                                                        
  388 | }
      | ~                                                                  
  389 | 
      |                                                                    
  390 | static double v_fwrite(void* v) {
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                                  
  391 |  Vect* vp = (Vect*)v;
      |  ~~~~~~~~~~~~~~~~~~~~                                              
  392 |  void* s;
      |  ~~~~~~~~                                                          
  393 |  int x_max = vp->capacity()-1;
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                                     
  394 |  int start = 0;
      |  ~~~~~~~~~~~~~~                                                    
  395 |  int end = x_max;
      |  ~~~~~~~~~~~~~~~~                                                  
  396 |  hoc_return_type_code = 1; // integer
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                              
  397 |  if (ifarg(2)) {
      |  ~~~~~~~~~~~~~~~                                                   
  398 |    start = int(chkarg(2,0,x_max));
      |    ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                                 
  399 |    end = int(chkarg(3,0,x_max));
      |    ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                                   
  400 |  }
      |  ~                                                                 
  401 |  s = (void*)(&vp->elem(start));
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                                    
  402 |  const char* x = (const char*)s;
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                                   
  403 | 
      |                                                                    
  404 |     Object* ob = *hoc_objgetarg(1);
      |     ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                                
  405 |     check_obj_type(ob, "File");
      |     ~~~~~~~~~~~~~~~~~~~~~~~~~~~                                    
  406 |     OcFile* f = (OcFile*)(ob->u.this_pointer);
      |     ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                     
  407 |  FILE* fp = f->file();
      |  ~~~~~~~~~~~~~~~~~~~~~                                             
  408 |  if (!fp) {
      |  ~~~~~~~~~~                                                        
  409 |   return 0.;
      |   ~~~~~~~~~~                                                       
  410 |  }
      |  ~                                                                 
  411 |  int n = end-start+1;
      |  ~~~~~~~~~~~~~~~~~~~~                                              
  412 |  BinaryMode(f);
      |  ~~~~~~~~~~~~~~                                                    
  413 |  return (double)fwrite(x,sizeof(double),n,fp);
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                     
  414 | }
      | ~                                                                  
  415 | 
      |                                                                    
  416 | static double v_fread(void* v) {
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                                   
  417 |  Vect* vp = (Vect*)v;
      |  ~~~~~~~~~~~~~~~~~~~~                                              
  418 |  void* s = (void*)(vp->vec());
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                                     
  419 | 
      |                                                                    
  420 |         Object* ob = *hoc_objgetarg(1);
      |         ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                            
  421 | 
      |                                                                    
  422 |  check_obj_type(ob, "File");
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~                                       
  423 |  OcFile* f = (OcFile*)(ob->u.this_pointer);
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                        
  424 | 
      |                                                                    
  425 |  if (ifarg(2)) vp->resize(int(chkarg(2,0,1e10)));
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                  
  426 |  int n = vp->capacity();
      |  ~~~~~~~~~~~~~~~~~~~~~~~                                           
  427 | 
      |                                                                    
  428 |         int type = 4;
      |         ~~~~~~~~~~~~~                                              
  429 |  if (ifarg(3)) {
      |  ~~~~~~~~~~~~~~~                                                   
  430 |            type = int(chkarg(3,1,5));
      |            ~~~~~~~~~~~~~~~~~~~~~~~~~~                              
  431 |         }
      |         ~                                                          
  432 | 
      |                                                                    
  433 |  FILE* fp = f->file();
      |  ~~~~~~~~~~~~~~~~~~~~~                                             
  434 |  if (!fp) {
      |  ~~~~~~~~~~                                                        
  435 |   return 0.;
      |   ~~~~~~~~~~                                                       
  436 |  }
      |  ~                                                                 
  437 | 
      |                                                                    
  438 |  int i;
      |  ~~~~~~                                                            
  439 |  BinaryMode(f)
      |  ~~~~~~~~~~~~~                                                     
  440 |  if (n > 0) switch (type) {
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~                                        
  441 | 
      |                                                                    
  442 |         case 5:         // short ints
      |         ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                              
  443 |         {
      |         ~                                                          
  444 |            short *xs = (short *)malloc(n * (unsigned)sizeof(short));
      |            ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
  445 |            FRead(xs,sizeof(short),n,fp);
      |            ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                           
  446 |            for (i=0;i<n;++i) {
      |            ~~~~~~~~~~~~~~~~~~~                                     
  447 |       vp->elem(i) = double(xs[i]);
      |       ~~~~~~~~~~~~~~~~~~~~~~~~~~~~                                 
  448 |     }
      |     ~                                                              
  449 |            free((char *)xs);
      |            ~~~~~~~~~~~~~~~~~                                       
  450 |            break;
      |            ~~~~~~                                                  
  451 |         }
      |         ~                                                          
  452 | 
      |                                                                    
  453 |         case 4:        // doubles
      |         ~~~~~~~~~~~~~~~~~~~~~~~~~                                  
  454 |            FRead(&(vp->elem(0)),sizeof(double),n,fp);
      |            ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~              
  455 |            break;
      |            ~~~~~~                                                  
  456 | 
      |                                                                    
  457 |         case 3:         // floats
      |         ~~~~~~~~~~~~~~~~~~~~~~~~~                                  
  458 |  {
      |  ~                                                                 
  459 |            float *xf = (float *)malloc(n * (unsigned)sizeof(float));
      |            ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
  460 |            FRead(xf,sizeof(float),n,fp);
      |            ~~~~~~~~~~~~~~~~~~~~~~~~                                
/builddir/build/BUILD/nrn-7.8.1/src/ivoc/ivocvect.cpp:460:12: note: in expansion of macro 'FRead'
  460 |            FRead(xf,sizeof(float),n,fp);
      |            ^~~~~
/builddir/build/BUILD/nrn-7.8.1/src/ivoc/ivocvect.cpp:67:67: warning: comparison of integer expressions of different signedness: 'size_t' {aka 'long unsigned int'} and 'int' [-Wsign-compare]
   67 | #define FRead(arg1,arg2,arg3,arg4) if (fread(arg1,arg2,arg3,arg4) != arg3) {}
      |                                        ~~~~~~~~~~~~~~~~~~~~~~~~~~~^~~~~~~~~~~
   68 | #endif
      | ~~~~~~                                                             
   69 | 
      |                                                                    
   70 | static double dmaxint_;
      | ~~~~~~~~~~~~~~~~~~~~~~~                                            
   71 | 
      |                                                                    
   72 | // Definitions allow machine independent write and read
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~            
   73 | // note that must include BYTEHEADER at head of routine
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~            
   74 | // The policy is that each machine vwrite binary information in
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~    
   75 | // without swapping, ie. native endian.
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                            
   76 | // On reading, the type is checked to decide whether
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~               
   77 | // byteswapping should be performed
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                                
   78 | 
      |                                                                    
   79 | #define BYTEHEADER int _II__;  char *_IN__; char _OUT__[16]; int BYTESWAP_FLAG=0;
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
   80 | #define BYTESWAP(_X__,_TYPE__) \
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                                   
   81 |     if (BYTESWAP_FLAG == 1) { \
      |     ~~~~~~~~~~~~~~~~~~~~~~~~~~~                                    
   82 |  _IN__ = (char *) &(_X__); \
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~                                       
   83 |  for (_II__=0;_II__<sizeof(_TYPE__);_II__++) { \
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                   
   84 |   _OUT__[_II__] = _IN__[sizeof(_TYPE__)-_II__-1]; } \
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~              
   85 |  (_X__) = *((_TYPE__ *) &_OUT__); \
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                                
   86 |     }
      |     ~                                                              
   87 | 
      |                                                                    
   88 | #include "ivocvect.h"
      | ~~~~~~~~~~~~~~~~~~~~~                                              
   89 | 
      |                                                                    
   90 | // definition of SampleHistogram from the gnu c++ class library
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~    
   91 | #include <SmplHist.h>
      | ~~~~~~~~~~~~~~~~~~~~~                                              
   92 | 
      |                                                                    
   93 | // definition of random numer generator
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                            
   94 | #include "random1.h"
      | ~~~~~~~~~~~~~~~~~~~~                                               
   95 | #include <Uniform.h>
      | ~~~~~~~~~~~~~~~~~~~~                                               
   96 | 
      |                                                                    
   97 | // definition of comparison functions
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                              
   98 | #include <d_defs.h>
      | ~~~~~~~~~~~~~~~~~~~                                                
   99 | 
      |                                                                    
  100 | #if HAVE_IV
      | ~~~~~~~~~~~                                                        
  101 | #include "utility.h"
      | ~~~~~~~~~~~~~~~~~~~~                                               
  102 | #endif
      | ~~~~~~                                                             
  103 | #include "oc2iv.h"
      | ~~~~~~~~~~~~~~~~~~                                                 
  104 | #include "parse.h"
      | ~~~~~~~~~~~~~~~~~~                                                 
  105 | #include "ocfile.h"
      | ~~~~~~~~~~~~~~~~~~~                                                
  106 | 
      |                                                                    
  107 | extern "C" {
      | ~~~~~~~~~~~~                                                       
  108 | extern Object* hoc_thisobject;
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                                     
  109 | extern Symlist* hoc_top_level_symlist;
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                             
  110 | extern void nrn_exit(int);
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~                                         
  111 | IvocVect* (*nrnpy_vec_from_python_p_)(void*);
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                      
  112 | Object** (*nrnpy_vec_to_python_p_)(void*);
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                         
  113 | Object** (*nrnpy_vec_as_numpy_helper_)(int, double*);
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~              
  114 | };
      | ~~                                                                 
  115 | 
      |                                                                    
  116 | 
      |                                                                    
  117 | int cmpfcn(double a, double b) { return ((a) <= (b))? (((a) == (b))? 0 : -1) : 1; }
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
  118 | 
      |                                                                    
  119 | 
      |                                                                    
  120 | // math functions with error checking defined in oc/SRC/math.c
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~     
  121 | extern "C" {
      | ~~~~~~~~~~~~                                                       
  122 |   extern double hoc_Log(double x), hoc_Log10(double x), hoc_Exp(double x), hoc_Sqrt(double x);
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
  123 |   extern double hoc_scan(FILE*);
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                                   
  124 | }
      | ~                                                                  
  125 | 
      |                                                                    
  126 | static int narg() {
      | ~~~~~~~~~~~~~~~~~~~                                                
  127 |   int i=0;
      |   ~~~~~~~~                                                         
  128 |   while (ifarg(i++));
      |   ~~~~~~~~~~~~~~~~~~~                                              
  129 |   return i-2;
      |   ~~~~~~~~~~~                                                      
  130 | }
      | ~                                                                  
  131 | 
      |                                                                    
  132 | #define MAX_FIT_PARAMS 20
      | ~~~~~~~~~~~~~~~~~~~~~~~~~                                          
  133 | 
      |                                                                    
  134 | #define TWO_BYTE_HIGH  65535.
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                                      
  135 | #define ONE_BYTE_HIGH  255.
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~                                        
  136 | #define ONE_BYTE_HALF  128.
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~                                        
  137 | 
      |                                                                    
  138 | #define EPSILON 1e-9
      | ~~~~~~~~~~~~~~~~~~~~                                               
  139 | 
      |                                                                    
  140 | extern "C" {
      | ~~~~~~~~~~~~                                                       
  141 |  extern void notify_freed_val_array(double*, size_t);
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~              
  142 |  extern void install_vector_method(const char* name, Pfrd_vp);
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~     
  143 |  extern int vector_instance_px(void*, double**);
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                   
  144 |  extern int vector_arg_px(int, double**);
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                          
  145 |         extern int nrn_mlh_gsort (double* vec, int *base_ptr, int total_elems, doubleComparator cmp);
      |         ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
  146 | };
      | ~~                                                                 
  147 | 
      |                                                                    
  148 | extern "C" int hoc_return_type_code;
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                               
  149 | 
      |                                                                    
  150 | IvocVect::IvocVect(Object* o) : ParentVect(){obj_ = o; label_ = NULL; MUTCONSTRUCT(0)}
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
  151 | IvocVect::IvocVect(int l, Object* o) : ParentVect(l){obj_ = o; label_ = NULL; MUTCONSTRUCT(0)}
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
  152 | IvocVect::IvocVect(int l, double fill_value, Object* o) : ParentVect(l, fill_value){obj_ = o; label_ = NULL; MUTCONSTRUCT(0)}
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
  153 | IvocVect::IvocVect(IvocVect& v, Object* o) : ParentVect(v) {obj_ = o; label_ = NULL; MUTCONSTRUCT(0)}
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
  154 | 
      |                                                                    
  155 | IvocVect::~IvocVect(){
      | ~~~~~~~~~~~~~~~~~~~~~~                                             
  156 |  MUTDESTRUCT
      |  ~~~~~~~~~~~                                                       
  157 |  if (label_) {
      |  ~~~~~~~~~~~~~                                                     
  158 |   delete [] label_;
      |   ~~~~~~~~~~~~~~~~~                                                
  159 |  }
      |  ~                                                                 
  160 |  notify_freed_val_array(vec(), capacity());
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                        
  161 | }
      | ~                                                                  
  162 | 
      |                                                                    
  163 | void IvocVect::label(const char* label) {
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                          
  164 |  if (label_) {
      |  ~~~~~~~~~~~~~                                                     
  165 |   delete [] label_;
      |   ~~~~~~~~~~~~~~~~~                                                
  166 |   label_ = NULL;
      |   ~~~~~~~~~~~~~~                                                   
  167 |  }
      |  ~                                                                 
  168 |  if (label) {
      |  ~~~~~~~~~~~~                                                      
  169 |   label_ = new char[strlen(label) + 1];
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                            
  170 |   strcpy(label_, label);
      |   ~~~~~~~~~~~~~~~~~~~~~~                                           
  171 |  }
      |  ~                                                                 
  172 | }
      | ~                                                                  
  173 | 
      |                                                                    
  174 | static const char* nullstr = "";
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                                   
  175 | 
      |                                                                    
  176 | static const char** v_label(void* v) {
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                             
  177 |  Vect* x  = (Vect*)v;
      |  ~~~~~~~~~~~~~~~~~~~~                                              
  178 |  if (ifarg(1)) {
      |  ~~~~~~~~~~~~~~~                                                   
  179 |   x->label(gargstr(1));
      |   ~~~~~~~~~~~~~~~~~~~~~                                            
  180 |  }
      |  ~                                                                 
  181 |  if (x->label_) {
      |  ~~~~~~~~~~~~~~~~                                                  
  182 |   return (const char**)&x->label_;
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                                 
  183 |  }
      |  ~                                                                 
  184 |  return &nullstr;
      |  ~~~~~~~~~~~~~~~~                                                  
  185 | }
      | ~                                                                  
  186 | 
      |                                                                    
  187 | static void same_err(const char* s, Vect* x, Vect* y) {
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~            
  188 |  if (x == y) {
      |  ~~~~~~~~~~~~~                                                     
  189 |   hoc_execerror(s, " argument needs to be copied first");
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~          
  190 |  }
      |  ~                                                                 
  191 | }
      | ~                                                                  
  192 | 
      |                                                                    
  193 | /* the Vect->at(start, end) function was used in about a dozen places
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
  194 | for the purpose of dealing with a subrange of elements. However that
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
  195 | function clones the subrange and returns a new Vect. This caused a
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ 
  196 | memory leak and was needlessly inefficient for those functions.
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~    
  197 | To fix both problems for these specific functions
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                  
  198 | we use a special vector which does not have
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                        
  199 | it's own space but merely a pointer and capacity to the right space of
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
  200 | the original vector. The usage is restricted to only once at a time, i.e.
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
  201 | can't use two subvecs at once and never do anything which affects the
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
  202 | memory space.
      | ~~~~~~~~~~~~~                                                      
  203 | */
      | ~~                                                                 
  204 | 
      |                                                                    
  205 | static IvocVect* subvec_; // allocated when registered.
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~            
  206 | IvocVect* IvocVect::subvec(int start, int end) {
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                   
  207 |  subvec_->len = end - start + 1;
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                                   
  208 |  subvec_->s = s + start;
      |  ~~~~~~~~~~~~~~~~~~~~~~~                                           
  209 |  return subvec_;
      |  ~~~~~~~~~~~~~~~                                                   
  210 | }
      | ~                                                                  
  211 | 
      |                                                                    
  212 | void IvocVect::resize(int newlen) { // all that for this
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~           
  213 |  long oldcap = capacity();
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~                                         
  214 |  if (newlen > space) {
      |  ~~~~~~~~~~~~~~~~~~~~~                                             
  215 |   notify_freed_val_array(vec(), capacity());
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                       
  216 |  }
      |  ~                                                                 
  217 |  ParentVect::resize(newlen);
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~                                       
  218 |  for (;oldcap < newlen; ++oldcap) {
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                                
  219 |   elem(oldcap) = 0.;
      |   ~~~~~~~~~~~~~~~~~~                                               
  220 |  }
      |  ~                                                                 
  221 | }
      | ~                                                                  
  222 | 
      |                                                                    
  223 | void IvocVect::resize_chunk(int newlen, int extra) {
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~               
  224 |  if (newlen > space) {
      |  ~~~~~~~~~~~~~~~~~~~~~                                             
  225 |   long x = newlen + extra;
      |   ~~~~~~~~~~~~~~~~~~~~~~~~                                         
  226 |   if (extra == 0) {
      |   ~~~~~~~~~~~~~~~~~                                                
  227 |    x = ListImpl_best_new_count(newlen, sizeof(double));
      |    ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~            
  228 |   }
      |   ~                                                                
  229 | //  printf("resize_chunk %d\n", x);
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                                
  230 |   resize(x);
      |   ~~~~~~~~~~                                                       
  231 |  }
      |  ~                                                                 
  232 |  resize(newlen);
      |  ~~~~~~~~~~~~~~~                                                   
  233 | }
      | ~                                                                  
  234 | 
      |                                                                    
  235 | #if HAVE_IV
      | ~~~~~~~~~~~                                                        
  236 | /*static*/ class GraphMarkItem : public GraphItem {
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                
  237 | public:
      | ~~~~~~~                                                            
  238 |  GraphMarkItem(Glyph* g) : GraphItem(g){}
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                          
  239 |  virtual ~GraphMarkItem(){};
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~                                       
  240 |  virtual void erase(Scene* s, GlyphIndex i, int type) {
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~            
  241 |   if (type & GraphItem::ERASE_LINE) {
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                              
  242 |    s->remove(i);
      |    ~~~~~~~~~~~~~                                                   
  243 |   }
      |   ~                                                                
  244 |  }
      |  ~                                                                 
  245 | };
      | ~~                                                                 
  246 | #endif
      | ~~~~~~                                                             
  247 | 
      |                                                                    
  248 | static void* v_cons(Object* o) {
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                                   
  249 |  double fill_value = 0.;
      |  ~~~~~~~~~~~~~~~~~~~~~~~                                           
  250 |  int n = 0;
      |  ~~~~~~~~~~                                                        
  251 |  Vect* vec;
      |  ~~~~~~~~~~                                                        
  252 |  if (ifarg(1)) {
      |  ~~~~~~~~~~~~~~~                                                   
  253 |   if (hoc_is_double_arg(1)) {
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~                                      
  254 |    n = int(chkarg(1,0,1e10));
      |    ~~~~~~~~~~~~~~~~~~~~~~~~~~                                      
  255 |    if (ifarg(2)) fill_value = *getarg(2);
      |    ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                          
  256 |    vec =  new Vect(n,fill_value, o);
      |    ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                               
  257 |   }else{
      |   ~~~~~~                                                           
  258 |    if (!nrnpy_vec_from_python_p_) {
      |    ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                                
  259 |     hoc_execerror("Python not available", 0);
      |     ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                      
  260 |    }
      |    ~                                                               
  261 |    vec = (*nrnpy_vec_from_python_p_)(new Vect(0, 0, o));
      |    ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~           
  262 |   }
      |   ~                                                                
  263 |  }else{
      |  ~~~~~~                                                            
  264 |   vec = new Vect(0, 0, o);
      |   ~~~~~~~~~~~~~~~~~~~~~~~~                                         
  265 |  }
      |  ~                                                                 
  266 |  return vec;
      |  ~~~~~~~~~~~                                                       
  267 | }
      | ~                                                                  
  268 | 
      |                                                                    
  269 | 
      |                                                                    
  270 | static void v_destruct(void* v) {
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                                  
  271 |  delete (Vect*)v;
      |  ~~~~~~~~~~~~~~~~                                                  
  272 | }
      | ~                                                                  
  273 | 
      |                                                                    
  274 | static Symbol* svec_;
      | ~~~~~~~~~~~~~~~~~~~~~                                              
  275 | 
      |                                                                    
  276 | // extern "C" vector functions used by ocmatrix.dll
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                
  277 | // can also be used in mod files
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                                   
  278 | Vect* vector_new(int n, Object* o){return new Vect(n, o);}
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~         
  279 | Vect* vector_new0(){return new Vect();}
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                            
  280 | Vect* vector_new1(int n){return new Vect(n);}
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                      
  281 | Vect* vector_new2(Vect* v){return new Vect(*v);}
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                   
  282 | void vector_delete(Vect* v){delete v;}
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                             
  283 | int vector_buffer_size(Vect* v){return v->buffer_size();}
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~          
  284 | int vector_capacity(Vect* v){return v->capacity();}
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                
  285 | void vector_resize(Vect* v, int n){v->resize(n);}
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                  
  286 | Object** vector_temp_objvar(Vect* v){return v->temp_objvar();}
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~     
  287 | double* vector_vec(Vect* v){return v->vec();}
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                      
  288 | Object** vector_pobj(Vect* v){return &v->obj_;}
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                    
  289 | char* vector_get_label(Vect* v) { return v->label_; }
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~              
  290 | void vector_set_label(Vect* v, char* s) { v->label(s); }
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~           
  291 | void vector_append(Vect* v, double x){
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                             
  292 |   long n = v->capacity();
      |   ~~~~~~~~~~~~~~~~~~~~~~~                                          
  293 |   v->resize_chunk(n+1);
      |   ~~~~~~~~~~~~~~~~~~~~~                                            
  294 |   v->elem(n) = x;
      |   ~~~~~~~~~~~~~~~                                                  
  295 | }
      | ~                                                                  
  296 | 
      |                                                                    
  297 | #ifdef WIN32
      | ~~~~~~~~~~~~                                                       
  298 | #if !defined(USEMATRIX) || USEMATRIX == 0
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                          
  299 | #include "../windll/dll.h"
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~                                         
  300 | extern "C" {extern char* neuron_home;}
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                             
  301 | 
      |                                                                    
  302 | void load_ocmatrix() {
      | ~~~~~~~~~~~~~~~~~~~~~~                                             
  303 |  struct DLL* dll = NULL;
      |  ~~~~~~~~~~~~~~~~~~~~~~~                                           
  304 |  char buf[256];
      |  ~~~~~~~~~~~~~~                                                    
  305 |  sprintf(buf, "%s\\lib\\ocmatrix.dll", neuron_home);
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~               
  306 |  dll = dll_load(buf);
      |  ~~~~~~~~~~~~~~~~~~~~                                              
  307 |  if (dll) {
      |  ~~~~~~~~~~                                                        
  308 |   Pfri mreg = (Pfri)dll_lookup(dll, "_Matrix_reg");
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                
  309 |   if (mreg) {
      |   ~~~~~~~~~~~                                                      
  310 |    (*mreg)();
      |    ~~~~~~~~~~                                                      
  311 |   }
      |   ~                                                                
  312 |  }else{
      |  ~~~~~~                                                            
  313 |   printf("No Matrix class.\n");
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                                    
  314 |  }
      |  ~                                                                 
  315 | }
      | ~                                                                  
  316 | #endif
      | ~~~~~~                                                             
  317 | #endif
      | ~~~~~~                                                             
  318 | 
      |                                                                    
  319 | Object** IvocVect::temp_objvar() {
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                                 
  320 |  IvocVect* v = (IvocVect*)this;
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                                    
  321 |  Object** po;
      |  ~~~~~~~~~~~~                                                      
  322 |  if (v->obj_) {
      |  ~~~~~~~~~~~~~~                                                    
  323 |   po = hoc_temp_objptr(v->obj_);
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                                   
  324 |  }else{
      |  ~~~~~~                                                            
  325 |   po = hoc_temp_objvar(svec_, (void*)v);
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                           
  326 |   obj_ = *po;
      |   ~~~~~~~~~~~                                                      
  327 |  }
      |  ~                                                                 
  328 |  return po;
      |  ~~~~~~~~~~                                                        
  329 | }
      | ~                                                                  
  330 | 
      |                                                                    
  331 | extern "C" { // bug in cray compiler requires this
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                 
  332 | void install_vector_method(const char* name, double (*f)(void*)) {
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ 
  333 |  Symbol* s_meth;
      |  ~~~~~~~~~~~~~~~                                                   
  334 |  if (hoc_table_lookup(name, svec_->u.ctemplate->symtable)) {
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~       
  335 |   hoc_execerror(name, " already a method in the Vector class");
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~    
  336 |  }
      |  ~                                                                 
  337 |  s_meth = hoc_install(name, FUNCTION, 0.0, &svec_->u.ctemplate->symtable);
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
  338 |  s_meth->u.u_proc->defn.pfd = (Pfrd)f;
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                             
  339 | #define PUBLIC_TYPE 1
      | ~~~~~~~~~~~~~~~~~~~~~                                              
  340 |  s_meth->cpublic = PUBLIC_TYPE;
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                                    
  341 | }
      | ~                                                                  
  342 | }
      | ~                                                                  
  343 | 
      |                                                                    
  344 | int vector_instance_px(void* v, double** px) {
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                     
  345 |  Vect* x = (Vect*)v;
      |  ~~~~~~~~~~~~~~~~~~~                                               
  346 |  *px = x->vec();
      |  ~~~~~~~~~~~~~~~                                                   
  347 |  return x->capacity();
      |  ~~~~~~~~~~~~~~~~~~~~~                                             
  348 | }
      | ~                                                                  
  349 | 
      |                                                                    
  350 | Vect* vector_arg(int i) {
      | ~~~~~~~~~~~~~~~~~~~~~~~~~                                          
  351 |  Object* ob = *hoc_objgetarg(i);
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                                   
  352 |  if (!ob || ob->ctemplate != svec_->u.ctemplate) {
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                 
  353 |   check_obj_type(ob, "Vector");
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                                    
  354 |  }
      |  ~                                                                 
  355 |  return (Vect*)(ob->u.this_pointer);
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                               
  356 | }
      | ~                                                                  
  357 | 
      |                                                                    
  358 | int is_vector_arg(int i) {
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~                                         
  359 |  Object* ob = *hoc_objgetarg(i);
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                                   
  360 |  if (!ob || ob->ctemplate != svec_->u.ctemplate) {
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                 
  361 |   return 0;
      |   ~~~~~~~~~                                                        
  362 |  }
      |  ~                                                                 
  363 |  return 1;
      |  ~~~~~~~~~                                                         
  364 | }
      | ~                                                                  
  365 | 
      |                                                                    
  366 | int vector_arg_px(int i, double** px) {
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                            
  367 |  Vect* x = vector_arg(i);
      |  ~~~~~~~~~~~~~~~~~~~~~~~~                                          
  368 |  *px = x->vec();
      |  ~~~~~~~~~~~~~~~                                                   
  369 |  return x->capacity();
      |  ~~~~~~~~~~~~~~~~~~~~~                                             
  370 | }
      | ~                                                                  
  371 | 
      |                                                                    
  372 | extern void nrn_vecsim_add(void*, bool);
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                           
  373 | extern void nrn_vecsim_remove(void*);
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                              
  374 | 
      |                                                                    
  375 | static int possible_destvec(int arg, Vect*& dest) {
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                
  376 |  if (ifarg(arg) && hoc_is_object_arg(arg)) {
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                       
  377 |    dest = vector_arg(arg);
      |    ~~~~~~~~~~~~~~~~~~~~~~~                                         
  378 |    return arg+1;
      |    ~~~~~~~~~~~~~                                                   
  379 |  }else{
      |  ~~~~~~                                                            
  380 |   dest = new Vect();
      |   ~~~~~~~~~~~~~~~~~~                                               
  381 |   return arg;
      |   ~~~~~~~~~~~                                                      
  382 |  }
      |  ~                                                                 
  383 | }
      | ~                                                                  
  384 | 
      |                                                                    
  385 | static double v_play_remove(void* v) {
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                             
  386 |  nrn_vecsim_remove(v);
      |  ~~~~~~~~~~~~~~~~~~~~~                                             
  387 |  return 1.;
      |  ~~~~~~~~~~                                                        
  388 | }
      | ~                                                                  
  389 | 
      |                                                                    
  390 | static double v_fwrite(void* v) {
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                                  
  391 |  Vect* vp = (Vect*)v;
      |  ~~~~~~~~~~~~~~~~~~~~                                              
  392 |  void* s;
      |  ~~~~~~~~                                                          
  393 |  int x_max = vp->capacity()-1;
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                                     
  394 |  int start = 0;
      |  ~~~~~~~~~~~~~~                                                    
  395 |  int end = x_max;
      |  ~~~~~~~~~~~~~~~~                                                  
  396 |  hoc_return_type_code = 1; // integer
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                              
  397 |  if (ifarg(2)) {
      |  ~~~~~~~~~~~~~~~                                                   
  398 |    start = int(chkarg(2,0,x_max));
      |    ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                                 
  399 |    end = int(chkarg(3,0,x_max));
      |    ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                                   
  400 |  }
      |  ~                                                                 
  401 |  s = (void*)(&vp->elem(start));
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                                    
  402 |  const char* x = (const char*)s;
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                                   
  403 | 
      |                                                                    
  404 |     Object* ob = *hoc_objgetarg(1);
      |     ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                                
  405 |     check_obj_type(ob, "File");
      |     ~~~~~~~~~~~~~~~~~~~~~~~~~~~                                    
  406 |     OcFile* f = (OcFile*)(ob->u.this_pointer);
      |     ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                     
  407 |  FILE* fp = f->file();
      |  ~~~~~~~~~~~~~~~~~~~~~                                             
  408 |  if (!fp) {
      |  ~~~~~~~~~~                                                        
  409 |   return 0.;
      |   ~~~~~~~~~~                                                       
  410 |  }
      |  ~                                                                 
  411 |  int n = end-start+1;
      |  ~~~~~~~~~~~~~~~~~~~~                                              
  412 |  BinaryMode(f);
      |  ~~~~~~~~~~~~~~                                                    
  413 |  return (double)fwrite(x,sizeof(double),n,fp);
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                     
  414 | }
      | ~                                                                  
  415 | 
      |                                                                    
  416 | static double v_fread(void* v) {
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                                   
  417 |  Vect* vp = (Vect*)v;
      |  ~~~~~~~~~~~~~~~~~~~~                                              
  418 |  void* s = (void*)(vp->vec());
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                                     
  419 | 
      |                                                                    
  420 |         Object* ob = *hoc_objgetarg(1);
      |         ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                            
  421 | 
      |                                                                    
  422 |  check_obj_type(ob, "File");
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~                                       
  423 |  OcFile* f = (OcFile*)(ob->u.this_pointer);
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                        
  424 | 
      |                                                                    
  425 |  if (ifarg(2)) vp->resize(int(chkarg(2,0,1e10)));
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                  
  426 |  int n = vp->capacity();
      |  ~~~~~~~~~~~~~~~~~~~~~~~                                           
  427 | 
      |                                                                    
  428 |         int type = 4;
      |         ~~~~~~~~~~~~~                                              
  429 |  if (ifarg(3)) {
      |  ~~~~~~~~~~~~~~~                                                   
  430 |            type = int(chkarg(3,1,5));
      |            ~~~~~~~~~~~~~~~~~~~~~~~~~~                              
  431 |         }
      |         ~                                                          
  432 | 
      |                                                                    
  433 |  FILE* fp = f->file();
      |  ~~~~~~~~~~~~~~~~~~~~~                                             
  434 |  if (!fp) {
      |  ~~~~~~~~~~                                                        
  435 |   return 0.;
      |   ~~~~~~~~~~                                                       
  436 |  }
      |  ~                                                                 
  437 | 
      |                                                                    
  438 |  int i;
      |  ~~~~~~                                                            
  439 |  BinaryMode(f)
      |  ~~~~~~~~~~~~~                                                     
  440 |  if (n > 0) switch (type) {
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~                                        
  441 | 
      |                                                                    
  442 |         case 5:         // short ints
      |         ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                              
  443 |         {
      |         ~                                                          
  444 |            short *xs = (short *)malloc(n * (unsigned)sizeof(short));
      |            ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
  445 |            FRead(xs,sizeof(short),n,fp);
      |            ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                           
  446 |            for (i=0;i<n;++i) {
      |            ~~~~~~~~~~~~~~~~~~~                                     
  447 |       vp->elem(i) = double(xs[i]);
      |       ~~~~~~~~~~~~~~~~~~~~~~~~~~~~                                 
  448 |     }
      |     ~                                                              
  449 |            free((char *)xs);
      |            ~~~~~~~~~~~~~~~~~                                       
  450 |            break;
      |            ~~~~~~                                                  
  451 |         }
      |         ~                                                          
  452 | 
      |                                                                    
  453 |         case 4:        // doubles
      |         ~~~~~~~~~~~~~~~~~~~~~~~~~                                  
  454 |            FRead(&(vp->elem(0)),sizeof(double),n,fp);
      |            ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~              
  455 |            break;
      |            ~~~~~~                                                  
  456 | 
      |                                                                    
  457 |         case 3:         // floats
      |         ~~~~~~~~~~~~~~~~~~~~~~~~~                                  
  458 |  {
      |  ~                                                                 
  459 |            float *xf = (float *)malloc(n * (unsigned)sizeof(float));
      |            ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
  460 |            FRead(xf,sizeof(float),n,fp);
      |            ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                           
  461 |            for (i=0;i<n;++i) {
      |            ~~~~~~~~~~~~~~~~~~~                                     
  462 |       vp->elem(i) = double(xf[i]);
      |       ~~~~~~~~~~~~~~~~~~~~~~~~~~~~                                 
  463 |     }
      |     ~                                                              
  464 |            free((char *)xf);
      |            ~~~~~~~~~~~~~~~~~                                       
  465 |            break;
      |            ~~~~~~                                                  
  466 |         }
      |         ~                                                          
  467 | 
      |                                                                    
  468 |         case 2:         // unsigned short ints
      |         ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                     
  469 |         {
      |         ~                                                          
  470 | 
      |                                                                    
  471 |            unsigned short *xi = (unsigned short *)malloc(n * (unsigned)sizeof(unsigned short));
      |            ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
  472 |            FRead(xi,sizeof(unsigned short),n,fp);
      |            ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                       
/builddir/build/BUILD/nrn-7.8.1/src/ivoc/ivocvect.cpp:472:12: note: in expansion of macro 'FRead'
  472 |            FRead(xi,sizeof(unsigned short),n,fp);
      |            ^~~~~
/builddir/build/BUILD/nrn-7.8.1/src/ivoc/ivocvect.cpp:67:67: warning: comparison of integer expressions of different signedness: 'size_t' {aka 'long unsigned int'} and 'int' [-Wsign-compare]
   67 | #define FRead(arg1,arg2,arg3,arg4) if (fread(arg1,arg2,arg3,arg4) != arg3) {}
      |                                        ~~~~~~~~~~~~~~~~~~~~~~~~~~~^~~~~~~~~~~
   68 | #endif
      | ~~~~~~                                                             
   69 | 
      |                                                                    
   70 | static double dmaxint_;
      | ~~~~~~~~~~~~~~~~~~~~~~~                                            
   71 | 
      |                                                                    
   72 | // Definitions allow machine independent write and read
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~            
   73 | // note that must include BYTEHEADER at head of routine
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~            
   74 | // The policy is that each machine vwrite binary information in
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~    
   75 | // without swapping, ie. native endian.
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                            
   76 | // On reading, the type is checked to decide whether
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~               
   77 | // byteswapping should be performed
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                                
   78 | 
      |                                                                    
   79 | #define BYTEHEADER int _II__;  char *_IN__; char _OUT__[16]; int BYTESWAP_FLAG=0;
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
   80 | #define BYTESWAP(_X__,_TYPE__) \
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                                   
   81 |     if (BYTESWAP_FLAG == 1) { \
      |     ~~~~~~~~~~~~~~~~~~~~~~~~~~~                                    
   82 |  _IN__ = (char *) &(_X__); \
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~                                       
   83 |  for (_II__=0;_II__<sizeof(_TYPE__);_II__++) { \
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                   
   84 |   _OUT__[_II__] = _IN__[sizeof(_TYPE__)-_II__-1]; } \
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~              
   85 |  (_X__) = *((_TYPE__ *) &_OUT__); \
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                                
   86 |     }
      |     ~                                                              
   87 | 
      |                                                                    
   88 | #include "ivocvect.h"
      | ~~~~~~~~~~~~~~~~~~~~~                                              
   89 | 
      |                                                                    
   90 | // definition of SampleHistogram from the gnu c++ class library
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~    
   91 | #include <SmplHist.h>
      | ~~~~~~~~~~~~~~~~~~~~~                                              
   92 | 
      |                                                                    
   93 | // definition of random numer generator
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                            
   94 | #include "random1.h"
      | ~~~~~~~~~~~~~~~~~~~~                                               
   95 | #include <Uniform.h>
      | ~~~~~~~~~~~~~~~~~~~~                                               
   96 | 
      |                                                                    
   97 | // definition of comparison functions
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                              
   98 | #include <d_defs.h>
      | ~~~~~~~~~~~~~~~~~~~                                                
   99 | 
      |                                                                    
  100 | #if HAVE_IV
      | ~~~~~~~~~~~                                                        
  101 | #include "utility.h"
      | ~~~~~~~~~~~~~~~~~~~~                                               
  102 | #endif
      | ~~~~~~                                                             
  103 | #include "oc2iv.h"
      | ~~~~~~~~~~~~~~~~~~                                                 
  104 | #include "parse.h"
      | ~~~~~~~~~~~~~~~~~~                                                 
  105 | #include "ocfile.h"
      | ~~~~~~~~~~~~~~~~~~~                                                
  106 | 
      |                                                                    
  107 | extern "C" {
      | ~~~~~~~~~~~~                                                       
  108 | extern Object* hoc_thisobject;
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                                     
  109 | extern Symlist* hoc_top_level_symlist;
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                             
  110 | extern void nrn_exit(int);
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~                                         
  111 | IvocVect* (*nrnpy_vec_from_python_p_)(void*);
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                      
  112 | Object** (*nrnpy_vec_to_python_p_)(void*);
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                         
  113 | Object** (*nrnpy_vec_as_numpy_helper_)(int, double*);
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~              
  114 | };
      | ~~                                                                 
  115 | 
      |                                                                    
  116 | 
      |                                                                    
  117 | int cmpfcn(double a, double b) { return ((a) <= (b))? (((a) == (b))? 0 : -1) : 1; }
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
  118 | 
      |                                                                    
  119 | 
      |                                                                    
  120 | // math functions with error checking defined in oc/SRC/math.c
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~     
  121 | extern "C" {
      | ~~~~~~~~~~~~                                                       
  122 |   extern double hoc_Log(double x), hoc_Log10(double x), hoc_Exp(double x), hoc_Sqrt(double x);
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
  123 |   extern double hoc_scan(FILE*);
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                                   
  124 | }
      | ~                                                                  
  125 | 
      |                                                                    
  126 | static int narg() {
      | ~~~~~~~~~~~~~~~~~~~                                                
  127 |   int i=0;
      |   ~~~~~~~~                                                         
  128 |   while (ifarg(i++));
      |   ~~~~~~~~~~~~~~~~~~~                                              
  129 |   return i-2;
      |   ~~~~~~~~~~~                                                      
  130 | }
      | ~                                                                  
  131 | 
      |                                                                    
  132 | #define MAX_FIT_PARAMS 20
      | ~~~~~~~~~~~~~~~~~~~~~~~~~                                          
  133 | 
      |                                                                    
  134 | #define TWO_BYTE_HIGH  65535.
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                                      
  135 | #define ONE_BYTE_HIGH  255.
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~                                        
  136 | #define ONE_BYTE_HALF  128.
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~                                        
  137 | 
      |                                                                    
  138 | #define EPSILON 1e-9
      | ~~~~~~~~~~~~~~~~~~~~                                               
  139 | 
      |                                                                    
  140 | extern "C" {
      | ~~~~~~~~~~~~                                                       
  141 |  extern void notify_freed_val_array(double*, size_t);
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~              
  142 |  extern void install_vector_method(const char* name, Pfrd_vp);
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~     
  143 |  extern int vector_instance_px(void*, double**);
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                   
  144 |  extern int vector_arg_px(int, double**);
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                          
  145 |         extern int nrn_mlh_gsort (double* vec, int *base_ptr, int total_elems, doubleComparator cmp);
      |         ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
  146 | };
      | ~~                                                                 
  147 | 
      |                                                                    
  148 | extern "C" int hoc_return_type_code;
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                               
  149 | 
      |                                                                    
  150 | IvocVect::IvocVect(Object* o) : ParentVect(){obj_ = o; label_ = NULL; MUTCONSTRUCT(0)}
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
  151 | IvocVect::IvocVect(int l, Object* o) : ParentVect(l){obj_ = o; label_ = NULL; MUTCONSTRUCT(0)}
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
  152 | IvocVect::IvocVect(int l, double fill_value, Object* o) : ParentVect(l, fill_value){obj_ = o; label_ = NULL; MUTCONSTRUCT(0)}
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
  153 | IvocVect::IvocVect(IvocVect& v, Object* o) : ParentVect(v) {obj_ = o; label_ = NULL; MUTCONSTRUCT(0)}
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
  154 | 
      |                                                                    
  155 | IvocVect::~IvocVect(){
      | ~~~~~~~~~~~~~~~~~~~~~~                                             
  156 |  MUTDESTRUCT
      |  ~~~~~~~~~~~                                                       
  157 |  if (label_) {
      |  ~~~~~~~~~~~~~                                                     
  158 |   delete [] label_;
      |   ~~~~~~~~~~~~~~~~~                                                
  159 |  }
      |  ~                                                                 
  160 |  notify_freed_val_array(vec(), capacity());
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                        
  161 | }
      | ~                                                                  
  162 | 
      |                                                                    
  163 | void IvocVect::label(const char* label) {
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                          
  164 |  if (label_) {
      |  ~~~~~~~~~~~~~                                                     
  165 |   delete [] label_;
      |   ~~~~~~~~~~~~~~~~~                                                
  166 |   label_ = NULL;
      |   ~~~~~~~~~~~~~~                                                   
  167 |  }
      |  ~                                                                 
  168 |  if (label) {
      |  ~~~~~~~~~~~~                                                      
  169 |   label_ = new char[strlen(label) + 1];
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                            
  170 |   strcpy(label_, label);
      |   ~~~~~~~~~~~~~~~~~~~~~~                                           
  171 |  }
      |  ~                                                                 
  172 | }
      | ~                                                                  
  173 | 
      |                                                                    
  174 | static const char* nullstr = "";
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                                   
  175 | 
      |                                                                    
  176 | static const char** v_label(void* v) {
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                             
  177 |  Vect* x  = (Vect*)v;
      |  ~~~~~~~~~~~~~~~~~~~~                                              
  178 |  if (ifarg(1)) {
      |  ~~~~~~~~~~~~~~~                                                   
  179 |   x->label(gargstr(1));
      |   ~~~~~~~~~~~~~~~~~~~~~                                            
  180 |  }
      |  ~                                                                 
  181 |  if (x->label_) {
      |  ~~~~~~~~~~~~~~~~                                                  
  182 |   return (const char**)&x->label_;
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                                 
  183 |  }
      |  ~                                                                 
  184 |  return &nullstr;
      |  ~~~~~~~~~~~~~~~~                                                  
  185 | }
      | ~                                                                  
  186 | 
      |                                                                    
  187 | static void same_err(const char* s, Vect* x, Vect* y) {
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~            
  188 |  if (x == y) {
      |  ~~~~~~~~~~~~~                                                     
  189 |   hoc_execerror(s, " argument needs to be copied first");
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~          
  190 |  }
      |  ~                                                                 
  191 | }
      | ~                                                                  
  192 | 
      |                                                                    
  193 | /* the Vect->at(start, end) function was used in about a dozen places
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
  194 | for the purpose of dealing with a subrange of elements. However that
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
  195 | function clones the subrange and returns a new Vect. This caused a
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ 
  196 | memory leak and was needlessly inefficient for those functions.
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~    
  197 | To fix both problems for these specific functions
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                  
  198 | we use a special vector which does not have
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                        
  199 | it's own space but merely a pointer and capacity to the right space of
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
  200 | the original vector. The usage is restricted to only once at a time, i.e.
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
  201 | can't use two subvecs at once and never do anything which affects the
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
  202 | memory space.
      | ~~~~~~~~~~~~~                                                      
  203 | */
      | ~~                                                                 
  204 | 
      |                                                                    
  205 | static IvocVect* subvec_; // allocated when registered.
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~            
  206 | IvocVect* IvocVect::subvec(int start, int end) {
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                   
  207 |  subvec_->len = end - start + 1;
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                                   
  208 |  subvec_->s = s + start;
      |  ~~~~~~~~~~~~~~~~~~~~~~~                                           
  209 |  return subvec_;
      |  ~~~~~~~~~~~~~~~                                                   
  210 | }
      | ~                                                                  
  211 | 
      |                                                                    
  212 | void IvocVect::resize(int newlen) { // all that for this
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~           
  213 |  long oldcap = capacity();
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~                                         
  214 |  if (newlen > space) {
      |  ~~~~~~~~~~~~~~~~~~~~~                                             
  215 |   notify_freed_val_array(vec(), capacity());
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                       
  216 |  }
      |  ~                                                                 
  217 |  ParentVect::resize(newlen);
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~                                       
  218 |  for (;oldcap < newlen; ++oldcap) {
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                                
  219 |   elem(oldcap) = 0.;
      |   ~~~~~~~~~~~~~~~~~~                                               
  220 |  }
      |  ~                                                                 
  221 | }
      | ~                                                                  
  222 | 
      |                                                                    
  223 | void IvocVect::resize_chunk(int newlen, int extra) {
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~               
  224 |  if (newlen > space) {
      |  ~~~~~~~~~~~~~~~~~~~~~                                             
  225 |   long x = newlen + extra;
      |   ~~~~~~~~~~~~~~~~~~~~~~~~                                         
  226 |   if (extra == 0) {
      |   ~~~~~~~~~~~~~~~~~                                                
  227 |    x = ListImpl_best_new_count(newlen, sizeof(double));
      |    ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~            
  228 |   }
      |   ~                                                                
  229 | //  printf("resize_chunk %d\n", x);
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                                
  230 |   resize(x);
      |   ~~~~~~~~~~                                                       
  231 |  }
      |  ~                                                                 
  232 |  resize(newlen);
      |  ~~~~~~~~~~~~~~~                                                   
  233 | }
      | ~                                                                  
  234 | 
      |                                                                    
  235 | #if HAVE_IV
      | ~~~~~~~~~~~                                                        
  236 | /*static*/ class GraphMarkItem : public GraphItem {
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                
  237 | public:
      | ~~~~~~~                                                            
  238 |  GraphMarkItem(Glyph* g) : GraphItem(g){}
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                          
  239 |  virtual ~GraphMarkItem(){};
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~                                       
  240 |  virtual void erase(Scene* s, GlyphIndex i, int type) {
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~            
  241 |   if (type & GraphItem::ERASE_LINE) {
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                              
  242 |    s->remove(i);
      |    ~~~~~~~~~~~~~                                                   
  243 |   }
      |   ~                                                                
  244 |  }
      |  ~                                                                 
  245 | };
      | ~~                                                                 
  246 | #endif
      | ~~~~~~                                                             
  247 | 
      |                                                                    
  248 | static void* v_cons(Object* o) {
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                                   
  249 |  double fill_value = 0.;
      |  ~~~~~~~~~~~~~~~~~~~~~~~                                           
  250 |  int n = 0;
      |  ~~~~~~~~~~                                                        
  251 |  Vect* vec;
      |  ~~~~~~~~~~                                                        
  252 |  if (ifarg(1)) {
      |  ~~~~~~~~~~~~~~~                                                   
  253 |   if (hoc_is_double_arg(1)) {
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~                                      
  254 |    n = int(chkarg(1,0,1e10));
      |    ~~~~~~~~~~~~~~~~~~~~~~~~~~                                      
  255 |    if (ifarg(2)) fill_value = *getarg(2);
      |    ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                          
  256 |    vec =  new Vect(n,fill_value, o);
      |    ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                               
  257 |   }else{
      |   ~~~~~~                                                           
  258 |    if (!nrnpy_vec_from_python_p_) {
      |    ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                                
  259 |     hoc_execerror("Python not available", 0);
      |     ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                      
  260 |    }
      |    ~                                                               
  261 |    vec = (*nrnpy_vec_from_python_p_)(new Vect(0, 0, o));
      |    ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~           
  262 |   }
      |   ~                                                                
  263 |  }else{
      |  ~~~~~~                                                            
  264 |   vec = new Vect(0, 0, o);
      |   ~~~~~~~~~~~~~~~~~~~~~~~~                                         
  265 |  }
      |  ~                                                                 
  266 |  return vec;
      |  ~~~~~~~~~~~                                                       
  267 | }
      | ~                                                                  
  268 | 
      |                                                                    
  269 | 
      |                                                                    
  270 | static void v_destruct(void* v) {
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                                  
  271 |  delete (Vect*)v;
      |  ~~~~~~~~~~~~~~~~                                                  
  272 | }
      | ~                                                                  
  273 | 
      |                                                                    
  274 | static Symbol* svec_;
      | ~~~~~~~~~~~~~~~~~~~~~                                              
  275 | 
      |                                                                    
  276 | // extern "C" vector functions used by ocmatrix.dll
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                
  277 | // can also be used in mod files
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                                   
  278 | Vect* vector_new(int n, Object* o){return new Vect(n, o);}
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~         
  279 | Vect* vector_new0(){return new Vect();}
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                            
  280 | Vect* vector_new1(int n){return new Vect(n);}
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                      
  281 | Vect* vector_new2(Vect* v){return new Vect(*v);}
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                   
  282 | void vector_delete(Vect* v){delete v;}
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                             
  283 | int vector_buffer_size(Vect* v){return v->buffer_size();}
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~          
  284 | int vector_capacity(Vect* v){return v->capacity();}
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                
  285 | void vector_resize(Vect* v, int n){v->resize(n);}
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                  
  286 | Object** vector_temp_objvar(Vect* v){return v->temp_objvar();}
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~     
  287 | double* vector_vec(Vect* v){return v->vec();}
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                      
  288 | Object** vector_pobj(Vect* v){return &v->obj_;}
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                    
  289 | char* vector_get_label(Vect* v) { return v->label_; }
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~              
  290 | void vector_set_label(Vect* v, char* s) { v->label(s); }
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~           
  291 | void vector_append(Vect* v, double x){
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                             
  292 |   long n = v->capacity();
      |   ~~~~~~~~~~~~~~~~~~~~~~~                                          
  293 |   v->resize_chunk(n+1);
      |   ~~~~~~~~~~~~~~~~~~~~~                                            
  294 |   v->elem(n) = x;
      |   ~~~~~~~~~~~~~~~                                                  
  295 | }
      | ~                                                                  
  296 | 
      |                                                                    
  297 | #ifdef WIN32
      | ~~~~~~~~~~~~                                                       
  298 | #if !defined(USEMATRIX) || USEMATRIX == 0
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                          
  299 | #include "../windll/dll.h"
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~                                         
  300 | extern "C" {extern char* neuron_home;}
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                             
  301 | 
      |                                                                    
  302 | void load_ocmatrix() {
      | ~~~~~~~~~~~~~~~~~~~~~~                                             
  303 |  struct DLL* dll = NULL;
      |  ~~~~~~~~~~~~~~~~~~~~~~~                                           
  304 |  char buf[256];
      |  ~~~~~~~~~~~~~~                                                    
  305 |  sprintf(buf, "%s\\lib\\ocmatrix.dll", neuron_home);
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~               
  306 |  dll = dll_load(buf);
      |  ~~~~~~~~~~~~~~~~~~~~                                              
  307 |  if (dll) {
      |  ~~~~~~~~~~                                                        
  308 |   Pfri mreg = (Pfri)dll_lookup(dll, "_Matrix_reg");
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                
  309 |   if (mreg) {
      |   ~~~~~~~~~~~                                                      
  310 |    (*mreg)();
      |    ~~~~~~~~~~                                                      
  311 |   }
      |   ~                                                                
  312 |  }else{
      |  ~~~~~~                                                            
  313 |   printf("No Matrix class.\n");
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                                    
  314 |  }
      |  ~                                                                 
  315 | }
      | ~                                                                  
  316 | #endif
      | ~~~~~~                                                             
  317 | #endif
      | ~~~~~~                                                             
  318 | 
      |                                                                    
  319 | Object** IvocVect::temp_objvar() {
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                                 
  320 |  IvocVect* v = (IvocVect*)this;
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                                    
  321 |  Object** po;
      |  ~~~~~~~~~~~~                                                      
  322 |  if (v->obj_) {
      |  ~~~~~~~~~~~~~~                                                    
  323 |   po = hoc_temp_objptr(v->obj_);
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                                   
  324 |  }else{
      |  ~~~~~~                                                            
  325 |   po = hoc_temp_objvar(svec_, (void*)v);
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                           
  326 |   obj_ = *po;
      |   ~~~~~~~~~~~                                                      
  327 |  }
      |  ~                                                                 
  328 |  return po;
      |  ~~~~~~~~~~                                                        
  329 | }
      | ~                                                                  
  330 | 
      |                                                                    
  331 | extern "C" { // bug in cray compiler requires this
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                 
  332 | void install_vector_method(const char* name, double (*f)(void*)) {
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ 
  333 |  Symbol* s_meth;
      |  ~~~~~~~~~~~~~~~                                                   
  334 |  if (hoc_table_lookup(name, svec_->u.ctemplate->symtable)) {
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~       
  335 |   hoc_execerror(name, " already a method in the Vector class");
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~    
  336 |  }
      |  ~                                                                 
  337 |  s_meth = hoc_install(name, FUNCTION, 0.0, &svec_->u.ctemplate->symtable);
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
  338 |  s_meth->u.u_proc->defn.pfd = (Pfrd)f;
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                             
  339 | #define PUBLIC_TYPE 1
      | ~~~~~~~~~~~~~~~~~~~~~                                              
  340 |  s_meth->cpublic = PUBLIC_TYPE;
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                                    
  341 | }
      | ~                                                                  
  342 | }
      | ~                                                                  
  343 | 
      |                                                                    
  344 | int vector_instance_px(void* v, double** px) {
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                     
  345 |  Vect* x = (Vect*)v;
      |  ~~~~~~~~~~~~~~~~~~~                                               
  346 |  *px = x->vec();
      |  ~~~~~~~~~~~~~~~                                                   
  347 |  return x->capacity();
      |  ~~~~~~~~~~~~~~~~~~~~~                                             
  348 | }
      | ~                                                                  
  349 | 
      |                                                                    
  350 | Vect* vector_arg(int i) {
      | ~~~~~~~~~~~~~~~~~~~~~~~~~                                          
  351 |  Object* ob = *hoc_objgetarg(i);
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                                   
  352 |  if (!ob || ob->ctemplate != svec_->u.ctemplate) {
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                 
  353 |   check_obj_type(ob, "Vector");
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                                    
  354 |  }
      |  ~                                                                 
  355 |  return (Vect*)(ob->u.this_pointer);
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                               
  356 | }
      | ~                                                                  
  357 | 
      |                                                                    
  358 | int is_vector_arg(int i) {
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~                                         
  359 |  Object* ob = *hoc_objgetarg(i);
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                                   
  360 |  if (!ob || ob->ctemplate != svec_->u.ctemplate) {
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                 
  361 |   return 0;
      |   ~~~~~~~~~                                                        
  362 |  }
      |  ~                                                                 
  363 |  return 1;
      |  ~~~~~~~~~                                                         
  364 | }
      | ~                                                                  
  365 | 
      |                                                                    
  366 | int vector_arg_px(int i, double** px) {
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                            
  367 |  Vect* x = vector_arg(i);
      |  ~~~~~~~~~~~~~~~~~~~~~~~~                                          
  368 |  *px = x->vec();
      |  ~~~~~~~~~~~~~~~                                                   
  369 |  return x->capacity();
      |  ~~~~~~~~~~~~~~~~~~~~~                                             
  370 | }
      | ~                                                                  
  371 | 
      |                                                                    
  372 | extern void nrn_vecsim_add(void*, bool);
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                           
  373 | extern void nrn_vecsim_remove(void*);
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                              
  374 | 
      |                                                                    
  375 | static int possible_destvec(int arg, Vect*& dest) {
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                
  376 |  if (ifarg(arg) && hoc_is_object_arg(arg)) {
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                       
  377 |    dest = vector_arg(arg);
      |    ~~~~~~~~~~~~~~~~~~~~~~~                                         
  378 |    return arg+1;
      |    ~~~~~~~~~~~~~                                                   
  379 |  }else{
      |  ~~~~~~                                                            
  380 |   dest = new Vect();
      |   ~~~~~~~~~~~~~~~~~~                                               
  381 |   return arg;
      |   ~~~~~~~~~~~                                                      
  382 |  }
      |  ~                                                                 
  383 | }
      | ~                                                                  
  384 | 
      |                                                                    
  385 | static double v_play_remove(void* v) {
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                             
  386 |  nrn_vecsim_remove(v);
      |  ~~~~~~~~~~~~~~~~~~~~~                                             
  387 |  return 1.;
      |  ~~~~~~~~~~                                                        
  388 | }
      | ~                                                                  
  389 | 
      |                                                                    
  390 | static double v_fwrite(void* v) {
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                                  
  391 |  Vect* vp = (Vect*)v;
      |  ~~~~~~~~~~~~~~~~~~~~                                              
  392 |  void* s;
      |  ~~~~~~~~                                                          
  393 |  int x_max = vp->capacity()-1;
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                                     
  394 |  int start = 0;
      |  ~~~~~~~~~~~~~~                                                    
  395 |  int end = x_max;
      |  ~~~~~~~~~~~~~~~~                                                  
  396 |  hoc_return_type_code = 1; // integer
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                              
  397 |  if (ifarg(2)) {
      |  ~~~~~~~~~~~~~~~                                                   
  398 |    start = int(chkarg(2,0,x_max));
      |    ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                                 
  399 |    end = int(chkarg(3,0,x_max));
      |    ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                                   
  400 |  }
      |  ~                                                                 
  401 |  s = (void*)(&vp->elem(start));
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                                    
  402 |  const char* x = (const char*)s;
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                                   
  403 | 
      |                                                                    
  404 |     Object* ob = *hoc_objgetarg(1);
      |     ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                                
  405 |     check_obj_type(ob, "File");
      |     ~~~~~~~~~~~~~~~~~~~~~~~~~~~                                    
  406 |     OcFile* f = (OcFile*)(ob->u.this_pointer);
      |     ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                     
  407 |  FILE* fp = f->file();
      |  ~~~~~~~~~~~~~~~~~~~~~                                             
  408 |  if (!fp) {
      |  ~~~~~~~~~~                                                        
  409 |   return 0.;
      |   ~~~~~~~~~~                                                       
  410 |  }
      |  ~                                                                 
  411 |  int n = end-start+1;
      |  ~~~~~~~~~~~~~~~~~~~~                                              
  412 |  BinaryMode(f);
      |  ~~~~~~~~~~~~~~                                                    
  413 |  return (double)fwrite(x,sizeof(double),n,fp);
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                     
  414 | }
      | ~                                                                  
  415 | 
      |                                                                    
  416 | static double v_fread(void* v) {
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                                   
  417 |  Vect* vp = (Vect*)v;
      |  ~~~~~~~~~~~~~~~~~~~~                                              
  418 |  void* s = (void*)(vp->vec());
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                                     
  419 | 
      |                                                                    
  420 |         Object* ob = *hoc_objgetarg(1);
      |         ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                            
  421 | 
      |                                                                    
  422 |  check_obj_type(ob, "File");
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~                                       
  423 |  OcFile* f = (OcFile*)(ob->u.this_pointer);
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                        
  424 | 
      |                                                                    
  425 |  if (ifarg(2)) vp->resize(int(chkarg(2,0,1e10)));
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                  
  426 |  int n = vp->capacity();
      |  ~~~~~~~~~~~~~~~~~~~~~~~                                           
  427 | 
      |                                                                    
  428 |         int type = 4;
      |         ~~~~~~~~~~~~~                                              
  429 |  if (ifarg(3)) {
      |  ~~~~~~~~~~~~~~~                                                   
  430 |            type = int(chkarg(3,1,5));
      |            ~~~~~~~~~~~~~~~~~~~~~~~~~~                              
  431 |         }
      |         ~                                                          
  432 | 
      |                                                                    
  433 |  FILE* fp = f->file();
      |  ~~~~~~~~~~~~~~~~~~~~~                                             
  434 |  if (!fp) {
      |  ~~~~~~~~~~                                                        
  435 |   return 0.;
      |   ~~~~~~~~~~                                                       
  436 |  }
      |  ~                                                                 
  437 | 
      |                                                                    
  438 |  int i;
      |  ~~~~~~                                                            
  439 |  BinaryMode(f)
      |  ~~~~~~~~~~~~~                                                     
  440 |  if (n > 0) switch (type) {
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~                                        
  441 | 
      |                                                                    
  442 |         case 5:         // short ints
      |         ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                              
  443 |         {
      |         ~                                                          
  444 |            short *xs = (short *)malloc(n * (unsigned)sizeof(short));
      |            ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
  445 |            FRead(xs,sizeof(short),n,fp);
      |            ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                           
  446 |            for (i=0;i<n;++i) {
      |            ~~~~~~~~~~~~~~~~~~~                                     
  447 |       vp->elem(i) = double(xs[i]);
      |       ~~~~~~~~~~~~~~~~~~~~~~~~~~~~                                 
  448 |     }
      |     ~                                                              
  449 |            free((char *)xs);
      |            ~~~~~~~~~~~~~~~~~                                       
  450 |            break;
      |            ~~~~~~                                                  
  451 |         }
      |         ~                                                          
  452 | 
      |                                                                    
  453 |         case 4:        // doubles
      |         ~~~~~~~~~~~~~~~~~~~~~~~~~                                  
  454 |            FRead(&(vp->elem(0)),sizeof(double),n,fp);
      |            ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~              
  455 |            break;
      |            ~~~~~~                                                  
  456 | 
      |                                                                    
  457 |         case 3:         // floats
      |         ~~~~~~~~~~~~~~~~~~~~~~~~~                                  
  458 |  {
      |  ~                                                                 
  459 |            float *xf = (float *)malloc(n * (unsigned)sizeof(float));
      |            ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
  460 |            FRead(xf,sizeof(float),n,fp);
      |            ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                           
  461 |            for (i=0;i<n;++i) {
      |            ~~~~~~~~~~~~~~~~~~~                                     
  462 |       vp->elem(i) = double(xf[i]);
      |       ~~~~~~~~~~~~~~~~~~~~~~~~~~~~                                 
  463 |     }
      |     ~                                                              
  464 |            free((char *)xf);
      |            ~~~~~~~~~~~~~~~~~                                       
  465 |            break;
      |            ~~~~~~                                                  
  466 |         }
      |         ~                                                          
  467 | 
      |                                                                    
  468 |         case 2:         // unsigned short ints
      |         ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                     
  469 |         {
      |         ~                                                          
  470 | 
      |                                                                    
  471 |            unsigned short *xi = (unsigned short *)malloc(n * (unsigned)sizeof(unsigned short));
      |            ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
  472 |            FRead(xi,sizeof(unsigned short),n,fp);
      |            ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                  
  473 |            for (i=0;i<n;++i) {
      |            ~~~~~~~~~~~~~~~~~~~                                     
  474 |       vp->elem(i) = double(xi[i]);
      |       ~~~~~~~~~~~~~~~~~~~~~~~~~~~~                                 
  475 |     }
      |     ~                                                              
  476 |            free((char *)xi);
      |            ~~~~~~~~~~~~~~~~~                                       
  477 |            break;
      |            ~~~~~~                                                  
  478 |         }
      |         ~                                                          
  479 | 
      |                                                                    
  480 |         case 1:         // char
      |         ~~~~~~~~~~~~~~~~~~~~~~~                                    
  481 |         {
      |         ~                                                          
  482 |            char *xc = (char *)malloc(n * (unsigned)sizeof(char));
      |            ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~  
  483 |            FRead(xc,sizeof(char),n,fp);
      |            ~~~~~~~~~~~~~~~~~~~~~~~                                 
/builddir/build/BUILD/nrn-7.8.1/src/ivoc/ivocvect.cpp:483:12: note: in expansion of macro 'FRead'
  483 |            FRead(xc,sizeof(char),n,fp);
      |            ^~~~~
/builddir/build/BUILD/nrn-7.8.1/src/ivoc/ivocvect.cpp:418:8: warning: unused variable 's' [-Wunused-variable]
  418 |  void* s = (void*)(vp->vec());
      |        ^
/builddir/build/BUILD/nrn-7.8.1/src/ivoc/ivocvect.cpp: In function 'double v_vwrite(void*)':
/builddir/build/BUILD/nrn-7.8.1/src/ivoc/ivocvect.cpp:66:69: warning: comparison of integer expressions of different signedness: 'size_t' {aka 'long unsigned int'} and 'int' [-Wsign-compare]
   66 | #define FWrite(arg1,arg2,arg3,arg4) if (fwrite(arg1,arg2,arg3,arg4) != arg3){}
      |                                         ~~~~~~~~~~~~~~~~~~~~~~~~~~~~^~~~~~~~~~
   67 | #define FRead(arg1,arg2,arg3,arg4) if (fread(arg1,arg2,arg3,arg4) != arg3) {}
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
   68 | #endif
      | ~~~~~~                                                               
   69 | 
      |                                                                      
   70 | static double dmaxint_;
      | ~~~~~~~~~~~~~~~~~~~~~~~                                              
   71 | 
      |                                                                      
   72 | // Definitions allow machine independent write and read
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~              
   73 | // note that must include BYTEHEADER at head of routine
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~              
   74 | // The policy is that each machine vwrite binary information in
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~      
   75 | // without swapping, ie. native endian.
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                              
   76 | // On reading, the type is checked to decide whether
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                 
   77 | // byteswapping should be performed
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                                  
   78 | 
      |                                                                      
   79 | #define BYTEHEADER int _II__;  char *_IN__; char _OUT__[16]; int BYTESWAP_FLAG=0;
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
   80 | #define BYTESWAP(_X__,_TYPE__) \
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                                     
   81 |     if (BYTESWAP_FLAG == 1) { \
      |     ~~~~~~~~~~~~~~~~~~~~~~~~~~~                                      
   82 |  _IN__ = (char *) &(_X__); \
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~                                         
   83 |  for (_II__=0;_II__<sizeof(_TYPE__);_II__++) { \
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                     
   84 |   _OUT__[_II__] = _IN__[sizeof(_TYPE__)-_II__-1]; } \
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                
   85 |  (_X__) = *((_TYPE__ *) &_OUT__); \
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                                  
   86 |     }
      |     ~                                                                
   87 | 
      |                                                                      
   88 | #include "ivocvect.h"
      | ~~~~~~~~~~~~~~~~~~~~~                                                
   89 | 
      |                                                                      
   90 | // definition of SampleHistogram from the gnu c++ class library
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~      
   91 | #include <SmplHist.h>
      | ~~~~~~~~~~~~~~~~~~~~~                                                
   92 | 
      |                                                                      
   93 | // definition of random numer generator
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                              
   94 | #include "random1.h"
      | ~~~~~~~~~~~~~~~~~~~~                                                 
   95 | #include <Uniform.h>
      | ~~~~~~~~~~~~~~~~~~~~                                                 
   96 | 
      |                                                                      
   97 | // definition of comparison functions
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                                
   98 | #include <d_defs.h>
      | ~~~~~~~~~~~~~~~~~~~                                                  
   99 | 
      |                                                                      
  100 | #if HAVE_IV
      | ~~~~~~~~~~~                                                          
  101 | #include "utility.h"
      | ~~~~~~~~~~~~~~~~~~~~                                                 
  102 | #endif
      | ~~~~~~                                                               
  103 | #include "oc2iv.h"
      | ~~~~~~~~~~~~~~~~~~                                                   
  104 | #include "parse.h"
      | ~~~~~~~~~~~~~~~~~~                                                   
  105 | #include "ocfile.h"
      | ~~~~~~~~~~~~~~~~~~~                                                  
  106 | 
      |                                                                      
  107 | extern "C" {
      | ~~~~~~~~~~~~                                                         
  108 | extern Object* hoc_thisobject;
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                                       
  109 | extern Symlist* hoc_top_level_symlist;
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                               
  110 | extern void nrn_exit(int);
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~                                           
  111 | IvocVect* (*nrnpy_vec_from_python_p_)(void*);
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                        
  112 | Object** (*nrnpy_vec_to_python_p_)(void*);
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                           
  113 | Object** (*nrnpy_vec_as_numpy_helper_)(int, double*);
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                
  114 | };
      | ~~                                                                   
  115 | 
      |                                                                      
  116 | 
      |                                                                      
  117 | int cmpfcn(double a, double b) { return ((a) <= (b))? (((a) == (b))? 0 : -1) : 1; }
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
  118 | 
      |                                                                      
  119 | 
      |                                                                      
  120 | // math functions with error checking defined in oc/SRC/math.c
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~       
  121 | extern "C" {
      | ~~~~~~~~~~~~                                                         
  122 |   extern double hoc_Log(double x), hoc_Log10(double x), hoc_Exp(double x), hoc_Sqrt(double x);
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
  123 |   extern double hoc_scan(FILE*);
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                                     
  124 | }
      | ~                                                                    
  125 | 
      |                                                                      
  126 | static int narg() {
      | ~~~~~~~~~~~~~~~~~~~                                                  
  127 |   int i=0;
      |   ~~~~~~~~                                                           
  128 |   while (ifarg(i++));
      |   ~~~~~~~~~~~~~~~~~~~                                                
  129 |   return i-2;
      |   ~~~~~~~~~~~                                                        
  130 | }
      | ~                                                                    
  131 | 
      |                                                                      
  132 | #define MAX_FIT_PARAMS 20
      | ~~~~~~~~~~~~~~~~~~~~~~~~~                                            
  133 | 
      |                                                                      
  134 | #define TWO_BYTE_HIGH  65535.
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                                        
  135 | #define ONE_BYTE_HIGH  255.
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~                                          
  136 | #define ONE_BYTE_HALF  128.
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~                                          
  137 | 
      |                                                                      
  138 | #define EPSILON 1e-9
      | ~~~~~~~~~~~~~~~~~~~~                                                 
  139 | 
      |                                                                      
  140 | extern "C" {
      | ~~~~~~~~~~~~                                                         
  141 |  extern void notify_freed_val_array(double*, size_t);
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                
  142 |  extern void install_vector_method(const char* name, Pfrd_vp);
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~       
  143 |  extern int vector_instance_px(void*, double**);
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                     
  144 |  extern int vector_arg_px(int, double**);
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                            
  145 |         extern int nrn_mlh_gsort (double* vec, int *base_ptr, int total_elems, doubleComparator cmp);
      |         ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
  146 | };
      | ~~                                                                   
  147 | 
      |                                                                      
  148 | extern "C" int hoc_return_type_code;
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                                 
  149 | 
      |                                                                      
  150 | IvocVect::IvocVect(Object* o) : ParentVect(){obj_ = o; label_ = NULL; MUTCONSTRUCT(0)}
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
  151 | IvocVect::IvocVect(int l, Object* o) : ParentVect(l){obj_ = o; label_ = NULL; MUTCONSTRUCT(0)}
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
  152 | IvocVect::IvocVect(int l, double fill_value, Object* o) : ParentVect(l, fill_value){obj_ = o; label_ = NULL; MUTCONSTRUCT(0)}
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
  153 | IvocVect::IvocVect(IvocVect& v, Object* o) : ParentVect(v) {obj_ = o; label_ = NULL; MUTCONSTRUCT(0)}
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
  154 | 
      |                                                                      
  155 | IvocVect::~IvocVect(){
      | ~~~~~~~~~~~~~~~~~~~~~~                                               
  156 |  MUTDESTRUCT
      |  ~~~~~~~~~~~                                                         
  157 |  if (label_) {
      |  ~~~~~~~~~~~~~                                                       
  158 |   delete [] label_;
      |   ~~~~~~~~~~~~~~~~~                                                  
  159 |  }
      |  ~                                                                   
  160 |  notify_freed_val_array(vec(), capacity());
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                          
  161 | }
      | ~                                                                    
  162 | 
      |                                                                      
  163 | void IvocVect::label(const char* label) {
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                            
  164 |  if (label_) {
      |  ~~~~~~~~~~~~~                                                       
  165 |   delete [] label_;
      |   ~~~~~~~~~~~~~~~~~                                                  
  166 |   label_ = NULL;
      |   ~~~~~~~~~~~~~~                                                     
  167 |  }
      |  ~                                                                   
  168 |  if (label) {
      |  ~~~~~~~~~~~~                                                        
  169 |   label_ = new char[strlen(label) + 1];
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                              
  170 |   strcpy(label_, label);
      |   ~~~~~~~~~~~~~~~~~~~~~~                                             
  171 |  }
      |  ~                                                                   
  172 | }
      | ~                                                                    
  173 | 
      |                                                                      
  174 | static const char* nullstr = "";
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                                     
  175 | 
      |                                                                      
  176 | static const char** v_label(void* v) {
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                               
  177 |  Vect* x  = (Vect*)v;
      |  ~~~~~~~~~~~~~~~~~~~~                                                
  178 |  if (ifarg(1)) {
      |  ~~~~~~~~~~~~~~~                                                     
  179 |   x->label(gargstr(1));
      |   ~~~~~~~~~~~~~~~~~~~~~                                              
  180 |  }
      |  ~                                                                   
  181 |  if (x->label_) {
      |  ~~~~~~~~~~~~~~~~                                                    
  182 |   return (const char**)&x->label_;
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                                   
  183 |  }
      |  ~                                                                   
  184 |  return &nullstr;
      |  ~~~~~~~~~~~~~~~~                                                    
  185 | }
      | ~                                                                    
  186 | 
      |                                                                      
  187 | static void same_err(const char* s, Vect* x, Vect* y) {
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~              
  188 |  if (x == y) {
      |  ~~~~~~~~~~~~~                                                       
  189 |   hoc_execerror(s, " argument needs to be copied first");
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~            
  190 |  }
      |  ~                                                                   
  191 | }
      | ~                                                                    
  192 | 
      |                                                                      
  193 | /* the Vect->at(start, end) function was used in about a dozen places
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
  194 | for the purpose of dealing with a subrange of elements. However that
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ 
  195 | function clones the subrange and returns a new Vect. This caused a
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~   
  196 | memory leak and was needlessly inefficient for those functions.
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~      
  197 | To fix both problems for these specific functions
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                    
  198 | we use a special vector which does not have
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                          
  199 | it's own space but merely a pointer and capacity to the right space of
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
  200 | the original vector. The usage is restricted to only once at a time, i.e.
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
  201 | can't use two subvecs at once and never do anything which affects the
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
  202 | memory space.
      | ~~~~~~~~~~~~~                                                        
  203 | */
      | ~~                                                                   
  204 | 
      |                                                                      
  205 | static IvocVect* subvec_; // allocated when registered.
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~              
  206 | IvocVect* IvocVect::subvec(int start, int end) {
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                     
  207 |  subvec_->len = end - start + 1;
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                                     
  208 |  subvec_->s = s + start;
      |  ~~~~~~~~~~~~~~~~~~~~~~~                                             
  209 |  return subvec_;
      |  ~~~~~~~~~~~~~~~                                                     
  210 | }
      | ~                                                                    
  211 | 
      |                                                                      
  212 | void IvocVect::resize(int newlen) { // all that for this
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~             
  213 |  long oldcap = capacity();
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~                                           
  214 |  if (newlen > space) {
      |  ~~~~~~~~~~~~~~~~~~~~~                                               
  215 |   notify_freed_val_array(vec(), capacity());
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                         
  216 |  }
      |  ~                                                                   
  217 |  ParentVect::resize(newlen);
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~                                         
  218 |  for (;oldcap < newlen; ++oldcap) {
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                                  
  219 |   elem(oldcap) = 0.;
      |   ~~~~~~~~~~~~~~~~~~                                                 
  220 |  }
      |  ~                                                                   
  221 | }
      | ~                                                                    
  222 | 
      |                                                                      
  223 | void IvocVect::resize_chunk(int newlen, int extra) {
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                 
  224 |  if (newlen > space) {
      |  ~~~~~~~~~~~~~~~~~~~~~                                               
  225 |   long x = newlen + extra;
      |   ~~~~~~~~~~~~~~~~~~~~~~~~                                           
  226 |   if (extra == 0) {
      |   ~~~~~~~~~~~~~~~~~                                                  
  227 |    x = ListImpl_best_new_count(newlen, sizeof(double));
      |    ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~              
  228 |   }
      |   ~                                                                  
  229 | //  printf("resize_chunk %d\n", x);
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                                  
  230 |   resize(x);
      |   ~~~~~~~~~~                                                         
  231 |  }
      |  ~                                                                   
  232 |  resize(newlen);
      |  ~~~~~~~~~~~~~~~                                                     
  233 | }
      | ~                                                                    
  234 | 
      |                                                                      
  235 | #if HAVE_IV
      | ~~~~~~~~~~~                                                          
  236 | /*static*/ class GraphMarkItem : public GraphItem {
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                  
  237 | public:
      | ~~~~~~~                                                              
  238 |  GraphMarkItem(Glyph* g) : GraphItem(g){}
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                            
  239 |  virtual ~GraphMarkItem(){};
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~                                         
  240 |  virtual void erase(Scene* s, GlyphIndex i, int type) {
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~              
  241 |   if (type & GraphItem::ERASE_LINE) {
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                                
  242 |    s->remove(i);
      |    ~~~~~~~~~~~~~                                                     
  243 |   }
      |   ~                                                                  
  244 |  }
      |  ~                                                                   
  245 | };
      | ~~                                                                   
  246 | #endif
      | ~~~~~~                                                               
  247 | 
      |                                                                      
  248 | static void* v_cons(Object* o) {
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                                     
  249 |  double fill_value = 0.;
      |  ~~~~~~~~~~~~~~~~~~~~~~~                                             
  250 |  int n = 0;
      |  ~~~~~~~~~~                                                          
  251 |  Vect* vec;
      |  ~~~~~~~~~~                                                          
  252 |  if (ifarg(1)) {
      |  ~~~~~~~~~~~~~~~                                                     
  253 |   if (hoc_is_double_arg(1)) {
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~                                        
  254 |    n = int(chkarg(1,0,1e10));
      |    ~~~~~~~~~~~~~~~~~~~~~~~~~~                                        
  255 |    if (ifarg(2)) fill_value = *getarg(2);
      |    ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                            
  256 |    vec =  new Vect(n,fill_value, o);
      |    ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                                 
  257 |   }else{
      |   ~~~~~~                                                             
  258 |    if (!nrnpy_vec_from_python_p_) {
      |    ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                                  
  259 |     hoc_execerror("Python not available", 0);
      |     ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                        
  260 |    }
      |    ~                                                                 
  261 |    vec = (*nrnpy_vec_from_python_p_)(new Vect(0, 0, o));
      |    ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~             
  262 |   }
      |   ~                                                                  
  263 |  }else{
      |  ~~~~~~                                                              
  264 |   vec = new Vect(0, 0, o);
      |   ~~~~~~~~~~~~~~~~~~~~~~~~                                           
  265 |  }
      |  ~                                                                   
  266 |  return vec;
      |  ~~~~~~~~~~~                                                         
  267 | }
      | ~                                                                    
  268 | 
      |                                                                      
  269 | 
      |                                                                      
  270 | static void v_destruct(void* v) {
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                                    
  271 |  delete (Vect*)v;
      |  ~~~~~~~~~~~~~~~~                                                    
  272 | }
      | ~                                                                    
  273 | 
      |                                                                      
  274 | static Symbol* svec_;
      | ~~~~~~~~~~~~~~~~~~~~~                                                
  275 | 
      |                                                                      
  276 | // extern "C" vector functions used by ocmatrix.dll
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                  
  277 | // can also be used in mod files
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                                     
  278 | Vect* vector_new(int n, Object* o){return new Vect(n, o);}
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~           
  279 | Vect* vector_new0(){return new Vect();}
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                              
  280 | Vect* vector_new1(int n){return new Vect(n);}
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                        
  281 | Vect* vector_new2(Vect* v){return new Vect(*v);}
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                     
  282 | void vector_delete(Vect* v){delete v;}
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                               
  283 | int vector_buffer_size(Vect* v){return v->buffer_size();}
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~            
  284 | int vector_capacity(Vect* v){return v->capacity();}
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                  
  285 | void vector_resize(Vect* v, int n){v->resize(n);}
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                    
  286 | Object** vector_temp_objvar(Vect* v){return v->temp_objvar();}
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~       
  287 | double* vector_vec(Vect* v){return v->vec();}
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                        
  288 | Object** vector_pobj(Vect* v){return &v->obj_;}
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                      
  289 | char* vector_get_label(Vect* v) { return v->label_; }
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                
  290 | void vector_set_label(Vect* v, char* s) { v->label(s); }
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~             
  291 | void vector_append(Vect* v, double x){
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                               
  292 |   long n = v->capacity();
      |   ~~~~~~~~~~~~~~~~~~~~~~~                                            
  293 |   v->resize_chunk(n+1);
      |   ~~~~~~~~~~~~~~~~~~~~~                                              
  294 |   v->elem(n) = x;
      |   ~~~~~~~~~~~~~~~                                                    
  295 | }
      | ~                                                                    
  296 | 
      |                                                                      
  297 | #ifdef WIN32
      | ~~~~~~~~~~~~                                                         
  298 | #if !defined(USEMATRIX) || USEMATRIX == 0
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                            
  299 | #include "../windll/dll.h"
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~                                           
  300 | extern "C" {extern char* neuron_home;}
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                               
  301 | 
      |                                                                      
  302 | void load_ocmatrix() {
      | ~~~~~~~~~~~~~~~~~~~~~~                                               
  303 |  struct DLL* dll = NULL;
      |  ~~~~~~~~~~~~~~~~~~~~~~~                                             
  304 |  char buf[256];
      |  ~~~~~~~~~~~~~~                                                      
  305 |  sprintf(buf, "%s\\lib\\ocmatrix.dll", neuron_home);
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                 
  306 |  dll = dll_load(buf);
      |  ~~~~~~~~~~~~~~~~~~~~                                                
  307 |  if (dll) {
      |  ~~~~~~~~~~                                                          
  308 |   Pfri mreg = (Pfri)dll_lookup(dll, "_Matrix_reg");
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                  
  309 |   if (mreg) {
      |   ~~~~~~~~~~~                                                        
  310 |    (*mreg)();
      |    ~~~~~~~~~~                                                        
  311 |   }
      |   ~                                                                  
  312 |  }else{
      |  ~~~~~~                                                              
  313 |   printf("No Matrix class.\n");
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                                      
  314 |  }
      |  ~                                                                   
  315 | }
      | ~                                                                    
  316 | #endif
      | ~~~~~~                                                               
  317 | #endif
      | ~~~~~~                                                               
  318 | 
      |                                                                      
  319 | Object** IvocVect::temp_objvar() {
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                                   
  320 |  IvocVect* v = (IvocVect*)this;
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                                      
  321 |  Object** po;
      |  ~~~~~~~~~~~~                                                        
  322 |  if (v->obj_) {
      |  ~~~~~~~~~~~~~~                                                      
  323 |   po = hoc_temp_objptr(v->obj_);
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                                     
  324 |  }else{
      |  ~~~~~~                                                              
  325 |   po = hoc_temp_objvar(svec_, (void*)v);
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                             
  326 |   obj_ = *po;
      |   ~~~~~~~~~~~                                                        
  327 |  }
      |  ~                                                                   
  328 |  return po;
      |  ~~~~~~~~~~                                                          
  329 | }
      | ~                                                                    
  330 | 
      |                                                                      
  331 | extern "C" { // bug in cray compiler requires this
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                   
  332 | void install_vector_method(const char* name, double (*f)(void*)) {
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~   
  333 |  Symbol* s_meth;
      |  ~~~~~~~~~~~~~~~                                                     
  334 |  if (hoc_table_lookup(name, svec_->u.ctemplate->symtable)) {
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~         
  335 |   hoc_execerror(name, " already a method in the Vector class");
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~      
  336 |  }
      |  ~                                                                   
  337 |  s_meth = hoc_install(name, FUNCTION, 0.0, &svec_->u.ctemplate->symtable);
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
  338 |  s_meth->u.u_proc->defn.pfd = (Pfrd)f;
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                               
  339 | #define PUBLIC_TYPE 1
      | ~~~~~~~~~~~~~~~~~~~~~                                                
  340 |  s_meth->cpublic = PUBLIC_TYPE;
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                                      
  341 | }
      | ~                                                                    
  342 | }
      | ~                                                                    
  343 | 
      |                                                                      
  344 | int vector_instance_px(void* v, double** px) {
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                       
  345 |  Vect* x = (Vect*)v;
      |  ~~~~~~~~~~~~~~~~~~~                                                 
  346 |  *px = x->vec();
      |  ~~~~~~~~~~~~~~~                                                     
  347 |  return x->capacity();
      |  ~~~~~~~~~~~~~~~~~~~~~                                               
  348 | }
      | ~                                                                    
  349 | 
      |                                                                      
  350 | Vect* vector_arg(int i) {
      | ~~~~~~~~~~~~~~~~~~~~~~~~~                                            
  351 |  Object* ob = *hoc_objgetarg(i);
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                                     
  352 |  if (!ob || ob->ctemplate != svec_->u.ctemplate) {
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                   
  353 |   check_obj_type(ob, "Vector");
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                                      
  354 |  }
      |  ~                                                                   
  355 |  return (Vect*)(ob->u.this_pointer);
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                                 
  356 | }
      | ~                                                                    
  357 | 
      |                                                                      
  358 | int is_vector_arg(int i) {
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~                                           
  359 |  Object* ob = *hoc_objgetarg(i);
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                                     
  360 |  if (!ob || ob->ctemplate != svec_->u.ctemplate) {
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                   
  361 |   return 0;
      |   ~~~~~~~~~                                                          
  362 |  }
      |  ~                                                                   
  363 |  return 1;
      |  ~~~~~~~~~                                                           
  364 | }
      | ~                                                                    
  365 | 
      |                                                                      
  366 | int vector_arg_px(int i, double** px) {
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                              
  367 |  Vect* x = vector_arg(i);
      |  ~~~~~~~~~~~~~~~~~~~~~~~~                                            
  368 |  *px = x->vec();
      |  ~~~~~~~~~~~~~~~                                                     
  369 |  return x->capacity();
      |  ~~~~~~~~~~~~~~~~~~~~~                                               
  370 | }
      | ~                                                                    
  371 | 
      |                                                                      
  372 | extern void nrn_vecsim_add(void*, bool);
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                             
  373 | extern void nrn_vecsim_remove(void*);
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                                
  374 | 
      |                                                                      
  375 | static int possible_destvec(int arg, Vect*& dest) {
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                  
  376 |  if (ifarg(arg) && hoc_is_object_arg(arg)) {
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                         
  377 |    dest = vector_arg(arg);
      |    ~~~~~~~~~~~~~~~~~~~~~~~                                           
  378 |    return arg+1;
      |    ~~~~~~~~~~~~~                                                     
  379 |  }else{
      |  ~~~~~~                                                              
  380 |   dest = new Vect();
      |   ~~~~~~~~~~~~~~~~~~                                                 
  381 |   return arg;
      |   ~~~~~~~~~~~                                                        
  382 |  }
      |  ~                                                                   
  383 | }
      | ~                                                                    
  384 | 
      |                                                                      
  385 | static double v_play_remove(void* v) {
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                               
  386 |  nrn_vecsim_remove(v);
      |  ~~~~~~~~~~~~~~~~~~~~~                                               
  387 |  return 1.;
      |  ~~~~~~~~~~                                                          
  388 | }
      | ~                                                                    
  389 | 
      |                                                                      
  390 | static double v_fwrite(void* v) {
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                                    
  391 |  Vect* vp = (Vect*)v;
      |  ~~~~~~~~~~~~~~~~~~~~                                                
  392 |  void* s;
      |  ~~~~~~~~                                                            
  393 |  int x_max = vp->capacity()-1;
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                                       
  394 |  int start = 0;
      |  ~~~~~~~~~~~~~~                                                      
  395 |  int end = x_max;
      |  ~~~~~~~~~~~~~~~~                                                    
  396 |  hoc_return_type_code = 1; // integer
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                                
  397 |  if (ifarg(2)) {
      |  ~~~~~~~~~~~~~~~                                                     
  398 |    start = int(chkarg(2,0,x_max));
      |    ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                                   
  399 |    end = int(chkarg(3,0,x_max));
      |    ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                                     
  400 |  }
      |  ~                                                                   
  401 |  s = (void*)(&vp->elem(start));
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                                      
  402 |  const char* x = (const char*)s;
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                                     
  403 | 
      |                                                                      
  404 |     Object* ob = *hoc_objgetarg(1);
      |     ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                                  
  405 |     check_obj_type(ob, "File");
      |     ~~~~~~~~~~~~~~~~~~~~~~~~~~~                                      
  406 |     OcFile* f = (OcFile*)(ob->u.this_pointer);
      |     ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                       
  407 |  FILE* fp = f->file();
      |  ~~~~~~~~~~~~~~~~~~~~~                                               
  408 |  if (!fp) {
      |  ~~~~~~~~~~                                                          
  409 |   return 0.;
      |   ~~~~~~~~~~                                                         
  410 |  }
      |  ~                                                                   
  411 |  int n = end-start+1;
      |  ~~~~~~~~~~~~~~~~~~~~                                                
  412 |  BinaryMode(f);
      |  ~~~~~~~~~~~~~~                                                      
  413 |  return (double)fwrite(x,sizeof(double),n,fp);
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                       
  414 | }
      | ~                                                                    
  415 | 
      |                                                                      
  416 | static double v_fread(void* v) {
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                                     
  417 |  Vect* vp = (Vect*)v;
      |  ~~~~~~~~~~~~~~~~~~~~                                                
  418 |  void* s = (void*)(vp->vec());
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                                       
  419 | 
      |                                                                      
  420 |         Object* ob = *hoc_objgetarg(1);
      |         ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                              
  421 | 
      |                                                                      
  422 |  check_obj_type(ob, "File");
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~                                         
  423 |  OcFile* f = (OcFile*)(ob->u.this_pointer);
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                          
  424 | 
      |                                                                      
  425 |  if (ifarg(2)) vp->resize(int(chkarg(2,0,1e10)));
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                    
  426 |  int n = vp->capacity();
      |  ~~~~~~~~~~~~~~~~~~~~~~~                                             
  427 | 
      |                                                                      
  428 |         int type = 4;
      |         ~~~~~~~~~~~~~                                                
  429 |  if (ifarg(3)) {
      |  ~~~~~~~~~~~~~~~                                                     
  430 |            type = int(chkarg(3,1,5));
      |            ~~~~~~~~~~~~~~~~~~~~~~~~~~                                
  431 |         }
      |         ~                                                            
  432 | 
      |                                                                      
  433 |  FILE* fp = f->file();
      |  ~~~~~~~~~~~~~~~~~~~~~                                               
  434 |  if (!fp) {
      |  ~~~~~~~~~~                                                          
  435 |   return 0.;
      |   ~~~~~~~~~~                                                         
  436 |  }
      |  ~                                                                   
  437 | 
      |                                                                      
  438 |  int i;
      |  ~~~~~~                                                              
  439 |  BinaryMode(f)
      |  ~~~~~~~~~~~~~                                                       
  440 |  if (n > 0) switch (type) {
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~                                          
  441 | 
      |                                                                      
  442 |         case 5:         // short ints
      |         ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                                
  443 |         {
      |         ~                                                            
  444 |            short *xs = (short *)malloc(n * (unsigned)sizeof(short));
      |            ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ 
  445 |            FRead(xs,sizeof(short),n,fp);
      |            ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                             
  446 |            for (i=0;i<n;++i) {
      |            ~~~~~~~~~~~~~~~~~~~                                       
  447 |       vp->elem(i) = double(xs[i]);
      |       ~~~~~~~~~~~~~~~~~~~~~~~~~~~~                                   
  448 |     }
      |     ~                                                                
  449 |            free((char *)xs);
      |            ~~~~~~~~~~~~~~~~~                                         
  450 |            break;
      |            ~~~~~~                                                    
  451 |         }
      |         ~                                                            
  452 | 
      |                                                                      
  453 |         case 4:        // doubles
      |         ~~~~~~~~~~~~~~~~~~~~~~~~~                                    
  454 |            FRead(&(vp->elem(0)),sizeof(double),n,fp);
      |            ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                
  455 |            break;
      |            ~~~~~~                                                    
  456 | 
      |                                                                      
  457 |         case 3:         // floats
      |         ~~~~~~~~~~~~~~~~~~~~~~~~~                                    
  458 |  {
      |  ~                                                                   
  459 |            float *xf = (float *)malloc(n * (unsigned)sizeof(float));
      |            ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ 
  460 |            FRead(xf,sizeof(float),n,fp);
      |            ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                             
  461 |            for (i=0;i<n;++i) {
      |            ~~~~~~~~~~~~~~~~~~~                                       
  462 |       vp->elem(i) = double(xf[i]);
      |       ~~~~~~~~~~~~~~~~~~~~~~~~~~~~                                   
  463 |     }
      |     ~                                                                
  464 |            free((char *)xf);
      |            ~~~~~~~~~~~~~~~~~                                         
  465 |            break;
      |            ~~~~~~                                                    
  466 |         }
      |         ~                                                            
  467 | 
      |                                                                      
  468 |         case 2:         // unsigned short ints
      |         ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                       
  469 |         {
      |         ~                                                            
  470 | 
      |                                                                      
  471 |            unsigned short *xi = (unsigned short *)malloc(n * (unsigned)sizeof(unsigned short));
      |            ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
  472 |            FRead(xi,sizeof(unsigned short),n,fp);
      |            ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                    
  473 |            for (i=0;i<n;++i) {
      |            ~~~~~~~~~~~~~~~~~~~                                       
  474 |       vp->elem(i) = double(xi[i]);
      |       ~~~~~~~~~~~~~~~~~~~~~~~~~~~~                                   
  475 |     }
      |     ~                                                                
  476 |            free((char *)xi);
      |            ~~~~~~~~~~~~~~~~~                                         
  477 |            break;
      |            ~~~~~~                                                    
  478 |         }
      |         ~                                                            
  479 | 
      |                                                                      
  480 |         case 1:         // char
      |         ~~~~~~~~~~~~~~~~~~~~~~~                                      
  481 |         {
      |         ~                                                            
  482 |            char *xc = (char *)malloc(n * (unsigned)sizeof(char));
      |            ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~    
  483 |            FRead(xc,sizeof(char),n,fp);
      |            ~~~~~~~~~~~~~~~~~~~~~~~~~~~~                              
  484 |            for (i=0;i<n;++i) {
      |            ~~~~~~~~~~~~~~~~~~~                                       
  485 |       vp->elem(i) = double(xc[i]);
      |       ~~~~~~~~~~~~~~~~~~~~~~~~~~~~                                   
  486 |     }
      |     ~                                                                
  487 |            free(xc);
      |            ~~~~~~~~~                                                 
  488 |            break;
      |            ~~~~~~                                                    
  489 |         }
      |         ~                                                            
  490 |  }
      |  ~                                                                   
  491 |  return 1;
      |  ~~~~~~~~~                                                           
  492 | }
      | ~                                                                    
  493 | 
      |                                                                      
  494 | static double v_vwrite(void* v) {
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                                    
  495 |  Vect* vp = (Vect*)v;
      |  ~~~~~~~~~~~~~~~~~~~~                                                
  496 | 
      |                                                                      
  497 |         Object* ob = *hoc_objgetarg(1);
      |         ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                              
  498 |         check_obj_type(ob, "File");
      |         ~~~~~~~~~~~~~~~~~~~~~~~~~~~                                  
  499 |         OcFile* f = (OcFile*)(ob->u.this_pointer);
      |         ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                   
  500 | 
      |                                                                      
  501 |  FILE* fp = f->file();
      |  ~~~~~~~~~~~~~~~~~~~~~                                               
  502 |  if (!fp) {
      |  ~~~~~~~~~~                                                          
  503 |   return 0.;
      |   ~~~~~~~~~~                                                         
  504 |  }
      |  ~                                                                   
  505 | 
      |                                                                      
  506 |   BinaryMode(f)
      |   ~~~~~~~~~~~~~                                                      
  507 |  // first, write the size of the vector
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                              
  508 |  int n = vp->capacity();
      |  ~~~~~~~~~~~~~~~~~~~~~~~                                             
  509 |         FWrite(&n,sizeof(int),1,fp);
      |         ~~~~~~~~~~~~~~~~~~~~~~~~~~~~                                 
  510 | 
      |                                                                      
  511 | // next, write the type of elements
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                                  
  512 |         int type = 4;
      |         ~~~~~~~~~~~~~                                                
  513 |  if (ifarg(2)) {
      |  ~~~~~~~~~~~~~~~                                                     
  514 |            type = int(chkarg(2,1,5));
      |            ~~~~~~~~~~~~~~~~~~~~~~~~~~                                
  515 |         }
      |         ~                                                            
  516 |         FWrite(&type,sizeof(int),1,fp);
      |         ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                              
  517 | 
      |                                                                      
  518 | // convert the data if necessary
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                                     
  519 |         int i;
      |         ~~~~~~                                                       
  520 |         void *s;
      |         ~~~~~~~~                                                     
  521 |         const char* x;
      |         ~~~~~~~~~~~~~~                                               
  522 | 
      |                                                                      
  523 |         double min,r,sf,sub,intermed;
      |         ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                                
  524 |         switch (type) {
      |         ~~~~~~~~~~~~~~~                                              
  525 | 
      |                                                                      
  526 |         case 5:     // integers as ints (no scaling)
      |         ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                 
  527 |  {
      |  ~                                                                   
  528 |            int* xi = (int *)malloc(n * sizeof(int));
      |            ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                 
  529 |            for (i=0;i<n;++i) {
      |            ~~~~~~~~~~~~~~~~~~~                                       
  530 |       xi[i] = (int)(vp->elem(i));
      |       ~~~~~~~~~~~~~~~~~~~~~~~~~~~                                    
  531 |            }
      |            ~                                                         
  532 |     FWrite(xi,sizeof(int),n,fp);
      |     ~~~~~~~~~~~~~~~~~~~~~~~                                          
/builddir/build/BUILD/nrn-7.8.1/src/ivoc/ivocvect.cpp:532:5: note: in expansion of macro 'FWrite'
  532 |     FWrite(xi,sizeof(int),n,fp);
      |     ^~~~~~
/builddir/build/BUILD/nrn-7.8.1/src/ivoc/ivocvect.cpp:66:69: warning: comparison of integer expressions of different signedness: 'size_t' {aka 'long unsigned int'} and 'int' [-Wsign-compare]
   66 | #define FWrite(arg1,arg2,arg3,arg4) if (fwrite(arg1,arg2,arg3,arg4) != arg3){}
      |                                         ~~~~~~~~~~~~~~~~~~~~~~~~~~~~^~~~~~~~~~
   67 | #define FRead(arg1,arg2,arg3,arg4) if (fread(arg1,arg2,arg3,arg4) != arg3) {}
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
   68 | #endif
      | ~~~~~~                                                               
   69 | 
      |                                                                      
   70 | static double dmaxint_;
      | ~~~~~~~~~~~~~~~~~~~~~~~                                              
   71 | 
      |                                                                      
   72 | // Definitions allow machine independent write and read
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~              
   73 | // note that must include BYTEHEADER at head of routine
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~              
   74 | // The policy is that each machine vwrite binary information in
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~      
   75 | // without swapping, ie. native endian.
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                              
   76 | // On reading, the type is checked to decide whether
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                 
   77 | // byteswapping should be performed
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                                  
   78 | 
      |                                                                      
   79 | #define BYTEHEADER int _II__;  char *_IN__; char _OUT__[16]; int BYTESWAP_FLAG=0;
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
   80 | #define BYTESWAP(_X__,_TYPE__) \
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                                     
   81 |     if (BYTESWAP_FLAG == 1) { \
      |     ~~~~~~~~~~~~~~~~~~~~~~~~~~~                                      
   82 |  _IN__ = (char *) &(_X__); \
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~                                         
   83 |  for (_II__=0;_II__<sizeof(_TYPE__);_II__++) { \
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                     
   84 |   _OUT__[_II__] = _IN__[sizeof(_TYPE__)-_II__-1]; } \
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                
   85 |  (_X__) = *((_TYPE__ *) &_OUT__); \
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                                  
   86 |     }
      |     ~                                                                
   87 | 
      |                                                                      
   88 | #include "ivocvect.h"
      | ~~~~~~~~~~~~~~~~~~~~~                                                
   89 | 
      |                                                                      
   90 | // definition of SampleHistogram from the gnu c++ class library
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~      
   91 | #include <SmplHist.h>
      | ~~~~~~~~~~~~~~~~~~~~~                                                
   92 | 
      |                                                                      
   93 | // definition of random numer generator
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                              
   94 | #include "random1.h"
      | ~~~~~~~~~~~~~~~~~~~~                                                 
   95 | #include <Uniform.h>
      | ~~~~~~~~~~~~~~~~~~~~                                                 
   96 | 
      |                                                                      
   97 | // definition of comparison functions
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                                
   98 | #include <d_defs.h>
      | ~~~~~~~~~~~~~~~~~~~                                                  
   99 | 
      |                                                                      
  100 | #if HAVE_IV
      | ~~~~~~~~~~~                                                          
  101 | #include "utility.h"
      | ~~~~~~~~~~~~~~~~~~~~                                                 
  102 | #endif
      | ~~~~~~                                                               
  103 | #include "oc2iv.h"
      | ~~~~~~~~~~~~~~~~~~                                                   
  104 | #include "parse.h"
      | ~~~~~~~~~~~~~~~~~~                                                   
  105 | #include "ocfile.h"
      | ~~~~~~~~~~~~~~~~~~~                                                  
  106 | 
      |                                                                      
  107 | extern "C" {
      | ~~~~~~~~~~~~                                                         
  108 | extern Object* hoc_thisobject;
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                                       
  109 | extern Symlist* hoc_top_level_symlist;
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                               
  110 | extern void nrn_exit(int);
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~                                           
  111 | IvocVect* (*nrnpy_vec_from_python_p_)(void*);
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                        
  112 | Object** (*nrnpy_vec_to_python_p_)(void*);
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                           
  113 | Object** (*nrnpy_vec_as_numpy_helper_)(int, double*);
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                
  114 | };
      | ~~                                                                   
  115 | 
      |                                                                      
  116 | 
      |                                                                      
  117 | int cmpfcn(double a, double b) { return ((a) <= (b))? (((a) == (b))? 0 : -1) : 1; }
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
  118 | 
      |                                                                      
  119 | 
      |                                                                      
  120 | // math functions with error checking defined in oc/SRC/math.c
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~       
  121 | extern "C" {
      | ~~~~~~~~~~~~                                                         
  122 |   extern double hoc_Log(double x), hoc_Log10(double x), hoc_Exp(double x), hoc_Sqrt(double x);
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
  123 |   extern double hoc_scan(FILE*);
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                                     
  124 | }
      | ~                                                                    
  125 | 
      |                                                                      
  126 | static int narg() {
      | ~~~~~~~~~~~~~~~~~~~                                                  
  127 |   int i=0;
      |   ~~~~~~~~                                                           
  128 |   while (ifarg(i++));
      |   ~~~~~~~~~~~~~~~~~~~                                                
  129 |   return i-2;
      |   ~~~~~~~~~~~                                                        
  130 | }
      | ~                                                                    
  131 | 
      |                                                                      
  132 | #define MAX_FIT_PARAMS 20
      | ~~~~~~~~~~~~~~~~~~~~~~~~~                                            
  133 | 
      |                                                                      
  134 | #define TWO_BYTE_HIGH  65535.
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                                        
  135 | #define ONE_BYTE_HIGH  255.
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~                                          
  136 | #define ONE_BYTE_HALF  128.
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~                                          
  137 | 
      |                                                                      
  138 | #define EPSILON 1e-9
      | ~~~~~~~~~~~~~~~~~~~~                                                 
  139 | 
      |                                                                      
  140 | extern "C" {
      | ~~~~~~~~~~~~                                                         
  141 |  extern void notify_freed_val_array(double*, size_t);
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                
  142 |  extern void install_vector_method(const char* name, Pfrd_vp);
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~       
  143 |  extern int vector_instance_px(void*, double**);
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                     
  144 |  extern int vector_arg_px(int, double**);
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                            
  145 |         extern int nrn_mlh_gsort (double* vec, int *base_ptr, int total_elems, doubleComparator cmp);
      |         ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
  146 | };
      | ~~                                                                   
  147 | 
      |                                                                      
  148 | extern "C" int hoc_return_type_code;
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                                 
  149 | 
      |                                                                      
  150 | IvocVect::IvocVect(Object* o) : ParentVect(){obj_ = o; label_ = NULL; MUTCONSTRUCT(0)}
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
  151 | IvocVect::IvocVect(int l, Object* o) : ParentVect(l){obj_ = o; label_ = NULL; MUTCONSTRUCT(0)}
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
  152 | IvocVect::IvocVect(int l, double fill_value, Object* o) : ParentVect(l, fill_value){obj_ = o; label_ = NULL; MUTCONSTRUCT(0)}
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
  153 | IvocVect::IvocVect(IvocVect& v, Object* o) : ParentVect(v) {obj_ = o; label_ = NULL; MUTCONSTRUCT(0)}
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
  154 | 
      |                                                                      
  155 | IvocVect::~IvocVect(){
      | ~~~~~~~~~~~~~~~~~~~~~~                                               
  156 |  MUTDESTRUCT
      |  ~~~~~~~~~~~                                                         
  157 |  if (label_) {
      |  ~~~~~~~~~~~~~                                                       
  158 |   delete [] label_;
      |   ~~~~~~~~~~~~~~~~~                                                  
  159 |  }
      |  ~                                                                   
  160 |  notify_freed_val_array(vec(), capacity());
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                          
  161 | }
      | ~                                                                    
  162 | 
      |                                                                      
  163 | void IvocVect::label(const char* label) {
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                            
  164 |  if (label_) {
      |  ~~~~~~~~~~~~~                                                       
  165 |   delete [] label_;
      |   ~~~~~~~~~~~~~~~~~                                                  
  166 |   label_ = NULL;
      |   ~~~~~~~~~~~~~~                                                     
  167 |  }
      |  ~                                                                   
  168 |  if (label) {
      |  ~~~~~~~~~~~~                                                        
  169 |   label_ = new char[strlen(label) + 1];
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                              
  170 |   strcpy(label_, label);
      |   ~~~~~~~~~~~~~~~~~~~~~~                                             
  171 |  }
      |  ~                                                                   
  172 | }
      | ~                                                                    
  173 | 
      |                                                                      
  174 | static const char* nullstr = "";
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                                     
  175 | 
      |                                                                      
  176 | static const char** v_label(void* v) {
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                               
  177 |  Vect* x  = (Vect*)v;
      |  ~~~~~~~~~~~~~~~~~~~~                                                
  178 |  if (ifarg(1)) {
      |  ~~~~~~~~~~~~~~~                                                     
  179 |   x->label(gargstr(1));
      |   ~~~~~~~~~~~~~~~~~~~~~                                              
  180 |  }
      |  ~                                                                   
  181 |  if (x->label_) {
      |  ~~~~~~~~~~~~~~~~                                                    
  182 |   return (const char**)&x->label_;
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                                   
  183 |  }
      |  ~                                                                   
  184 |  return &nullstr;
      |  ~~~~~~~~~~~~~~~~                                                    
  185 | }
      | ~                                                                    
  186 | 
      |                                                                      
  187 | static void same_err(const char* s, Vect* x, Vect* y) {
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~              
  188 |  if (x == y) {
      |  ~~~~~~~~~~~~~                                                       
  189 |   hoc_execerror(s, " argument needs to be copied first");
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~            
  190 |  }
      |  ~                                                                   
  191 | }
      | ~                                                                    
  192 | 
      |                                                                      
  193 | /* the Vect->at(start, end) function was used in about a dozen places
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
  194 | for the purpose of dealing with a subrange of elements. However that
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ 
  195 | function clones the subrange and returns a new Vect. This caused a
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~   
  196 | memory leak and was needlessly inefficient for those functions.
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~      
  197 | To fix both problems for these specific functions
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                    
  198 | we use a special vector which does not have
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                          
  199 | it's own space but merely a pointer and capacity to the right space of
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
  200 | the original vector. The usage is restricted to only once at a time, i.e.
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
  201 | can't use two subvecs at once and never do anything which affects the
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
  202 | memory space.
      | ~~~~~~~~~~~~~                                                        
  203 | */
      | ~~                                                                   
  204 | 
      |                                                                      
  205 | static IvocVect* subvec_; // allocated when registered.
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~              
  206 | IvocVect* IvocVect::subvec(int start, int end) {
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                     
  207 |  subvec_->len = end - start + 1;
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                                     
  208 |  subvec_->s = s + start;
      |  ~~~~~~~~~~~~~~~~~~~~~~~                                             
  209 |  return subvec_;
      |  ~~~~~~~~~~~~~~~                                                     
  210 | }
      | ~                                                                    
  211 | 
      |                                                                      
  212 | void IvocVect::resize(int newlen) { // all that for this
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~             
  213 |  long oldcap = capacity();
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~                                           
  214 |  if (newlen > space) {
      |  ~~~~~~~~~~~~~~~~~~~~~                                               
  215 |   notify_freed_val_array(vec(), capacity());
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                         
  216 |  }
      |  ~                                                                   
  217 |  ParentVect::resize(newlen);
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~                                         
  218 |  for (;oldcap < newlen; ++oldcap) {
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                                  
  219 |   elem(oldcap) = 0.;
      |   ~~~~~~~~~~~~~~~~~~                                                 
  220 |  }
      |  ~                                                                   
  221 | }
      | ~                                                                    
  222 | 
      |                                                                      
  223 | void IvocVect::resize_chunk(int newlen, int extra) {
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                 
  224 |  if (newlen > space) {
      |  ~~~~~~~~~~~~~~~~~~~~~                                               
  225 |   long x = newlen + extra;
      |   ~~~~~~~~~~~~~~~~~~~~~~~~                                           
  226 |   if (extra == 0) {
      |   ~~~~~~~~~~~~~~~~~                                                  
  227 |    x = ListImpl_best_new_count(newlen, sizeof(double));
      |    ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~              
  228 |   }
      |   ~                                                                  
  229 | //  printf("resize_chunk %d\n", x);
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                                  
  230 |   resize(x);
      |   ~~~~~~~~~~                                                         
  231 |  }
      |  ~                                                                   
  232 |  resize(newlen);
      |  ~~~~~~~~~~~~~~~                                                     
  233 | }
      | ~                                                                    
  234 | 
      |                                                                      
  235 | #if HAVE_IV
      | ~~~~~~~~~~~                                                          
  236 | /*static*/ class GraphMarkItem : public GraphItem {
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                  
  237 | public:
      | ~~~~~~~                                                              
  238 |  GraphMarkItem(Glyph* g) : GraphItem(g){}
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                            
  239 |  virtual ~GraphMarkItem(){};
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~                                         
  240 |  virtual void erase(Scene* s, GlyphIndex i, int type) {
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~              
  241 |   if (type & GraphItem::ERASE_LINE) {
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                                
  242 |    s->remove(i);
      |    ~~~~~~~~~~~~~                                                     
  243 |   }
      |   ~                                                                  
  244 |  }
      |  ~                                                                   
  245 | };
      | ~~                                                                   
  246 | #endif
      | ~~~~~~                                                               
  247 | 
      |                                                                      
  248 | static void* v_cons(Object* o) {
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                                     
  249 |  double fill_value = 0.;
      |  ~~~~~~~~~~~~~~~~~~~~~~~                                             
  250 |  int n = 0;
      |  ~~~~~~~~~~                                                          
  251 |  Vect* vec;
      |  ~~~~~~~~~~                                                          
  252 |  if (ifarg(1)) {
      |  ~~~~~~~~~~~~~~~                                                     
  253 |   if (hoc_is_double_arg(1)) {
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~                                        
  254 |    n = int(chkarg(1,0,1e10));
      |    ~~~~~~~~~~~~~~~~~~~~~~~~~~                                        
  255 |    if (ifarg(2)) fill_value = *getarg(2);
      |    ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                            
  256 |    vec =  new Vect(n,fill_value, o);
      |    ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                                 
  257 |   }else{
      |   ~~~~~~                                                             
  258 |    if (!nrnpy_vec_from_python_p_) {
      |    ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                                  
  259 |     hoc_execerror("Python not available", 0);
      |     ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                        
  260 |    }
      |    ~                                                                 
  261 |    vec = (*nrnpy_vec_from_python_p_)(new Vect(0, 0, o));
      |    ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~             
  262 |   }
      |   ~                                                                  
  263 |  }else{
      |  ~~~~~~                                                              
  264 |   vec = new Vect(0, 0, o);
      |   ~~~~~~~~~~~~~~~~~~~~~~~~                                           
  265 |  }
      |  ~                                                                   
  266 |  return vec;
      |  ~~~~~~~~~~~                                                         
  267 | }
      | ~                                                                    
  268 | 
      |                                                                      
  269 | 
      |                                                                      
  270 | static void v_destruct(void* v) {
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                                    
  271 |  delete (Vect*)v;
      |  ~~~~~~~~~~~~~~~~                                                    
  272 | }
      | ~                                                                    
  273 | 
      |                                                                      
  274 | static Symbol* svec_;
      | ~~~~~~~~~~~~~~~~~~~~~                                                
  275 | 
      |                                                                      
  276 | // extern "C" vector functions used by ocmatrix.dll
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                  
  277 | // can also be used in mod files
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                                     
  278 | Vect* vector_new(int n, Object* o){return new Vect(n, o);}
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~           
  279 | Vect* vector_new0(){return new Vect();}
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                              
  280 | Vect* vector_new1(int n){return new Vect(n);}
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                        
  281 | Vect* vector_new2(Vect* v){return new Vect(*v);}
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                     
  282 | void vector_delete(Vect* v){delete v;}
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                               
  283 | int vector_buffer_size(Vect* v){return v->buffer_size();}
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~            
  284 | int vector_capacity(Vect* v){return v->capacity();}
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                  
  285 | void vector_resize(Vect* v, int n){v->resize(n);}
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                    
  286 | Object** vector_temp_objvar(Vect* v){return v->temp_objvar();}
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~       
  287 | double* vector_vec(Vect* v){return v->vec();}
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                        
  288 | Object** vector_pobj(Vect* v){return &v->obj_;}
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                      
  289 | char* vector_get_label(Vect* v) { return v->label_; }
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                
  290 | void vector_set_label(Vect* v, char* s) { v->label(s); }
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~             
  291 | void vector_append(Vect* v, double x){
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                               
  292 |   long n = v->capacity();
      |   ~~~~~~~~~~~~~~~~~~~~~~~                                            
  293 |   v->resize_chunk(n+1);
      |   ~~~~~~~~~~~~~~~~~~~~~                                              
  294 |   v->elem(n) = x;
      |   ~~~~~~~~~~~~~~~                                                    
  295 | }
      | ~                                                                    
  296 | 
      |                                                                      
  297 | #ifdef WIN32
      | ~~~~~~~~~~~~                                                         
  298 | #if !defined(USEMATRIX) || USEMATRIX == 0
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                            
  299 | #include "../windll/dll.h"
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~                                           
  300 | extern "C" {extern char* neuron_home;}
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                               
  301 | 
      |                                                                      
  302 | void load_ocmatrix() {
      | ~~~~~~~~~~~~~~~~~~~~~~                                               
  303 |  struct DLL* dll = NULL;
      |  ~~~~~~~~~~~~~~~~~~~~~~~                                             
  304 |  char buf[256];
      |  ~~~~~~~~~~~~~~                                                      
  305 |  sprintf(buf, "%s\\lib\\ocmatrix.dll", neuron_home);
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                 
  306 |  dll = dll_load(buf);
      |  ~~~~~~~~~~~~~~~~~~~~                                                
  307 |  if (dll) {
      |  ~~~~~~~~~~                                                          
  308 |   Pfri mreg = (Pfri)dll_lookup(dll, "_Matrix_reg");
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                  
  309 |   if (mreg) {
      |   ~~~~~~~~~~~                                                        
  310 |    (*mreg)();
      |    ~~~~~~~~~~                                                        
  311 |   }
      |   ~                                                                  
  312 |  }else{
      |  ~~~~~~                                                              
  313 |   printf("No Matrix class.\n");
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                                      
  314 |  }
      |  ~                                                                   
  315 | }
      | ~                                                                    
  316 | #endif
      | ~~~~~~                                                               
  317 | #endif
      | ~~~~~~                                                               
  318 | 
      |                                                                      
  319 | Object** IvocVect::temp_objvar() {
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                                   
  320 |  IvocVect* v = (IvocVect*)this;
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                                      
  321 |  Object** po;
      |  ~~~~~~~~~~~~                                                        
  322 |  if (v->obj_) {
      |  ~~~~~~~~~~~~~~                                                      
  323 |   po = hoc_temp_objptr(v->obj_);
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                                     
  324 |  }else{
      |  ~~~~~~                                                              
  325 |   po = hoc_temp_objvar(svec_, (void*)v);
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                             
  326 |   obj_ = *po;
      |   ~~~~~~~~~~~                                                        
  327 |  }
      |  ~                                                                   
  328 |  return po;
      |  ~~~~~~~~~~                                                          
  329 | }
      | ~                                                                    
  330 | 
      |                                                                      
  331 | extern "C" { // bug in cray compiler requires this
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                   
  332 | void install_vector_method(const char* name, double (*f)(void*)) {
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~   
  333 |  Symbol* s_meth;
      |  ~~~~~~~~~~~~~~~                                                     
  334 |  if (hoc_table_lookup(name, svec_->u.ctemplate->symtable)) {
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~         
  335 |   hoc_execerror(name, " already a method in the Vector class");
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~      
  336 |  }
      |  ~                                                                   
  337 |  s_meth = hoc_install(name, FUNCTION, 0.0, &svec_->u.ctemplate->symtable);
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
  338 |  s_meth->u.u_proc->defn.pfd = (Pfrd)f;
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                               
  339 | #define PUBLIC_TYPE 1
      | ~~~~~~~~~~~~~~~~~~~~~                                                
  340 |  s_meth->cpublic = PUBLIC_TYPE;
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                                      
  341 | }
      | ~                                                                    
  342 | }
      | ~                                                                    
  343 | 
      |                                                                      
  344 | int vector_instance_px(void* v, double** px) {
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                       
  345 |  Vect* x = (Vect*)v;
      |  ~~~~~~~~~~~~~~~~~~~                                                 
  346 |  *px = x->vec();
      |  ~~~~~~~~~~~~~~~                                                     
  347 |  return x->capacity();
      |  ~~~~~~~~~~~~~~~~~~~~~                                               
  348 | }
      | ~                                                                    
  349 | 
      |                                                                      
  350 | Vect* vector_arg(int i) {
      | ~~~~~~~~~~~~~~~~~~~~~~~~~                                            
  351 |  Object* ob = *hoc_objgetarg(i);
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                                     
  352 |  if (!ob || ob->ctemplate != svec_->u.ctemplate) {
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                   
  353 |   check_obj_type(ob, "Vector");
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                                      
  354 |  }
      |  ~                                                                   
  355 |  return (Vect*)(ob->u.this_pointer);
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                                 
  356 | }
      | ~                                                                    
  357 | 
      |                                                                      
  358 | int is_vector_arg(int i) {
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~                                           
  359 |  Object* ob = *hoc_objgetarg(i);
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                                     
  360 |  if (!ob || ob->ctemplate != svec_->u.ctemplate) {
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                   
  361 |   return 0;
      |   ~~~~~~~~~                                                          
  362 |  }
      |  ~                                                                   
  363 |  return 1;
      |  ~~~~~~~~~                                                           
  364 | }
      | ~                                                                    
  365 | 
      |                                                                      
  366 | int vector_arg_px(int i, double** px) {
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                              
  367 |  Vect* x = vector_arg(i);
      |  ~~~~~~~~~~~~~~~~~~~~~~~~                                            
  368 |  *px = x->vec();
      |  ~~~~~~~~~~~~~~~                                                     
  369 |  return x->capacity();
      |  ~~~~~~~~~~~~~~~~~~~~~                                               
  370 | }
      | ~                                                                    
  371 | 
      |                                                                      
  372 | extern void nrn_vecsim_add(void*, bool);
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                             
  373 | extern void nrn_vecsim_remove(void*);
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                                
  374 | 
      |                                                                      
  375 | static int possible_destvec(int arg, Vect*& dest) {
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                  
  376 |  if (ifarg(arg) && hoc_is_object_arg(arg)) {
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                         
  377 |    dest = vector_arg(arg);
      |    ~~~~~~~~~~~~~~~~~~~~~~~                                           
  378 |    return arg+1;
      |    ~~~~~~~~~~~~~                                                     
  379 |  }else{
      |  ~~~~~~                                                              
  380 |   dest = new Vect();
      |   ~~~~~~~~~~~~~~~~~~                                                 
  381 |   return arg;
      |   ~~~~~~~~~~~                                                        
  382 |  }
      |  ~                                                                   
  383 | }
      | ~                                                                    
  384 | 
      |                                                                      
  385 | static double v_play_remove(void* v) {
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                               
  386 |  nrn_vecsim_remove(v);
      |  ~~~~~~~~~~~~~~~~~~~~~                                               
  387 |  return 1.;
      |  ~~~~~~~~~~                                                          
  388 | }
      | ~                                                                    
  389 | 
      |                                                                      
  390 | static double v_fwrite(void* v) {
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                                    
  391 |  Vect* vp = (Vect*)v;
      |  ~~~~~~~~~~~~~~~~~~~~                                                
  392 |  void* s;
      |  ~~~~~~~~                                                            
  393 |  int x_max = vp->capacity()-1;
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                                       
  394 |  int start = 0;
      |  ~~~~~~~~~~~~~~                                                      
  395 |  int end = x_max;
      |  ~~~~~~~~~~~~~~~~                                                    
  396 |  hoc_return_type_code = 1; // integer
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                                
  397 |  if (ifarg(2)) {
      |  ~~~~~~~~~~~~~~~                                                     
  398 |    start = int(chkarg(2,0,x_max));
      |    ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                                   
  399 |    end = int(chkarg(3,0,x_max));
      |    ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                                     
  400 |  }
      |  ~                                                                   
  401 |  s = (void*)(&vp->elem(start));
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                                      
  402 |  const char* x = (const char*)s;
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                                     
  403 | 
      |                                                                      
  404 |     Object* ob = *hoc_objgetarg(1);
      |     ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                                  
  405 |     check_obj_type(ob, "File");
      |     ~~~~~~~~~~~~~~~~~~~~~~~~~~~                                      
  406 |     OcFile* f = (OcFile*)(ob->u.this_pointer);
      |     ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                       
  407 |  FILE* fp = f->file();
      |  ~~~~~~~~~~~~~~~~~~~~~                                               
  408 |  if (!fp) {
      |  ~~~~~~~~~~                                                          
  409 |   return 0.;
      |   ~~~~~~~~~~                                                         
  410 |  }
      |  ~                                                                   
  411 |  int n = end-start+1;
      |  ~~~~~~~~~~~~~~~~~~~~                                                
  412 |  BinaryMode(f);
      |  ~~~~~~~~~~~~~~                                                      
  413 |  return (double)fwrite(x,sizeof(double),n,fp);
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                       
  414 | }
      | ~                                                                    
  415 | 
      |                                                                      
  416 | static double v_fread(void* v) {
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                                     
  417 |  Vect* vp = (Vect*)v;
      |  ~~~~~~~~~~~~~~~~~~~~                                                
  418 |  void* s = (void*)(vp->vec());
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                                       
  419 | 
      |                                                                      
  420 |         Object* ob = *hoc_objgetarg(1);
      |         ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                              
  421 | 
      |                                                                      
  422 |  check_obj_type(ob, "File");
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~                                         
  423 |  OcFile* f = (OcFile*)(ob->u.this_pointer);
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                          
  424 | 
      |                                                                      
  425 |  if (ifarg(2)) vp->resize(int(chkarg(2,0,1e10)));
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                    
  426 |  int n = vp->capacity();
      |  ~~~~~~~~~~~~~~~~~~~~~~~                                             
  427 | 
      |                                                                      
  428 |         int type = 4;
      |         ~~~~~~~~~~~~~                                                
  429 |  if (ifarg(3)) {
      |  ~~~~~~~~~~~~~~~                                                     
  430 |            type = int(chkarg(3,1,5));
      |            ~~~~~~~~~~~~~~~~~~~~~~~~~~                                
  431 |         }
      |         ~                                                            
  432 | 
      |                                                                      
  433 |  FILE* fp = f->file();
      |  ~~~~~~~~~~~~~~~~~~~~~                                               
  434 |  if (!fp) {
      |  ~~~~~~~~~~                                                          
  435 |   return 0.;
      |   ~~~~~~~~~~                                                         
  436 |  }
      |  ~                                                                   
  437 | 
      |                                                                      
  438 |  int i;
      |  ~~~~~~                                                              
  439 |  BinaryMode(f)
      |  ~~~~~~~~~~~~~                                                       
  440 |  if (n > 0) switch (type) {
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~                                          
  441 | 
      |                                                                      
  442 |         case 5:         // short ints
      |         ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                                
  443 |         {
      |         ~                                                            
  444 |            short *xs = (short *)malloc(n * (unsigned)sizeof(short));
      |            ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ 
  445 |            FRead(xs,sizeof(short),n,fp);
      |            ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                             
  446 |            for (i=0;i<n;++i) {
      |            ~~~~~~~~~~~~~~~~~~~                                       
  447 |       vp->elem(i) = double(xs[i]);
      |       ~~~~~~~~~~~~~~~~~~~~~~~~~~~~                                   
  448 |     }
      |     ~                                                                
  449 |            free((char *)xs);
      |            ~~~~~~~~~~~~~~~~~                                         
  450 |            break;
      |            ~~~~~~                                                    
  451 |         }
      |         ~                                                            
  452 | 
      |                                                                      
  453 |         case 4:        // doubles
      |         ~~~~~~~~~~~~~~~~~~~~~~~~~                                    
  454 |            FRead(&(vp->elem(0)),sizeof(double),n,fp);
      |            ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                
  455 |            break;
      |            ~~~~~~                                                    
  456 | 
      |                                                                      
  457 |         case 3:         // floats
      |         ~~~~~~~~~~~~~~~~~~~~~~~~~                                    
  458 |  {
      |  ~                                                                   
  459 |            float *xf = (float *)malloc(n * (unsigned)sizeof(float));
      |            ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ 
  460 |            FRead(xf,sizeof(float),n,fp);
      |            ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                             
  461 |            for (i=0;i<n;++i) {
      |            ~~~~~~~~~~~~~~~~~~~                                       
  462 |       vp->elem(i) = double(xf[i]);
      |       ~~~~~~~~~~~~~~~~~~~~~~~~~~~~                                   
  463 |     }
      |     ~                                                                
  464 |            free((char *)xf);
      |            ~~~~~~~~~~~~~~~~~                                         
  465 |            break;
      |            ~~~~~~                                                    
  466 |         }
      |         ~                                                            
  467 | 
      |                                                                      
  468 |         case 2:         // unsigned short ints
      |         ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                       
  469 |         {
      |         ~                                                            
  470 | 
      |                                                                      
  471 |            unsigned short *xi = (unsigned short *)malloc(n * (unsigned)sizeof(unsigned short));
      |            ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
  472 |            FRead(xi,sizeof(unsigned short),n,fp);
      |            ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                    
  473 |            for (i=0;i<n;++i) {
      |            ~~~~~~~~~~~~~~~~~~~                                       
  474 |       vp->elem(i) = double(xi[i]);
      |       ~~~~~~~~~~~~~~~~~~~~~~~~~~~~                                   
  475 |     }
      |     ~                                                                
  476 |            free((char *)xi);
      |            ~~~~~~~~~~~~~~~~~                                         
  477 |            break;
      |            ~~~~~~                                                    
  478 |         }
      |         ~                                                            
  479 | 
      |                                                                      
  480 |         case 1:         // char
      |         ~~~~~~~~~~~~~~~~~~~~~~~                                      
  481 |         {
      |         ~                                                            
  482 |            char *xc = (char *)malloc(n * (unsigned)sizeof(char));
      |            ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~    
  483 |            FRead(xc,sizeof(char),n,fp);
      |            ~~~~~~~~~~~~~~~~~~~~~~~~~~~~                              
  484 |            for (i=0;i<n;++i) {
      |            ~~~~~~~~~~~~~~~~~~~                                       
  485 |       vp->elem(i) = double(xc[i]);
      |       ~~~~~~~~~~~~~~~~~~~~~~~~~~~~                                   
  486 |     }
      |     ~                                                                
  487 |            free(xc);
      |            ~~~~~~~~~                                                 
  488 |            break;
      |            ~~~~~~                                                    
  489 |         }
      |         ~                                                            
  490 |  }
      |  ~                                                                   
  491 |  return 1;
      |  ~~~~~~~~~                                                           
  492 | }
      | ~                                                                    
  493 | 
      |                                                                      
  494 | static double v_vwrite(void* v) {
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                                    
  495 |  Vect* vp = (Vect*)v;
      |  ~~~~~~~~~~~~~~~~~~~~                                                
  496 | 
      |                                                                      
  497 |         Object* ob = *hoc_objgetarg(1);
      |         ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                              
  498 |         check_obj_type(ob, "File");
      |         ~~~~~~~~~~~~~~~~~~~~~~~~~~~                                  
  499 |         OcFile* f = (OcFile*)(ob->u.this_pointer);
      |         ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                   
  500 | 
      |                                                                      
  501 |  FILE* fp = f->file();
      |  ~~~~~~~~~~~~~~~~~~~~~                                               
  502 |  if (!fp) {
      |  ~~~~~~~~~~                                                          
  503 |   return 0.;
      |   ~~~~~~~~~~                                                         
  504 |  }
      |  ~                                                                   
  505 | 
      |                                                                      
  506 |   BinaryMode(f)
      |   ~~~~~~~~~~~~~                                                      
  507 |  // first, write the size of the vector
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                              
  508 |  int n = vp->capacity();
      |  ~~~~~~~~~~~~~~~~~~~~~~~                                             
  509 |         FWrite(&n,sizeof(int),1,fp);
      |         ~~~~~~~~~~~~~~~~~~~~~~~~~~~~                                 
  510 | 
      |                                                                      
  511 | // next, write the type of elements
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                                  
  512 |         int type = 4;
      |         ~~~~~~~~~~~~~                                                
  513 |  if (ifarg(2)) {
      |  ~~~~~~~~~~~~~~~                                                     
  514 |            type = int(chkarg(2,1,5));
      |            ~~~~~~~~~~~~~~~~~~~~~~~~~~                                
  515 |         }
      |         ~                                                            
  516 |         FWrite(&type,sizeof(int),1,fp);
      |         ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                              
  517 | 
      |                                                                      
  518 | // convert the data if necessary
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                                     
  519 |         int i;
      |         ~~~~~~                                                       
  520 |         void *s;
      |         ~~~~~~~~                                                     
  521 |         const char* x;
      |         ~~~~~~~~~~~~~~                                               
  522 | 
      |                                                                      
  523 |         double min,r,sf,sub,intermed;
      |         ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                                
  524 |         switch (type) {
      |         ~~~~~~~~~~~~~~~                                              
  525 | 
      |                                                                      
  526 |         case 5:     // integers as ints (no scaling)
      |         ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                 
  527 |  {
      |  ~                                                                   
  528 |            int* xi = (int *)malloc(n * sizeof(int));
      |            ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                 
  529 |            for (i=0;i<n;++i) {
      |            ~~~~~~~~~~~~~~~~~~~                                       
  530 |       xi[i] = (int)(vp->elem(i));
      |       ~~~~~~~~~~~~~~~~~~~~~~~~~~~                                    
  531 |            }
      |            ~                                                         
  532 |     FWrite(xi,sizeof(int),n,fp);
      |     ~~~~~~~~~~~~~~~~~~~~~~~~~~~~                                     
  533 |            free((char *)xi);
      |            ~~~~~~~~~~~~~~~~~                                         
  534 |            break;
      |            ~~~~~~                                                    
  535 |         }
      |         ~                                                            
  536 | 
      |                                                                      
  537 |         case 4:     // doubles (no conversion unless BYTESWAP used and needed)
      |         ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
  538 |  {
      |  ~                                                                   
  539 |            s = (void*)(&(vp->elem(0)));
      |            ~~~~~~~~~~~~~~~~~~~~~~~~~~~~                              
  540 |     x = (const char*)s;
      |     ~~~~~~~~~~~~~~~~~~~                                              
  541 |     FWrite(x,sizeof(double),n,fp);
      |     ~~~~~~~~~~~~~~~~~~~~~~~~~                                        
/builddir/build/BUILD/nrn-7.8.1/src/ivoc/ivocvect.cpp:541:5: note: in expansion of macro 'FWrite'
  541 |     FWrite(x,sizeof(double),n,fp);
      |     ^~~~~~
/builddir/build/BUILD/nrn-7.8.1/src/ivoc/ivocvect.cpp:66:69: warning: comparison of integer expressions of different signedness: 'size_t' {aka 'long unsigned int'} and 'int' [-Wsign-compare]
   66 | #define FWrite(arg1,arg2,arg3,arg4) if (fwrite(arg1,arg2,arg3,arg4) != arg3){}
      |                                         ~~~~~~~~~~~~~~~~~~~~~~~~~~~~^~~~~~~~~~
   67 | #define FRead(arg1,arg2,arg3,arg4) if (fread(arg1,arg2,arg3,arg4) != arg3) {}
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
   68 | #endif
      | ~~~~~~                                                               
   69 | 
      |                                                                      
   70 | static double dmaxint_;
      | ~~~~~~~~~~~~~~~~~~~~~~~                                              
   71 | 
      |                                                                      
   72 | // Definitions allow machine independent write and read
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~              
   73 | // note that must include BYTEHEADER at head of routine
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~              
   74 | // The policy is that each machine vwrite binary information in
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~      
   75 | // without swapping, ie. native endian.
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                              
   76 | // On reading, the type is checked to decide whether
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                 
   77 | // byteswapping should be performed
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                                  
   78 | 
      |                                                                      
   79 | #define BYTEHEADER int _II__;  char *_IN__; char _OUT__[16]; int BYTESWAP_FLAG=0;
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
   80 | #define BYTESWAP(_X__,_TYPE__) \
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                                     
   81 |     if (BYTESWAP_FLAG == 1) { \
      |     ~~~~~~~~~~~~~~~~~~~~~~~~~~~                                      
   82 |  _IN__ = (char *) &(_X__); \
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~                                         
   83 |  for (_II__=0;_II__<sizeof(_TYPE__);_II__++) { \
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                     
   84 |   _OUT__[_II__] = _IN__[sizeof(_TYPE__)-_II__-1]; } \
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                
   85 |  (_X__) = *((_TYPE__ *) &_OUT__); \
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                                  
   86 |     }
      |     ~                                                                
   87 | 
      |                                                                      
   88 | #include "ivocvect.h"
      | ~~~~~~~~~~~~~~~~~~~~~                                                
   89 | 
      |                                                                      
   90 | // definition of SampleHistogram from the gnu c++ class library
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~      
   91 | #include <SmplHist.h>
      | ~~~~~~~~~~~~~~~~~~~~~                                                
   92 | 
      |                                                                      
   93 | // definition of random numer generator
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                              
   94 | #include "random1.h"
      | ~~~~~~~~~~~~~~~~~~~~                                                 
   95 | #include <Uniform.h>
      | ~~~~~~~~~~~~~~~~~~~~                                                 
   96 | 
      |                                                                      
   97 | // definition of comparison functions
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                                
   98 | #include <d_defs.h>
      | ~~~~~~~~~~~~~~~~~~~                                                  
   99 | 
      |                                                                      
  100 | #if HAVE_IV
      | ~~~~~~~~~~~                                                          
  101 | #include "utility.h"
      | ~~~~~~~~~~~~~~~~~~~~                                                 
  102 | #endif
      | ~~~~~~                                                               
  103 | #include "oc2iv.h"
      | ~~~~~~~~~~~~~~~~~~                                                   
  104 | #include "parse.h"
      | ~~~~~~~~~~~~~~~~~~                                                   
  105 | #include "ocfile.h"
      | ~~~~~~~~~~~~~~~~~~~                                                  
  106 | 
      |                                                                      
  107 | extern "C" {
      | ~~~~~~~~~~~~                                                         
  108 | extern Object* hoc_thisobject;
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                                       
  109 | extern Symlist* hoc_top_level_symlist;
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                               
  110 | extern void nrn_exit(int);
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~                                           
  111 | IvocVect* (*nrnpy_vec_from_python_p_)(void*);
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                        
  112 | Object** (*nrnpy_vec_to_python_p_)(void*);
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                           
  113 | Object** (*nrnpy_vec_as_numpy_helper_)(int, double*);
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                
  114 | };
      | ~~                                                                   
  115 | 
      |                                                                      
  116 | 
      |                                                                      
  117 | int cmpfcn(double a, double b) { return ((a) <= (b))? (((a) == (b))? 0 : -1) : 1; }
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
  118 | 
      |                                                                      
  119 | 
      |                                                                      
  120 | // math functions with error checking defined in oc/SRC/math.c
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~       
  121 | extern "C" {
      | ~~~~~~~~~~~~                                                         
  122 |   extern double hoc_Log(double x), hoc_Log10(double x), hoc_Exp(double x), hoc_Sqrt(double x);
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
  123 |   extern double hoc_scan(FILE*);
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                                     
  124 | }
      | ~                                                                    
  125 | 
      |                                                                      
  126 | static int narg() {
      | ~~~~~~~~~~~~~~~~~~~                                                  
  127 |   int i=0;
      |   ~~~~~~~~                                                           
  128 |   while (ifarg(i++));
      |   ~~~~~~~~~~~~~~~~~~~                                                
  129 |   return i-2;
      |   ~~~~~~~~~~~                                                        
  130 | }
      | ~                                                                    
  131 | 
      |                                                                      
  132 | #define MAX_FIT_PARAMS 20
      | ~~~~~~~~~~~~~~~~~~~~~~~~~                                            
  133 | 
      |                                                                      
  134 | #define TWO_BYTE_HIGH  65535.
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                                        
  135 | #define ONE_BYTE_HIGH  255.
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~                                          
  136 | #define ONE_BYTE_HALF  128.
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~                                          
  137 | 
      |                                                                      
  138 | #define EPSILON 1e-9
      | ~~~~~~~~~~~~~~~~~~~~                                                 
  139 | 
      |                                                                      
  140 | extern "C" {
      | ~~~~~~~~~~~~                                                         
  141 |  extern void notify_freed_val_array(double*, size_t);
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                
  142 |  extern void install_vector_method(const char* name, Pfrd_vp);
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~       
  143 |  extern int vector_instance_px(void*, double**);
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                     
  144 |  extern int vector_arg_px(int, double**);
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                            
  145 |         extern int nrn_mlh_gsort (double* vec, int *base_ptr, int total_elems, doubleComparator cmp);
      |         ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
  146 | };
      | ~~                                                                   
  147 | 
      |                                                                      
  148 | extern "C" int hoc_return_type_code;
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                                 
  149 | 
      |                                                                      
  150 | IvocVect::IvocVect(Object* o) : ParentVect(){obj_ = o; label_ = NULL; MUTCONSTRUCT(0)}
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
  151 | IvocVect::IvocVect(int l, Object* o) : ParentVect(l){obj_ = o; label_ = NULL; MUTCONSTRUCT(0)}
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
  152 | IvocVect::IvocVect(int l, double fill_value, Object* o) : ParentVect(l, fill_value){obj_ = o; label_ = NULL; MUTCONSTRUCT(0)}
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
  153 | IvocVect::IvocVect(IvocVect& v, Object* o) : ParentVect(v) {obj_ = o; label_ = NULL; MUTCONSTRUCT(0)}
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
  154 | 
      |                                                                      
  155 | IvocVect::~IvocVect(){
      | ~~~~~~~~~~~~~~~~~~~~~~                                               
  156 |  MUTDESTRUCT
      |  ~~~~~~~~~~~                                                         
  157 |  if (label_) {
      |  ~~~~~~~~~~~~~                                                       
  158 |   delete [] label_;
      |   ~~~~~~~~~~~~~~~~~                                                  
  159 |  }
      |  ~                                                                   
  160 |  notify_freed_val_array(vec(), capacity());
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                          
  161 | }
      | ~                                                                    
  162 | 
      |                                                                      
  163 | void IvocVect::label(const char* label) {
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                            
  164 |  if (label_) {
      |  ~~~~~~~~~~~~~                                                       
  165 |   delete [] label_;
      |   ~~~~~~~~~~~~~~~~~                                                  
  166 |   label_ = NULL;
      |   ~~~~~~~~~~~~~~                                                     
  167 |  }
      |  ~                                                                   
  168 |  if (label) {
      |  ~~~~~~~~~~~~                                                        
  169 |   label_ = new char[strlen(label) + 1];
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                              
  170 |   strcpy(label_, label);
      |   ~~~~~~~~~~~~~~~~~~~~~~                                             
  171 |  }
      |  ~                                                                   
  172 | }
      | ~                                                                    
  173 | 
      |                                                                      
  174 | static const char* nullstr = "";
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                                     
  175 | 
      |                                                                      
  176 | static const char** v_label(void* v) {
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                               
  177 |  Vect* x  = (Vect*)v;
      |  ~~~~~~~~~~~~~~~~~~~~                                                
  178 |  if (ifarg(1)) {
      |  ~~~~~~~~~~~~~~~                                                     
  179 |   x->label(gargstr(1));
      |   ~~~~~~~~~~~~~~~~~~~~~                                              
  180 |  }
      |  ~                                                                   
  181 |  if (x->label_) {
      |  ~~~~~~~~~~~~~~~~                                                    
  182 |   return (const char**)&x->label_;
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                                   
  183 |  }
      |  ~                                                                   
  184 |  return &nullstr;
      |  ~~~~~~~~~~~~~~~~                                                    
  185 | }
      | ~                                                                    
  186 | 
      |                                                                      
  187 | static void same_err(const char* s, Vect* x, Vect* y) {
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~              
  188 |  if (x == y) {
      |  ~~~~~~~~~~~~~                                                       
  189 |   hoc_execerror(s, " argument needs to be copied first");
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~            
  190 |  }
      |  ~                                                                   
  191 | }
      | ~                                                                    
  192 | 
      |                                                                      
  193 | /* the Vect->at(start, end) function was used in about a dozen places
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
  194 | for the purpose of dealing with a subrange of elements. However that
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ 
  195 | function clones the subrange and returns a new Vect. This caused a
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~   
  196 | memory leak and was needlessly inefficient for those functions.
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~      
  197 | To fix both problems for these specific functions
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                    
  198 | we use a special vector which does not have
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                          
  199 | it's own space but merely a pointer and capacity to the right space of
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
  200 | the original vector. The usage is restricted to only once at a time, i.e.
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
  201 | can't use two subvecs at once and never do anything which affects the
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
  202 | memory space.
      | ~~~~~~~~~~~~~                                                        
  203 | */
      | ~~                                                                   
  204 | 
      |                                                                      
  205 | static IvocVect* subvec_; // allocated when registered.
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~              
  206 | IvocVect* IvocVect::subvec(int start, int end) {
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                     
  207 |  subvec_->len = end - start + 1;
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                                     
  208 |  subvec_->s = s + start;
      |  ~~~~~~~~~~~~~~~~~~~~~~~                                             
  209 |  return subvec_;
      |  ~~~~~~~~~~~~~~~                                                     
  210 | }
      | ~                                                                    
  211 | 
      |                                                                      
  212 | void IvocVect::resize(int newlen) { // all that for this
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~             
  213 |  long oldcap = capacity();
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~                                           
  214 |  if (newlen > space) {
      |  ~~~~~~~~~~~~~~~~~~~~~                                               
  215 |   notify_freed_val_array(vec(), capacity());
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                         
  216 |  }
      |  ~                                                                   
  217 |  ParentVect::resize(newlen);
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~                                         
  218 |  for (;oldcap < newlen; ++oldcap) {
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                                  
  219 |   elem(oldcap) = 0.;
      |   ~~~~~~~~~~~~~~~~~~                                                 
  220 |  }
      |  ~                                                                   
  221 | }
      | ~                                                                    
  222 | 
      |                                                                      
  223 | void IvocVect::resize_chunk(int newlen, int extra) {
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                 
  224 |  if (newlen > space) {
      |  ~~~~~~~~~~~~~~~~~~~~~                                               
  225 |   long x = newlen + extra;
      |   ~~~~~~~~~~~~~~~~~~~~~~~~                                           
  226 |   if (extra == 0) {
      |   ~~~~~~~~~~~~~~~~~                                                  
  227 |    x = ListImpl_best_new_count(newlen, sizeof(double));
      |    ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~              
  228 |   }
      |   ~                                                                  
  229 | //  printf("resize_chunk %d\n", x);
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                                  
  230 |   resize(x);
      |   ~~~~~~~~~~                                                         
  231 |  }
      |  ~                                                                   
  232 |  resize(newlen);
      |  ~~~~~~~~~~~~~~~                                                     
  233 | }
      | ~                                                                    
  234 | 
      |                                                                      
  235 | #if HAVE_IV
      | ~~~~~~~~~~~                                                          
  236 | /*static*/ class GraphMarkItem : public GraphItem {
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                  
  237 | public:
      | ~~~~~~~                                                              
  238 |  GraphMarkItem(Glyph* g) : GraphItem(g){}
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                            
  239 |  virtual ~GraphMarkItem(){};
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~                                         
  240 |  virtual void erase(Scene* s, GlyphIndex i, int type) {
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~              
  241 |   if (type & GraphItem::ERASE_LINE) {
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                                
  242 |    s->remove(i);
      |    ~~~~~~~~~~~~~                                                     
  243 |   }
      |   ~                                                                  
  244 |  }
      |  ~                                                                   
  245 | };
      | ~~                                                                   
  246 | #endif
      | ~~~~~~                                                               
  247 | 
      |                                                                      
  248 | static void* v_cons(Object* o) {
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                                     
  249 |  double fill_value = 0.;
      |  ~~~~~~~~~~~~~~~~~~~~~~~                                             
  250 |  int n = 0;
      |  ~~~~~~~~~~                                                          
  251 |  Vect* vec;
      |  ~~~~~~~~~~                                                          
  252 |  if (ifarg(1)) {
      |  ~~~~~~~~~~~~~~~                                                     
  253 |   if (hoc_is_double_arg(1)) {
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~                                        
  254 |    n = int(chkarg(1,0,1e10));
      |    ~~~~~~~~~~~~~~~~~~~~~~~~~~                                        
  255 |    if (ifarg(2)) fill_value = *getarg(2);
      |    ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                            
  256 |    vec =  new Vect(n,fill_value, o);
      |    ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                                 
  257 |   }else{
      |   ~~~~~~                                                             
  258 |    if (!nrnpy_vec_from_python_p_) {
      |    ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                                  
  259 |     hoc_execerror("Python not available", 0);
      |     ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                        
  260 |    }
      |    ~                                                                 
  261 |    vec = (*nrnpy_vec_from_python_p_)(new Vect(0, 0, o));
      |    ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~             
  262 |   }
      |   ~                                                                  
  263 |  }else{
      |  ~~~~~~                                                              
  264 |   vec = new Vect(0, 0, o);
      |   ~~~~~~~~~~~~~~~~~~~~~~~~                                           
  265 |  }
      |  ~                                                                   
  266 |  return vec;
      |  ~~~~~~~~~~~                                                         
  267 | }
      | ~                                                                    
  268 | 
      |                                                                      
  269 | 
      |                                                                      
  270 | static void v_destruct(void* v) {
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                                    
  271 |  delete (Vect*)v;
      |  ~~~~~~~~~~~~~~~~                                                    
  272 | }
      | ~                                                                    
  273 | 
      |                                                                      
  274 | static Symbol* svec_;
      | ~~~~~~~~~~~~~~~~~~~~~                                                
  275 | 
      |                                                                      
  276 | // extern "C" vector functions used by ocmatrix.dll
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                  
  277 | // can also be used in mod files
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                                     
  278 | Vect* vector_new(int n, Object* o){return new Vect(n, o);}
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~           
  279 | Vect* vector_new0(){return new Vect();}
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                              
  280 | Vect* vector_new1(int n){return new Vect(n);}
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                        
  281 | Vect* vector_new2(Vect* v){return new Vect(*v);}
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                     
  282 | void vector_delete(Vect* v){delete v;}
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                               
  283 | int vector_buffer_size(Vect* v){return v->buffer_size();}
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~            
  284 | int vector_capacity(Vect* v){return v->capacity();}
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                  
  285 | void vector_resize(Vect* v, int n){v->resize(n);}
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                    
  286 | Object** vector_temp_objvar(Vect* v){return v->temp_objvar();}
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~       
  287 | double* vector_vec(Vect* v){return v->vec();}
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                        
  288 | Object** vector_pobj(Vect* v){return &v->obj_;}
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                      
  289 | char* vector_get_label(Vect* v) { return v->label_; }
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                
  290 | void vector_set_label(Vect* v, char* s) { v->label(s); }
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~             
  291 | void vector_append(Vect* v, double x){
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                               
  292 |   long n = v->capacity();
      |   ~~~~~~~~~~~~~~~~~~~~~~~                                            
  293 |   v->resize_chunk(n+1);
      |   ~~~~~~~~~~~~~~~~~~~~~                                              
  294 |   v->elem(n) = x;
      |   ~~~~~~~~~~~~~~~                                                    
  295 | }
      | ~                                                                    
  296 | 
      |                                                                      
  297 | #ifdef WIN32
      | ~~~~~~~~~~~~                                                         
  298 | #if !defined(USEMATRIX) || USEMATRIX == 0
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                            
  299 | #include "../windll/dll.h"
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~                                           
  300 | extern "C" {extern char* neuron_home;}
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                               
  301 | 
      |                                                                      
  302 | void load_ocmatrix() {
      | ~~~~~~~~~~~~~~~~~~~~~~                                               
  303 |  struct DLL* dll = NULL;
      |  ~~~~~~~~~~~~~~~~~~~~~~~                                             
  304 |  char buf[256];
      |  ~~~~~~~~~~~~~~                                                      
  305 |  sprintf(buf, "%s\\lib\\ocmatrix.dll", neuron_home);
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                 
  306 |  dll = dll_load(buf);
      |  ~~~~~~~~~~~~~~~~~~~~                                                
  307 |  if (dll) {
      |  ~~~~~~~~~~                                                          
  308 |   Pfri mreg = (Pfri)dll_lookup(dll, "_Matrix_reg");
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                  
  309 |   if (mreg) {
      |   ~~~~~~~~~~~                                                        
  310 |    (*mreg)();
      |    ~~~~~~~~~~                                                        
  311 |   }
      |   ~                                                                  
  312 |  }else{
      |  ~~~~~~                                                              
  313 |   printf("No Matrix class.\n");
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                                      
  314 |  }
      |  ~                                                                   
  315 | }
      | ~                                                                    
  316 | #endif
      | ~~~~~~                                                               
  317 | #endif
      | ~~~~~~                                                               
  318 | 
      |                                                                      
  319 | Object** IvocVect::temp_objvar() {
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                                   
  320 |  IvocVect* v = (IvocVect*)this;
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                                      
  321 |  Object** po;
      |  ~~~~~~~~~~~~                                                        
  322 |  if (v->obj_) {
      |  ~~~~~~~~~~~~~~                                                      
  323 |   po = hoc_temp_objptr(v->obj_);
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                                     
  324 |  }else{
      |  ~~~~~~                                                              
  325 |   po = hoc_temp_objvar(svec_, (void*)v);
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                             
  326 |   obj_ = *po;
      |   ~~~~~~~~~~~                                                        
  327 |  }
      |  ~                                                                   
  328 |  return po;
      |  ~~~~~~~~~~                                                          
  329 | }
      | ~                                                                    
  330 | 
      |                                                                      
  331 | extern "C" { // bug in cray compiler requires this
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                   
  332 | void install_vector_method(const char* name, double (*f)(void*)) {
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~   
  333 |  Symbol* s_meth;
      |  ~~~~~~~~~~~~~~~                                                     
  334 |  if (hoc_table_lookup(name, svec_->u.ctemplate->symtable)) {
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~         
  335 |   hoc_execerror(name, " already a method in the Vector class");
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~      
  336 |  }
      |  ~                                                                   
  337 |  s_meth = hoc_install(name, FUNCTION, 0.0, &svec_->u.ctemplate->symtable);
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
  338 |  s_meth->u.u_proc->defn.pfd = (Pfrd)f;
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                               
  339 | #define PUBLIC_TYPE 1
      | ~~~~~~~~~~~~~~~~~~~~~                                                
  340 |  s_meth->cpublic = PUBLIC_TYPE;
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                                      
  341 | }
      | ~                                                                    
  342 | }
      | ~                                                                    
  343 | 
      |                                                                      
  344 | int vector_instance_px(void* v, double** px) {
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                       
  345 |  Vect* x = (Vect*)v;
      |  ~~~~~~~~~~~~~~~~~~~                                                 
  346 |  *px = x->vec();
      |  ~~~~~~~~~~~~~~~                                                     
  347 |  return x->capacity();
      |  ~~~~~~~~~~~~~~~~~~~~~                                               
  348 | }
      | ~                                                                    
  349 | 
      |                                                                      
  350 | Vect* vector_arg(int i) {
      | ~~~~~~~~~~~~~~~~~~~~~~~~~                                            
  351 |  Object* ob = *hoc_objgetarg(i);
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                                     
  352 |  if (!ob || ob->ctemplate != svec_->u.ctemplate) {
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                   
  353 |   check_obj_type(ob, "Vector");
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                                      
  354 |  }
      |  ~                                                                   
  355 |  return (Vect*)(ob->u.this_pointer);
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                                 
  356 | }
      | ~                                                                    
  357 | 
      |                                                                      
  358 | int is_vector_arg(int i) {
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~                                           
  359 |  Object* ob = *hoc_objgetarg(i);
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                                     
  360 |  if (!ob || ob->ctemplate != svec_->u.ctemplate) {
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                   
  361 |   return 0;
      |   ~~~~~~~~~                                                          
  362 |  }
      |  ~                                                                   
  363 |  return 1;
      |  ~~~~~~~~~                                                           
  364 | }
      | ~                                                                    
  365 | 
      |                                                                      
  366 | int vector_arg_px(int i, double** px) {
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                              
  367 |  Vect* x = vector_arg(i);
      |  ~~~~~~~~~~~~~~~~~~~~~~~~                                            
  368 |  *px = x->vec();
      |  ~~~~~~~~~~~~~~~                                                     
  369 |  return x->capacity();
      |  ~~~~~~~~~~~~~~~~~~~~~                                               
  370 | }
      | ~                                                                    
  371 | 
      |                                                                      
  372 | extern void nrn_vecsim_add(void*, bool);
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                             
  373 | extern void nrn_vecsim_remove(void*);
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                                
  374 | 
      |                                                                      
  375 | static int possible_destvec(int arg, Vect*& dest) {
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                  
  376 |  if (ifarg(arg) && hoc_is_object_arg(arg)) {
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                         
  377 |    dest = vector_arg(arg);
      |    ~~~~~~~~~~~~~~~~~~~~~~~                                           
  378 |    return arg+1;
      |    ~~~~~~~~~~~~~                                                     
  379 |  }else{
      |  ~~~~~~                                                              
  380 |   dest = new Vect();
      |   ~~~~~~~~~~~~~~~~~~                                                 
  381 |   return arg;
      |   ~~~~~~~~~~~                                                        
  382 |  }
      |  ~                                                                   
  383 | }
      | ~                                                                    
  384 | 
      |                                                                      
  385 | static double v_play_remove(void* v) {
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                               
  386 |  nrn_vecsim_remove(v);
      |  ~~~~~~~~~~~~~~~~~~~~~                                               
  387 |  return 1.;
      |  ~~~~~~~~~~                                                          
  388 | }
      | ~                                                                    
  389 | 
      |                                                                      
  390 | static double v_fwrite(void* v) {
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                                    
  391 |  Vect* vp = (Vect*)v;
      |  ~~~~~~~~~~~~~~~~~~~~                                                
  392 |  void* s;
      |  ~~~~~~~~                                                            
  393 |  int x_max = vp->capacity()-1;
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                                       
  394 |  int start = 0;
      |  ~~~~~~~~~~~~~~                                                      
  395 |  int end = x_max;
      |  ~~~~~~~~~~~~~~~~                                                    
  396 |  hoc_return_type_code = 1; // integer
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                                
  397 |  if (ifarg(2)) {
      |  ~~~~~~~~~~~~~~~                                                     
  398 |    start = int(chkarg(2,0,x_max));
      |    ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                                   
  399 |    end = int(chkarg(3,0,x_max));
      |    ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                                     
  400 |  }
      |  ~                                                                   
  401 |  s = (void*)(&vp->elem(start));
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                                      
  402 |  const char* x = (const char*)s;
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                                     
  403 | 
      |                                                                      
  404 |     Object* ob = *hoc_objgetarg(1);
      |     ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                                  
  405 |     check_obj_type(ob, "File");
      |     ~~~~~~~~~~~~~~~~~~~~~~~~~~~                                      
  406 |     OcFile* f = (OcFile*)(ob->u.this_pointer);
      |     ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                       
  407 |  FILE* fp = f->file();
      |  ~~~~~~~~~~~~~~~~~~~~~                                               
  408 |  if (!fp) {
      |  ~~~~~~~~~~                                                          
  409 |   return 0.;
      |   ~~~~~~~~~~                                                         
  410 |  }
      |  ~                                                                   
  411 |  int n = end-start+1;
      |  ~~~~~~~~~~~~~~~~~~~~                                                
  412 |  BinaryMode(f);
      |  ~~~~~~~~~~~~~~                                                      
  413 |  return (double)fwrite(x,sizeof(double),n,fp);
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                       
  414 | }
      | ~                                                                    
  415 | 
      |                                                                      
  416 | static double v_fread(void* v) {
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                                     
  417 |  Vect* vp = (Vect*)v;
      |  ~~~~~~~~~~~~~~~~~~~~                                                
  418 |  void* s = (void*)(vp->vec());
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                                       
  419 | 
      |                                                                      
  420 |         Object* ob = *hoc_objgetarg(1);
      |         ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                              
  421 | 
      |                                                                      
  422 |  check_obj_type(ob, "File");
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~                                         
  423 |  OcFile* f = (OcFile*)(ob->u.this_pointer);
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                          
  424 | 
      |                                                                      
  425 |  if (ifarg(2)) vp->resize(int(chkarg(2,0,1e10)));
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                    
  426 |  int n = vp->capacity();
      |  ~~~~~~~~~~~~~~~~~~~~~~~                                             
  427 | 
      |                                                                      
  428 |         int type = 4;
      |         ~~~~~~~~~~~~~                                                
  429 |  if (ifarg(3)) {
      |  ~~~~~~~~~~~~~~~                                                     
  430 |            type = int(chkarg(3,1,5));
      |            ~~~~~~~~~~~~~~~~~~~~~~~~~~                                
  431 |         }
      |         ~                                                            
  432 | 
      |                                                                      
  433 |  FILE* fp = f->file();
      |  ~~~~~~~~~~~~~~~~~~~~~                                               
  434 |  if (!fp) {
      |  ~~~~~~~~~~                                                          
  435 |   return 0.;
      |   ~~~~~~~~~~                                                         
  436 |  }
      |  ~                                                                   
  437 | 
      |                                                                      
  438 |  int i;
      |  ~~~~~~                                                              
  439 |  BinaryMode(f)
      |  ~~~~~~~~~~~~~                                                       
  440 |  if (n > 0) switch (type) {
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~                                          
  441 | 
      |                                                                      
  442 |         case 5:         // short ints
      |         ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                                
  443 |         {
      |         ~                                                            
  444 |            short *xs = (short *)malloc(n * (unsigned)sizeof(short));
      |            ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ 
  445 |            FRead(xs,sizeof(short),n,fp);
      |            ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                             
  446 |            for (i=0;i<n;++i) {
      |            ~~~~~~~~~~~~~~~~~~~                                       
  447 |       vp->elem(i) = double(xs[i]);
      |       ~~~~~~~~~~~~~~~~~~~~~~~~~~~~                                   
  448 |     }
      |     ~                                                                
  449 |            free((char *)xs);
      |            ~~~~~~~~~~~~~~~~~                                         
  450 |            break;
      |            ~~~~~~                                                    
  451 |         }
      |         ~                                                            
  452 | 
      |                                                                      
  453 |         case 4:        // doubles
      |         ~~~~~~~~~~~~~~~~~~~~~~~~~                                    
  454 |            FRead(&(vp->elem(0)),sizeof(double),n,fp);
      |            ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                
  455 |            break;
      |            ~~~~~~                                                    
  456 | 
      |                                                                      
  457 |         case 3:         // floats
      |         ~~~~~~~~~~~~~~~~~~~~~~~~~                                    
  458 |  {
      |  ~                                                                   
  459 |            float *xf = (float *)malloc(n * (unsigned)sizeof(float));
      |            ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ 
  460 |            FRead(xf,sizeof(float),n,fp);
      |            ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                             
  461 |            for (i=0;i<n;++i) {
      |            ~~~~~~~~~~~~~~~~~~~                                       
  462 |       vp->elem(i) = double(xf[i]);
      |       ~~~~~~~~~~~~~~~~~~~~~~~~~~~~                                   
  463 |     }
      |     ~                                                                
  464 |            free((char *)xf);
      |            ~~~~~~~~~~~~~~~~~                                         
  465 |            break;
      |            ~~~~~~                                                    
  466 |         }
      |         ~                                                            
  467 | 
      |                                                                      
  468 |         case 2:         // unsigned short ints
      |         ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                       
  469 |         {
      |         ~                                                            
  470 | 
      |                                                                      
  471 |            unsigned short *xi = (unsigned short *)malloc(n * (unsigned)sizeof(unsigned short));
      |            ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
  472 |            FRead(xi,sizeof(unsigned short),n,fp);
      |            ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                    
  473 |            for (i=0;i<n;++i) {
      |            ~~~~~~~~~~~~~~~~~~~                                       
  474 |       vp->elem(i) = double(xi[i]);
      |       ~~~~~~~~~~~~~~~~~~~~~~~~~~~~                                   
  475 |     }
      |     ~                                                                
  476 |            free((char *)xi);
      |            ~~~~~~~~~~~~~~~~~                                         
  477 |            break;
      |            ~~~~~~                                                    
  478 |         }
      |         ~                                                            
  479 | 
      |                                                                      
  480 |         case 1:         // char
      |         ~~~~~~~~~~~~~~~~~~~~~~~                                      
  481 |         {
      |         ~                                                            
  482 |            char *xc = (char *)malloc(n * (unsigned)sizeof(char));
      |            ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~    
  483 |            FRead(xc,sizeof(char),n,fp);
      |            ~~~~~~~~~~~~~~~~~~~~~~~~~~~~                              
  484 |            for (i=0;i<n;++i) {
      |            ~~~~~~~~~~~~~~~~~~~                                       
  485 |       vp->elem(i) = double(xc[i]);
      |       ~~~~~~~~~~~~~~~~~~~~~~~~~~~~                                   
  486 |     }
      |     ~                                                                
  487 |            free(xc);
      |            ~~~~~~~~~                                                 
  488 |            break;
      |            ~~~~~~                                                    
  489 |         }
      |         ~                                                            
  490 |  }
      |  ~                                                                   
  491 |  return 1;
      |  ~~~~~~~~~                                                           
  492 | }
      | ~                                                                    
  493 | 
      |                                                                      
  494 | static double v_vwrite(void* v) {
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                                    
  495 |  Vect* vp = (Vect*)v;
      |  ~~~~~~~~~~~~~~~~~~~~                                                
  496 | 
      |                                                                      
  497 |         Object* ob = *hoc_objgetarg(1);
      |         ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                              
  498 |         check_obj_type(ob, "File");
      |         ~~~~~~~~~~~~~~~~~~~~~~~~~~~                                  
  499 |         OcFile* f = (OcFile*)(ob->u.this_pointer);
      |         ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                   
  500 | 
      |                                                                      
  501 |  FILE* fp = f->file();
      |  ~~~~~~~~~~~~~~~~~~~~~                                               
  502 |  if (!fp) {
      |  ~~~~~~~~~~                                                          
  503 |   return 0.;
      |   ~~~~~~~~~~                                                         
  504 |  }
      |  ~                                                                   
  505 | 
      |                                                                      
  506 |   BinaryMode(f)
      |   ~~~~~~~~~~~~~                                                      
  507 |  // first, write the size of the vector
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                              
  508 |  int n = vp->capacity();
      |  ~~~~~~~~~~~~~~~~~~~~~~~                                             
  509 |         FWrite(&n,sizeof(int),1,fp);
      |         ~~~~~~~~~~~~~~~~~~~~~~~~~~~~                                 
  510 | 
      |                                                                      
  511 | // next, write the type of elements
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                                  
  512 |         int type = 4;
      |         ~~~~~~~~~~~~~                                                
  513 |  if (ifarg(2)) {
      |  ~~~~~~~~~~~~~~~                                                     
  514 |            type = int(chkarg(2,1,5));
      |            ~~~~~~~~~~~~~~~~~~~~~~~~~~                                
  515 |         }
      |         ~                                                            
  516 |         FWrite(&type,sizeof(int),1,fp);
      |         ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                              
  517 | 
      |                                                                      
  518 | // convert the data if necessary
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                                     
  519 |         int i;
      |         ~~~~~~                                                       
  520 |         void *s;
      |         ~~~~~~~~                                                     
  521 |         const char* x;
      |         ~~~~~~~~~~~~~~                                               
  522 | 
      |                                                                      
  523 |         double min,r,sf,sub,intermed;
      |         ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                                
  524 |         switch (type) {
      |         ~~~~~~~~~~~~~~~                                              
  525 | 
      |                                                                      
  526 |         case 5:     // integers as ints (no scaling)
      |         ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                 
  527 |  {
      |  ~                                                                   
  528 |            int* xi = (int *)malloc(n * sizeof(int));
      |            ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                 
  529 |            for (i=0;i<n;++i) {
      |            ~~~~~~~~~~~~~~~~~~~                                       
  530 |       xi[i] = (int)(vp->elem(i));
      |       ~~~~~~~~~~~~~~~~~~~~~~~~~~~                                    
  531 |            }
      |            ~                                                         
  532 |     FWrite(xi,sizeof(int),n,fp);
      |     ~~~~~~~~~~~~~~~~~~~~~~~~~~~~                                     
  533 |            free((char *)xi);
      |            ~~~~~~~~~~~~~~~~~                                         
  534 |            break;
      |            ~~~~~~                                                    
  535 |         }
      |         ~                                                            
  536 | 
      |                                                                      
  537 |         case 4:     // doubles (no conversion unless BYTESWAP used and needed)
      |         ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
  538 |  {
      |  ~                                                                   
  539 |            s = (void*)(&(vp->elem(0)));
      |            ~~~~~~~~~~~~~~~~~~~~~~~~~~~~                              
  540 |     x = (const char*)s;
      |     ~~~~~~~~~~~~~~~~~~~                                              
  541 |     FWrite(x,sizeof(double),n,fp);
      |     ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                                   
  542 |            break;
      |            ~~~~~~                                                    
  543 |         }
      |         ~                                                            
  544 | 
      |                                                                      
  545 |         case 3:     // float (simple automatic type conversion)
      |         ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~      
  546 |  {
      |  ~                                                                   
  547 |            float* xf = (float *)malloc(n * (unsigned)sizeof(float));
      |            ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ 
  548 |            for (i=0;i<n;++i) {
      |            ~~~~~~~~~~~~~~~~~~~                                       
  549 |       xf[i] = float(vp->elem(i));
      |       ~~~~~~~~~~~~~~~~~~~~~~~~~~~                                    
  550 |     }
      |     ~                                                                
  551 |     FWrite(xf,sizeof(float),n,fp);
      |     ~~~~~~~~~~~~~~~~~~~~~~~~~                                        
/builddir/build/BUILD/nrn-7.8.1/src/ivoc/ivocvect.cpp:551:5: note: in expansion of macro 'FWrite'
  551 |     FWrite(xf,sizeof(float),n,fp);
      |     ^~~~~~
/builddir/build/BUILD/nrn-7.8.1/src/ivoc/ivocvect.cpp:66:69: warning: comparison of integer expressions of different signedness: 'size_t' {aka 'long unsigned int'} and 'int' [-Wsign-compare]
   66 | #define FWrite(arg1,arg2,arg3,arg4) if (fwrite(arg1,arg2,arg3,arg4) != arg3){}
      |                                         ~~~~~~~~~~~~~~~~~~~~~~~~~~~~^~~~~~~~~~
   67 | #define FRead(arg1,arg2,arg3,arg4) if (fread(arg1,arg2,arg3,arg4) != arg3) {}
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
   68 | #endif
      | ~~~~~~                                                               
   69 | 
      |                                                                      
   70 | static double dmaxint_;
      | ~~~~~~~~~~~~~~~~~~~~~~~                                              
   71 | 
      |                                                                      
   72 | // Definitions allow machine independent write and read
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~              
   73 | // note that must include BYTEHEADER at head of routine
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~              
   74 | // The policy is that each machine vwrite binary information in
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~      
   75 | // without swapping, ie. native endian.
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                              
   76 | // On reading, the type is checked to decide whether
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                 
   77 | // byteswapping should be performed
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                                  
   78 | 
      |                                                                      
   79 | #define BYTEHEADER int _II__;  char *_IN__; char _OUT__[16]; int BYTESWAP_FLAG=0;
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
   80 | #define BYTESWAP(_X__,_TYPE__) \
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                                     
   81 |     if (BYTESWAP_FLAG == 1) { \
      |     ~~~~~~~~~~~~~~~~~~~~~~~~~~~                                      
   82 |  _IN__ = (char *) &(_X__); \
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~                                         
   83 |  for (_II__=0;_II__<sizeof(_TYPE__);_II__++) { \
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                     
   84 |   _OUT__[_II__] = _IN__[sizeof(_TYPE__)-_II__-1]; } \
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                
   85 |  (_X__) = *((_TYPE__ *) &_OUT__); \
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                                  
   86 |     }
      |     ~                                                                
   87 | 
      |                                                                      
   88 | #include "ivocvect.h"
      | ~~~~~~~~~~~~~~~~~~~~~                                                
   89 | 
      |                                                                      
   90 | // definition of SampleHistogram from the gnu c++ class library
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~      
   91 | #include <SmplHist.h>
      | ~~~~~~~~~~~~~~~~~~~~~                                                
   92 | 
      |                                                                      
   93 | // definition of random numer generator
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                              
   94 | #include "random1.h"
      | ~~~~~~~~~~~~~~~~~~~~                                                 
   95 | #include <Uniform.h>
      | ~~~~~~~~~~~~~~~~~~~~                                                 
   96 | 
      |                                                                      
   97 | // definition of comparison functions
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                                
   98 | #include <d_defs.h>
      | ~~~~~~~~~~~~~~~~~~~                                                  
   99 | 
      |                                                                      
  100 | #if HAVE_IV
      | ~~~~~~~~~~~                                                          
  101 | #include "utility.h"
      | ~~~~~~~~~~~~~~~~~~~~                                                 
  102 | #endif
      | ~~~~~~                                                               
  103 | #include "oc2iv.h"
      | ~~~~~~~~~~~~~~~~~~                                                   
  104 | #include "parse.h"
      | ~~~~~~~~~~~~~~~~~~                                                   
  105 | #include "ocfile.h"
      | ~~~~~~~~~~~~~~~~~~~                                                  
  106 | 
      |                                                                      
  107 | extern "C" {
      | ~~~~~~~~~~~~                                                         
  108 | extern Object* hoc_thisobject;
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                                       
  109 | extern Symlist* hoc_top_level_symlist;
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                               
  110 | extern void nrn_exit(int);
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~                                           
  111 | IvocVect* (*nrnpy_vec_from_python_p_)(void*);
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                        
  112 | Object** (*nrnpy_vec_to_python_p_)(void*);
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                           
  113 | Object** (*nrnpy_vec_as_numpy_helper_)(int, double*);
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                
  114 | };
      | ~~                                                                   
  115 | 
      |                                                                      
  116 | 
      |                                                                      
  117 | int cmpfcn(double a, double b) { return ((a) <= (b))? (((a) == (b))? 0 : -1) : 1; }
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
  118 | 
      |                                                                      
  119 | 
      |                                                                      
  120 | // math functions with error checking defined in oc/SRC/math.c
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~       
  121 | extern "C" {
      | ~~~~~~~~~~~~                                                         
  122 |   extern double hoc_Log(double x), hoc_Log10(double x), hoc_Exp(double x), hoc_Sqrt(double x);
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
  123 |   extern double hoc_scan(FILE*);
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                                     
  124 | }
      | ~                                                                    
  125 | 
      |                                                                      
  126 | static int narg() {
      | ~~~~~~~~~~~~~~~~~~~                                                  
  127 |   int i=0;
      |   ~~~~~~~~                                                           
  128 |   while (ifarg(i++));
      |   ~~~~~~~~~~~~~~~~~~~                                                
  129 |   return i-2;
      |   ~~~~~~~~~~~                                                        
  130 | }
      | ~                                                                    
  131 | 
      |                                                                      
  132 | #define MAX_FIT_PARAMS 20
      | ~~~~~~~~~~~~~~~~~~~~~~~~~                                            
  133 | 
      |                                                                      
  134 | #define TWO_BYTE_HIGH  65535.
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                                        
  135 | #define ONE_BYTE_HIGH  255.
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~                                          
  136 | #define ONE_BYTE_HALF  128.
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~                                          
  137 | 
      |                                                                      
  138 | #define EPSILON 1e-9
      | ~~~~~~~~~~~~~~~~~~~~                                                 
  139 | 
      |                                                                      
  140 | extern "C" {
      | ~~~~~~~~~~~~                                                         
  141 |  extern void notify_freed_val_array(double*, size_t);
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                
  142 |  extern void install_vector_method(const char* name, Pfrd_vp);
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~       
  143 |  extern int vector_instance_px(void*, double**);
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                     
  144 |  extern int vector_arg_px(int, double**);
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                            
  145 |         extern int nrn_mlh_gsort (double* vec, int *base_ptr, int total_elems, doubleComparator cmp);
      |         ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
  146 | };
      | ~~                                                                   
  147 | 
      |                                                                      
  148 | extern "C" int hoc_return_type_code;
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                                 
  149 | 
      |                                                                      
  150 | IvocVect::IvocVect(Object* o) : ParentVect(){obj_ = o; label_ = NULL; MUTCONSTRUCT(0)}
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
  151 | IvocVect::IvocVect(int l, Object* o) : ParentVect(l){obj_ = o; label_ = NULL; MUTCONSTRUCT(0)}
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
  152 | IvocVect::IvocVect(int l, double fill_value, Object* o) : ParentVect(l, fill_value){obj_ = o; label_ = NULL; MUTCONSTRUCT(0)}
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
  153 | IvocVect::IvocVect(IvocVect& v, Object* o) : ParentVect(v) {obj_ = o; label_ = NULL; MUTCONSTRUCT(0)}
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
  154 | 
      |                                                                      
  155 | IvocVect::~IvocVect(){
      | ~~~~~~~~~~~~~~~~~~~~~~                                               
  156 |  MUTDESTRUCT
      |  ~~~~~~~~~~~                                                         
  157 |  if (label_) {
      |  ~~~~~~~~~~~~~                                                       
  158 |   delete [] label_;
      |   ~~~~~~~~~~~~~~~~~                                                  
  159 |  }
      |  ~                                                                   
  160 |  notify_freed_val_array(vec(), capacity());
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                          
  161 | }
      | ~                                                                    
  162 | 
      |                                                                      
  163 | void IvocVect::label(const char* label) {
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                            
  164 |  if (label_) {
      |  ~~~~~~~~~~~~~                                                       
  165 |   delete [] label_;
      |   ~~~~~~~~~~~~~~~~~                                                  
  166 |   label_ = NULL;
      |   ~~~~~~~~~~~~~~                                                     
  167 |  }
      |  ~                                                                   
  168 |  if (label) {
      |  ~~~~~~~~~~~~                                                        
  169 |   label_ = new char[strlen(label) + 1];
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                              
  170 |   strcpy(label_, label);
      |   ~~~~~~~~~~~~~~~~~~~~~~                                             
  171 |  }
      |  ~                                                                   
  172 | }
      | ~                                                                    
  173 | 
      |                                                                      
  174 | static const char* nullstr = "";
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                                     
  175 | 
      |                                                                      
  176 | static const char** v_label(void* v) {
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                               
  177 |  Vect* x  = (Vect*)v;
      |  ~~~~~~~~~~~~~~~~~~~~                                                
  178 |  if (ifarg(1)) {
      |  ~~~~~~~~~~~~~~~                                                     
  179 |   x->label(gargstr(1));
      |   ~~~~~~~~~~~~~~~~~~~~~                                              
  180 |  }
      |  ~                                                                   
  181 |  if (x->label_) {
      |  ~~~~~~~~~~~~~~~~                                                    
  182 |   return (const char**)&x->label_;
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                                   
  183 |  }
      |  ~                                                                   
  184 |  return &nullstr;
      |  ~~~~~~~~~~~~~~~~                                                    
  185 | }
      | ~                                                                    
  186 | 
      |                                                                      
  187 | static void same_err(const char* s, Vect* x, Vect* y) {
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~              
  188 |  if (x == y) {
      |  ~~~~~~~~~~~~~                                                       
  189 |   hoc_execerror(s, " argument needs to be copied first");
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~            
  190 |  }
      |  ~                                                                   
  191 | }
      | ~                                                                    
  192 | 
      |                                                                      
  193 | /* the Vect->at(start, end) function was used in about a dozen places
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
  194 | for the purpose of dealing with a subrange of elements. However that
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ 
  195 | function clones the subrange and returns a new Vect. This caused a
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~   
  196 | memory leak and was needlessly inefficient for those functions.
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~      
  197 | To fix both problems for these specific functions
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                    
  198 | we use a special vector which does not have
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                          
  199 | it's own space but merely a pointer and capacity to the right space of
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
  200 | the original vector. The usage is restricted to only once at a time, i.e.
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
  201 | can't use two subvecs at once and never do anything which affects the
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
  202 | memory space.
      | ~~~~~~~~~~~~~                                                        
  203 | */
      | ~~                                                                   
  204 | 
      |                                                                      
  205 | static IvocVect* subvec_; // allocated when registered.
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~              
  206 | IvocVect* IvocVect::subvec(int start, int end) {
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                     
  207 |  subvec_->len = end - start + 1;
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                                     
  208 |  subvec_->s = s + start;
      |  ~~~~~~~~~~~~~~~~~~~~~~~                                             
  209 |  return subvec_;
      |  ~~~~~~~~~~~~~~~                                                     
  210 | }
      | ~                                                                    
  211 | 
      |                                                                      
  212 | void IvocVect::resize(int newlen) { // all that for this
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~             
  213 |  long oldcap = capacity();
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~                                           
  214 |  if (newlen > space) {
      |  ~~~~~~~~~~~~~~~~~~~~~                                               
  215 |   notify_freed_val_array(vec(), capacity());
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                         
  216 |  }
      |  ~                                                                   
  217 |  ParentVect::resize(newlen);
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~                                         
  218 |  for (;oldcap < newlen; ++oldcap) {
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                                  
  219 |   elem(oldcap) = 0.;
      |   ~~~~~~~~~~~~~~~~~~                                                 
  220 |  }
      |  ~                                                                   
  221 | }
      | ~                                                                    
  222 | 
      |                                                                      
  223 | void IvocVect::resize_chunk(int newlen, int extra) {
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                 
  224 |  if (newlen > space) {
      |  ~~~~~~~~~~~~~~~~~~~~~                                               
  225 |   long x = newlen + extra;
      |   ~~~~~~~~~~~~~~~~~~~~~~~~                                           
  226 |   if (extra == 0) {
      |   ~~~~~~~~~~~~~~~~~                                                  
  227 |    x = ListImpl_best_new_count(newlen, sizeof(double));
      |    ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~              
  228 |   }
      |   ~                                                                  
  229 | //  printf("resize_chunk %d\n", x);
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                                  
  230 |   resize(x);
      |   ~~~~~~~~~~                                                         
  231 |  }
      |  ~                                                                   
  232 |  resize(newlen);
      |  ~~~~~~~~~~~~~~~                                                     
  233 | }
      | ~                                                                    
  234 | 
      |                                                                      
  235 | #if HAVE_IV
      | ~~~~~~~~~~~                                                          
  236 | /*static*/ class GraphMarkItem : public GraphItem {
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                  
  237 | public:
      | ~~~~~~~                                                              
  238 |  GraphMarkItem(Glyph* g) : GraphItem(g){}
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                            
  239 |  virtual ~GraphMarkItem(){};
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~                                         
  240 |  virtual void erase(Scene* s, GlyphIndex i, int type) {
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~              
  241 |   if (type & GraphItem::ERASE_LINE) {
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                                
  242 |    s->remove(i);
      |    ~~~~~~~~~~~~~                                                     
  243 |   }
      |   ~                                                                  
  244 |  }
      |  ~                                                                   
  245 | };
      | ~~                                                                   
  246 | #endif
      | ~~~~~~                                                               
  247 | 
      |                                                                      
  248 | static void* v_cons(Object* o) {
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                                     
  249 |  double fill_value = 0.;
      |  ~~~~~~~~~~~~~~~~~~~~~~~                                             
  250 |  int n = 0;
      |  ~~~~~~~~~~                                                          
  251 |  Vect* vec;
      |  ~~~~~~~~~~                                                          
  252 |  if (ifarg(1)) {
      |  ~~~~~~~~~~~~~~~                                                     
  253 |   if (hoc_is_double_arg(1)) {
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~                                        
  254 |    n = int(chkarg(1,0,1e10));
      |    ~~~~~~~~~~~~~~~~~~~~~~~~~~                                        
  255 |    if (ifarg(2)) fill_value = *getarg(2);
      |    ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                            
  256 |    vec =  new Vect(n,fill_value, o);
      |    ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                                 
  257 |   }else{
      |   ~~~~~~                                                             
  258 |    if (!nrnpy_vec_from_python_p_) {
      |    ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                                  
  259 |     hoc_execerror("Python not available", 0);
      |     ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                        
  260 |    }
      |    ~                                                                 
  261 |    vec = (*nrnpy_vec_from_python_p_)(new Vect(0, 0, o));
      |    ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~             
  262 |   }
      |   ~                                                                  
  263 |  }else{
      |  ~~~~~~                                                              
  264 |   vec = new Vect(0, 0, o);
      |   ~~~~~~~~~~~~~~~~~~~~~~~~                                           
  265 |  }
      |  ~                                                                   
  266 |  return vec;
      |  ~~~~~~~~~~~                                                         
  267 | }
      | ~                                                                    
  268 | 
      |                                                                      
  269 | 
      |                                                                      
  270 | static void v_destruct(void* v) {
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                                    
  271 |  delete (Vect*)v;
      |  ~~~~~~~~~~~~~~~~                                                    
  272 | }
      | ~                                                                    
  273 | 
      |                                                                      
  274 | static Symbol* svec_;
      | ~~~~~~~~~~~~~~~~~~~~~                                                
  275 | 
      |                                                                      
  276 | // extern "C" vector functions used by ocmatrix.dll
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                  
  277 | // can also be used in mod files
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                                     
  278 | Vect* vector_new(int n, Object* o){return new Vect(n, o);}
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~           
  279 | Vect* vector_new0(){return new Vect();}
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                              
  280 | Vect* vector_new1(int n){return new Vect(n);}
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                        
  281 | Vect* vector_new2(Vect* v){return new Vect(*v);}
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                     
  282 | void vector_delete(Vect* v){delete v;}
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                               
  283 | int vector_buffer_size(Vect* v){return v->buffer_size();}
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~            
  284 | int vector_capacity(Vect* v){return v->capacity();}
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                  
  285 | void vector_resize(Vect* v, int n){v->resize(n);}
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                    
  286 | Object** vector_temp_objvar(Vect* v){return v->temp_objvar();}
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~       
  287 | double* vector_vec(Vect* v){return v->vec();}
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                        
  288 | Object** vector_pobj(Vect* v){return &v->obj_;}
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                      
  289 | char* vector_get_label(Vect* v) { return v->label_; }
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                
  290 | void vector_set_label(Vect* v, char* s) { v->label(s); }
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~             
  291 | void vector_append(Vect* v, double x){
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                               
  292 |   long n = v->capacity();
      |   ~~~~~~~~~~~~~~~~~~~~~~~                                            
  293 |   v->resize_chunk(n+1);
      |   ~~~~~~~~~~~~~~~~~~~~~                                              
  294 |   v->elem(n) = x;
      |   ~~~~~~~~~~~~~~~                                                    
  295 | }
      | ~                                                                    
  296 | 
      |                                                                      
  297 | #ifdef WIN32
      | ~~~~~~~~~~~~                                                         
  298 | #if !defined(USEMATRIX) || USEMATRIX == 0
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                            
  299 | #include "../windll/dll.h"
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~                                           
  300 | extern "C" {extern char* neuron_home;}
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                               
  301 | 
      |                                                                      
  302 | void load_ocmatrix() {
      | ~~~~~~~~~~~~~~~~~~~~~~                                               
  303 |  struct DLL* dll = NULL;
      |  ~~~~~~~~~~~~~~~~~~~~~~~                                             
  304 |  char buf[256];
      |  ~~~~~~~~~~~~~~                                                      
  305 |  sprintf(buf, "%s\\lib\\ocmatrix.dll", neuron_home);
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                 
  306 |  dll = dll_load(buf);
      |  ~~~~~~~~~~~~~~~~~~~~                                                
  307 |  if (dll) {
      |  ~~~~~~~~~~                                                          
  308 |   Pfri mreg = (Pfri)dll_lookup(dll, "_Matrix_reg");
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                  
  309 |   if (mreg) {
      |   ~~~~~~~~~~~                                                        
  310 |    (*mreg)();
      |    ~~~~~~~~~~                                                        
  311 |   }
      |   ~                                                                  
  312 |  }else{
      |  ~~~~~~                                                              
  313 |   printf("No Matrix class.\n");
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                                      
  314 |  }
      |  ~                                                                   
  315 | }
      | ~                                                                    
  316 | #endif
      | ~~~~~~                                                               
  317 | #endif
      | ~~~~~~                                                               
  318 | 
      |                                                                      
  319 | Object** IvocVect::temp_objvar() {
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                                   
  320 |  IvocVect* v = (IvocVect*)this;
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                                      
  321 |  Object** po;
      |  ~~~~~~~~~~~~                                                        
  322 |  if (v->obj_) {
      |  ~~~~~~~~~~~~~~                                                      
  323 |   po = hoc_temp_objptr(v->obj_);
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                                     
  324 |  }else{
      |  ~~~~~~                                                              
  325 |   po = hoc_temp_objvar(svec_, (void*)v);
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                             
  326 |   obj_ = *po;
      |   ~~~~~~~~~~~                                                        
  327 |  }
      |  ~                                                                   
  328 |  return po;
      |  ~~~~~~~~~~                                                          
  329 | }
      | ~                                                                    
  330 | 
      |                                                                      
  331 | extern "C" { // bug in cray compiler requires this
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                   
  332 | void install_vector_method(const char* name, double (*f)(void*)) {
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~   
  333 |  Symbol* s_meth;
      |  ~~~~~~~~~~~~~~~                                                     
  334 |  if (hoc_table_lookup(name, svec_->u.ctemplate->symtable)) {
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~         
  335 |   hoc_execerror(name, " already a method in the Vector class");
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~      
  336 |  }
      |  ~                                                                   
  337 |  s_meth = hoc_install(name, FUNCTION, 0.0, &svec_->u.ctemplate->symtable);
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
  338 |  s_meth->u.u_proc->defn.pfd = (Pfrd)f;
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                               
  339 | #define PUBLIC_TYPE 1
      | ~~~~~~~~~~~~~~~~~~~~~                                                
  340 |  s_meth->cpublic = PUBLIC_TYPE;
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                                      
  341 | }
      | ~                                                                    
  342 | }
      | ~                                                                    
  343 | 
      |                                                                      
  344 | int vector_instance_px(void* v, double** px) {
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                       
  345 |  Vect* x = (Vect*)v;
      |  ~~~~~~~~~~~~~~~~~~~                                                 
  346 |  *px = x->vec();
      |  ~~~~~~~~~~~~~~~                                                     
  347 |  return x->capacity();
      |  ~~~~~~~~~~~~~~~~~~~~~                                               
  348 | }
      | ~                                                                    
  349 | 
      |                                                                      
  350 | Vect* vector_arg(int i) {
      | ~~~~~~~~~~~~~~~~~~~~~~~~~                                            
  351 |  Object* ob = *hoc_objgetarg(i);
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                                     
  352 |  if (!ob || ob->ctemplate != svec_->u.ctemplate) {
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                   
  353 |   check_obj_type(ob, "Vector");
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                                      
  354 |  }
      |  ~                                                                   
  355 |  return (Vect*)(ob->u.this_pointer);
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                                 
  356 | }
      | ~                                                                    
  357 | 
      |                                                                      
  358 | int is_vector_arg(int i) {
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~                                           
  359 |  Object* ob = *hoc_objgetarg(i);
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                                     
  360 |  if (!ob || ob->ctemplate != svec_->u.ctemplate) {
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                   
  361 |   return 0;
      |   ~~~~~~~~~                                                          
  362 |  }
      |  ~                                                                   
  363 |  return 1;
      |  ~~~~~~~~~                                                           
  364 | }
      | ~                                                                    
  365 | 
      |                                                                      
  366 | int vector_arg_px(int i, double** px) {
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                              
  367 |  Vect* x = vector_arg(i);
      |  ~~~~~~~~~~~~~~~~~~~~~~~~                                            
  368 |  *px = x->vec();
      |  ~~~~~~~~~~~~~~~                                                     
  369 |  return x->capacity();
      |  ~~~~~~~~~~~~~~~~~~~~~                                               
  370 | }
      | ~                                                                    
  371 | 
      |                                                                      
  372 | extern void nrn_vecsim_add(void*, bool);
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                             
  373 | extern void nrn_vecsim_remove(void*);
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                                
  374 | 
      |                                                                      
  375 | static int possible_destvec(int arg, Vect*& dest) {
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                  
  376 |  if (ifarg(arg) && hoc_is_object_arg(arg)) {
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                         
  377 |    dest = vector_arg(arg);
      |    ~~~~~~~~~~~~~~~~~~~~~~~                                           
  378 |    return arg+1;
      |    ~~~~~~~~~~~~~                                                     
  379 |  }else{
      |  ~~~~~~                                                              
  380 |   dest = new Vect();
      |   ~~~~~~~~~~~~~~~~~~                                                 
  381 |   return arg;
      |   ~~~~~~~~~~~                                                        
  382 |  }
      |  ~                                                                   
  383 | }
      | ~                                                                    
  384 | 
      |                                                                      
  385 | static double v_play_remove(void* v) {
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                               
  386 |  nrn_vecsim_remove(v);
      |  ~~~~~~~~~~~~~~~~~~~~~                                               
  387 |  return 1.;
      |  ~~~~~~~~~~                                                          
  388 | }
      | ~                                                                    
  389 | 
      |                                                                      
  390 | static double v_fwrite(void* v) {
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                                    
  391 |  Vect* vp = (Vect*)v;
      |  ~~~~~~~~~~~~~~~~~~~~                                                
  392 |  void* s;
      |  ~~~~~~~~                                                            
  393 |  int x_max = vp->capacity()-1;
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                                       
  394 |  int start = 0;
      |  ~~~~~~~~~~~~~~                                                      
  395 |  int end = x_max;
      |  ~~~~~~~~~~~~~~~~                                                    
  396 |  hoc_return_type_code = 1; // integer
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                                
  397 |  if (ifarg(2)) {
      |  ~~~~~~~~~~~~~~~                                                     
  398 |    start = int(chkarg(2,0,x_max));
      |    ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                                   
  399 |    end = int(chkarg(3,0,x_max));
      |    ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                                     
  400 |  }
      |  ~                                                                   
  401 |  s = (void*)(&vp->elem(start));
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                                      
  402 |  const char* x = (const char*)s;
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                                     
  403 | 
      |                                                                      
  404 |     Object* ob = *hoc_objgetarg(1);
      |     ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                                  
  405 |     check_obj_type(ob, "File");
      |     ~~~~~~~~~~~~~~~~~~~~~~~~~~~                                      
  406 |     OcFile* f = (OcFile*)(ob->u.this_pointer);
      |     ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                       
  407 |  FILE* fp = f->file();
      |  ~~~~~~~~~~~~~~~~~~~~~                                               
  408 |  if (!fp) {
      |  ~~~~~~~~~~                                                          
  409 |   return 0.;
      |   ~~~~~~~~~~                                                         
  410 |  }
      |  ~                                                                   
  411 |  int n = end-start+1;
      |  ~~~~~~~~~~~~~~~~~~~~                                                
  412 |  BinaryMode(f);
      |  ~~~~~~~~~~~~~~                                                      
  413 |  return (double)fwrite(x,sizeof(double),n,fp);
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                       
  414 | }
      | ~                                                                    
  415 | 
      |                                                                      
  416 | static double v_fread(void* v) {
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                                     
  417 |  Vect* vp = (Vect*)v;
      |  ~~~~~~~~~~~~~~~~~~~~                                                
  418 |  void* s = (void*)(vp->vec());
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                                       
  419 | 
      |                                                                      
  420 |         Object* ob = *hoc_objgetarg(1);
      |         ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                              
  421 | 
      |                                                                      
  422 |  check_obj_type(ob, "File");
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~                                         
  423 |  OcFile* f = (OcFile*)(ob->u.this_pointer);
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                          
  424 | 
      |                                                                      
  425 |  if (ifarg(2)) vp->resize(int(chkarg(2,0,1e10)));
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                    
  426 |  int n = vp->capacity();
      |  ~~~~~~~~~~~~~~~~~~~~~~~                                             
  427 | 
      |                                                                      
  428 |         int type = 4;
      |         ~~~~~~~~~~~~~                                                
  429 |  if (ifarg(3)) {
      |  ~~~~~~~~~~~~~~~                                                     
  430 |            type = int(chkarg(3,1,5));
      |            ~~~~~~~~~~~~~~~~~~~~~~~~~~                                
  431 |         }
      |         ~                                                            
  432 | 
      |                                                                      
  433 |  FILE* fp = f->file();
      |  ~~~~~~~~~~~~~~~~~~~~~                                               
  434 |  if (!fp) {
      |  ~~~~~~~~~~                                                          
  435 |   return 0.;
      |   ~~~~~~~~~~                                                         
  436 |  }
      |  ~                                                                   
  437 | 
      |                                                                      
  438 |  int i;
      |  ~~~~~~                                                              
  439 |  BinaryMode(f)
      |  ~~~~~~~~~~~~~                                                       
  440 |  if (n > 0) switch (type) {
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~                                          
  441 | 
      |                                                                      
  442 |         case 5:         // short ints
      |         ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                                
  443 |         {
      |         ~                                                            
  444 |            short *xs = (short *)malloc(n * (unsigned)sizeof(short));
      |            ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ 
  445 |            FRead(xs,sizeof(short),n,fp);
      |            ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                             
  446 |            for (i=0;i<n;++i) {
      |            ~~~~~~~~~~~~~~~~~~~                                       
  447 |       vp->elem(i) = double(xs[i]);
      |       ~~~~~~~~~~~~~~~~~~~~~~~~~~~~                                   
  448 |     }
      |     ~                                                                
  449 |            free((char *)xs);
      |            ~~~~~~~~~~~~~~~~~                                         
  450 |            break;
      |            ~~~~~~                                                    
  451 |         }
      |         ~                                                            
  452 | 
      |                                                                      
  453 |         case 4:        // doubles
      |         ~~~~~~~~~~~~~~~~~~~~~~~~~                                    
  454 |            FRead(&(vp->elem(0)),sizeof(double),n,fp);
      |            ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                
  455 |            break;
      |            ~~~~~~                                                    
  456 | 
      |                                                                      
  457 |         case 3:         // floats
      |         ~~~~~~~~~~~~~~~~~~~~~~~~~                                    
  458 |  {
      |  ~                                                                   
  459 |            float *xf = (float *)malloc(n * (unsigned)sizeof(float));
      |            ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ 
  460 |            FRead(xf,sizeof(float),n,fp);
      |            ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                             
  461 |            for (i=0;i<n;++i) {
      |            ~~~~~~~~~~~~~~~~~~~                                       
  462 |       vp->elem(i) = double(xf[i]);
      |       ~~~~~~~~~~~~~~~~~~~~~~~~~~~~                                   
  463 |     }
      |     ~                                                                
  464 |            free((char *)xf);
      |            ~~~~~~~~~~~~~~~~~                                         
  465 |            break;
      |            ~~~~~~                                                    
  466 |         }
      |         ~                                                            
  467 | 
      |                                                                      
  468 |         case 2:         // unsigned short ints
      |         ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                       
  469 |         {
      |         ~                                                            
  470 | 
      |                                                                      
  471 |            unsigned short *xi = (unsigned short *)malloc(n * (unsigned)sizeof(unsigned short));
      |            ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
  472 |            FRead(xi,sizeof(unsigned short),n,fp);
      |            ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                    
  473 |            for (i=0;i<n;++i) {
      |            ~~~~~~~~~~~~~~~~~~~                                       
  474 |       vp->elem(i) = double(xi[i]);
      |       ~~~~~~~~~~~~~~~~~~~~~~~~~~~~                                   
  475 |     }
      |     ~                                                                
  476 |            free((char *)xi);
      |            ~~~~~~~~~~~~~~~~~                                         
  477 |            break;
      |            ~~~~~~                                                    
  478 |         }
      |         ~                                                            
  479 | 
      |                                                                      
  480 |         case 1:         // char
      |         ~~~~~~~~~~~~~~~~~~~~~~~                                      
  481 |         {
      |         ~                                                            
  482 |            char *xc = (char *)malloc(n * (unsigned)sizeof(char));
      |            ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~    
  483 |            FRead(xc,sizeof(char),n,fp);
      |            ~~~~~~~~~~~~~~~~~~~~~~~~~~~~                              
  484 |            for (i=0;i<n;++i) {
      |            ~~~~~~~~~~~~~~~~~~~                                       
  485 |       vp->elem(i) = double(xc[i]);
      |       ~~~~~~~~~~~~~~~~~~~~~~~~~~~~                                   
  486 |     }
      |     ~                                                                
  487 |            free(xc);
      |            ~~~~~~~~~                                                 
  488 |            break;
      |            ~~~~~~                                                    
  489 |         }
      |         ~                                                            
  490 |  }
      |  ~                                                                   
  491 |  return 1;
      |  ~~~~~~~~~                                                           
  492 | }
      | ~                                                                    
  493 | 
      |                                                                      
  494 | static double v_vwrite(void* v) {
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                                    
  495 |  Vect* vp = (Vect*)v;
      |  ~~~~~~~~~~~~~~~~~~~~                                                
  496 | 
      |                                                                      
  497 |         Object* ob = *hoc_objgetarg(1);
      |         ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                              
  498 |         check_obj_type(ob, "File");
      |         ~~~~~~~~~~~~~~~~~~~~~~~~~~~                                  
  499 |         OcFile* f = (OcFile*)(ob->u.this_pointer);
      |         ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                   
  500 | 
      |                                                                      
  501 |  FILE* fp = f->file();
      |  ~~~~~~~~~~~~~~~~~~~~~                                               
  502 |  if (!fp) {
      |  ~~~~~~~~~~                                                          
  503 |   return 0.;
      |   ~~~~~~~~~~                                                         
  504 |  }
      |  ~                                                                   
  505 | 
      |                                                                      
  506 |   BinaryMode(f)
      |   ~~~~~~~~~~~~~                                                      
  507 |  // first, write the size of the vector
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                              
  508 |  int n = vp->capacity();
      |  ~~~~~~~~~~~~~~~~~~~~~~~                                             
  509 |         FWrite(&n,sizeof(int),1,fp);
      |         ~~~~~~~~~~~~~~~~~~~~~~~~~~~~                                 
  510 | 
      |                                                                      
  511 | // next, write the type of elements
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                                  
  512 |         int type = 4;
      |         ~~~~~~~~~~~~~                                                
  513 |  if (ifarg(2)) {
      |  ~~~~~~~~~~~~~~~                                                     
  514 |            type = int(chkarg(2,1,5));
      |            ~~~~~~~~~~~~~~~~~~~~~~~~~~                                
  515 |         }
      |         ~                                                            
  516 |         FWrite(&type,sizeof(int),1,fp);
      |         ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                              
  517 | 
      |                                                                      
  518 | // convert the data if necessary
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                                     
  519 |         int i;
      |         ~~~~~~                                                       
  520 |         void *s;
      |         ~~~~~~~~                                                     
  521 |         const char* x;
      |         ~~~~~~~~~~~~~~                                               
  522 | 
      |                                                                      
  523 |         double min,r,sf,sub,intermed;
      |         ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                                
  524 |         switch (type) {
      |         ~~~~~~~~~~~~~~~                                              
  525 | 
      |                                                                      
  526 |         case 5:     // integers as ints (no scaling)
      |         ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                 
  527 |  {
      |  ~                                                                   
  528 |            int* xi = (int *)malloc(n * sizeof(int));
      |            ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                 
  529 |            for (i=0;i<n;++i) {
      |            ~~~~~~~~~~~~~~~~~~~                                       
  530 |       xi[i] = (int)(vp->elem(i));
      |       ~~~~~~~~~~~~~~~~~~~~~~~~~~~                                    
  531 |            }
      |            ~                                                         
  532 |     FWrite(xi,sizeof(int),n,fp);
      |     ~~~~~~~~~~~~~~~~~~~~~~~~~~~~                                     
  533 |            free((char *)xi);
      |            ~~~~~~~~~~~~~~~~~                                         
  534 |            break;
      |            ~~~~~~                                                    
  535 |         }
      |         ~                                                            
  536 | 
      |                                                                      
  537 |         case 4:     // doubles (no conversion unless BYTESWAP used and needed)
      |         ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
  538 |  {
      |  ~                                                                   
  539 |            s = (void*)(&(vp->elem(0)));
      |            ~~~~~~~~~~~~~~~~~~~~~~~~~~~~                              
  540 |     x = (const char*)s;
      |     ~~~~~~~~~~~~~~~~~~~                                              
  541 |     FWrite(x,sizeof(double),n,fp);
      |     ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                                   
  542 |            break;
      |            ~~~~~~                                                    
  543 |         }
      |         ~                                                            
  544 | 
      |                                                                      
  545 |         case 3:     // float (simple automatic type conversion)
      |         ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~      
  546 |  {
      |  ~                                                                   
  547 |            float* xf = (float *)malloc(n * (unsigned)sizeof(float));
      |            ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ 
  548 |            for (i=0;i<n;++i) {
      |            ~~~~~~~~~~~~~~~~~~~                                       
  549 |       xf[i] = float(vp->elem(i));
      |       ~~~~~~~~~~~~~~~~~~~~~~~~~~~                                    
  550 |     }
      |     ~                                                                
  551 |     FWrite(xf,sizeof(float),n,fp);
      |     ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                                   
  552 |            free((char *)xf);
      |            ~~~~~~~~~~~~~~~~~                                         
  553 |            break;
      |            ~~~~~~                                                    
  554 |         }
      |         ~                                                            
  555 | 
      |                                                                      
  556 | 
      |                                                                      
  557 |         case 2:     // short ints (scale to 16 bits with compression)
      |         ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
  558 |  {
      |  ~                                                                   
  559 |            min = vp->min();
      |            ~~~~~~~~~~~~~~~~                                          
  560 |            r = vp->max()- min;
      |            ~~~~~~~~~~~~~~~~~~~                                       
  561 |            if (r > 0) {
      |            ~~~~~~~~~~~~                                              
  562 |                 sf = TWO_BYTE_HIGH/r;
      |                 ~~~~~~~~~~~~~~~~~~~~~                                
  563 |            } else {
      |            ~~~~~~~~                                                  
  564 |                 sf = 1.;
      |                 ~~~~~~~~                                             
  565 |            }
      |            ~                                                         
  566 |            unsigned short* xi = (unsigned short *)malloc(n * (unsigned)sizeof(unsigned short));
      |            ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
  567 |            for (i=0;i<n;++i) {
      |            ~~~~~~~~~~~~~~~~~~~                                       
  568 |               intermed = (vp->elem(i)-min)*sf;
      |               ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                       
  569 |               xi[i] = (unsigned short)intermed;
      |               ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                      
  570 |            }
      |            ~                                                         
  571 |            s = (void*)xi;
      |            ~~~~~~~~~~~~~~                                            
  572 |     x = (const char*)s;
      |     ~~~~~~~~~~~~~~~~~~~                                              
  573 |                       // store the info needed to reconvert
      |                       ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~          
  574 |            FWrite(&sf,sizeof(double),1,fp);
      |            ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                          
  575 |            FWrite(&min,sizeof(double),1,fp);
      |            ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                         
  576 |                       // store the actual data
      |                       ~~~~~~~~~~~~~~~~~~~~~~~~                       
  577 |     FWrite(x,sizeof(unsigned short),n,fp);
      |     ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                                
/builddir/build/BUILD/nrn-7.8.1/src/ivoc/ivocvect.cpp:577:5: note: in expansion of macro 'FWrite'
  577 |     FWrite(x,sizeof(unsigned short),n,fp);
      |     ^~~~~~
/builddir/build/BUILD/nrn-7.8.1/src/ivoc/ivocvect.cpp:66:69: warning: comparison of integer expressions of different signedness: 'size_t' {aka 'long unsigned int'} and 'int' [-Wsign-compare]
   66 | #define FWrite(arg1,arg2,arg3,arg4) if (fwrite(arg1,arg2,arg3,arg4) != arg3){}
      |                                         ~~~~~~~~~~~~~~~~~~~~~~~~~~~~^~~~~~~~~~
   67 | #define FRead(arg1,arg2,arg3,arg4) if (fread(arg1,arg2,arg3,arg4) != arg3) {}
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
   68 | #endif
      | ~~~~~~                                                               
   69 | 
      |                                                                      
   70 | static double dmaxint_;
      | ~~~~~~~~~~~~~~~~~~~~~~~                                              
   71 | 
      |                                                                      
   72 | // Definitions allow machine independent write and read
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~              
   73 | // note that must include BYTEHEADER at head of routine
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~              
   74 | // The policy is that each machine vwrite binary information in
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~      
   75 | // without swapping, ie. native endian.
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                              
   76 | // On reading, the type is checked to decide whether
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                 
   77 | // byteswapping should be performed
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                                  
   78 | 
      |                                                                      
   79 | #define BYTEHEADER int _II__;  char *_IN__; char _OUT__[16]; int BYTESWAP_FLAG=0;
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
   80 | #define BYTESWAP(_X__,_TYPE__) \
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                                     
   81 |     if (BYTESWAP_FLAG == 1) { \
      |     ~~~~~~~~~~~~~~~~~~~~~~~~~~~                                      
   82 |  _IN__ = (char *) &(_X__); \
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~                                         
   83 |  for (_II__=0;_II__<sizeof(_TYPE__);_II__++) { \
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                     
   84 |   _OUT__[_II__] = _IN__[sizeof(_TYPE__)-_II__-1]; } \
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                
   85 |  (_X__) = *((_TYPE__ *) &_OUT__); \
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                                  
   86 |     }
      |     ~                                                                
   87 | 
      |                                                                      
   88 | #include "ivocvect.h"
      | ~~~~~~~~~~~~~~~~~~~~~                                                
   89 | 
      |                                                                      
   90 | // definition of SampleHistogram from the gnu c++ class library
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~      
   91 | #include <SmplHist.h>
      | ~~~~~~~~~~~~~~~~~~~~~                                                
   92 | 
      |                                                                      
   93 | // definition of random numer generator
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                              
   94 | #include "random1.h"
      | ~~~~~~~~~~~~~~~~~~~~                                                 
   95 | #include <Uniform.h>
      | ~~~~~~~~~~~~~~~~~~~~                                                 
   96 | 
      |                                                                      
   97 | // definition of comparison functions
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                                
   98 | #include <d_defs.h>
      | ~~~~~~~~~~~~~~~~~~~                                                  
   99 | 
      |                                                                      
  100 | #if HAVE_IV
      | ~~~~~~~~~~~                                                          
  101 | #include "utility.h"
      | ~~~~~~~~~~~~~~~~~~~~                                                 
  102 | #endif
      | ~~~~~~                                                               
  103 | #include "oc2iv.h"
      | ~~~~~~~~~~~~~~~~~~                                                   
  104 | #include "parse.h"
      | ~~~~~~~~~~~~~~~~~~                                                   
  105 | #include "ocfile.h"
      | ~~~~~~~~~~~~~~~~~~~                                                  
  106 | 
      |                                                                      
  107 | extern "C" {
      | ~~~~~~~~~~~~                                                         
  108 | extern Object* hoc_thisobject;
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                                       
  109 | extern Symlist* hoc_top_level_symlist;
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                               
  110 | extern void nrn_exit(int);
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~                                           
  111 | IvocVect* (*nrnpy_vec_from_python_p_)(void*);
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                        
  112 | Object** (*nrnpy_vec_to_python_p_)(void*);
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                           
  113 | Object** (*nrnpy_vec_as_numpy_helper_)(int, double*);
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                
  114 | };
      | ~~                                                                   
  115 | 
      |                                                                      
  116 | 
      |                                                                      
  117 | int cmpfcn(double a, double b) { return ((a) <= (b))? (((a) == (b))? 0 : -1) : 1; }
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
  118 | 
      |                                                                      
  119 | 
      |                                                                      
  120 | // math functions with error checking defined in oc/SRC/math.c
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~       
  121 | extern "C" {
      | ~~~~~~~~~~~~                                                         
  122 |   extern double hoc_Log(double x), hoc_Log10(double x), hoc_Exp(double x), hoc_Sqrt(double x);
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
  123 |   extern double hoc_scan(FILE*);
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                                     
  124 | }
      | ~                                                                    
  125 | 
      |                                                                      
  126 | static int narg() {
      | ~~~~~~~~~~~~~~~~~~~                                                  
  127 |   int i=0;
      |   ~~~~~~~~                                                           
  128 |   while (ifarg(i++));
      |   ~~~~~~~~~~~~~~~~~~~                                                
  129 |   return i-2;
      |   ~~~~~~~~~~~                                                        
  130 | }
      | ~                                                                    
  131 | 
      |                                                                      
  132 | #define MAX_FIT_PARAMS 20
      | ~~~~~~~~~~~~~~~~~~~~~~~~~                                            
  133 | 
      |                                                                      
  134 | #define TWO_BYTE_HIGH  65535.
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                                        
  135 | #define ONE_BYTE_HIGH  255.
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~                                          
  136 | #define ONE_BYTE_HALF  128.
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~                                          
  137 | 
      |                                                                      
  138 | #define EPSILON 1e-9
      | ~~~~~~~~~~~~~~~~~~~~                                                 
  139 | 
      |                                                                      
  140 | extern "C" {
      | ~~~~~~~~~~~~                                                         
  141 |  extern void notify_freed_val_array(double*, size_t);
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                
  142 |  extern void install_vector_method(const char* name, Pfrd_vp);
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~       
  143 |  extern int vector_instance_px(void*, double**);
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                     
  144 |  extern int vector_arg_px(int, double**);
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                            
  145 |         extern int nrn_mlh_gsort (double* vec, int *base_ptr, int total_elems, doubleComparator cmp);
      |         ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
  146 | };
      | ~~                                                                   
  147 | 
      |                                                                      
  148 | extern "C" int hoc_return_type_code;
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                                 
  149 | 
      |                                                                      
  150 | IvocVect::IvocVect(Object* o) : ParentVect(){obj_ = o; label_ = NULL; MUTCONSTRUCT(0)}
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
  151 | IvocVect::IvocVect(int l, Object* o) : ParentVect(l){obj_ = o; label_ = NULL; MUTCONSTRUCT(0)}
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
  152 | IvocVect::IvocVect(int l, double fill_value, Object* o) : ParentVect(l, fill_value){obj_ = o; label_ = NULL; MUTCONSTRUCT(0)}
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
  153 | IvocVect::IvocVect(IvocVect& v, Object* o) : ParentVect(v) {obj_ = o; label_ = NULL; MUTCONSTRUCT(0)}
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
  154 | 
      |                                                                      
  155 | IvocVect::~IvocVect(){
      | ~~~~~~~~~~~~~~~~~~~~~~                                               
  156 |  MUTDESTRUCT
      |  ~~~~~~~~~~~                                                         
  157 |  if (label_) {
      |  ~~~~~~~~~~~~~                                                       
  158 |   delete [] label_;
      |   ~~~~~~~~~~~~~~~~~                                                  
  159 |  }
      |  ~                                                                   
  160 |  notify_freed_val_array(vec(), capacity());
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                          
  161 | }
      | ~                                                                    
  162 | 
      |                                                                      
  163 | void IvocVect::label(const char* label) {
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                            
  164 |  if (label_) {
      |  ~~~~~~~~~~~~~                                                       
  165 |   delete [] label_;
      |   ~~~~~~~~~~~~~~~~~                                                  
  166 |   label_ = NULL;
      |   ~~~~~~~~~~~~~~                                                     
  167 |  }
      |  ~                                                                   
  168 |  if (label) {
      |  ~~~~~~~~~~~~                                                        
  169 |   label_ = new char[strlen(label) + 1];
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                              
  170 |   strcpy(label_, label);
      |   ~~~~~~~~~~~~~~~~~~~~~~                                             
  171 |  }
      |  ~                                                                   
  172 | }
      | ~                                                                    
  173 | 
      |                                                                      
  174 | static const char* nullstr = "";
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                                     
  175 | 
      |                                                                      
  176 | static const char** v_label(void* v) {
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                               
  177 |  Vect* x  = (Vect*)v;
      |  ~~~~~~~~~~~~~~~~~~~~                                                
  178 |  if (ifarg(1)) {
      |  ~~~~~~~~~~~~~~~                                                     
  179 |   x->label(gargstr(1));
      |   ~~~~~~~~~~~~~~~~~~~~~                                              
  180 |  }
      |  ~                                                                   
  181 |  if (x->label_) {
      |  ~~~~~~~~~~~~~~~~                                                    
  182 |   return (const char**)&x->label_;
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                                   
  183 |  }
      |  ~                                                                   
  184 |  return &nullstr;
      |  ~~~~~~~~~~~~~~~~                                                    
  185 | }
      | ~                                                                    
  186 | 
      |                                                                      
  187 | static void same_err(const char* s, Vect* x, Vect* y) {
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~              
  188 |  if (x == y) {
      |  ~~~~~~~~~~~~~                                                       
  189 |   hoc_execerror(s, " argument needs to be copied first");
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~            
  190 |  }
      |  ~                                                                   
  191 | }
      | ~                                                                    
  192 | 
      |                                                                      
  193 | /* the Vect->at(start, end) function was used in about a dozen places
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
  194 | for the purpose of dealing with a subrange of elements. However that
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ 
  195 | function clones the subrange and returns a new Vect. This caused a
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~   
  196 | memory leak and was needlessly inefficient for those functions.
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~      
  197 | To fix both problems for these specific functions
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                    
  198 | we use a special vector which does not have
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                          
  199 | it's own space but merely a pointer and capacity to the right space of
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
  200 | the original vector. The usage is restricted to only once at a time, i.e.
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
  201 | can't use two subvecs at once and never do anything which affects the
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
  202 | memory space.
      | ~~~~~~~~~~~~~                                                        
  203 | */
      | ~~                                                                   
  204 | 
      |                                                                      
  205 | static IvocVect* subvec_; // allocated when registered.
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~              
  206 | IvocVect* IvocVect::subvec(int start, int end) {
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                     
  207 |  subvec_->len = end - start + 1;
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                                     
  208 |  subvec_->s = s + start;
      |  ~~~~~~~~~~~~~~~~~~~~~~~                                             
  209 |  return subvec_;
      |  ~~~~~~~~~~~~~~~                                                     
  210 | }
      | ~                                                                    
  211 | 
      |                                                                      
  212 | void IvocVect::resize(int newlen) { // all that for this
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~             
  213 |  long oldcap = capacity();
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~                                           
  214 |  if (newlen > space) {
      |  ~~~~~~~~~~~~~~~~~~~~~                                               
  215 |   notify_freed_val_array(vec(), capacity());
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                         
  216 |  }
      |  ~                                                                   
  217 |  ParentVect::resize(newlen);
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~                                         
  218 |  for (;oldcap < newlen; ++oldcap) {
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                                  
  219 |   elem(oldcap) = 0.;
      |   ~~~~~~~~~~~~~~~~~~                                                 
  220 |  }
      |  ~                                                                   
  221 | }
      | ~                                                                    
  222 | 
      |                                                                      
  223 | void IvocVect::resize_chunk(int newlen, int extra) {
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                 
  224 |  if (newlen > space) {
      |  ~~~~~~~~~~~~~~~~~~~~~                                               
  225 |   long x = newlen + extra;
      |   ~~~~~~~~~~~~~~~~~~~~~~~~                                           
  226 |   if (extra == 0) {
      |   ~~~~~~~~~~~~~~~~~                                                  
  227 |    x = ListImpl_best_new_count(newlen, sizeof(double));
      |    ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~              
  228 |   }
      |   ~                                                                  
  229 | //  printf("resize_chunk %d\n", x);
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                                  
  230 |   resize(x);
      |   ~~~~~~~~~~                                                         
  231 |  }
      |  ~                                                                   
  232 |  resize(newlen);
      |  ~~~~~~~~~~~~~~~                                                     
  233 | }
      | ~                                                                    
  234 | 
      |                                                                      
  235 | #if HAVE_IV
      | ~~~~~~~~~~~                                                          
  236 | /*static*/ class GraphMarkItem : public GraphItem {
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                  
  237 | public:
      | ~~~~~~~                                                              
  238 |  GraphMarkItem(Glyph* g) : GraphItem(g){}
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                            
  239 |  virtual ~GraphMarkItem(){};
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~                                         
  240 |  virtual void erase(Scene* s, GlyphIndex i, int type) {
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~              
  241 |   if (type & GraphItem::ERASE_LINE) {
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                                
  242 |    s->remove(i);
      |    ~~~~~~~~~~~~~                                                     
  243 |   }
      |   ~                                                                  
  244 |  }
      |  ~                                                                   
  245 | };
      | ~~                                                                   
  246 | #endif
      | ~~~~~~                                                               
  247 | 
      |                                                                      
  248 | static void* v_cons(Object* o) {
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                                     
  249 |  double fill_value = 0.;
      |  ~~~~~~~~~~~~~~~~~~~~~~~                                             
  250 |  int n = 0;
      |  ~~~~~~~~~~                                                          
  251 |  Vect* vec;
      |  ~~~~~~~~~~                                                          
  252 |  if (ifarg(1)) {
      |  ~~~~~~~~~~~~~~~                                                     
  253 |   if (hoc_is_double_arg(1)) {
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~                                        
  254 |    n = int(chkarg(1,0,1e10));
      |    ~~~~~~~~~~~~~~~~~~~~~~~~~~                                        
  255 |    if (ifarg(2)) fill_value = *getarg(2);
      |    ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                            
  256 |    vec =  new Vect(n,fill_value, o);
      |    ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                                 
  257 |   }else{
      |   ~~~~~~                                                             
  258 |    if (!nrnpy_vec_from_python_p_) {
      |    ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                                  
  259 |     hoc_execerror("Python not available", 0);
      |     ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                        
  260 |    }
      |    ~                                                                 
  261 |    vec = (*nrnpy_vec_from_python_p_)(new Vect(0, 0, o));
      |    ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~             
  262 |   }
      |   ~                                                                  
  263 |  }else{
      |  ~~~~~~                                                              
  264 |   vec = new Vect(0, 0, o);
      |   ~~~~~~~~~~~~~~~~~~~~~~~~                                           
  265 |  }
      |  ~                                                                   
  266 |  return vec;
      |  ~~~~~~~~~~~                                                         
  267 | }
      | ~                                                                    
  268 | 
      |                                                                      
  269 | 
      |                                                                      
  270 | static void v_destruct(void* v) {
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                                    
  271 |  delete (Vect*)v;
      |  ~~~~~~~~~~~~~~~~                                                    
  272 | }
      | ~                                                                    
  273 | 
      |                                                                      
  274 | static Symbol* svec_;
      | ~~~~~~~~~~~~~~~~~~~~~                                                
  275 | 
      |                                                                      
  276 | // extern "C" vector functions used by ocmatrix.dll
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                  
  277 | // can also be used in mod files
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                                     
  278 | Vect* vector_new(int n, Object* o){return new Vect(n, o);}
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~           
  279 | Vect* vector_new0(){return new Vect();}
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                              
  280 | Vect* vector_new1(int n){return new Vect(n);}
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                        
  281 | Vect* vector_new2(Vect* v){return new Vect(*v);}
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                     
  282 | void vector_delete(Vect* v){delete v;}
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                               
  283 | int vector_buffer_size(Vect* v){return v->buffer_size();}
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~            
  284 | int vector_capacity(Vect* v){return v->capacity();}
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                  
  285 | void vector_resize(Vect* v, int n){v->resize(n);}
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                    
  286 | Object** vector_temp_objvar(Vect* v){return v->temp_objvar();}
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~       
  287 | double* vector_vec(Vect* v){return v->vec();}
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                        
  288 | Object** vector_pobj(Vect* v){return &v->obj_;}
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                      
  289 | char* vector_get_label(Vect* v) { return v->label_; }
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                
  290 | void vector_set_label(Vect* v, char* s) { v->label(s); }
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~             
  291 | void vector_append(Vect* v, double x){
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                               
  292 |   long n = v->capacity();
      |   ~~~~~~~~~~~~~~~~~~~~~~~                                            
  293 |   v->resize_chunk(n+1);
      |   ~~~~~~~~~~~~~~~~~~~~~                                              
  294 |   v->elem(n) = x;
      |   ~~~~~~~~~~~~~~~                                                    
  295 | }
      | ~                                                                    
  296 | 
      |                                                                      
  297 | #ifdef WIN32
      | ~~~~~~~~~~~~                                                         
  298 | #if !defined(USEMATRIX) || USEMATRIX == 0
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                            
  299 | #include "../windll/dll.h"
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~                                           
  300 | extern "C" {extern char* neuron_home;}
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                               
  301 | 
      |                                                                      
  302 | void load_ocmatrix() {
      | ~~~~~~~~~~~~~~~~~~~~~~                                               
  303 |  struct DLL* dll = NULL;
      |  ~~~~~~~~~~~~~~~~~~~~~~~                                             
  304 |  char buf[256];
      |  ~~~~~~~~~~~~~~                                                      
  305 |  sprintf(buf, "%s\\lib\\ocmatrix.dll", neuron_home);
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                 
  306 |  dll = dll_load(buf);
      |  ~~~~~~~~~~~~~~~~~~~~                                                
  307 |  if (dll) {
      |  ~~~~~~~~~~                                                          
  308 |   Pfri mreg = (Pfri)dll_lookup(dll, "_Matrix_reg");
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                  
  309 |   if (mreg) {
      |   ~~~~~~~~~~~                                                        
  310 |    (*mreg)();
      |    ~~~~~~~~~~                                                        
  311 |   }
      |   ~                                                                  
  312 |  }else{
      |  ~~~~~~                                                              
  313 |   printf("No Matrix class.\n");
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                                      
  314 |  }
      |  ~                                                                   
  315 | }
      | ~                                                                    
  316 | #endif
      | ~~~~~~                                                               
  317 | #endif
      | ~~~~~~                                                               
  318 | 
      |                                                                      
  319 | Object** IvocVect::temp_objvar() {
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                                   
  320 |  IvocVect* v = (IvocVect*)this;
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                                      
  321 |  Object** po;
      |  ~~~~~~~~~~~~                                                        
  322 |  if (v->obj_) {
      |  ~~~~~~~~~~~~~~                                                      
  323 |   po = hoc_temp_objptr(v->obj_);
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                                     
  324 |  }else{
      |  ~~~~~~                                                              
  325 |   po = hoc_temp_objvar(svec_, (void*)v);
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                             
  326 |   obj_ = *po;
      |   ~~~~~~~~~~~                                                        
  327 |  }
      |  ~                                                                   
  328 |  return po;
      |  ~~~~~~~~~~                                                          
  329 | }
      | ~                                                                    
  330 | 
      |                                                                      
  331 | extern "C" { // bug in cray compiler requires this
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                   
  332 | void install_vector_method(const char* name, double (*f)(void*)) {
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~   
  333 |  Symbol* s_meth;
      |  ~~~~~~~~~~~~~~~                                                     
  334 |  if (hoc_table_lookup(name, svec_->u.ctemplate->symtable)) {
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~         
  335 |   hoc_execerror(name, " already a method in the Vector class");
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~      
  336 |  }
      |  ~                                                                   
  337 |  s_meth = hoc_install(name, FUNCTION, 0.0, &svec_->u.ctemplate->symtable);
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
  338 |  s_meth->u.u_proc->defn.pfd = (Pfrd)f;
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                               
  339 | #define PUBLIC_TYPE 1
      | ~~~~~~~~~~~~~~~~~~~~~                                                
  340 |  s_meth->cpublic = PUBLIC_TYPE;
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                                      
  341 | }
      | ~                                                                    
  342 | }
      | ~                                                                    
  343 | 
      |                                                                      
  344 | int vector_instance_px(void* v, double** px) {
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                       
  345 |  Vect* x = (Vect*)v;
      |  ~~~~~~~~~~~~~~~~~~~                                                 
  346 |  *px = x->vec();
      |  ~~~~~~~~~~~~~~~                                                     
  347 |  return x->capacity();
      |  ~~~~~~~~~~~~~~~~~~~~~                                               
  348 | }
      | ~                                                                    
  349 | 
      |                                                                      
  350 | Vect* vector_arg(int i) {
      | ~~~~~~~~~~~~~~~~~~~~~~~~~                                            
  351 |  Object* ob = *hoc_objgetarg(i);
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                                     
  352 |  if (!ob || ob->ctemplate != svec_->u.ctemplate) {
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                   
  353 |   check_obj_type(ob, "Vector");
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                                      
  354 |  }
      |  ~                                                                   
  355 |  return (Vect*)(ob->u.this_pointer);
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                                 
  356 | }
      | ~                                                                    
  357 | 
      |                                                                      
  358 | int is_vector_arg(int i) {
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~                                           
  359 |  Object* ob = *hoc_objgetarg(i);
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                                     
  360 |  if (!ob || ob->ctemplate != svec_->u.ctemplate) {
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                   
  361 |   return 0;
      |   ~~~~~~~~~                                                          
  362 |  }
      |  ~                                                                   
  363 |  return 1;
      |  ~~~~~~~~~                                                           
  364 | }
      | ~                                                                    
  365 | 
      |                                                                      
  366 | int vector_arg_px(int i, double** px) {
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                              
  367 |  Vect* x = vector_arg(i);
      |  ~~~~~~~~~~~~~~~~~~~~~~~~                                            
  368 |  *px = x->vec();
      |  ~~~~~~~~~~~~~~~                                                     
  369 |  return x->capacity();
      |  ~~~~~~~~~~~~~~~~~~~~~                                               
  370 | }
      | ~                                                                    
  371 | 
      |                                                                      
  372 | extern void nrn_vecsim_add(void*, bool);
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                             
  373 | extern void nrn_vecsim_remove(void*);
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                                
  374 | 
      |                                                                      
  375 | static int possible_destvec(int arg, Vect*& dest) {
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                  
  376 |  if (ifarg(arg) && hoc_is_object_arg(arg)) {
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                         
  377 |    dest = vector_arg(arg);
      |    ~~~~~~~~~~~~~~~~~~~~~~~                                           
  378 |    return arg+1;
      |    ~~~~~~~~~~~~~                                                     
  379 |  }else{
      |  ~~~~~~                                                              
  380 |   dest = new Vect();
      |   ~~~~~~~~~~~~~~~~~~                                                 
  381 |   return arg;
      |   ~~~~~~~~~~~                                                        
  382 |  }
      |  ~                                                                   
  383 | }
      | ~                                                                    
  384 | 
      |                                                                      
  385 | static double v_play_remove(void* v) {
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                               
  386 |  nrn_vecsim_remove(v);
      |  ~~~~~~~~~~~~~~~~~~~~~                                               
  387 |  return 1.;
      |  ~~~~~~~~~~                                                          
  388 | }
      | ~                                                                    
  389 | 
      |                                                                      
  390 | static double v_fwrite(void* v) {
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                                    
  391 |  Vect* vp = (Vect*)v;
      |  ~~~~~~~~~~~~~~~~~~~~                                                
  392 |  void* s;
      |  ~~~~~~~~                                                            
  393 |  int x_max = vp->capacity()-1;
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                                       
  394 |  int start = 0;
      |  ~~~~~~~~~~~~~~                                                      
  395 |  int end = x_max;
      |  ~~~~~~~~~~~~~~~~                                                    
  396 |  hoc_return_type_code = 1; // integer
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                                
  397 |  if (ifarg(2)) {
      |  ~~~~~~~~~~~~~~~                                                     
  398 |    start = int(chkarg(2,0,x_max));
      |    ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                                   
  399 |    end = int(chkarg(3,0,x_max));
      |    ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                                     
  400 |  }
      |  ~                                                                   
  401 |  s = (void*)(&vp->elem(start));
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                                      
  402 |  const char* x = (const char*)s;
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                                     
  403 | 
      |                                                                      
  404 |     Object* ob = *hoc_objgetarg(1);
      |     ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                                  
  405 |     check_obj_type(ob, "File");
      |     ~~~~~~~~~~~~~~~~~~~~~~~~~~~                                      
  406 |     OcFile* f = (OcFile*)(ob->u.this_pointer);
      |     ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                       
  407 |  FILE* fp = f->file();
      |  ~~~~~~~~~~~~~~~~~~~~~                                               
  408 |  if (!fp) {
      |  ~~~~~~~~~~                                                          
  409 |   return 0.;
      |   ~~~~~~~~~~                                                         
  410 |  }
      |  ~                                                                   
  411 |  int n = end-start+1;
      |  ~~~~~~~~~~~~~~~~~~~~                                                
  412 |  BinaryMode(f);
      |  ~~~~~~~~~~~~~~                                                      
  413 |  return (double)fwrite(x,sizeof(double),n,fp);
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                       
  414 | }
      | ~                                                                    
  415 | 
      |                                                                      
  416 | static double v_fread(void* v) {
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                                     
  417 |  Vect* vp = (Vect*)v;
      |  ~~~~~~~~~~~~~~~~~~~~                                                
  418 |  void* s = (void*)(vp->vec());
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                                       
  419 | 
      |                                                                      
  420 |         Object* ob = *hoc_objgetarg(1);
      |         ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                              
  421 | 
      |                                                                      
  422 |  check_obj_type(ob, "File");
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~                                         
  423 |  OcFile* f = (OcFile*)(ob->u.this_pointer);
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                          
  424 | 
      |                                                                      
  425 |  if (ifarg(2)) vp->resize(int(chkarg(2,0,1e10)));
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                    
  426 |  int n = vp->capacity();
      |  ~~~~~~~~~~~~~~~~~~~~~~~                                             
  427 | 
      |                                                                      
  428 |         int type = 4;
      |         ~~~~~~~~~~~~~                                                
  429 |  if (ifarg(3)) {
      |  ~~~~~~~~~~~~~~~                                                     
  430 |            type = int(chkarg(3,1,5));
      |            ~~~~~~~~~~~~~~~~~~~~~~~~~~                                
  431 |         }
      |         ~                                                            
  432 | 
      |                                                                      
  433 |  FILE* fp = f->file();
      |  ~~~~~~~~~~~~~~~~~~~~~                                               
  434 |  if (!fp) {
      |  ~~~~~~~~~~                                                          
  435 |   return 0.;
      |   ~~~~~~~~~~                                                         
  436 |  }
      |  ~                                                                   
  437 | 
      |                                                                      
  438 |  int i;
      |  ~~~~~~                                                              
  439 |  BinaryMode(f)
      |  ~~~~~~~~~~~~~                                                       
  440 |  if (n > 0) switch (type) {
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~                                          
  441 | 
      |                                                                      
  442 |         case 5:         // short ints
      |         ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                                
  443 |         {
      |         ~                                                            
  444 |            short *xs = (short *)malloc(n * (unsigned)sizeof(short));
      |            ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ 
  445 |            FRead(xs,sizeof(short),n,fp);
      |            ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                             
  446 |            for (i=0;i<n;++i) {
      |            ~~~~~~~~~~~~~~~~~~~                                       
  447 |       vp->elem(i) = double(xs[i]);
      |       ~~~~~~~~~~~~~~~~~~~~~~~~~~~~                                   
  448 |     }
      |     ~                                                                
  449 |            free((char *)xs);
      |            ~~~~~~~~~~~~~~~~~                                         
  450 |            break;
      |            ~~~~~~                                                    
  451 |         }
      |         ~                                                            
  452 | 
      |                                                                      
  453 |         case 4:        // doubles
      |         ~~~~~~~~~~~~~~~~~~~~~~~~~                                    
  454 |            FRead(&(vp->elem(0)),sizeof(double),n,fp);
      |            ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                
  455 |            break;
      |            ~~~~~~                                                    
  456 | 
      |                                                                      
  457 |         case 3:         // floats
      |         ~~~~~~~~~~~~~~~~~~~~~~~~~                                    
  458 |  {
      |  ~                                                                   
  459 |            float *xf = (float *)malloc(n * (unsigned)sizeof(float));
      |            ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ 
  460 |            FRead(xf,sizeof(float),n,fp);
      |            ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                             
  461 |            for (i=0;i<n;++i) {
      |            ~~~~~~~~~~~~~~~~~~~                                       
  462 |       vp->elem(i) = double(xf[i]);
      |       ~~~~~~~~~~~~~~~~~~~~~~~~~~~~                                   
  463 |     }
      |     ~                                                                
  464 |            free((char *)xf);
      |            ~~~~~~~~~~~~~~~~~                                         
  465 |            break;
      |            ~~~~~~                                                    
  466 |         }
      |         ~                                                            
  467 | 
      |                                                                      
  468 |         case 2:         // unsigned short ints
      |         ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                       
  469 |         {
      |         ~                                                            
  470 | 
      |                                                                      
  471 |            unsigned short *xi = (unsigned short *)malloc(n * (unsigned)sizeof(unsigned short));
      |            ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
  472 |            FRead(xi,sizeof(unsigned short),n,fp);
      |            ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                    
  473 |            for (i=0;i<n;++i) {
      |            ~~~~~~~~~~~~~~~~~~~                                       
  474 |       vp->elem(i) = double(xi[i]);
      |       ~~~~~~~~~~~~~~~~~~~~~~~~~~~~                                   
  475 |     }
      |     ~                                                                
  476 |            free((char *)xi);
      |            ~~~~~~~~~~~~~~~~~                                         
  477 |            break;
      |            ~~~~~~                                                    
  478 |         }
      |         ~                                                            
  479 | 
      |                                                                      
  480 |         case 1:         // char
      |         ~~~~~~~~~~~~~~~~~~~~~~~                                      
  481 |         {
      |         ~                                                            
  482 |            char *xc = (char *)malloc(n * (unsigned)sizeof(char));
      |            ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~    
  483 |            FRead(xc,sizeof(char),n,fp);
      |            ~~~~~~~~~~~~~~~~~~~~~~~~~~~~                              
  484 |            for (i=0;i<n;++i) {
      |            ~~~~~~~~~~~~~~~~~~~                                       
  485 |       vp->elem(i) = double(xc[i]);
      |       ~~~~~~~~~~~~~~~~~~~~~~~~~~~~                                   
  486 |     }
      |     ~                                                                
  487 |            free(xc);
      |            ~~~~~~~~~                                                 
  488 |            break;
      |            ~~~~~~                                                    
  489 |         }
      |         ~                                                            
  490 |  }
      |  ~                                                                   
  491 |  return 1;
      |  ~~~~~~~~~                                                           
  492 | }
      | ~                                                                    
  493 | 
      |                                                                      
  494 | static double v_vwrite(void* v) {
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                                    
  495 |  Vect* vp = (Vect*)v;
      |  ~~~~~~~~~~~~~~~~~~~~                                                
  496 | 
      |                                                                      
  497 |         Object* ob = *hoc_objgetarg(1);
      |         ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                              
  498 |         check_obj_type(ob, "File");
      |         ~~~~~~~~~~~~~~~~~~~~~~~~~~~                                  
  499 |         OcFile* f = (OcFile*)(ob->u.this_pointer);
      |         ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                   
  500 | 
      |                                                                      
  501 |  FILE* fp = f->file();
      |  ~~~~~~~~~~~~~~~~~~~~~                                               
  502 |  if (!fp) {
      |  ~~~~~~~~~~                                                          
  503 |   return 0.;
      |   ~~~~~~~~~~                                                         
  504 |  }
      |  ~                                                                   
  505 | 
      |                                                                      
  506 |   BinaryMode(f)
      |   ~~~~~~~~~~~~~                                                      
  507 |  // first, write the size of the vector
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                              
  508 |  int n = vp->capacity();
      |  ~~~~~~~~~~~~~~~~~~~~~~~                                             
  509 |         FWrite(&n,sizeof(int),1,fp);
      |         ~~~~~~~~~~~~~~~~~~~~~~~~~~~~                                 
  510 | 
      |                                                                      
  511 | // next, write the type of elements
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                                  
  512 |         int type = 4;
      |         ~~~~~~~~~~~~~                                                
  513 |  if (ifarg(2)) {
      |  ~~~~~~~~~~~~~~~                                                     
  514 |            type = int(chkarg(2,1,5));
      |            ~~~~~~~~~~~~~~~~~~~~~~~~~~                                
  515 |         }
      |         ~                                                            
  516 |         FWrite(&type,sizeof(int),1,fp);
      |         ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                              
  517 | 
      |                                                                      
  518 | // convert the data if necessary
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                                     
  519 |         int i;
      |         ~~~~~~                                                       
  520 |         void *s;
      |         ~~~~~~~~                                                     
  521 |         const char* x;
      |         ~~~~~~~~~~~~~~                                               
  522 | 
      |                                                                      
  523 |         double min,r,sf,sub,intermed;
      |         ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                                
  524 |         switch (type) {
      |         ~~~~~~~~~~~~~~~                                              
  525 | 
      |                                                                      
  526 |         case 5:     // integers as ints (no scaling)
      |         ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                 
  527 |  {
      |  ~                                                                   
  528 |            int* xi = (int *)malloc(n * sizeof(int));
      |            ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                 
  529 |            for (i=0;i<n;++i) {
      |            ~~~~~~~~~~~~~~~~~~~                                       
  530 |       xi[i] = (int)(vp->elem(i));
      |       ~~~~~~~~~~~~~~~~~~~~~~~~~~~                                    
  531 |            }
      |            ~                                                         
  532 |     FWrite(xi,sizeof(int),n,fp);
      |     ~~~~~~~~~~~~~~~~~~~~~~~~~~~~                                     
  533 |            free((char *)xi);
      |            ~~~~~~~~~~~~~~~~~                                         
  534 |            break;
      |            ~~~~~~                                                    
  535 |         }
      |         ~                                                            
  536 | 
      |                                                                      
  537 |         case 4:     // doubles (no conversion unless BYTESWAP used and needed)
      |         ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
  538 |  {
      |  ~                                                                   
  539 |            s = (void*)(&(vp->elem(0)));
      |            ~~~~~~~~~~~~~~~~~~~~~~~~~~~~                              
  540 |     x = (const char*)s;
      |     ~~~~~~~~~~~~~~~~~~~                                              
  541 |     FWrite(x,sizeof(double),n,fp);
      |     ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                                   
  542 |            break;
      |            ~~~~~~                                                    
  543 |         }
      |         ~                                                            
  544 | 
      |                                                                      
  545 |         case 3:     // float (simple automatic type conversion)
      |         ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~      
  546 |  {
      |  ~                                                                   
  547 |            float* xf = (float *)malloc(n * (unsigned)sizeof(float));
      |            ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ 
  548 |            for (i=0;i<n;++i) {
      |            ~~~~~~~~~~~~~~~~~~~                                       
  549 |       xf[i] = float(vp->elem(i));
      |       ~~~~~~~~~~~~~~~~~~~~~~~~~~~                                    
  550 |     }
      |     ~                                                                
  551 |     FWrite(xf,sizeof(float),n,fp);
      |     ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                                   
  552 |            free((char *)xf);
      |            ~~~~~~~~~~~~~~~~~                                         
  553 |            break;
      |            ~~~~~~                                                    
  554 |         }
      |         ~                                                            
  555 | 
      |                                                                      
  556 | 
      |                                                                      
  557 |         case 2:     // short ints (scale to 16 bits with compression)
      |         ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
  558 |  {
      |  ~                                                                   
  559 |            min = vp->min();
      |            ~~~~~~~~~~~~~~~~                                          
  560 |            r = vp->max()- min;
      |            ~~~~~~~~~~~~~~~~~~~                                       
  561 |            if (r > 0) {
      |            ~~~~~~~~~~~~                                              
  562 |                 sf = TWO_BYTE_HIGH/r;
      |                 ~~~~~~~~~~~~~~~~~~~~~                                
  563 |            } else {
      |            ~~~~~~~~                                                  
  564 |                 sf = 1.;
      |                 ~~~~~~~~                                             
  565 |            }
      |            ~                                                         
  566 |            unsigned short* xi = (unsigned short *)malloc(n * (unsigned)sizeof(unsigned short));
      |            ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
  567 |            for (i=0;i<n;++i) {
      |            ~~~~~~~~~~~~~~~~~~~                                       
  568 |               intermed = (vp->elem(i)-min)*sf;
      |               ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                       
  569 |               xi[i] = (unsigned short)intermed;
      |               ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                      
  570 |            }
      |            ~                                                         
  571 |            s = (void*)xi;
      |            ~~~~~~~~~~~~~~                                            
  572 |     x = (const char*)s;
      |     ~~~~~~~~~~~~~~~~~~~                                              
  573 |                       // store the info needed to reconvert
      |                       ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~          
  574 |            FWrite(&sf,sizeof(double),1,fp);
      |            ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                          
  575 |            FWrite(&min,sizeof(double),1,fp);
      |            ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                         
  576 |                       // store the actual data
      |                       ~~~~~~~~~~~~~~~~~~~~~~~~                       
  577 |     FWrite(x,sizeof(unsigned short),n,fp);
      |     ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                           
  578 |            free((char *)xi);
      |            ~~~~~~~~~~~~~~~~~                                         
  579 |            break;
      |            ~~~~~~                                                    
  580 |         }
      |         ~                                                            
  581 | 
      |                                                                      
  582 |         case 1:      // char (scale to 8 bits with compression)
      |         ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~      
  583 |   {
      |   ~                                                                  
  584 |            sub = ONE_BYTE_HALF;
      |            ~~~~~~~~~~~~~~~~~~~~                                      
  585 |            min = vp->min();
      |            ~~~~~~~~~~~~~~~~                                          
  586 |            r = vp->max()- min;
      |            ~~~~~~~~~~~~~~~~~~~                                       
  587 |            if (r > 0) {
      |            ~~~~~~~~~~~~                                              
  588 |                 sf = ONE_BYTE_HIGH/r;
      |                 ~~~~~~~~~~~~~~~~~~~~~                                
  589 |            } else {
      |            ~~~~~~~~                                                  
  590 |                 sf = 1.;
      |                 ~~~~~~~~                                             
  591 |            }
      |            ~                                                         
  592 | 
      |                                                                      
  593 |            char* xc = (char *)malloc(n * (unsigned)sizeof(char));
      |            ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~    
  594 |            for (i=0;i<n;++i) {
      |            ~~~~~~~~~~~~~~~~~~~                                       
  595 |       xc[i] = char(((vp->elem(i)-min)*sf)-sub);
      |       ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                      
  596 |     }
      |     ~                                                                
  597 |            s = (void*)xc;
      |            ~~~~~~~~~~~~~~                                            
  598 |     x = (const char*)s;
      |     ~~~~~~~~~~~~~~~~~~~                                              
  599 |                       // store the info needed to reconvert
      |                       ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~          
  600 |            FWrite(&sf,sizeof(double),1,fp);
      |            ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                          
  601 |            FWrite(&min,sizeof(double),1,fp);
      |            ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                         
  602 |     FWrite(x,sizeof(char),n,fp);
      |     ~~~~~~~~~~~~~~~~~~~~~~~                                          
/builddir/build/BUILD/nrn-7.8.1/src/ivoc/ivocvect.cpp:602:5: note: in expansion of macro 'FWrite'
  602 |     FWrite(x,sizeof(char),n,fp);
      |     ^~~~~~
/builddir/build/BUILD/nrn-7.8.1/src/ivoc/ivocvect.cpp: In function 'double v_vread(void*)':
/builddir/build/BUILD/nrn-7.8.1/src/ivoc/ivocvect.cpp:83:20: warning: comparison of integer expressions of different signedness: 'int' and 'long unsigned int' [-Wsign-compare]
   83 |  for (_II__=0;_II__<sizeof(_TYPE__);_II__++) { \
      |               ~~~~~^~~~~~~~~~~~~~~~
/builddir/build/BUILD/nrn-7.8.1/src/ivoc/ivocvect.cpp:641:9: note: in expansion of macro 'BYTESWAP'
  641 |         BYTESWAP(n,int)
      |         ^~~~~~~~
/builddir/build/BUILD/nrn-7.8.1/src/ivoc/ivocvect.cpp:83:20: warning: comparison of integer expressions of different signedness: 'int' and 'long unsigned int' [-Wsign-compare]
   83 |  for (_II__=0;_II__<sizeof(_TYPE__);_II__++) { \
      |               ~~~~~^~~~~~~~~~~~~~~~
/builddir/build/BUILD/nrn-7.8.1/src/ivoc/ivocvect.cpp:642:9: note: in expansion of macro 'BYTESWAP'
  642 |         BYTESWAP(type,int)
      |         ^~~~~~~~
/builddir/build/BUILD/nrn-7.8.1/src/ivoc/ivocvect.cpp:67:67: warning: comparison of integer expressions of different signedness: 'size_t' {aka 'long unsigned int'} and 'int' [-Wsign-compare]
   67 | #define FRead(arg1,arg2,arg3,arg4) if (fread(arg1,arg2,arg3,arg4) != arg3) {}
      |                                        ~~~~~~~~~~~~~~~~~~~~~~~~~~~^~~~~~~~~~~
   68 | #endif
      | ~~~~~~                                                             
   69 | 
      |                                                                    
   70 | static double dmaxint_;
      | ~~~~~~~~~~~~~~~~~~~~~~~                                            
   71 | 
      |                                                                    
   72 | // Definitions allow machine independent write and read
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~            
   73 | // note that must include BYTEHEADER at head of routine
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~            
   74 | // The policy is that each machine vwrite binary information in
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~    
   75 | // without swapping, ie. native endian.
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                            
   76 | // On reading, the type is checked to decide whether
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~               
   77 | // byteswapping should be performed
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                                
   78 | 
      |                                                                    
   79 | #define BYTEHEADER int _II__;  char *_IN__; char _OUT__[16]; int BYTESWAP_FLAG=0;
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
   80 | #define BYTESWAP(_X__,_TYPE__) \
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                                   
   81 |     if (BYTESWAP_FLAG == 1) { \
      |     ~~~~~~~~~~~~~~~~~~~~~~~~~~~                                    
   82 |  _IN__ = (char *) &(_X__); \
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~                                       
   83 |  for (_II__=0;_II__<sizeof(_TYPE__);_II__++) { \
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                   
   84 |   _OUT__[_II__] = _IN__[sizeof(_TYPE__)-_II__-1]; } \
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~              
   85 |  (_X__) = *((_TYPE__ *) &_OUT__); \
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                                
   86 |     }
      |     ~                                                              
   87 | 
      |                                                                    
   88 | #include "ivocvect.h"
      | ~~~~~~~~~~~~~~~~~~~~~                                              
   89 | 
      |                                                                    
   90 | // definition of SampleHistogram from the gnu c++ class library
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~    
   91 | #include <SmplHist.h>
      | ~~~~~~~~~~~~~~~~~~~~~                                              
   92 | 
      |                                                                    
   93 | // definition of random numer generator
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                            
   94 | #include "random1.h"
      | ~~~~~~~~~~~~~~~~~~~~                                               
   95 | #include <Uniform.h>
      | ~~~~~~~~~~~~~~~~~~~~                                               
   96 | 
      |                                                                    
   97 | // definition of comparison functions
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                              
   98 | #include <d_defs.h>
      | ~~~~~~~~~~~~~~~~~~~                                                
   99 | 
      |                                                                    
  100 | #if HAVE_IV
      | ~~~~~~~~~~~                                                        
  101 | #include "utility.h"
      | ~~~~~~~~~~~~~~~~~~~~                                               
  102 | #endif
      | ~~~~~~                                                             
  103 | #include "oc2iv.h"
      | ~~~~~~~~~~~~~~~~~~                                                 
  104 | #include "parse.h"
      | ~~~~~~~~~~~~~~~~~~                                                 
  105 | #include "ocfile.h"
      | ~~~~~~~~~~~~~~~~~~~                                                
  106 | 
      |                                                                    
  107 | extern "C" {
      | ~~~~~~~~~~~~                                                       
  108 | extern Object* hoc_thisobject;
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                                     
  109 | extern Symlist* hoc_top_level_symlist;
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                             
  110 | extern void nrn_exit(int);
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~                                         
  111 | IvocVect* (*nrnpy_vec_from_python_p_)(void*);
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                      
  112 | Object** (*nrnpy_vec_to_python_p_)(void*);
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                         
  113 | Object** (*nrnpy_vec_as_numpy_helper_)(int, double*);
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~              
  114 | };
      | ~~                                                                 
  115 | 
      |                                                                    
  116 | 
      |                                                                    
  117 | int cmpfcn(double a, double b) { return ((a) <= (b))? (((a) == (b))? 0 : -1) : 1; }
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
  118 | 
      |                                                                    
  119 | 
      |                                                                    
  120 | // math functions with error checking defined in oc/SRC/math.c
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~     
  121 | extern "C" {
      | ~~~~~~~~~~~~                                                       
  122 |   extern double hoc_Log(double x), hoc_Log10(double x), hoc_Exp(double x), hoc_Sqrt(double x);
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
  123 |   extern double hoc_scan(FILE*);
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                                   
  124 | }
      | ~                                                                  
  125 | 
      |                                                                    
  126 | static int narg() {
      | ~~~~~~~~~~~~~~~~~~~                                                
  127 |   int i=0;
      |   ~~~~~~~~                                                         
  128 |   while (ifarg(i++));
      |   ~~~~~~~~~~~~~~~~~~~                                              
  129 |   return i-2;
      |   ~~~~~~~~~~~                                                      
  130 | }
      | ~                                                                  
  131 | 
      |                                                                    
  132 | #define MAX_FIT_PARAMS 20
      | ~~~~~~~~~~~~~~~~~~~~~~~~~                                          
  133 | 
      |                                                                    
  134 | #define TWO_BYTE_HIGH  65535.
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                                      
  135 | #define ONE_BYTE_HIGH  255.
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~                                        
  136 | #define ONE_BYTE_HALF  128.
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~                                        
  137 | 
      |                                                                    
  138 | #define EPSILON 1e-9
      | ~~~~~~~~~~~~~~~~~~~~                                               
  139 | 
      |                                                                    
  140 | extern "C" {
      | ~~~~~~~~~~~~                                                       
  141 |  extern void notify_freed_val_array(double*, size_t);
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~              
  142 |  extern void install_vector_method(const char* name, Pfrd_vp);
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~     
  143 |  extern int vector_instance_px(void*, double**);
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                   
  144 |  extern int vector_arg_px(int, double**);
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                          
  145 |         extern int nrn_mlh_gsort (double* vec, int *base_ptr, int total_elems, doubleComparator cmp);
      |         ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
  146 | };
      | ~~                                                                 
  147 | 
      |                                                                    
  148 | extern "C" int hoc_return_type_code;
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                               
  149 | 
      |                                                                    
  150 | IvocVect::IvocVect(Object* o) : ParentVect(){obj_ = o; label_ = NULL; MUTCONSTRUCT(0)}
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
  151 | IvocVect::IvocVect(int l, Object* o) : ParentVect(l){obj_ = o; label_ = NULL; MUTCONSTRUCT(0)}
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
  152 | IvocVect::IvocVect(int l, double fill_value, Object* o) : ParentVect(l, fill_value){obj_ = o; label_ = NULL; MUTCONSTRUCT(0)}
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
  153 | IvocVect::IvocVect(IvocVect& v, Object* o) : ParentVect(v) {obj_ = o; label_ = NULL; MUTCONSTRUCT(0)}
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
  154 | 
      |                                                                    
  155 | IvocVect::~IvocVect(){
      | ~~~~~~~~~~~~~~~~~~~~~~                                             
  156 |  MUTDESTRUCT
      |  ~~~~~~~~~~~                                                       
  157 |  if (label_) {
      |  ~~~~~~~~~~~~~                                                     
  158 |   delete [] label_;
      |   ~~~~~~~~~~~~~~~~~                                                
  159 |  }
      |  ~                                                                 
  160 |  notify_freed_val_array(vec(), capacity());
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                        
  161 | }
      | ~                                                                  
  162 | 
      |                                                                    
  163 | void IvocVect::label(const char* label) {
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                          
  164 |  if (label_) {
      |  ~~~~~~~~~~~~~                                                     
  165 |   delete [] label_;
      |   ~~~~~~~~~~~~~~~~~                                                
  166 |   label_ = NULL;
      |   ~~~~~~~~~~~~~~                                                   
  167 |  }
      |  ~                                                                 
  168 |  if (label) {
      |  ~~~~~~~~~~~~                                                      
  169 |   label_ = new char[strlen(label) + 1];
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                            
  170 |   strcpy(label_, label);
      |   ~~~~~~~~~~~~~~~~~~~~~~                                           
  171 |  }
      |  ~                                                                 
  172 | }
      | ~                                                                  
  173 | 
      |                                                                    
  174 | static const char* nullstr = "";
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                                   
  175 | 
      |                                                                    
  176 | static const char** v_label(void* v) {
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                             
  177 |  Vect* x  = (Vect*)v;
      |  ~~~~~~~~~~~~~~~~~~~~                                              
  178 |  if (ifarg(1)) {
      |  ~~~~~~~~~~~~~~~                                                   
  179 |   x->label(gargstr(1));
      |   ~~~~~~~~~~~~~~~~~~~~~                                            
  180 |  }
      |  ~                                                                 
  181 |  if (x->label_) {
      |  ~~~~~~~~~~~~~~~~                                                  
  182 |   return (const char**)&x->label_;
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                                 
  183 |  }
      |  ~                                                                 
  184 |  return &nullstr;
      |  ~~~~~~~~~~~~~~~~                                                  
  185 | }
      | ~                                                                  
  186 | 
      |                                                                    
  187 | static void same_err(const char* s, Vect* x, Vect* y) {
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~            
  188 |  if (x == y) {
      |  ~~~~~~~~~~~~~                                                     
  189 |   hoc_execerror(s, " argument needs to be copied first");
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~          
  190 |  }
      |  ~                                                                 
  191 | }
      | ~                                                                  
  192 | 
      |                                                                    
  193 | /* the Vect->at(start, end) function was used in about a dozen places
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
  194 | for the purpose of dealing with a subrange of elements. However that
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
  195 | function clones the subrange and returns a new Vect. This caused a
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ 
  196 | memory leak and was needlessly inefficient for those functions.
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~    
  197 | To fix both problems for these specific functions
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                  
  198 | we use a special vector which does not have
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                        
  199 | it's own space but merely a pointer and capacity to the right space of
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
  200 | the original vector. The usage is restricted to only once at a time, i.e.
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
  201 | can't use two subvecs at once and never do anything which affects the
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
  202 | memory space.
      | ~~~~~~~~~~~~~                                                      
  203 | */
      | ~~                                                                 
  204 | 
      |                                                                    
  205 | static IvocVect* subvec_; // allocated when registered.
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~            
  206 | IvocVect* IvocVect::subvec(int start, int end) {
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                   
  207 |  subvec_->len = end - start + 1;
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                                   
  208 |  subvec_->s = s + start;
      |  ~~~~~~~~~~~~~~~~~~~~~~~                                           
  209 |  return subvec_;
      |  ~~~~~~~~~~~~~~~                                                   
  210 | }
      | ~                                                                  
  211 | 
      |                                                                    
  212 | void IvocVect::resize(int newlen) { // all that for this
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~           
  213 |  long oldcap = capacity();
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~                                         
  214 |  if (newlen > space) {
      |  ~~~~~~~~~~~~~~~~~~~~~                                             
  215 |   notify_freed_val_array(vec(), capacity());
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                       
  216 |  }
      |  ~                                                                 
  217 |  ParentVect::resize(newlen);
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~                                       
  218 |  for (;oldcap < newlen; ++oldcap) {
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                                
  219 |   elem(oldcap) = 0.;
      |   ~~~~~~~~~~~~~~~~~~                                               
  220 |  }
      |  ~                                                                 
  221 | }
      | ~                                                                  
  222 | 
      |                                                                    
  223 | void IvocVect::resize_chunk(int newlen, int extra) {
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~               
  224 |  if (newlen > space) {
      |  ~~~~~~~~~~~~~~~~~~~~~                                             
  225 |   long x = newlen + extra;
      |   ~~~~~~~~~~~~~~~~~~~~~~~~                                         
  226 |   if (extra == 0) {
      |   ~~~~~~~~~~~~~~~~~                                                
  227 |    x = ListImpl_best_new_count(newlen, sizeof(double));
      |    ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~            
  228 |   }
      |   ~                                                                
  229 | //  printf("resize_chunk %d\n", x);
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                                
  230 |   resize(x);
      |   ~~~~~~~~~~                                                       
  231 |  }
      |  ~                                                                 
  232 |  resize(newlen);
      |  ~~~~~~~~~~~~~~~                                                   
  233 | }
      | ~                                                                  
  234 | 
      |                                                                    
  235 | #if HAVE_IV
      | ~~~~~~~~~~~                                                        
  236 | /*static*/ class GraphMarkItem : public GraphItem {
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                
  237 | public:
      | ~~~~~~~                                                            
  238 |  GraphMarkItem(Glyph* g) : GraphItem(g){}
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                          
  239 |  virtual ~GraphMarkItem(){};
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~                                       
  240 |  virtual void erase(Scene* s, GlyphIndex i, int type) {
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~            
  241 |   if (type & GraphItem::ERASE_LINE) {
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                              
  242 |    s->remove(i);
      |    ~~~~~~~~~~~~~                                                   
  243 |   }
      |   ~                                                                
  244 |  }
      |  ~                                                                 
  245 | };
      | ~~                                                                 
  246 | #endif
      | ~~~~~~                                                             
  247 | 
      |                                                                    
  248 | static void* v_cons(Object* o) {
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                                   
  249 |  double fill_value = 0.;
      |  ~~~~~~~~~~~~~~~~~~~~~~~                                           
  250 |  int n = 0;
      |  ~~~~~~~~~~                                                        
  251 |  Vect* vec;
      |  ~~~~~~~~~~                                                        
  252 |  if (ifarg(1)) {
      |  ~~~~~~~~~~~~~~~                                                   
  253 |   if (hoc_is_double_arg(1)) {
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~                                      
  254 |    n = int(chkarg(1,0,1e10));
      |    ~~~~~~~~~~~~~~~~~~~~~~~~~~                                      
  255 |    if (ifarg(2)) fill_value = *getarg(2);
      |    ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                          
  256 |    vec =  new Vect(n,fill_value, o);
      |    ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                               
  257 |   }else{
      |   ~~~~~~                                                           
  258 |    if (!nrnpy_vec_from_python_p_) {
      |    ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                                
  259 |     hoc_execerror("Python not available", 0);
      |     ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                      
  260 |    }
      |    ~                                                               
  261 |    vec = (*nrnpy_vec_from_python_p_)(new Vect(0, 0, o));
      |    ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~           
  262 |   }
      |   ~                                                                
  263 |  }else{
      |  ~~~~~~                                                            
  264 |   vec = new Vect(0, 0, o);
      |   ~~~~~~~~~~~~~~~~~~~~~~~~                                         
  265 |  }
      |  ~                                                                 
  266 |  return vec;
      |  ~~~~~~~~~~~                                                       
  267 | }
      | ~                                                                  
  268 | 
      |                                                                    
  269 | 
      |                                                                    
  270 | static void v_destruct(void* v) {
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                                  
  271 |  delete (Vect*)v;
      |  ~~~~~~~~~~~~~~~~                                                  
  272 | }
      | ~                                                                  
  273 | 
      |                                                                    
  274 | static Symbol* svec_;
      | ~~~~~~~~~~~~~~~~~~~~~                                              
  275 | 
      |                                                                    
  276 | // extern "C" vector functions used by ocmatrix.dll
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                
  277 | // can also be used in mod files
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                                   
  278 | Vect* vector_new(int n, Object* o){return new Vect(n, o);}
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~         
  279 | Vect* vector_new0(){return new Vect();}
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                            
  280 | Vect* vector_new1(int n){return new Vect(n);}
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                      
  281 | Vect* vector_new2(Vect* v){return new Vect(*v);}
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                   
  282 | void vector_delete(Vect* v){delete v;}
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                             
  283 | int vector_buffer_size(Vect* v){return v->buffer_size();}
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~          
  284 | int vector_capacity(Vect* v){return v->capacity();}
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                
  285 | void vector_resize(Vect* v, int n){v->resize(n);}
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                  
  286 | Object** vector_temp_objvar(Vect* v){return v->temp_objvar();}
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~     
  287 | double* vector_vec(Vect* v){return v->vec();}
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                      
  288 | Object** vector_pobj(Vect* v){return &v->obj_;}
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                    
  289 | char* vector_get_label(Vect* v) { return v->label_; }
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~              
  290 | void vector_set_label(Vect* v, char* s) { v->label(s); }
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~           
  291 | void vector_append(Vect* v, double x){
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                             
  292 |   long n = v->capacity();
      |   ~~~~~~~~~~~~~~~~~~~~~~~                                          
  293 |   v->resize_chunk(n+1);
      |   ~~~~~~~~~~~~~~~~~~~~~                                            
  294 |   v->elem(n) = x;
      |   ~~~~~~~~~~~~~~~                                                  
  295 | }
      | ~                                                                  
  296 | 
      |                                                                    
  297 | #ifdef WIN32
      | ~~~~~~~~~~~~                                                       
  298 | #if !defined(USEMATRIX) || USEMATRIX == 0
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                          
  299 | #include "../windll/dll.h"
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~                                         
  300 | extern "C" {extern char* neuron_home;}
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                             
  301 | 
      |                                                                    
  302 | void load_ocmatrix() {
      | ~~~~~~~~~~~~~~~~~~~~~~                                             
  303 |  struct DLL* dll = NULL;
      |  ~~~~~~~~~~~~~~~~~~~~~~~                                           
  304 |  char buf[256];
      |  ~~~~~~~~~~~~~~                                                    
  305 |  sprintf(buf, "%s\\lib\\ocmatrix.dll", neuron_home);
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~               
  306 |  dll = dll_load(buf);
      |  ~~~~~~~~~~~~~~~~~~~~                                              
  307 |  if (dll) {
      |  ~~~~~~~~~~                                                        
  308 |   Pfri mreg = (Pfri)dll_lookup(dll, "_Matrix_reg");
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                
  309 |   if (mreg) {
      |   ~~~~~~~~~~~                                                      
  310 |    (*mreg)();
      |    ~~~~~~~~~~                                                      
  311 |   }
      |   ~                                                                
  312 |  }else{
      |  ~~~~~~                                                            
  313 |   printf("No Matrix class.\n");
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                                    
  314 |  }
      |  ~                                                                 
  315 | }
      | ~                                                                  
  316 | #endif
      | ~~~~~~                                                             
  317 | #endif
      | ~~~~~~                                                             
  318 | 
      |                                                                    
  319 | Object** IvocVect::temp_objvar() {
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                                 
  320 |  IvocVect* v = (IvocVect*)this;
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                                    
  321 |  Object** po;
      |  ~~~~~~~~~~~~                                                      
  322 |  if (v->obj_) {
      |  ~~~~~~~~~~~~~~                                                    
  323 |   po = hoc_temp_objptr(v->obj_);
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                                   
  324 |  }else{
      |  ~~~~~~                                                            
  325 |   po = hoc_temp_objvar(svec_, (void*)v);
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                           
  326 |   obj_ = *po;
      |   ~~~~~~~~~~~                                                      
  327 |  }
      |  ~                                                                 
  328 |  return po;
      |  ~~~~~~~~~~                                                        
  329 | }
      | ~                                                                  
  330 | 
      |                                                                    
  331 | extern "C" { // bug in cray compiler requires this
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                 
  332 | void install_vector_method(const char* name, double (*f)(void*)) {
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ 
  333 |  Symbol* s_meth;
      |  ~~~~~~~~~~~~~~~                                                   
  334 |  if (hoc_table_lookup(name, svec_->u.ctemplate->symtable)) {
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~       
  335 |   hoc_execerror(name, " already a method in the Vector class");
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~    
  336 |  }
      |  ~                                                                 
  337 |  s_meth = hoc_install(name, FUNCTION, 0.0, &svec_->u.ctemplate->symtable);
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
  338 |  s_meth->u.u_proc->defn.pfd = (Pfrd)f;
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                             
  339 | #define PUBLIC_TYPE 1
      | ~~~~~~~~~~~~~~~~~~~~~                                              
  340 |  s_meth->cpublic = PUBLIC_TYPE;
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                                    
  341 | }
      | ~                                                                  
  342 | }
      | ~                                                                  
  343 | 
      |                                                                    
  344 | int vector_instance_px(void* v, double** px) {
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                     
  345 |  Vect* x = (Vect*)v;
      |  ~~~~~~~~~~~~~~~~~~~                                               
  346 |  *px = x->vec();
      |  ~~~~~~~~~~~~~~~                                                   
  347 |  return x->capacity();
      |  ~~~~~~~~~~~~~~~~~~~~~                                             
  348 | }
      | ~                                                                  
  349 | 
      |                                                                    
  350 | Vect* vector_arg(int i) {
      | ~~~~~~~~~~~~~~~~~~~~~~~~~                                          
  351 |  Object* ob = *hoc_objgetarg(i);
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                                   
  352 |  if (!ob || ob->ctemplate != svec_->u.ctemplate) {
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                 
  353 |   check_obj_type(ob, "Vector");
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                                    
  354 |  }
      |  ~                                                                 
  355 |  return (Vect*)(ob->u.this_pointer);
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                               
  356 | }
      | ~                                                                  
  357 | 
      |                                                                    
  358 | int is_vector_arg(int i) {
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~                                         
  359 |  Object* ob = *hoc_objgetarg(i);
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                                   
  360 |  if (!ob || ob->ctemplate != svec_->u.ctemplate) {
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                 
  361 |   return 0;
      |   ~~~~~~~~~                                                        
  362 |  }
      |  ~                                                                 
  363 |  return 1;
      |  ~~~~~~~~~                                                         
  364 | }
      | ~                                                                  
  365 | 
      |                                                                    
  366 | int vector_arg_px(int i, double** px) {
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                            
  367 |  Vect* x = vector_arg(i);
      |  ~~~~~~~~~~~~~~~~~~~~~~~~                                          
  368 |  *px = x->vec();
      |  ~~~~~~~~~~~~~~~                                                   
  369 |  return x->capacity();
      |  ~~~~~~~~~~~~~~~~~~~~~                                             
  370 | }
      | ~                                                                  
  371 | 
      |                                                                    
  372 | extern void nrn_vecsim_add(void*, bool);
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                           
  373 | extern void nrn_vecsim_remove(void*);
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                              
  374 | 
      |                                                                    
  375 | static int possible_destvec(int arg, Vect*& dest) {
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                
  376 |  if (ifarg(arg) && hoc_is_object_arg(arg)) {
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                       
  377 |    dest = vector_arg(arg);
      |    ~~~~~~~~~~~~~~~~~~~~~~~                                         
  378 |    return arg+1;
      |    ~~~~~~~~~~~~~                                                   
  379 |  }else{
      |  ~~~~~~                                                            
  380 |   dest = new Vect();
      |   ~~~~~~~~~~~~~~~~~~                                               
  381 |   return arg;
      |   ~~~~~~~~~~~                                                      
  382 |  }
      |  ~                                                                 
  383 | }
      | ~                                                                  
  384 | 
      |                                                                    
  385 | static double v_play_remove(void* v) {
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                             
  386 |  nrn_vecsim_remove(v);
      |  ~~~~~~~~~~~~~~~~~~~~~                                             
  387 |  return 1.;
      |  ~~~~~~~~~~                                                        
  388 | }
      | ~                                                                  
  389 | 
      |                                                                    
  390 | static double v_fwrite(void* v) {
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                                  
  391 |  Vect* vp = (Vect*)v;
      |  ~~~~~~~~~~~~~~~~~~~~                                              
  392 |  void* s;
      |  ~~~~~~~~                                                          
  393 |  int x_max = vp->capacity()-1;
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                                     
  394 |  int start = 0;
      |  ~~~~~~~~~~~~~~                                                    
  395 |  int end = x_max;
      |  ~~~~~~~~~~~~~~~~                                                  
  396 |  hoc_return_type_code = 1; // integer
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                              
  397 |  if (ifarg(2)) {
      |  ~~~~~~~~~~~~~~~                                                   
  398 |    start = int(chkarg(2,0,x_max));
      |    ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                                 
  399 |    end = int(chkarg(3,0,x_max));
      |    ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                                   
  400 |  }
      |  ~                                                                 
  401 |  s = (void*)(&vp->elem(start));
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                                    
  402 |  const char* x = (const char*)s;
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                                   
  403 | 
      |                                                                    
  404 |     Object* ob = *hoc_objgetarg(1);
      |     ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                                
  405 |     check_obj_type(ob, "File");
      |     ~~~~~~~~~~~~~~~~~~~~~~~~~~~                                    
  406 |     OcFile* f = (OcFile*)(ob->u.this_pointer);
      |     ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                     
  407 |  FILE* fp = f->file();
      |  ~~~~~~~~~~~~~~~~~~~~~                                             
  408 |  if (!fp) {
      |  ~~~~~~~~~~                                                        
  409 |   return 0.;
      |   ~~~~~~~~~~                                                       
  410 |  }
      |  ~                                                                 
  411 |  int n = end-start+1;
      |  ~~~~~~~~~~~~~~~~~~~~                                              
  412 |  BinaryMode(f);
      |  ~~~~~~~~~~~~~~                                                    
  413 |  return (double)fwrite(x,sizeof(double),n,fp);
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                     
  414 | }
      | ~                                                                  
  415 | 
      |                                                                    
  416 | static double v_fread(void* v) {
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                                   
  417 |  Vect* vp = (Vect*)v;
      |  ~~~~~~~~~~~~~~~~~~~~                                              
  418 |  void* s = (void*)(vp->vec());
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                                     
  419 | 
      |                                                                    
  420 |         Object* ob = *hoc_objgetarg(1);
      |         ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                            
  421 | 
      |                                                                    
  422 |  check_obj_type(ob, "File");
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~                                       
  423 |  OcFile* f = (OcFile*)(ob->u.this_pointer);
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                        
  424 | 
      |                                                                    
  425 |  if (ifarg(2)) vp->resize(int(chkarg(2,0,1e10)));
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                  
  426 |  int n = vp->capacity();
      |  ~~~~~~~~~~~~~~~~~~~~~~~                                           
  427 | 
      |                                                                    
  428 |         int type = 4;
      |         ~~~~~~~~~~~~~                                              
  429 |  if (ifarg(3)) {
      |  ~~~~~~~~~~~~~~~                                                   
  430 |            type = int(chkarg(3,1,5));
      |            ~~~~~~~~~~~~~~~~~~~~~~~~~~                              
  431 |         }
      |         ~                                                          
  432 | 
      |                                                                    
  433 |  FILE* fp = f->file();
      |  ~~~~~~~~~~~~~~~~~~~~~                                             
  434 |  if (!fp) {
      |  ~~~~~~~~~~                                                        
  435 |   return 0.;
      |   ~~~~~~~~~~                                                       
  436 |  }
      |  ~                                                                 
  437 | 
      |                                                                    
  438 |  int i;
      |  ~~~~~~                                                            
  439 |  BinaryMode(f)
      |  ~~~~~~~~~~~~~                                                     
  440 |  if (n > 0) switch (type) {
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~                                        
  441 | 
      |                                                                    
  442 |         case 5:         // short ints
      |         ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                              
  443 |         {
      |         ~                                                          
  444 |            short *xs = (short *)malloc(n * (unsigned)sizeof(short));
      |            ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
  445 |            FRead(xs,sizeof(short),n,fp);
      |            ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                           
  446 |            for (i=0;i<n;++i) {
      |            ~~~~~~~~~~~~~~~~~~~                                     
  447 |       vp->elem(i) = double(xs[i]);
      |       ~~~~~~~~~~~~~~~~~~~~~~~~~~~~                                 
  448 |     }
      |     ~                                                              
  449 |            free((char *)xs);
      |            ~~~~~~~~~~~~~~~~~                                       
  450 |            break;
      |            ~~~~~~                                                  
  451 |         }
      |         ~                                                          
  452 | 
      |                                                                    
  453 |         case 4:        // doubles
      |         ~~~~~~~~~~~~~~~~~~~~~~~~~                                  
  454 |            FRead(&(vp->elem(0)),sizeof(double),n,fp);
      |            ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~              
  455 |            break;
      |            ~~~~~~                                                  
  456 | 
      |                                                                    
  457 |         case 3:         // floats
      |         ~~~~~~~~~~~~~~~~~~~~~~~~~                                  
  458 |  {
      |  ~                                                                 
  459 |            float *xf = (float *)malloc(n * (unsigned)sizeof(float));
      |            ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
  460 |            FRead(xf,sizeof(float),n,fp);
      |            ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                           
  461 |            for (i=0;i<n;++i) {
      |            ~~~~~~~~~~~~~~~~~~~                                     
  462 |       vp->elem(i) = double(xf[i]);
      |       ~~~~~~~~~~~~~~~~~~~~~~~~~~~~                                 
  463 |     }
      |     ~                                                              
  464 |            free((char *)xf);
      |            ~~~~~~~~~~~~~~~~~                                       
  465 |            break;
      |            ~~~~~~                                                  
  466 |         }
      |         ~                                                          
  467 | 
      |                                                                    
  468 |         case 2:         // unsigned short ints
      |         ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                     
  469 |         {
      |         ~                                                          
  470 | 
      |                                                                    
  471 |            unsigned short *xi = (unsigned short *)malloc(n * (unsigned)sizeof(unsigned short));
      |            ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
  472 |            FRead(xi,sizeof(unsigned short),n,fp);
      |            ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                  
  473 |            for (i=0;i<n;++i) {
      |            ~~~~~~~~~~~~~~~~~~~                                     
  474 |       vp->elem(i) = double(xi[i]);
      |       ~~~~~~~~~~~~~~~~~~~~~~~~~~~~                                 
  475 |     }
      |     ~                                                              
  476 |            free((char *)xi);
      |            ~~~~~~~~~~~~~~~~~                                       
  477 |            break;
      |            ~~~~~~                                                  
  478 |         }
      |         ~                                                          
  479 | 
      |                                                                    
  480 |         case 1:         // char
      |         ~~~~~~~~~~~~~~~~~~~~~~~                                    
  481 |         {
      |         ~                                                          
  482 |            char *xc = (char *)malloc(n * (unsigned)sizeof(char));
      |            ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~  
  483 |            FRead(xc,sizeof(char),n,fp);
      |            ~~~~~~~~~~~~~~~~~~~~~~~~~~~~                            
  484 |            for (i=0;i<n;++i) {
      |            ~~~~~~~~~~~~~~~~~~~                                     
  485 |       vp->elem(i) = double(xc[i]);
      |       ~~~~~~~~~~~~~~~~~~~~~~~~~~~~                                 
  486 |     }
      |     ~                                                              
  487 |            free(xc);
      |            ~~~~~~~~~                                               
  488 |            break;
      |            ~~~~~~                                                  
  489 |         }
      |         ~                                                          
  490 |  }
      |  ~                                                                 
  491 |  return 1;
      |  ~~~~~~~~~                                                         
  492 | }
      | ~                                                                  
  493 | 
      |                                                                    
  494 | static double v_vwrite(void* v) {
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                                  
  495 |  Vect* vp = (Vect*)v;
      |  ~~~~~~~~~~~~~~~~~~~~                                              
  496 | 
      |                                                                    
  497 |         Object* ob = *hoc_objgetarg(1);
      |         ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                            
  498 |         check_obj_type(ob, "File");
      |         ~~~~~~~~~~~~~~~~~~~~~~~~~~~                                
  499 |         OcFile* f = (OcFile*)(ob->u.this_pointer);
      |         ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                 
  500 | 
      |                                                                    
  501 |  FILE* fp = f->file();
      |  ~~~~~~~~~~~~~~~~~~~~~                                             
  502 |  if (!fp) {
      |  ~~~~~~~~~~                                                        
  503 |   return 0.;
      |   ~~~~~~~~~~                                                       
  504 |  }
      |  ~                                                                 
  505 | 
      |                                                                    
  506 |   BinaryMode(f)
      |   ~~~~~~~~~~~~~                                                    
  507 |  // first, write the size of the vector
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                            
  508 |  int n = vp->capacity();
      |  ~~~~~~~~~~~~~~~~~~~~~~~                                           
  509 |         FWrite(&n,sizeof(int),1,fp);
      |         ~~~~~~~~~~~~~~~~~~~~~~~~~~~~                               
  510 | 
      |                                                                    
  511 | // next, write the type of elements
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                                
  512 |         int type = 4;
      |         ~~~~~~~~~~~~~                                              
  513 |  if (ifarg(2)) {
      |  ~~~~~~~~~~~~~~~                                                   
  514 |            type = int(chkarg(2,1,5));
      |            ~~~~~~~~~~~~~~~~~~~~~~~~~~                              
  515 |         }
      |         ~                                                          
  516 |         FWrite(&type,sizeof(int),1,fp);
      |         ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                            
  517 | 
      |                                                                    
  518 | // convert the data if necessary
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                                   
  519 |         int i;
      |         ~~~~~~                                                     
  520 |         void *s;
      |         ~~~~~~~~                                                   
  521 |         const char* x;
      |         ~~~~~~~~~~~~~~                                             
  522 | 
      |                                                                    
  523 |         double min,r,sf,sub,intermed;
      |         ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                              
  524 |         switch (type) {
      |         ~~~~~~~~~~~~~~~                                            
  525 | 
      |                                                                    
  526 |         case 5:     // integers as ints (no scaling)
      |         ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~               
  527 |  {
      |  ~                                                                 
  528 |            int* xi = (int *)malloc(n * sizeof(int));
      |            ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~               
  529 |            for (i=0;i<n;++i) {
      |            ~~~~~~~~~~~~~~~~~~~                                     
  530 |       xi[i] = (int)(vp->elem(i));
      |       ~~~~~~~~~~~~~~~~~~~~~~~~~~~                                  
  531 |            }
      |            ~                                                       
  532 |     FWrite(xi,sizeof(int),n,fp);
      |     ~~~~~~~~~~~~~~~~~~~~~~~~~~~~                                   
  533 |            free((char *)xi);
      |            ~~~~~~~~~~~~~~~~~                                       
  534 |            break;
      |            ~~~~~~                                                  
  535 |         }
      |         ~                                                          
  536 | 
      |                                                                    
  537 |         case 4:     // doubles (no conversion unless BYTESWAP used and needed)
      |         ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
  538 |  {
      |  ~                                                                 
  539 |            s = (void*)(&(vp->elem(0)));
      |            ~~~~~~~~~~~~~~~~~~~~~~~~~~~~                            
  540 |     x = (const char*)s;
      |     ~~~~~~~~~~~~~~~~~~~                                            
  541 |     FWrite(x,sizeof(double),n,fp);
      |     ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                                 
  542 |            break;
      |            ~~~~~~                                                  
  543 |         }
      |         ~                                                          
  544 | 
      |                                                                    
  545 |         case 3:     // float (simple automatic type conversion)
      |         ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~    
  546 |  {
      |  ~                                                                 
  547 |            float* xf = (float *)malloc(n * (unsigned)sizeof(float));
      |            ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
  548 |            for (i=0;i<n;++i) {
      |            ~~~~~~~~~~~~~~~~~~~                                     
  549 |       xf[i] = float(vp->elem(i));
      |       ~~~~~~~~~~~~~~~~~~~~~~~~~~~                                  
  550 |     }
      |     ~                                                              
  551 |     FWrite(xf,sizeof(float),n,fp);
      |     ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                                 
  552 |            free((char *)xf);
      |            ~~~~~~~~~~~~~~~~~                                       
  553 |            break;
      |            ~~~~~~                                                  
  554 |         }
      |         ~                                                          
  555 | 
      |                                                                    
  556 | 
      |                                                                    
  557 |         case 2:     // short ints (scale to 16 bits with compression)
      |         ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
  558 |  {
      |  ~                                                                 
  559 |            min = vp->min();
      |            ~~~~~~~~~~~~~~~~                                        
  560 |            r = vp->max()- min;
      |            ~~~~~~~~~~~~~~~~~~~                                     
  561 |            if (r > 0) {
      |            ~~~~~~~~~~~~                                            
  562 |                 sf = TWO_BYTE_HIGH/r;
      |                 ~~~~~~~~~~~~~~~~~~~~~                              
  563 |            } else {
      |            ~~~~~~~~                                                
  564 |                 sf = 1.;
      |                 ~~~~~~~~                                           
  565 |            }
      |            ~                                                       
  566 |            unsigned short* xi = (unsigned short *)malloc(n * (unsigned)sizeof(unsigned short));
      |            ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
  567 |            for (i=0;i<n;++i) {
      |            ~~~~~~~~~~~~~~~~~~~                                     
  568 |               intermed = (vp->elem(i)-min)*sf;
      |               ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                     
  569 |               xi[i] = (unsigned short)intermed;
      |               ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                    
  570 |            }
      |            ~                                                       
  571 |            s = (void*)xi;
      |            ~~~~~~~~~~~~~~                                          
  572 |     x = (const char*)s;
      |     ~~~~~~~~~~~~~~~~~~~                                            
  573 |                       // store the info needed to reconvert
      |                       ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~        
  574 |            FWrite(&sf,sizeof(double),1,fp);
      |            ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                        
  575 |            FWrite(&min,sizeof(double),1,fp);
      |            ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                       
  576 |                       // store the actual data
      |                       ~~~~~~~~~~~~~~~~~~~~~~~~                     
  577 |     FWrite(x,sizeof(unsigned short),n,fp);
      |     ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                         
  578 |            free((char *)xi);
      |            ~~~~~~~~~~~~~~~~~                                       
  579 |            break;
      |            ~~~~~~                                                  
  580 |         }
      |         ~                                                          
  581 | 
      |                                                                    
  582 |         case 1:      // char (scale to 8 bits with compression)
      |         ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~    
  583 |   {
      |   ~                                                                
  584 |            sub = ONE_BYTE_HALF;
      |            ~~~~~~~~~~~~~~~~~~~~                                    
  585 |            min = vp->min();
      |            ~~~~~~~~~~~~~~~~                                        
  586 |            r = vp->max()- min;
      |            ~~~~~~~~~~~~~~~~~~~                                     
  587 |            if (r > 0) {
      |            ~~~~~~~~~~~~                                            
  588 |                 sf = ONE_BYTE_HIGH/r;
      |                 ~~~~~~~~~~~~~~~~~~~~~                              
  589 |            } else {
      |            ~~~~~~~~                                                
  590 |                 sf = 1.;
      |                 ~~~~~~~~                                           
  591 |            }
      |            ~                                                       
  592 | 
      |                                                                    
  593 |            char* xc = (char *)malloc(n * (unsigned)sizeof(char));
      |            ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~  
  594 |            for (i=0;i<n;++i) {
      |            ~~~~~~~~~~~~~~~~~~~                                     
  595 |       xc[i] = char(((vp->elem(i)-min)*sf)-sub);
      |       ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                    
  596 |     }
      |     ~                                                              
  597 |            s = (void*)xc;
      |            ~~~~~~~~~~~~~~                                          
  598 |     x = (const char*)s;
      |     ~~~~~~~~~~~~~~~~~~~                                            
  599 |                       // store the info needed to reconvert
      |                       ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~        
  600 |            FWrite(&sf,sizeof(double),1,fp);
      |            ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                        
  601 |            FWrite(&min,sizeof(double),1,fp);
      |            ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                       
  602 |     FWrite(x,sizeof(char),n,fp);
      |     ~~~~~~~~~~~~~~~~~~~~~~~~~~~~                                   
  603 |            free(xc);
      |            ~~~~~~~~~                                               
  604 |            break;
      |            ~~~~~~                                                  
  605 |         }
      |         ~                                                          
  606 | 
      |                                                                    
  607 |  }
      |  ~                                                                 
  608 |     return 1;
      |     ~~~~~~~~~                                                      
  609 | }
      | ~                                                                  
  610 | 
      |                                                                    
  611 | 
      |                                                                    
  612 | static double v_vread(void* v) {
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                                   
  613 |  Vect* vp = (Vect*)v;
      |  ~~~~~~~~~~~~~~~~~~~~                                              
  614 |  void* s = (void*)(vp->vec());
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                                     
  615 | 
      |                                                                    
  616 |         Object* ob = *hoc_objgetarg(1);
      |         ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                            
  617 |  check_obj_type(ob, "File");
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~                                       
  618 |  OcFile* f = (OcFile*)(ob->u.this_pointer);
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                        
  619 |         BYTEHEADER
      |         ~~~~~~~~~~                                                 
  620 | 
      |                                                                    
  621 |  FILE* fp = f->file();
      |  ~~~~~~~~~~~~~~~~~~~~~                                             
  622 |  if (!fp) {
      |  ~~~~~~~~~~                                                        
  623 |   return 0.;
      |   ~~~~~~~~~~                                                       
  624 |  }
      |  ~                                                                 
  625 | 
      |                                                                    
  626 |  BinaryMode(f)
      |  ~~~~~~~~~~~~~                                                     
  627 |         int n;
      |         ~~~~~~                                                     
  628 |         FRead(&n,sizeof(int),1,fp);
      |         ~~~~~~~~~~~~~~~~~~~~~~~~~~~                                
  629 | 
      |                                                                    
  630 |         int type = 0;
      |         ~~~~~~~~~~~~~                                              
  631 |         FRead(&type,sizeof(int),1,fp);
      |         ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                             
  632 | 
      |                                                                    
  633 |  // since the type ranges from 1 to 5 (very important that it not be 0)
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
  634 |  // we can check the type and decide if it needs to be byteswapped
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ 
  635 |  if (type < 1 || type > 5) {
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~                                       
  636 |   BYTESWAP_FLAG = 1;
      |   ~~~~~~~~~~~~~~~~~~                                               
  637 |  }else{
      |  ~~~~~~                                                            
  638 |   BYTESWAP_FLAG = 0;
      |   ~~~~~~~~~~~~~~~~~~                                               
  639 |  }
      |  ~                                                                 
  640 | 
      |                                                                    
  641 |         BYTESWAP(n,int)
      |         ~~~~~~~~~~~~~~~                                            
  642 |         BYTESWAP(type,int)
      |         ~~~~~~~~~~~~~~~~~~                                         
  643 |  if (type < 1 || type > 5) { return 0.;}
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                           
  644 |         if (vp->capacity() != n) vp->resize(n);
      |         ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                    
  645 | 
      |                                                                    
  646 | // read as appropriate type and convert to doubles
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                 
  647 | 
      |                                                                    
  648 |         int i;
      |         ~~~~~~                                                     
  649 |         double sf = 1.;
      |         ~~~~~~~~~~~~~~~                                            
  650 |         double min = 0.;
      |         ~~~~~~~~~~~~~~~~                                           
  651 |         double add;
      |         ~~~~~~~~~~~                                                
  652 | 
      |                                                                    
  653 |         switch (type) {
      |         ~~~~~~~~~~~~~~~                                            
  654 | 
      |                                                                    
  655 |         case 5:         // ints; no conversion
      |         ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                     
  656 |         {
      |         ~                                                          
  657 |            int *xi = (int *)malloc(n * sizeof(int));
      |            ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~               
  658 |            FRead(xi,sizeof(int),n,fp);
      |            ~~~~~~~~~~~~~~~~~~~~~~                                  
/builddir/build/BUILD/nrn-7.8.1/src/ivoc/ivocvect.cpp:658:12: note: in expansion of macro 'FRead'
  658 |            FRead(xi,sizeof(int),n,fp);
      |            ^~~~~
/builddir/build/BUILD/nrn-7.8.1/src/ivoc/ivocvect.cpp:83:20: warning: comparison of integer expressions of different signedness: 'int' and 'long unsigned int' [-Wsign-compare]
   83 |  for (_II__=0;_II__<sizeof(_TYPE__);_II__++) { \
      |               ~~~~~^~~~~~~~~~~~~~~~
/builddir/build/BUILD/nrn-7.8.1/src/ivoc/ivocvect.cpp:660:7: note: in expansion of macro 'BYTESWAP'
  660 |       BYTESWAP(xi[i],int)
      |       ^~~~~~~~
/builddir/build/BUILD/nrn-7.8.1/src/ivoc/ivocvect.cpp:67:67: warning: comparison of integer expressions of different signedness: 'size_t' {aka 'long unsigned int'} and 'int' [-Wsign-compare]
   67 | #define FRead(arg1,arg2,arg3,arg4) if (fread(arg1,arg2,arg3,arg4) != arg3) {}
      |                                        ~~~~~~~~~~~~~~~~~~~~~~~~~~~^~~~~~~~~~~
   68 | #endif
      | ~~~~~~                                                             
   69 | 
      |                                                                    
   70 | static double dmaxint_;
      | ~~~~~~~~~~~~~~~~~~~~~~~                                            
   71 | 
      |                                                                    
   72 | // Definitions allow machine independent write and read
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~            
   73 | // note that must include BYTEHEADER at head of routine
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~            
   74 | // The policy is that each machine vwrite binary information in
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~    
   75 | // without swapping, ie. native endian.
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                            
   76 | // On reading, the type is checked to decide whether
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~               
   77 | // byteswapping should be performed
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                                
   78 | 
      |                                                                    
   79 | #define BYTEHEADER int _II__;  char *_IN__; char _OUT__[16]; int BYTESWAP_FLAG=0;
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
   80 | #define BYTESWAP(_X__,_TYPE__) \
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                                   
   81 |     if (BYTESWAP_FLAG == 1) { \
      |     ~~~~~~~~~~~~~~~~~~~~~~~~~~~                                    
   82 |  _IN__ = (char *) &(_X__); \
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~                                       
   83 |  for (_II__=0;_II__<sizeof(_TYPE__);_II__++) { \
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                   
   84 |   _OUT__[_II__] = _IN__[sizeof(_TYPE__)-_II__-1]; } \
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~              
   85 |  (_X__) = *((_TYPE__ *) &_OUT__); \
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                                
   86 |     }
      |     ~                                                              
   87 | 
      |                                                                    
   88 | #include "ivocvect.h"
      | ~~~~~~~~~~~~~~~~~~~~~                                              
   89 | 
      |                                                                    
   90 | // definition of SampleHistogram from the gnu c++ class library
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~    
   91 | #include <SmplHist.h>
      | ~~~~~~~~~~~~~~~~~~~~~                                              
   92 | 
      |                                                                    
   93 | // definition of random numer generator
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                            
   94 | #include "random1.h"
      | ~~~~~~~~~~~~~~~~~~~~                                               
   95 | #include <Uniform.h>
      | ~~~~~~~~~~~~~~~~~~~~                                               
   96 | 
      |                                                                    
   97 | // definition of comparison functions
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                              
   98 | #include <d_defs.h>
      | ~~~~~~~~~~~~~~~~~~~                                                
   99 | 
      |                                                                    
  100 | #if HAVE_IV
      | ~~~~~~~~~~~                                                        
  101 | #include "utility.h"
      | ~~~~~~~~~~~~~~~~~~~~                                               
  102 | #endif
      | ~~~~~~                                                             
  103 | #include "oc2iv.h"
      | ~~~~~~~~~~~~~~~~~~                                                 
  104 | #include "parse.h"
      | ~~~~~~~~~~~~~~~~~~                                                 
  105 | #include "ocfile.h"
      | ~~~~~~~~~~~~~~~~~~~                                                
  106 | 
      |                                                                    
  107 | extern "C" {
      | ~~~~~~~~~~~~                                                       
  108 | extern Object* hoc_thisobject;
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                                     
  109 | extern Symlist* hoc_top_level_symlist;
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                             
  110 | extern void nrn_exit(int);
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~                                         
  111 | IvocVect* (*nrnpy_vec_from_python_p_)(void*);
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                      
  112 | Object** (*nrnpy_vec_to_python_p_)(void*);
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                         
  113 | Object** (*nrnpy_vec_as_numpy_helper_)(int, double*);
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~              
  114 | };
      | ~~                                                                 
  115 | 
      |                                                                    
  116 | 
      |                                                                    
  117 | int cmpfcn(double a, double b) { return ((a) <= (b))? (((a) == (b))? 0 : -1) : 1; }
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
  118 | 
      |                                                                    
  119 | 
      |                                                                    
  120 | // math functions with error checking defined in oc/SRC/math.c
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~     
  121 | extern "C" {
      | ~~~~~~~~~~~~                                                       
  122 |   extern double hoc_Log(double x), hoc_Log10(double x), hoc_Exp(double x), hoc_Sqrt(double x);
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
  123 |   extern double hoc_scan(FILE*);
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                                   
  124 | }
      | ~                                                                  
  125 | 
      |                                                                    
  126 | static int narg() {
      | ~~~~~~~~~~~~~~~~~~~                                                
  127 |   int i=0;
      |   ~~~~~~~~                                                         
  128 |   while (ifarg(i++));
      |   ~~~~~~~~~~~~~~~~~~~                                              
  129 |   return i-2;
      |   ~~~~~~~~~~~                                                      
  130 | }
      | ~                                                                  
  131 | 
      |                                                                    
  132 | #define MAX_FIT_PARAMS 20
      | ~~~~~~~~~~~~~~~~~~~~~~~~~                                          
  133 | 
      |                                                                    
  134 | #define TWO_BYTE_HIGH  65535.
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                                      
  135 | #define ONE_BYTE_HIGH  255.
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~                                        
  136 | #define ONE_BYTE_HALF  128.
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~                                        
  137 | 
      |                                                                    
  138 | #define EPSILON 1e-9
      | ~~~~~~~~~~~~~~~~~~~~                                               
  139 | 
      |                                                                    
  140 | extern "C" {
      | ~~~~~~~~~~~~                                                       
  141 |  extern void notify_freed_val_array(double*, size_t);
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~              
  142 |  extern void install_vector_method(const char* name, Pfrd_vp);
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~     
  143 |  extern int vector_instance_px(void*, double**);
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                   
  144 |  extern int vector_arg_px(int, double**);
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                          
  145 |         extern int nrn_mlh_gsort (double* vec, int *base_ptr, int total_elems, doubleComparator cmp);
      |         ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
  146 | };
      | ~~                                                                 
  147 | 
      |                                                                    
  148 | extern "C" int hoc_return_type_code;
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                               
  149 | 
      |                                                                    
  150 | IvocVect::IvocVect(Object* o) : ParentVect(){obj_ = o; label_ = NULL; MUTCONSTRUCT(0)}
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
  151 | IvocVect::IvocVect(int l, Object* o) : ParentVect(l){obj_ = o; label_ = NULL; MUTCONSTRUCT(0)}
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
  152 | IvocVect::IvocVect(int l, double fill_value, Object* o) : ParentVect(l, fill_value){obj_ = o; label_ = NULL; MUTCONSTRUCT(0)}
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
  153 | IvocVect::IvocVect(IvocVect& v, Object* o) : ParentVect(v) {obj_ = o; label_ = NULL; MUTCONSTRUCT(0)}
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
  154 | 
      |                                                                    
  155 | IvocVect::~IvocVect(){
      | ~~~~~~~~~~~~~~~~~~~~~~                                             
  156 |  MUTDESTRUCT
      |  ~~~~~~~~~~~                                                       
  157 |  if (label_) {
      |  ~~~~~~~~~~~~~                                                     
  158 |   delete [] label_;
      |   ~~~~~~~~~~~~~~~~~                                                
  159 |  }
      |  ~                                                                 
  160 |  notify_freed_val_array(vec(), capacity());
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                        
  161 | }
      | ~                                                                  
  162 | 
      |                                                                    
  163 | void IvocVect::label(const char* label) {
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                          
  164 |  if (label_) {
      |  ~~~~~~~~~~~~~                                                     
  165 |   delete [] label_;
      |   ~~~~~~~~~~~~~~~~~                                                
  166 |   label_ = NULL;
      |   ~~~~~~~~~~~~~~                                                   
  167 |  }
      |  ~                                                                 
  168 |  if (label) {
      |  ~~~~~~~~~~~~                                                      
  169 |   label_ = new char[strlen(label) + 1];
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                            
  170 |   strcpy(label_, label);
      |   ~~~~~~~~~~~~~~~~~~~~~~                                           
  171 |  }
      |  ~                                                                 
  172 | }
      | ~                                                                  
  173 | 
      |                                                                    
  174 | static const char* nullstr = "";
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                                   
  175 | 
      |                                                                    
  176 | static const char** v_label(void* v) {
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                             
  177 |  Vect* x  = (Vect*)v;
      |  ~~~~~~~~~~~~~~~~~~~~                                              
  178 |  if (ifarg(1)) {
      |  ~~~~~~~~~~~~~~~                                                   
  179 |   x->label(gargstr(1));
      |   ~~~~~~~~~~~~~~~~~~~~~                                            
  180 |  }
      |  ~                                                                 
  181 |  if (x->label_) {
      |  ~~~~~~~~~~~~~~~~                                                  
  182 |   return (const char**)&x->label_;
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                                 
  183 |  }
      |  ~                                                                 
  184 |  return &nullstr;
      |  ~~~~~~~~~~~~~~~~                                                  
  185 | }
      | ~                                                                  
  186 | 
      |                                                                    
  187 | static void same_err(const char* s, Vect* x, Vect* y) {
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~            
  188 |  if (x == y) {
      |  ~~~~~~~~~~~~~                                                     
  189 |   hoc_execerror(s, " argument needs to be copied first");
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~          
  190 |  }
      |  ~                                                                 
  191 | }
      | ~                                                                  
  192 | 
      |                                                                    
  193 | /* the Vect->at(start, end) function was used in about a dozen places
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
  194 | for the purpose of dealing with a subrange of elements. However that
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
  195 | function clones the subrange and returns a new Vect. This caused a
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ 
  196 | memory leak and was needlessly inefficient for those functions.
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~    
  197 | To fix both problems for these specific functions
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                  
  198 | we use a special vector which does not have
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                        
  199 | it's own space but merely a pointer and capacity to the right space of
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
  200 | the original vector. The usage is restricted to only once at a time, i.e.
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
  201 | can't use two subvecs at once and never do anything which affects the
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
  202 | memory space.
      | ~~~~~~~~~~~~~                                                      
  203 | */
      | ~~                                                                 
  204 | 
      |                                                                    
  205 | static IvocVect* subvec_; // allocated when registered.
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~            
  206 | IvocVect* IvocVect::subvec(int start, int end) {
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                   
  207 |  subvec_->len = end - start + 1;
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                                   
  208 |  subvec_->s = s + start;
      |  ~~~~~~~~~~~~~~~~~~~~~~~                                           
  209 |  return subvec_;
      |  ~~~~~~~~~~~~~~~                                                   
  210 | }
      | ~                                                                  
  211 | 
      |                                                                    
  212 | void IvocVect::resize(int newlen) { // all that for this
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~           
  213 |  long oldcap = capacity();
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~                                         
  214 |  if (newlen > space) {
      |  ~~~~~~~~~~~~~~~~~~~~~                                             
  215 |   notify_freed_val_array(vec(), capacity());
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                       
  216 |  }
      |  ~                                                                 
  217 |  ParentVect::resize(newlen);
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~                                       
  218 |  for (;oldcap < newlen; ++oldcap) {
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                                
  219 |   elem(oldcap) = 0.;
      |   ~~~~~~~~~~~~~~~~~~                                               
  220 |  }
      |  ~                                                                 
  221 | }
      | ~                                                                  
  222 | 
      |                                                                    
  223 | void IvocVect::resize_chunk(int newlen, int extra) {
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~               
  224 |  if (newlen > space) {
      |  ~~~~~~~~~~~~~~~~~~~~~                                             
  225 |   long x = newlen + extra;
      |   ~~~~~~~~~~~~~~~~~~~~~~~~                                         
  226 |   if (extra == 0) {
      |   ~~~~~~~~~~~~~~~~~                                                
  227 |    x = ListImpl_best_new_count(newlen, sizeof(double));
      |    ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~            
  228 |   }
      |   ~                                                                
  229 | //  printf("resize_chunk %d\n", x);
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                                
  230 |   resize(x);
      |   ~~~~~~~~~~                                                       
  231 |  }
      |  ~                                                                 
  232 |  resize(newlen);
      |  ~~~~~~~~~~~~~~~                                                   
  233 | }
      | ~                                                                  
  234 | 
      |                                                                    
  235 | #if HAVE_IV
      | ~~~~~~~~~~~                                                        
  236 | /*static*/ class GraphMarkItem : public GraphItem {
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                
  237 | public:
      | ~~~~~~~                                                            
  238 |  GraphMarkItem(Glyph* g) : GraphItem(g){}
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                          
  239 |  virtual ~GraphMarkItem(){};
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~                                       
  240 |  virtual void erase(Scene* s, GlyphIndex i, int type) {
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~            
  241 |   if (type & GraphItem::ERASE_LINE) {
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                              
  242 |    s->remove(i);
      |    ~~~~~~~~~~~~~                                                   
  243 |   }
      |   ~                                                                
  244 |  }
      |  ~                                                                 
  245 | };
      | ~~                                                                 
  246 | #endif
      | ~~~~~~                                                             
  247 | 
      |                                                                    
  248 | static void* v_cons(Object* o) {
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                                   
  249 |  double fill_value = 0.;
      |  ~~~~~~~~~~~~~~~~~~~~~~~                                           
  250 |  int n = 0;
      |  ~~~~~~~~~~                                                        
  251 |  Vect* vec;
      |  ~~~~~~~~~~                                                        
  252 |  if (ifarg(1)) {
      |  ~~~~~~~~~~~~~~~                                                   
  253 |   if (hoc_is_double_arg(1)) {
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~                                      
  254 |    n = int(chkarg(1,0,1e10));
      |    ~~~~~~~~~~~~~~~~~~~~~~~~~~                                      
  255 |    if (ifarg(2)) fill_value = *getarg(2);
      |    ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                          
  256 |    vec =  new Vect(n,fill_value, o);
      |    ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                               
  257 |   }else{
      |   ~~~~~~                                                           
  258 |    if (!nrnpy_vec_from_python_p_) {
      |    ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                                
  259 |     hoc_execerror("Python not available", 0);
      |     ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                      
  260 |    }
      |    ~                                                               
  261 |    vec = (*nrnpy_vec_from_python_p_)(new Vect(0, 0, o));
      |    ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~           
  262 |   }
      |   ~                                                                
  263 |  }else{
      |  ~~~~~~                                                            
  264 |   vec = new Vect(0, 0, o);
      |   ~~~~~~~~~~~~~~~~~~~~~~~~                                         
  265 |  }
      |  ~                                                                 
  266 |  return vec;
      |  ~~~~~~~~~~~                                                       
  267 | }
      | ~                                                                  
  268 | 
      |                                                                    
  269 | 
      |                                                                    
  270 | static void v_destruct(void* v) {
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                                  
  271 |  delete (Vect*)v;
      |  ~~~~~~~~~~~~~~~~                                                  
  272 | }
      | ~                                                                  
  273 | 
      |                                                                    
  274 | static Symbol* svec_;
      | ~~~~~~~~~~~~~~~~~~~~~                                              
  275 | 
      |                                                                    
  276 | // extern "C" vector functions used by ocmatrix.dll
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                
  277 | // can also be used in mod files
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                                   
  278 | Vect* vector_new(int n, Object* o){return new Vect(n, o);}
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~         
  279 | Vect* vector_new0(){return new Vect();}
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                            
  280 | Vect* vector_new1(int n){return new Vect(n);}
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                      
  281 | Vect* vector_new2(Vect* v){return new Vect(*v);}
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                   
  282 | void vector_delete(Vect* v){delete v;}
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                             
  283 | int vector_buffer_size(Vect* v){return v->buffer_size();}
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~          
  284 | int vector_capacity(Vect* v){return v->capacity();}
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                
  285 | void vector_resize(Vect* v, int n){v->resize(n);}
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                  
  286 | Object** vector_temp_objvar(Vect* v){return v->temp_objvar();}
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~     
  287 | double* vector_vec(Vect* v){return v->vec();}
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                      
  288 | Object** vector_pobj(Vect* v){return &v->obj_;}
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                    
  289 | char* vector_get_label(Vect* v) { return v->label_; }
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~              
  290 | void vector_set_label(Vect* v, char* s) { v->label(s); }
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~           
  291 | void vector_append(Vect* v, double x){
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                             
  292 |   long n = v->capacity();
      |   ~~~~~~~~~~~~~~~~~~~~~~~                                          
  293 |   v->resize_chunk(n+1);
      |   ~~~~~~~~~~~~~~~~~~~~~                                            
  294 |   v->elem(n) = x;
      |   ~~~~~~~~~~~~~~~                                                  
  295 | }
      | ~                                                                  
  296 | 
      |                                                                    
  297 | #ifdef WIN32
      | ~~~~~~~~~~~~                                                       
  298 | #if !defined(USEMATRIX) || USEMATRIX == 0
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                          
  299 | #include "../windll/dll.h"
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~                                         
  300 | extern "C" {extern char* neuron_home;}
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                             
  301 | 
      |                                                                    
  302 | void load_ocmatrix() {
      | ~~~~~~~~~~~~~~~~~~~~~~                                             
  303 |  struct DLL* dll = NULL;
      |  ~~~~~~~~~~~~~~~~~~~~~~~                                           
  304 |  char buf[256];
      |  ~~~~~~~~~~~~~~                                                    
  305 |  sprintf(buf, "%s\\lib\\ocmatrix.dll", neuron_home);
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~               
  306 |  dll = dll_load(buf);
      |  ~~~~~~~~~~~~~~~~~~~~                                              
  307 |  if (dll) {
      |  ~~~~~~~~~~                                                        
  308 |   Pfri mreg = (Pfri)dll_lookup(dll, "_Matrix_reg");
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                
  309 |   if (mreg) {
      |   ~~~~~~~~~~~                                                      
  310 |    (*mreg)();
      |    ~~~~~~~~~~                                                      
  311 |   }
      |   ~                                                                
  312 |  }else{
      |  ~~~~~~                                                            
  313 |   printf("No Matrix class.\n");
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                                    
  314 |  }
      |  ~                                                                 
  315 | }
      | ~                                                                  
  316 | #endif
      | ~~~~~~                                                             
  317 | #endif
      | ~~~~~~                                                             
  318 | 
      |                                                                    
  319 | Object** IvocVect::temp_objvar() {
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                                 
  320 |  IvocVect* v = (IvocVect*)this;
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                                    
  321 |  Object** po;
      |  ~~~~~~~~~~~~                                                      
  322 |  if (v->obj_) {
      |  ~~~~~~~~~~~~~~                                                    
  323 |   po = hoc_temp_objptr(v->obj_);
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                                   
  324 |  }else{
      |  ~~~~~~                                                            
  325 |   po = hoc_temp_objvar(svec_, (void*)v);
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                           
  326 |   obj_ = *po;
      |   ~~~~~~~~~~~                                                      
  327 |  }
      |  ~                                                                 
  328 |  return po;
      |  ~~~~~~~~~~                                                        
  329 | }
      | ~                                                                  
  330 | 
      |                                                                    
  331 | extern "C" { // bug in cray compiler requires this
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                 
  332 | void install_vector_method(const char* name, double (*f)(void*)) {
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ 
  333 |  Symbol* s_meth;
      |  ~~~~~~~~~~~~~~~                                                   
  334 |  if (hoc_table_lookup(name, svec_->u.ctemplate->symtable)) {
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~       
  335 |   hoc_execerror(name, " already a method in the Vector class");
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~    
  336 |  }
      |  ~                                                                 
  337 |  s_meth = hoc_install(name, FUNCTION, 0.0, &svec_->u.ctemplate->symtable);
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
  338 |  s_meth->u.u_proc->defn.pfd = (Pfrd)f;
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                             
  339 | #define PUBLIC_TYPE 1
      | ~~~~~~~~~~~~~~~~~~~~~                                              
  340 |  s_meth->cpublic = PUBLIC_TYPE;
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                                    
  341 | }
      | ~                                                                  
  342 | }
      | ~                                                                  
  343 | 
      |                                                                    
  344 | int vector_instance_px(void* v, double** px) {
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                     
  345 |  Vect* x = (Vect*)v;
      |  ~~~~~~~~~~~~~~~~~~~                                               
  346 |  *px = x->vec();
      |  ~~~~~~~~~~~~~~~                                                   
  347 |  return x->capacity();
      |  ~~~~~~~~~~~~~~~~~~~~~                                             
  348 | }
      | ~                                                                  
  349 | 
      |                                                                    
  350 | Vect* vector_arg(int i) {
      | ~~~~~~~~~~~~~~~~~~~~~~~~~                                          
  351 |  Object* ob = *hoc_objgetarg(i);
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                                   
  352 |  if (!ob || ob->ctemplate != svec_->u.ctemplate) {
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                 
  353 |   check_obj_type(ob, "Vector");
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                                    
  354 |  }
      |  ~                                                                 
  355 |  return (Vect*)(ob->u.this_pointer);
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                               
  356 | }
      | ~                                                                  
  357 | 
      |                                                                    
  358 | int is_vector_arg(int i) {
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~                                         
  359 |  Object* ob = *hoc_objgetarg(i);
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                                   
  360 |  if (!ob || ob->ctemplate != svec_->u.ctemplate) {
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                 
  361 |   return 0;
      |   ~~~~~~~~~                                                        
  362 |  }
      |  ~                                                                 
  363 |  return 1;
      |  ~~~~~~~~~                                                         
  364 | }
      | ~                                                                  
  365 | 
      |                                                                    
  366 | int vector_arg_px(int i, double** px) {
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                            
  367 |  Vect* x = vector_arg(i);
      |  ~~~~~~~~~~~~~~~~~~~~~~~~                                          
  368 |  *px = x->vec();
      |  ~~~~~~~~~~~~~~~                                                   
  369 |  return x->capacity();
      |  ~~~~~~~~~~~~~~~~~~~~~                                             
  370 | }
      | ~                                                                  
  371 | 
      |                                                                    
  372 | extern void nrn_vecsim_add(void*, bool);
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                           
  373 | extern void nrn_vecsim_remove(void*);
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                              
  374 | 
      |                                                                    
  375 | static int possible_destvec(int arg, Vect*& dest) {
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                
  376 |  if (ifarg(arg) && hoc_is_object_arg(arg)) {
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                       
  377 |    dest = vector_arg(arg);
      |    ~~~~~~~~~~~~~~~~~~~~~~~                                         
  378 |    return arg+1;
      |    ~~~~~~~~~~~~~                                                   
  379 |  }else{
      |  ~~~~~~                                                            
  380 |   dest = new Vect();
      |   ~~~~~~~~~~~~~~~~~~                                               
  381 |   return arg;
      |   ~~~~~~~~~~~                                                      
  382 |  }
      |  ~                                                                 
  383 | }
      | ~                                                                  
  384 | 
      |                                                                    
  385 | static double v_play_remove(void* v) {
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                             
  386 |  nrn_vecsim_remove(v);
      |  ~~~~~~~~~~~~~~~~~~~~~                                             
  387 |  return 1.;
      |  ~~~~~~~~~~                                                        
  388 | }
      | ~                                                                  
  389 | 
      |                                                                    
  390 | static double v_fwrite(void* v) {
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                                  
  391 |  Vect* vp = (Vect*)v;
      |  ~~~~~~~~~~~~~~~~~~~~                                              
  392 |  void* s;
      |  ~~~~~~~~                                                          
  393 |  int x_max = vp->capacity()-1;
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                                     
  394 |  int start = 0;
      |  ~~~~~~~~~~~~~~                                                    
  395 |  int end = x_max;
      |  ~~~~~~~~~~~~~~~~                                                  
  396 |  hoc_return_type_code = 1; // integer
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                              
  397 |  if (ifarg(2)) {
      |  ~~~~~~~~~~~~~~~                                                   
  398 |    start = int(chkarg(2,0,x_max));
      |    ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                                 
  399 |    end = int(chkarg(3,0,x_max));
      |    ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                                   
  400 |  }
      |  ~                                                                 
  401 |  s = (void*)(&vp->elem(start));
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                                    
  402 |  const char* x = (const char*)s;
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                                   
  403 | 
      |                                                                    
  404 |     Object* ob = *hoc_objgetarg(1);
      |     ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                                
  405 |     check_obj_type(ob, "File");
      |     ~~~~~~~~~~~~~~~~~~~~~~~~~~~                                    
  406 |     OcFile* f = (OcFile*)(ob->u.this_pointer);
      |     ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                     
  407 |  FILE* fp = f->file();
      |  ~~~~~~~~~~~~~~~~~~~~~                                             
  408 |  if (!fp) {
      |  ~~~~~~~~~~                                                        
  409 |   return 0.;
      |   ~~~~~~~~~~                                                       
  410 |  }
      |  ~                                                                 
  411 |  int n = end-start+1;
      |  ~~~~~~~~~~~~~~~~~~~~                                              
  412 |  BinaryMode(f);
      |  ~~~~~~~~~~~~~~                                                    
  413 |  return (double)fwrite(x,sizeof(double),n,fp);
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                     
  414 | }
      | ~                                                                  
  415 | 
      |                                                                    
  416 | static double v_fread(void* v) {
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                                   
  417 |  Vect* vp = (Vect*)v;
      |  ~~~~~~~~~~~~~~~~~~~~                                              
  418 |  void* s = (void*)(vp->vec());
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                                     
  419 | 
      |                                                                    
  420 |         Object* ob = *hoc_objgetarg(1);
      |         ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                            
  421 | 
      |                                                                    
  422 |  check_obj_type(ob, "File");
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~                                       
  423 |  OcFile* f = (OcFile*)(ob->u.this_pointer);
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                        
  424 | 
      |                                                                    
  425 |  if (ifarg(2)) vp->resize(int(chkarg(2,0,1e10)));
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                  
  426 |  int n = vp->capacity();
      |  ~~~~~~~~~~~~~~~~~~~~~~~                                           
  427 | 
      |                                                                    
  428 |         int type = 4;
      |         ~~~~~~~~~~~~~                                              
  429 |  if (ifarg(3)) {
      |  ~~~~~~~~~~~~~~~                                                   
  430 |            type = int(chkarg(3,1,5));
      |            ~~~~~~~~~~~~~~~~~~~~~~~~~~                              
  431 |         }
      |         ~                                                          
  432 | 
      |                                                                    
  433 |  FILE* fp = f->file();
      |  ~~~~~~~~~~~~~~~~~~~~~                                             
  434 |  if (!fp) {
      |  ~~~~~~~~~~                                                        
  435 |   return 0.;
      |   ~~~~~~~~~~                                                       
  436 |  }
      |  ~                                                                 
  437 | 
      |                                                                    
  438 |  int i;
      |  ~~~~~~                                                            
  439 |  BinaryMode(f)
      |  ~~~~~~~~~~~~~                                                     
  440 |  if (n > 0) switch (type) {
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~                                        
  441 | 
      |                                                                    
  442 |         case 5:         // short ints
      |         ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                              
  443 |         {
      |         ~                                                          
  444 |            short *xs = (short *)malloc(n * (unsigned)sizeof(short));
      |            ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
  445 |            FRead(xs,sizeof(short),n,fp);
      |            ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                           
  446 |            for (i=0;i<n;++i) {
      |            ~~~~~~~~~~~~~~~~~~~                                     
  447 |       vp->elem(i) = double(xs[i]);
      |       ~~~~~~~~~~~~~~~~~~~~~~~~~~~~                                 
  448 |     }
      |     ~                                                              
  449 |            free((char *)xs);
      |            ~~~~~~~~~~~~~~~~~                                       
  450 |            break;
      |            ~~~~~~                                                  
  451 |         }
      |         ~                                                          
  452 | 
      |                                                                    
  453 |         case 4:        // doubles
      |         ~~~~~~~~~~~~~~~~~~~~~~~~~                                  
  454 |            FRead(&(vp->elem(0)),sizeof(double),n,fp);
      |            ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~              
  455 |            break;
      |            ~~~~~~                                                  
  456 | 
      |                                                                    
  457 |         case 3:         // floats
      |         ~~~~~~~~~~~~~~~~~~~~~~~~~                                  
  458 |  {
      |  ~                                                                 
  459 |            float *xf = (float *)malloc(n * (unsigned)sizeof(float));
      |            ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
  460 |            FRead(xf,sizeof(float),n,fp);
      |            ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                           
  461 |            for (i=0;i<n;++i) {
      |            ~~~~~~~~~~~~~~~~~~~                                     
  462 |       vp->elem(i) = double(xf[i]);
      |       ~~~~~~~~~~~~~~~~~~~~~~~~~~~~                                 
  463 |     }
      |     ~                                                              
  464 |            free((char *)xf);
      |            ~~~~~~~~~~~~~~~~~                                       
  465 |            break;
      |            ~~~~~~                                                  
  466 |         }
      |         ~                                                          
  467 | 
      |                                                                    
  468 |         case 2:         // unsigned short ints
      |         ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                     
  469 |         {
      |         ~                                                          
  470 | 
      |                                                                    
  471 |            unsigned short *xi = (unsigned short *)malloc(n * (unsigned)sizeof(unsigned short));
      |            ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
  472 |            FRead(xi,sizeof(unsigned short),n,fp);
      |            ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                  
  473 |            for (i=0;i<n;++i) {
      |            ~~~~~~~~~~~~~~~~~~~                                     
  474 |       vp->elem(i) = double(xi[i]);
      |       ~~~~~~~~~~~~~~~~~~~~~~~~~~~~                                 
  475 |     }
      |     ~                                                              
  476 |            free((char *)xi);
      |            ~~~~~~~~~~~~~~~~~                                       
  477 |            break;
      |            ~~~~~~                                                  
  478 |         }
      |         ~                                                          
  479 | 
      |                                                                    
  480 |         case 1:         // char
      |         ~~~~~~~~~~~~~~~~~~~~~~~                                    
  481 |         {
      |         ~                                                          
  482 |            char *xc = (char *)malloc(n * (unsigned)sizeof(char));
      |            ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~  
  483 |            FRead(xc,sizeof(char),n,fp);
      |            ~~~~~~~~~~~~~~~~~~~~~~~~~~~~                            
  484 |            for (i=0;i<n;++i) {
      |            ~~~~~~~~~~~~~~~~~~~                                     
  485 |       vp->elem(i) = double(xc[i]);
      |       ~~~~~~~~~~~~~~~~~~~~~~~~~~~~                                 
  486 |     }
      |     ~                                                              
  487 |            free(xc);
      |            ~~~~~~~~~                                               
  488 |            break;
      |            ~~~~~~                                                  
  489 |         }
      |         ~                                                          
  490 |  }
      |  ~                                                                 
  491 |  return 1;
      |  ~~~~~~~~~                                                         
  492 | }
      | ~                                                                  
  493 | 
      |                                                                    
  494 | static double v_vwrite(void* v) {
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                                  
  495 |  Vect* vp = (Vect*)v;
      |  ~~~~~~~~~~~~~~~~~~~~                                              
  496 | 
      |                                                                    
  497 |         Object* ob = *hoc_objgetarg(1);
      |         ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                            
  498 |         check_obj_type(ob, "File");
      |         ~~~~~~~~~~~~~~~~~~~~~~~~~~~                                
  499 |         OcFile* f = (OcFile*)(ob->u.this_pointer);
      |         ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                 
  500 | 
      |                                                                    
  501 |  FILE* fp = f->file();
      |  ~~~~~~~~~~~~~~~~~~~~~                                             
  502 |  if (!fp) {
      |  ~~~~~~~~~~                                                        
  503 |   return 0.;
      |   ~~~~~~~~~~                                                       
  504 |  }
      |  ~                                                                 
  505 | 
      |                                                                    
  506 |   BinaryMode(f)
      |   ~~~~~~~~~~~~~                                                    
  507 |  // first, write the size of the vector
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                            
  508 |  int n = vp->capacity();
      |  ~~~~~~~~~~~~~~~~~~~~~~~                                           
  509 |         FWrite(&n,sizeof(int),1,fp);
      |         ~~~~~~~~~~~~~~~~~~~~~~~~~~~~                               
  510 | 
      |                                                                    
  511 | // next, write the type of elements
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                                
  512 |         int type = 4;
      |         ~~~~~~~~~~~~~                                              
  513 |  if (ifarg(2)) {
      |  ~~~~~~~~~~~~~~~                                                   
  514 |            type = int(chkarg(2,1,5));
      |            ~~~~~~~~~~~~~~~~~~~~~~~~~~                              
  515 |         }
      |         ~                                                          
  516 |         FWrite(&type,sizeof(int),1,fp);
      |         ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                            
  517 | 
      |                                                                    
  518 | // convert the data if necessary
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                                   
  519 |         int i;
      |         ~~~~~~                                                     
  520 |         void *s;
      |         ~~~~~~~~                                                   
  521 |         const char* x;
      |         ~~~~~~~~~~~~~~                                             
  522 | 
      |                                                                    
  523 |         double min,r,sf,sub,intermed;
      |         ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                              
  524 |         switch (type) {
      |         ~~~~~~~~~~~~~~~                                            
  525 | 
      |                                                                    
  526 |         case 5:     // integers as ints (no scaling)
      |         ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~               
  527 |  {
      |  ~                                                                 
  528 |            int* xi = (int *)malloc(n * sizeof(int));
      |            ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~               
  529 |            for (i=0;i<n;++i) {
      |            ~~~~~~~~~~~~~~~~~~~                                     
  530 |       xi[i] = (int)(vp->elem(i));
      |       ~~~~~~~~~~~~~~~~~~~~~~~~~~~                                  
  531 |            }
      |            ~                                                       
  532 |     FWrite(xi,sizeof(int),n,fp);
      |     ~~~~~~~~~~~~~~~~~~~~~~~~~~~~                                   
  533 |            free((char *)xi);
      |            ~~~~~~~~~~~~~~~~~                                       
  534 |            break;
      |            ~~~~~~                                                  
  535 |         }
      |         ~                                                          
  536 | 
      |                                                                    
  537 |         case 4:     // doubles (no conversion unless BYTESWAP used and needed)
      |         ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
  538 |  {
      |  ~                                                                 
  539 |            s = (void*)(&(vp->elem(0)));
      |            ~~~~~~~~~~~~~~~~~~~~~~~~~~~~                            
  540 |     x = (const char*)s;
      |     ~~~~~~~~~~~~~~~~~~~                                            
  541 |     FWrite(x,sizeof(double),n,fp);
      |     ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                                 
  542 |            break;
      |            ~~~~~~                                                  
  543 |         }
      |         ~                                                          
  544 | 
      |                                                                    
  545 |         case 3:     // float (simple automatic type conversion)
      |         ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~    
  546 |  {
      |  ~                                                                 
  547 |            float* xf = (float *)malloc(n * (unsigned)sizeof(float));
      |            ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
  548 |            for (i=0;i<n;++i) {
      |            ~~~~~~~~~~~~~~~~~~~                                     
  549 |       xf[i] = float(vp->elem(i));
      |       ~~~~~~~~~~~~~~~~~~~~~~~~~~~                                  
  550 |     }
      |     ~                                                              
  551 |     FWrite(xf,sizeof(float),n,fp);
      |     ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                                 
  552 |            free((char *)xf);
      |            ~~~~~~~~~~~~~~~~~                                       
  553 |            break;
      |            ~~~~~~                                                  
  554 |         }
      |         ~                                                          
  555 | 
      |                                                                    
  556 | 
      |                                                                    
  557 |         case 2:     // short ints (scale to 16 bits with compression)
      |         ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
  558 |  {
      |  ~                                                                 
  559 |            min = vp->min();
      |            ~~~~~~~~~~~~~~~~                                        
  560 |            r = vp->max()- min;
      |            ~~~~~~~~~~~~~~~~~~~                                     
  561 |            if (r > 0) {
      |            ~~~~~~~~~~~~                                            
  562 |                 sf = TWO_BYTE_HIGH/r;
      |                 ~~~~~~~~~~~~~~~~~~~~~                              
  563 |            } else {
      |            ~~~~~~~~                                                
  564 |                 sf = 1.;
      |                 ~~~~~~~~                                           
  565 |            }
      |            ~                                                       
  566 |            unsigned short* xi = (unsigned short *)malloc(n * (unsigned)sizeof(unsigned short));
      |            ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
  567 |            for (i=0;i<n;++i) {
      |            ~~~~~~~~~~~~~~~~~~~                                     
  568 |               intermed = (vp->elem(i)-min)*sf;
      |               ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                     
  569 |               xi[i] = (unsigned short)intermed;
      |               ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                    
  570 |            }
      |            ~                                                       
  571 |            s = (void*)xi;
      |            ~~~~~~~~~~~~~~                                          
  572 |     x = (const char*)s;
      |     ~~~~~~~~~~~~~~~~~~~                                            
  573 |                       // store the info needed to reconvert
      |                       ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~        
  574 |            FWrite(&sf,sizeof(double),1,fp);
      |            ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                        
  575 |            FWrite(&min,sizeof(double),1,fp);
      |            ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                       
  576 |                       // store the actual data
      |                       ~~~~~~~~~~~~~~~~~~~~~~~~                     
  577 |     FWrite(x,sizeof(unsigned short),n,fp);
      |     ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                         
  578 |            free((char *)xi);
      |            ~~~~~~~~~~~~~~~~~                                       
  579 |            break;
      |            ~~~~~~                                                  
  580 |         }
      |         ~                                                          
  581 | 
      |                                                                    
  582 |         case 1:      // char (scale to 8 bits with compression)
      |         ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~    
  583 |   {
      |   ~                                                                
  584 |            sub = ONE_BYTE_HALF;
      |            ~~~~~~~~~~~~~~~~~~~~                                    
  585 |            min = vp->min();
      |            ~~~~~~~~~~~~~~~~                                        
  586 |            r = vp->max()- min;
      |            ~~~~~~~~~~~~~~~~~~~                                     
  587 |            if (r > 0) {
      |            ~~~~~~~~~~~~                                            
  588 |                 sf = ONE_BYTE_HIGH/r;
      |                 ~~~~~~~~~~~~~~~~~~~~~                              
  589 |            } else {
      |            ~~~~~~~~                                                
  590 |                 sf = 1.;
      |                 ~~~~~~~~                                           
  591 |            }
      |            ~                                                       
  592 | 
      |                                                                    
  593 |            char* xc = (char *)malloc(n * (unsigned)sizeof(char));
      |            ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~  
  594 |            for (i=0;i<n;++i) {
      |            ~~~~~~~~~~~~~~~~~~~                                     
  595 |       xc[i] = char(((vp->elem(i)-min)*sf)-sub);
      |       ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                    
  596 |     }
      |     ~                                                              
  597 |            s = (void*)xc;
      |            ~~~~~~~~~~~~~~                                          
  598 |     x = (const char*)s;
      |     ~~~~~~~~~~~~~~~~~~~                                            
  599 |                       // store the info needed to reconvert
      |                       ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~        
  600 |            FWrite(&sf,sizeof(double),1,fp);
      |            ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                        
  601 |            FWrite(&min,sizeof(double),1,fp);
      |            ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                       
  602 |     FWrite(x,sizeof(char),n,fp);
      |     ~~~~~~~~~~~~~~~~~~~~~~~~~~~~                                   
  603 |            free(xc);
      |            ~~~~~~~~~                                               
  604 |            break;
      |            ~~~~~~                                                  
  605 |         }
      |         ~                                                          
  606 | 
      |                                                                    
  607 |  }
      |  ~                                                                 
  608 |     return 1;
      |     ~~~~~~~~~                                                      
  609 | }
      | ~                                                                  
  610 | 
      |                                                                    
  611 | 
      |                                                                    
  612 | static double v_vread(void* v) {
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                                   
  613 |  Vect* vp = (Vect*)v;
      |  ~~~~~~~~~~~~~~~~~~~~                                              
  614 |  void* s = (void*)(vp->vec());
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                                     
  615 | 
      |                                                                    
  616 |         Object* ob = *hoc_objgetarg(1);
      |         ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                            
  617 |  check_obj_type(ob, "File");
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~                                       
  618 |  OcFile* f = (OcFile*)(ob->u.this_pointer);
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                        
  619 |         BYTEHEADER
      |         ~~~~~~~~~~                                                 
  620 | 
      |                                                                    
  621 |  FILE* fp = f->file();
      |  ~~~~~~~~~~~~~~~~~~~~~                                             
  622 |  if (!fp) {
      |  ~~~~~~~~~~                                                        
  623 |   return 0.;
      |   ~~~~~~~~~~                                                       
  624 |  }
      |  ~                                                                 
  625 | 
      |                                                                    
  626 |  BinaryMode(f)
      |  ~~~~~~~~~~~~~                                                     
  627 |         int n;
      |         ~~~~~~                                                     
  628 |         FRead(&n,sizeof(int),1,fp);
      |         ~~~~~~~~~~~~~~~~~~~~~~~~~~~                                
  629 | 
      |                                                                    
  630 |         int type = 0;
      |         ~~~~~~~~~~~~~                                              
  631 |         FRead(&type,sizeof(int),1,fp);
      |         ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                             
  632 | 
      |                                                                    
  633 |  // since the type ranges from 1 to 5 (very important that it not be 0)
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
  634 |  // we can check the type and decide if it needs to be byteswapped
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ 
  635 |  if (type < 1 || type > 5) {
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~                                       
  636 |   BYTESWAP_FLAG = 1;
      |   ~~~~~~~~~~~~~~~~~~                                               
  637 |  }else{
      |  ~~~~~~                                                            
  638 |   BYTESWAP_FLAG = 0;
      |   ~~~~~~~~~~~~~~~~~~                                               
  639 |  }
      |  ~                                                                 
  640 | 
      |                                                                    
  641 |         BYTESWAP(n,int)
      |         ~~~~~~~~~~~~~~~                                            
  642 |         BYTESWAP(type,int)
      |         ~~~~~~~~~~~~~~~~~~                                         
  643 |  if (type < 1 || type > 5) { return 0.;}
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                           
  644 |         if (vp->capacity() != n) vp->resize(n);
      |         ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                    
  645 | 
      |                                                                    
  646 | // read as appropriate type and convert to doubles
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                 
  647 | 
      |                                                                    
  648 |         int i;
      |         ~~~~~~                                                     
  649 |         double sf = 1.;
      |         ~~~~~~~~~~~~~~~                                            
  650 |         double min = 0.;
      |         ~~~~~~~~~~~~~~~~                                           
  651 |         double add;
      |         ~~~~~~~~~~~                                                
  652 | 
      |                                                                    
  653 |         switch (type) {
      |         ~~~~~~~~~~~~~~~                                            
  654 | 
      |                                                                    
  655 |         case 5:         // ints; no conversion
      |         ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                     
  656 |         {
      |         ~                                                          
  657 |            int *xi = (int *)malloc(n * sizeof(int));
      |            ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~               
  658 |            FRead(xi,sizeof(int),n,fp);
      |            ~~~~~~~~~~~~~~~~~~~~~~~~~~~                             
  659 |            for (i=0;i<n;++i) {
      |            ~~~~~~~~~~~~~~~~~~~                                     
  660 |       BYTESWAP(xi[i],int)
      |       ~~~~~~~~~~~~~~~~~~~                                          
  661 |       vp->elem(i) = double(xi[i]);
      |       ~~~~~~~~~~~~~~~~~~~~~~~~~~~~                                 
  662 |     }
      |     ~                                                              
  663 |            free((char *)xi);
      |            ~~~~~~~~~~~~~~~~~                                       
  664 |            break;
      |            ~~~~~~                                                  
  665 |         }
      |         ~                                                          
  666 | 
      |                                                                    
  667 |         case 4:        // doubles
      |         ~~~~~~~~~~~~~~~~~~~~~~~~~                                  
  668 |            FRead(&(vp->elem(0)),sizeof(double),n,fp);
      |            ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                   
/builddir/build/BUILD/nrn-7.8.1/src/ivoc/ivocvect.cpp:668:12: note: in expansion of macro 'FRead'
  668 |            FRead(&(vp->elem(0)),sizeof(double),n,fp);
      |            ^~~~~
/builddir/build/BUILD/nrn-7.8.1/src/ivoc/ivocvect.cpp:83:20: warning: comparison of integer expressions of different signedness: 'int' and 'long unsigned int' [-Wsign-compare]
   83 |  for (_II__=0;_II__<sizeof(_TYPE__);_II__++) { \
      |               ~~~~~^~~~~~~~~~~~~~~~
/builddir/build/BUILD/nrn-7.8.1/src/ivoc/ivocvect.cpp:670:27: note: in expansion of macro 'BYTESWAP'
  670 |       for (i=0;i<n;++i) { BYTESWAP(vp->elem(i),double) }
      |                           ^~~~~~~~
/builddir/build/BUILD/nrn-7.8.1/src/ivoc/ivocvect.cpp:67:67: warning: comparison of integer expressions of different signedness: 'size_t' {aka 'long unsigned int'} and 'int' [-Wsign-compare]
   67 | #define FRead(arg1,arg2,arg3,arg4) if (fread(arg1,arg2,arg3,arg4) != arg3) {}
      |                                        ~~~~~~~~~~~~~~~~~~~~~~~~~~~^~~~~~~~~~~
   68 | #endif
      | ~~~~~~                                                             
   69 | 
      |                                                                    
   70 | static double dmaxint_;
      | ~~~~~~~~~~~~~~~~~~~~~~~                                            
   71 | 
      |                                                                    
   72 | // Definitions allow machine independent write and read
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~            
   73 | // note that must include BYTEHEADER at head of routine
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~            
   74 | // The policy is that each machine vwrite binary information in
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~    
   75 | // without swapping, ie. native endian.
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                            
   76 | // On reading, the type is checked to decide whether
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~               
   77 | // byteswapping should be performed
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                                
   78 | 
      |                                                                    
   79 | #define BYTEHEADER int _II__;  char *_IN__; char _OUT__[16]; int BYTESWAP_FLAG=0;
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
   80 | #define BYTESWAP(_X__,_TYPE__) \
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                                   
   81 |     if (BYTESWAP_FLAG == 1) { \
      |     ~~~~~~~~~~~~~~~~~~~~~~~~~~~                                    
   82 |  _IN__ = (char *) &(_X__); \
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~                                       
   83 |  for (_II__=0;_II__<sizeof(_TYPE__);_II__++) { \
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                   
   84 |   _OUT__[_II__] = _IN__[sizeof(_TYPE__)-_II__-1]; } \
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~              
   85 |  (_X__) = *((_TYPE__ *) &_OUT__); \
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                                
   86 |     }
      |     ~                                                              
   87 | 
      |                                                                    
   88 | #include "ivocvect.h"
      | ~~~~~~~~~~~~~~~~~~~~~                                              
   89 | 
      |                                                                    
   90 | // definition of SampleHistogram from the gnu c++ class library
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~    
   91 | #include <SmplHist.h>
      | ~~~~~~~~~~~~~~~~~~~~~                                              
   92 | 
      |                                                                    
   93 | // definition of random numer generator
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                            
   94 | #include "random1.h"
      | ~~~~~~~~~~~~~~~~~~~~                                               
   95 | #include <Uniform.h>
      | ~~~~~~~~~~~~~~~~~~~~                                               
   96 | 
      |                                                                    
   97 | // definition of comparison functions
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                              
   98 | #include <d_defs.h>
      | ~~~~~~~~~~~~~~~~~~~                                                
   99 | 
      |                                                                    
  100 | #if HAVE_IV
      | ~~~~~~~~~~~                                                        
  101 | #include "utility.h"
      | ~~~~~~~~~~~~~~~~~~~~                                               
  102 | #endif
      | ~~~~~~                                                             
  103 | #include "oc2iv.h"
      | ~~~~~~~~~~~~~~~~~~                                                 
  104 | #include "parse.h"
      | ~~~~~~~~~~~~~~~~~~                                                 
  105 | #include "ocfile.h"
      | ~~~~~~~~~~~~~~~~~~~                                                
  106 | 
      |                                                                    
  107 | extern "C" {
      | ~~~~~~~~~~~~                                                       
  108 | extern Object* hoc_thisobject;
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                                     
  109 | extern Symlist* hoc_top_level_symlist;
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                             
  110 | extern void nrn_exit(int);
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~                                         
  111 | IvocVect* (*nrnpy_vec_from_python_p_)(void*);
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                      
  112 | Object** (*nrnpy_vec_to_python_p_)(void*);
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                         
  113 | Object** (*nrnpy_vec_as_numpy_helper_)(int, double*);
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~              
  114 | };
      | ~~                                                                 
  115 | 
      |                                                                    
  116 | 
      |                                                                    
  117 | int cmpfcn(double a, double b) { return ((a) <= (b))? (((a) == (b))? 0 : -1) : 1; }
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
  118 | 
      |                                                                    
  119 | 
      |                                                                    
  120 | // math functions with error checking defined in oc/SRC/math.c
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~     
  121 | extern "C" {
      | ~~~~~~~~~~~~                                                       
  122 |   extern double hoc_Log(double x), hoc_Log10(double x), hoc_Exp(double x), hoc_Sqrt(double x);
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
  123 |   extern double hoc_scan(FILE*);
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                                   
  124 | }
      | ~                                                                  
  125 | 
      |                                                                    
  126 | static int narg() {
      | ~~~~~~~~~~~~~~~~~~~                                                
  127 |   int i=0;
      |   ~~~~~~~~                                                         
  128 |   while (ifarg(i++));
      |   ~~~~~~~~~~~~~~~~~~~                                              
  129 |   return i-2;
      |   ~~~~~~~~~~~                                                      
  130 | }
      | ~                                                                  
  131 | 
      |                                                                    
  132 | #define MAX_FIT_PARAMS 20
      | ~~~~~~~~~~~~~~~~~~~~~~~~~                                          
  133 | 
      |                                                                    
  134 | #define TWO_BYTE_HIGH  65535.
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                                      
  135 | #define ONE_BYTE_HIGH  255.
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~                                        
  136 | #define ONE_BYTE_HALF  128.
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~                                        
  137 | 
      |                                                                    
  138 | #define EPSILON 1e-9
      | ~~~~~~~~~~~~~~~~~~~~                                               
  139 | 
      |                                                                    
  140 | extern "C" {
      | ~~~~~~~~~~~~                                                       
  141 |  extern void notify_freed_val_array(double*, size_t);
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~              
  142 |  extern void install_vector_method(const char* name, Pfrd_vp);
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~     
  143 |  extern int vector_instance_px(void*, double**);
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                   
  144 |  extern int vector_arg_px(int, double**);
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                          
  145 |         extern int nrn_mlh_gsort (double* vec, int *base_ptr, int total_elems, doubleComparator cmp);
      |         ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
  146 | };
      | ~~                                                                 
  147 | 
      |                                                                    
  148 | extern "C" int hoc_return_type_code;
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                               
  149 | 
      |                                                                    
  150 | IvocVect::IvocVect(Object* o) : ParentVect(){obj_ = o; label_ = NULL; MUTCONSTRUCT(0)}
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
  151 | IvocVect::IvocVect(int l, Object* o) : ParentVect(l){obj_ = o; label_ = NULL; MUTCONSTRUCT(0)}
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
  152 | IvocVect::IvocVect(int l, double fill_value, Object* o) : ParentVect(l, fill_value){obj_ = o; label_ = NULL; MUTCONSTRUCT(0)}
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
  153 | IvocVect::IvocVect(IvocVect& v, Object* o) : ParentVect(v) {obj_ = o; label_ = NULL; MUTCONSTRUCT(0)}
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
  154 | 
      |                                                                    
  155 | IvocVect::~IvocVect(){
      | ~~~~~~~~~~~~~~~~~~~~~~                                             
  156 |  MUTDESTRUCT
      |  ~~~~~~~~~~~                                                       
  157 |  if (label_) {
      |  ~~~~~~~~~~~~~                                                     
  158 |   delete [] label_;
      |   ~~~~~~~~~~~~~~~~~                                                
  159 |  }
      |  ~                                                                 
  160 |  notify_freed_val_array(vec(), capacity());
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                        
  161 | }
      | ~                                                                  
  162 | 
      |                                                                    
  163 | void IvocVect::label(const char* label) {
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                          
  164 |  if (label_) {
      |  ~~~~~~~~~~~~~                                                     
  165 |   delete [] label_;
      |   ~~~~~~~~~~~~~~~~~                                                
  166 |   label_ = NULL;
      |   ~~~~~~~~~~~~~~                                                   
  167 |  }
      |  ~                                                                 
  168 |  if (label) {
      |  ~~~~~~~~~~~~                                                      
  169 |   label_ = new char[strlen(label) + 1];
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                            
  170 |   strcpy(label_, label);
      |   ~~~~~~~~~~~~~~~~~~~~~~                                           
  171 |  }
      |  ~                                                                 
  172 | }
      | ~                                                                  
  173 | 
      |                                                                    
  174 | static const char* nullstr = "";
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                                   
  175 | 
      |                                                                    
  176 | static const char** v_label(void* v) {
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                             
  177 |  Vect* x  = (Vect*)v;
      |  ~~~~~~~~~~~~~~~~~~~~                                              
  178 |  if (ifarg(1)) {
      |  ~~~~~~~~~~~~~~~                                                   
  179 |   x->label(gargstr(1));
      |   ~~~~~~~~~~~~~~~~~~~~~                                            
  180 |  }
      |  ~                                                                 
  181 |  if (x->label_) {
      |  ~~~~~~~~~~~~~~~~                                                  
  182 |   return (const char**)&x->label_;
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                                 
  183 |  }
      |  ~                                                                 
  184 |  return &nullstr;
      |  ~~~~~~~~~~~~~~~~                                                  
  185 | }
      | ~                                                                  
  186 | 
      |                                                                    
  187 | static void same_err(const char* s, Vect* x, Vect* y) {
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~            
  188 |  if (x == y) {
      |  ~~~~~~~~~~~~~                                                     
  189 |   hoc_execerror(s, " argument needs to be copied first");
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~          
  190 |  }
      |  ~                                                                 
  191 | }
      | ~                                                                  
  192 | 
      |                                                                    
  193 | /* the Vect->at(start, end) function was used in about a dozen places
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
  194 | for the purpose of dealing with a subrange of elements. However that
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
  195 | function clones the subrange and returns a new Vect. This caused a
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ 
  196 | memory leak and was needlessly inefficient for those functions.
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~    
  197 | To fix both problems for these specific functions
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                  
  198 | we use a special vector which does not have
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                        
  199 | it's own space but merely a pointer and capacity to the right space of
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
  200 | the original vector. The usage is restricted to only once at a time, i.e.
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
  201 | can't use two subvecs at once and never do anything which affects the
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
  202 | memory space.
      | ~~~~~~~~~~~~~                                                      
  203 | */
      | ~~                                                                 
  204 | 
      |                                                                    
  205 | static IvocVect* subvec_; // allocated when registered.
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~            
  206 | IvocVect* IvocVect::subvec(int start, int end) {
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                   
  207 |  subvec_->len = end - start + 1;
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                                   
  208 |  subvec_->s = s + start;
      |  ~~~~~~~~~~~~~~~~~~~~~~~                                           
  209 |  return subvec_;
      |  ~~~~~~~~~~~~~~~                                                   
  210 | }
      | ~                                                                  
  211 | 
      |                                                                    
  212 | void IvocVect::resize(int newlen) { // all that for this
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~           
  213 |  long oldcap = capacity();
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~                                         
  214 |  if (newlen > space) {
      |  ~~~~~~~~~~~~~~~~~~~~~                                             
  215 |   notify_freed_val_array(vec(), capacity());
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                       
  216 |  }
      |  ~                                                                 
  217 |  ParentVect::resize(newlen);
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~                                       
  218 |  for (;oldcap < newlen; ++oldcap) {
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                                
  219 |   elem(oldcap) = 0.;
      |   ~~~~~~~~~~~~~~~~~~                                               
  220 |  }
      |  ~                                                                 
  221 | }
      | ~                                                                  
  222 | 
      |                                                                    
  223 | void IvocVect::resize_chunk(int newlen, int extra) {
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~               
  224 |  if (newlen > space) {
      |  ~~~~~~~~~~~~~~~~~~~~~                                             
  225 |   long x = newlen + extra;
      |   ~~~~~~~~~~~~~~~~~~~~~~~~                                         
  226 |   if (extra == 0) {
      |   ~~~~~~~~~~~~~~~~~                                                
  227 |    x = ListImpl_best_new_count(newlen, sizeof(double));
      |    ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~            
  228 |   }
      |   ~                                                                
  229 | //  printf("resize_chunk %d\n", x);
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                                
  230 |   resize(x);
      |   ~~~~~~~~~~                                                       
  231 |  }
      |  ~                                                                 
  232 |  resize(newlen);
      |  ~~~~~~~~~~~~~~~                                                   
  233 | }
      | ~                                                                  
  234 | 
      |                                                                    
  235 | #if HAVE_IV
      | ~~~~~~~~~~~                                                        
  236 | /*static*/ class GraphMarkItem : public GraphItem {
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                
  237 | public:
      | ~~~~~~~                                                            
  238 |  GraphMarkItem(Glyph* g) : GraphItem(g){}
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                          
  239 |  virtual ~GraphMarkItem(){};
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~                                       
  240 |  virtual void erase(Scene* s, GlyphIndex i, int type) {
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~            
  241 |   if (type & GraphItem::ERASE_LINE) {
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                              
  242 |    s->remove(i);
      |    ~~~~~~~~~~~~~                                                   
  243 |   }
      |   ~                                                                
  244 |  }
      |  ~                                                                 
  245 | };
      | ~~                                                                 
  246 | #endif
      | ~~~~~~                                                             
  247 | 
      |                                                                    
  248 | static void* v_cons(Object* o) {
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                                   
  249 |  double fill_value = 0.;
      |  ~~~~~~~~~~~~~~~~~~~~~~~                                           
  250 |  int n = 0;
      |  ~~~~~~~~~~                                                        
  251 |  Vect* vec;
      |  ~~~~~~~~~~                                                        
  252 |  if (ifarg(1)) {
      |  ~~~~~~~~~~~~~~~                                                   
  253 |   if (hoc_is_double_arg(1)) {
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~                                      
  254 |    n = int(chkarg(1,0,1e10));
      |    ~~~~~~~~~~~~~~~~~~~~~~~~~~                                      
  255 |    if (ifarg(2)) fill_value = *getarg(2);
      |    ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                          
  256 |    vec =  new Vect(n,fill_value, o);
      |    ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                               
  257 |   }else{
      |   ~~~~~~                                                           
  258 |    if (!nrnpy_vec_from_python_p_) {
      |    ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                                
  259 |     hoc_execerror("Python not available", 0);
      |     ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                      
  260 |    }
      |    ~                                                               
  261 |    vec = (*nrnpy_vec_from_python_p_)(new Vect(0, 0, o));
      |    ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~           
  262 |   }
      |   ~                                                                
  263 |  }else{
      |  ~~~~~~                                                            
  264 |   vec = new Vect(0, 0, o);
      |   ~~~~~~~~~~~~~~~~~~~~~~~~                                         
  265 |  }
      |  ~                                                                 
  266 |  return vec;
      |  ~~~~~~~~~~~                                                       
  267 | }
      | ~                                                                  
  268 | 
      |                                                                    
  269 | 
      |                                                                    
  270 | static void v_destruct(void* v) {
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                                  
  271 |  delete (Vect*)v;
      |  ~~~~~~~~~~~~~~~~                                                  
  272 | }
      | ~                                                                  
  273 | 
      |                                                                    
  274 | static Symbol* svec_;
      | ~~~~~~~~~~~~~~~~~~~~~                                              
  275 | 
      |                                                                    
  276 | // extern "C" vector functions used by ocmatrix.dll
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                
  277 | // can also be used in mod files
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                                   
  278 | Vect* vector_new(int n, Object* o){return new Vect(n, o);}
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~         
  279 | Vect* vector_new0(){return new Vect();}
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                            
  280 | Vect* vector_new1(int n){return new Vect(n);}
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                      
  281 | Vect* vector_new2(Vect* v){return new Vect(*v);}
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                   
  282 | void vector_delete(Vect* v){delete v;}
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                             
  283 | int vector_buffer_size(Vect* v){return v->buffer_size();}
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~          
  284 | int vector_capacity(Vect* v){return v->capacity();}
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                
  285 | void vector_resize(Vect* v, int n){v->resize(n);}
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                  
  286 | Object** vector_temp_objvar(Vect* v){return v->temp_objvar();}
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~     
  287 | double* vector_vec(Vect* v){return v->vec();}
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                      
  288 | Object** vector_pobj(Vect* v){return &v->obj_;}
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                    
  289 | char* vector_get_label(Vect* v) { return v->label_; }
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~              
  290 | void vector_set_label(Vect* v, char* s) { v->label(s); }
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~           
  291 | void vector_append(Vect* v, double x){
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                             
  292 |   long n = v->capacity();
      |   ~~~~~~~~~~~~~~~~~~~~~~~                                          
  293 |   v->resize_chunk(n+1);
      |   ~~~~~~~~~~~~~~~~~~~~~                                            
  294 |   v->elem(n) = x;
      |   ~~~~~~~~~~~~~~~                                                  
  295 | }
      | ~                                                                  
  296 | 
      |                                                                    
  297 | #ifdef WIN32
      | ~~~~~~~~~~~~                                                       
  298 | #if !defined(USEMATRIX) || USEMATRIX == 0
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                          
  299 | #include "../windll/dll.h"
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~                                         
  300 | extern "C" {extern char* neuron_home;}
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                             
  301 | 
      |                                                                    
  302 | void load_ocmatrix() {
      | ~~~~~~~~~~~~~~~~~~~~~~                                             
  303 |  struct DLL* dll = NULL;
      |  ~~~~~~~~~~~~~~~~~~~~~~~                                           
  304 |  char buf[256];
      |  ~~~~~~~~~~~~~~                                                    
  305 |  sprintf(buf, "%s\\lib\\ocmatrix.dll", neuron_home);
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~               
  306 |  dll = dll_load(buf);
      |  ~~~~~~~~~~~~~~~~~~~~                                              
  307 |  if (dll) {
      |  ~~~~~~~~~~                                                        
  308 |   Pfri mreg = (Pfri)dll_lookup(dll, "_Matrix_reg");
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                
  309 |   if (mreg) {
      |   ~~~~~~~~~~~                                                      
  310 |    (*mreg)();
      |    ~~~~~~~~~~                                                      
  311 |   }
      |   ~                                                                
  312 |  }else{
      |  ~~~~~~                                                            
  313 |   printf("No Matrix class.\n");
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                                    
  314 |  }
      |  ~                                                                 
  315 | }
      | ~                                                                  
  316 | #endif
      | ~~~~~~                                                             
  317 | #endif
      | ~~~~~~                                                             
  318 | 
      |                                                                    
  319 | Object** IvocVect::temp_objvar() {
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                                 
  320 |  IvocVect* v = (IvocVect*)this;
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                                    
  321 |  Object** po;
      |  ~~~~~~~~~~~~                                                      
  322 |  if (v->obj_) {
      |  ~~~~~~~~~~~~~~                                                    
  323 |   po = hoc_temp_objptr(v->obj_);
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                                   
  324 |  }else{
      |  ~~~~~~                                                            
  325 |   po = hoc_temp_objvar(svec_, (void*)v);
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                           
  326 |   obj_ = *po;
      |   ~~~~~~~~~~~                                                      
  327 |  }
      |  ~                                                                 
  328 |  return po;
      |  ~~~~~~~~~~                                                        
  329 | }
      | ~                                                                  
  330 | 
      |                                                                    
  331 | extern "C" { // bug in cray compiler requires this
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                 
  332 | void install_vector_method(const char* name, double (*f)(void*)) {
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ 
  333 |  Symbol* s_meth;
      |  ~~~~~~~~~~~~~~~                                                   
  334 |  if (hoc_table_lookup(name, svec_->u.ctemplate->symtable)) {
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~       
  335 |   hoc_execerror(name, " already a method in the Vector class");
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~    
  336 |  }
      |  ~                                                                 
  337 |  s_meth = hoc_install(name, FUNCTION, 0.0, &svec_->u.ctemplate->symtable);
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
  338 |  s_meth->u.u_proc->defn.pfd = (Pfrd)f;
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                             
  339 | #define PUBLIC_TYPE 1
      | ~~~~~~~~~~~~~~~~~~~~~                                              
  340 |  s_meth->cpublic = PUBLIC_TYPE;
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                                    
  341 | }
      | ~                                                                  
  342 | }
      | ~                                                                  
  343 | 
      |                                                                    
  344 | int vector_instance_px(void* v, double** px) {
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                     
  345 |  Vect* x = (Vect*)v;
      |  ~~~~~~~~~~~~~~~~~~~                                               
  346 |  *px = x->vec();
      |  ~~~~~~~~~~~~~~~                                                   
  347 |  return x->capacity();
      |  ~~~~~~~~~~~~~~~~~~~~~                                             
  348 | }
      | ~                                                                  
  349 | 
      |                                                                    
  350 | Vect* vector_arg(int i) {
      | ~~~~~~~~~~~~~~~~~~~~~~~~~                                          
  351 |  Object* ob = *hoc_objgetarg(i);
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                                   
  352 |  if (!ob || ob->ctemplate != svec_->u.ctemplate) {
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                 
  353 |   check_obj_type(ob, "Vector");
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                                    
  354 |  }
      |  ~                                                                 
  355 |  return (Vect*)(ob->u.this_pointer);
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                               
  356 | }
      | ~                                                                  
  357 | 
      |                                                                    
  358 | int is_vector_arg(int i) {
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~                                         
  359 |  Object* ob = *hoc_objgetarg(i);
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                                   
  360 |  if (!ob || ob->ctemplate != svec_->u.ctemplate) {
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                 
  361 |   return 0;
      |   ~~~~~~~~~                                                        
  362 |  }
      |  ~                                                                 
  363 |  return 1;
      |  ~~~~~~~~~                                                         
  364 | }
      | ~                                                                  
  365 | 
      |                                                                    
  366 | int vector_arg_px(int i, double** px) {
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                            
  367 |  Vect* x = vector_arg(i);
      |  ~~~~~~~~~~~~~~~~~~~~~~~~                                          
  368 |  *px = x->vec();
      |  ~~~~~~~~~~~~~~~                                                   
  369 |  return x->capacity();
      |  ~~~~~~~~~~~~~~~~~~~~~                                             
  370 | }
      | ~                                                                  
  371 | 
      |                                                                    
  372 | extern void nrn_vecsim_add(void*, bool);
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                           
  373 | extern void nrn_vecsim_remove(void*);
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                              
  374 | 
      |                                                                    
  375 | static int possible_destvec(int arg, Vect*& dest) {
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                
  376 |  if (ifarg(arg) && hoc_is_object_arg(arg)) {
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                       
  377 |    dest = vector_arg(arg);
      |    ~~~~~~~~~~~~~~~~~~~~~~~                                         
  378 |    return arg+1;
      |    ~~~~~~~~~~~~~                                                   
  379 |  }else{
      |  ~~~~~~                                                            
  380 |   dest = new Vect();
      |   ~~~~~~~~~~~~~~~~~~                                               
  381 |   return arg;
      |   ~~~~~~~~~~~                                                      
  382 |  }
      |  ~                                                                 
  383 | }
      | ~                                                                  
  384 | 
      |                                                                    
  385 | static double v_play_remove(void* v) {
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                             
  386 |  nrn_vecsim_remove(v);
      |  ~~~~~~~~~~~~~~~~~~~~~                                             
  387 |  return 1.;
      |  ~~~~~~~~~~                                                        
  388 | }
      | ~                                                                  
  389 | 
      |                                                                    
  390 | static double v_fwrite(void* v) {
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                                  
  391 |  Vect* vp = (Vect*)v;
      |  ~~~~~~~~~~~~~~~~~~~~                                              
  392 |  void* s;
      |  ~~~~~~~~                                                          
  393 |  int x_max = vp->capacity()-1;
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                                     
  394 |  int start = 0;
      |  ~~~~~~~~~~~~~~                                                    
  395 |  int end = x_max;
      |  ~~~~~~~~~~~~~~~~                                                  
  396 |  hoc_return_type_code = 1; // integer
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                              
  397 |  if (ifarg(2)) {
      |  ~~~~~~~~~~~~~~~                                                   
  398 |    start = int(chkarg(2,0,x_max));
      |    ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                                 
  399 |    end = int(chkarg(3,0,x_max));
      |    ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                                   
  400 |  }
      |  ~                                                                 
  401 |  s = (void*)(&vp->elem(start));
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                                    
  402 |  const char* x = (const char*)s;
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                                   
  403 | 
      |                                                                    
  404 |     Object* ob = *hoc_objgetarg(1);
      |     ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                                
  405 |     check_obj_type(ob, "File");
      |     ~~~~~~~~~~~~~~~~~~~~~~~~~~~                                    
  406 |     OcFile* f = (OcFile*)(ob->u.this_pointer);
      |     ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                     
  407 |  FILE* fp = f->file();
      |  ~~~~~~~~~~~~~~~~~~~~~                                             
  408 |  if (!fp) {
      |  ~~~~~~~~~~                                                        
  409 |   return 0.;
      |   ~~~~~~~~~~                                                       
  410 |  }
      |  ~                                                                 
  411 |  int n = end-start+1;
      |  ~~~~~~~~~~~~~~~~~~~~                                              
  412 |  BinaryMode(f);
      |  ~~~~~~~~~~~~~~                                                    
  413 |  return (double)fwrite(x,sizeof(double),n,fp);
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                     
  414 | }
      | ~                                                                  
  415 | 
      |                                                                    
  416 | static double v_fread(void* v) {
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                                   
  417 |  Vect* vp = (Vect*)v;
      |  ~~~~~~~~~~~~~~~~~~~~                                              
  418 |  void* s = (void*)(vp->vec());
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                                     
  419 | 
      |                                                                    
  420 |         Object* ob = *hoc_objgetarg(1);
      |         ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                            
  421 | 
      |                                                                    
  422 |  check_obj_type(ob, "File");
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~                                       
  423 |  OcFile* f = (OcFile*)(ob->u.this_pointer);
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                        
  424 | 
      |                                                                    
  425 |  if (ifarg(2)) vp->resize(int(chkarg(2,0,1e10)));
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                  
  426 |  int n = vp->capacity();
      |  ~~~~~~~~~~~~~~~~~~~~~~~                                           
  427 | 
      |                                                                    
  428 |         int type = 4;
      |         ~~~~~~~~~~~~~                                              
  429 |  if (ifarg(3)) {
      |  ~~~~~~~~~~~~~~~                                                   
  430 |            type = int(chkarg(3,1,5));
      |            ~~~~~~~~~~~~~~~~~~~~~~~~~~                              
  431 |         }
      |         ~                                                          
  432 | 
      |                                                                    
  433 |  FILE* fp = f->file();
      |  ~~~~~~~~~~~~~~~~~~~~~                                             
  434 |  if (!fp) {
      |  ~~~~~~~~~~                                                        
  435 |   return 0.;
      |   ~~~~~~~~~~                                                       
  436 |  }
      |  ~                                                                 
  437 | 
      |                                                                    
  438 |  int i;
      |  ~~~~~~                                                            
  439 |  BinaryMode(f)
      |  ~~~~~~~~~~~~~                                                     
  440 |  if (n > 0) switch (type) {
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~                                        
  441 | 
      |                                                                    
  442 |         case 5:         // short ints
      |         ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                              
  443 |         {
      |         ~                                                          
  444 |            short *xs = (short *)malloc(n * (unsigned)sizeof(short));
      |            ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
  445 |            FRead(xs,sizeof(short),n,fp);
      |            ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                           
  446 |            for (i=0;i<n;++i) {
      |            ~~~~~~~~~~~~~~~~~~~                                     
  447 |       vp->elem(i) = double(xs[i]);
      |       ~~~~~~~~~~~~~~~~~~~~~~~~~~~~                                 
  448 |     }
      |     ~                                                              
  449 |            free((char *)xs);
      |            ~~~~~~~~~~~~~~~~~                                       
  450 |            break;
      |            ~~~~~~                                                  
  451 |         }
      |         ~                                                          
  452 | 
      |                                                                    
  453 |         case 4:        // doubles
      |         ~~~~~~~~~~~~~~~~~~~~~~~~~                                  
  454 |            FRead(&(vp->elem(0)),sizeof(double),n,fp);
      |            ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~              
  455 |            break;
      |            ~~~~~~                                                  
  456 | 
      |                                                                    
  457 |         case 3:         // floats
      |         ~~~~~~~~~~~~~~~~~~~~~~~~~                                  
  458 |  {
      |  ~                                                                 
  459 |            float *xf = (float *)malloc(n * (unsigned)sizeof(float));
      |            ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
  460 |            FRead(xf,sizeof(float),n,fp);
      |            ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                           
  461 |            for (i=0;i<n;++i) {
      |            ~~~~~~~~~~~~~~~~~~~                                     
  462 |       vp->elem(i) = double(xf[i]);
      |       ~~~~~~~~~~~~~~~~~~~~~~~~~~~~                                 
  463 |     }
      |     ~                                                              
  464 |            free((char *)xf);
      |            ~~~~~~~~~~~~~~~~~                                       
  465 |            break;
      |            ~~~~~~                                                  
  466 |         }
      |         ~                                                          
  467 | 
      |                                                                    
  468 |         case 2:         // unsigned short ints
      |         ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                     
  469 |         {
      |         ~                                                          
  470 | 
      |                                                                    
  471 |            unsigned short *xi = (unsigned short *)malloc(n * (unsigned)sizeof(unsigned short));
      |            ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
  472 |            FRead(xi,sizeof(unsigned short),n,fp);
      |            ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                  
  473 |            for (i=0;i<n;++i) {
      |            ~~~~~~~~~~~~~~~~~~~                                     
  474 |       vp->elem(i) = double(xi[i]);
      |       ~~~~~~~~~~~~~~~~~~~~~~~~~~~~                                 
  475 |     }
      |     ~                                                              
  476 |            free((char *)xi);
      |            ~~~~~~~~~~~~~~~~~                                       
  477 |            break;
      |            ~~~~~~                                                  
  478 |         }
      |         ~                                                          
  479 | 
      |                                                                    
  480 |         case 1:         // char
      |         ~~~~~~~~~~~~~~~~~~~~~~~                                    
  481 |         {
      |         ~                                                          
  482 |            char *xc = (char *)malloc(n * (unsigned)sizeof(char));
      |            ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~  
  483 |            FRead(xc,sizeof(char),n,fp);
      |            ~~~~~~~~~~~~~~~~~~~~~~~~~~~~                            
  484 |            for (i=0;i<n;++i) {
      |            ~~~~~~~~~~~~~~~~~~~                                     
  485 |       vp->elem(i) = double(xc[i]);
      |       ~~~~~~~~~~~~~~~~~~~~~~~~~~~~                                 
  486 |     }
      |     ~                                                              
  487 |            free(xc);
      |            ~~~~~~~~~                                               
  488 |            break;
      |            ~~~~~~                                                  
  489 |         }
      |         ~                                                          
  490 |  }
      |  ~                                                                 
  491 |  return 1;
      |  ~~~~~~~~~                                                         
  492 | }
      | ~                                                                  
  493 | 
      |                                                                    
  494 | static double v_vwrite(void* v) {
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                                  
  495 |  Vect* vp = (Vect*)v;
      |  ~~~~~~~~~~~~~~~~~~~~                                              
  496 | 
      |                                                                    
  497 |         Object* ob = *hoc_objgetarg(1);
      |         ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                            
  498 |         check_obj_type(ob, "File");
      |         ~~~~~~~~~~~~~~~~~~~~~~~~~~~                                
  499 |         OcFile* f = (OcFile*)(ob->u.this_pointer);
      |         ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                 
  500 | 
      |                                                                    
  501 |  FILE* fp = f->file();
      |  ~~~~~~~~~~~~~~~~~~~~~                                             
  502 |  if (!fp) {
      |  ~~~~~~~~~~                                                        
  503 |   return 0.;
      |   ~~~~~~~~~~                                                       
  504 |  }
      |  ~                                                                 
  505 | 
      |                                                                    
  506 |   BinaryMode(f)
      |   ~~~~~~~~~~~~~                                                    
  507 |  // first, write the size of the vector
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                            
  508 |  int n = vp->capacity();
      |  ~~~~~~~~~~~~~~~~~~~~~~~                                           
  509 |         FWrite(&n,sizeof(int),1,fp);
      |         ~~~~~~~~~~~~~~~~~~~~~~~~~~~~                               
  510 | 
      |                                                                    
  511 | // next, write the type of elements
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                                
  512 |         int type = 4;
      |         ~~~~~~~~~~~~~                                              
  513 |  if (ifarg(2)) {
      |  ~~~~~~~~~~~~~~~                                                   
  514 |            type = int(chkarg(2,1,5));
      |            ~~~~~~~~~~~~~~~~~~~~~~~~~~                              
  515 |         }
      |         ~                                                          
  516 |         FWrite(&type,sizeof(int),1,fp);
      |         ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                            
  517 | 
      |                                                                    
  518 | // convert the data if necessary
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                                   
  519 |         int i;
      |         ~~~~~~                                                     
  520 |         void *s;
      |         ~~~~~~~~                                                   
  521 |         const char* x;
      |         ~~~~~~~~~~~~~~                                             
  522 | 
      |                                                                    
  523 |         double min,r,sf,sub,intermed;
      |         ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                              
  524 |         switch (type) {
      |         ~~~~~~~~~~~~~~~                                            
  525 | 
      |                                                                    
  526 |         case 5:     // integers as ints (no scaling)
      |         ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~               
  527 |  {
      |  ~                                                                 
  528 |            int* xi = (int *)malloc(n * sizeof(int));
      |            ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~               
  529 |            for (i=0;i<n;++i) {
      |            ~~~~~~~~~~~~~~~~~~~                                     
  530 |       xi[i] = (int)(vp->elem(i));
      |       ~~~~~~~~~~~~~~~~~~~~~~~~~~~                                  
  531 |            }
      |            ~                                                       
  532 |     FWrite(xi,sizeof(int),n,fp);
      |     ~~~~~~~~~~~~~~~~~~~~~~~~~~~~                                   
  533 |            free((char *)xi);
      |            ~~~~~~~~~~~~~~~~~                                       
  534 |            break;
      |            ~~~~~~                                                  
  535 |         }
      |         ~                                                          
  536 | 
      |                                                                    
  537 |         case 4:     // doubles (no conversion unless BYTESWAP used and needed)
      |         ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
  538 |  {
      |  ~                                                                 
  539 |            s = (void*)(&(vp->elem(0)));
      |            ~~~~~~~~~~~~~~~~~~~~~~~~~~~~                            
  540 |     x = (const char*)s;
      |     ~~~~~~~~~~~~~~~~~~~                                            
  541 |     FWrite(x,sizeof(double),n,fp);
      |     ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                                 
  542 |            break;
      |            ~~~~~~                                                  
  543 |         }
      |         ~                                                          
  544 | 
      |                                                                    
  545 |         case 3:     // float (simple automatic type conversion)
      |         ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~    
  546 |  {
      |  ~                                                                 
  547 |            float* xf = (float *)malloc(n * (unsigned)sizeof(float));
      |            ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
  548 |            for (i=0;i<n;++i) {
      |            ~~~~~~~~~~~~~~~~~~~                                     
  549 |       xf[i] = float(vp->elem(i));
      |       ~~~~~~~~~~~~~~~~~~~~~~~~~~~                                  
  550 |     }
      |     ~                                                              
  551 |     FWrite(xf,sizeof(float),n,fp);
      |     ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                                 
  552 |            free((char *)xf);
      |            ~~~~~~~~~~~~~~~~~                                       
  553 |            break;
      |            ~~~~~~                                                  
  554 |         }
      |         ~                                                          
  555 | 
      |                                                                    
  556 | 
      |                                                                    
  557 |         case 2:     // short ints (scale to 16 bits with compression)
      |         ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
  558 |  {
      |  ~                                                                 
  559 |            min = vp->min();
      |            ~~~~~~~~~~~~~~~~                                        
  560 |            r = vp->max()- min;
      |            ~~~~~~~~~~~~~~~~~~~                                     
  561 |            if (r > 0) {
      |            ~~~~~~~~~~~~                                            
  562 |                 sf = TWO_BYTE_HIGH/r;
      |                 ~~~~~~~~~~~~~~~~~~~~~                              
  563 |            } else {
      |            ~~~~~~~~                                                
  564 |                 sf = 1.;
      |                 ~~~~~~~~                                           
  565 |            }
      |            ~                                                       
  566 |            unsigned short* xi = (unsigned short *)malloc(n * (unsigned)sizeof(unsigned short));
      |            ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
  567 |            for (i=0;i<n;++i) {
      |            ~~~~~~~~~~~~~~~~~~~                                     
  568 |               intermed = (vp->elem(i)-min)*sf;
      |               ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                     
  569 |               xi[i] = (unsigned short)intermed;
      |               ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                    
  570 |            }
      |            ~                                                       
  571 |            s = (void*)xi;
      |            ~~~~~~~~~~~~~~                                          
  572 |     x = (const char*)s;
      |     ~~~~~~~~~~~~~~~~~~~                                            
  573 |                       // store the info needed to reconvert
      |                       ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~        
  574 |            FWrite(&sf,sizeof(double),1,fp);
      |            ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                        
  575 |            FWrite(&min,sizeof(double),1,fp);
      |            ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                       
  576 |                       // store the actual data
      |                       ~~~~~~~~~~~~~~~~~~~~~~~~                     
  577 |     FWrite(x,sizeof(unsigned short),n,fp);
      |     ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                         
  578 |            free((char *)xi);
      |            ~~~~~~~~~~~~~~~~~                                       
  579 |            break;
      |            ~~~~~~                                                  
  580 |         }
      |         ~                                                          
  581 | 
      |                                                                    
  582 |         case 1:      // char (scale to 8 bits with compression)
      |         ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~    
  583 |   {
      |   ~                                                                
  584 |            sub = ONE_BYTE_HALF;
      |            ~~~~~~~~~~~~~~~~~~~~                                    
  585 |            min = vp->min();
      |            ~~~~~~~~~~~~~~~~                                        
  586 |            r = vp->max()- min;
      |            ~~~~~~~~~~~~~~~~~~~                                     
  587 |            if (r > 0) {
      |            ~~~~~~~~~~~~                                            
  588 |                 sf = ONE_BYTE_HIGH/r;
      |                 ~~~~~~~~~~~~~~~~~~~~~                              
  589 |            } else {
      |            ~~~~~~~~                                                
  590 |                 sf = 1.;
      |                 ~~~~~~~~                                           
  591 |            }
      |            ~                                                       
  592 | 
      |                                                                    
  593 |            char* xc = (char *)malloc(n * (unsigned)sizeof(char));
      |            ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~  
  594 |            for (i=0;i<n;++i) {
      |            ~~~~~~~~~~~~~~~~~~~                                     
  595 |       xc[i] = char(((vp->elem(i)-min)*sf)-sub);
      |       ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                    
  596 |     }
      |     ~                                                              
  597 |            s = (void*)xc;
      |            ~~~~~~~~~~~~~~                                          
  598 |     x = (const char*)s;
      |     ~~~~~~~~~~~~~~~~~~~                                            
  599 |                       // store the info needed to reconvert
      |                       ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~        
  600 |            FWrite(&sf,sizeof(double),1,fp);
      |            ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                        
  601 |            FWrite(&min,sizeof(double),1,fp);
      |            ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                       
  602 |     FWrite(x,sizeof(char),n,fp);
      |     ~~~~~~~~~~~~~~~~~~~~~~~~~~~~                                   
  603 |            free(xc);
      |            ~~~~~~~~~                                               
  604 |            break;
      |            ~~~~~~                                                  
  605 |         }
      |         ~                                                          
  606 | 
      |                                                                    
  607 |  }
      |  ~                                                                 
  608 |     return 1;
      |     ~~~~~~~~~                                                      
  609 | }
      | ~                                                                  
  610 | 
      |                                                                    
  611 | 
      |                                                                    
  612 | static double v_vread(void* v) {
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                                   
  613 |  Vect* vp = (Vect*)v;
      |  ~~~~~~~~~~~~~~~~~~~~                                              
  614 |  void* s = (void*)(vp->vec());
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                                     
  615 | 
      |                                                                    
  616 |         Object* ob = *hoc_objgetarg(1);
      |         ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                            
  617 |  check_obj_type(ob, "File");
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~                                       
  618 |  OcFile* f = (OcFile*)(ob->u.this_pointer);
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                        
  619 |         BYTEHEADER
      |         ~~~~~~~~~~                                                 
  620 | 
      |                                                                    
  621 |  FILE* fp = f->file();
      |  ~~~~~~~~~~~~~~~~~~~~~                                             
  622 |  if (!fp) {
      |  ~~~~~~~~~~                                                        
  623 |   return 0.;
      |   ~~~~~~~~~~                                                       
  624 |  }
      |  ~                                                                 
  625 | 
      |                                                                    
  626 |  BinaryMode(f)
      |  ~~~~~~~~~~~~~                                                     
  627 |         int n;
      |         ~~~~~~                                                     
  628 |         FRead(&n,sizeof(int),1,fp);
      |         ~~~~~~~~~~~~~~~~~~~~~~~~~~~                                
  629 | 
      |                                                                    
  630 |         int type = 0;
      |         ~~~~~~~~~~~~~                                              
  631 |         FRead(&type,sizeof(int),1,fp);
      |         ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                             
  632 | 
      |                                                                    
  633 |  // since the type ranges from 1 to 5 (very important that it not be 0)
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
  634 |  // we can check the type and decide if it needs to be byteswapped
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ 
  635 |  if (type < 1 || type > 5) {
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~                                       
  636 |   BYTESWAP_FLAG = 1;
      |   ~~~~~~~~~~~~~~~~~~                                               
  637 |  }else{
      |  ~~~~~~                                                            
  638 |   BYTESWAP_FLAG = 0;
      |   ~~~~~~~~~~~~~~~~~~                                               
  639 |  }
      |  ~                                                                 
  640 | 
      |                                                                    
  641 |         BYTESWAP(n,int)
      |         ~~~~~~~~~~~~~~~                                            
  642 |         BYTESWAP(type,int)
      |         ~~~~~~~~~~~~~~~~~~                                         
  643 |  if (type < 1 || type > 5) { return 0.;}
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                           
  644 |         if (vp->capacity() != n) vp->resize(n);
      |         ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                    
  645 | 
      |                                                                    
  646 | // read as appropriate type and convert to doubles
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                 
  647 | 
      |                                                                    
  648 |         int i;
      |         ~~~~~~                                                     
  649 |         double sf = 1.;
      |         ~~~~~~~~~~~~~~~                                            
  650 |         double min = 0.;
      |         ~~~~~~~~~~~~~~~~                                           
  651 |         double add;
      |         ~~~~~~~~~~~                                                
  652 | 
      |                                                                    
  653 |         switch (type) {
      |         ~~~~~~~~~~~~~~~                                            
  654 | 
      |                                                                    
  655 |         case 5:         // ints; no conversion
      |         ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                     
  656 |         {
      |         ~                                                          
  657 |            int *xi = (int *)malloc(n * sizeof(int));
      |            ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~               
  658 |            FRead(xi,sizeof(int),n,fp);
      |            ~~~~~~~~~~~~~~~~~~~~~~~~~~~                             
  659 |            for (i=0;i<n;++i) {
      |            ~~~~~~~~~~~~~~~~~~~                                     
  660 |       BYTESWAP(xi[i],int)
      |       ~~~~~~~~~~~~~~~~~~~                                          
  661 |       vp->elem(i) = double(xi[i]);
      |       ~~~~~~~~~~~~~~~~~~~~~~~~~~~~                                 
  662 |     }
      |     ~                                                              
  663 |            free((char *)xi);
      |            ~~~~~~~~~~~~~~~~~                                       
  664 |            break;
      |            ~~~~~~                                                  
  665 |         }
      |         ~                                                          
  666 | 
      |                                                                    
  667 |         case 4:        // doubles
      |         ~~~~~~~~~~~~~~~~~~~~~~~~~                                  
  668 |            FRead(&(vp->elem(0)),sizeof(double),n,fp);
      |            ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~              
  669 |       if (BYTESWAP_FLAG == 1) {
      |       ~~~~~~~~~~~~~~~~~~~~~~~~~                                    
  670 |       for (i=0;i<n;++i) { BYTESWAP(vp->elem(i),double) }
      |       ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~           
  671 |     }
      |     ~                                                              
  672 |            break;
      |            ~~~~~~                                                  
  673 | 
      |                                                                    
  674 |         case 3:         // floats
      |         ~~~~~~~~~~~~~~~~~~~~~~~~~                                  
  675 |  {
      |  ~                                                                 
  676 |            float *xf = (float *)malloc(n * (unsigned)sizeof(float));
      |            ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
  677 |            FRead(xf,sizeof(float),n,fp);
      |            ~~~~~~~~~~~~~~~~~~~~~~~~                                
/builddir/build/BUILD/nrn-7.8.1/src/ivoc/ivocvect.cpp:677:12: note: in expansion of macro 'FRead'
  677 |            FRead(xf,sizeof(float),n,fp);
      |            ^~~~~
/builddir/build/BUILD/nrn-7.8.1/src/ivoc/ivocvect.cpp:83:20: warning: comparison of integer expressions of different signedness: 'int' and 'long unsigned int' [-Wsign-compare]
   83 |  for (_II__=0;_II__<sizeof(_TYPE__);_II__++) { \
      |               ~~~~~^~~~~~~~~~~~~~~~
/builddir/build/BUILD/nrn-7.8.1/src/ivoc/ivocvect.cpp:679:7: note: in expansion of macro 'BYTESWAP'
  679 |       BYTESWAP(xf[i],float)
      |       ^~~~~~~~
/builddir/build/BUILD/nrn-7.8.1/src/ivoc/ivocvect.cpp:83:20: warning: comparison of integer expressions of different signedness: 'int' and 'long unsigned int' [-Wsign-compare]
   83 |  for (_II__=0;_II__<sizeof(_TYPE__);_II__++) { \
      |               ~~~~~^~~~~~~~~~~~~~~~
/builddir/build/BUILD/nrn-7.8.1/src/ivoc/ivocvect.cpp:690:12: note: in expansion of macro 'BYTESWAP'
  690 |            BYTESWAP(sf,double)
      |            ^~~~~~~~
/builddir/build/BUILD/nrn-7.8.1/src/ivoc/ivocvect.cpp:83:20: warning: comparison of integer expressions of different signedness: 'int' and 'long unsigned int' [-Wsign-compare]
   83 |  for (_II__=0;_II__<sizeof(_TYPE__);_II__++) { \
      |               ~~~~~^~~~~~~~~~~~~~~~
/builddir/build/BUILD/nrn-7.8.1/src/ivoc/ivocvect.cpp:691:12: note: in expansion of macro 'BYTESWAP'
  691 |            BYTESWAP(min,double)
      |            ^~~~~~~~
/builddir/build/BUILD/nrn-7.8.1/src/ivoc/ivocvect.cpp:67:67: warning: comparison of integer expressions of different signedness: 'size_t' {aka 'long unsigned int'} and 'int' [-Wsign-compare]
   67 | #define FRead(arg1,arg2,arg3,arg4) if (fread(arg1,arg2,arg3,arg4) != arg3) {}
      |                                        ~~~~~~~~~~~~~~~~~~~~~~~~~~~^~~~~~~~~~~
   68 | #endif
      | ~~~~~~                                                             
   69 | 
      |                                                                    
   70 | static double dmaxint_;
      | ~~~~~~~~~~~~~~~~~~~~~~~                                            
   71 | 
      |                                                                    
   72 | // Definitions allow machine independent write and read
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~            
   73 | // note that must include BYTEHEADER at head of routine
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~            
   74 | // The policy is that each machine vwrite binary information in
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~    
   75 | // without swapping, ie. native endian.
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                            
   76 | // On reading, the type is checked to decide whether
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~               
   77 | // byteswapping should be performed
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                                
   78 | 
      |                                                                    
   79 | #define BYTEHEADER int _II__;  char *_IN__; char _OUT__[16]; int BYTESWAP_FLAG=0;
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
   80 | #define BYTESWAP(_X__,_TYPE__) \
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                                   
   81 |     if (BYTESWAP_FLAG == 1) { \
      |     ~~~~~~~~~~~~~~~~~~~~~~~~~~~                                    
   82 |  _IN__ = (char *) &(_X__); \
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~                                       
   83 |  for (_II__=0;_II__<sizeof(_TYPE__);_II__++) { \
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                   
   84 |   _OUT__[_II__] = _IN__[sizeof(_TYPE__)-_II__-1]; } \
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~              
   85 |  (_X__) = *((_TYPE__ *) &_OUT__); \
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                                
   86 |     }
      |     ~                                                              
   87 | 
      |                                                                    
   88 | #include "ivocvect.h"
      | ~~~~~~~~~~~~~~~~~~~~~                                              
   89 | 
      |                                                                    
   90 | // definition of SampleHistogram from the gnu c++ class library
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~    
   91 | #include <SmplHist.h>
      | ~~~~~~~~~~~~~~~~~~~~~                                              
   92 | 
      |                                                                    
   93 | // definition of random numer generator
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                            
   94 | #include "random1.h"
      | ~~~~~~~~~~~~~~~~~~~~                                               
   95 | #include <Uniform.h>
      | ~~~~~~~~~~~~~~~~~~~~                                               
   96 | 
      |                                                                    
   97 | // definition of comparison functions
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                              
   98 | #include <d_defs.h>
      | ~~~~~~~~~~~~~~~~~~~                                                
   99 | 
      |                                                                    
  100 | #if HAVE_IV
      | ~~~~~~~~~~~                                                        
  101 | #include "utility.h"
      | ~~~~~~~~~~~~~~~~~~~~                                               
  102 | #endif
      | ~~~~~~                                                             
  103 | #include "oc2iv.h"
      | ~~~~~~~~~~~~~~~~~~                                                 
  104 | #include "parse.h"
      | ~~~~~~~~~~~~~~~~~~                                                 
  105 | #include "ocfile.h"
      | ~~~~~~~~~~~~~~~~~~~                                                
  106 | 
      |                                                                    
  107 | extern "C" {
      | ~~~~~~~~~~~~                                                       
  108 | extern Object* hoc_thisobject;
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                                     
  109 | extern Symlist* hoc_top_level_symlist;
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                             
  110 | extern void nrn_exit(int);
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~                                         
  111 | IvocVect* (*nrnpy_vec_from_python_p_)(void*);
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                      
  112 | Object** (*nrnpy_vec_to_python_p_)(void*);
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                         
  113 | Object** (*nrnpy_vec_as_numpy_helper_)(int, double*);
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~              
  114 | };
      | ~~                                                                 
  115 | 
      |                                                                    
  116 | 
      |                                                                    
  117 | int cmpfcn(double a, double b) { return ((a) <= (b))? (((a) == (b))? 0 : -1) : 1; }
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
  118 | 
      |                                                                    
  119 | 
      |                                                                    
  120 | // math functions with error checking defined in oc/SRC/math.c
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~     
  121 | extern "C" {
      | ~~~~~~~~~~~~                                                       
  122 |   extern double hoc_Log(double x), hoc_Log10(double x), hoc_Exp(double x), hoc_Sqrt(double x);
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
  123 |   extern double hoc_scan(FILE*);
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                                   
  124 | }
      | ~                                                                  
  125 | 
      |                                                                    
  126 | static int narg() {
      | ~~~~~~~~~~~~~~~~~~~                                                
  127 |   int i=0;
      |   ~~~~~~~~                                                         
  128 |   while (ifarg(i++));
      |   ~~~~~~~~~~~~~~~~~~~                                              
  129 |   return i-2;
      |   ~~~~~~~~~~~                                                      
  130 | }
      | ~                                                                  
  131 | 
      |                                                                    
  132 | #define MAX_FIT_PARAMS 20
      | ~~~~~~~~~~~~~~~~~~~~~~~~~                                          
  133 | 
      |                                                                    
  134 | #define TWO_BYTE_HIGH  65535.
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                                      
  135 | #define ONE_BYTE_HIGH  255.
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~                                        
  136 | #define ONE_BYTE_HALF  128.
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~                                        
  137 | 
      |                                                                    
  138 | #define EPSILON 1e-9
      | ~~~~~~~~~~~~~~~~~~~~                                               
  139 | 
      |                                                                    
  140 | extern "C" {
      | ~~~~~~~~~~~~                                                       
  141 |  extern void notify_freed_val_array(double*, size_t);
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~              
  142 |  extern void install_vector_method(const char* name, Pfrd_vp);
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~     
  143 |  extern int vector_instance_px(void*, double**);
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                   
  144 |  extern int vector_arg_px(int, double**);
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                          
  145 |         extern int nrn_mlh_gsort (double* vec, int *base_ptr, int total_elems, doubleComparator cmp);
      |         ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
  146 | };
      | ~~                                                                 
  147 | 
      |                                                                    
  148 | extern "C" int hoc_return_type_code;
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                               
  149 | 
      |                                                                    
  150 | IvocVect::IvocVect(Object* o) : ParentVect(){obj_ = o; label_ = NULL; MUTCONSTRUCT(0)}
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
  151 | IvocVect::IvocVect(int l, Object* o) : ParentVect(l){obj_ = o; label_ = NULL; MUTCONSTRUCT(0)}
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
  152 | IvocVect::IvocVect(int l, double fill_value, Object* o) : ParentVect(l, fill_value){obj_ = o; label_ = NULL; MUTCONSTRUCT(0)}
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
  153 | IvocVect::IvocVect(IvocVect& v, Object* o) : ParentVect(v) {obj_ = o; label_ = NULL; MUTCONSTRUCT(0)}
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
  154 | 
      |                                                                    
  155 | IvocVect::~IvocVect(){
      | ~~~~~~~~~~~~~~~~~~~~~~                                             
  156 |  MUTDESTRUCT
      |  ~~~~~~~~~~~                                                       
  157 |  if (label_) {
      |  ~~~~~~~~~~~~~                                                     
  158 |   delete [] label_;
      |   ~~~~~~~~~~~~~~~~~                                                
  159 |  }
      |  ~                                                                 
  160 |  notify_freed_val_array(vec(), capacity());
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                        
  161 | }
      | ~                                                                  
  162 | 
      |                                                                    
  163 | void IvocVect::label(const char* label) {
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                          
  164 |  if (label_) {
      |  ~~~~~~~~~~~~~                                                     
  165 |   delete [] label_;
      |   ~~~~~~~~~~~~~~~~~                                                
  166 |   label_ = NULL;
      |   ~~~~~~~~~~~~~~                                                   
  167 |  }
      |  ~                                                                 
  168 |  if (label) {
      |  ~~~~~~~~~~~~                                                      
  169 |   label_ = new char[strlen(label) + 1];
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                            
  170 |   strcpy(label_, label);
      |   ~~~~~~~~~~~~~~~~~~~~~~                                           
  171 |  }
      |  ~                                                                 
  172 | }
      | ~                                                                  
  173 | 
      |                                                                    
  174 | static const char* nullstr = "";
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                                   
  175 | 
      |                                                                    
  176 | static const char** v_label(void* v) {
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                             
  177 |  Vect* x  = (Vect*)v;
      |  ~~~~~~~~~~~~~~~~~~~~                                              
  178 |  if (ifarg(1)) {
      |  ~~~~~~~~~~~~~~~                                                   
  179 |   x->label(gargstr(1));
      |   ~~~~~~~~~~~~~~~~~~~~~                                            
  180 |  }
      |  ~                                                                 
  181 |  if (x->label_) {
      |  ~~~~~~~~~~~~~~~~                                                  
  182 |   return (const char**)&x->label_;
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                                 
  183 |  }
      |  ~                                                                 
  184 |  return &nullstr;
      |  ~~~~~~~~~~~~~~~~                                                  
  185 | }
      | ~                                                                  
  186 | 
      |                                                                    
  187 | static void same_err(const char* s, Vect* x, Vect* y) {
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~            
  188 |  if (x == y) {
      |  ~~~~~~~~~~~~~                                                     
  189 |   hoc_execerror(s, " argument needs to be copied first");
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~          
  190 |  }
      |  ~                                                                 
  191 | }
      | ~                                                                  
  192 | 
      |                                                                    
  193 | /* the Vect->at(start, end) function was used in about a dozen places
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
  194 | for the purpose of dealing with a subrange of elements. However that
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
  195 | function clones the subrange and returns a new Vect. This caused a
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ 
  196 | memory leak and was needlessly inefficient for those functions.
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~    
  197 | To fix both problems for these specific functions
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                  
  198 | we use a special vector which does not have
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                        
  199 | it's own space but merely a pointer and capacity to the right space of
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
  200 | the original vector. The usage is restricted to only once at a time, i.e.
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
  201 | can't use two subvecs at once and never do anything which affects the
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
  202 | memory space.
      | ~~~~~~~~~~~~~                                                      
  203 | */
      | ~~                                                                 
  204 | 
      |                                                                    
  205 | static IvocVect* subvec_; // allocated when registered.
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~            
  206 | IvocVect* IvocVect::subvec(int start, int end) {
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                   
  207 |  subvec_->len = end - start + 1;
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                                   
  208 |  subvec_->s = s + start;
      |  ~~~~~~~~~~~~~~~~~~~~~~~                                           
  209 |  return subvec_;
      |  ~~~~~~~~~~~~~~~                                                   
  210 | }
      | ~                                                                  
  211 | 
      |                                                                    
  212 | void IvocVect::resize(int newlen) { // all that for this
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~           
  213 |  long oldcap = capacity();
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~                                         
  214 |  if (newlen > space) {
      |  ~~~~~~~~~~~~~~~~~~~~~                                             
  215 |   notify_freed_val_array(vec(), capacity());
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                       
  216 |  }
      |  ~                                                                 
  217 |  ParentVect::resize(newlen);
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~                                       
  218 |  for (;oldcap < newlen; ++oldcap) {
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                                
  219 |   elem(oldcap) = 0.;
      |   ~~~~~~~~~~~~~~~~~~                                               
  220 |  }
      |  ~                                                                 
  221 | }
      | ~                                                                  
  222 | 
      |                                                                    
  223 | void IvocVect::resize_chunk(int newlen, int extra) {
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~               
  224 |  if (newlen > space) {
      |  ~~~~~~~~~~~~~~~~~~~~~                                             
  225 |   long x = newlen + extra;
      |   ~~~~~~~~~~~~~~~~~~~~~~~~                                         
  226 |   if (extra == 0) {
      |   ~~~~~~~~~~~~~~~~~                                                
  227 |    x = ListImpl_best_new_count(newlen, sizeof(double));
      |    ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~            
  228 |   }
      |   ~                                                                
  229 | //  printf("resize_chunk %d\n", x);
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                                
  230 |   resize(x);
      |   ~~~~~~~~~~                                                       
  231 |  }
      |  ~                                                                 
  232 |  resize(newlen);
      |  ~~~~~~~~~~~~~~~                                                   
  233 | }
      | ~                                                                  
  234 | 
      |                                                                    
  235 | #if HAVE_IV
      | ~~~~~~~~~~~                                                        
  236 | /*static*/ class GraphMarkItem : public GraphItem {
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                
  237 | public:
      | ~~~~~~~                                                            
  238 |  GraphMarkItem(Glyph* g) : GraphItem(g){}
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                          
  239 |  virtual ~GraphMarkItem(){};
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~                                       
  240 |  virtual void erase(Scene* s, GlyphIndex i, int type) {
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~            
  241 |   if (type & GraphItem::ERASE_LINE) {
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                              
  242 |    s->remove(i);
      |    ~~~~~~~~~~~~~                                                   
  243 |   }
      |   ~                                                                
  244 |  }
      |  ~                                                                 
  245 | };
      | ~~                                                                 
  246 | #endif
      | ~~~~~~                                                             
  247 | 
      |                                                                    
  248 | static void* v_cons(Object* o) {
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                                   
  249 |  double fill_value = 0.;
      |  ~~~~~~~~~~~~~~~~~~~~~~~                                           
  250 |  int n = 0;
      |  ~~~~~~~~~~                                                        
  251 |  Vect* vec;
      |  ~~~~~~~~~~                                                        
  252 |  if (ifarg(1)) {
      |  ~~~~~~~~~~~~~~~                                                   
  253 |   if (hoc_is_double_arg(1)) {
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~                                      
  254 |    n = int(chkarg(1,0,1e10));
      |    ~~~~~~~~~~~~~~~~~~~~~~~~~~                                      
  255 |    if (ifarg(2)) fill_value = *getarg(2);
      |    ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                          
  256 |    vec =  new Vect(n,fill_value, o);
      |    ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                               
  257 |   }else{
      |   ~~~~~~                                                           
  258 |    if (!nrnpy_vec_from_python_p_) {
      |    ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                                
  259 |     hoc_execerror("Python not available", 0);
      |     ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                      
  260 |    }
      |    ~                                                               
  261 |    vec = (*nrnpy_vec_from_python_p_)(new Vect(0, 0, o));
      |    ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~           
  262 |   }
      |   ~                                                                
  263 |  }else{
      |  ~~~~~~                                                            
  264 |   vec = new Vect(0, 0, o);
      |   ~~~~~~~~~~~~~~~~~~~~~~~~                                         
  265 |  }
      |  ~                                                                 
  266 |  return vec;
      |  ~~~~~~~~~~~                                                       
  267 | }
      | ~                                                                  
  268 | 
      |                                                                    
  269 | 
      |                                                                    
  270 | static void v_destruct(void* v) {
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                                  
  271 |  delete (Vect*)v;
      |  ~~~~~~~~~~~~~~~~                                                  
  272 | }
      | ~                                                                  
  273 | 
      |                                                                    
  274 | static Symbol* svec_;
      | ~~~~~~~~~~~~~~~~~~~~~                                              
  275 | 
      |                                                                    
  276 | // extern "C" vector functions used by ocmatrix.dll
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                
  277 | // can also be used in mod files
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                                   
  278 | Vect* vector_new(int n, Object* o){return new Vect(n, o);}
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~         
  279 | Vect* vector_new0(){return new Vect();}
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                            
  280 | Vect* vector_new1(int n){return new Vect(n);}
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                      
  281 | Vect* vector_new2(Vect* v){return new Vect(*v);}
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                   
  282 | void vector_delete(Vect* v){delete v;}
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                             
  283 | int vector_buffer_size(Vect* v){return v->buffer_size();}
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~          
  284 | int vector_capacity(Vect* v){return v->capacity();}
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                
  285 | void vector_resize(Vect* v, int n){v->resize(n);}
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                  
  286 | Object** vector_temp_objvar(Vect* v){return v->temp_objvar();}
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~     
  287 | double* vector_vec(Vect* v){return v->vec();}
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                      
  288 | Object** vector_pobj(Vect* v){return &v->obj_;}
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                    
  289 | char* vector_get_label(Vect* v) { return v->label_; }
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~              
  290 | void vector_set_label(Vect* v, char* s) { v->label(s); }
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~           
  291 | void vector_append(Vect* v, double x){
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                             
  292 |   long n = v->capacity();
      |   ~~~~~~~~~~~~~~~~~~~~~~~                                          
  293 |   v->resize_chunk(n+1);
      |   ~~~~~~~~~~~~~~~~~~~~~                                            
  294 |   v->elem(n) = x;
      |   ~~~~~~~~~~~~~~~                                                  
  295 | }
      | ~                                                                  
  296 | 
      |                                                                    
  297 | #ifdef WIN32
      | ~~~~~~~~~~~~                                                       
  298 | #if !defined(USEMATRIX) || USEMATRIX == 0
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                          
  299 | #include "../windll/dll.h"
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~                                         
  300 | extern "C" {extern char* neuron_home;}
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                             
  301 | 
      |                                                                    
  302 | void load_ocmatrix() {
      | ~~~~~~~~~~~~~~~~~~~~~~                                             
  303 |  struct DLL* dll = NULL;
      |  ~~~~~~~~~~~~~~~~~~~~~~~                                           
  304 |  char buf[256];
      |  ~~~~~~~~~~~~~~                                                    
  305 |  sprintf(buf, "%s\\lib\\ocmatrix.dll", neuron_home);
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~               
  306 |  dll = dll_load(buf);
      |  ~~~~~~~~~~~~~~~~~~~~                                              
  307 |  if (dll) {
      |  ~~~~~~~~~~                                                        
  308 |   Pfri mreg = (Pfri)dll_lookup(dll, "_Matrix_reg");
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                
  309 |   if (mreg) {
      |   ~~~~~~~~~~~                                                      
  310 |    (*mreg)();
      |    ~~~~~~~~~~                                                      
  311 |   }
      |   ~                                                                
  312 |  }else{
      |  ~~~~~~                                                            
  313 |   printf("No Matrix class.\n");
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                                    
  314 |  }
      |  ~                                                                 
  315 | }
      | ~                                                                  
  316 | #endif
      | ~~~~~~                                                             
  317 | #endif
      | ~~~~~~                                                             
  318 | 
      |                                                                    
  319 | Object** IvocVect::temp_objvar() {
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                                 
  320 |  IvocVect* v = (IvocVect*)this;
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                                    
  321 |  Object** po;
      |  ~~~~~~~~~~~~                                                      
  322 |  if (v->obj_) {
      |  ~~~~~~~~~~~~~~                                                    
  323 |   po = hoc_temp_objptr(v->obj_);
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                                   
  324 |  }else{
      |  ~~~~~~                                                            
  325 |   po = hoc_temp_objvar(svec_, (void*)v);
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                           
  326 |   obj_ = *po;
      |   ~~~~~~~~~~~                                                      
  327 |  }
      |  ~                                                                 
  328 |  return po;
      |  ~~~~~~~~~~                                                        
  329 | }
      | ~                                                                  
  330 | 
      |                                                                    
  331 | extern "C" { // bug in cray compiler requires this
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                 
  332 | void install_vector_method(const char* name, double (*f)(void*)) {
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ 
  333 |  Symbol* s_meth;
      |  ~~~~~~~~~~~~~~~                                                   
  334 |  if (hoc_table_lookup(name, svec_->u.ctemplate->symtable)) {
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~       
  335 |   hoc_execerror(name, " already a method in the Vector class");
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~    
  336 |  }
      |  ~                                                                 
  337 |  s_meth = hoc_install(name, FUNCTION, 0.0, &svec_->u.ctemplate->symtable);
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
  338 |  s_meth->u.u_proc->defn.pfd = (Pfrd)f;
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                             
  339 | #define PUBLIC_TYPE 1
      | ~~~~~~~~~~~~~~~~~~~~~                                              
  340 |  s_meth->cpublic = PUBLIC_TYPE;
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                                    
  341 | }
      | ~                                                                  
  342 | }
      | ~                                                                  
  343 | 
      |                                                                    
  344 | int vector_instance_px(void* v, double** px) {
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                     
  345 |  Vect* x = (Vect*)v;
      |  ~~~~~~~~~~~~~~~~~~~                                               
  346 |  *px = x->vec();
      |  ~~~~~~~~~~~~~~~                                                   
  347 |  return x->capacity();
      |  ~~~~~~~~~~~~~~~~~~~~~                                             
  348 | }
      | ~                                                                  
  349 | 
      |                                                                    
  350 | Vect* vector_arg(int i) {
      | ~~~~~~~~~~~~~~~~~~~~~~~~~                                          
  351 |  Object* ob = *hoc_objgetarg(i);
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                                   
  352 |  if (!ob || ob->ctemplate != svec_->u.ctemplate) {
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                 
  353 |   check_obj_type(ob, "Vector");
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                                    
  354 |  }
      |  ~                                                                 
  355 |  return (Vect*)(ob->u.this_pointer);
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                               
  356 | }
      | ~                                                                  
  357 | 
      |                                                                    
  358 | int is_vector_arg(int i) {
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~                                         
  359 |  Object* ob = *hoc_objgetarg(i);
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                                   
  360 |  if (!ob || ob->ctemplate != svec_->u.ctemplate) {
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                 
  361 |   return 0;
      |   ~~~~~~~~~                                                        
  362 |  }
      |  ~                                                                 
  363 |  return 1;
      |  ~~~~~~~~~                                                         
  364 | }
      | ~                                                                  
  365 | 
      |                                                                    
  366 | int vector_arg_px(int i, double** px) {
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                            
  367 |  Vect* x = vector_arg(i);
      |  ~~~~~~~~~~~~~~~~~~~~~~~~                                          
  368 |  *px = x->vec();
      |  ~~~~~~~~~~~~~~~                                                   
  369 |  return x->capacity();
      |  ~~~~~~~~~~~~~~~~~~~~~                                             
  370 | }
      | ~                                                                  
  371 | 
      |                                                                    
  372 | extern void nrn_vecsim_add(void*, bool);
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                           
  373 | extern void nrn_vecsim_remove(void*);
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                              
  374 | 
      |                                                                    
  375 | static int possible_destvec(int arg, Vect*& dest) {
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                
  376 |  if (ifarg(arg) && hoc_is_object_arg(arg)) {
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                       
  377 |    dest = vector_arg(arg);
      |    ~~~~~~~~~~~~~~~~~~~~~~~                                         
  378 |    return arg+1;
      |    ~~~~~~~~~~~~~                                                   
  379 |  }else{
      |  ~~~~~~                                                            
  380 |   dest = new Vect();
      |   ~~~~~~~~~~~~~~~~~~                                               
  381 |   return arg;
      |   ~~~~~~~~~~~                                                      
  382 |  }
      |  ~                                                                 
  383 | }
      | ~                                                                  
  384 | 
      |                                                                    
  385 | static double v_play_remove(void* v) {
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                             
  386 |  nrn_vecsim_remove(v);
      |  ~~~~~~~~~~~~~~~~~~~~~                                             
  387 |  return 1.;
      |  ~~~~~~~~~~                                                        
  388 | }
      | ~                                                                  
  389 | 
      |                                                                    
  390 | static double v_fwrite(void* v) {
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                                  
  391 |  Vect* vp = (Vect*)v;
      |  ~~~~~~~~~~~~~~~~~~~~                                              
  392 |  void* s;
      |  ~~~~~~~~                                                          
  393 |  int x_max = vp->capacity()-1;
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                                     
  394 |  int start = 0;
      |  ~~~~~~~~~~~~~~                                                    
  395 |  int end = x_max;
      |  ~~~~~~~~~~~~~~~~                                                  
  396 |  hoc_return_type_code = 1; // integer
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                              
  397 |  if (ifarg(2)) {
      |  ~~~~~~~~~~~~~~~                                                   
  398 |    start = int(chkarg(2,0,x_max));
      |    ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                                 
  399 |    end = int(chkarg(3,0,x_max));
      |    ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                                   
  400 |  }
      |  ~                                                                 
  401 |  s = (void*)(&vp->elem(start));
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                                    
  402 |  const char* x = (const char*)s;
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                                   
  403 | 
      |                                                                    
  404 |     Object* ob = *hoc_objgetarg(1);
      |     ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                                
  405 |     check_obj_type(ob, "File");
      |     ~~~~~~~~~~~~~~~~~~~~~~~~~~~                                    
  406 |     OcFile* f = (OcFile*)(ob->u.this_pointer);
      |     ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                     
  407 |  FILE* fp = f->file();
      |  ~~~~~~~~~~~~~~~~~~~~~                                             
  408 |  if (!fp) {
      |  ~~~~~~~~~~                                                        
  409 |   return 0.;
      |   ~~~~~~~~~~                                                       
  410 |  }
      |  ~                                                                 
  411 |  int n = end-start+1;
      |  ~~~~~~~~~~~~~~~~~~~~                                              
  412 |  BinaryMode(f);
      |  ~~~~~~~~~~~~~~                                                    
  413 |  return (double)fwrite(x,sizeof(double),n,fp);
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                     
  414 | }
      | ~                                                                  
  415 | 
      |                                                                    
  416 | static double v_fread(void* v) {
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                                   
  417 |  Vect* vp = (Vect*)v;
      |  ~~~~~~~~~~~~~~~~~~~~                                              
  418 |  void* s = (void*)(vp->vec());
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                                     
  419 | 
      |                                                                    
  420 |         Object* ob = *hoc_objgetarg(1);
      |         ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                            
  421 | 
      |                                                                    
  422 |  check_obj_type(ob, "File");
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~                                       
  423 |  OcFile* f = (OcFile*)(ob->u.this_pointer);
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                        
  424 | 
      |                                                                    
  425 |  if (ifarg(2)) vp->resize(int(chkarg(2,0,1e10)));
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                  
  426 |  int n = vp->capacity();
      |  ~~~~~~~~~~~~~~~~~~~~~~~                                           
  427 | 
      |                                                                    
  428 |         int type = 4;
      |         ~~~~~~~~~~~~~                                              
  429 |  if (ifarg(3)) {
      |  ~~~~~~~~~~~~~~~                                                   
  430 |            type = int(chkarg(3,1,5));
      |            ~~~~~~~~~~~~~~~~~~~~~~~~~~                              
  431 |         }
      |         ~                                                          
  432 | 
      |                                                                    
  433 |  FILE* fp = f->file();
      |  ~~~~~~~~~~~~~~~~~~~~~                                             
  434 |  if (!fp) {
      |  ~~~~~~~~~~                                                        
  435 |   return 0.;
      |   ~~~~~~~~~~                                                       
  436 |  }
      |  ~                                                                 
  437 | 
      |                                                                    
  438 |  int i;
      |  ~~~~~~                                                            
  439 |  BinaryMode(f)
      |  ~~~~~~~~~~~~~                                                     
  440 |  if (n > 0) switch (type) {
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~                                        
  441 | 
      |                                                                    
  442 |         case 5:         // short ints
      |         ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                              
  443 |         {
      |         ~                                                          
  444 |            short *xs = (short *)malloc(n * (unsigned)sizeof(short));
      |            ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
  445 |            FRead(xs,sizeof(short),n,fp);
      |            ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                           
  446 |            for (i=0;i<n;++i) {
      |            ~~~~~~~~~~~~~~~~~~~                                     
  447 |       vp->elem(i) = double(xs[i]);
      |       ~~~~~~~~~~~~~~~~~~~~~~~~~~~~                                 
  448 |     }
      |     ~                                                              
  449 |            free((char *)xs);
      |            ~~~~~~~~~~~~~~~~~                                       
  450 |            break;
      |            ~~~~~~                                                  
  451 |         }
      |         ~                                                          
  452 | 
      |                                                                    
  453 |         case 4:        // doubles
      |         ~~~~~~~~~~~~~~~~~~~~~~~~~                                  
  454 |            FRead(&(vp->elem(0)),sizeof(double),n,fp);
      |            ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~              
  455 |            break;
      |            ~~~~~~                                                  
  456 | 
      |                                                                    
  457 |         case 3:         // floats
      |         ~~~~~~~~~~~~~~~~~~~~~~~~~                                  
  458 |  {
      |  ~                                                                 
  459 |            float *xf = (float *)malloc(n * (unsigned)sizeof(float));
      |            ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
  460 |            FRead(xf,sizeof(float),n,fp);
      |            ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                           
  461 |            for (i=0;i<n;++i) {
      |            ~~~~~~~~~~~~~~~~~~~                                     
  462 |       vp->elem(i) = double(xf[i]);
      |       ~~~~~~~~~~~~~~~~~~~~~~~~~~~~                                 
  463 |     }
      |     ~                                                              
  464 |            free((char *)xf);
      |            ~~~~~~~~~~~~~~~~~                                       
  465 |            break;
      |            ~~~~~~                                                  
  466 |         }
      |         ~                                                          
  467 | 
      |                                                                    
  468 |         case 2:         // unsigned short ints
      |         ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                     
  469 |         {
      |         ~                                                          
  470 | 
      |                                                                    
  471 |            unsigned short *xi = (unsigned short *)malloc(n * (unsigned)sizeof(unsigned short));
      |            ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
  472 |            FRead(xi,sizeof(unsigned short),n,fp);
      |            ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                  
  473 |            for (i=0;i<n;++i) {
      |            ~~~~~~~~~~~~~~~~~~~                                     
  474 |       vp->elem(i) = double(xi[i]);
      |       ~~~~~~~~~~~~~~~~~~~~~~~~~~~~                                 
  475 |     }
      |     ~                                                              
  476 |            free((char *)xi);
      |            ~~~~~~~~~~~~~~~~~                                       
  477 |            break;
      |            ~~~~~~                                                  
  478 |         }
      |         ~                                                          
  479 | 
      |                                                                    
  480 |         case 1:         // char
      |         ~~~~~~~~~~~~~~~~~~~~~~~                                    
  481 |         {
      |         ~                                                          
  482 |            char *xc = (char *)malloc(n * (unsigned)sizeof(char));
      |            ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~  
  483 |            FRead(xc,sizeof(char),n,fp);
      |            ~~~~~~~~~~~~~~~~~~~~~~~~~~~~                            
  484 |            for (i=0;i<n;++i) {
      |            ~~~~~~~~~~~~~~~~~~~                                     
  485 |       vp->elem(i) = double(xc[i]);
      |       ~~~~~~~~~~~~~~~~~~~~~~~~~~~~                                 
  486 |     }
      |     ~                                                              
  487 |            free(xc);
      |            ~~~~~~~~~                                               
  488 |            break;
      |            ~~~~~~                                                  
  489 |         }
      |         ~                                                          
  490 |  }
      |  ~                                                                 
  491 |  return 1;
      |  ~~~~~~~~~                                                         
  492 | }
      | ~                                                                  
  493 | 
      |                                                                    
  494 | static double v_vwrite(void* v) {
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                                  
  495 |  Vect* vp = (Vect*)v;
      |  ~~~~~~~~~~~~~~~~~~~~                                              
  496 | 
      |                                                                    
  497 |         Object* ob = *hoc_objgetarg(1);
      |         ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                            
  498 |         check_obj_type(ob, "File");
      |         ~~~~~~~~~~~~~~~~~~~~~~~~~~~                                
  499 |         OcFile* f = (OcFile*)(ob->u.this_pointer);
      |         ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                 
  500 | 
      |                                                                    
  501 |  FILE* fp = f->file();
      |  ~~~~~~~~~~~~~~~~~~~~~                                             
  502 |  if (!fp) {
      |  ~~~~~~~~~~                                                        
  503 |   return 0.;
      |   ~~~~~~~~~~                                                       
  504 |  }
      |  ~                                                                 
  505 | 
      |                                                                    
  506 |   BinaryMode(f)
      |   ~~~~~~~~~~~~~                                                    
  507 |  // first, write the size of the vector
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                            
  508 |  int n = vp->capacity();
      |  ~~~~~~~~~~~~~~~~~~~~~~~                                           
  509 |         FWrite(&n,sizeof(int),1,fp);
      |         ~~~~~~~~~~~~~~~~~~~~~~~~~~~~                               
  510 | 
      |                                                                    
  511 | // next, write the type of elements
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                                
  512 |         int type = 4;
      |         ~~~~~~~~~~~~~                                              
  513 |  if (ifarg(2)) {
      |  ~~~~~~~~~~~~~~~                                                   
  514 |            type = int(chkarg(2,1,5));
      |            ~~~~~~~~~~~~~~~~~~~~~~~~~~                              
  515 |         }
      |         ~                                                          
  516 |         FWrite(&type,sizeof(int),1,fp);
      |         ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                            
  517 | 
      |                                                                    
  518 | // convert the data if necessary
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                                   
  519 |         int i;
      |         ~~~~~~                                                     
  520 |         void *s;
      |         ~~~~~~~~                                                   
  521 |         const char* x;
      |         ~~~~~~~~~~~~~~                                             
  522 | 
      |                                                                    
  523 |         double min,r,sf,sub,intermed;
      |         ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                              
  524 |         switch (type) {
      |         ~~~~~~~~~~~~~~~                                            
  525 | 
      |                                                                    
  526 |         case 5:     // integers as ints (no scaling)
      |         ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~               
  527 |  {
      |  ~                                                                 
  528 |            int* xi = (int *)malloc(n * sizeof(int));
      |            ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~               
  529 |            for (i=0;i<n;++i) {
      |            ~~~~~~~~~~~~~~~~~~~                                     
  530 |       xi[i] = (int)(vp->elem(i));
      |       ~~~~~~~~~~~~~~~~~~~~~~~~~~~                                  
  531 |            }
      |            ~                                                       
  532 |     FWrite(xi,sizeof(int),n,fp);
      |     ~~~~~~~~~~~~~~~~~~~~~~~~~~~~                                   
  533 |            free((char *)xi);
      |            ~~~~~~~~~~~~~~~~~                                       
  534 |            break;
      |            ~~~~~~                                                  
  535 |         }
      |         ~                                                          
  536 | 
      |                                                                    
  537 |         case 4:     // doubles (no conversion unless BYTESWAP used and needed)
      |         ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
  538 |  {
      |  ~                                                                 
  539 |            s = (void*)(&(vp->elem(0)));
      |            ~~~~~~~~~~~~~~~~~~~~~~~~~~~~                            
  540 |     x = (const char*)s;
      |     ~~~~~~~~~~~~~~~~~~~                                            
  541 |     FWrite(x,sizeof(double),n,fp);
      |     ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                                 
  542 |            break;
      |            ~~~~~~                                                  
  543 |         }
      |         ~                                                          
  544 | 
      |                                                                    
  545 |         case 3:     // float (simple automatic type conversion)
      |         ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~    
  546 |  {
      |  ~                                                                 
  547 |            float* xf = (float *)malloc(n * (unsigned)sizeof(float));
      |            ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
  548 |            for (i=0;i<n;++i) {
      |            ~~~~~~~~~~~~~~~~~~~                                     
  549 |       xf[i] = float(vp->elem(i));
      |       ~~~~~~~~~~~~~~~~~~~~~~~~~~~                                  
  550 |     }
      |     ~                                                              
  551 |     FWrite(xf,sizeof(float),n,fp);
      |     ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                                 
  552 |            free((char *)xf);
      |            ~~~~~~~~~~~~~~~~~                                       
  553 |            break;
      |            ~~~~~~                                                  
  554 |         }
      |         ~                                                          
  555 | 
      |                                                                    
  556 | 
      |                                                                    
  557 |         case 2:     // short ints (scale to 16 bits with compression)
      |         ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
  558 |  {
      |  ~                                                                 
  559 |            min = vp->min();
      |            ~~~~~~~~~~~~~~~~                                        
  560 |            r = vp->max()- min;
      |            ~~~~~~~~~~~~~~~~~~~                                     
  561 |            if (r > 0) {
      |            ~~~~~~~~~~~~                                            
  562 |                 sf = TWO_BYTE_HIGH/r;
      |                 ~~~~~~~~~~~~~~~~~~~~~                              
  563 |            } else {
      |            ~~~~~~~~                                                
  564 |                 sf = 1.;
      |                 ~~~~~~~~                                           
  565 |            }
      |            ~                                                       
  566 |            unsigned short* xi = (unsigned short *)malloc(n * (unsigned)sizeof(unsigned short));
      |            ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
  567 |            for (i=0;i<n;++i) {
      |            ~~~~~~~~~~~~~~~~~~~                                     
  568 |               intermed = (vp->elem(i)-min)*sf;
      |               ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                     
  569 |               xi[i] = (unsigned short)intermed;
      |               ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                    
  570 |            }
      |            ~                                                       
  571 |            s = (void*)xi;
      |            ~~~~~~~~~~~~~~                                          
  572 |     x = (const char*)s;
      |     ~~~~~~~~~~~~~~~~~~~                                            
  573 |                       // store the info needed to reconvert
      |                       ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~        
  574 |            FWrite(&sf,sizeof(double),1,fp);
      |            ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                        
  575 |            FWrite(&min,sizeof(double),1,fp);
      |            ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                       
  576 |                       // store the actual data
      |                       ~~~~~~~~~~~~~~~~~~~~~~~~                     
  577 |     FWrite(x,sizeof(unsigned short),n,fp);
      |     ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                         
  578 |            free((char *)xi);
      |            ~~~~~~~~~~~~~~~~~                                       
  579 |            break;
      |            ~~~~~~                                                  
  580 |         }
      |         ~                                                          
  581 | 
      |                                                                    
  582 |         case 1:      // char (scale to 8 bits with compression)
      |         ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~    
  583 |   {
      |   ~                                                                
  584 |            sub = ONE_BYTE_HALF;
      |            ~~~~~~~~~~~~~~~~~~~~                                    
  585 |            min = vp->min();
      |            ~~~~~~~~~~~~~~~~                                        
  586 |            r = vp->max()- min;
      |            ~~~~~~~~~~~~~~~~~~~                                     
  587 |            if (r > 0) {
      |            ~~~~~~~~~~~~                                            
  588 |                 sf = ONE_BYTE_HIGH/r;
      |                 ~~~~~~~~~~~~~~~~~~~~~                              
  589 |            } else {
      |            ~~~~~~~~                                                
  590 |                 sf = 1.;
      |                 ~~~~~~~~                                           
  591 |            }
      |            ~                                                       
  592 | 
      |                                                                    
  593 |            char* xc = (char *)malloc(n * (unsigned)sizeof(char));
      |            ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~  
  594 |            for (i=0;i<n;++i) {
      |            ~~~~~~~~~~~~~~~~~~~                                     
  595 |       xc[i] = char(((vp->elem(i)-min)*sf)-sub);
      |       ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                    
  596 |     }
      |     ~                                                              
  597 |            s = (void*)xc;
      |            ~~~~~~~~~~~~~~                                          
  598 |     x = (const char*)s;
      |     ~~~~~~~~~~~~~~~~~~~                                            
  599 |                       // store the info needed to reconvert
      |                       ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~        
  600 |            FWrite(&sf,sizeof(double),1,fp);
      |            ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                        
  601 |            FWrite(&min,sizeof(double),1,fp);
      |            ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                       
  602 |     FWrite(x,sizeof(char),n,fp);
      |     ~~~~~~~~~~~~~~~~~~~~~~~~~~~~                                   
  603 |            free(xc);
      |            ~~~~~~~~~                                               
  604 |            break;
      |            ~~~~~~                                                  
  605 |         }
      |         ~                                                          
  606 | 
      |                                                                    
  607 |  }
      |  ~                                                                 
  608 |     return 1;
      |     ~~~~~~~~~                                                      
  609 | }
      | ~                                                                  
  610 | 
      |                                                                    
  611 | 
      |                                                                    
  612 | static double v_vread(void* v) {
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                                   
  613 |  Vect* vp = (Vect*)v;
      |  ~~~~~~~~~~~~~~~~~~~~                                              
  614 |  void* s = (void*)(vp->vec());
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                                     
  615 | 
      |                                                                    
  616 |         Object* ob = *hoc_objgetarg(1);
      |         ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                            
  617 |  check_obj_type(ob, "File");
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~                                       
  618 |  OcFile* f = (OcFile*)(ob->u.this_pointer);
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                        
  619 |         BYTEHEADER
      |         ~~~~~~~~~~                                                 
  620 | 
      |                                                                    
  621 |  FILE* fp = f->file();
      |  ~~~~~~~~~~~~~~~~~~~~~                                             
  622 |  if (!fp) {
      |  ~~~~~~~~~~                                                        
  623 |   return 0.;
      |   ~~~~~~~~~~                                                       
  624 |  }
      |  ~                                                                 
  625 | 
      |                                                                    
  626 |  BinaryMode(f)
      |  ~~~~~~~~~~~~~                                                     
  627 |         int n;
      |         ~~~~~~                                                     
  628 |         FRead(&n,sizeof(int),1,fp);
      |         ~~~~~~~~~~~~~~~~~~~~~~~~~~~                                
  629 | 
      |                                                                    
  630 |         int type = 0;
      |         ~~~~~~~~~~~~~                                              
  631 |         FRead(&type,sizeof(int),1,fp);
      |         ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                             
  632 | 
      |                                                                    
  633 |  // since the type ranges from 1 to 5 (very important that it not be 0)
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
  634 |  // we can check the type and decide if it needs to be byteswapped
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ 
  635 |  if (type < 1 || type > 5) {
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~                                       
  636 |   BYTESWAP_FLAG = 1;
      |   ~~~~~~~~~~~~~~~~~~                                               
  637 |  }else{
      |  ~~~~~~                                                            
  638 |   BYTESWAP_FLAG = 0;
      |   ~~~~~~~~~~~~~~~~~~                                               
  639 |  }
      |  ~                                                                 
  640 | 
      |                                                                    
  641 |         BYTESWAP(n,int)
      |         ~~~~~~~~~~~~~~~                                            
  642 |         BYTESWAP(type,int)
      |         ~~~~~~~~~~~~~~~~~~                                         
  643 |  if (type < 1 || type > 5) { return 0.;}
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                           
  644 |         if (vp->capacity() != n) vp->resize(n);
      |         ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                    
  645 | 
      |                                                                    
  646 | // read as appropriate type and convert to doubles
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                 
  647 | 
      |                                                                    
  648 |         int i;
      |         ~~~~~~                                                     
  649 |         double sf = 1.;
      |         ~~~~~~~~~~~~~~~                                            
  650 |         double min = 0.;
      |         ~~~~~~~~~~~~~~~~                                           
  651 |         double add;
      |         ~~~~~~~~~~~                                                
  652 | 
      |                                                                    
  653 |         switch (type) {
      |         ~~~~~~~~~~~~~~~                                            
  654 | 
      |                                                                    
  655 |         case 5:         // ints; no conversion
      |         ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                     
  656 |         {
      |         ~                                                          
  657 |            int *xi = (int *)malloc(n * sizeof(int));
      |            ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~               
  658 |            FRead(xi,sizeof(int),n,fp);
      |            ~~~~~~~~~~~~~~~~~~~~~~~~~~~                             
  659 |            for (i=0;i<n;++i) {
      |            ~~~~~~~~~~~~~~~~~~~                                     
  660 |       BYTESWAP(xi[i],int)
      |       ~~~~~~~~~~~~~~~~~~~                                          
  661 |       vp->elem(i) = double(xi[i]);
      |       ~~~~~~~~~~~~~~~~~~~~~~~~~~~~                                 
  662 |     }
      |     ~                                                              
  663 |            free((char *)xi);
      |            ~~~~~~~~~~~~~~~~~                                       
  664 |            break;
      |            ~~~~~~                                                  
  665 |         }
      |         ~                                                          
  666 | 
      |                                                                    
  667 |         case 4:        // doubles
      |         ~~~~~~~~~~~~~~~~~~~~~~~~~                                  
  668 |            FRead(&(vp->elem(0)),sizeof(double),n,fp);
      |            ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~              
  669 |       if (BYTESWAP_FLAG == 1) {
      |       ~~~~~~~~~~~~~~~~~~~~~~~~~                                    
  670 |       for (i=0;i<n;++i) { BYTESWAP(vp->elem(i),double) }
      |       ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~           
  671 |     }
      |     ~                                                              
  672 |            break;
      |            ~~~~~~                                                  
  673 | 
      |                                                                    
  674 |         case 3:         // floats
      |         ~~~~~~~~~~~~~~~~~~~~~~~~~                                  
  675 |  {
      |  ~                                                                 
  676 |            float *xf = (float *)malloc(n * (unsigned)sizeof(float));
      |            ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
  677 |            FRead(xf,sizeof(float),n,fp);
      |            ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                           
  678 |            for (i=0;i<n;++i) {
      |            ~~~~~~~~~~~~~~~~~~~                                     
  679 |       BYTESWAP(xf[i],float)
      |       ~~~~~~~~~~~~~~~~~~~~~                                        
  680 |       vp->elem(i) = double(xf[i]);
      |       ~~~~~~~~~~~~~~~~~~~~~~~~~~~~                                 
  681 |     }
      |     ~                                                              
  682 |            free((char *)xf);
      |            ~~~~~~~~~~~~~~~~~                                       
  683 |            break;
      |            ~~~~~~                                                  
  684 |         }
      |         ~                                                          
  685 | 
      |                                                                    
  686 |         case 2:         // unsigned short ints
      |         ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                     
  687 |         {          // convert back to double
      |         ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                       
  688 |            FRead(&sf,sizeof(double),1,fp);
      |            ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                         
  689 |            FRead(&min,sizeof(double),1,fp);
      |            ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                        
  690 |            BYTESWAP(sf,double)
      |            ~~~~~~~~~~~~~~~~~~~                                     
  691 |            BYTESWAP(min,double)
      |            ~~~~~~~~~~~~~~~~~~~~                                    
  692 | 
      |                                                                    
  693 |            unsigned short *xi = (unsigned short *)malloc(n * (unsigned)sizeof(unsigned short));
      |            ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
  694 |            FRead(xi,sizeof(unsigned short),n,fp);
      |            ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                       
/builddir/build/BUILD/nrn-7.8.1/src/ivoc/ivocvect.cpp:694:12: note: in expansion of macro 'FRead'
  694 |            FRead(xi,sizeof(unsigned short),n,fp);
      |            ^~~~~
/builddir/build/BUILD/nrn-7.8.1/src/ivoc/ivocvect.cpp:83:20: warning: comparison of integer expressions of different signedness: 'int' and 'long unsigned int' [-Wsign-compare]
   83 |  for (_II__=0;_II__<sizeof(_TYPE__);_II__++) { \
      |               ~~~~~^~~~~~~~~~~~~~~~
/builddir/build/BUILD/nrn-7.8.1/src/ivoc/ivocvect.cpp:696:7: note: in expansion of macro 'BYTESWAP'
  696 |       BYTESWAP(xi[i],short)
      |       ^~~~~~~~
/builddir/build/BUILD/nrn-7.8.1/src/ivoc/ivocvect.cpp:83:20: warning: comparison of integer expressions of different signedness: 'int' and 'long unsigned int' [-Wsign-compare]
   83 |  for (_II__=0;_II__<sizeof(_TYPE__);_II__++) { \
      |               ~~~~~^~~~~~~~~~~~~~~~
/builddir/build/BUILD/nrn-7.8.1/src/ivoc/ivocvect.cpp:707:12: note: in expansion of macro 'BYTESWAP'
  707 |            BYTESWAP(sf,double)
      |            ^~~~~~~~
/builddir/build/BUILD/nrn-7.8.1/src/ivoc/ivocvect.cpp:83:20: warning: comparison of integer expressions of different signedness: 'int' and 'long unsigned int' [-Wsign-compare]
   83 |  for (_II__=0;_II__<sizeof(_TYPE__);_II__++) { \
      |               ~~~~~^~~~~~~~~~~~~~~~
/builddir/build/BUILD/nrn-7.8.1/src/ivoc/ivocvect.cpp:708:12: note: in expansion of macro 'BYTESWAP'
  708 |            BYTESWAP(min,double)
      |            ^~~~~~~~
/builddir/build/BUILD/nrn-7.8.1/src/ivoc/ivocvect.cpp:67:67: warning: comparison of integer expressions of different signedness: 'size_t' {aka 'long unsigned int'} and 'int' [-Wsign-compare]
   67 | #define FRead(arg1,arg2,arg3,arg4) if (fread(arg1,arg2,arg3,arg4) != arg3) {}
      |                                        ~~~~~~~~~~~~~~~~~~~~~~~~~~~^~~~~~~~~~~
   68 | #endif
      | ~~~~~~                                                             
   69 | 
      |                                                                    
   70 | static double dmaxint_;
      | ~~~~~~~~~~~~~~~~~~~~~~~                                            
   71 | 
      |                                                                    
   72 | // Definitions allow machine independent write and read
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~            
   73 | // note that must include BYTEHEADER at head of routine
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~            
   74 | // The policy is that each machine vwrite binary information in
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~    
   75 | // without swapping, ie. native endian.
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                            
   76 | // On reading, the type is checked to decide whether
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~               
   77 | // byteswapping should be performed
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                                
   78 | 
      |                                                                    
   79 | #define BYTEHEADER int _II__;  char *_IN__; char _OUT__[16]; int BYTESWAP_FLAG=0;
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
   80 | #define BYTESWAP(_X__,_TYPE__) \
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                                   
   81 |     if (BYTESWAP_FLAG == 1) { \
      |     ~~~~~~~~~~~~~~~~~~~~~~~~~~~                                    
   82 |  _IN__ = (char *) &(_X__); \
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~                                       
   83 |  for (_II__=0;_II__<sizeof(_TYPE__);_II__++) { \
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                   
   84 |   _OUT__[_II__] = _IN__[sizeof(_TYPE__)-_II__-1]; } \
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~              
   85 |  (_X__) = *((_TYPE__ *) &_OUT__); \
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                                
   86 |     }
      |     ~                                                              
   87 | 
      |                                                                    
   88 | #include "ivocvect.h"
      | ~~~~~~~~~~~~~~~~~~~~~                                              
   89 | 
      |                                                                    
   90 | // definition of SampleHistogram from the gnu c++ class library
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~    
   91 | #include <SmplHist.h>
      | ~~~~~~~~~~~~~~~~~~~~~                                              
   92 | 
      |                                                                    
   93 | // definition of random numer generator
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                            
   94 | #include "random1.h"
      | ~~~~~~~~~~~~~~~~~~~~                                               
   95 | #include <Uniform.h>
      | ~~~~~~~~~~~~~~~~~~~~                                               
   96 | 
      |                                                                    
   97 | // definition of comparison functions
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                              
   98 | #include <d_defs.h>
      | ~~~~~~~~~~~~~~~~~~~                                                
   99 | 
      |                                                                    
  100 | #if HAVE_IV
      | ~~~~~~~~~~~                                                        
  101 | #include "utility.h"
      | ~~~~~~~~~~~~~~~~~~~~                                               
  102 | #endif
      | ~~~~~~                                                             
  103 | #include "oc2iv.h"
      | ~~~~~~~~~~~~~~~~~~                                                 
  104 | #include "parse.h"
      | ~~~~~~~~~~~~~~~~~~                                                 
  105 | #include "ocfile.h"
      | ~~~~~~~~~~~~~~~~~~~                                                
  106 | 
      |                                                                    
  107 | extern "C" {
      | ~~~~~~~~~~~~                                                       
  108 | extern Object* hoc_thisobject;
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                                     
  109 | extern Symlist* hoc_top_level_symlist;
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                             
  110 | extern void nrn_exit(int);
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~                                         
  111 | IvocVect* (*nrnpy_vec_from_python_p_)(void*);
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                      
  112 | Object** (*nrnpy_vec_to_python_p_)(void*);
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                         
  113 | Object** (*nrnpy_vec_as_numpy_helper_)(int, double*);
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~              
  114 | };
      | ~~                                                                 
  115 | 
      |                                                                    
  116 | 
      |                                                                    
  117 | int cmpfcn(double a, double b) { return ((a) <= (b))? (((a) == (b))? 0 : -1) : 1; }
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
  118 | 
      |                                                                    
  119 | 
      |                                                                    
  120 | // math functions with error checking defined in oc/SRC/math.c
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~     
  121 | extern "C" {
      | ~~~~~~~~~~~~                                                       
  122 |   extern double hoc_Log(double x), hoc_Log10(double x), hoc_Exp(double x), hoc_Sqrt(double x);
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
  123 |   extern double hoc_scan(FILE*);
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                                   
  124 | }
      | ~                                                                  
  125 | 
      |                                                                    
  126 | static int narg() {
      | ~~~~~~~~~~~~~~~~~~~                                                
  127 |   int i=0;
      |   ~~~~~~~~                                                         
  128 |   while (ifarg(i++));
      |   ~~~~~~~~~~~~~~~~~~~                                              
  129 |   return i-2;
      |   ~~~~~~~~~~~                                                      
  130 | }
      | ~                                                                  
  131 | 
      |                                                                    
  132 | #define MAX_FIT_PARAMS 20
      | ~~~~~~~~~~~~~~~~~~~~~~~~~                                          
  133 | 
      |                                                                    
  134 | #define TWO_BYTE_HIGH  65535.
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                                      
  135 | #define ONE_BYTE_HIGH  255.
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~                                        
  136 | #define ONE_BYTE_HALF  128.
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~                                        
  137 | 
      |                                                                    
  138 | #define EPSILON 1e-9
      | ~~~~~~~~~~~~~~~~~~~~                                               
  139 | 
      |                                                                    
  140 | extern "C" {
      | ~~~~~~~~~~~~                                                       
  141 |  extern void notify_freed_val_array(double*, size_t);
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~              
  142 |  extern void install_vector_method(const char* name, Pfrd_vp);
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~     
  143 |  extern int vector_instance_px(void*, double**);
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                   
  144 |  extern int vector_arg_px(int, double**);
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                          
  145 |         extern int nrn_mlh_gsort (double* vec, int *base_ptr, int total_elems, doubleComparator cmp);
      |         ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
  146 | };
      | ~~                                                                 
  147 | 
      |                                                                    
  148 | extern "C" int hoc_return_type_code;
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                               
  149 | 
      |                                                                    
  150 | IvocVect::IvocVect(Object* o) : ParentVect(){obj_ = o; label_ = NULL; MUTCONSTRUCT(0)}
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
  151 | IvocVect::IvocVect(int l, Object* o) : ParentVect(l){obj_ = o; label_ = NULL; MUTCONSTRUCT(0)}
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
  152 | IvocVect::IvocVect(int l, double fill_value, Object* o) : ParentVect(l, fill_value){obj_ = o; label_ = NULL; MUTCONSTRUCT(0)}
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
  153 | IvocVect::IvocVect(IvocVect& v, Object* o) : ParentVect(v) {obj_ = o; label_ = NULL; MUTCONSTRUCT(0)}
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
  154 | 
      |                                                                    
  155 | IvocVect::~IvocVect(){
      | ~~~~~~~~~~~~~~~~~~~~~~                                             
  156 |  MUTDESTRUCT
      |  ~~~~~~~~~~~                                                       
  157 |  if (label_) {
      |  ~~~~~~~~~~~~~                                                     
  158 |   delete [] label_;
      |   ~~~~~~~~~~~~~~~~~                                                
  159 |  }
      |  ~                                                                 
  160 |  notify_freed_val_array(vec(), capacity());
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                        
  161 | }
      | ~                                                                  
  162 | 
      |                                                                    
  163 | void IvocVect::label(const char* label) {
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                          
  164 |  if (label_) {
      |  ~~~~~~~~~~~~~                                                     
  165 |   delete [] label_;
      |   ~~~~~~~~~~~~~~~~~                                                
  166 |   label_ = NULL;
      |   ~~~~~~~~~~~~~~                                                   
  167 |  }
      |  ~                                                                 
  168 |  if (label) {
      |  ~~~~~~~~~~~~                                                      
  169 |   label_ = new char[strlen(label) + 1];
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                            
  170 |   strcpy(label_, label);
      |   ~~~~~~~~~~~~~~~~~~~~~~                                           
  171 |  }
      |  ~                                                                 
  172 | }
      | ~                                                                  
  173 | 
      |                                                                    
  174 | static const char* nullstr = "";
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                                   
  175 | 
      |                                                                    
  176 | static const char** v_label(void* v) {
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                             
  177 |  Vect* x  = (Vect*)v;
      |  ~~~~~~~~~~~~~~~~~~~~                                              
  178 |  if (ifarg(1)) {
      |  ~~~~~~~~~~~~~~~                                                   
  179 |   x->label(gargstr(1));
      |   ~~~~~~~~~~~~~~~~~~~~~                                            
  180 |  }
      |  ~                                                                 
  181 |  if (x->label_) {
      |  ~~~~~~~~~~~~~~~~                                                  
  182 |   return (const char**)&x->label_;
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                                 
  183 |  }
      |  ~                                                                 
  184 |  return &nullstr;
      |  ~~~~~~~~~~~~~~~~                                                  
  185 | }
      | ~                                                                  
  186 | 
      |                                                                    
  187 | static void same_err(const char* s, Vect* x, Vect* y) {
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~            
  188 |  if (x == y) {
      |  ~~~~~~~~~~~~~                                                     
  189 |   hoc_execerror(s, " argument needs to be copied first");
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~          
  190 |  }
      |  ~                                                                 
  191 | }
      | ~                                                                  
  192 | 
      |                                                                    
  193 | /* the Vect->at(start, end) function was used in about a dozen places
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
  194 | for the purpose of dealing with a subrange of elements. However that
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
  195 | function clones the subrange and returns a new Vect. This caused a
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ 
  196 | memory leak and was needlessly inefficient for those functions.
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~    
  197 | To fix both problems for these specific functions
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                  
  198 | we use a special vector which does not have
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                        
  199 | it's own space but merely a pointer and capacity to the right space of
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
  200 | the original vector. The usage is restricted to only once at a time, i.e.
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
  201 | can't use two subvecs at once and never do anything which affects the
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
  202 | memory space.
      | ~~~~~~~~~~~~~                                                      
  203 | */
      | ~~                                                                 
  204 | 
      |                                                                    
  205 | static IvocVect* subvec_; // allocated when registered.
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~            
  206 | IvocVect* IvocVect::subvec(int start, int end) {
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                   
  207 |  subvec_->len = end - start + 1;
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                                   
  208 |  subvec_->s = s + start;
      |  ~~~~~~~~~~~~~~~~~~~~~~~                                           
  209 |  return subvec_;
      |  ~~~~~~~~~~~~~~~                                                   
  210 | }
      | ~                                                                  
  211 | 
      |                                                                    
  212 | void IvocVect::resize(int newlen) { // all that for this
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~           
  213 |  long oldcap = capacity();
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~                                         
  214 |  if (newlen > space) {
      |  ~~~~~~~~~~~~~~~~~~~~~                                             
  215 |   notify_freed_val_array(vec(), capacity());
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                       
  216 |  }
      |  ~                                                                 
  217 |  ParentVect::resize(newlen);
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~                                       
  218 |  for (;oldcap < newlen; ++oldcap) {
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                                
  219 |   elem(oldcap) = 0.;
      |   ~~~~~~~~~~~~~~~~~~                                               
  220 |  }
      |  ~                                                                 
  221 | }
      | ~                                                                  
  222 | 
      |                                                                    
  223 | void IvocVect::resize_chunk(int newlen, int extra) {
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~               
  224 |  if (newlen > space) {
      |  ~~~~~~~~~~~~~~~~~~~~~                                             
  225 |   long x = newlen + extra;
      |   ~~~~~~~~~~~~~~~~~~~~~~~~                                         
  226 |   if (extra == 0) {
      |   ~~~~~~~~~~~~~~~~~                                                
  227 |    x = ListImpl_best_new_count(newlen, sizeof(double));
      |    ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~            
  228 |   }
      |   ~                                                                
  229 | //  printf("resize_chunk %d\n", x);
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                                
  230 |   resize(x);
      |   ~~~~~~~~~~                                                       
  231 |  }
      |  ~                                                                 
  232 |  resize(newlen);
      |  ~~~~~~~~~~~~~~~                                                   
  233 | }
      | ~                                                                  
  234 | 
      |                                                                    
  235 | #if HAVE_IV
      | ~~~~~~~~~~~                                                        
  236 | /*static*/ class GraphMarkItem : public GraphItem {
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                
  237 | public:
      | ~~~~~~~                                                            
  238 |  GraphMarkItem(Glyph* g) : GraphItem(g){}
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                          
  239 |  virtual ~GraphMarkItem(){};
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~                                       
  240 |  virtual void erase(Scene* s, GlyphIndex i, int type) {
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~            
  241 |   if (type & GraphItem::ERASE_LINE) {
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                              
  242 |    s->remove(i);
      |    ~~~~~~~~~~~~~                                                   
  243 |   }
      |   ~                                                                
  244 |  }
      |  ~                                                                 
  245 | };
      | ~~                                                                 
  246 | #endif
      | ~~~~~~                                                             
  247 | 
      |                                                                    
  248 | static void* v_cons(Object* o) {
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                                   
  249 |  double fill_value = 0.;
      |  ~~~~~~~~~~~~~~~~~~~~~~~                                           
  250 |  int n = 0;
      |  ~~~~~~~~~~                                                        
  251 |  Vect* vec;
      |  ~~~~~~~~~~                                                        
  252 |  if (ifarg(1)) {
      |  ~~~~~~~~~~~~~~~                                                   
  253 |   if (hoc_is_double_arg(1)) {
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~                                      
  254 |    n = int(chkarg(1,0,1e10));
      |    ~~~~~~~~~~~~~~~~~~~~~~~~~~                                      
  255 |    if (ifarg(2)) fill_value = *getarg(2);
      |    ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                          
  256 |    vec =  new Vect(n,fill_value, o);
      |    ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                               
  257 |   }else{
      |   ~~~~~~                                                           
  258 |    if (!nrnpy_vec_from_python_p_) {
      |    ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                                
  259 |     hoc_execerror("Python not available", 0);
      |     ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                      
  260 |    }
      |    ~                                                               
  261 |    vec = (*nrnpy_vec_from_python_p_)(new Vect(0, 0, o));
      |    ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~           
  262 |   }
      |   ~                                                                
  263 |  }else{
      |  ~~~~~~                                                            
  264 |   vec = new Vect(0, 0, o);
      |   ~~~~~~~~~~~~~~~~~~~~~~~~                                         
  265 |  }
      |  ~                                                                 
  266 |  return vec;
      |  ~~~~~~~~~~~                                                       
  267 | }
      | ~                                                                  
  268 | 
      |                                                                    
  269 | 
      |                                                                    
  270 | static void v_destruct(void* v) {
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                                  
  271 |  delete (Vect*)v;
      |  ~~~~~~~~~~~~~~~~                                                  
  272 | }
      | ~                                                                  
  273 | 
      |                                                                    
  274 | static Symbol* svec_;
      | ~~~~~~~~~~~~~~~~~~~~~                                              
  275 | 
      |                                                                    
  276 | // extern "C" vector functions used by ocmatrix.dll
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                
  277 | // can also be used in mod files
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                                   
  278 | Vect* vector_new(int n, Object* o){return new Vect(n, o);}
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~         
  279 | Vect* vector_new0(){return new Vect();}
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                            
  280 | Vect* vector_new1(int n){return new Vect(n);}
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                      
  281 | Vect* vector_new2(Vect* v){return new Vect(*v);}
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                   
  282 | void vector_delete(Vect* v){delete v;}
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                             
  283 | int vector_buffer_size(Vect* v){return v->buffer_size();}
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~          
  284 | int vector_capacity(Vect* v){return v->capacity();}
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                
  285 | void vector_resize(Vect* v, int n){v->resize(n);}
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                  
  286 | Object** vector_temp_objvar(Vect* v){return v->temp_objvar();}
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~     
  287 | double* vector_vec(Vect* v){return v->vec();}
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                      
  288 | Object** vector_pobj(Vect* v){return &v->obj_;}
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                    
  289 | char* vector_get_label(Vect* v) { return v->label_; }
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~              
  290 | void vector_set_label(Vect* v, char* s) { v->label(s); }
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~           
  291 | void vector_append(Vect* v, double x){
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                             
  292 |   long n = v->capacity();
      |   ~~~~~~~~~~~~~~~~~~~~~~~                                          
  293 |   v->resize_chunk(n+1);
      |   ~~~~~~~~~~~~~~~~~~~~~                                            
  294 |   v->elem(n) = x;
      |   ~~~~~~~~~~~~~~~                                                  
  295 | }
      | ~                                                                  
  296 | 
      |                                                                    
  297 | #ifdef WIN32
      | ~~~~~~~~~~~~                                                       
  298 | #if !defined(USEMATRIX) || USEMATRIX == 0
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                          
  299 | #include "../windll/dll.h"
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~                                         
  300 | extern "C" {extern char* neuron_home;}
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                             
  301 | 
      |                                                                    
  302 | void load_ocmatrix() {
      | ~~~~~~~~~~~~~~~~~~~~~~                                             
  303 |  struct DLL* dll = NULL;
      |  ~~~~~~~~~~~~~~~~~~~~~~~                                           
  304 |  char buf[256];
      |  ~~~~~~~~~~~~~~                                                    
  305 |  sprintf(buf, "%s\\lib\\ocmatrix.dll", neuron_home);
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~               
  306 |  dll = dll_load(buf);
      |  ~~~~~~~~~~~~~~~~~~~~                                              
  307 |  if (dll) {
      |  ~~~~~~~~~~                                                        
  308 |   Pfri mreg = (Pfri)dll_lookup(dll, "_Matrix_reg");
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                
  309 |   if (mreg) {
      |   ~~~~~~~~~~~                                                      
  310 |    (*mreg)();
      |    ~~~~~~~~~~                                                      
  311 |   }
      |   ~                                                                
  312 |  }else{
      |  ~~~~~~                                                            
  313 |   printf("No Matrix class.\n");
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                                    
  314 |  }
      |  ~                                                                 
  315 | }
      | ~                                                                  
  316 | #endif
      | ~~~~~~                                                             
  317 | #endif
      | ~~~~~~                                                             
  318 | 
      |                                                                    
  319 | Object** IvocVect::temp_objvar() {
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                                 
  320 |  IvocVect* v = (IvocVect*)this;
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                                    
  321 |  Object** po;
      |  ~~~~~~~~~~~~                                                      
  322 |  if (v->obj_) {
      |  ~~~~~~~~~~~~~~                                                    
  323 |   po = hoc_temp_objptr(v->obj_);
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                                   
  324 |  }else{
      |  ~~~~~~                                                            
  325 |   po = hoc_temp_objvar(svec_, (void*)v);
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                           
  326 |   obj_ = *po;
      |   ~~~~~~~~~~~                                                      
  327 |  }
      |  ~                                                                 
  328 |  return po;
      |  ~~~~~~~~~~                                                        
  329 | }
      | ~                                                                  
  330 | 
      |                                                                    
  331 | extern "C" { // bug in cray compiler requires this
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                 
  332 | void install_vector_method(const char* name, double (*f)(void*)) {
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ 
  333 |  Symbol* s_meth;
      |  ~~~~~~~~~~~~~~~                                                   
  334 |  if (hoc_table_lookup(name, svec_->u.ctemplate->symtable)) {
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~       
  335 |   hoc_execerror(name, " already a method in the Vector class");
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~    
  336 |  }
      |  ~                                                                 
  337 |  s_meth = hoc_install(name, FUNCTION, 0.0, &svec_->u.ctemplate->symtable);
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
  338 |  s_meth->u.u_proc->defn.pfd = (Pfrd)f;
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                             
  339 | #define PUBLIC_TYPE 1
      | ~~~~~~~~~~~~~~~~~~~~~                                              
  340 |  s_meth->cpublic = PUBLIC_TYPE;
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                                    
  341 | }
      | ~                                                                  
  342 | }
      | ~                                                                  
  343 | 
      |                                                                    
  344 | int vector_instance_px(void* v, double** px) {
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                     
  345 |  Vect* x = (Vect*)v;
      |  ~~~~~~~~~~~~~~~~~~~                                               
  346 |  *px = x->vec();
      |  ~~~~~~~~~~~~~~~                                                   
  347 |  return x->capacity();
      |  ~~~~~~~~~~~~~~~~~~~~~                                             
  348 | }
      | ~                                                                  
  349 | 
      |                                                                    
  350 | Vect* vector_arg(int i) {
      | ~~~~~~~~~~~~~~~~~~~~~~~~~                                          
  351 |  Object* ob = *hoc_objgetarg(i);
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                                   
  352 |  if (!ob || ob->ctemplate != svec_->u.ctemplate) {
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                 
  353 |   check_obj_type(ob, "Vector");
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                                    
  354 |  }
      |  ~                                                                 
  355 |  return (Vect*)(ob->u.this_pointer);
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                               
  356 | }
      | ~                                                                  
  357 | 
      |                                                                    
  358 | int is_vector_arg(int i) {
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~                                         
  359 |  Object* ob = *hoc_objgetarg(i);
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                                   
  360 |  if (!ob || ob->ctemplate != svec_->u.ctemplate) {
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                 
  361 |   return 0;
      |   ~~~~~~~~~                                                        
  362 |  }
      |  ~                                                                 
  363 |  return 1;
      |  ~~~~~~~~~                                                         
  364 | }
      | ~                                                                  
  365 | 
      |                                                                    
  366 | int vector_arg_px(int i, double** px) {
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                            
  367 |  Vect* x = vector_arg(i);
      |  ~~~~~~~~~~~~~~~~~~~~~~~~                                          
  368 |  *px = x->vec();
      |  ~~~~~~~~~~~~~~~                                                   
  369 |  return x->capacity();
      |  ~~~~~~~~~~~~~~~~~~~~~                                             
  370 | }
      | ~                                                                  
  371 | 
      |                                                                    
  372 | extern void nrn_vecsim_add(void*, bool);
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                           
  373 | extern void nrn_vecsim_remove(void*);
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                              
  374 | 
      |                                                                    
  375 | static int possible_destvec(int arg, Vect*& dest) {
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                
  376 |  if (ifarg(arg) && hoc_is_object_arg(arg)) {
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                       
  377 |    dest = vector_arg(arg);
      |    ~~~~~~~~~~~~~~~~~~~~~~~                                         
  378 |    return arg+1;
      |    ~~~~~~~~~~~~~                                                   
  379 |  }else{
      |  ~~~~~~                                                            
  380 |   dest = new Vect();
      |   ~~~~~~~~~~~~~~~~~~                                               
  381 |   return arg;
      |   ~~~~~~~~~~~                                                      
  382 |  }
      |  ~                                                                 
  383 | }
      | ~                                                                  
  384 | 
      |                                                                    
  385 | static double v_play_remove(void* v) {
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                             
  386 |  nrn_vecsim_remove(v);
      |  ~~~~~~~~~~~~~~~~~~~~~                                             
  387 |  return 1.;
      |  ~~~~~~~~~~                                                        
  388 | }
      | ~                                                                  
  389 | 
      |                                                                    
  390 | static double v_fwrite(void* v) {
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                                  
  391 |  Vect* vp = (Vect*)v;
      |  ~~~~~~~~~~~~~~~~~~~~                                              
  392 |  void* s;
      |  ~~~~~~~~                                                          
  393 |  int x_max = vp->capacity()-1;
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                                     
  394 |  int start = 0;
      |  ~~~~~~~~~~~~~~                                                    
  395 |  int end = x_max;
      |  ~~~~~~~~~~~~~~~~                                                  
  396 |  hoc_return_type_code = 1; // integer
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                              
  397 |  if (ifarg(2)) {
      |  ~~~~~~~~~~~~~~~                                                   
  398 |    start = int(chkarg(2,0,x_max));
      |    ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                                 
  399 |    end = int(chkarg(3,0,x_max));
      |    ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                                   
  400 |  }
      |  ~                                                                 
  401 |  s = (void*)(&vp->elem(start));
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                                    
  402 |  const char* x = (const char*)s;
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                                   
  403 | 
      |                                                                    
  404 |     Object* ob = *hoc_objgetarg(1);
      |     ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                                
  405 |     check_obj_type(ob, "File");
      |     ~~~~~~~~~~~~~~~~~~~~~~~~~~~                                    
  406 |     OcFile* f = (OcFile*)(ob->u.this_pointer);
      |     ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                     
  407 |  FILE* fp = f->file();
      |  ~~~~~~~~~~~~~~~~~~~~~                                             
  408 |  if (!fp) {
      |  ~~~~~~~~~~                                                        
  409 |   return 0.;
      |   ~~~~~~~~~~                                                       
  410 |  }
      |  ~                                                                 
  411 |  int n = end-start+1;
      |  ~~~~~~~~~~~~~~~~~~~~                                              
  412 |  BinaryMode(f);
      |  ~~~~~~~~~~~~~~                                                    
  413 |  return (double)fwrite(x,sizeof(double),n,fp);
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                     
  414 | }
      | ~                                                                  
  415 | 
      |                                                                    
  416 | static double v_fread(void* v) {
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                                   
  417 |  Vect* vp = (Vect*)v;
      |  ~~~~~~~~~~~~~~~~~~~~                                              
  418 |  void* s = (void*)(vp->vec());
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                                     
  419 | 
      |                                                                    
  420 |         Object* ob = *hoc_objgetarg(1);
      |         ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                            
  421 | 
      |                                                                    
  422 |  check_obj_type(ob, "File");
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~                                       
  423 |  OcFile* f = (OcFile*)(ob->u.this_pointer);
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                        
  424 | 
      |                                                                    
  425 |  if (ifarg(2)) vp->resize(int(chkarg(2,0,1e10)));
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                  
  426 |  int n = vp->capacity();
      |  ~~~~~~~~~~~~~~~~~~~~~~~                                           
  427 | 
      |                                                                    
  428 |         int type = 4;
      |         ~~~~~~~~~~~~~                                              
  429 |  if (ifarg(3)) {
      |  ~~~~~~~~~~~~~~~                                                   
  430 |            type = int(chkarg(3,1,5));
      |            ~~~~~~~~~~~~~~~~~~~~~~~~~~                              
  431 |         }
      |         ~                                                          
  432 | 
      |                                                                    
  433 |  FILE* fp = f->file();
      |  ~~~~~~~~~~~~~~~~~~~~~                                             
  434 |  if (!fp) {
      |  ~~~~~~~~~~                                                        
  435 |   return 0.;
      |   ~~~~~~~~~~                                                       
  436 |  }
      |  ~                                                                 
  437 | 
      |                                                                    
  438 |  int i;
      |  ~~~~~~                                                            
  439 |  BinaryMode(f)
      |  ~~~~~~~~~~~~~                                                     
  440 |  if (n > 0) switch (type) {
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~                                        
  441 | 
      |                                                                    
  442 |         case 5:         // short ints
      |         ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                              
  443 |         {
      |         ~                                                          
  444 |            short *xs = (short *)malloc(n * (unsigned)sizeof(short));
      |            ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
  445 |            FRead(xs,sizeof(short),n,fp);
      |            ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                           
  446 |            for (i=0;i<n;++i) {
      |            ~~~~~~~~~~~~~~~~~~~                                     
  447 |       vp->elem(i) = double(xs[i]);
      |       ~~~~~~~~~~~~~~~~~~~~~~~~~~~~                                 
  448 |     }
      |     ~                                                              
  449 |            free((char *)xs);
      |            ~~~~~~~~~~~~~~~~~                                       
  450 |            break;
      |            ~~~~~~                                                  
  451 |         }
      |         ~                                                          
  452 | 
      |                                                                    
  453 |         case 4:        // doubles
      |         ~~~~~~~~~~~~~~~~~~~~~~~~~                                  
  454 |            FRead(&(vp->elem(0)),sizeof(double),n,fp);
      |            ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~              
  455 |            break;
      |            ~~~~~~                                                  
  456 | 
      |                                                                    
  457 |         case 3:         // floats
      |         ~~~~~~~~~~~~~~~~~~~~~~~~~                                  
  458 |  {
      |  ~                                                                 
  459 |            float *xf = (float *)malloc(n * (unsigned)sizeof(float));
      |            ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
  460 |            FRead(xf,sizeof(float),n,fp);
      |            ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                           
  461 |            for (i=0;i<n;++i) {
      |            ~~~~~~~~~~~~~~~~~~~                                     
  462 |       vp->elem(i) = double(xf[i]);
      |       ~~~~~~~~~~~~~~~~~~~~~~~~~~~~                                 
  463 |     }
      |     ~                                                              
  464 |            free((char *)xf);
      |            ~~~~~~~~~~~~~~~~~                                       
  465 |            break;
      |            ~~~~~~                                                  
  466 |         }
      |         ~                                                          
  467 | 
      |                                                                    
  468 |         case 2:         // unsigned short ints
      |         ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                     
  469 |         {
      |         ~                                                          
  470 | 
      |                                                                    
  471 |            unsigned short *xi = (unsigned short *)malloc(n * (unsigned)sizeof(unsigned short));
      |            ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
  472 |            FRead(xi,sizeof(unsigned short),n,fp);
      |            ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                  
  473 |            for (i=0;i<n;++i) {
      |            ~~~~~~~~~~~~~~~~~~~                                     
  474 |       vp->elem(i) = double(xi[i]);
      |       ~~~~~~~~~~~~~~~~~~~~~~~~~~~~                                 
  475 |     }
      |     ~                                                              
  476 |            free((char *)xi);
      |            ~~~~~~~~~~~~~~~~~                                       
  477 |            break;
      |            ~~~~~~                                                  
  478 |         }
      |         ~                                                          
  479 | 
      |                                                                    
  480 |         case 1:         // char
      |         ~~~~~~~~~~~~~~~~~~~~~~~                                    
  481 |         {
      |         ~                                                          
  482 |            char *xc = (char *)malloc(n * (unsigned)sizeof(char));
      |            ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~  
  483 |            FRead(xc,sizeof(char),n,fp);
      |            ~~~~~~~~~~~~~~~~~~~~~~~~~~~~                            
  484 |            for (i=0;i<n;++i) {
      |            ~~~~~~~~~~~~~~~~~~~                                     
  485 |       vp->elem(i) = double(xc[i]);
      |       ~~~~~~~~~~~~~~~~~~~~~~~~~~~~                                 
  486 |     }
      |     ~                                                              
  487 |            free(xc);
      |            ~~~~~~~~~                                               
  488 |            break;
      |            ~~~~~~                                                  
  489 |         }
      |         ~                                                          
  490 |  }
      |  ~                                                                 
  491 |  return 1;
      |  ~~~~~~~~~                                                         
  492 | }
      | ~                                                                  
  493 | 
      |                                                                    
  494 | static double v_vwrite(void* v) {
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                                  
  495 |  Vect* vp = (Vect*)v;
      |  ~~~~~~~~~~~~~~~~~~~~                                              
  496 | 
      |                                                                    
  497 |         Object* ob = *hoc_objgetarg(1);
      |         ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                            
  498 |         check_obj_type(ob, "File");
      |         ~~~~~~~~~~~~~~~~~~~~~~~~~~~                                
  499 |         OcFile* f = (OcFile*)(ob->u.this_pointer);
      |         ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                 
  500 | 
      |                                                                    
  501 |  FILE* fp = f->file();
      |  ~~~~~~~~~~~~~~~~~~~~~                                             
  502 |  if (!fp) {
      |  ~~~~~~~~~~                                                        
  503 |   return 0.;
      |   ~~~~~~~~~~                                                       
  504 |  }
      |  ~                                                                 
  505 | 
      |                                                                    
  506 |   BinaryMode(f)
      |   ~~~~~~~~~~~~~                                                    
  507 |  // first, write the size of the vector
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                            
  508 |  int n = vp->capacity();
      |  ~~~~~~~~~~~~~~~~~~~~~~~                                           
  509 |         FWrite(&n,sizeof(int),1,fp);
      |         ~~~~~~~~~~~~~~~~~~~~~~~~~~~~                               
  510 | 
      |                                                                    
  511 | // next, write the type of elements
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                                
  512 |         int type = 4;
      |         ~~~~~~~~~~~~~                                              
  513 |  if (ifarg(2)) {
      |  ~~~~~~~~~~~~~~~                                                   
  514 |            type = int(chkarg(2,1,5));
      |            ~~~~~~~~~~~~~~~~~~~~~~~~~~                              
  515 |         }
      |         ~                                                          
  516 |         FWrite(&type,sizeof(int),1,fp);
      |         ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                            
  517 | 
      |                                                                    
  518 | // convert the data if necessary
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                                   
  519 |         int i;
      |         ~~~~~~                                                     
  520 |         void *s;
      |         ~~~~~~~~                                                   
  521 |         const char* x;
      |         ~~~~~~~~~~~~~~                                             
  522 | 
      |                                                                    
  523 |         double min,r,sf,sub,intermed;
      |         ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                              
  524 |         switch (type) {
      |         ~~~~~~~~~~~~~~~                                            
  525 | 
      |                                                                    
  526 |         case 5:     // integers as ints (no scaling)
      |         ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~               
  527 |  {
      |  ~                                                                 
  528 |            int* xi = (int *)malloc(n * sizeof(int));
      |            ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~               
  529 |            for (i=0;i<n;++i) {
      |            ~~~~~~~~~~~~~~~~~~~                                     
  530 |       xi[i] = (int)(vp->elem(i));
      |       ~~~~~~~~~~~~~~~~~~~~~~~~~~~                                  
  531 |            }
      |            ~                                                       
  532 |     FWrite(xi,sizeof(int),n,fp);
      |     ~~~~~~~~~~~~~~~~~~~~~~~~~~~~                                   
  533 |            free((char *)xi);
      |            ~~~~~~~~~~~~~~~~~                                       
  534 |            break;
      |            ~~~~~~                                                  
  535 |         }
      |         ~                                                          
  536 | 
      |                                                                    
  537 |         case 4:     // doubles (no conversion unless BYTESWAP used and needed)
      |         ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
  538 |  {
      |  ~                                                                 
  539 |            s = (void*)(&(vp->elem(0)));
      |            ~~~~~~~~~~~~~~~~~~~~~~~~~~~~                            
  540 |     x = (const char*)s;
      |     ~~~~~~~~~~~~~~~~~~~                                            
  541 |     FWrite(x,sizeof(double),n,fp);
      |     ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                                 
  542 |            break;
      |            ~~~~~~                                                  
  543 |         }
      |         ~                                                          
  544 | 
      |                                                                    
  545 |         case 3:     // float (simple automatic type conversion)
      |         ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~    
  546 |  {
      |  ~                                                                 
  547 |            float* xf = (float *)malloc(n * (unsigned)sizeof(float));
      |            ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
  548 |            for (i=0;i<n;++i) {
      |            ~~~~~~~~~~~~~~~~~~~                                     
  549 |       xf[i] = float(vp->elem(i));
      |       ~~~~~~~~~~~~~~~~~~~~~~~~~~~                                  
  550 |     }
      |     ~                                                              
  551 |     FWrite(xf,sizeof(float),n,fp);
      |     ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                                 
  552 |            free((char *)xf);
      |            ~~~~~~~~~~~~~~~~~                                       
  553 |            break;
      |            ~~~~~~                                                  
  554 |         }
      |         ~                                                          
  555 | 
      |                                                                    
  556 | 
      |                                                                    
  557 |         case 2:     // short ints (scale to 16 bits with compression)
      |         ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
  558 |  {
      |  ~                                                                 
  559 |            min = vp->min();
      |            ~~~~~~~~~~~~~~~~                                        
  560 |            r = vp->max()- min;
      |            ~~~~~~~~~~~~~~~~~~~                                     
  561 |            if (r > 0) {
      |            ~~~~~~~~~~~~                                            
  562 |                 sf = TWO_BYTE_HIGH/r;
      |                 ~~~~~~~~~~~~~~~~~~~~~                              
  563 |            } else {
      |            ~~~~~~~~                                                
  564 |                 sf = 1.;
      |                 ~~~~~~~~                                           
  565 |            }
      |            ~                                                       
  566 |            unsigned short* xi = (unsigned short *)malloc(n * (unsigned)sizeof(unsigned short));
      |            ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
  567 |            for (i=0;i<n;++i) {
      |            ~~~~~~~~~~~~~~~~~~~                                     
  568 |               intermed = (vp->elem(i)-min)*sf;
      |               ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                     
  569 |               xi[i] = (unsigned short)intermed;
      |               ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                    
  570 |            }
      |            ~                                                       
  571 |            s = (void*)xi;
      |            ~~~~~~~~~~~~~~                                          
  572 |     x = (const char*)s;
      |     ~~~~~~~~~~~~~~~~~~~                                            
  573 |                       // store the info needed to reconvert
      |                       ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~        
  574 |            FWrite(&sf,sizeof(double),1,fp);
      |            ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                        
  575 |            FWrite(&min,sizeof(double),1,fp);
      |            ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                       
  576 |                       // store the actual data
      |                       ~~~~~~~~~~~~~~~~~~~~~~~~                     
  577 |     FWrite(x,sizeof(unsigned short),n,fp);
      |     ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                         
  578 |            free((char *)xi);
      |            ~~~~~~~~~~~~~~~~~                                       
  579 |            break;
      |            ~~~~~~                                                  
  580 |         }
      |         ~                                                          
  581 | 
      |                                                                    
  582 |         case 1:      // char (scale to 8 bits with compression)
      |         ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~    
  583 |   {
      |   ~                                                                
  584 |            sub = ONE_BYTE_HALF;
      |            ~~~~~~~~~~~~~~~~~~~~                                    
  585 |            min = vp->min();
      |            ~~~~~~~~~~~~~~~~                                        
  586 |            r = vp->max()- min;
      |            ~~~~~~~~~~~~~~~~~~~                                     
  587 |            if (r > 0) {
      |            ~~~~~~~~~~~~                                            
  588 |                 sf = ONE_BYTE_HIGH/r;
      |                 ~~~~~~~~~~~~~~~~~~~~~                              
  589 |            } else {
      |            ~~~~~~~~                                                
  590 |                 sf = 1.;
      |                 ~~~~~~~~                                           
  591 |            }
      |            ~                                                       
  592 | 
      |                                                                    
  593 |            char* xc = (char *)malloc(n * (unsigned)sizeof(char));
      |            ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~  
  594 |            for (i=0;i<n;++i) {
      |            ~~~~~~~~~~~~~~~~~~~                                     
  595 |       xc[i] = char(((vp->elem(i)-min)*sf)-sub);
      |       ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                    
  596 |     }
      |     ~                                                              
  597 |            s = (void*)xc;
      |            ~~~~~~~~~~~~~~                                          
  598 |     x = (const char*)s;
      |     ~~~~~~~~~~~~~~~~~~~                                            
  599 |                       // store the info needed to reconvert
      |                       ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~        
  600 |            FWrite(&sf,sizeof(double),1,fp);
      |            ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                        
  601 |            FWrite(&min,sizeof(double),1,fp);
      |            ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                       
  602 |     FWrite(x,sizeof(char),n,fp);
      |     ~~~~~~~~~~~~~~~~~~~~~~~~~~~~                                   
  603 |            free(xc);
      |            ~~~~~~~~~                                               
  604 |            break;
      |            ~~~~~~                                                  
  605 |         }
      |         ~                                                          
  606 | 
      |                                                                    
  607 |  }
      |  ~                                                                 
  608 |     return 1;
      |     ~~~~~~~~~                                                      
  609 | }
      | ~                                                                  
  610 | 
      |                                                                    
  611 | 
      |                                                                    
  612 | static double v_vread(void* v) {
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                                   
  613 |  Vect* vp = (Vect*)v;
      |  ~~~~~~~~~~~~~~~~~~~~                                              
  614 |  void* s = (void*)(vp->vec());
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                                     
  615 | 
      |                                                                    
  616 |         Object* ob = *hoc_objgetarg(1);
      |         ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                            
  617 |  check_obj_type(ob, "File");
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~                                       
  618 |  OcFile* f = (OcFile*)(ob->u.this_pointer);
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                        
  619 |         BYTEHEADER
      |         ~~~~~~~~~~                                                 
  620 | 
      |                                                                    
  621 |  FILE* fp = f->file();
      |  ~~~~~~~~~~~~~~~~~~~~~                                             
  622 |  if (!fp) {
      |  ~~~~~~~~~~                                                        
  623 |   return 0.;
      |   ~~~~~~~~~~                                                       
  624 |  }
      |  ~                                                                 
  625 | 
      |                                                                    
  626 |  BinaryMode(f)
      |  ~~~~~~~~~~~~~                                                     
  627 |         int n;
      |         ~~~~~~                                                     
  628 |         FRead(&n,sizeof(int),1,fp);
      |         ~~~~~~~~~~~~~~~~~~~~~~~~~~~                                
  629 | 
      |                                                                    
  630 |         int type = 0;
      |         ~~~~~~~~~~~~~                                              
  631 |         FRead(&type,sizeof(int),1,fp);
      |         ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                             
  632 | 
      |                                                                    
  633 |  // since the type ranges from 1 to 5 (very important that it not be 0)
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
  634 |  // we can check the type and decide if it needs to be byteswapped
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ 
  635 |  if (type < 1 || type > 5) {
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~                                       
  636 |   BYTESWAP_FLAG = 1;
      |   ~~~~~~~~~~~~~~~~~~                                               
  637 |  }else{
      |  ~~~~~~                                                            
  638 |   BYTESWAP_FLAG = 0;
      |   ~~~~~~~~~~~~~~~~~~                                               
  639 |  }
      |  ~                                                                 
  640 | 
      |                                                                    
  641 |         BYTESWAP(n,int)
      |         ~~~~~~~~~~~~~~~                                            
  642 |         BYTESWAP(type,int)
      |         ~~~~~~~~~~~~~~~~~~                                         
  643 |  if (type < 1 || type > 5) { return 0.;}
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                           
  644 |         if (vp->capacity() != n) vp->resize(n);
      |         ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                    
  645 | 
      |                                                                    
  646 | // read as appropriate type and convert to doubles
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                 
  647 | 
      |                                                                    
  648 |         int i;
      |         ~~~~~~                                                     
  649 |         double sf = 1.;
      |         ~~~~~~~~~~~~~~~                                            
  650 |         double min = 0.;
      |         ~~~~~~~~~~~~~~~~                                           
  651 |         double add;
      |         ~~~~~~~~~~~                                                
  652 | 
      |                                                                    
  653 |         switch (type) {
      |         ~~~~~~~~~~~~~~~                                            
  654 | 
      |                                                                    
  655 |         case 5:         // ints; no conversion
      |         ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                     
  656 |         {
      |         ~                                                          
  657 |            int *xi = (int *)malloc(n * sizeof(int));
      |            ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~               
  658 |            FRead(xi,sizeof(int),n,fp);
      |            ~~~~~~~~~~~~~~~~~~~~~~~~~~~                             
  659 |            for (i=0;i<n;++i) {
      |            ~~~~~~~~~~~~~~~~~~~                                     
  660 |       BYTESWAP(xi[i],int)
      |       ~~~~~~~~~~~~~~~~~~~                                          
  661 |       vp->elem(i) = double(xi[i]);
      |       ~~~~~~~~~~~~~~~~~~~~~~~~~~~~                                 
  662 |     }
      |     ~                                                              
  663 |            free((char *)xi);
      |            ~~~~~~~~~~~~~~~~~                                       
  664 |            break;
      |            ~~~~~~                                                  
  665 |         }
      |         ~                                                          
  666 | 
      |                                                                    
  667 |         case 4:        // doubles
      |         ~~~~~~~~~~~~~~~~~~~~~~~~~                                  
  668 |            FRead(&(vp->elem(0)),sizeof(double),n,fp);
      |            ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~              
  669 |       if (BYTESWAP_FLAG == 1) {
      |       ~~~~~~~~~~~~~~~~~~~~~~~~~                                    
  670 |       for (i=0;i<n;++i) { BYTESWAP(vp->elem(i),double) }
      |       ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~           
  671 |     }
      |     ~                                                              
  672 |            break;
      |            ~~~~~~                                                  
  673 | 
      |                                                                    
  674 |         case 3:         // floats
      |         ~~~~~~~~~~~~~~~~~~~~~~~~~                                  
  675 |  {
      |  ~                                                                 
  676 |            float *xf = (float *)malloc(n * (unsigned)sizeof(float));
      |            ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
  677 |            FRead(xf,sizeof(float),n,fp);
      |            ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                           
  678 |            for (i=0;i<n;++i) {
      |            ~~~~~~~~~~~~~~~~~~~                                     
  679 |       BYTESWAP(xf[i],float)
      |       ~~~~~~~~~~~~~~~~~~~~~                                        
  680 |       vp->elem(i) = double(xf[i]);
      |       ~~~~~~~~~~~~~~~~~~~~~~~~~~~~                                 
  681 |     }
      |     ~                                                              
  682 |            free((char *)xf);
      |            ~~~~~~~~~~~~~~~~~                                       
  683 |            break;
      |            ~~~~~~                                                  
  684 |         }
      |         ~                                                          
  685 | 
      |                                                                    
  686 |         case 2:         // unsigned short ints
      |         ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                     
  687 |         {          // convert back to double
      |         ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                       
  688 |            FRead(&sf,sizeof(double),1,fp);
      |            ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                         
  689 |            FRead(&min,sizeof(double),1,fp);
      |            ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                        
  690 |            BYTESWAP(sf,double)
      |            ~~~~~~~~~~~~~~~~~~~                                     
  691 |            BYTESWAP(min,double)
      |            ~~~~~~~~~~~~~~~~~~~~                                    
  692 | 
      |                                                                    
  693 |            unsigned short *xi = (unsigned short *)malloc(n * (unsigned)sizeof(unsigned short));
      |            ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
  694 |            FRead(xi,sizeof(unsigned short),n,fp);
      |            ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                  
  695 |            for (i=0;i<n;++i) {
      |            ~~~~~~~~~~~~~~~~~~~                                     
  696 |       BYTESWAP(xi[i],short)
      |       ~~~~~~~~~~~~~~~~~~~~~                                        
  697 |       vp->elem(i) = double(xi[i]/sf +min);
      |       ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                         
  698 |     }
      |     ~                                                              
  699 |            free((char *)xi);
      |            ~~~~~~~~~~~~~~~~~                                       
  700 |            break;
      |            ~~~~~~                                                  
  701 |         }
      |         ~                                                          
  702 | 
      |                                                                    
  703 |         case 1:         // char
      |         ~~~~~~~~~~~~~~~~~~~~~~~                                    
  704 |         {         // convert back to double
      |         ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                        
  705 |            FRead(&sf,sizeof(double),1,fp);
      |            ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                         
  706 |            FRead(&min,sizeof(double),1,fp);
      |            ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                        
  707 |            BYTESWAP(sf,double)
      |            ~~~~~~~~~~~~~~~~~~~                                     
  708 |            BYTESWAP(min,double)
      |            ~~~~~~~~~~~~~~~~~~~~                                    
  709 |            char *xc = (char *)malloc(n * (unsigned)sizeof(char));
      |            ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~  
  710 |            FRead(xc,sizeof(char),n,fp);
      |            ~~~~~~~~~~~~~~~~~~~~~~~                                 
/builddir/build/BUILD/nrn-7.8.1/src/ivoc/ivocvect.cpp:710:12: note: in expansion of macro 'FRead'
  710 |            FRead(xc,sizeof(char),n,fp);
      |            ^~~~~
/builddir/build/BUILD/nrn-7.8.1/src/ivoc/ivocvect.cpp:614:8: warning: unused variable 's' [-Wunused-variable]
  614 |  void* s = (void*)(vp->vec());
      |        ^
/builddir/build/BUILD/nrn-7.8.1/src/ivoc/ivocvect.cpp: In function 'Object** v_hist(void*)':
/builddir/build/BUILD/nrn-7.8.1/src/ivoc/ivocvect.cpp:1127:9: warning: unused variable 'high' [-Wunused-variable]
 1127 |  double high = start+step*size;
      |         ^~~~
/builddir/build/BUILD/nrn-7.8.1/src/ivoc/ivocvect.cpp: In function 'double v_indwhere(void*)':
/builddir/build/BUILD/nrn-7.8.1/src/ivoc/ivocvect.cpp:1755:16: warning: unused variable 'm' [-Wunused-variable]
 1755 |   int i, iarg, m=0;
      |                ^
/builddir/build/BUILD/nrn-7.8.1/src/ivoc/ivocvect.cpp: In function 'call_simplex(double*, int, IvocVect*, IvocVect*, char*, int)':
/builddir/build/BUILD/nrn-7.8.1/src/ivoc/ivocvect.cpp:2694:17: warning: 'retval' may be used uninitialized in this function [-Wmaybe-uninitialized]
 2694 |   return (retval);
      |                 ^
/builddir/build/BUILD/nrn-7.8.1/src/ivoc/ocfile.cpp: In function 'bool makePath(const string&)':
/builddir/build/BUILD/nrn-7.8.1/src/ivoc/ocfile.cpp:586:21: warning: comparison of integer expressions of different signedness: 'int' and 'const size_type' {aka 'const long unsigned int'} [-Wsign-compare]
  586 |             if (pos == std::string::npos)
      |                 ~~~~^~~~~~~~~~~~~~~~~~~~
/builddir/build/BUILD/nrn-7.8.1/src/ivoc/ochelp.cpp:84:13: warning: 'void readmore()' defined but not used [-Wunused-function]
   84 | static void readmore() {
      |             ^~~~~~~~
/builddir/build/BUILD/nrn-7.8.1/src/ivoc/ochelp.cpp:40:24: warning: 'filequeue' defined but not used [-Wunused-variable]
   40 | static CopyStringList* filequeue;
      |                        ^~~~~~~~~
/builddir/build/BUILD/nrn-7.8.1/src/ivoc/ochelp.cpp:16:14: warning: 'help_pipe' defined but not used [-Wunused-variable]
   16 | static FILE* help_pipe;
      |              ^~~~~~~~~
make[2]: Leaving directory '/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu'
make[2]: Entering directory '/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu'
[ 20%] Building CXX object src/nrniv/CMakeFiles/nrniv_lib.dir/__/ivoc/ocfile.cpp.o
cd /builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/nrniv && /usr/bin/g++ -DHAVE_CONFIG_H -Dnrniv_lib_EXPORTS -DUSEBBS=1 -DUSEGNU=1 -DUSEMATRIX=1 -I/builddir/build/BUILD/nrn-7.8.1/src/ivoc -I/builddir/build/BUILD/nrn-7.8.1/src/nrniv -I/builddir/build/BUILD/nrn-7.8.1/src/nrnoc -I/builddir/build/BUILD/nrn-7.8.1/src/oc -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/nrncvode -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/nrnjava -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/nrnoc -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/nrnpython -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/oc -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/parallel -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/sundials -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/sundials/shared -I/builddir/build/BUILD/nrn-7.8.1/src -I/builddir/build/BUILD/nrn-7.8.1/src/gnu -I/builddir/build/BUILD/nrn-7.8.1/src/memacs -I/builddir/build/BUILD/nrn-7.8.1/src/mesch -I/builddir/build/BUILD/nrn-7.8.1/src/nrncvode -I/builddir/build/BUILD/nrn-7.8.1/src/nrnmpi -I/builddir/build/BUILD/nrn-7.8.1/src/nrnpython -I/builddir/build/BUILD/nrn-7.8.1/src/parallel -I/builddir/build/BUILD/nrn-7.8.1/src/sparse -I/builddir/build/BUILD/nrn-7.8.1/src/sparse13 -I/builddir/build/BUILD/nrn-7.8.1/src/sundials -I/builddir/build/BUILD/nrn-7.8.1/src/sundials/cvodes -I/builddir/build/BUILD/nrn-7.8.1/src/sundials/ida -I/builddir/build/BUILD/nrn-7.8.1/src/sundials/shared -I/usr/include/python3.9 -O2 -flto=auto -ffat-lto-objects -fexceptions -g -grecord-gcc-switches -pipe -Wall -Werror=format-security -Wp,-D_FORTIFY_SOURCE=2 -Wp,-D_GLIBCXX_ASSERTIONS -specs=/usr/lib/rpm/redhat/redhat-hardened-cc1 -fstack-protector-strong -specs=/usr/lib/rpm/redhat/redhat-annobin-cc1  -fasynchronous-unwind-tables -fstack-clash-protection -fPIC -std=c++98 -o CMakeFiles/nrniv_lib.dir/__/ivoc/ocfile.cpp.o -c /builddir/build/BUILD/nrn-7.8.1/src/ivoc/ocfile.cpp
make[2]: Leaving directory '/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu'
make[2]: Entering directory '/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu'
[ 20%] Building CXX object src/nrniv/CMakeFiles/nrniv_lib.dir/__/ivoc/ochelp.cpp.o
cd /builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/nrniv && /usr/bin/g++ -DHAVE_CONFIG_H -Dnrniv_lib_EXPORTS -DUSEBBS=1 -DUSEGNU=1 -DUSEMATRIX=1 -I/builddir/build/BUILD/nrn-7.8.1/src/ivoc -I/builddir/build/BUILD/nrn-7.8.1/src/nrniv -I/builddir/build/BUILD/nrn-7.8.1/src/nrnoc -I/builddir/build/BUILD/nrn-7.8.1/src/oc -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/nrncvode -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/nrnjava -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/nrnoc -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/nrnpython -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/oc -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/parallel -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/sundials -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/sundials/shared -I/builddir/build/BUILD/nrn-7.8.1/src -I/builddir/build/BUILD/nrn-7.8.1/src/gnu -I/builddir/build/BUILD/nrn-7.8.1/src/memacs -I/builddir/build/BUILD/nrn-7.8.1/src/mesch -I/builddir/build/BUILD/nrn-7.8.1/src/nrncvode -I/builddir/build/BUILD/nrn-7.8.1/src/nrnmpi -I/builddir/build/BUILD/nrn-7.8.1/src/nrnpython -I/builddir/build/BUILD/nrn-7.8.1/src/parallel -I/builddir/build/BUILD/nrn-7.8.1/src/sparse -I/builddir/build/BUILD/nrn-7.8.1/src/sparse13 -I/builddir/build/BUILD/nrn-7.8.1/src/sundials -I/builddir/build/BUILD/nrn-7.8.1/src/sundials/cvodes -I/builddir/build/BUILD/nrn-7.8.1/src/sundials/ida -I/builddir/build/BUILD/nrn-7.8.1/src/sundials/shared -I/usr/include/python3.9 -O2 -flto=auto -ffat-lto-objects -fexceptions -g -grecord-gcc-switches -pipe -Wall -Werror=format-security -Wp,-D_FORTIFY_SOURCE=2 -Wp,-D_GLIBCXX_ASSERTIONS -specs=/usr/lib/rpm/redhat/redhat-hardened-cc1 -fstack-protector-strong -specs=/usr/lib/rpm/redhat/redhat-annobin-cc1  -fasynchronous-unwind-tables -fstack-clash-protection -fPIC -std=c++98 -o CMakeFiles/nrniv_lib.dir/__/ivoc/ochelp.cpp.o -c /builddir/build/BUILD/nrn-7.8.1/src/ivoc/ochelp.cpp
make[2]: Leaving directory '/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu'
make[2]: Entering directory '/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu'
[ 20%] Building CXX object src/nrniv/CMakeFiles/nrniv_lib.dir/__/ivoc/oclist.cpp.o
cd /builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/nrniv && /usr/bin/g++ -DHAVE_CONFIG_H -Dnrniv_lib_EXPORTS -DUSEBBS=1 -DUSEGNU=1 -DUSEMATRIX=1 -I/builddir/build/BUILD/nrn-7.8.1/src/ivoc -I/builddir/build/BUILD/nrn-7.8.1/src/nrniv -I/builddir/build/BUILD/nrn-7.8.1/src/nrnoc -I/builddir/build/BUILD/nrn-7.8.1/src/oc -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/nrncvode -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/nrnjava -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/nrnoc -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/nrnpython -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/oc -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/parallel -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/sundials -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/sundials/shared -I/builddir/build/BUILD/nrn-7.8.1/src -I/builddir/build/BUILD/nrn-7.8.1/src/gnu -I/builddir/build/BUILD/nrn-7.8.1/src/memacs -I/builddir/build/BUILD/nrn-7.8.1/src/mesch -I/builddir/build/BUILD/nrn-7.8.1/src/nrncvode -I/builddir/build/BUILD/nrn-7.8.1/src/nrnmpi -I/builddir/build/BUILD/nrn-7.8.1/src/nrnpython -I/builddir/build/BUILD/nrn-7.8.1/src/parallel -I/builddir/build/BUILD/nrn-7.8.1/src/sparse -I/builddir/build/BUILD/nrn-7.8.1/src/sparse13 -I/builddir/build/BUILD/nrn-7.8.1/src/sundials -I/builddir/build/BUILD/nrn-7.8.1/src/sundials/cvodes -I/builddir/build/BUILD/nrn-7.8.1/src/sundials/ida -I/builddir/build/BUILD/nrn-7.8.1/src/sundials/shared -I/usr/include/python3.9 -O2 -flto=auto -ffat-lto-objects -fexceptions -g -grecord-gcc-switches -pipe -Wall -Werror=format-security -Wp,-D_FORTIFY_SOURCE=2 -Wp,-D_GLIBCXX_ASSERTIONS -specs=/usr/lib/rpm/redhat/redhat-hardened-cc1 -fstack-protector-strong -specs=/usr/lib/rpm/redhat/redhat-annobin-cc1  -fasynchronous-unwind-tables -fstack-clash-protection -fPIC -std=c++98 -o CMakeFiles/nrniv_lib.dir/__/ivoc/oclist.cpp.o -c /builddir/build/BUILD/nrn-7.8.1/src/ivoc/oclist.cpp
make[2]: Leaving directory '/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu'
make[2]: Entering directory '/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu'
[ 21%] Building CXX object src/nrniv/CMakeFiles/nrniv_lib.dir/__/ivoc/ocnoiv1.cpp.o
cd /builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/nrniv && /usr/bin/g++ -DHAVE_CONFIG_H -Dnrniv_lib_EXPORTS -DUSEBBS=1 -DUSEGNU=1 -DUSEMATRIX=1 -I/builddir/build/BUILD/nrn-7.8.1/src/ivoc -I/builddir/build/BUILD/nrn-7.8.1/src/nrniv -I/builddir/build/BUILD/nrn-7.8.1/src/nrnoc -I/builddir/build/BUILD/nrn-7.8.1/src/oc -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/nrncvode -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/nrnjava -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/nrnoc -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/nrnpython -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/oc -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/parallel -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/sundials -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/sundials/shared -I/builddir/build/BUILD/nrn-7.8.1/src -I/builddir/build/BUILD/nrn-7.8.1/src/gnu -I/builddir/build/BUILD/nrn-7.8.1/src/memacs -I/builddir/build/BUILD/nrn-7.8.1/src/mesch -I/builddir/build/BUILD/nrn-7.8.1/src/nrncvode -I/builddir/build/BUILD/nrn-7.8.1/src/nrnmpi -I/builddir/build/BUILD/nrn-7.8.1/src/nrnpython -I/builddir/build/BUILD/nrn-7.8.1/src/parallel -I/builddir/build/BUILD/nrn-7.8.1/src/sparse -I/builddir/build/BUILD/nrn-7.8.1/src/sparse13 -I/builddir/build/BUILD/nrn-7.8.1/src/sundials -I/builddir/build/BUILD/nrn-7.8.1/src/sundials/cvodes -I/builddir/build/BUILD/nrn-7.8.1/src/sundials/ida -I/builddir/build/BUILD/nrn-7.8.1/src/sundials/shared -I/usr/include/python3.9 -O2 -flto=auto -ffat-lto-objects -fexceptions -g -grecord-gcc-switches -pipe -Wall -Werror=format-security -Wp,-D_FORTIFY_SOURCE=2 -Wp,-D_GLIBCXX_ASSERTIONS -specs=/usr/lib/rpm/redhat/redhat-hardened-cc1 -fstack-protector-strong -specs=/usr/lib/rpm/redhat/redhat-annobin-cc1  -fasynchronous-unwind-tables -fstack-clash-protection -fPIC -std=c++98 -o CMakeFiles/nrniv_lib.dir/__/ivoc/ocnoiv1.cpp.o -c /builddir/build/BUILD/nrn-7.8.1/src/ivoc/ocnoiv1.cpp
make[2]: Leaving directory '/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu'
make[2]: Entering directory '/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu'
[ 21%] Building CXX object src/nrniv/CMakeFiles/nrniv_lib.dir/__/ivoc/ocobserv.cpp.o
cd /builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/nrniv && /usr/bin/g++ -DHAVE_CONFIG_H -Dnrniv_lib_EXPORTS -DUSEBBS=1 -DUSEGNU=1 -DUSEMATRIX=1 -I/builddir/build/BUILD/nrn-7.8.1/src/ivoc -I/builddir/build/BUILD/nrn-7.8.1/src/nrniv -I/builddir/build/BUILD/nrn-7.8.1/src/nrnoc -I/builddir/build/BUILD/nrn-7.8.1/src/oc -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/nrncvode -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/nrnjava -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/nrnoc -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/nrnpython -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/oc -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/parallel -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/sundials -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/sundials/shared -I/builddir/build/BUILD/nrn-7.8.1/src -I/builddir/build/BUILD/nrn-7.8.1/src/gnu -I/builddir/build/BUILD/nrn-7.8.1/src/memacs -I/builddir/build/BUILD/nrn-7.8.1/src/mesch -I/builddir/build/BUILD/nrn-7.8.1/src/nrncvode -I/builddir/build/BUILD/nrn-7.8.1/src/nrnmpi -I/builddir/build/BUILD/nrn-7.8.1/src/nrnpython -I/builddir/build/BUILD/nrn-7.8.1/src/parallel -I/builddir/build/BUILD/nrn-7.8.1/src/sparse -I/builddir/build/BUILD/nrn-7.8.1/src/sparse13 -I/builddir/build/BUILD/nrn-7.8.1/src/sundials -I/builddir/build/BUILD/nrn-7.8.1/src/sundials/cvodes -I/builddir/build/BUILD/nrn-7.8.1/src/sundials/ida -I/builddir/build/BUILD/nrn-7.8.1/src/sundials/shared -I/usr/include/python3.9 -O2 -flto=auto -ffat-lto-objects -fexceptions -g -grecord-gcc-switches -pipe -Wall -Werror=format-security -Wp,-D_FORTIFY_SOURCE=2 -Wp,-D_GLIBCXX_ASSERTIONS -specs=/usr/lib/rpm/redhat/redhat-hardened-cc1 -fstack-protector-strong -specs=/usr/lib/rpm/redhat/redhat-annobin-cc1  -fasynchronous-unwind-tables -fstack-clash-protection -fPIC -std=c++98 -o CMakeFiles/nrniv_lib.dir/__/ivoc/ocobserv.cpp.o -c /builddir/build/BUILD/nrn-7.8.1/src/ivoc/ocobserv.cpp
make[2]: Leaving directory '/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu'
make[2]: Entering directory '/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu'
[ 21%] Building CXX object src/nrniv/CMakeFiles/nrniv_lib.dir/__/ivoc/ocpicker.cpp.o
cd /builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/nrniv && /usr/bin/g++ -DHAVE_CONFIG_H -Dnrniv_lib_EXPORTS -DUSEBBS=1 -DUSEGNU=1 -DUSEMATRIX=1 -I/builddir/build/BUILD/nrn-7.8.1/src/ivoc -I/builddir/build/BUILD/nrn-7.8.1/src/nrniv -I/builddir/build/BUILD/nrn-7.8.1/src/nrnoc -I/builddir/build/BUILD/nrn-7.8.1/src/oc -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/nrncvode -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/nrnjava -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/nrnoc -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/nrnpython -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/oc -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/parallel -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/sundials -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/sundials/shared -I/builddir/build/BUILD/nrn-7.8.1/src -I/builddir/build/BUILD/nrn-7.8.1/src/gnu -I/builddir/build/BUILD/nrn-7.8.1/src/memacs -I/builddir/build/BUILD/nrn-7.8.1/src/mesch -I/builddir/build/BUILD/nrn-7.8.1/src/nrncvode -I/builddir/build/BUILD/nrn-7.8.1/src/nrnmpi -I/builddir/build/BUILD/nrn-7.8.1/src/nrnpython -I/builddir/build/BUILD/nrn-7.8.1/src/parallel -I/builddir/build/BUILD/nrn-7.8.1/src/sparse -I/builddir/build/BUILD/nrn-7.8.1/src/sparse13 -I/builddir/build/BUILD/nrn-7.8.1/src/sundials -I/builddir/build/BUILD/nrn-7.8.1/src/sundials/cvodes -I/builddir/build/BUILD/nrn-7.8.1/src/sundials/ida -I/builddir/build/BUILD/nrn-7.8.1/src/sundials/shared -I/usr/include/python3.9 -O2 -flto=auto -ffat-lto-objects -fexceptions -g -grecord-gcc-switches -pipe -Wall -Werror=format-security -Wp,-D_FORTIFY_SOURCE=2 -Wp,-D_GLIBCXX_ASSERTIONS -specs=/usr/lib/rpm/redhat/redhat-hardened-cc1 -fstack-protector-strong -specs=/usr/lib/rpm/redhat/redhat-annobin-cc1  -fasynchronous-unwind-tables -fstack-clash-protection -fPIC -std=c++98 -o CMakeFiles/nrniv_lib.dir/__/ivoc/ocpicker.cpp.o -c /builddir/build/BUILD/nrn-7.8.1/src/ivoc/ocpicker.cpp
make[2]: Leaving directory '/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu'
make[2]: Entering directory '/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu'
[ 21%] Building CXX object src/nrniv/CMakeFiles/nrniv_lib.dir/__/ivoc/ocpointer.cpp.o
cd /builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/nrniv && /usr/bin/g++ -DHAVE_CONFIG_H -Dnrniv_lib_EXPORTS -DUSEBBS=1 -DUSEGNU=1 -DUSEMATRIX=1 -I/builddir/build/BUILD/nrn-7.8.1/src/ivoc -I/builddir/build/BUILD/nrn-7.8.1/src/nrniv -I/builddir/build/BUILD/nrn-7.8.1/src/nrnoc -I/builddir/build/BUILD/nrn-7.8.1/src/oc -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/nrncvode -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/nrnjava -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/nrnoc -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/nrnpython -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/oc -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/parallel -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/sundials -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/sundials/shared -I/builddir/build/BUILD/nrn-7.8.1/src -I/builddir/build/BUILD/nrn-7.8.1/src/gnu -I/builddir/build/BUILD/nrn-7.8.1/src/memacs -I/builddir/build/BUILD/nrn-7.8.1/src/mesch -I/builddir/build/BUILD/nrn-7.8.1/src/nrncvode -I/builddir/build/BUILD/nrn-7.8.1/src/nrnmpi -I/builddir/build/BUILD/nrn-7.8.1/src/nrnpython -I/builddir/build/BUILD/nrn-7.8.1/src/parallel -I/builddir/build/BUILD/nrn-7.8.1/src/sparse -I/builddir/build/BUILD/nrn-7.8.1/src/sparse13 -I/builddir/build/BUILD/nrn-7.8.1/src/sundials -I/builddir/build/BUILD/nrn-7.8.1/src/sundials/cvodes -I/builddir/build/BUILD/nrn-7.8.1/src/sundials/ida -I/builddir/build/BUILD/nrn-7.8.1/src/sundials/shared -I/usr/include/python3.9 -O2 -flto=auto -ffat-lto-objects -fexceptions -g -grecord-gcc-switches -pipe -Wall -Werror=format-security -Wp,-D_FORTIFY_SOURCE=2 -Wp,-D_GLIBCXX_ASSERTIONS -specs=/usr/lib/rpm/redhat/redhat-hardened-cc1 -fstack-protector-strong -specs=/usr/lib/rpm/redhat/redhat-annobin-cc1  -fasynchronous-unwind-tables -fstack-clash-protection -fPIC -std=c++98 -o CMakeFiles/nrniv_lib.dir/__/ivoc/ocpointer.cpp.o -c /builddir/build/BUILD/nrn-7.8.1/src/ivoc/ocpointer.cpp
make[2]: Leaving directory '/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu'
make[2]: Entering directory '/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu'
[ 21%] Building CXX object src/nrniv/CMakeFiles/nrniv_lib.dir/__/ivoc/ocmatrix.cpp.o
cd /builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/nrniv && /usr/bin/g++ -DHAVE_CONFIG_H -Dnrniv_lib_EXPORTS -DUSEBBS=1 -DUSEGNU=1 -DUSEMATRIX=1 -I/builddir/build/BUILD/nrn-7.8.1/src/ivoc -I/builddir/build/BUILD/nrn-7.8.1/src/nrniv -I/builddir/build/BUILD/nrn-7.8.1/src/nrnoc -I/builddir/build/BUILD/nrn-7.8.1/src/oc -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/nrncvode -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/nrnjava -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/nrnoc -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/nrnpython -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/oc -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/parallel -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/sundials -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/sundials/shared -I/builddir/build/BUILD/nrn-7.8.1/src -I/builddir/build/BUILD/nrn-7.8.1/src/gnu -I/builddir/build/BUILD/nrn-7.8.1/src/memacs -I/builddir/build/BUILD/nrn-7.8.1/src/mesch -I/builddir/build/BUILD/nrn-7.8.1/src/nrncvode -I/builddir/build/BUILD/nrn-7.8.1/src/nrnmpi -I/builddir/build/BUILD/nrn-7.8.1/src/nrnpython -I/builddir/build/BUILD/nrn-7.8.1/src/parallel -I/builddir/build/BUILD/nrn-7.8.1/src/sparse -I/builddir/build/BUILD/nrn-7.8.1/src/sparse13 -I/builddir/build/BUILD/nrn-7.8.1/src/sundials -I/builddir/build/BUILD/nrn-7.8.1/src/sundials/cvodes -I/builddir/build/BUILD/nrn-7.8.1/src/sundials/ida -I/builddir/build/BUILD/nrn-7.8.1/src/sundials/shared -I/usr/include/python3.9 -O2 -flto=auto -ffat-lto-objects -fexceptions -g -grecord-gcc-switches -pipe -Wall -Werror=format-security -Wp,-D_FORTIFY_SOURCE=2 -Wp,-D_GLIBCXX_ASSERTIONS -specs=/usr/lib/rpm/redhat/redhat-hardened-cc1 -fstack-protector-strong -specs=/usr/lib/rpm/redhat/redhat-annobin-cc1  -fasynchronous-unwind-tables -fstack-clash-protection -fPIC -std=c++98 -o CMakeFiles/nrniv_lib.dir/__/ivoc/ocmatrix.cpp.o -c /builddir/build/BUILD/nrn-7.8.1/src/ivoc/ocmatrix.cpp
make[2]: Leaving directory '/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu'
/builddir/build/BUILD/nrn-7.8.1/src/ivoc/ocmatrix.cpp: In member function 'virtual void OcFullMatrix::solv(IvocVect*, IvocVect*, bool)':
/builddir/build/BUILD/nrn-7.8.1/src/ivoc/ocmatrix.cpp:290:36: warning: comparison of integer expressions of different signedness: 'u_int' {aka 'unsigned int'} and 'int' [-Wsign-compare]
  290 |  }else if (use_lu && lu_factor_->m == nrow()) {
      |                      ~~~~~~~~~~~~~~^~~~~~~~~
make[2]: Entering directory '/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu'
[ 21%] Building CXX object src/nrniv/CMakeFiles/nrniv_lib.dir/__/ivoc/ocptrvector.cpp.o
cd /builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/nrniv && /usr/bin/g++ -DHAVE_CONFIG_H -Dnrniv_lib_EXPORTS -DUSEBBS=1 -DUSEGNU=1 -DUSEMATRIX=1 -I/builddir/build/BUILD/nrn-7.8.1/src/ivoc -I/builddir/build/BUILD/nrn-7.8.1/src/nrniv -I/builddir/build/BUILD/nrn-7.8.1/src/nrnoc -I/builddir/build/BUILD/nrn-7.8.1/src/oc -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/nrncvode -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/nrnjava -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/nrnoc -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/nrnpython -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/oc -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/parallel -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/sundials -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/sundials/shared -I/builddir/build/BUILD/nrn-7.8.1/src -I/builddir/build/BUILD/nrn-7.8.1/src/gnu -I/builddir/build/BUILD/nrn-7.8.1/src/memacs -I/builddir/build/BUILD/nrn-7.8.1/src/mesch -I/builddir/build/BUILD/nrn-7.8.1/src/nrncvode -I/builddir/build/BUILD/nrn-7.8.1/src/nrnmpi -I/builddir/build/BUILD/nrn-7.8.1/src/nrnpython -I/builddir/build/BUILD/nrn-7.8.1/src/parallel -I/builddir/build/BUILD/nrn-7.8.1/src/sparse -I/builddir/build/BUILD/nrn-7.8.1/src/sparse13 -I/builddir/build/BUILD/nrn-7.8.1/src/sundials -I/builddir/build/BUILD/nrn-7.8.1/src/sundials/cvodes -I/builddir/build/BUILD/nrn-7.8.1/src/sundials/ida -I/builddir/build/BUILD/nrn-7.8.1/src/sundials/shared -I/usr/include/python3.9 -O2 -flto=auto -ffat-lto-objects -fexceptions -g -grecord-gcc-switches -pipe -Wall -Werror=format-security -Wp,-D_FORTIFY_SOURCE=2 -Wp,-D_GLIBCXX_ASSERTIONS -specs=/usr/lib/rpm/redhat/redhat-hardened-cc1 -fstack-protector-strong -specs=/usr/lib/rpm/redhat/redhat-annobin-cc1  -fasynchronous-unwind-tables -fstack-clash-protection -fPIC -std=c++98 -o CMakeFiles/nrniv_lib.dir/__/ivoc/ocptrvector.cpp.o -c /builddir/build/BUILD/nrn-7.8.1/src/ivoc/ocptrvector.cpp
make[2]: Leaving directory '/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu'
make[2]: Entering directory '/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu'
[ 21%] Building CXX object src/nrniv/CMakeFiles/nrniv_lib.dir/__/ivoc/octimer.cpp.o
cd /builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/nrniv && /usr/bin/g++ -DHAVE_CONFIG_H -Dnrniv_lib_EXPORTS -DUSEBBS=1 -DUSEGNU=1 -DUSEMATRIX=1 -I/builddir/build/BUILD/nrn-7.8.1/src/ivoc -I/builddir/build/BUILD/nrn-7.8.1/src/nrniv -I/builddir/build/BUILD/nrn-7.8.1/src/nrnoc -I/builddir/build/BUILD/nrn-7.8.1/src/oc -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/nrncvode -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/nrnjava -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/nrnoc -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/nrnpython -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/oc -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/parallel -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/sundials -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/sundials/shared -I/builddir/build/BUILD/nrn-7.8.1/src -I/builddir/build/BUILD/nrn-7.8.1/src/gnu -I/builddir/build/BUILD/nrn-7.8.1/src/memacs -I/builddir/build/BUILD/nrn-7.8.1/src/mesch -I/builddir/build/BUILD/nrn-7.8.1/src/nrncvode -I/builddir/build/BUILD/nrn-7.8.1/src/nrnmpi -I/builddir/build/BUILD/nrn-7.8.1/src/nrnpython -I/builddir/build/BUILD/nrn-7.8.1/src/parallel -I/builddir/build/BUILD/nrn-7.8.1/src/sparse -I/builddir/build/BUILD/nrn-7.8.1/src/sparse13 -I/builddir/build/BUILD/nrn-7.8.1/src/sundials -I/builddir/build/BUILD/nrn-7.8.1/src/sundials/cvodes -I/builddir/build/BUILD/nrn-7.8.1/src/sundials/ida -I/builddir/build/BUILD/nrn-7.8.1/src/sundials/shared -I/usr/include/python3.9 -O2 -flto=auto -ffat-lto-objects -fexceptions -g -grecord-gcc-switches -pipe -Wall -Werror=format-security -Wp,-D_FORTIFY_SOURCE=2 -Wp,-D_GLIBCXX_ASSERTIONS -specs=/usr/lib/rpm/redhat/redhat-hardened-cc1 -fstack-protector-strong -specs=/usr/lib/rpm/redhat/redhat-annobin-cc1  -fasynchronous-unwind-tables -fstack-clash-protection -fPIC -std=c++98 -o CMakeFiles/nrniv_lib.dir/__/ivoc/octimer.cpp.o -c /builddir/build/BUILD/nrn-7.8.1/src/ivoc/octimer.cpp
make[2]: Leaving directory '/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu'
make[2]: Entering directory '/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu'
[ 22%] Building CXX object src/nrniv/CMakeFiles/nrniv_lib.dir/__/ivoc/rect.cpp.o
cd /builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/nrniv && /usr/bin/g++ -DHAVE_CONFIG_H -Dnrniv_lib_EXPORTS -DUSEBBS=1 -DUSEGNU=1 -DUSEMATRIX=1 -I/builddir/build/BUILD/nrn-7.8.1/src/ivoc -I/builddir/build/BUILD/nrn-7.8.1/src/nrniv -I/builddir/build/BUILD/nrn-7.8.1/src/nrnoc -I/builddir/build/BUILD/nrn-7.8.1/src/oc -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/nrncvode -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/nrnjava -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/nrnoc -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/nrnpython -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/oc -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/parallel -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/sundials -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/sundials/shared -I/builddir/build/BUILD/nrn-7.8.1/src -I/builddir/build/BUILD/nrn-7.8.1/src/gnu -I/builddir/build/BUILD/nrn-7.8.1/src/memacs -I/builddir/build/BUILD/nrn-7.8.1/src/mesch -I/builddir/build/BUILD/nrn-7.8.1/src/nrncvode -I/builddir/build/BUILD/nrn-7.8.1/src/nrnmpi -I/builddir/build/BUILD/nrn-7.8.1/src/nrnpython -I/builddir/build/BUILD/nrn-7.8.1/src/parallel -I/builddir/build/BUILD/nrn-7.8.1/src/sparse -I/builddir/build/BUILD/nrn-7.8.1/src/sparse13 -I/builddir/build/BUILD/nrn-7.8.1/src/sundials -I/builddir/build/BUILD/nrn-7.8.1/src/sundials/cvodes -I/builddir/build/BUILD/nrn-7.8.1/src/sundials/ida -I/builddir/build/BUILD/nrn-7.8.1/src/sundials/shared -I/usr/include/python3.9 -O2 -flto=auto -ffat-lto-objects -fexceptions -g -grecord-gcc-switches -pipe -Wall -Werror=format-security -Wp,-D_FORTIFY_SOURCE=2 -Wp,-D_GLIBCXX_ASSERTIONS -specs=/usr/lib/rpm/redhat/redhat-hardened-cc1 -fstack-protector-strong -specs=/usr/lib/rpm/redhat/redhat-annobin-cc1  -fasynchronous-unwind-tables -fstack-clash-protection -fPIC -std=c++98 -o CMakeFiles/nrniv_lib.dir/__/ivoc/rect.cpp.o -c /builddir/build/BUILD/nrn-7.8.1/src/ivoc/rect.cpp
make[2]: Leaving directory '/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu'
make[2]: Entering directory '/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu'
[ 22%] Building CXX object src/nrniv/CMakeFiles/nrniv_lib.dir/__/ivoc/rubband.cpp.o
cd /builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/nrniv && /usr/bin/g++ -DHAVE_CONFIG_H -Dnrniv_lib_EXPORTS -DUSEBBS=1 -DUSEGNU=1 -DUSEMATRIX=1 -I/builddir/build/BUILD/nrn-7.8.1/src/ivoc -I/builddir/build/BUILD/nrn-7.8.1/src/nrniv -I/builddir/build/BUILD/nrn-7.8.1/src/nrnoc -I/builddir/build/BUILD/nrn-7.8.1/src/oc -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/nrncvode -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/nrnjava -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/nrnoc -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/nrnpython -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/oc -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/parallel -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/sundials -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/sundials/shared -I/builddir/build/BUILD/nrn-7.8.1/src -I/builddir/build/BUILD/nrn-7.8.1/src/gnu -I/builddir/build/BUILD/nrn-7.8.1/src/memacs -I/builddir/build/BUILD/nrn-7.8.1/src/mesch -I/builddir/build/BUILD/nrn-7.8.1/src/nrncvode -I/builddir/build/BUILD/nrn-7.8.1/src/nrnmpi -I/builddir/build/BUILD/nrn-7.8.1/src/nrnpython -I/builddir/build/BUILD/nrn-7.8.1/src/parallel -I/builddir/build/BUILD/nrn-7.8.1/src/sparse -I/builddir/build/BUILD/nrn-7.8.1/src/sparse13 -I/builddir/build/BUILD/nrn-7.8.1/src/sundials -I/builddir/build/BUILD/nrn-7.8.1/src/sundials/cvodes -I/builddir/build/BUILD/nrn-7.8.1/src/sundials/ida -I/builddir/build/BUILD/nrn-7.8.1/src/sundials/shared -I/usr/include/python3.9 -O2 -flto=auto -ffat-lto-objects -fexceptions -g -grecord-gcc-switches -pipe -Wall -Werror=format-security -Wp,-D_FORTIFY_SOURCE=2 -Wp,-D_GLIBCXX_ASSERTIONS -specs=/usr/lib/rpm/redhat/redhat-hardened-cc1 -fstack-protector-strong -specs=/usr/lib/rpm/redhat/redhat-annobin-cc1  -fasynchronous-unwind-tables -fstack-clash-protection -fPIC -std=c++98 -o CMakeFiles/nrniv_lib.dir/__/ivoc/rubband.cpp.o -c /builddir/build/BUILD/nrn-7.8.1/src/ivoc/rubband.cpp
make[2]: Leaving directory '/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu'
make[2]: Entering directory '/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu'
[ 23%] Building CXX object src/nrniv/CMakeFiles/nrniv_lib.dir/__/ivoc/strfun.cpp.o
cd /builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/nrniv && /usr/bin/g++ -DHAVE_CONFIG_H -Dnrniv_lib_EXPORTS -DUSEBBS=1 -DUSEGNU=1 -DUSEMATRIX=1 -I/builddir/build/BUILD/nrn-7.8.1/src/ivoc -I/builddir/build/BUILD/nrn-7.8.1/src/nrniv -I/builddir/build/BUILD/nrn-7.8.1/src/nrnoc -I/builddir/build/BUILD/nrn-7.8.1/src/oc -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/nrncvode -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/nrnjava -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/nrnoc -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/nrnpython -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/oc -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/parallel -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/sundials -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/sundials/shared -I/builddir/build/BUILD/nrn-7.8.1/src -I/builddir/build/BUILD/nrn-7.8.1/src/gnu -I/builddir/build/BUILD/nrn-7.8.1/src/memacs -I/builddir/build/BUILD/nrn-7.8.1/src/mesch -I/builddir/build/BUILD/nrn-7.8.1/src/nrncvode -I/builddir/build/BUILD/nrn-7.8.1/src/nrnmpi -I/builddir/build/BUILD/nrn-7.8.1/src/nrnpython -I/builddir/build/BUILD/nrn-7.8.1/src/parallel -I/builddir/build/BUILD/nrn-7.8.1/src/sparse -I/builddir/build/BUILD/nrn-7.8.1/src/sparse13 -I/builddir/build/BUILD/nrn-7.8.1/src/sundials -I/builddir/build/BUILD/nrn-7.8.1/src/sundials/cvodes -I/builddir/build/BUILD/nrn-7.8.1/src/sundials/ida -I/builddir/build/BUILD/nrn-7.8.1/src/sundials/shared -I/usr/include/python3.9 -O2 -flto=auto -ffat-lto-objects -fexceptions -g -grecord-gcc-switches -pipe -Wall -Werror=format-security -Wp,-D_FORTIFY_SOURCE=2 -Wp,-D_GLIBCXX_ASSERTIONS -specs=/usr/lib/rpm/redhat/redhat-hardened-cc1 -fstack-protector-strong -specs=/usr/lib/rpm/redhat/redhat-annobin-cc1  -fasynchronous-unwind-tables -fstack-clash-protection -fPIC -std=c++98 -o CMakeFiles/nrniv_lib.dir/__/ivoc/strfun.cpp.o -c /builddir/build/BUILD/nrn-7.8.1/src/ivoc/strfun.cpp
make[2]: Leaving directory '/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu'
/builddir/build/BUILD/nrn-7.8.1/src/ivoc/strfun.cpp: In function 'Object** l_alias_list(void*)':
/builddir/build/BUILD/nrn-7.8.1/src/ivoc/strfun.cpp:169:8: warning: unused variable 'buf' [-Wunused-variable]
  169 |   char buf[256];
      |        ^~~
/builddir/build/BUILD/nrn-7.8.1/src/ivoc/strfun.cpp:167:6: warning: unused variable 'id' [-Wunused-variable]
  167 |  int id = (*po)->index;
      |      ^~
make[2]: Entering directory '/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu'
[ 22%] Building CXX object src/nrniv/CMakeFiles/nrniv_lib.dir/__/ivoc/scene.cpp.o
cd /builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/nrniv && /usr/bin/g++ -DHAVE_CONFIG_H -Dnrniv_lib_EXPORTS -DUSEBBS=1 -DUSEGNU=1 -DUSEMATRIX=1 -I/builddir/build/BUILD/nrn-7.8.1/src/ivoc -I/builddir/build/BUILD/nrn-7.8.1/src/nrniv -I/builddir/build/BUILD/nrn-7.8.1/src/nrnoc -I/builddir/build/BUILD/nrn-7.8.1/src/oc -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/nrncvode -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/nrnjava -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/nrnoc -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/nrnpython -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/oc -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/parallel -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/sundials -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/sundials/shared -I/builddir/build/BUILD/nrn-7.8.1/src -I/builddir/build/BUILD/nrn-7.8.1/src/gnu -I/builddir/build/BUILD/nrn-7.8.1/src/memacs -I/builddir/build/BUILD/nrn-7.8.1/src/mesch -I/builddir/build/BUILD/nrn-7.8.1/src/nrncvode -I/builddir/build/BUILD/nrn-7.8.1/src/nrnmpi -I/builddir/build/BUILD/nrn-7.8.1/src/nrnpython -I/builddir/build/BUILD/nrn-7.8.1/src/parallel -I/builddir/build/BUILD/nrn-7.8.1/src/sparse -I/builddir/build/BUILD/nrn-7.8.1/src/sparse13 -I/builddir/build/BUILD/nrn-7.8.1/src/sundials -I/builddir/build/BUILD/nrn-7.8.1/src/sundials/cvodes -I/builddir/build/BUILD/nrn-7.8.1/src/sundials/ida -I/builddir/build/BUILD/nrn-7.8.1/src/sundials/shared -I/usr/include/python3.9 -O2 -flto=auto -ffat-lto-objects -fexceptions -g -grecord-gcc-switches -pipe -Wall -Werror=format-security -Wp,-D_FORTIFY_SOURCE=2 -Wp,-D_GLIBCXX_ASSERTIONS -specs=/usr/lib/rpm/redhat/redhat-hardened-cc1 -fstack-protector-strong -specs=/usr/lib/rpm/redhat/redhat-annobin-cc1  -fasynchronous-unwind-tables -fstack-clash-protection -fPIC -std=c++98 -o CMakeFiles/nrniv_lib.dir/__/ivoc/scene.cpp.o -c /builddir/build/BUILD/nrn-7.8.1/src/ivoc/scene.cpp
make[2]: Leaving directory '/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu'
/builddir/build/BUILD/nrn-7.8.1/src/ivoc/scene.cpp: In member function 'virtual void Scene::save_class(std::ostream&, const char*)':
/builddir/build/BUILD/nrn-7.8.1/src/ivoc/scene.cpp:870:7: warning: unused variable 'count' [-Wunused-variable]
  870 |  long count = views_->count();
      |       ^~~~~
make[2]: Entering directory '/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu'
[ 23%] Building CXX object src/nrniv/CMakeFiles/nrniv_lib.dir/__/ivoc/scenepic.cpp.o
cd /builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/nrniv && /usr/bin/g++ -DHAVE_CONFIG_H -Dnrniv_lib_EXPORTS -DUSEBBS=1 -DUSEGNU=1 -DUSEMATRIX=1 -I/builddir/build/BUILD/nrn-7.8.1/src/ivoc -I/builddir/build/BUILD/nrn-7.8.1/src/nrniv -I/builddir/build/BUILD/nrn-7.8.1/src/nrnoc -I/builddir/build/BUILD/nrn-7.8.1/src/oc -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/nrncvode -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/nrnjava -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/nrnoc -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/nrnpython -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/oc -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/parallel -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/sundials -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/sundials/shared -I/builddir/build/BUILD/nrn-7.8.1/src -I/builddir/build/BUILD/nrn-7.8.1/src/gnu -I/builddir/build/BUILD/nrn-7.8.1/src/memacs -I/builddir/build/BUILD/nrn-7.8.1/src/mesch -I/builddir/build/BUILD/nrn-7.8.1/src/nrncvode -I/builddir/build/BUILD/nrn-7.8.1/src/nrnmpi -I/builddir/build/BUILD/nrn-7.8.1/src/nrnpython -I/builddir/build/BUILD/nrn-7.8.1/src/parallel -I/builddir/build/BUILD/nrn-7.8.1/src/sparse -I/builddir/build/BUILD/nrn-7.8.1/src/sparse13 -I/builddir/build/BUILD/nrn-7.8.1/src/sundials -I/builddir/build/BUILD/nrn-7.8.1/src/sundials/cvodes -I/builddir/build/BUILD/nrn-7.8.1/src/sundials/ida -I/builddir/build/BUILD/nrn-7.8.1/src/sundials/shared -I/usr/include/python3.9 -O2 -flto=auto -ffat-lto-objects -fexceptions -g -grecord-gcc-switches -pipe -Wall -Werror=format-security -Wp,-D_FORTIFY_SOURCE=2 -Wp,-D_GLIBCXX_ASSERTIONS -specs=/usr/lib/rpm/redhat/redhat-hardened-cc1 -fstack-protector-strong -specs=/usr/lib/rpm/redhat/redhat-annobin-cc1  -fasynchronous-unwind-tables -fstack-clash-protection -fPIC -std=c++98 -o CMakeFiles/nrniv_lib.dir/__/ivoc/scenepic.cpp.o -c /builddir/build/BUILD/nrn-7.8.1/src/ivoc/scenepic.cpp
make[2]: Leaving directory '/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu'
/builddir/build/BUILD/nrn-7.8.1/src/ivoc/scenepic.cpp: In member function 'virtual void SpecView::execute()':
/builddir/build/BUILD/nrn-7.8.1/src/ivoc/scenepic.cpp:691:7: warning: unused variable 'bx' [-Wunused-variable]
  691 |  bool bx = var_pair_chooser("X size", x1, x2, v->canvas()->window());
      |       ^~
/builddir/build/BUILD/nrn-7.8.1/src/ivoc/scenepic.cpp:692:7: warning: unused variable 'by' [-Wunused-variable]
  692 |  bool by = var_pair_chooser("Y size", y1, y2, v->canvas()->window());
      |       ^~
/builddir/build/BUILD/nrn-7.8.1/src/ivoc/scenepic.cpp: In member function 'void OcViewGlyph::viewmenu(ivGlyph*)':
/builddir/build/BUILD/nrn-7.8.1/src/ivoc/scenepic.cpp:761:14: warning: unused variable 'wk' [-Wunused-variable]
  761 |   WidgetKit& wk = *WidgetKit::instance();
      |              ^~
make[2]: Entering directory '/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu'
[ 23%] Building CXX object src/nrniv/CMakeFiles/nrniv_lib.dir/__/ivoc/utility.cpp.o
cd /builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/nrniv && /usr/bin/g++ -DHAVE_CONFIG_H -Dnrniv_lib_EXPORTS -DUSEBBS=1 -DUSEGNU=1 -DUSEMATRIX=1 -I/builddir/build/BUILD/nrn-7.8.1/src/ivoc -I/builddir/build/BUILD/nrn-7.8.1/src/nrniv -I/builddir/build/BUILD/nrn-7.8.1/src/nrnoc -I/builddir/build/BUILD/nrn-7.8.1/src/oc -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/nrncvode -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/nrnjava -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/nrnoc -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/nrnpython -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/oc -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/parallel -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/sundials -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/sundials/shared -I/builddir/build/BUILD/nrn-7.8.1/src -I/builddir/build/BUILD/nrn-7.8.1/src/gnu -I/builddir/build/BUILD/nrn-7.8.1/src/memacs -I/builddir/build/BUILD/nrn-7.8.1/src/mesch -I/builddir/build/BUILD/nrn-7.8.1/src/nrncvode -I/builddir/build/BUILD/nrn-7.8.1/src/nrnmpi -I/builddir/build/BUILD/nrn-7.8.1/src/nrnpython -I/builddir/build/BUILD/nrn-7.8.1/src/parallel -I/builddir/build/BUILD/nrn-7.8.1/src/sparse -I/builddir/build/BUILD/nrn-7.8.1/src/sparse13 -I/builddir/build/BUILD/nrn-7.8.1/src/sundials -I/builddir/build/BUILD/nrn-7.8.1/src/sundials/cvodes -I/builddir/build/BUILD/nrn-7.8.1/src/sundials/ida -I/builddir/build/BUILD/nrn-7.8.1/src/sundials/shared -I/usr/include/python3.9 -O2 -flto=auto -ffat-lto-objects -fexceptions -g -grecord-gcc-switches -pipe -Wall -Werror=format-security -Wp,-D_FORTIFY_SOURCE=2 -Wp,-D_GLIBCXX_ASSERTIONS -specs=/usr/lib/rpm/redhat/redhat-hardened-cc1 -fstack-protector-strong -specs=/usr/lib/rpm/redhat/redhat-annobin-cc1  -fasynchronous-unwind-tables -fstack-clash-protection -fPIC -std=c++98 -o CMakeFiles/nrniv_lib.dir/__/ivoc/utility.cpp.o -c /builddir/build/BUILD/nrn-7.8.1/src/ivoc/utility.cpp
make[2]: Leaving directory '/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu'
/builddir/build/BUILD/nrn-7.8.1/src/ivoc/utility.cpp: In function 'bool str_chooser(const char*, char*, ivWindow*, ivCoord, ivCoord)':
/builddir/build/BUILD/nrn-7.8.1/src/ivoc/utility.cpp:191:13: warning: unused variable 'l' [-Wunused-variable]
  191 |  LayoutKit& l = *LayoutKit::instance();
      |             ^
/builddir/build/BUILD/nrn-7.8.1/src/ivoc/utility.cpp: In static member function 'static bool Graph::label_chooser(const char*, char*, GLabel*, ivCoord, ivCoord)':
/builddir/build/BUILD/nrn-7.8.1/src/ivoc/utility.cpp:350:13: warning: unused variable 'l' [-Wunused-variable]
  350 |  LayoutKit& l = *LayoutKit::instance();
      |             ^
make[2]: Entering directory '/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu'
[ 22%] Building CXX object src/nrniv/CMakeFiles/nrniv_lib.dir/__/ivoc/pwman.cpp.o
cd /builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/nrniv && /usr/bin/g++ -DHAVE_CONFIG_H -Dnrniv_lib_EXPORTS -DUSEBBS=1 -DUSEGNU=1 -DUSEMATRIX=1 -I/builddir/build/BUILD/nrn-7.8.1/src/ivoc -I/builddir/build/BUILD/nrn-7.8.1/src/nrniv -I/builddir/build/BUILD/nrn-7.8.1/src/nrnoc -I/builddir/build/BUILD/nrn-7.8.1/src/oc -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/nrncvode -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/nrnjava -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/nrnoc -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/nrnpython -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/oc -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/parallel -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/sundials -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/sundials/shared -I/builddir/build/BUILD/nrn-7.8.1/src -I/builddir/build/BUILD/nrn-7.8.1/src/gnu -I/builddir/build/BUILD/nrn-7.8.1/src/memacs -I/builddir/build/BUILD/nrn-7.8.1/src/mesch -I/builddir/build/BUILD/nrn-7.8.1/src/nrncvode -I/builddir/build/BUILD/nrn-7.8.1/src/nrnmpi -I/builddir/build/BUILD/nrn-7.8.1/src/nrnpython -I/builddir/build/BUILD/nrn-7.8.1/src/parallel -I/builddir/build/BUILD/nrn-7.8.1/src/sparse -I/builddir/build/BUILD/nrn-7.8.1/src/sparse13 -I/builddir/build/BUILD/nrn-7.8.1/src/sundials -I/builddir/build/BUILD/nrn-7.8.1/src/sundials/cvodes -I/builddir/build/BUILD/nrn-7.8.1/src/sundials/ida -I/builddir/build/BUILD/nrn-7.8.1/src/sundials/shared -I/usr/include/python3.9 -O2 -flto=auto -ffat-lto-objects -fexceptions -g -grecord-gcc-switches -pipe -Wall -Werror=format-security -Wp,-D_FORTIFY_SOURCE=2 -Wp,-D_GLIBCXX_ASSERTIONS -specs=/usr/lib/rpm/redhat/redhat-hardened-cc1 -fstack-protector-strong -specs=/usr/lib/rpm/redhat/redhat-annobin-cc1  -fasynchronous-unwind-tables -fstack-clash-protection -fPIC -std=c++98 -o CMakeFiles/nrniv_lib.dir/__/ivoc/pwman.cpp.o -c /builddir/build/BUILD/nrn-7.8.1/src/ivoc/pwman.cpp
make[2]: Leaving directory '/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu'
/builddir/build/BUILD/nrn-7.8.1/src/ivoc/pwman.cpp: In constructor 'PrintableWindowManager::PrintableWindowManager()':
/builddir/build/BUILD/nrn-7.8.1/src/ivoc/pwman.cpp:1206:15: warning: variable 'wp1' set but not used [-Wunused-but-set-variable]
 1206 |         Coord wp1;
      |               ^~~
/builddir/build/BUILD/nrn-7.8.1/src/ivoc/pwman.cpp:1246:31: warning: unused variable 'mother' [-Wunused-variable]
 1246 |  Menu* mbar, *mprint, *mses, *mother;
      |                               ^~~~~~
/builddir/build/BUILD/nrn-7.8.1/src/ivoc/pwman.cpp: In member function 'void PrintableWindowManager::reconfigured(PrintableWindow*)':
/builddir/build/BUILD/nrn-7.8.1/src/ivoc/pwman.cpp:1642:8: warning: unused variable 'r' [-Wunused-variable]
 1642 |  Coord r = l + w->width_pw();
      |        ^
/builddir/build/BUILD/nrn-7.8.1/src/ivoc/pwman.cpp:1644:8: warning: unused variable 't' [-Wunused-variable]
 1644 |  Coord t = b + w->height_pw();
      |        ^
/builddir/build/BUILD/nrn-7.8.1/src/ivoc/pwman.cpp: In member function 'void PrintableWindowManager::reconfigured(JavaWindow*)':
/builddir/build/BUILD/nrn-7.8.1/src/ivoc/pwman.cpp:1672:8: warning: unused variable 'r' [-Wunused-variable]
 1672 |  Coord r = l + w->w();
      |        ^
/builddir/build/BUILD/nrn-7.8.1/src/ivoc/pwman.cpp:1674:8: warning: unused variable 't' [-Wunused-variable]
 1674 |  Coord t = b + w->h();
      |        ^
/builddir/build/BUILD/nrn-7.8.1/src/ivoc/pwman.cpp: In member function 'void PWMImpl::common_print(ivPrinter*, bool, bool)':
/builddir/build/BUILD/nrn-7.8.1/src/ivoc/pwman.cpp:2017:9: warning: unused variable 'sfac' [-Wunused-variable]
 2017 |   float sfac;
      |         ^~~~
/builddir/build/BUILD/nrn-7.8.1/src/ivoc/pwman.cpp: In member function 'PWMImpl::save_list(int, ScreenItem**, std::basic_ostream<char, std::char_traits<char> >&)':
/builddir/build/BUILD/nrn-7.8.1/src/ivoc/pwman.cpp:3228:15: warning: 'ocg' may be used uninitialized in this function [-Wmaybe-uninitialized]
 3228 |      ocg->save(o);
      |      ~~~~~~~~~^~~
make[2]: Entering directory '/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu'
[ 23%] Building CXX object src/nrniv/CMakeFiles/nrniv_lib.dir/__/ivoc/symchoos.cpp.o
cd /builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/nrniv && /usr/bin/g++ -DHAVE_CONFIG_H -Dnrniv_lib_EXPORTS -DUSEBBS=1 -DUSEGNU=1 -DUSEMATRIX=1 -I/builddir/build/BUILD/nrn-7.8.1/src/ivoc -I/builddir/build/BUILD/nrn-7.8.1/src/nrniv -I/builddir/build/BUILD/nrn-7.8.1/src/nrnoc -I/builddir/build/BUILD/nrn-7.8.1/src/oc -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/nrncvode -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/nrnjava -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/nrnoc -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/nrnpython -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/oc -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/parallel -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/sundials -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/sundials/shared -I/builddir/build/BUILD/nrn-7.8.1/src -I/builddir/build/BUILD/nrn-7.8.1/src/gnu -I/builddir/build/BUILD/nrn-7.8.1/src/memacs -I/builddir/build/BUILD/nrn-7.8.1/src/mesch -I/builddir/build/BUILD/nrn-7.8.1/src/nrncvode -I/builddir/build/BUILD/nrn-7.8.1/src/nrnmpi -I/builddir/build/BUILD/nrn-7.8.1/src/nrnpython -I/builddir/build/BUILD/nrn-7.8.1/src/parallel -I/builddir/build/BUILD/nrn-7.8.1/src/sparse -I/builddir/build/BUILD/nrn-7.8.1/src/sparse13 -I/builddir/build/BUILD/nrn-7.8.1/src/sundials -I/builddir/build/BUILD/nrn-7.8.1/src/sundials/cvodes -I/builddir/build/BUILD/nrn-7.8.1/src/sundials/ida -I/builddir/build/BUILD/nrn-7.8.1/src/sundials/shared -I/usr/include/python3.9 -O2 -flto=auto -ffat-lto-objects -fexceptions -g -grecord-gcc-switches -pipe -Wall -Werror=format-security -Wp,-D_FORTIFY_SOURCE=2 -Wp,-D_GLIBCXX_ASSERTIONS -specs=/usr/lib/rpm/redhat/redhat-hardened-cc1 -fstack-protector-strong -specs=/usr/lib/rpm/redhat/redhat-annobin-cc1  -fasynchronous-unwind-tables -fstack-clash-protection -fPIC -std=c++98 -o CMakeFiles/nrniv_lib.dir/__/ivoc/symchoos.cpp.o -c /builddir/build/BUILD/nrn-7.8.1/src/ivoc/symchoos.cpp
make[2]: Leaving directory '/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu'
/builddir/build/BUILD/nrn-7.8.1/src/ivoc/symchoos.cpp: In member function 'virtual void SymChooser::reread()':
/builddir/build/BUILD/nrn-7.8.1/src/ivoc/symchoos.cpp:265:21: warning: unused variable 'fc' [-Wunused-variable]
  265 |     SymChooserImpl& fc = *impl_;
      |                     ^~
/builddir/build/BUILD/nrn-7.8.1/src/ivoc/symchoos.cpp: In member function 'void SymChooserImpl::accept_browser_index(int)':
/builddir/build/BUILD/nrn-7.8.1/src/ivoc/symchoos.cpp:627:13: warning: unused variable 'sym' [-Wunused-variable]
  627 |     Symbol* sym = dir->symbol(i);
      |             ^~~
make[2]: Entering directory '/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu'
[ 24%] Building CXX object src/nrniv/CMakeFiles/nrniv_lib.dir/__/ivoc/xdep.cpp.o
cd /builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/nrniv && /usr/bin/g++ -DHAVE_CONFIG_H -Dnrniv_lib_EXPORTS -DUSEBBS=1 -DUSEGNU=1 -DUSEMATRIX=1 -I/builddir/build/BUILD/nrn-7.8.1/src/ivoc -I/builddir/build/BUILD/nrn-7.8.1/src/nrniv -I/builddir/build/BUILD/nrn-7.8.1/src/nrnoc -I/builddir/build/BUILD/nrn-7.8.1/src/oc -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/nrncvode -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/nrnjava -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/nrnoc -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/nrnpython -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/oc -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/parallel -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/sundials -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/sundials/shared -I/builddir/build/BUILD/nrn-7.8.1/src -I/builddir/build/BUILD/nrn-7.8.1/src/gnu -I/builddir/build/BUILD/nrn-7.8.1/src/memacs -I/builddir/build/BUILD/nrn-7.8.1/src/mesch -I/builddir/build/BUILD/nrn-7.8.1/src/nrncvode -I/builddir/build/BUILD/nrn-7.8.1/src/nrnmpi -I/builddir/build/BUILD/nrn-7.8.1/src/nrnpython -I/builddir/build/BUILD/nrn-7.8.1/src/parallel -I/builddir/build/BUILD/nrn-7.8.1/src/sparse -I/builddir/build/BUILD/nrn-7.8.1/src/sparse13 -I/builddir/build/BUILD/nrn-7.8.1/src/sundials -I/builddir/build/BUILD/nrn-7.8.1/src/sundials/cvodes -I/builddir/build/BUILD/nrn-7.8.1/src/sundials/ida -I/builddir/build/BUILD/nrn-7.8.1/src/sundials/shared -I/usr/include/python3.9 -O2 -flto=auto -ffat-lto-objects -fexceptions -g -grecord-gcc-switches -pipe -Wall -Werror=format-security -Wp,-D_FORTIFY_SOURCE=2 -Wp,-D_GLIBCXX_ASSERTIONS -specs=/usr/lib/rpm/redhat/redhat-hardened-cc1 -fstack-protector-strong -specs=/usr/lib/rpm/redhat/redhat-annobin-cc1  -fasynchronous-unwind-tables -fstack-clash-protection -fPIC -std=c++98 -o CMakeFiles/nrniv_lib.dir/__/ivoc/xdep.cpp.o -c /builddir/build/BUILD/nrn-7.8.1/src/ivoc/xdep.cpp
make[2]: Leaving directory '/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu'
make[2]: Entering directory '/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu'
[ 24%] Building CXX object src/nrniv/CMakeFiles/nrniv_lib.dir/__/ivoc/field.cpp.o
cd /builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/nrniv && /usr/bin/g++ -DHAVE_CONFIG_H -Dnrniv_lib_EXPORTS -DUSEBBS=1 -DUSEGNU=1 -DUSEMATRIX=1 -I/builddir/build/BUILD/nrn-7.8.1/src/ivoc -I/builddir/build/BUILD/nrn-7.8.1/src/nrniv -I/builddir/build/BUILD/nrn-7.8.1/src/nrnoc -I/builddir/build/BUILD/nrn-7.8.1/src/oc -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/nrncvode -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/nrnjava -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/nrnoc -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/nrnpython -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/oc -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/parallel -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/sundials -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/sundials/shared -I/builddir/build/BUILD/nrn-7.8.1/src -I/builddir/build/BUILD/nrn-7.8.1/src/gnu -I/builddir/build/BUILD/nrn-7.8.1/src/memacs -I/builddir/build/BUILD/nrn-7.8.1/src/mesch -I/builddir/build/BUILD/nrn-7.8.1/src/nrncvode -I/builddir/build/BUILD/nrn-7.8.1/src/nrnmpi -I/builddir/build/BUILD/nrn-7.8.1/src/nrnpython -I/builddir/build/BUILD/nrn-7.8.1/src/parallel -I/builddir/build/BUILD/nrn-7.8.1/src/sparse -I/builddir/build/BUILD/nrn-7.8.1/src/sparse13 -I/builddir/build/BUILD/nrn-7.8.1/src/sundials -I/builddir/build/BUILD/nrn-7.8.1/src/sundials/cvodes -I/builddir/build/BUILD/nrn-7.8.1/src/sundials/ida -I/builddir/build/BUILD/nrn-7.8.1/src/sundials/shared -I/usr/include/python3.9 -O2 -flto=auto -ffat-lto-objects -fexceptions -g -grecord-gcc-switches -pipe -Wall -Werror=format-security -Wp,-D_FORTIFY_SOURCE=2 -Wp,-D_GLIBCXX_ASSERTIONS -specs=/usr/lib/rpm/redhat/redhat-hardened-cc1 -fstack-protector-strong -specs=/usr/lib/rpm/redhat/redhat-annobin-cc1  -fasynchronous-unwind-tables -fstack-clash-protection -fPIC -std=c++98 -o CMakeFiles/nrniv_lib.dir/__/ivoc/field.cpp.o -c /builddir/build/BUILD/nrn-7.8.1/src/ivoc/field.cpp
make[2]: Leaving directory '/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu'
make[2]: Entering directory '/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu'
[ 24%] Building CXX object src/nrniv/CMakeFiles/nrniv_lib.dir/__/ivoc/xyview.cpp.o
cd /builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/nrniv && /usr/bin/g++ -DHAVE_CONFIG_H -Dnrniv_lib_EXPORTS -DUSEBBS=1 -DUSEGNU=1 -DUSEMATRIX=1 -I/builddir/build/BUILD/nrn-7.8.1/src/ivoc -I/builddir/build/BUILD/nrn-7.8.1/src/nrniv -I/builddir/build/BUILD/nrn-7.8.1/src/nrnoc -I/builddir/build/BUILD/nrn-7.8.1/src/oc -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/nrncvode -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/nrnjava -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/nrnoc -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/nrnpython -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/oc -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/parallel -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/sundials -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/sundials/shared -I/builddir/build/BUILD/nrn-7.8.1/src -I/builddir/build/BUILD/nrn-7.8.1/src/gnu -I/builddir/build/BUILD/nrn-7.8.1/src/memacs -I/builddir/build/BUILD/nrn-7.8.1/src/mesch -I/builddir/build/BUILD/nrn-7.8.1/src/nrncvode -I/builddir/build/BUILD/nrn-7.8.1/src/nrnmpi -I/builddir/build/BUILD/nrn-7.8.1/src/nrnpython -I/builddir/build/BUILD/nrn-7.8.1/src/parallel -I/builddir/build/BUILD/nrn-7.8.1/src/sparse -I/builddir/build/BUILD/nrn-7.8.1/src/sparse13 -I/builddir/build/BUILD/nrn-7.8.1/src/sundials -I/builddir/build/BUILD/nrn-7.8.1/src/sundials/cvodes -I/builddir/build/BUILD/nrn-7.8.1/src/sundials/ida -I/builddir/build/BUILD/nrn-7.8.1/src/sundials/shared -I/usr/include/python3.9 -O2 -flto=auto -ffat-lto-objects -fexceptions -g -grecord-gcc-switches -pipe -Wall -Werror=format-security -Wp,-D_FORTIFY_SOURCE=2 -Wp,-D_GLIBCXX_ASSERTIONS -specs=/usr/lib/rpm/redhat/redhat-hardened-cc1 -fstack-protector-strong -specs=/usr/lib/rpm/redhat/redhat-annobin-cc1  -fasynchronous-unwind-tables -fstack-clash-protection -fPIC -std=c++98 -o CMakeFiles/nrniv_lib.dir/__/ivoc/xyview.cpp.o -c /builddir/build/BUILD/nrn-7.8.1/src/ivoc/xyview.cpp
make[2]: Leaving directory '/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu'
/builddir/build/BUILD/nrn-7.8.1/src/ivoc/xyview.cpp: In member function 'virtual void XYView::transform(ivTransformer&, const ivAllocation&, const ivAllocation&) const':
/builddir/build/BUILD/nrn-7.8.1/src/ivoc/xyview.cpp:478:19: warning: unused variable 'nx' [-Wunused-variable]
  478 |  const Allotment& nx = n.x_allotment();
      |                   ^~
/builddir/build/BUILD/nrn-7.8.1/src/ivoc/xyview.cpp:479:19: warning: unused variable 'ny' [-Wunused-variable]
  479 |  const Allotment& ny = n.y_allotment();
      |                   ^~
/builddir/build/BUILD/nrn-7.8.1/src/ivoc/xyview.cpp:480:10: warning: unused variable 'v' [-Wunused-variable]
  480 |  XYView* v = (XYView*)this;
      |          ^
/builddir/build/BUILD/nrn-7.8.1/src/ivoc/xyview.cpp: In member function 'virtual void View::transform(ivTransformer&, const ivAllocation&, const ivAllocation&) const':
/builddir/build/BUILD/nrn-7.8.1/src/ivoc/xyview.cpp:554:8: warning: unused variable 'sy' [-Wunused-variable]
  554 |  float sy = ay.span()/XYView::height();
      |        ^~
make[2]: Entering directory '/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu'
[ 25%] Building CXX object src/nrniv/CMakeFiles/nrniv_lib.dir/bbsdirect.cpp.o
cd /builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/nrniv && /usr/bin/g++ -DHAVE_CONFIG_H -Dnrniv_lib_EXPORTS -DCABLE=1 -DOOP=1 -DUSEBBS=1 -DUSECVODE=1 -DUSEMATRIX=1 -I/builddir/build/BUILD/nrn-7.8.1/src/ivoc -I/builddir/build/BUILD/nrn-7.8.1/src/nrniv -I/builddir/build/BUILD/nrn-7.8.1/src/nrnoc -I/builddir/build/BUILD/nrn-7.8.1/src/oc -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/nrncvode -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/nrnjava -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/nrnoc -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/nrnpython -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/oc -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/parallel -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/sundials -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/sundials/shared -I/builddir/build/BUILD/nrn-7.8.1/src -I/builddir/build/BUILD/nrn-7.8.1/src/gnu -I/builddir/build/BUILD/nrn-7.8.1/src/memacs -I/builddir/build/BUILD/nrn-7.8.1/src/mesch -I/builddir/build/BUILD/nrn-7.8.1/src/nrncvode -I/builddir/build/BUILD/nrn-7.8.1/src/nrnmpi -I/builddir/build/BUILD/nrn-7.8.1/src/nrnpython -I/builddir/build/BUILD/nrn-7.8.1/src/parallel -I/builddir/build/BUILD/nrn-7.8.1/src/sparse -I/builddir/build/BUILD/nrn-7.8.1/src/sparse13 -I/builddir/build/BUILD/nrn-7.8.1/src/sundials -I/builddir/build/BUILD/nrn-7.8.1/src/sundials/cvodes -I/builddir/build/BUILD/nrn-7.8.1/src/sundials/ida -I/builddir/build/BUILD/nrn-7.8.1/src/sundials/shared -I/usr/include/python3.9 -O2 -flto=auto -ffat-lto-objects -fexceptions -g -grecord-gcc-switches -pipe -Wall -Werror=format-security -Wp,-D_FORTIFY_SOURCE=2 -Wp,-D_GLIBCXX_ASSERTIONS -specs=/usr/lib/rpm/redhat/redhat-hardened-cc1 -fstack-protector-strong -specs=/usr/lib/rpm/redhat/redhat-annobin-cc1  -fasynchronous-unwind-tables -fstack-clash-protection -fPIC -std=c++98 -o CMakeFiles/nrniv_lib.dir/bbsdirect.cpp.o -c /builddir/build/BUILD/nrn-7.8.1/src/nrniv/bbsdirect.cpp
make[2]: Leaving directory '/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu'
make[2]: Entering directory '/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu'
[ 24%] Building CXX object src/nrniv/CMakeFiles/nrniv_lib.dir/bbs.cpp.o
cd /builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/nrniv && /usr/bin/g++ -DHAVE_CONFIG_H -Dnrniv_lib_EXPORTS -DCABLE=1 -DOOP=1 -DUSEBBS=1 -DUSECVODE=1 -DUSEMATRIX=1 -I/builddir/build/BUILD/nrn-7.8.1/src/ivoc -I/builddir/build/BUILD/nrn-7.8.1/src/nrniv -I/builddir/build/BUILD/nrn-7.8.1/src/nrnoc -I/builddir/build/BUILD/nrn-7.8.1/src/oc -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/nrncvode -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/nrnjava -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/nrnoc -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/nrnpython -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/oc -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/parallel -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/sundials -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/sundials/shared -I/builddir/build/BUILD/nrn-7.8.1/src -I/builddir/build/BUILD/nrn-7.8.1/src/gnu -I/builddir/build/BUILD/nrn-7.8.1/src/memacs -I/builddir/build/BUILD/nrn-7.8.1/src/mesch -I/builddir/build/BUILD/nrn-7.8.1/src/nrncvode -I/builddir/build/BUILD/nrn-7.8.1/src/nrnmpi -I/builddir/build/BUILD/nrn-7.8.1/src/nrnpython -I/builddir/build/BUILD/nrn-7.8.1/src/parallel -I/builddir/build/BUILD/nrn-7.8.1/src/sparse -I/builddir/build/BUILD/nrn-7.8.1/src/sparse13 -I/builddir/build/BUILD/nrn-7.8.1/src/sundials -I/builddir/build/BUILD/nrn-7.8.1/src/sundials/cvodes -I/builddir/build/BUILD/nrn-7.8.1/src/sundials/ida -I/builddir/build/BUILD/nrn-7.8.1/src/sundials/shared -I/usr/include/python3.9 -O2 -flto=auto -ffat-lto-objects -fexceptions -g -grecord-gcc-switches -pipe -Wall -Werror=format-security -Wp,-D_FORTIFY_SOURCE=2 -Wp,-D_GLIBCXX_ASSERTIONS -specs=/usr/lib/rpm/redhat/redhat-hardened-cc1 -fstack-protector-strong -specs=/usr/lib/rpm/redhat/redhat-annobin-cc1  -fasynchronous-unwind-tables -fstack-clash-protection -fPIC -std=c++98 -o CMakeFiles/nrniv_lib.dir/bbs.cpp.o -c /builddir/build/BUILD/nrn-7.8.1/src/nrniv/bbs.cpp
make[2]: Leaving directory '/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu'
In file included from /builddir/build/BUILD/nrn-7.8.1/src/nrniv/bbs.cpp:1:
/builddir/build/BUILD/nrn-7.8.1/src/nrniv/../parallel/bbs.cpp: In member function 'virtual void BBSImpl::execute(int)':
/builddir/build/BUILD/nrn-7.8.1/src/nrniv/../parallel/bbs.cpp:290:9: warning: unused variable 's' [-Wunused-variable]
  290 |   char* s;
      |         ^
/builddir/build/BUILD/nrn-7.8.1/src/nrniv/../parallel/bbs.cpp:292:7: warning: unused variable 'i' [-Wunused-variable]
  292 |   int i;
      |       ^
/builddir/build/BUILD/nrn-7.8.1/src/nrniv/../parallel/bbs.cpp: In member function 'virtual bool BBSImpl::working(int&, double&, int&)':
/builddir/build/BUILD/nrn-7.8.1/src/nrniv/../parallel/bbs.cpp:390:8: warning: unused variable 'wid' [-Wunused-variable]
  390 |    int wid = upkint();
      |        ^~~
/builddir/build/BUILD/nrn-7.8.1/src/nrniv/../parallel/bbs.cpp:404:7: warning: 't' may be used uninitialized in this function [-Wmaybe-uninitialized]
  404 | printf("working n_=%d: after %d try elapsed %g sec got result for %d id=%d x=%g\n",
      | ~~~~~~^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
  405 | n_, cnt, time()-t, working_id_, id, x);
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
/builddir/build/BUILD/nrn-7.8.1/src/nrniv/../parallel/bbs.cpp: In member function 'BBS::take(char const*)':
/builddir/build/BUILD/nrn-7.8.1/src/nrniv/../parallel/bbs.cpp:476:9: warning: 't' may be used uninitialized in this function [-Wmaybe-uninitialized]
  476 |   printf("end take |%s| elapsed %g from %g\n", key, time()-t, t);
      |   ~~~~~~^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
make[2]: Entering directory '/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu'
[ 25%] Building CXX object src/nrniv/CMakeFiles/nrniv_lib.dir/bbslocal.cpp.o
cd /builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/nrniv && /usr/bin/g++ -DHAVE_CONFIG_H -Dnrniv_lib_EXPORTS -DCABLE=1 -DOOP=1 -DUSEBBS=1 -DUSECVODE=1 -DUSEMATRIX=1 -I/builddir/build/BUILD/nrn-7.8.1/src/ivoc -I/builddir/build/BUILD/nrn-7.8.1/src/nrniv -I/builddir/build/BUILD/nrn-7.8.1/src/nrnoc -I/builddir/build/BUILD/nrn-7.8.1/src/oc -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/nrncvode -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/nrnjava -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/nrnoc -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/nrnpython -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/oc -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/parallel -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/sundials -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/sundials/shared -I/builddir/build/BUILD/nrn-7.8.1/src -I/builddir/build/BUILD/nrn-7.8.1/src/gnu -I/builddir/build/BUILD/nrn-7.8.1/src/memacs -I/builddir/build/BUILD/nrn-7.8.1/src/mesch -I/builddir/build/BUILD/nrn-7.8.1/src/nrncvode -I/builddir/build/BUILD/nrn-7.8.1/src/nrnmpi -I/builddir/build/BUILD/nrn-7.8.1/src/nrnpython -I/builddir/build/BUILD/nrn-7.8.1/src/parallel -I/builddir/build/BUILD/nrn-7.8.1/src/sparse -I/builddir/build/BUILD/nrn-7.8.1/src/sparse13 -I/builddir/build/BUILD/nrn-7.8.1/src/sundials -I/builddir/build/BUILD/nrn-7.8.1/src/sundials/cvodes -I/builddir/build/BUILD/nrn-7.8.1/src/sundials/ida -I/builddir/build/BUILD/nrn-7.8.1/src/sundials/shared -I/usr/include/python3.9 -O2 -flto=auto -ffat-lto-objects -fexceptions -g -grecord-gcc-switches -pipe -Wall -Werror=format-security -Wp,-D_FORTIFY_SOURCE=2 -Wp,-D_GLIBCXX_ASSERTIONS -specs=/usr/lib/rpm/redhat/redhat-hardened-cc1 -fstack-protector-strong -specs=/usr/lib/rpm/redhat/redhat-annobin-cc1  -fasynchronous-unwind-tables -fstack-clash-protection -fPIC -std=c++98 -o CMakeFiles/nrniv_lib.dir/bbslocal.cpp.o -c /builddir/build/BUILD/nrn-7.8.1/src/nrniv/bbslocal.cpp
make[2]: Leaving directory '/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu'
In file included from /builddir/build/BUILD/nrn-7.8.1/src/oc/hocdec.h:13,
                 from /builddir/build/BUILD/nrn-7.8.1/src/ivoc/oc2iv.h:7,
                 from /builddir/build/BUILD/nrn-7.8.1/src/nrniv/../parallel/bbslocal.cpp:4,
                 from /builddir/build/BUILD/nrn-7.8.1/src/nrniv/bbslocal.cpp:1:
/builddir/build/BUILD/nrn-7.8.1/src/nrniv/../parallel/bbslocal.cpp: In member function 'virtual char* BBSLocal::upkpickle(size_t*)':
/builddir/build/BUILD/nrn-7.8.1/src/nrniv/../parallel/bbslocal.cpp:89:12: warning: comparison of integer expressions of different signedness: 'size_t' {aka 'long unsigned int'} and 'int' [-Wsign-compare]
   89 |  assert(*n == len);
      |         ~~~^~~~~~
/builddir/build/BUILD/nrn-7.8.1/src/oc/hocassrt.h:19:28: note: in definition of macro 'assert'
   19 | # define assert(ex) {if (!(ex)){fprintf(stderr,"Assertion failed: file %s, line %d\n", __FILE__,__LINE__);hoc_execerror(#ex, (char *)0);}}
      |                            ^~
make[2]: Entering directory '/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu'
[ 25%] Building CXX object src/nrniv/CMakeFiles/nrniv_lib.dir/bbslsrv2.cpp.o
cd /builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/nrniv && /usr/bin/g++ -DHAVE_CONFIG_H -Dnrniv_lib_EXPORTS -DCABLE=1 -DOOP=1 -DUSEBBS=1 -DUSECVODE=1 -DUSEMATRIX=1 -I/builddir/build/BUILD/nrn-7.8.1/src/ivoc -I/builddir/build/BUILD/nrn-7.8.1/src/nrniv -I/builddir/build/BUILD/nrn-7.8.1/src/nrnoc -I/builddir/build/BUILD/nrn-7.8.1/src/oc -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/nrncvode -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/nrnjava -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/nrnoc -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/nrnpython -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/oc -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/parallel -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/sundials -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/sundials/shared -I/builddir/build/BUILD/nrn-7.8.1/src -I/builddir/build/BUILD/nrn-7.8.1/src/gnu -I/builddir/build/BUILD/nrn-7.8.1/src/memacs -I/builddir/build/BUILD/nrn-7.8.1/src/mesch -I/builddir/build/BUILD/nrn-7.8.1/src/nrncvode -I/builddir/build/BUILD/nrn-7.8.1/src/nrnmpi -I/builddir/build/BUILD/nrn-7.8.1/src/nrnpython -I/builddir/build/BUILD/nrn-7.8.1/src/parallel -I/builddir/build/BUILD/nrn-7.8.1/src/sparse -I/builddir/build/BUILD/nrn-7.8.1/src/sparse13 -I/builddir/build/BUILD/nrn-7.8.1/src/sundials -I/builddir/build/BUILD/nrn-7.8.1/src/sundials/cvodes -I/builddir/build/BUILD/nrn-7.8.1/src/sundials/ida -I/builddir/build/BUILD/nrn-7.8.1/src/sundials/shared -I/usr/include/python3.9 -O2 -flto=auto -ffat-lto-objects -fexceptions -g -grecord-gcc-switches -pipe -Wall -Werror=format-security -Wp,-D_FORTIFY_SOURCE=2 -Wp,-D_GLIBCXX_ASSERTIONS -specs=/usr/lib/rpm/redhat/redhat-hardened-cc1 -fstack-protector-strong -specs=/usr/lib/rpm/redhat/redhat-annobin-cc1  -fasynchronous-unwind-tables -fstack-clash-protection -fPIC -std=c++98 -o CMakeFiles/nrniv_lib.dir/bbslsrv2.cpp.o -c /builddir/build/BUILD/nrn-7.8.1/src/nrniv/bbslsrv2.cpp
make[2]: Leaving directory '/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu'
make[2]: Entering directory '/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu'
[ 25%] Building CXX object src/nrniv/CMakeFiles/nrniv_lib.dir/bbsrcli.cpp.o
cd /builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/nrniv && /usr/bin/g++ -DHAVE_CONFIG_H -Dnrniv_lib_EXPORTS -DCABLE=1 -DOOP=1 -DUSEBBS=1 -DUSECVODE=1 -DUSEMATRIX=1 -I/builddir/build/BUILD/nrn-7.8.1/src/ivoc -I/builddir/build/BUILD/nrn-7.8.1/src/nrniv -I/builddir/build/BUILD/nrn-7.8.1/src/nrnoc -I/builddir/build/BUILD/nrn-7.8.1/src/oc -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/nrncvode -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/nrnjava -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/nrnoc -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/nrnpython -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/oc -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/parallel -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/sundials -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/sundials/shared -I/builddir/build/BUILD/nrn-7.8.1/src -I/builddir/build/BUILD/nrn-7.8.1/src/gnu -I/builddir/build/BUILD/nrn-7.8.1/src/memacs -I/builddir/build/BUILD/nrn-7.8.1/src/mesch -I/builddir/build/BUILD/nrn-7.8.1/src/nrncvode -I/builddir/build/BUILD/nrn-7.8.1/src/nrnmpi -I/builddir/build/BUILD/nrn-7.8.1/src/nrnpython -I/builddir/build/BUILD/nrn-7.8.1/src/parallel -I/builddir/build/BUILD/nrn-7.8.1/src/sparse -I/builddir/build/BUILD/nrn-7.8.1/src/sparse13 -I/builddir/build/BUILD/nrn-7.8.1/src/sundials -I/builddir/build/BUILD/nrn-7.8.1/src/sundials/cvodes -I/builddir/build/BUILD/nrn-7.8.1/src/sundials/ida -I/builddir/build/BUILD/nrn-7.8.1/src/sundials/shared -I/usr/include/python3.9 -O2 -flto=auto -ffat-lto-objects -fexceptions -g -grecord-gcc-switches -pipe -Wall -Werror=format-security -Wp,-D_FORTIFY_SOURCE=2 -Wp,-D_GLIBCXX_ASSERTIONS -specs=/usr/lib/rpm/redhat/redhat-hardened-cc1 -fstack-protector-strong -specs=/usr/lib/rpm/redhat/redhat-annobin-cc1  -fasynchronous-unwind-tables -fstack-clash-protection -fPIC -std=c++98 -o CMakeFiles/nrniv_lib.dir/bbsrcli.cpp.o -c /builddir/build/BUILD/nrn-7.8.1/src/nrniv/bbsrcli.cpp
make[2]: Leaving directory '/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu'
make[2]: Entering directory '/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu'
[ 23%] Building CXX object src/nrniv/CMakeFiles/nrniv_lib.dir/__/ivoc/xmenu.cpp.o
cd /builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/nrniv && /usr/bin/g++ -DHAVE_CONFIG_H -Dnrniv_lib_EXPORTS -DUSEBBS=1 -DUSEGNU=1 -DUSEMATRIX=1 -I/builddir/build/BUILD/nrn-7.8.1/src/ivoc -I/builddir/build/BUILD/nrn-7.8.1/src/nrniv -I/builddir/build/BUILD/nrn-7.8.1/src/nrnoc -I/builddir/build/BUILD/nrn-7.8.1/src/oc -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/nrncvode -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/nrnjava -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/nrnoc -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/nrnpython -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/oc -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/parallel -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/sundials -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/sundials/shared -I/builddir/build/BUILD/nrn-7.8.1/src -I/builddir/build/BUILD/nrn-7.8.1/src/gnu -I/builddir/build/BUILD/nrn-7.8.1/src/memacs -I/builddir/build/BUILD/nrn-7.8.1/src/mesch -I/builddir/build/BUILD/nrn-7.8.1/src/nrncvode -I/builddir/build/BUILD/nrn-7.8.1/src/nrnmpi -I/builddir/build/BUILD/nrn-7.8.1/src/nrnpython -I/builddir/build/BUILD/nrn-7.8.1/src/parallel -I/builddir/build/BUILD/nrn-7.8.1/src/sparse -I/builddir/build/BUILD/nrn-7.8.1/src/sparse13 -I/builddir/build/BUILD/nrn-7.8.1/src/sundials -I/builddir/build/BUILD/nrn-7.8.1/src/sundials/cvodes -I/builddir/build/BUILD/nrn-7.8.1/src/sundials/ida -I/builddir/build/BUILD/nrn-7.8.1/src/sundials/shared -I/usr/include/python3.9 -O2 -flto=auto -ffat-lto-objects -fexceptions -g -grecord-gcc-switches -pipe -Wall -Werror=format-security -Wp,-D_FORTIFY_SOURCE=2 -Wp,-D_GLIBCXX_ASSERTIONS -specs=/usr/lib/rpm/redhat/redhat-hardened-cc1 -fstack-protector-strong -specs=/usr/lib/rpm/redhat/redhat-annobin-cc1  -fasynchronous-unwind-tables -fstack-clash-protection -fPIC -std=c++98 -o CMakeFiles/nrniv_lib.dir/__/ivoc/xmenu.cpp.o -c /builddir/build/BUILD/nrn-7.8.1/src/ivoc/xmenu.cpp
make[2]: Leaving directory '/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu'
/builddir/build/BUILD/nrn-7.8.1/src/ivoc/xmenu.cpp: In function 'void set_format()':
/builddir/build/BUILD/nrn-7.8.1/src/ivoc/xmenu.cpp:1835:15: warning: unused variable 'len' [-Wunused-variable]
 1835 |  static Coord len;
      |               ^~~
/builddir/build/BUILD/nrn-7.8.1/src/ivoc/xmenu.cpp: In member function 'virtual void HocEditorForItem::val_inc(const ivEvent&)':
/builddir/build/BUILD/nrn-7.8.1/src/ivoc/xmenu.cpp:2213:8: warning: comparison of integer expressions of different signedness: 'int' and 'size_t' {aka 'long unsigned int'} [-Wsign-compare]
 2213 |  if (i == strlen(buf)) {
      |      ~~^~~~~~~~~~~~~~
/builddir/build/BUILD/nrn-7.8.1/src/ivoc/xmenu.cpp: In constructor 'StepperMenu::StepperMenu()':
/builddir/build/BUILD/nrn-7.8.1/src/ivoc/xmenu.cpp:2394:13: warning: unused variable 'k' [-Wunused-variable]
 2394 |  WidgetKit& k = *WidgetKit::instance();
      |             ^
/builddir/build/BUILD/nrn-7.8.1/src/ivoc/xmenu.cpp: In member function 'void HocStateButton::button_action()':
/builddir/build/BUILD/nrn-7.8.1/src/ivoc/xmenu.cpp:2855:19: warning: unused variable 't' [-Wunused-variable]
 2855 |    TelltaleState* t = b_->state();
      |                   ^
/builddir/build/BUILD/nrn-7.8.1/src/ivoc/xmenu.cpp:2861:19: warning: unused variable 't' [-Wunused-variable]
 2861 |    TelltaleState* t = b_->state();
      |                   ^
/builddir/build/BUILD/nrn-7.8.1/src/ivoc/xmenu.cpp: In member function 'void HocStateMenuItem::button_action()':
/builddir/build/BUILD/nrn-7.8.1/src/ivoc/xmenu.cpp:3006:19: warning: unused variable 't' [-Wunused-variable]
 3006 |    TelltaleState* t = b_->state();
      |                   ^
/builddir/build/BUILD/nrn-7.8.1/src/ivoc/xmenu.cpp:3012:19: warning: unused variable 't' [-Wunused-variable]
 3012 |    TelltaleState* t = b_->state();
      |                   ^
/builddir/build/BUILD/nrn-7.8.1/src/ivoc/xmenu.cpp: At global scope:
/builddir/build/BUILD/nrn-7.8.1/src/ivoc/xmenu.cpp:1835:15: warning: 'len' defined but not used [-Wunused-variable]
 1835 |  static Coord len;
      |               ^~~
/builddir/build/BUILD/nrn-7.8.1/src/ivoc/xmenu.cpp:887:13: warning: 'void saveMenuFile()' defined but not used [-Wunused-function]
  887 | static void saveMenuFile() {
      |             ^~~~~~~~~~~~
make[2]: Entering directory '/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu'
[ 26%] Building C object src/nrniv/CMakeFiles/nrniv_lib.dir/bgpmeminfo.c.o
cd /builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/nrniv && /usr/bin/gcc -DHAVE_CONFIG_H -Dnrniv_lib_EXPORTS -DCABLE=1 -DOOP=1 -DUSEBBS=1 -DUSECVODE=1 -DUSEMATRIX=1 -I/builddir/build/BUILD/nrn-7.8.1/src/ivoc -I/builddir/build/BUILD/nrn-7.8.1/src/nrniv -I/builddir/build/BUILD/nrn-7.8.1/src/nrnoc -I/builddir/build/BUILD/nrn-7.8.1/src/oc -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/nrncvode -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/nrnjava -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/nrnoc -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/nrnpython -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/oc -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/parallel -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/sundials -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/sundials/shared -I/builddir/build/BUILD/nrn-7.8.1/src -I/builddir/build/BUILD/nrn-7.8.1/src/gnu -I/builddir/build/BUILD/nrn-7.8.1/src/memacs -I/builddir/build/BUILD/nrn-7.8.1/src/mesch -I/builddir/build/BUILD/nrn-7.8.1/src/nrncvode -I/builddir/build/BUILD/nrn-7.8.1/src/nrnmpi -I/builddir/build/BUILD/nrn-7.8.1/src/nrnpython -I/builddir/build/BUILD/nrn-7.8.1/src/parallel -I/builddir/build/BUILD/nrn-7.8.1/src/sparse -I/builddir/build/BUILD/nrn-7.8.1/src/sparse13 -I/builddir/build/BUILD/nrn-7.8.1/src/sundials -I/builddir/build/BUILD/nrn-7.8.1/src/sundials/cvodes -I/builddir/build/BUILD/nrn-7.8.1/src/sundials/ida -I/builddir/build/BUILD/nrn-7.8.1/src/sundials/shared -I/usr/include/python3.9 -O2 -flto=auto -ffat-lto-objects -fexceptions -g -grecord-gcc-switches -pipe -Wall -Werror=format-security -Wp,-D_FORTIFY_SOURCE=2 -Wp,-D_GLIBCXX_ASSERTIONS -specs=/usr/lib/rpm/redhat/redhat-hardened-cc1 -fstack-protector-strong -specs=/usr/lib/rpm/redhat/redhat-annobin-cc1  -fasynchronous-unwind-tables -fstack-clash-protection -fPIC -o CMakeFiles/nrniv_lib.dir/bgpmeminfo.c.o -c /builddir/build/BUILD/nrn-7.8.1/src/nrniv/bgpmeminfo.c
make[2]: Leaving directory '/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu'
make[2]: Entering directory '/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu'
[ 25%] Building CXX object src/nrniv/CMakeFiles/nrniv_lib.dir/bbslsrv.cpp.o
cd /builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/nrniv && /usr/bin/g++ -DHAVE_CONFIG_H -Dnrniv_lib_EXPORTS -DCABLE=1 -DOOP=1 -DUSEBBS=1 -DUSECVODE=1 -DUSEMATRIX=1 -I/builddir/build/BUILD/nrn-7.8.1/src/ivoc -I/builddir/build/BUILD/nrn-7.8.1/src/nrniv -I/builddir/build/BUILD/nrn-7.8.1/src/nrnoc -I/builddir/build/BUILD/nrn-7.8.1/src/oc -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/nrncvode -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/nrnjava -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/nrnoc -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/nrnpython -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/oc -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/parallel -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/sundials -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/sundials/shared -I/builddir/build/BUILD/nrn-7.8.1/src -I/builddir/build/BUILD/nrn-7.8.1/src/gnu -I/builddir/build/BUILD/nrn-7.8.1/src/memacs -I/builddir/build/BUILD/nrn-7.8.1/src/mesch -I/builddir/build/BUILD/nrn-7.8.1/src/nrncvode -I/builddir/build/BUILD/nrn-7.8.1/src/nrnmpi -I/builddir/build/BUILD/nrn-7.8.1/src/nrnpython -I/builddir/build/BUILD/nrn-7.8.1/src/parallel -I/builddir/build/BUILD/nrn-7.8.1/src/sparse -I/builddir/build/BUILD/nrn-7.8.1/src/sparse13 -I/builddir/build/BUILD/nrn-7.8.1/src/sundials -I/builddir/build/BUILD/nrn-7.8.1/src/sundials/cvodes -I/builddir/build/BUILD/nrn-7.8.1/src/sundials/ida -I/builddir/build/BUILD/nrn-7.8.1/src/sundials/shared -I/usr/include/python3.9 -O2 -flto=auto -ffat-lto-objects -fexceptions -g -grecord-gcc-switches -pipe -Wall -Werror=format-security -Wp,-D_FORTIFY_SOURCE=2 -Wp,-D_GLIBCXX_ASSERTIONS -specs=/usr/lib/rpm/redhat/redhat-hardened-cc1 -fstack-protector-strong -specs=/usr/lib/rpm/redhat/redhat-annobin-cc1  -fasynchronous-unwind-tables -fstack-clash-protection -fPIC -std=c++98 -o CMakeFiles/nrniv_lib.dir/bbslsrv.cpp.o -c /builddir/build/BUILD/nrn-7.8.1/src/nrniv/bbslsrv.cpp
make[2]: Leaving directory '/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu'
In file included from /builddir/build/BUILD/nrn-7.8.1/src/nrniv/bbslsrv.cpp:1:
/builddir/build/BUILD/nrn-7.8.1/src/nrniv/../parallel/bbslsrv.cpp: In member function 'void BBSLocalServer::post(const char*, MessageValue*)':
/builddir/build/BUILD/nrn-7.8.1/src/nrniv/../parallel/bbslsrv.cpp:320:24: warning: variable 'm' set but not used [-Wunused-but-set-variable]
  320 |  MessageList::iterator m = messages_->insert(
      |                        ^
make[2]: Entering directory '/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu'
[ 26%] Building CXX object src/nrniv/CMakeFiles/nrniv_lib.dir/bbssrv.cpp.o
cd /builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/nrniv && /usr/bin/g++ -DHAVE_CONFIG_H -Dnrniv_lib_EXPORTS -DCABLE=1 -DOOP=1 -DUSEBBS=1 -DUSECVODE=1 -DUSEMATRIX=1 -I/builddir/build/BUILD/nrn-7.8.1/src/ivoc -I/builddir/build/BUILD/nrn-7.8.1/src/nrniv -I/builddir/build/BUILD/nrn-7.8.1/src/nrnoc -I/builddir/build/BUILD/nrn-7.8.1/src/oc -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/nrncvode -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/nrnjava -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/nrnoc -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/nrnpython -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/oc -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/parallel -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/sundials -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/sundials/shared -I/builddir/build/BUILD/nrn-7.8.1/src -I/builddir/build/BUILD/nrn-7.8.1/src/gnu -I/builddir/build/BUILD/nrn-7.8.1/src/memacs -I/builddir/build/BUILD/nrn-7.8.1/src/mesch -I/builddir/build/BUILD/nrn-7.8.1/src/nrncvode -I/builddir/build/BUILD/nrn-7.8.1/src/nrnmpi -I/builddir/build/BUILD/nrn-7.8.1/src/nrnpython -I/builddir/build/BUILD/nrn-7.8.1/src/parallel -I/builddir/build/BUILD/nrn-7.8.1/src/sparse -I/builddir/build/BUILD/nrn-7.8.1/src/sparse13 -I/builddir/build/BUILD/nrn-7.8.1/src/sundials -I/builddir/build/BUILD/nrn-7.8.1/src/sundials/cvodes -I/builddir/build/BUILD/nrn-7.8.1/src/sundials/ida -I/builddir/build/BUILD/nrn-7.8.1/src/sundials/shared -I/usr/include/python3.9 -O2 -flto=auto -ffat-lto-objects -fexceptions -g -grecord-gcc-switches -pipe -Wall -Werror=format-security -Wp,-D_FORTIFY_SOURCE=2 -Wp,-D_GLIBCXX_ASSERTIONS -specs=/usr/lib/rpm/redhat/redhat-hardened-cc1 -fstack-protector-strong -specs=/usr/lib/rpm/redhat/redhat-annobin-cc1  -fasynchronous-unwind-tables -fstack-clash-protection -fPIC -std=c++98 -o CMakeFiles/nrniv_lib.dir/bbssrv.cpp.o -c /builddir/build/BUILD/nrn-7.8.1/src/nrniv/bbssrv.cpp
make[2]: Leaving directory '/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu'
make[2]: Entering directory '/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu'
[ 26%] Building CXX object src/nrniv/CMakeFiles/nrniv_lib.dir/classreg.cpp.o
cd /builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/nrniv && /usr/bin/g++ -DHAVE_CONFIG_H -Dnrniv_lib_EXPORTS -DCABLE=1 -DOOP=1 -DUSEBBS=1 -DUSECVODE=1 -DUSEMATRIX=1 -I/builddir/build/BUILD/nrn-7.8.1/src/ivoc -I/builddir/build/BUILD/nrn-7.8.1/src/nrniv -I/builddir/build/BUILD/nrn-7.8.1/src/nrnoc -I/builddir/build/BUILD/nrn-7.8.1/src/oc -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/nrncvode -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/nrnjava -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/nrnoc -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/nrnpython -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/oc -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/parallel -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/sundials -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/sundials/shared -I/builddir/build/BUILD/nrn-7.8.1/src -I/builddir/build/BUILD/nrn-7.8.1/src/gnu -I/builddir/build/BUILD/nrn-7.8.1/src/memacs -I/builddir/build/BUILD/nrn-7.8.1/src/mesch -I/builddir/build/BUILD/nrn-7.8.1/src/nrncvode -I/builddir/build/BUILD/nrn-7.8.1/src/nrnmpi -I/builddir/build/BUILD/nrn-7.8.1/src/nrnpython -I/builddir/build/BUILD/nrn-7.8.1/src/parallel -I/builddir/build/BUILD/nrn-7.8.1/src/sparse -I/builddir/build/BUILD/nrn-7.8.1/src/sparse13 -I/builddir/build/BUILD/nrn-7.8.1/src/sundials -I/builddir/build/BUILD/nrn-7.8.1/src/sundials/cvodes -I/builddir/build/BUILD/nrn-7.8.1/src/sundials/ida -I/builddir/build/BUILD/nrn-7.8.1/src/sundials/shared -I/usr/include/python3.9 -O2 -flto=auto -ffat-lto-objects -fexceptions -g -grecord-gcc-switches -pipe -Wall -Werror=format-security -Wp,-D_FORTIFY_SOURCE=2 -Wp,-D_GLIBCXX_ASSERTIONS -specs=/usr/lib/rpm/redhat/redhat-hardened-cc1 -fstack-protector-strong -specs=/usr/lib/rpm/redhat/redhat-annobin-cc1  -fasynchronous-unwind-tables -fstack-clash-protection -fPIC -std=c++98 -o CMakeFiles/nrniv_lib.dir/classreg.cpp.o -c /builddir/build/BUILD/nrn-7.8.1/src/nrniv/classreg.cpp
make[2]: Leaving directory '/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu'
make[2]: Entering directory '/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu'
[ 26%] Building CXX object src/nrniv/CMakeFiles/nrniv_lib.dir/cachevec.cpp.o
cd /builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/nrniv && /usr/bin/g++ -DHAVE_CONFIG_H -Dnrniv_lib_EXPORTS -DCABLE=1 -DOOP=1 -DUSEBBS=1 -DUSECVODE=1 -DUSEMATRIX=1 -I/builddir/build/BUILD/nrn-7.8.1/src/ivoc -I/builddir/build/BUILD/nrn-7.8.1/src/nrniv -I/builddir/build/BUILD/nrn-7.8.1/src/nrnoc -I/builddir/build/BUILD/nrn-7.8.1/src/oc -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/nrncvode -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/nrnjava -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/nrnoc -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/nrnpython -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/oc -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/parallel -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/sundials -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/sundials/shared -I/builddir/build/BUILD/nrn-7.8.1/src -I/builddir/build/BUILD/nrn-7.8.1/src/gnu -I/builddir/build/BUILD/nrn-7.8.1/src/memacs -I/builddir/build/BUILD/nrn-7.8.1/src/mesch -I/builddir/build/BUILD/nrn-7.8.1/src/nrncvode -I/builddir/build/BUILD/nrn-7.8.1/src/nrnmpi -I/builddir/build/BUILD/nrn-7.8.1/src/nrnpython -I/builddir/build/BUILD/nrn-7.8.1/src/parallel -I/builddir/build/BUILD/nrn-7.8.1/src/sparse -I/builddir/build/BUILD/nrn-7.8.1/src/sparse13 -I/builddir/build/BUILD/nrn-7.8.1/src/sundials -I/builddir/build/BUILD/nrn-7.8.1/src/sundials/cvodes -I/builddir/build/BUILD/nrn-7.8.1/src/sundials/ida -I/builddir/build/BUILD/nrn-7.8.1/src/sundials/shared -I/usr/include/python3.9 -O2 -flto=auto -ffat-lto-objects -fexceptions -g -grecord-gcc-switches -pipe -Wall -Werror=format-security -Wp,-D_FORTIFY_SOURCE=2 -Wp,-D_GLIBCXX_ASSERTIONS -specs=/usr/lib/rpm/redhat/redhat-hardened-cc1 -fstack-protector-strong -specs=/usr/lib/rpm/redhat/redhat-annobin-cc1  -fasynchronous-unwind-tables -fstack-clash-protection -fPIC -std=c++98 -o CMakeFiles/nrniv_lib.dir/cachevec.cpp.o -c /builddir/build/BUILD/nrn-7.8.1/src/nrniv/cachevec.cpp
make[2]: Leaving directory '/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu'
make[2]: Entering directory '/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu'
[ 27%] Building CXX object src/nrniv/CMakeFiles/nrniv_lib.dir/cvodestb.cpp.o
cd /builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/nrniv && /usr/bin/g++ -DHAVE_CONFIG_H -Dnrniv_lib_EXPORTS -DCABLE=1 -DOOP=1 -DUSEBBS=1 -DUSECVODE=1 -DUSEMATRIX=1 -I/builddir/build/BUILD/nrn-7.8.1/src/ivoc -I/builddir/build/BUILD/nrn-7.8.1/src/nrniv -I/builddir/build/BUILD/nrn-7.8.1/src/nrnoc -I/builddir/build/BUILD/nrn-7.8.1/src/oc -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/nrncvode -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/nrnjava -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/nrnoc -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/nrnpython -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/oc -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/parallel -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/sundials -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/sundials/shared -I/builddir/build/BUILD/nrn-7.8.1/src -I/builddir/build/BUILD/nrn-7.8.1/src/gnu -I/builddir/build/BUILD/nrn-7.8.1/src/memacs -I/builddir/build/BUILD/nrn-7.8.1/src/mesch -I/builddir/build/BUILD/nrn-7.8.1/src/nrncvode -I/builddir/build/BUILD/nrn-7.8.1/src/nrnmpi -I/builddir/build/BUILD/nrn-7.8.1/src/nrnpython -I/builddir/build/BUILD/nrn-7.8.1/src/parallel -I/builddir/build/BUILD/nrn-7.8.1/src/sparse -I/builddir/build/BUILD/nrn-7.8.1/src/sparse13 -I/builddir/build/BUILD/nrn-7.8.1/src/sundials -I/builddir/build/BUILD/nrn-7.8.1/src/sundials/cvodes -I/builddir/build/BUILD/nrn-7.8.1/src/sundials/ida -I/builddir/build/BUILD/nrn-7.8.1/src/sundials/shared -I/usr/include/python3.9 -O2 -flto=auto -ffat-lto-objects -fexceptions -g -grecord-gcc-switches -pipe -Wall -Werror=format-security -Wp,-D_FORTIFY_SOURCE=2 -Wp,-D_GLIBCXX_ASSERTIONS -specs=/usr/lib/rpm/redhat/redhat-hardened-cc1 -fstack-protector-strong -specs=/usr/lib/rpm/redhat/redhat-annobin-cc1  -fasynchronous-unwind-tables -fstack-clash-protection -fPIC -std=c++98 -o CMakeFiles/nrniv_lib.dir/cvodestb.cpp.o -c /builddir/build/BUILD/nrn-7.8.1/src/nrniv/cvodestb.cpp
make[2]: Leaving directory '/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu'
In file included from /builddir/build/BUILD/nrn-7.8.1/src/nrniv/cvodestb.cpp:5:
/builddir/build/BUILD/nrn-7.8.1/src/nrniv/../nrncvode/cvodestb.cpp: In function 'void deliver_net_events(NrnThread*)':
/builddir/build/BUILD/nrn-7.8.1/src/nrniv/../nrncvode/cvodestb.cpp:43:6: warning: unused variable 'i' [-Wunused-variable]
   43 |  int i;
      |      ^
/builddir/build/BUILD/nrn-7.8.1/src/nrniv/../nrncvode/cvodestb.cpp: At global scope:
/builddir/build/BUILD/nrn-7.8.1/src/nrniv/../nrncvode/cvodestb.cpp:38:13: warning: 'void check_thresh(NrnThread*)' declared 'static' but never defined [-Wunused-function]
   38 | static void check_thresh(NrnThread*);
      |             ^~~~~~~~~~~~
make[2]: Entering directory '/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu'
[ 27%] Building CXX object src/nrniv/CMakeFiles/nrniv_lib.dir/cvtrset.cpp.o
cd /builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/nrniv && /usr/bin/g++ -DHAVE_CONFIG_H -Dnrniv_lib_EXPORTS -DCABLE=1 -DOOP=1 -DUSEBBS=1 -DUSECVODE=1 -DUSEMATRIX=1 -I/builddir/build/BUILD/nrn-7.8.1/src/ivoc -I/builddir/build/BUILD/nrn-7.8.1/src/nrniv -I/builddir/build/BUILD/nrn-7.8.1/src/nrnoc -I/builddir/build/BUILD/nrn-7.8.1/src/oc -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/nrncvode -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/nrnjava -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/nrnoc -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/nrnpython -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/oc -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/parallel -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/sundials -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/sundials/shared -I/builddir/build/BUILD/nrn-7.8.1/src -I/builddir/build/BUILD/nrn-7.8.1/src/gnu -I/builddir/build/BUILD/nrn-7.8.1/src/memacs -I/builddir/build/BUILD/nrn-7.8.1/src/mesch -I/builddir/build/BUILD/nrn-7.8.1/src/nrncvode -I/builddir/build/BUILD/nrn-7.8.1/src/nrnmpi -I/builddir/build/BUILD/nrn-7.8.1/src/nrnpython -I/builddir/build/BUILD/nrn-7.8.1/src/parallel -I/builddir/build/BUILD/nrn-7.8.1/src/sparse -I/builddir/build/BUILD/nrn-7.8.1/src/sparse13 -I/builddir/build/BUILD/nrn-7.8.1/src/sundials -I/builddir/build/BUILD/nrn-7.8.1/src/sundials/cvodes -I/builddir/build/BUILD/nrn-7.8.1/src/sundials/ida -I/builddir/build/BUILD/nrn-7.8.1/src/sundials/shared -I/usr/include/python3.9 -O2 -flto=auto -ffat-lto-objects -fexceptions -g -grecord-gcc-switches -pipe -Wall -Werror=format-security -Wp,-D_FORTIFY_SOURCE=2 -Wp,-D_GLIBCXX_ASSERTIONS -specs=/usr/lib/rpm/redhat/redhat-hardened-cc1 -fstack-protector-strong -specs=/usr/lib/rpm/redhat/redhat-annobin-cc1  -fasynchronous-unwind-tables -fstack-clash-protection -fPIC -std=c++98 -o CMakeFiles/nrniv_lib.dir/cvtrset.cpp.o -c /builddir/build/BUILD/nrn-7.8.1/src/nrniv/cvtrset.cpp
make[2]: Leaving directory '/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu'
make[2]: Entering directory '/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu'
[ 26%] Building CXX object src/nrniv/CMakeFiles/nrniv_lib.dir/cvodeobj.cpp.o
cd /builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/nrniv && /usr/bin/g++ -DHAVE_CONFIG_H -Dnrniv_lib_EXPORTS -DCABLE=1 -DOOP=1 -DUSEBBS=1 -DUSECVODE=1 -DUSEMATRIX=1 -I/builddir/build/BUILD/nrn-7.8.1/src/ivoc -I/builddir/build/BUILD/nrn-7.8.1/src/nrniv -I/builddir/build/BUILD/nrn-7.8.1/src/nrnoc -I/builddir/build/BUILD/nrn-7.8.1/src/oc -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/nrncvode -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/nrnjava -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/nrnoc -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/nrnpython -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/oc -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/parallel -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/sundials -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/sundials/shared -I/builddir/build/BUILD/nrn-7.8.1/src -I/builddir/build/BUILD/nrn-7.8.1/src/gnu -I/builddir/build/BUILD/nrn-7.8.1/src/memacs -I/builddir/build/BUILD/nrn-7.8.1/src/mesch -I/builddir/build/BUILD/nrn-7.8.1/src/nrncvode -I/builddir/build/BUILD/nrn-7.8.1/src/nrnmpi -I/builddir/build/BUILD/nrn-7.8.1/src/nrnpython -I/builddir/build/BUILD/nrn-7.8.1/src/parallel -I/builddir/build/BUILD/nrn-7.8.1/src/sparse -I/builddir/build/BUILD/nrn-7.8.1/src/sparse13 -I/builddir/build/BUILD/nrn-7.8.1/src/sundials -I/builddir/build/BUILD/nrn-7.8.1/src/sundials/cvodes -I/builddir/build/BUILD/nrn-7.8.1/src/sundials/ida -I/builddir/build/BUILD/nrn-7.8.1/src/sundials/shared -I/usr/include/python3.9 -O2 -flto=auto -ffat-lto-objects -fexceptions -g -grecord-gcc-switches -pipe -Wall -Werror=format-security -Wp,-D_FORTIFY_SOURCE=2 -Wp,-D_GLIBCXX_ASSERTIONS -specs=/usr/lib/rpm/redhat/redhat-hardened-cc1 -fstack-protector-strong -specs=/usr/lib/rpm/redhat/redhat-annobin-cc1  -fasynchronous-unwind-tables -fstack-clash-protection -fPIC -std=c++98 -o CMakeFiles/nrniv_lib.dir/cvodeobj.cpp.o -c /builddir/build/BUILD/nrn-7.8.1/src/nrniv/cvodeobj.cpp
make[2]: Leaving directory '/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu'
In file included from /builddir/build/BUILD/nrn-7.8.1/src/nrniv/cvodeobj.cpp:5:
/builddir/build/BUILD/nrn-7.8.1/src/nrniv/../nrncvode/cvodeobj.cpp: In function 'double use_mxb(void*)':
/builddir/build/BUILD/nrn-7.8.1/src/nrniv/../nrncvode/cvodeobj.cpp:345:12: warning: unused variable 'd' [-Wunused-variable]
  345 |  NetCvode* d = (NetCvode*)v;
      |            ^
/builddir/build/BUILD/nrn-7.8.1/src/nrniv/../nrncvode/cvodeobj.cpp: In function 'double cache_efficient(void*)':
/builddir/build/BUILD/nrn-7.8.1/src/nrniv/../nrncvode/cvodeobj.cpp:358:12: warning: unused variable 'd' [-Wunused-variable]
  358 |  NetCvode* d = (NetCvode*)v;
      |            ^
/builddir/build/BUILD/nrn-7.8.1/src/nrniv/../nrncvode/cvodeobj.cpp: In member function 'void Cvode::activate_maxstate(bool)':
/builddir/build/BUILD/nrn-7.8.1/src/nrniv/../nrncvode/cvodeobj.cpp:921:7: warning: unused variable 'i' [-Wunused-variable]
  921 |   int i;
      |       ^
/builddir/build/BUILD/nrn-7.8.1/src/nrniv/../nrncvode/cvodeobj.cpp: In member function 'int Cvode::cvode_init(double)':
/builddir/build/BUILD/nrn-7.8.1/src/nrniv/../nrncvode/cvodeobj.cpp:1055:6: warning: unused variable 'iter' [-Wunused-variable]
 1055 |  int iter;
      |      ^~~~
/builddir/build/BUILD/nrn-7.8.1/src/nrniv/../nrncvode/cvodeobj.cpp: In member function 'int Cvode::daspk_advance_tn()':
/builddir/build/BUILD/nrn-7.8.1/src/nrniv/../nrncvode/cvodeobj.cpp:1334:6: warning: unused variable 'flag' [-Wunused-variable]
 1334 |  int flag, err;
      |      ^~~~
/builddir/build/BUILD/nrn-7.8.1/src/nrniv/../nrncvode/cvodeobj.cpp:1335:9: warning: unused variable 'tin' [-Wunused-variable]
 1335 |  double tin;
      |         ^~~
/builddir/build/BUILD/nrn-7.8.1/src/nrniv/../nrncvode/cvodeobj.cpp: In function 'void* msolve_thread_part2(NrnThread*)':
/builddir/build/BUILD/nrn-7.8.1/src/nrniv/../nrncvode/cvodeobj.cpp:1473:6: warning: unused variable 'i' [-Wunused-variable]
 1473 |  int i = nt->id;
      |      ^
/builddir/build/BUILD/nrn-7.8.1/src/nrniv/../nrncvode/cvodeobj.cpp: In function 'void* f_thread_ms_part2(NrnThread*)':
/builddir/build/BUILD/nrn-7.8.1/src/nrniv/../nrncvode/cvodeobj.cpp:1569:6: warning: unused variable 'i' [-Wunused-variable]
 1569 |  int i = nt->id;
      |      ^
/builddir/build/BUILD/nrn-7.8.1/src/nrniv/../nrncvode/cvodeobj.cpp: In function 'void* f_thread_ms_part3(NrnThread*)':
/builddir/build/BUILD/nrn-7.8.1/src/nrniv/../nrncvode/cvodeobj.cpp:1575:6: warning: unused variable 'i' [-Wunused-variable]
 1575 |  int i = nt->id;
      |      ^
/builddir/build/BUILD/nrn-7.8.1/src/nrniv/../nrncvode/cvodeobj.cpp: At global scope:
/builddir/build/BUILD/nrn-7.8.1/src/nrniv/../nrncvode/cvodeobj.cpp:689:14: warning: 'void* msetup_thread(NrnThread*)' declared 'static' but never defined [-Wunused-function]
  689 | static void* msetup_thread(NrnThread*);
      |              ^~~~~~~~~~~~~
make[2]: Entering directory '/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu'
[ 28%] Building CXX object src/nrniv/CMakeFiles/nrniv_lib.dir/finithnd.cpp.o
cd /builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/nrniv && /usr/bin/g++ -DHAVE_CONFIG_H -Dnrniv_lib_EXPORTS -DCABLE=1 -DOOP=1 -DUSEBBS=1 -DUSECVODE=1 -DUSEMATRIX=1 -I/builddir/build/BUILD/nrn-7.8.1/src/ivoc -I/builddir/build/BUILD/nrn-7.8.1/src/nrniv -I/builddir/build/BUILD/nrn-7.8.1/src/nrnoc -I/builddir/build/BUILD/nrn-7.8.1/src/oc -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/nrncvode -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/nrnjava -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/nrnoc -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/nrnpython -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/oc -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/parallel -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/sundials -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/sundials/shared -I/builddir/build/BUILD/nrn-7.8.1/src -I/builddir/build/BUILD/nrn-7.8.1/src/gnu -I/builddir/build/BUILD/nrn-7.8.1/src/memacs -I/builddir/build/BUILD/nrn-7.8.1/src/mesch -I/builddir/build/BUILD/nrn-7.8.1/src/nrncvode -I/builddir/build/BUILD/nrn-7.8.1/src/nrnmpi -I/builddir/build/BUILD/nrn-7.8.1/src/nrnpython -I/builddir/build/BUILD/nrn-7.8.1/src/parallel -I/builddir/build/BUILD/nrn-7.8.1/src/sparse -I/builddir/build/BUILD/nrn-7.8.1/src/sparse13 -I/builddir/build/BUILD/nrn-7.8.1/src/sundials -I/builddir/build/BUILD/nrn-7.8.1/src/sundials/cvodes -I/builddir/build/BUILD/nrn-7.8.1/src/sundials/ida -I/builddir/build/BUILD/nrn-7.8.1/src/sundials/shared -I/usr/include/python3.9 -O2 -flto=auto -ffat-lto-objects -fexceptions -g -grecord-gcc-switches -pipe -Wall -Werror=format-security -Wp,-D_FORTIFY_SOURCE=2 -Wp,-D_GLIBCXX_ASSERTIONS -specs=/usr/lib/rpm/redhat/redhat-hardened-cc1 -fstack-protector-strong -specs=/usr/lib/rpm/redhat/redhat-annobin-cc1  -fasynchronous-unwind-tables -fstack-clash-protection -fPIC -std=c++98 -o CMakeFiles/nrniv_lib.dir/finithnd.cpp.o -c /builddir/build/BUILD/nrn-7.8.1/src/nrniv/finithnd.cpp
make[2]: Leaving directory '/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu'
make[2]: Entering directory '/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu'
[ 27%] Building CXX object src/nrniv/CMakeFiles/nrniv_lib.dir/datapath.cpp.o
cd /builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/nrniv && /usr/bin/g++ -DHAVE_CONFIG_H -Dnrniv_lib_EXPORTS -DCABLE=1 -DOOP=1 -DUSEBBS=1 -DUSECVODE=1 -DUSEMATRIX=1 -I/builddir/build/BUILD/nrn-7.8.1/src/ivoc -I/builddir/build/BUILD/nrn-7.8.1/src/nrniv -I/builddir/build/BUILD/nrn-7.8.1/src/nrnoc -I/builddir/build/BUILD/nrn-7.8.1/src/oc -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/nrncvode -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/nrnjava -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/nrnoc -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/nrnpython -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/oc -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/parallel -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/sundials -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/sundials/shared -I/builddir/build/BUILD/nrn-7.8.1/src -I/builddir/build/BUILD/nrn-7.8.1/src/gnu -I/builddir/build/BUILD/nrn-7.8.1/src/memacs -I/builddir/build/BUILD/nrn-7.8.1/src/mesch -I/builddir/build/BUILD/nrn-7.8.1/src/nrncvode -I/builddir/build/BUILD/nrn-7.8.1/src/nrnmpi -I/builddir/build/BUILD/nrn-7.8.1/src/nrnpython -I/builddir/build/BUILD/nrn-7.8.1/src/parallel -I/builddir/build/BUILD/nrn-7.8.1/src/sparse -I/builddir/build/BUILD/nrn-7.8.1/src/sparse13 -I/builddir/build/BUILD/nrn-7.8.1/src/sundials -I/builddir/build/BUILD/nrn-7.8.1/src/sundials/cvodes -I/builddir/build/BUILD/nrn-7.8.1/src/sundials/ida -I/builddir/build/BUILD/nrn-7.8.1/src/sundials/shared -I/usr/include/python3.9 -O2 -flto=auto -ffat-lto-objects -fexceptions -g -grecord-gcc-switches -pipe -Wall -Werror=format-security -Wp,-D_FORTIFY_SOURCE=2 -Wp,-D_GLIBCXX_ASSERTIONS -specs=/usr/lib/rpm/redhat/redhat-hardened-cc1 -fstack-protector-strong -specs=/usr/lib/rpm/redhat/redhat-annobin-cc1  -fasynchronous-unwind-tables -fstack-clash-protection -fPIC -std=c++98 -o CMakeFiles/nrniv_lib.dir/datapath.cpp.o -c /builddir/build/BUILD/nrn-7.8.1/src/nrniv/datapath.cpp
make[2]: Leaving directory '/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu'
In file included from /builddir/build/BUILD/nrn-7.8.1/src/nrniv/datapath.cpp:5:
/builddir/build/BUILD/nrn-7.8.1/src/nrniv/../ivoc/datapath.cpp: In member function 'PathValue* HocDataPathImpl::found_v(void*, const char*, Symbol*)':
/builddir/build/BUILD/nrn-7.8.1/src/nrniv/../ivoc/datapath.cpp:265:6: warning: unused variable 'len' [-Wunused-variable]
  265 |  int len = 0;
      |      ^~~
/builddir/build/BUILD/nrn-7.8.1/src/nrniv/../ivoc/datapath.cpp: In member function 'void HocDataPathImpl::search_vectors()':
/builddir/build/BUILD/nrn-7.8.1/src/nrniv/../ivoc/datapath.cpp:424:9: warning: unused variable 'cnt' [-Wunused-variable]
  424 |  int i, cnt;
      |         ^~~
/builddir/build/BUILD/nrn-7.8.1/src/nrniv/../ivoc/datapath.cpp: In member function 'void HocDataPathImpl::search(Node*, double)':
/builddir/build/BUILD/nrn-7.8.1/src/nrniv/../ivoc/datapath.cpp:483:6: warning: unused variable 'i' [-Wunused-variable]
  483 |  int i, cnt;
      |      ^
/builddir/build/BUILD/nrn-7.8.1/src/nrniv/../ivoc/datapath.cpp:483:9: warning: unused variable 'cnt' [-Wunused-variable]
  483 |  int i, cnt;
      |         ^~~
make[2]: Entering directory '/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu'
[ 27%] Building CXX object src/nrniv/CMakeFiles/nrniv_lib.dir/cxprop.cpp.o
cd /builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/nrniv && /usr/bin/g++ -DHAVE_CONFIG_H -Dnrniv_lib_EXPORTS -DCABLE=1 -DOOP=1 -DUSEBBS=1 -DUSECVODE=1 -DUSEMATRIX=1 -I/builddir/build/BUILD/nrn-7.8.1/src/ivoc -I/builddir/build/BUILD/nrn-7.8.1/src/nrniv -I/builddir/build/BUILD/nrn-7.8.1/src/nrnoc -I/builddir/build/BUILD/nrn-7.8.1/src/oc -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/nrncvode -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/nrnjava -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/nrnoc -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/nrnpython -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/oc -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/parallel -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/sundials -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/sundials/shared -I/builddir/build/BUILD/nrn-7.8.1/src -I/builddir/build/BUILD/nrn-7.8.1/src/gnu -I/builddir/build/BUILD/nrn-7.8.1/src/memacs -I/builddir/build/BUILD/nrn-7.8.1/src/mesch -I/builddir/build/BUILD/nrn-7.8.1/src/nrncvode -I/builddir/build/BUILD/nrn-7.8.1/src/nrnmpi -I/builddir/build/BUILD/nrn-7.8.1/src/nrnpython -I/builddir/build/BUILD/nrn-7.8.1/src/parallel -I/builddir/build/BUILD/nrn-7.8.1/src/sparse -I/builddir/build/BUILD/nrn-7.8.1/src/sparse13 -I/builddir/build/BUILD/nrn-7.8.1/src/sundials -I/builddir/build/BUILD/nrn-7.8.1/src/sundials/cvodes -I/builddir/build/BUILD/nrn-7.8.1/src/sundials/ida -I/builddir/build/BUILD/nrn-7.8.1/src/sundials/shared -I/usr/include/python3.9 -O2 -flto=auto -ffat-lto-objects -fexceptions -g -grecord-gcc-switches -pipe -Wall -Werror=format-security -Wp,-D_FORTIFY_SOURCE=2 -Wp,-D_GLIBCXX_ASSERTIONS -specs=/usr/lib/rpm/redhat/redhat-hardened-cc1 -fstack-protector-strong -specs=/usr/lib/rpm/redhat/redhat-annobin-cc1  -fasynchronous-unwind-tables -fstack-clash-protection -fPIC -std=c++98 -o CMakeFiles/nrniv_lib.dir/cxprop.cpp.o -c /builddir/build/BUILD/nrn-7.8.1/src/nrniv/cxprop.cpp
make[2]: Leaving directory '/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu'
/builddir/build/BUILD/nrn-7.8.1/src/nrniv/cxprop.cpp: In function 'void read_temp1()':
/builddir/build/BUILD/nrn-7.8.1/src/nrniv/cxprop.cpp:86:6: warning: unused variable 'nscan' [-Wunused-variable]
   86 |  int nscan, maxtype, imech, nmech, type, sz1, sz2, ntget, ith, nth, i, j, cnt, seq;
      |      ^~~~~
/builddir/build/BUILD/nrn-7.8.1/src/nrniv/cxprop.cpp: In function 'void nrn_cache_prop_realloc()':
/builddir/build/BUILD/nrn-7.8.1/src/nrniv/cxprop.cpp:606:7: warning: unused variable 'j' [-Wunused-variable]
  606 |   int j, cnt = ml->nodecount;
      |       ^
/builddir/build/BUILD/nrn-7.8.1/src/nrniv/cxprop.cpp:585:13: warning: unused variable 'type' [-Wunused-variable]
  585 |  int i, it, type;
      |             ^~~~
make[2]: Entering directory '/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu'
[ 28%] Building CXX object src/nrniv/CMakeFiles/nrniv_lib.dir/geometry3d.cpp.o
cd /builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/nrniv && /usr/bin/g++ -DHAVE_CONFIG_H -Dnrniv_lib_EXPORTS -DCABLE=1 -DOOP=1 -DUSEBBS=1 -DUSECVODE=1 -DUSEMATRIX=1 -I/builddir/build/BUILD/nrn-7.8.1/src/ivoc -I/builddir/build/BUILD/nrn-7.8.1/src/nrniv -I/builddir/build/BUILD/nrn-7.8.1/src/nrnoc -I/builddir/build/BUILD/nrn-7.8.1/src/oc -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/nrncvode -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/nrnjava -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/nrnoc -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/nrnpython -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/oc -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/parallel -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/sundials -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/sundials/shared -I/builddir/build/BUILD/nrn-7.8.1/src -I/builddir/build/BUILD/nrn-7.8.1/src/gnu -I/builddir/build/BUILD/nrn-7.8.1/src/memacs -I/builddir/build/BUILD/nrn-7.8.1/src/mesch -I/builddir/build/BUILD/nrn-7.8.1/src/nrncvode -I/builddir/build/BUILD/nrn-7.8.1/src/nrnmpi -I/builddir/build/BUILD/nrn-7.8.1/src/nrnpython -I/builddir/build/BUILD/nrn-7.8.1/src/parallel -I/builddir/build/BUILD/nrn-7.8.1/src/sparse -I/builddir/build/BUILD/nrn-7.8.1/src/sparse13 -I/builddir/build/BUILD/nrn-7.8.1/src/sundials -I/builddir/build/BUILD/nrn-7.8.1/src/sundials/cvodes -I/builddir/build/BUILD/nrn-7.8.1/src/sundials/ida -I/builddir/build/BUILD/nrn-7.8.1/src/sundials/shared -I/usr/include/python3.9 -O2 -flto=auto -ffat-lto-objects -fexceptions -g -grecord-gcc-switches -pipe -Wall -Werror=format-security -Wp,-D_FORTIFY_SOURCE=2 -Wp,-D_GLIBCXX_ASSERTIONS -specs=/usr/lib/rpm/redhat/redhat-hardened-cc1 -fstack-protector-strong -specs=/usr/lib/rpm/redhat/redhat-annobin-cc1  -fasynchronous-unwind-tables -fstack-clash-protection -fPIC -std=c++98 -o CMakeFiles/nrniv_lib.dir/geometry3d.cpp.o -c /builddir/build/BUILD/nrn-7.8.1/src/nrniv/geometry3d.cpp
make[2]: Leaving directory '/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu'
/builddir/build/BUILD/nrn-7.8.1/src/nrniv/geometry3d.cpp: In constructor 'geometry3d_Cylinder::geometry3d_Cylinder(double, double, double, double, double, double, double)':
/builddir/build/BUILD/nrn-7.8.1/src/nrniv/geometry3d.cpp:441:52: warning: 'geometry3d_Cylinder::cz' will be initialized after [-Wreorder]
  441 |         double r, rr, axisx, axisy, axisz, cx, cy, cz, h;
      |                                                    ^~
/builddir/build/BUILD/nrn-7.8.1/src/nrniv/geometry3d.cpp:441:19: warning:   'double geometry3d_Cylinder::rr' [-Wreorder]
  441 |         double r, rr, axisx, axisy, axisz, cx, cy, cz, h;
      |                   ^~
/builddir/build/BUILD/nrn-7.8.1/src/nrniv/geometry3d.cpp:444:1: warning:   when initialized here [-Wreorder]
  444 | geometry3d_Cylinder::geometry3d_Cylinder(double x0, double y0, double z0,
      | ^~~~~~~~~~~~~~~~~~~
make[2]: Entering directory '/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu'
[ 28%] Building CXX object src/nrniv/CMakeFiles/nrniv_lib.dir/hocmech.cpp.o
cd /builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/nrniv && /usr/bin/g++ -DHAVE_CONFIG_H -Dnrniv_lib_EXPORTS -DCABLE=1 -DOOP=1 -DUSEBBS=1 -DUSECVODE=1 -DUSEMATRIX=1 -I/builddir/build/BUILD/nrn-7.8.1/src/ivoc -I/builddir/build/BUILD/nrn-7.8.1/src/nrniv -I/builddir/build/BUILD/nrn-7.8.1/src/nrnoc -I/builddir/build/BUILD/nrn-7.8.1/src/oc -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/nrncvode -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/nrnjava -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/nrnoc -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/nrnpython -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/oc -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/parallel -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/sundials -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/sundials/shared -I/builddir/build/BUILD/nrn-7.8.1/src -I/builddir/build/BUILD/nrn-7.8.1/src/gnu -I/builddir/build/BUILD/nrn-7.8.1/src/memacs -I/builddir/build/BUILD/nrn-7.8.1/src/mesch -I/builddir/build/BUILD/nrn-7.8.1/src/nrncvode -I/builddir/build/BUILD/nrn-7.8.1/src/nrnmpi -I/builddir/build/BUILD/nrn-7.8.1/src/nrnpython -I/builddir/build/BUILD/nrn-7.8.1/src/parallel -I/builddir/build/BUILD/nrn-7.8.1/src/sparse -I/builddir/build/BUILD/nrn-7.8.1/src/sparse13 -I/builddir/build/BUILD/nrn-7.8.1/src/sundials -I/builddir/build/BUILD/nrn-7.8.1/src/sundials/cvodes -I/builddir/build/BUILD/nrn-7.8.1/src/sundials/ida -I/builddir/build/BUILD/nrn-7.8.1/src/sundials/shared -I/usr/include/python3.9 -O2 -flto=auto -ffat-lto-objects -fexceptions -g -grecord-gcc-switches -pipe -Wall -Werror=format-security -Wp,-D_FORTIFY_SOURCE=2 -Wp,-D_GLIBCXX_ASSERTIONS -specs=/usr/lib/rpm/redhat/redhat-hardened-cc1 -fstack-protector-strong -specs=/usr/lib/rpm/redhat/redhat-annobin-cc1  -fasynchronous-unwind-tables -fstack-clash-protection -fPIC -std=c++98 -o CMakeFiles/nrniv_lib.dir/hocmech.cpp.o -c /builddir/build/BUILD/nrn-7.8.1/src/nrniv/hocmech.cpp
make[2]: Leaving directory '/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu'
/builddir/build/BUILD/nrn-7.8.1/src/nrniv/hocmech.cpp: In function 'void make_pointprocess()':
/builddir/build/BUILD/nrn-7.8.1/src/nrniv/hocmech.cpp:311:14: warning: comparison of integer expressions of different signedness: 'int' and 'unsigned int' [-Wsign-compare]
  311 |  for (i=0; i < s2->s_varn; ++i) {
      |            ~~^~~~~~~~~~~~
/builddir/build/BUILD/nrn-7.8.1/src/nrniv/hocmech.cpp:252:7: warning: unused variable 'buf' [-Wunused-variable]
  252 |  char buf[256];
      |       ^~~
make[2]: Entering directory '/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu'
[ 24%] Building CXX object src/nrniv/CMakeFiles/nrniv_lib.dir/bbsavestate.cpp.o
cd /builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/nrniv && /usr/bin/g++ -DHAVE_CONFIG_H -Dnrniv_lib_EXPORTS -DCABLE=1 -DOOP=1 -DUSEBBS=1 -DUSECVODE=1 -DUSEMATRIX=1 -I/builddir/build/BUILD/nrn-7.8.1/src/ivoc -I/builddir/build/BUILD/nrn-7.8.1/src/nrniv -I/builddir/build/BUILD/nrn-7.8.1/src/nrnoc -I/builddir/build/BUILD/nrn-7.8.1/src/oc -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/nrncvode -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/nrnjava -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/nrnoc -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/nrnpython -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/oc -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/parallel -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/sundials -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/sundials/shared -I/builddir/build/BUILD/nrn-7.8.1/src -I/builddir/build/BUILD/nrn-7.8.1/src/gnu -I/builddir/build/BUILD/nrn-7.8.1/src/memacs -I/builddir/build/BUILD/nrn-7.8.1/src/mesch -I/builddir/build/BUILD/nrn-7.8.1/src/nrncvode -I/builddir/build/BUILD/nrn-7.8.1/src/nrnmpi -I/builddir/build/BUILD/nrn-7.8.1/src/nrnpython -I/builddir/build/BUILD/nrn-7.8.1/src/parallel -I/builddir/build/BUILD/nrn-7.8.1/src/sparse -I/builddir/build/BUILD/nrn-7.8.1/src/sparse13 -I/builddir/build/BUILD/nrn-7.8.1/src/sundials -I/builddir/build/BUILD/nrn-7.8.1/src/sundials/cvodes -I/builddir/build/BUILD/nrn-7.8.1/src/sundials/ida -I/builddir/build/BUILD/nrn-7.8.1/src/sundials/shared -I/usr/include/python3.9 -O2 -flto=auto -ffat-lto-objects -fexceptions -g -grecord-gcc-switches -pipe -Wall -Werror=format-security -Wp,-D_FORTIFY_SOURCE=2 -Wp,-D_GLIBCXX_ASSERTIONS -specs=/usr/lib/rpm/redhat/redhat-hardened-cc1 -fstack-protector-strong -specs=/usr/lib/rpm/redhat/redhat-annobin-cc1  -fasynchronous-unwind-tables -fstack-clash-protection -fPIC -std=c++98 -o CMakeFiles/nrniv_lib.dir/bbsavestate.cpp.o -c /builddir/build/BUILD/nrn-7.8.1/src/nrniv/bbsavestate.cpp
make[2]: Leaving directory '/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu'
/builddir/build/BUILD/nrn-7.8.1/src/nrniv/bbsavestate.cpp: In function 'double save_test_bin(void*)':
/builddir/build/BUILD/nrn-7.8.1/src/nrniv/bbsavestate.cpp:629:15: warning: unused variable 'ss' [-Wunused-variable]
  629 |  BBSaveState* ss = (BBSaveState*)v;
      |               ^~
In file included from /builddir/build/BUILD/nrn-7.8.1/src/oc/hocdec.h:14,
                 from /builddir/build/BUILD/nrn-7.8.1/src/ivoc/oc2iv.h:7,
                 from /builddir/build/BUILD/nrn-7.8.1/src/nrniv/nrnoc2iv.h:5,
                 from /builddir/build/BUILD/nrn-7.8.1/src/nrniv/bbsavestate.cpp:174:
/builddir/build/BUILD/nrn-7.8.1/src/nrniv/bbsavestate.cpp: In function 'double restore_test_bin(void*)':
/builddir/build/BUILD/nrn-7.8.1/src/nrniv/bbsavestate.cpp:899:54: warning: comparison of integer expressions of different signedness: 'size_t' {aka 'long unsigned int'} and 'int' [-Wsign-compare]
  899 |  nrn_assert(fread(buf, sizeof(char), global_size, f) == global_size);
      |             ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~^~~~~~~~~~~~~~
/builddir/build/BUILD/nrn-7.8.1/src/oc/nrnassrt.h:23:33: note: in definition of macro 'nrn_assert'
   23 | #  define nrn_assert(ex) {if (!(ex)){fprintf(stderr,"Assertion failed: file %s, line %d\n", __FILE__,__LINE__);hoc_execerror(#ex, (char *)0);}}
      |                                 ^~
/builddir/build/BUILD/nrn-7.8.1/src/nrniv/bbsavestate.cpp:920:46: warning: comparison of integer expressions of different signedness: 'size_t' {aka 'long unsigned int'} and 'int' [-Wsign-compare]
  920 |   nrn_assert(fread(buf, sizeof(char), sz, f) == sz);
      |              ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~^~~~~
/builddir/build/BUILD/nrn-7.8.1/src/oc/nrnassrt.h:23:33: note: in definition of macro 'nrn_assert'
   23 | #  define nrn_assert(ex) {if (!(ex)){fprintf(stderr,"Assertion failed: file %s, line %d\n", __FILE__,__LINE__);hoc_execerror(#ex, (char *)0);}}
      |                                 ^~
/builddir/build/BUILD/nrn-7.8.1/src/nrniv/bbsavestate.cpp: In function 'void tqcallback(const TQItem*, int)':
/builddir/build/BUILD/nrn-7.8.1/src/nrniv/bbsavestate.cpp:1142:12: warning: unused variable 'dl' [-Wunused-variable]
 1142 |    DEList *dl=0, *dl1=0;
      |            ^~
/builddir/build/BUILD/nrn-7.8.1/src/nrniv/bbsavestate.cpp:1172:28: warning: unused variable 'tt' [-Wunused-variable]
 1172 |   int srcid, i; double ts, tt; PreSyn* ps;
      |                            ^~
/builddir/build/BUILD/nrn-7.8.1/src/nrniv/bbsavestate.cpp: In member function 'void BBSaveState::del_pp2de()':
/builddir/build/BUILD/nrn-7.8.1/src/nrniv/bbsavestate.cpp:1360:10: warning: unused variable 'dl' [-Wunused-variable]
 1360 |  DEList* dl, *dl1;
      |          ^~
In file included from /builddir/build/BUILD/nrn-7.8.1/src/nrniv/bbsavestate.cpp:178:
/builddir/build/BUILD/nrn-7.8.1/src/nrniv/bbsavestate.cpp: In member function 'int BBSaveState::counts(int**, int**)':
/builddir/build/BUILD/nrn-7.8.1/src/nrniv/bbsavestate.cpp:1460:51: warning: unused variable 'base' [-Wunused-variable]
 1460 |  NrnHashIterateKeyValue(Int2Int, base2spgid, int, base, int, spgid) {
      |                                                   ^~~~
/builddir/build/BUILD/nrn-7.8.1/src/nrniv/nrnhash.h:89:8: note: in definition of macro 'NrnHashIterateKeyValue'
   89 |    Key key = (*p__).first; \
      |        ^~~
/builddir/build/BUILD/nrn-7.8.1/src/nrniv/bbsavestate.cpp:1460:62: warning: unused variable 'spgid' [-Wunused-variable]
 1460 |  NrnHashIterateKeyValue(Int2Int, base2spgid, int, base, int, spgid) {
      |                                                              ^~~~~
/builddir/build/BUILD/nrn-7.8.1/src/nrniv/nrnhash.h:90:10: note: in definition of macro 'NrnHashIterateKeyValue'
   90 |    Value value = (*p__).second; \
      |          ^~~~~
/builddir/build/BUILD/nrn-7.8.1/src/nrniv/bbsavestate.cpp: In member function 'void BBSaveState::mech(Prop*)':
/builddir/build/BUILD/nrn-7.8.1/src/nrniv/bbsavestate.cpp:1796:11: warning: unused variable 'd' [-Wunused-variable]
 1796 |    double d = hoc_xpop();
      |           ^
/builddir/build/BUILD/nrn-7.8.1/src/nrniv/bbsavestate.cpp:1798:11: warning: unused variable 'd' [-Wunused-variable]
 1798 |    double d = nrn_call_mech_func(ssi[p->type].callback, narg, p, p->type);
      |           ^
/builddir/build/BUILD/nrn-7.8.1/src/nrniv/bbsavestate.cpp:1810:12: warning: unused variable 'd' [-Wunused-variable]
 1810 |     double d = hoc_xpop();
      |            ^
/builddir/build/BUILD/nrn-7.8.1/src/nrniv/bbsavestate.cpp:1812:12: warning: unused variable 'd' [-Wunused-variable]
 1812 |     double d = nrn_call_mech_func(ssi[p->type].callback, narg, p, p->type);
      |            ^
/builddir/build/BUILD/nrn-7.8.1/src/nrniv/bbsavestate.cpp:1818:12: warning: unused variable 'd' [-Wunused-variable]
 1818 |     double d = hoc_xpop();
      |            ^
/builddir/build/BUILD/nrn-7.8.1/src/nrniv/bbsavestate.cpp:1820:12: warning: unused variable 'd' [-Wunused-variable]
 1820 |     double d = nrn_call_mech_func(ssi[p->type].callback, narg, p, p->type);
      |            ^
/builddir/build/BUILD/nrn-7.8.1/src/nrniv/bbsavestate.cpp: In member function 'void BBSaveState::netrecv_pp(Point_process*)':
/builddir/build/BUILD/nrn-7.8.1/src/nrniv/bbsavestate.cpp:1835:6: warning: unused variable 'type' [-Wunused-variable]
 1835 |  int type = pp->prop->type;
      |      ^~~~
In file included from /builddir/build/BUILD/nrn-7.8.1/src/nrniv/bbsavestate.cpp:178:
/builddir/build/BUILD/nrn-7.8.1/src/nrniv/bbsavestate.cpp: In function 'void scatteritems()':
/builddir/build/BUILD/nrn-7.8.1/src/nrniv/bbsavestate.cpp:2036:54: warning: unused variable 'gid' [-Wunused-variable]
 2036 |   NrnHashIterateKeyValue(Int2DblList, src2send, int, gid, DblList*, dl) {
      |                                                      ^~~
/builddir/build/BUILD/nrn-7.8.1/src/nrniv/nrnhash.h:89:8: note: in definition of macro 'NrnHashIterateKeyValue'
   89 |    Key key = (*p__).first; \
      |        ^~~
/builddir/build/BUILD/nrn-7.8.1/src/nrniv/bbsavestate.cpp:2070:53: warning: unused variable 'gid' [-Wunused-variable]
 2070 |  NrnHashIterateKeyValue(Int2DblList, src2send, int, gid, DblList*, dl) {
      |                                                     ^~~
/builddir/build/BUILD/nrn-7.8.1/src/nrniv/nrnhash.h:89:8: note: in definition of macro 'NrnHashIterateKeyValue'
   89 |    Key key = (*p__).first; \
      |        ^~~
/builddir/build/BUILD/nrn-7.8.1/src/nrniv/bbsavestate.cpp:2015:9: warning: unused variable 'gid' [-Wunused-variable]
 2015 |  int i, gid, host;
      |         ^~~
/builddir/build/BUILD/nrn-7.8.1/src/nrniv/bbsavestate.cpp:2016:11: warning: unused variable 'dl' [-Wunused-variable]
 2016 |  DblList* dl;
      |           ^~
/builddir/build/BUILD/nrn-7.8.1/src/nrniv/bbsavestate.cpp: In function 'void construct_presyn_queue()':
/builddir/build/BUILD/nrn-7.8.1/src/nrniv/bbsavestate.cpp:2194:13: warning: unused variable 't2' [-Wunused-variable]
 2194 |      double t2 = dl->item(j);
      |             ^~
/builddir/build/BUILD/nrn-7.8.1/src/nrniv/bbsavestate.cpp:2161:6: warning: unused variable 'gid' [-Wunused-variable]
 2161 |  int gid, tscnt, i; double ts, tt;
      |      ^~~
/builddir/build/BUILD/nrn-7.8.1/src/nrniv/bbsavestate.cpp:2161:28: warning: unused variable 'ts' [-Wunused-variable]
 2161 |  int gid, tscnt, i; double ts, tt;
      |                            ^~
/builddir/build/BUILD/nrn-7.8.1/src/nrniv/bbsavestate.cpp:2161:32: warning: unused variable 'tt' [-Wunused-variable]
 2161 |  int gid, tscnt, i; double ts, tt;
      |                                ^~
In file included from /builddir/build/BUILD/nrn-7.8.1/src/nrniv/bbsavestate.cpp:178:
/builddir/build/BUILD/nrn-7.8.1/src/nrniv/bbsavestate.cpp: In function 'void bbss_queuecheck()':
/builddir/build/BUILD/nrn-7.8.1/src/nrniv/bbsavestate.cpp:2464:63: warning: unused variable 'gid' [-Wunused-variable]
 2464 |  NrnHashIterateKeyValue(Int2DblList, queuecheck_gid2unc, int, gid, DblList*, dl) {
      |                                                               ^~~
/builddir/build/BUILD/nrn-7.8.1/src/nrniv/nrnhash.h:89:8: note: in definition of macro 'NrnHashIterateKeyValue'
   89 |    Key key = (*p__).first; \
      |        ^~~
/builddir/build/BUILD/nrn-7.8.1/src/nrniv/bbsavestate.cpp: At global scope:
/builddir/build/BUILD/nrn-7.8.1/src/nrniv/bbsavestate.cpp:1946:13: warning: 'void all2allv_helper(int*, int*, int*, int*)' defined but not used [-Wunused-function]
 1946 | static void all2allv_helper(int* scnt, int* sdispl, int* rcnt, int* rdispl) {
      |             ^~~~~~~~~~~~~~~
/builddir/build/BUILD/nrn-7.8.1/src/nrniv/bbsavestate.cpp:276:13: warning: 'use_gidcompress_' defined but not used [-Wunused-variable]
  276 | static bool use_gidcompress_;
      |             ^~~~~~~~~~~~~~~~
/builddir/build/BUILD/nrn-7.8.1/src/nrniv/bbsavestate.cpp:275:13: warning: 'use_spikecompress_' defined but not used [-Wunused-variable]
  275 | static bool use_spikecompress_;
      |             ^~~~~~~~~~~~~~~~~~
/builddir/build/BUILD/nrn-7.8.1/src/nrniv/bbsavestate.cpp:243:12: warning: 'int nrnmpi_int_allmax(int)' defined but not used [-Wunused-function]
  243 | static int nrnmpi_int_allmax(int x) { return x; }
      |            ^~~~~~~~~~~~~~~~~
/builddir/build/BUILD/nrn-7.8.1/src/nrniv/bbsavestate.cpp:238:13: warning: 'void nrnmpi_dbl_alltoallv(double*, int*, int*, double*, int*, int*)' defined but not used [-Wunused-function]
  238 | static void nrnmpi_dbl_alltoallv(double* s, int* scnt, int* sdispl, double* r, int* rcnt, int* rdispl) {
      |             ^~~~~~~~~~~~~~~~~~~~
make[2]: Entering directory '/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu'
[ 28%] Building CXX object src/nrniv/CMakeFiles/nrniv_lib.dir/glinerec.cpp.o
cd /builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/nrniv && /usr/bin/g++ -DHAVE_CONFIG_H -Dnrniv_lib_EXPORTS -DCABLE=1 -DOOP=1 -DUSEBBS=1 -DUSECVODE=1 -DUSEMATRIX=1 -I/builddir/build/BUILD/nrn-7.8.1/src/ivoc -I/builddir/build/BUILD/nrn-7.8.1/src/nrniv -I/builddir/build/BUILD/nrn-7.8.1/src/nrnoc -I/builddir/build/BUILD/nrn-7.8.1/src/oc -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/nrncvode -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/nrnjava -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/nrnoc -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/nrnpython -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/oc -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/parallel -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/sundials -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/sundials/shared -I/builddir/build/BUILD/nrn-7.8.1/src -I/builddir/build/BUILD/nrn-7.8.1/src/gnu -I/builddir/build/BUILD/nrn-7.8.1/src/memacs -I/builddir/build/BUILD/nrn-7.8.1/src/mesch -I/builddir/build/BUILD/nrn-7.8.1/src/nrncvode -I/builddir/build/BUILD/nrn-7.8.1/src/nrnmpi -I/builddir/build/BUILD/nrn-7.8.1/src/nrnpython -I/builddir/build/BUILD/nrn-7.8.1/src/parallel -I/builddir/build/BUILD/nrn-7.8.1/src/sparse -I/builddir/build/BUILD/nrn-7.8.1/src/sparse13 -I/builddir/build/BUILD/nrn-7.8.1/src/sundials -I/builddir/build/BUILD/nrn-7.8.1/src/sundials/cvodes -I/builddir/build/BUILD/nrn-7.8.1/src/sundials/ida -I/builddir/build/BUILD/nrn-7.8.1/src/sundials/shared -I/usr/include/python3.9 -O2 -flto=auto -ffat-lto-objects -fexceptions -g -grecord-gcc-switches -pipe -Wall -Werror=format-security -Wp,-D_FORTIFY_SOURCE=2 -Wp,-D_GLIBCXX_ASSERTIONS -specs=/usr/lib/rpm/redhat/redhat-hardened-cc1 -fstack-protector-strong -specs=/usr/lib/rpm/redhat/redhat-annobin-cc1  -fasynchronous-unwind-tables -fstack-clash-protection -fPIC -std=c++98 -o CMakeFiles/nrniv_lib.dir/glinerec.cpp.o -c /builddir/build/BUILD/nrn-7.8.1/src/nrniv/glinerec.cpp
make[2]: Leaving directory '/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu'
/builddir/build/BUILD/nrn-7.8.1/src/nrniv/glinerec.cpp: In member function 'void GraphVector::record_install()':
/builddir/build/BUILD/nrn-7.8.1/src/nrniv/glinerec.cpp:165:18: warning: unused variable 'gvr' [-Wunused-variable]
  165 |   GVectorRecord* gvr = new GVectorRecord(this);
      |                  ^~~
make[2]: Entering directory '/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu'
[ 28%] Building CXX object src/nrniv/CMakeFiles/nrniv_lib.dir/impedanc.cpp.o
cd /builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/nrniv && /usr/bin/g++ -DHAVE_CONFIG_H -Dnrniv_lib_EXPORTS -DCABLE=1 -DOOP=1 -DUSEBBS=1 -DUSECVODE=1 -DUSEMATRIX=1 -I/builddir/build/BUILD/nrn-7.8.1/src/ivoc -I/builddir/build/BUILD/nrn-7.8.1/src/nrniv -I/builddir/build/BUILD/nrn-7.8.1/src/nrnoc -I/builddir/build/BUILD/nrn-7.8.1/src/oc -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/nrncvode -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/nrnjava -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/nrnoc -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/nrnpython -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/oc -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/parallel -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/sundials -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/sundials/shared -I/builddir/build/BUILD/nrn-7.8.1/src -I/builddir/build/BUILD/nrn-7.8.1/src/gnu -I/builddir/build/BUILD/nrn-7.8.1/src/memacs -I/builddir/build/BUILD/nrn-7.8.1/src/mesch -I/builddir/build/BUILD/nrn-7.8.1/src/nrncvode -I/builddir/build/BUILD/nrn-7.8.1/src/nrnmpi -I/builddir/build/BUILD/nrn-7.8.1/src/nrnpython -I/builddir/build/BUILD/nrn-7.8.1/src/parallel -I/builddir/build/BUILD/nrn-7.8.1/src/sparse -I/builddir/build/BUILD/nrn-7.8.1/src/sparse13 -I/builddir/build/BUILD/nrn-7.8.1/src/sundials -I/builddir/build/BUILD/nrn-7.8.1/src/sundials/cvodes -I/builddir/build/BUILD/nrn-7.8.1/src/sundials/ida -I/builddir/build/BUILD/nrn-7.8.1/src/sundials/shared -I/usr/include/python3.9 -O2 -flto=auto -ffat-lto-objects -fexceptions -g -grecord-gcc-switches -pipe -Wall -Werror=format-security -Wp,-D_FORTIFY_SOURCE=2 -Wp,-D_GLIBCXX_ASSERTIONS -specs=/usr/lib/rpm/redhat/redhat-hardened-cc1 -fstack-protector-strong -specs=/usr/lib/rpm/redhat/redhat-annobin-cc1  -fasynchronous-unwind-tables -fstack-clash-protection -fPIC -std=c++98 -o CMakeFiles/nrniv_lib.dir/impedanc.cpp.o -c /builddir/build/BUILD/nrn-7.8.1/src/nrniv/impedanc.cpp
make[2]: Leaving directory '/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu'
make[2]: Entering directory '/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu'
[ 29%] Building CXX object src/nrniv/CMakeFiles/nrniv_lib.dir/linmod.cpp.o
cd /builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/nrniv && /usr/bin/g++ -DHAVE_CONFIG_H -Dnrniv_lib_EXPORTS -DCABLE=1 -DOOP=1 -DUSEBBS=1 -DUSECVODE=1 -DUSEMATRIX=1 -I/builddir/build/BUILD/nrn-7.8.1/src/ivoc -I/builddir/build/BUILD/nrn-7.8.1/src/nrniv -I/builddir/build/BUILD/nrn-7.8.1/src/nrnoc -I/builddir/build/BUILD/nrn-7.8.1/src/oc -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/nrncvode -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/nrnjava -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/nrnoc -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/nrnpython -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/oc -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/parallel -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/sundials -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/sundials/shared -I/builddir/build/BUILD/nrn-7.8.1/src -I/builddir/build/BUILD/nrn-7.8.1/src/gnu -I/builddir/build/BUILD/nrn-7.8.1/src/memacs -I/builddir/build/BUILD/nrn-7.8.1/src/mesch -I/builddir/build/BUILD/nrn-7.8.1/src/nrncvode -I/builddir/build/BUILD/nrn-7.8.1/src/nrnmpi -I/builddir/build/BUILD/nrn-7.8.1/src/nrnpython -I/builddir/build/BUILD/nrn-7.8.1/src/parallel -I/builddir/build/BUILD/nrn-7.8.1/src/sparse -I/builddir/build/BUILD/nrn-7.8.1/src/sparse13 -I/builddir/build/BUILD/nrn-7.8.1/src/sundials -I/builddir/build/BUILD/nrn-7.8.1/src/sundials/cvodes -I/builddir/build/BUILD/nrn-7.8.1/src/sundials/ida -I/builddir/build/BUILD/nrn-7.8.1/src/sundials/shared -I/usr/include/python3.9 -O2 -flto=auto -ffat-lto-objects -fexceptions -g -grecord-gcc-switches -pipe -Wall -Werror=format-security -Wp,-D_FORTIFY_SOURCE=2 -Wp,-D_GLIBCXX_ASSERTIONS -specs=/usr/lib/rpm/redhat/redhat-hardened-cc1 -fstack-protector-strong -specs=/usr/lib/rpm/redhat/redhat-annobin-cc1  -fasynchronous-unwind-tables -fstack-clash-protection -fPIC -std=c++98 -o CMakeFiles/nrniv_lib.dir/linmod.cpp.o -c /builddir/build/BUILD/nrn-7.8.1/src/nrniv/linmod.cpp
make[2]: Leaving directory '/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu'
make[2]: Entering directory '/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu'
[ 29%] Building CXX object src/nrniv/CMakeFiles/nrniv_lib.dir/linmod1.cpp.o
cd /builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/nrniv && /usr/bin/g++ -DHAVE_CONFIG_H -Dnrniv_lib_EXPORTS -DCABLE=1 -DOOP=1 -DUSEBBS=1 -DUSECVODE=1 -DUSEMATRIX=1 -I/builddir/build/BUILD/nrn-7.8.1/src/ivoc -I/builddir/build/BUILD/nrn-7.8.1/src/nrniv -I/builddir/build/BUILD/nrn-7.8.1/src/nrnoc -I/builddir/build/BUILD/nrn-7.8.1/src/oc -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/nrncvode -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/nrnjava -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/nrnoc -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/nrnpython -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/oc -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/parallel -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/sundials -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/sundials/shared -I/builddir/build/BUILD/nrn-7.8.1/src -I/builddir/build/BUILD/nrn-7.8.1/src/gnu -I/builddir/build/BUILD/nrn-7.8.1/src/memacs -I/builddir/build/BUILD/nrn-7.8.1/src/mesch -I/builddir/build/BUILD/nrn-7.8.1/src/nrncvode -I/builddir/build/BUILD/nrn-7.8.1/src/nrnmpi -I/builddir/build/BUILD/nrn-7.8.1/src/nrnpython -I/builddir/build/BUILD/nrn-7.8.1/src/parallel -I/builddir/build/BUILD/nrn-7.8.1/src/sparse -I/builddir/build/BUILD/nrn-7.8.1/src/sparse13 -I/builddir/build/BUILD/nrn-7.8.1/src/sundials -I/builddir/build/BUILD/nrn-7.8.1/src/sundials/cvodes -I/builddir/build/BUILD/nrn-7.8.1/src/sundials/ida -I/builddir/build/BUILD/nrn-7.8.1/src/sundials/shared -I/usr/include/python3.9 -O2 -flto=auto -ffat-lto-objects -fexceptions -g -grecord-gcc-switches -pipe -Wall -Werror=format-security -Wp,-D_FORTIFY_SOURCE=2 -Wp,-D_GLIBCXX_ASSERTIONS -specs=/usr/lib/rpm/redhat/redhat-hardened-cc1 -fstack-protector-strong -specs=/usr/lib/rpm/redhat/redhat-annobin-cc1  -fasynchronous-unwind-tables -fstack-clash-protection -fPIC -std=c++98 -o CMakeFiles/nrniv_lib.dir/linmod1.cpp.o -c /builddir/build/BUILD/nrn-7.8.1/src/nrniv/linmod1.cpp
make[2]: Leaving directory '/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu'
make[2]: Entering directory '/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu'
[ 29%] Building CXX object src/nrniv/CMakeFiles/nrniv_lib.dir/kssingle.cpp.o
cd /builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/nrniv && /usr/bin/g++ -DHAVE_CONFIG_H -Dnrniv_lib_EXPORTS -DCABLE=1 -DOOP=1 -DUSEBBS=1 -DUSECVODE=1 -DUSEMATRIX=1 -I/builddir/build/BUILD/nrn-7.8.1/src/ivoc -I/builddir/build/BUILD/nrn-7.8.1/src/nrniv -I/builddir/build/BUILD/nrn-7.8.1/src/nrnoc -I/builddir/build/BUILD/nrn-7.8.1/src/oc -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/nrncvode -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/nrnjava -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/nrnoc -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/nrnpython -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/oc -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/parallel -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/sundials -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/sundials/shared -I/builddir/build/BUILD/nrn-7.8.1/src -I/builddir/build/BUILD/nrn-7.8.1/src/gnu -I/builddir/build/BUILD/nrn-7.8.1/src/memacs -I/builddir/build/BUILD/nrn-7.8.1/src/mesch -I/builddir/build/BUILD/nrn-7.8.1/src/nrncvode -I/builddir/build/BUILD/nrn-7.8.1/src/nrnmpi -I/builddir/build/BUILD/nrn-7.8.1/src/nrnpython -I/builddir/build/BUILD/nrn-7.8.1/src/parallel -I/builddir/build/BUILD/nrn-7.8.1/src/sparse -I/builddir/build/BUILD/nrn-7.8.1/src/sparse13 -I/builddir/build/BUILD/nrn-7.8.1/src/sundials -I/builddir/build/BUILD/nrn-7.8.1/src/sundials/cvodes -I/builddir/build/BUILD/nrn-7.8.1/src/sundials/ida -I/builddir/build/BUILD/nrn-7.8.1/src/sundials/shared -I/usr/include/python3.9 -O2 -flto=auto -ffat-lto-objects -fexceptions -g -grecord-gcc-switches -pipe -Wall -Werror=format-security -Wp,-D_FORTIFY_SOURCE=2 -Wp,-D_GLIBCXX_ASSERTIONS -specs=/usr/lib/rpm/redhat/redhat-hardened-cc1 -fstack-protector-strong -specs=/usr/lib/rpm/redhat/redhat-annobin-cc1  -fasynchronous-unwind-tables -fstack-clash-protection -fPIC -std=c++98 -o CMakeFiles/nrniv_lib.dir/kssingle.cpp.o -c /builddir/build/BUILD/nrn-7.8.1/src/nrniv/kssingle.cpp
make[2]: Leaving directory '/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu'
/builddir/build/BUILD/nrn-7.8.1/src/nrniv/kssingle.cpp: In member function 'void KSSingle::state(Node*, double*, Datum*, NrnThread*)':
/builddir/build/BUILD/nrn-7.8.1/src/nrniv/kssingle.cpp:246:6: warning: unused variable 'i' [-Wunused-variable]
  246 |  int i;
      |      ^
/builddir/build/BUILD/nrn-7.8.1/src/nrniv/kssingle.cpp: In member function 'void KSSingle::cv_update(Node*, double*, Datum*, NrnThread*)':
/builddir/build/BUILD/nrn-7.8.1/src/nrniv/kssingle.cpp:262:6: warning: unused variable 'i' [-Wunused-variable]
  262 |  int i;
      |      ^
make[2]: Entering directory '/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu'
[ 29%] Building CXX object src/nrniv/CMakeFiles/nrniv_lib.dir/matrixmap.cpp.o
cd /builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/nrniv && /usr/bin/g++ -DHAVE_CONFIG_H -Dnrniv_lib_EXPORTS -DCABLE=1 -DOOP=1 -DUSEBBS=1 -DUSECVODE=1 -DUSEMATRIX=1 -I/builddir/build/BUILD/nrn-7.8.1/src/ivoc -I/builddir/build/BUILD/nrn-7.8.1/src/nrniv -I/builddir/build/BUILD/nrn-7.8.1/src/nrnoc -I/builddir/build/BUILD/nrn-7.8.1/src/oc -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/nrncvode -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/nrnjava -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/nrnoc -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/nrnpython -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/oc -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/parallel -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/sundials -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/sundials/shared -I/builddir/build/BUILD/nrn-7.8.1/src -I/builddir/build/BUILD/nrn-7.8.1/src/gnu -I/builddir/build/BUILD/nrn-7.8.1/src/memacs -I/builddir/build/BUILD/nrn-7.8.1/src/mesch -I/builddir/build/BUILD/nrn-7.8.1/src/nrncvode -I/builddir/build/BUILD/nrn-7.8.1/src/nrnmpi -I/builddir/build/BUILD/nrn-7.8.1/src/nrnpython -I/builddir/build/BUILD/nrn-7.8.1/src/parallel -I/builddir/build/BUILD/nrn-7.8.1/src/sparse -I/builddir/build/BUILD/nrn-7.8.1/src/sparse13 -I/builddir/build/BUILD/nrn-7.8.1/src/sundials -I/builddir/build/BUILD/nrn-7.8.1/src/sundials/cvodes -I/builddir/build/BUILD/nrn-7.8.1/src/sundials/ida -I/builddir/build/BUILD/nrn-7.8.1/src/sundials/shared -I/usr/include/python3.9 -O2 -flto=auto -ffat-lto-objects -fexceptions -g -grecord-gcc-switches -pipe -Wall -Werror=format-security -Wp,-D_FORTIFY_SOURCE=2 -Wp,-D_GLIBCXX_ASSERTIONS -specs=/usr/lib/rpm/redhat/redhat-hardened-cc1 -fstack-protector-strong -specs=/usr/lib/rpm/redhat/redhat-annobin-cc1  -fasynchronous-unwind-tables -fstack-clash-protection -fPIC -std=c++98 -o CMakeFiles/nrniv_lib.dir/matrixmap.cpp.o -c /builddir/build/BUILD/nrn-7.8.1/src/nrniv/matrixmap.cpp
make[2]: Leaving directory '/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu'
In file included from /builddir/build/BUILD/nrn-7.8.1/src/nrniv/matrixmap.cpp:2:
/builddir/build/BUILD/nrn-7.8.1/src/nrniv/matrixmap.h: In constructor 'MatrixMap::MatrixMap(OcMatrix&)':
/builddir/build/BUILD/nrn-7.8.1/src/nrniv/matrixmap.h:63:11: warning: 'MatrixMap::ptree_' will be initialized after [-Wreorder]
   63 |  double** ptree_;
      |           ^~~~~~
/builddir/build/BUILD/nrn-7.8.1/src/nrniv/matrixmap.h:62:11: warning:   'double** MatrixMap::pm_' [-Wreorder]
   62 |  double** pm_;
      |           ^~~
/builddir/build/BUILD/nrn-7.8.1/src/nrniv/matrixmap.cpp:10:1: warning:   when initialized here [-Wreorder]
   10 | MatrixMap::MatrixMap(Matrix& mat)
      | ^~~~~~~~~
In file included from /builddir/build/BUILD/nrn-7.8.1/src/nrniv/matrixmap.cpp:2:
/builddir/build/BUILD/nrn-7.8.1/src/nrniv/matrixmap.h: In constructor 'MatrixMap::MatrixMap(OcMatrix*)':
/builddir/build/BUILD/nrn-7.8.1/src/nrniv/matrixmap.h:63:11: warning: 'MatrixMap::ptree_' will be initialized after [-Wreorder]
   63 |  double** ptree_;
      |           ^~~~~~
/builddir/build/BUILD/nrn-7.8.1/src/nrniv/matrixmap.h:62:11: warning:   'double** MatrixMap::pm_' [-Wreorder]
   62 |  double** pm_;
      |           ^~~
/builddir/build/BUILD/nrn-7.8.1/src/nrniv/matrixmap.cpp:14:1: warning:   when initialized here [-Wreorder]
   14 | MatrixMap::MatrixMap(Matrix* mat)
      | ^~~~~~~~~
/builddir/build/BUILD/nrn-7.8.1/src/nrniv/matrixmap.cpp: In member function 'void MatrixMap::alloc(int, int, Node**, int*)':
/builddir/build/BUILD/nrn-7.8.1/src/nrniv/matrixmap.cpp:50:23: warning: comparison of integer expressions of different signedness: 'int' and 'std::vector<int>::size_type' {aka 'long unsigned int'} [-Wsign-compare]
   50 |     for (int k = 0; k < nonzero_i.size(); k++) {
      |                     ~~^~~~~~~~~~~~~~~~~~
/builddir/build/BUILD/nrn-7.8.1/src/nrniv/matrixmap.cpp:41:6: warning: unused variable 'nrow' [-Wunused-variable]
   41 |  int nrow = m_.nrow();
      |      ^~~~
/builddir/build/BUILD/nrn-7.8.1/src/nrniv/matrixmap.cpp:42:6: warning: unused variable 'ncol' [-Wunused-variable]
   42 |  int ncol = m_.ncol();
      |      ^~~~
make[2]: Entering directory '/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu'
[ 30%] Building CXX object src/nrniv/CMakeFiles/nrniv_lib.dir/ndatclas.cpp.o
cd /builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/nrniv && /usr/bin/g++ -DHAVE_CONFIG_H -Dnrniv_lib_EXPORTS -DCABLE=1 -DOOP=1 -DUSEBBS=1 -DUSECVODE=1 -DUSEMATRIX=1 -I/builddir/build/BUILD/nrn-7.8.1/src/ivoc -I/builddir/build/BUILD/nrn-7.8.1/src/nrniv -I/builddir/build/BUILD/nrn-7.8.1/src/nrnoc -I/builddir/build/BUILD/nrn-7.8.1/src/oc -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/nrncvode -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/nrnjava -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/nrnoc -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/nrnpython -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/oc -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/parallel -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/sundials -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/sundials/shared -I/builddir/build/BUILD/nrn-7.8.1/src -I/builddir/build/BUILD/nrn-7.8.1/src/gnu -I/builddir/build/BUILD/nrn-7.8.1/src/memacs -I/builddir/build/BUILD/nrn-7.8.1/src/mesch -I/builddir/build/BUILD/nrn-7.8.1/src/nrncvode -I/builddir/build/BUILD/nrn-7.8.1/src/nrnmpi -I/builddir/build/BUILD/nrn-7.8.1/src/nrnpython -I/builddir/build/BUILD/nrn-7.8.1/src/parallel -I/builddir/build/BUILD/nrn-7.8.1/src/sparse -I/builddir/build/BUILD/nrn-7.8.1/src/sparse13 -I/builddir/build/BUILD/nrn-7.8.1/src/sundials -I/builddir/build/BUILD/nrn-7.8.1/src/sundials/cvodes -I/builddir/build/BUILD/nrn-7.8.1/src/sundials/ida -I/builddir/build/BUILD/nrn-7.8.1/src/sundials/shared -I/usr/include/python3.9 -O2 -flto=auto -ffat-lto-objects -fexceptions -g -grecord-gcc-switches -pipe -Wall -Werror=format-security -Wp,-D_FORTIFY_SOURCE=2 -Wp,-D_GLIBCXX_ASSERTIONS -specs=/usr/lib/rpm/redhat/redhat-hardened-cc1 -fstack-protector-strong -specs=/usr/lib/rpm/redhat/redhat-annobin-cc1  -fasynchronous-unwind-tables -fstack-clash-protection -fPIC -std=c++98 -o CMakeFiles/nrniv_lib.dir/ndatclas.cpp.o -c /builddir/build/BUILD/nrn-7.8.1/src/nrniv/ndatclas.cpp
make[2]: Leaving directory '/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu'
/builddir/build/BUILD/nrn-7.8.1/src/nrniv/ndatclas.cpp: In member function 'bool NrnProperty::more_var()':
/builddir/build/BUILD/nrn-7.8.1/src/nrniv/ndatclas.cpp:138:22: warning: comparison of integer expressions of different signedness: 'int' and 'unsigned int' [-Wsign-compare]
  138 |  if (npi_->iterator_ >= npi_->sym_->s_varn) {
      |      ~~~~~~~~~~~~~~~~^~~~~~~~~~~~~~~~~~~~~
make[2]: Entering directory '/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu'
[ 30%] Building CXX object src/nrniv/CMakeFiles/nrniv_lib.dir/netpar.cpp.o
cd /builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/nrniv && /usr/bin/g++ -DHAVE_CONFIG_H -Dnrniv_lib_EXPORTS -DCABLE=1 -DOOP=1 -DUSEBBS=1 -DUSECVODE=1 -DUSEMATRIX=1 -I/builddir/build/BUILD/nrn-7.8.1/src/ivoc -I/builddir/build/BUILD/nrn-7.8.1/src/nrniv -I/builddir/build/BUILD/nrn-7.8.1/src/nrnoc -I/builddir/build/BUILD/nrn-7.8.1/src/oc -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/nrncvode -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/nrnjava -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/nrnoc -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/nrnpython -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/oc -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/parallel -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/sundials -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/sundials/shared -I/builddir/build/BUILD/nrn-7.8.1/src -I/builddir/build/BUILD/nrn-7.8.1/src/gnu -I/builddir/build/BUILD/nrn-7.8.1/src/memacs -I/builddir/build/BUILD/nrn-7.8.1/src/mesch -I/builddir/build/BUILD/nrn-7.8.1/src/nrncvode -I/builddir/build/BUILD/nrn-7.8.1/src/nrnmpi -I/builddir/build/BUILD/nrn-7.8.1/src/nrnpython -I/builddir/build/BUILD/nrn-7.8.1/src/parallel -I/builddir/build/BUILD/nrn-7.8.1/src/sparse -I/builddir/build/BUILD/nrn-7.8.1/src/sparse13 -I/builddir/build/BUILD/nrn-7.8.1/src/sundials -I/builddir/build/BUILD/nrn-7.8.1/src/sundials/cvodes -I/builddir/build/BUILD/nrn-7.8.1/src/sundials/ida -I/builddir/build/BUILD/nrn-7.8.1/src/sundials/shared -I/usr/include/python3.9 -O2 -flto=auto -ffat-lto-objects -fexceptions -g -grecord-gcc-switches -pipe -Wall -Werror=format-security -Wp,-D_FORTIFY_SOURCE=2 -Wp,-D_GLIBCXX_ASSERTIONS -specs=/usr/lib/rpm/redhat/redhat-hardened-cc1 -fstack-protector-strong -specs=/usr/lib/rpm/redhat/redhat-annobin-cc1  -fasynchronous-unwind-tables -fstack-clash-protection -fPIC -std=c++98 -o CMakeFiles/nrniv_lib.dir/netpar.cpp.o -c /builddir/build/BUILD/nrn-7.8.1/src/nrniv/netpar.cpp
make[2]: Leaving directory '/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu'
/builddir/build/BUILD/nrn-7.8.1/src/nrniv/netpar.cpp: In member function 'virtual void NetParEvent::deliver(double, NetCvode*, NrnThread*)':
/builddir/build/BUILD/nrn-7.8.1/src/nrniv/netpar.cpp:251:6: warning: unused variable 'seq' [-Wunused-variable]
  251 |  int seq;
      |      ^~~
/builddir/build/BUILD/nrn-7.8.1/src/nrniv/netpar.cpp: In function 'void nrn_cleanup_presyn(PreSyn*)':
/builddir/build/BUILD/nrn-7.8.1/src/nrniv/netpar.cpp:964:10: warning: unused variable 'pss' [-Wunused-variable]
  964 |  PreSyn* pss;
      |          ^~~
/builddir/build/BUILD/nrn-7.8.1/src/nrniv/netpar.cpp: In function 'void nrnmpi_gid_clear(int)':
/builddir/build/BUILD/nrn-7.8.1/src/nrniv/netpar.cpp:980:10: warning: unused variable 'ps' [-Wunused-variable]
  980 |  PreSyn* ps, *psi;
      |          ^~
/builddir/build/BUILD/nrn-7.8.1/src/nrniv/netpar.cpp: In function 'void nrn_gidout_iter(PFIO)':
/builddir/build/BUILD/nrn-7.8.1/src/nrniv/netpar.cpp:1508:10: warning: unused variable 'ps' [-Wunused-variable]
 1508 |  PreSyn* ps;
      |          ^~
/builddir/build/BUILD/nrn-7.8.1/src/nrniv/netpar.cpp: In function 'size_t nrncore_netpar_bytes()':
/builddir/build/BUILD/nrn-7.8.1/src/nrniv/netpar.cpp:1529:11: warning: unused variable 'ps' [-Wunused-variable]
 1529 |   PreSyn* ps;
      |           ^~
/builddir/build/BUILD/nrn-7.8.1/src/nrniv/netpar.cpp: In function 'void nrncore_netpar_cellgroups_helper(nrncore_CellGroup*)':
/builddir/build/BUILD/nrn-7.8.1/src/nrniv/netpar.cpp:1580:11: warning: unused variable 'ps' [-Wunused-variable]
 1580 |   PreSyn* ps;
      |           ^~
/builddir/build/BUILD/nrn-7.8.1/src/nrniv/netpar.cpp: At global scope:
/builddir/build/BUILD/nrn-7.8.1/src/nrniv/netpar.cpp:39:15: warning: 'dt1_' defined but not used [-Wunused-variable]
   39 | static double dt1_; // 1/dt
      |               ^~~~
/builddir/build/BUILD/nrn-7.8.1/src/nrniv/netpar.cpp:38:15: warning: 't_exchange_' defined but not used [-Wunused-variable]
   38 | static double t_exchange_;
      |               ^~~~~~~~~~~
/builddir/build/BUILD/nrn-7.8.1/src/nrniv/netpar.cpp:32:12: warning: 'n_bgp_interval' defined but not used [-Wunused-variable]
   32 | static int n_bgp_interval;
      |            ^~~~~~~~~~~~~~
make[2]: Entering directory '/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu'
[ 29%] Building CXX object src/nrniv/CMakeFiles/nrniv_lib.dir/kschan.cpp.o
cd /builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/nrniv && /usr/bin/g++ -DHAVE_CONFIG_H -Dnrniv_lib_EXPORTS -DCABLE=1 -DOOP=1 -DUSEBBS=1 -DUSECVODE=1 -DUSEMATRIX=1 -I/builddir/build/BUILD/nrn-7.8.1/src/ivoc -I/builddir/build/BUILD/nrn-7.8.1/src/nrniv -I/builddir/build/BUILD/nrn-7.8.1/src/nrnoc -I/builddir/build/BUILD/nrn-7.8.1/src/oc -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/nrncvode -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/nrnjava -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/nrnoc -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/nrnpython -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/oc -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/parallel -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/sundials -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/sundials/shared -I/builddir/build/BUILD/nrn-7.8.1/src -I/builddir/build/BUILD/nrn-7.8.1/src/gnu -I/builddir/build/BUILD/nrn-7.8.1/src/memacs -I/builddir/build/BUILD/nrn-7.8.1/src/mesch -I/builddir/build/BUILD/nrn-7.8.1/src/nrncvode -I/builddir/build/BUILD/nrn-7.8.1/src/nrnmpi -I/builddir/build/BUILD/nrn-7.8.1/src/nrnpython -I/builddir/build/BUILD/nrn-7.8.1/src/parallel -I/builddir/build/BUILD/nrn-7.8.1/src/sparse -I/builddir/build/BUILD/nrn-7.8.1/src/sparse13 -I/builddir/build/BUILD/nrn-7.8.1/src/sundials -I/builddir/build/BUILD/nrn-7.8.1/src/sundials/cvodes -I/builddir/build/BUILD/nrn-7.8.1/src/sundials/ida -I/builddir/build/BUILD/nrn-7.8.1/src/sundials/shared -I/usr/include/python3.9 -O2 -flto=auto -ffat-lto-objects -fexceptions -g -grecord-gcc-switches -pipe -Wall -Werror=format-security -Wp,-D_FORTIFY_SOURCE=2 -Wp,-D_GLIBCXX_ASSERTIONS -specs=/usr/lib/rpm/redhat/redhat-hardened-cc1 -fstack-protector-strong -specs=/usr/lib/rpm/redhat/redhat-annobin-cc1  -fasynchronous-unwind-tables -fstack-clash-protection -fPIC -std=c++98 -o CMakeFiles/nrniv_lib.dir/kschan.cpp.o -c /builddir/build/BUILD/nrn-7.8.1/src/nrniv/kschan.cpp
make[2]: Leaving directory '/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu'
/builddir/build/BUILD/nrn-7.8.1/src/nrniv/kschan.cpp: In function 'double ks_vres(void*)':
/builddir/build/BUILD/nrn-7.8.1/src/nrniv/kschan.cpp:292:10: warning: unused variable 'ks' [-Wunused-variable]
  292 |  KSChan* ks = (KSChan*)v;
      |          ^~
/builddir/build/BUILD/nrn-7.8.1/src/nrniv/kschan.cpp: In function 'double ks_rseed(void*)':
/builddir/build/BUILD/nrn-7.8.1/src/nrniv/kschan.cpp:301:10: warning: unused variable 'ks' [-Wunused-variable]
  301 |  KSChan* ks = (KSChan*)v;
      |          ^~
/builddir/build/BUILD/nrn-7.8.1/src/nrniv/kschan.cpp: In function 'double ks_pr(void*)':
/builddir/build/BUILD/nrn-7.8.1/src/nrniv/kschan.cpp:653:10: warning: unused variable 's' [-Wunused-variable]
  653 |  Symbol* s;
      |          ^
/builddir/build/BUILD/nrn-7.8.1/src/nrniv/kschan.cpp:655:9: warning: unused variable 'j' [-Wunused-variable]
  655 |  int i, j;
      |         ^
/builddir/build/BUILD/nrn-7.8.1/src/nrniv/kschan.cpp: In constructor 'KSChan::KSChan(Object*, bool)':
/builddir/build/BUILD/nrn-7.8.1/src/nrniv/kschan.cpp:874:6: warning: unused variable 'i' [-Wunused-variable]
  874 |  int i;
      |      ^
/builddir/build/BUILD/nrn-7.8.1/src/nrniv/kschan.cpp: In member function 'void KSChan::setname(const char*)':
/builddir/build/BUILD/nrn-7.8.1/src/nrniv/kschan.cpp:990:32: warning: comparison of integer expressions of different signedness: 'int' and 'unsigned int' [-Wsign-compare]
  990 |   if (!is_point()) for (i=0; i < rlsym_->s_varn; ++i) {
      |                              ~~^~~~~~~~~~~~~~~~
/builddir/build/BUILD/nrn-7.8.1/src/nrniv/kschan.cpp: In member function 'void KSChan::setion(const char*)':
/builddir/build/BUILD/nrn-7.8.1/src/nrniv/kschan.cpp:1202:19: warning: comparison of integer expressions of different signedness: 'int' and 'unsigned int' [-Wsign-compare]
 1202 |    for (i=2+io; i <  rlsym_->s_varn; ++i) {
      |                 ~~^~~~~~~~~~~~~~~~~
/builddir/build/BUILD/nrn-7.8.1/src/nrniv/kschan.cpp:1240:21: warning: comparison of integer expressions of different signedness: 'int' and 'unsigned int' [-Wsign-compare]
 1240 |    for (i=1 + io; i <  rlsym_->s_varn; ++i) {
      |                   ~~^~~~~~~~~~~~~~~~~
/builddir/build/BUILD/nrn-7.8.1/src/nrniv/kschan.cpp: In member function 'void KSChan::free1()':
/builddir/build/BUILD/nrn-7.8.1/src/nrniv/kschan.cpp:1270:22: warning: deleting object of polymorphic class type 'KSIv' which has non-virtual destructor might cause undefined behavior [-Wdelete-non-virtual-dtor]
 1270 |  if (iv_relation_) { delete iv_relation_; iv_relation_ = NULL; }
      |                      ^~~~~~~~~~~~~~~~~~~
/builddir/build/BUILD/nrn-7.8.1/src/nrniv/kschan.cpp: In member function 'void KSChan::setcond()':
/builddir/build/BUILD/nrn-7.8.1/src/nrniv/kschan.cpp:1289:22: warning: deleting object of polymorphic class type 'KSIv' which has non-virtual destructor might cause undefined behavior [-Wdelete-non-virtual-dtor]
 1289 |  if (iv_relation_) { delete iv_relation_; }
      |                      ^~~~~~~~~~~~~~~~~~~
/builddir/build/BUILD/nrn-7.8.1/src/nrniv/kschan.cpp: In member function 'void KSChan::settype(KSTransition*, int, const char*)':
/builddir/build/BUILD/nrn-7.8.1/src/nrniv/kschan.cpp:1443:7: warning: variable 'move' set but not used [-Wunused-but-set-variable]
 1443 |  bool move = true;
      |       ^~~~
/builddir/build/BUILD/nrn-7.8.1/src/nrniv/kschan.cpp: In member function 'void KSChan::ion_consist()':
/builddir/build/BUILD/nrn-7.8.1/src/nrniv/kschan.cpp:2249:11: warning: unused variable 'sec' [-Wunused-variable]
 2249 |  Section* sec;
      |           ^~~
/builddir/build/BUILD/nrn-7.8.1/src/nrniv/kschan.cpp: In member function 'void KSChan::state_consist(int)':
/builddir/build/BUILD/nrn-7.8.1/src/nrniv/kschan.cpp:2308:11: warning: unused variable 'sec' [-Wunused-variable]
 2308 |  Section* sec;
      |           ^~~
/builddir/build/BUILD/nrn-7.8.1/src/nrniv/kschan.cpp: In member function 'virtual void KSChan::cv_sc_update(int, Node**, double**, Datum**, NrnThread*)':
/builddir/build/BUILD/nrn-7.8.1/src/nrniv/kschan.cpp:2910:9: warning: unused variable 'j' [-Wunused-variable]
 2910 |  int i, j;
      |         ^
/builddir/build/BUILD/nrn-7.8.1/src/nrniv/kschan.cpp:2911:10: warning: unused variable 's' [-Wunused-variable]
 2911 |  double* s;
      |          ^
/builddir/build/BUILD/nrn-7.8.1/src/nrniv/kschan.cpp: In member function 'void KSChan::usetable(bool)':
/builddir/build/BUILD/nrn-7.8.1/src/nrniv/kschan.cpp:3043:6: warning: unused variable 'i' [-Wunused-variable]
 3043 |  int i;
      |      ^
In file included from /usr/include/string.h:519,
                 from /builddir/build/BUILD/nrn-7.8.1/src/nrniv/kschan.cpp:2:
In function 'strncpy',
    inlined from 'kst_ligand(void*)' at /builddir/build/BUILD/nrn-7.8.1/src/nrniv/kschan.cpp:633:10:
/usr/include/bits/string_fortified.h:91:34: warning: 'strncpy' specified bound 20 equals destination size [-Wstringop-truncation]
   91 |   return __builtin___strncpy_chk (__dest, __src, __len, __bos (__dest));
      |          ~~~~~~~~~~~~~~~~~~~~~~~~^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
make[2]: Entering directory '/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu'
[ 30%] Building CXX object src/nrniv/CMakeFiles/nrniv_lib.dir/nonlinz.cpp.o
cd /builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/nrniv && /usr/bin/g++ -DHAVE_CONFIG_H -Dnrniv_lib_EXPORTS -DCABLE=1 -DOOP=1 -DUSEBBS=1 -DUSECVODE=1 -DUSEMATRIX=1 -I/builddir/build/BUILD/nrn-7.8.1/src/ivoc -I/builddir/build/BUILD/nrn-7.8.1/src/nrniv -I/builddir/build/BUILD/nrn-7.8.1/src/nrnoc -I/builddir/build/BUILD/nrn-7.8.1/src/oc -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/nrncvode -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/nrnjava -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/nrnoc -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/nrnpython -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/oc -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/parallel -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/sundials -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/sundials/shared -I/builddir/build/BUILD/nrn-7.8.1/src -I/builddir/build/BUILD/nrn-7.8.1/src/gnu -I/builddir/build/BUILD/nrn-7.8.1/src/memacs -I/builddir/build/BUILD/nrn-7.8.1/src/mesch -I/builddir/build/BUILD/nrn-7.8.1/src/nrncvode -I/builddir/build/BUILD/nrn-7.8.1/src/nrnmpi -I/builddir/build/BUILD/nrn-7.8.1/src/nrnpython -I/builddir/build/BUILD/nrn-7.8.1/src/parallel -I/builddir/build/BUILD/nrn-7.8.1/src/sparse -I/builddir/build/BUILD/nrn-7.8.1/src/sparse13 -I/builddir/build/BUILD/nrn-7.8.1/src/sundials -I/builddir/build/BUILD/nrn-7.8.1/src/sundials/cvodes -I/builddir/build/BUILD/nrn-7.8.1/src/sundials/ida -I/builddir/build/BUILD/nrn-7.8.1/src/sundials/shared -I/usr/include/python3.9 -O2 -flto=auto -ffat-lto-objects -fexceptions -g -grecord-gcc-switches -pipe -Wall -Werror=format-security -Wp,-D_FORTIFY_SOURCE=2 -Wp,-D_GLIBCXX_ASSERTIONS -specs=/usr/lib/rpm/redhat/redhat-hardened-cc1 -fstack-protector-strong -specs=/usr/lib/rpm/redhat/redhat-annobin-cc1  -fasynchronous-unwind-tables -fstack-clash-protection -fPIC -std=c++98 -o CMakeFiles/nrniv_lib.dir/nonlinz.cpp.o -c /builddir/build/BUILD/nrn-7.8.1/src/nrniv/nonlinz.cpp
make[2]: Leaving directory '/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu'
/builddir/build/BUILD/nrn-7.8.1/src/nrniv/nonlinz.cpp: In constructor 'NonLinImpRep::NonLinImpRep()':
/builddir/build/BUILD/nrn-7.8.1/src/nrniv/nonlinz.cpp:206:9: warning: unused variable 'j' [-Wunused-variable]
  206 |  int i, j, ieq, cnt;
      |         ^
/builddir/build/BUILD/nrn-7.8.1/src/nrniv/nonlinz.cpp:206:12: warning: unused variable 'ieq' [-Wunused-variable]
  206 |  int i, j, ieq, cnt;
      |            ^~~
/builddir/build/BUILD/nrn-7.8.1/src/nrniv/nonlinz.cpp: In member function 'void NonLinImpRep::dsds()':
/builddir/build/BUILD/nrn-7.8.1/src/nrniv/nonlinz.cpp:520:50: warning: unused variable 'nd' [-Wunused-variable]
  520 |   for (in = 0; in < ml->nodecount; ++in) { Node* nd = ml->nodelist[in];
      |                                                  ^~
/builddir/build/BUILD/nrn-7.8.1/src/nrniv/nonlinz.cpp: In member function 'void NonLinImpRep::ode(int, Memb_list*)':
/builddir/build/BUILD/nrn-7.8.1/src/nrniv/nonlinz.cpp:557:6: warning: unused variable 'i' [-Wunused-variable]
  557 |  int i, nc;
      |      ^
/builddir/build/BUILD/nrn-7.8.1/src/nrniv/nonlinz.cpp:557:9: warning: variable 'nc' set but not used [-Wunused-but-set-variable]
  557 |  int i, nc;
      |         ^~
/builddir/build/BUILD/nrn-7.8.1/src/nrniv/nonlinz.cpp: In member function 'NonLinImpRep::gapsolve()':
/builddir/build/BUILD/nrn-7.8.1/src/nrniv/nonlinz.cpp:619:20: warning: 'jb' may be used uninitialized in this function [-Wmaybe-uninitialized]
  619 |       cmplx_spSolve(m_, rb-1, rx1-1, jb-1, jx1-1);
      |       ~~~~~~~~~~~~~^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
/builddir/build/BUILD/nrn-7.8.1/src/nrniv/nonlinz.cpp:619:20: warning: 'rb' may be used uninitialized in this function [-Wmaybe-uninitialized]
/builddir/build/BUILD/nrn-7.8.1/src/nrniv/nonlinz.cpp:619:20: warning: 'jx1' may be used uninitialized in this function [-Wmaybe-uninitialized]
/builddir/build/BUILD/nrn-7.8.1/src/nrniv/nonlinz.cpp:619:20: warning: 'rx1' may be used uninitialized in this function [-Wmaybe-uninitialized]
/builddir/build/BUILD/nrn-7.8.1/src/nrniv/nonlinz.cpp:591:16: warning: 'jx' may be used uninitialized in this function [-Wmaybe-uninitialized]
  591 |   double *rx, *jx, *rx1, *jx1, *rb, *jb;
      |                ^~
/builddir/build/BUILD/nrn-7.8.1/src/nrniv/nonlinz.cpp:591:11: warning: 'rx' may be used uninitialized in this function [-Wmaybe-uninitialized]
  591 |   double *rx, *jx, *rx1, *jx1, *rb, *jb;
      |           ^~
make[2]: Entering directory '/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu'
[ 30%] Building CXX object src/nrniv/CMakeFiles/nrniv_lib.dir/multisplit.cpp.o
cd /builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/nrniv && /usr/bin/g++ -DHAVE_CONFIG_H -Dnrniv_lib_EXPORTS -DCABLE=1 -DOOP=1 -DUSEBBS=1 -DUSECVODE=1 -DUSEMATRIX=1 -I/builddir/build/BUILD/nrn-7.8.1/src/ivoc -I/builddir/build/BUILD/nrn-7.8.1/src/nrniv -I/builddir/build/BUILD/nrn-7.8.1/src/nrnoc -I/builddir/build/BUILD/nrn-7.8.1/src/oc -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/nrncvode -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/nrnjava -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/nrnoc -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/nrnpython -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/oc -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/parallel -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/sundials -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/sundials/shared -I/builddir/build/BUILD/nrn-7.8.1/src -I/builddir/build/BUILD/nrn-7.8.1/src/gnu -I/builddir/build/BUILD/nrn-7.8.1/src/memacs -I/builddir/build/BUILD/nrn-7.8.1/src/mesch -I/builddir/build/BUILD/nrn-7.8.1/src/nrncvode -I/builddir/build/BUILD/nrn-7.8.1/src/nrnmpi -I/builddir/build/BUILD/nrn-7.8.1/src/nrnpython -I/builddir/build/BUILD/nrn-7.8.1/src/parallel -I/builddir/build/BUILD/nrn-7.8.1/src/sparse -I/builddir/build/BUILD/nrn-7.8.1/src/sparse13 -I/builddir/build/BUILD/nrn-7.8.1/src/sundials -I/builddir/build/BUILD/nrn-7.8.1/src/sundials/cvodes -I/builddir/build/BUILD/nrn-7.8.1/src/sundials/ida -I/builddir/build/BUILD/nrn-7.8.1/src/sundials/shared -I/usr/include/python3.9 -O2 -flto=auto -ffat-lto-objects -fexceptions -g -grecord-gcc-switches -pipe -Wall -Werror=format-security -Wp,-D_FORTIFY_SOURCE=2 -Wp,-D_GLIBCXX_ASSERTIONS -specs=/usr/lib/rpm/redhat/redhat-hardened-cc1 -fstack-protector-strong -specs=/usr/lib/rpm/redhat/redhat-annobin-cc1  -fasynchronous-unwind-tables -fstack-clash-protection -fPIC -std=c++98 -o CMakeFiles/nrniv_lib.dir/multisplit.cpp.o -c /builddir/build/BUILD/nrn-7.8.1/src/nrniv/multisplit.cpp
make[2]: Leaving directory '/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu'
/builddir/build/BUILD/nrn-7.8.1/src/nrniv/multisplit.cpp: In member function 'void MultiSplitControl::multisplit_clear()':
/builddir/build/BUILD/nrn-7.8.1/src/nrniv/multisplit.cpp:523:15: warning: unused variable 'ms' [-Wunused-variable]
  523 |   MultiSplit* ms;
      |               ^~
/builddir/build/BUILD/nrn-7.8.1/src/nrniv/multisplit.cpp: In member function 'void MultiSplitControl::prstruct()':
/builddir/build/BUILD/nrn-7.8.1/src/nrniv/multisplit.cpp:1773:9: warning: unused variable 'nd' [-Wunused-variable]
 1773 |   Node* nd = ms->nd[0];
      |         ^~
/builddir/build/BUILD/nrn-7.8.1/src/nrniv/multisplit.cpp: In member function 'void MultiSplitControl::multisplit_nocap_v_part3(NrnThread*)':
/builddir/build/BUILD/nrn-7.8.1/src/nrniv/multisplit.cpp:1956:9: warning: unused variable 'j' [-Wunused-variable]
 1956 |  int i, j;
      |         ^
/builddir/build/BUILD/nrn-7.8.1/src/nrniv/multisplit.cpp: In member function 'void MultiSplitControl::matrix_exchange()':
/builddir/build/BUILD/nrn-7.8.1/src/nrniv/multisplit.cpp:2020:9: warning: unused variable 'wt' [-Wunused-variable]
 2020 |  double wt = nrnmpi_wtime();
      |         ^~
/builddir/build/BUILD/nrn-7.8.1/src/nrniv/multisplit.cpp: In member function 'void MultiSplitControl::matrix_exchange_nocap()':
/builddir/build/BUILD/nrn-7.8.1/src/nrniv/multisplit.cpp:2227:9: warning: unused variable 'wt' [-Wunused-variable]
 2227 |  double wt = nrnmpi_wtime();
      |         ^~
/builddir/build/BUILD/nrn-7.8.1/src/nrniv/multisplit.cpp: In destructor 'virtual ReducedTree::~ReducedTree()':
/builddir/build/BUILD/nrn-7.8.1/src/nrniv/multisplit.cpp:2454:6: warning: unused variable 'i' [-Wunused-variable]
 2454 |  int i;
      |      ^
/builddir/build/BUILD/nrn-7.8.1/src/nrniv/multisplit.cpp: In member function 'void MultiSplitThread::bksub_backbone(NrnThread*)':
/builddir/build/BUILD/nrn-7.8.1/src/nrniv/multisplit.cpp:2819:12: warning: unused variable 'ip' [-Wunused-variable]
 2819 |  int i, j, ip, ip1, ip2;
      |            ^~
/builddir/build/BUILD/nrn-7.8.1/src/nrniv/multisplit.cpp:2819:16: warning: unused variable 'ip1' [-Wunused-variable]
 2819 |  int i, j, ip, ip1, ip2;
      |                ^~~
/builddir/build/BUILD/nrn-7.8.1/src/nrniv/multisplit.cpp:2819:21: warning: unused variable 'ip2' [-Wunused-variable]
 2819 |  int i, j, ip, ip1, ip2;
      |                     ^~~
/builddir/build/BUILD/nrn-7.8.1/src/nrniv/multisplit.cpp: In member function 'void MultiSplitControl::pmat(bool)':
/builddir/build/BUILD/nrn-7.8.1/src/nrniv/multisplit.cpp:3291:12: warning: unused variable 'ip' [-Wunused-variable]
 3291 | int it, i, ip, is;
      |            ^~
/builddir/build/BUILD/nrn-7.8.1/src/nrniv/multisplit.cpp: In member function 'void MultiSplitControl::pmatf(bool)':
/builddir/build/BUILD/nrn-7.8.1/src/nrniv/multisplit.cpp:3321:12: warning: unused variable 'ip' [-Wunused-variable]
 3321 | int it, i, ip, is;
      |            ^~
/builddir/build/BUILD/nrn-7.8.1/src/nrniv/multisplit.cpp: At global scope:
/builddir/build/BUILD/nrn-7.8.1/src/nrniv/multisplit.cpp:43:15: warning: 'nrnmpi_splitcell_wait_' defined but not used [-Wunused-variable]
   43 | static double nrnmpi_splitcell_wait_;
      |               ^~~~~~~~~~~~~~~~~~~~~~
/builddir/build/BUILD/nrn-7.8.1/src/nrniv/multisplit.cpp: In member function 'MultiSplitControl::multisplit(Section*, double, int, int)':
/builddir/build/BUILD/nrn-7.8.1/src/nrniv/multisplit.cpp:411:17: warning: 'root' may be used uninitialized in this function [-Wmaybe-uninitialized]
  411 |    hoc_execerror(s, secname(root->sec));
      |    ~~~~~~~~~~~~~^~~~~~~~~~~~~~~~~~~~~~~
make[2]: Entering directory '/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu'
[ 31%] Building CXX object src/nrniv/CMakeFiles/nrniv_lib.dir/nrndae.cpp.o
cd /builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/nrniv && /usr/bin/g++ -DHAVE_CONFIG_H -Dnrniv_lib_EXPORTS -DCABLE=1 -DOOP=1 -DUSEBBS=1 -DUSECVODE=1 -DUSEMATRIX=1 -I/builddir/build/BUILD/nrn-7.8.1/src/ivoc -I/builddir/build/BUILD/nrn-7.8.1/src/nrniv -I/builddir/build/BUILD/nrn-7.8.1/src/nrnoc -I/builddir/build/BUILD/nrn-7.8.1/src/oc -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/nrncvode -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/nrnjava -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/nrnoc -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/nrnpython -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/oc -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/parallel -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/sundials -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/sundials/shared -I/builddir/build/BUILD/nrn-7.8.1/src -I/builddir/build/BUILD/nrn-7.8.1/src/gnu -I/builddir/build/BUILD/nrn-7.8.1/src/memacs -I/builddir/build/BUILD/nrn-7.8.1/src/mesch -I/builddir/build/BUILD/nrn-7.8.1/src/nrncvode -I/builddir/build/BUILD/nrn-7.8.1/src/nrnmpi -I/builddir/build/BUILD/nrn-7.8.1/src/nrnpython -I/builddir/build/BUILD/nrn-7.8.1/src/parallel -I/builddir/build/BUILD/nrn-7.8.1/src/sparse -I/builddir/build/BUILD/nrn-7.8.1/src/sparse13 -I/builddir/build/BUILD/nrn-7.8.1/src/sundials -I/builddir/build/BUILD/nrn-7.8.1/src/sundials/cvodes -I/builddir/build/BUILD/nrn-7.8.1/src/sundials/ida -I/builddir/build/BUILD/nrn-7.8.1/src/sundials/shared -I/usr/include/python3.9 -O2 -flto=auto -ffat-lto-objects -fexceptions -g -grecord-gcc-switches -pipe -Wall -Werror=format-security -Wp,-D_FORTIFY_SOURCE=2 -Wp,-D_GLIBCXX_ASSERTIONS -specs=/usr/lib/rpm/redhat/redhat-hardened-cc1 -fstack-protector-strong -specs=/usr/lib/rpm/redhat/redhat-annobin-cc1  -fasynchronous-unwind-tables -fstack-clash-protection -fPIC -std=c++98 -o CMakeFiles/nrniv_lib.dir/nrndae.cpp.o -c /builddir/build/BUILD/nrn-7.8.1/src/nrniv/nrndae.cpp
make[2]: Leaving directory '/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu'
In file included from /builddir/build/BUILD/nrn-7.8.1/src/nrniv/nrndae.cpp:3:
/builddir/build/BUILD/nrn-7.8.1/src/nrniv/nrndae.h: In constructor 'NrnDAE::NrnDAE(OcMatrix*, IvocVect*, IvocVect*, int, Node**, IvocVect*, void (*)(void*), void*)':
/builddir/build/BUILD/nrn-7.8.1/src/nrniv/nrndae.h:186:7: warning: 'NrnDAE::yptmp_' will be initialized after [-Wreorder]
  186 |  Vect yptmp_;
      |       ^~~~~~
/builddir/build/BUILD/nrn-7.8.1/src/nrniv/nrndae.h:183:7: warning:   'IvocVect NrnDAE::cyp_' [-Wreorder]
  183 |  Vect cyp_;
      |       ^~~~
/builddir/build/BUILD/nrn-7.8.1/src/nrniv/nrndae.cpp:137:1: warning:   when initialized here [-Wreorder]
  137 | NrnDAE::NrnDAE(Matrix* cmat, Vect* const yvec, Vect* const y0, int nnode,
      | ^~~~~~
In file included from /builddir/build/BUILD/nrn-7.8.1/src/nrniv/nrndae.cpp:3:
/builddir/build/BUILD/nrn-7.8.1/src/nrniv/nrndae.h:183:7: warning: 'NrnDAE::cyp_' will be initialized after [-Wreorder]
  183 |  Vect cyp_;
      |       ^~~~
/builddir/build/BUILD/nrn-7.8.1/src/nrniv/nrndae.h:139:12: warning:   'void (* NrnDAE::f_init_)(void*)' [-Wreorder]
  139 |     void (*f_init_)(void* data);
      |            ^~~~~~~
/builddir/build/BUILD/nrn-7.8.1/src/nrniv/nrndae.cpp:137:1: warning:   when initialized here [-Wreorder]
  137 | NrnDAE::NrnDAE(Matrix* cmat, Vect* const yvec, Vect* const y0, int nnode,
      | ^~~~~~
make[2]: Entering directory '/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu'
[ 31%] Building CXX object src/nrniv/CMakeFiles/nrniv_lib.dir/nrndaspk.cpp.o
cd /builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/nrniv && /usr/bin/g++ -DHAVE_CONFIG_H -Dnrniv_lib_EXPORTS -DCABLE=1 -DOOP=1 -DUSEBBS=1 -DUSECVODE=1 -DUSEMATRIX=1 -I/builddir/build/BUILD/nrn-7.8.1/src/ivoc -I/builddir/build/BUILD/nrn-7.8.1/src/nrniv -I/builddir/build/BUILD/nrn-7.8.1/src/nrnoc -I/builddir/build/BUILD/nrn-7.8.1/src/oc -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/nrncvode -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/nrnjava -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/nrnoc -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/nrnpython -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/oc -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/parallel -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/sundials -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/sundials/shared -I/builddir/build/BUILD/nrn-7.8.1/src -I/builddir/build/BUILD/nrn-7.8.1/src/gnu -I/builddir/build/BUILD/nrn-7.8.1/src/memacs -I/builddir/build/BUILD/nrn-7.8.1/src/mesch -I/builddir/build/BUILD/nrn-7.8.1/src/nrncvode -I/builddir/build/BUILD/nrn-7.8.1/src/nrnmpi -I/builddir/build/BUILD/nrn-7.8.1/src/nrnpython -I/builddir/build/BUILD/nrn-7.8.1/src/parallel -I/builddir/build/BUILD/nrn-7.8.1/src/sparse -I/builddir/build/BUILD/nrn-7.8.1/src/sparse13 -I/builddir/build/BUILD/nrn-7.8.1/src/sundials -I/builddir/build/BUILD/nrn-7.8.1/src/sundials/cvodes -I/builddir/build/BUILD/nrn-7.8.1/src/sundials/ida -I/builddir/build/BUILD/nrn-7.8.1/src/sundials/shared -I/usr/include/python3.9 -O2 -flto=auto -ffat-lto-objects -fexceptions -g -grecord-gcc-switches -pipe -Wall -Werror=format-security -Wp,-D_FORTIFY_SOURCE=2 -Wp,-D_GLIBCXX_ASSERTIONS -specs=/usr/lib/rpm/redhat/redhat-hardened-cc1 -fstack-protector-strong -specs=/usr/lib/rpm/redhat/redhat-annobin-cc1  -fasynchronous-unwind-tables -fstack-clash-protection -fPIC -std=c++98 -o CMakeFiles/nrniv_lib.dir/nrndaspk.cpp.o -c /builddir/build/BUILD/nrn-7.8.1/src/nrniv/nrndaspk.cpp
make[2]: Leaving directory '/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu'
In file included from /builddir/build/BUILD/nrn-7.8.1/src/nrniv/nrndaspk.cpp:5:
/builddir/build/BUILD/nrn-7.8.1/src/nrniv/../nrncvode/nrndaspk.cpp: In member function 'int Daspk::init()':
/builddir/build/BUILD/nrn-7.8.1/src/nrniv/../nrncvode/nrndaspk.cpp:233:6: warning: unused variable 'i' [-Wunused-variable]
  233 |  int i;
      |      ^
/builddir/build/BUILD/nrn-7.8.1/src/nrniv/../nrncvode/nrndaspk.cpp: At global scope:
/builddir/build/BUILD/nrn-7.8.1/src/nrniv/../nrncvode/nrndaspk.cpp:64:12: warning: 'int msolve(IDAMem, N_Vector, N_Vector, N_Vector, N_Vector)' declared 'static' but never defined [-Wunused-function]
   64 | static int msolve(IDAMem mem, N_Vector b, N_Vector ycur, N_Vector ypcur,
      |            ^~~~~~
/builddir/build/BUILD/nrn-7.8.1/src/nrniv/../nrncvode/nrndaspk.cpp:216:15: warning: 'double check(double, Daspk*)' defined but not used [-Wunused-function]
  216 | static double check(double t, Daspk* ida) {
      |               ^~~~~
make[2]: Entering directory '/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu'
[ 31%] Building CXX object src/nrniv/CMakeFiles/nrniv_lib.dir/nrnpy.cpp.o
cd /builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/nrniv && /usr/bin/g++ -DHAVE_CONFIG_H -Dnrniv_lib_EXPORTS -DCABLE=1 -DNRNCMAKE -DOOP=1 -DUSEBBS=1 -DUSECVODE=1 -DUSEMATRIX=1 -DUSE_LIBNRNPYTHON_MAJORMINOR=0 -I/builddir/build/BUILD/nrn-7.8.1/src/ivoc -I/builddir/build/BUILD/nrn-7.8.1/src/nrniv -I/builddir/build/BUILD/nrn-7.8.1/src/nrnoc -I/builddir/build/BUILD/nrn-7.8.1/src/oc -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/nrncvode -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/nrnjava -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/nrnoc -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/nrnpython -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/oc -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/parallel -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/sundials -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/sundials/shared -I/builddir/build/BUILD/nrn-7.8.1/src -I/builddir/build/BUILD/nrn-7.8.1/src/gnu -I/builddir/build/BUILD/nrn-7.8.1/src/memacs -I/builddir/build/BUILD/nrn-7.8.1/src/mesch -I/builddir/build/BUILD/nrn-7.8.1/src/nrncvode -I/builddir/build/BUILD/nrn-7.8.1/src/nrnmpi -I/builddir/build/BUILD/nrn-7.8.1/src/nrnpython -I/builddir/build/BUILD/nrn-7.8.1/src/parallel -I/builddir/build/BUILD/nrn-7.8.1/src/sparse -I/builddir/build/BUILD/nrn-7.8.1/src/sparse13 -I/builddir/build/BUILD/nrn-7.8.1/src/sundials -I/builddir/build/BUILD/nrn-7.8.1/src/sundials/cvodes -I/builddir/build/BUILD/nrn-7.8.1/src/sundials/ida -I/builddir/build/BUILD/nrn-7.8.1/src/sundials/shared -I/usr/include/python3.9 -O2 -flto=auto -ffat-lto-objects -fexceptions -g -grecord-gcc-switches -pipe -Wall -Werror=format-security -Wp,-D_FORTIFY_SOURCE=2 -Wp,-D_GLIBCXX_ASSERTIONS -specs=/usr/lib/rpm/redhat/redhat-hardened-cc1 -fstack-protector-strong -specs=/usr/lib/rpm/redhat/redhat-annobin-cc1  -fasynchronous-unwind-tables -fstack-clash-protection -fPIC -std=c++98 -o CMakeFiles/nrniv_lib.dir/nrnpy.cpp.o -c /builddir/build/BUILD/nrn-7.8.1/src/nrniv/nrnpy.cpp
make[2]: Leaving directory '/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu'
make[2]: Entering directory '/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu'
[ 32%] Building CXX object src/nrniv/CMakeFiles/nrniv_lib.dir/nrnrtime.cpp.o
cd /builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/nrniv && /usr/bin/g++ -DHAVE_CONFIG_H -Dnrniv_lib_EXPORTS -DCABLE=1 -DOOP=1 -DUSEBBS=1 -DUSECVODE=1 -DUSEMATRIX=1 -I/builddir/build/BUILD/nrn-7.8.1/src/ivoc -I/builddir/build/BUILD/nrn-7.8.1/src/nrniv -I/builddir/build/BUILD/nrn-7.8.1/src/nrnoc -I/builddir/build/BUILD/nrn-7.8.1/src/oc -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/nrncvode -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/nrnjava -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/nrnoc -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/nrnpython -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/oc -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/parallel -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/sundials -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/sundials/shared -I/builddir/build/BUILD/nrn-7.8.1/src -I/builddir/build/BUILD/nrn-7.8.1/src/gnu -I/builddir/build/BUILD/nrn-7.8.1/src/memacs -I/builddir/build/BUILD/nrn-7.8.1/src/mesch -I/builddir/build/BUILD/nrn-7.8.1/src/nrncvode -I/builddir/build/BUILD/nrn-7.8.1/src/nrnmpi -I/builddir/build/BUILD/nrn-7.8.1/src/nrnpython -I/builddir/build/BUILD/nrn-7.8.1/src/parallel -I/builddir/build/BUILD/nrn-7.8.1/src/sparse -I/builddir/build/BUILD/nrn-7.8.1/src/sparse13 -I/builddir/build/BUILD/nrn-7.8.1/src/sundials -I/builddir/build/BUILD/nrn-7.8.1/src/sundials/cvodes -I/builddir/build/BUILD/nrn-7.8.1/src/sundials/ida -I/builddir/build/BUILD/nrn-7.8.1/src/sundials/shared -I/usr/include/python3.9 -O2 -flto=auto -ffat-lto-objects -fexceptions -g -grecord-gcc-switches -pipe -Wall -Werror=format-security -Wp,-D_FORTIFY_SOURCE=2 -Wp,-D_GLIBCXX_ASSERTIONS -specs=/usr/lib/rpm/redhat/redhat-hardened-cc1 -fstack-protector-strong -specs=/usr/lib/rpm/redhat/redhat-annobin-cc1  -fasynchronous-unwind-tables -fstack-clash-protection -fPIC -std=c++98 -o CMakeFiles/nrniv_lib.dir/nrnrtime.cpp.o -c /builddir/build/BUILD/nrn-7.8.1/src/nrniv/nrnrtime.cpp
make[2]: Leaving directory '/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu'
make[2]: Entering directory '/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu'
[ 31%] Building CXX object src/nrniv/CMakeFiles/nrniv_lib.dir/nrnmenu.cpp.o
cd /builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/nrniv && /usr/bin/g++ -DHAVE_CONFIG_H -Dnrniv_lib_EXPORTS -DCABLE=1 -DOOP=1 -DUSEBBS=1 -DUSECVODE=1 -DUSEMATRIX=1 -I/builddir/build/BUILD/nrn-7.8.1/src/ivoc -I/builddir/build/BUILD/nrn-7.8.1/src/nrniv -I/builddir/build/BUILD/nrn-7.8.1/src/nrnoc -I/builddir/build/BUILD/nrn-7.8.1/src/oc -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/nrncvode -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/nrnjava -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/nrnoc -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/nrnpython -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/oc -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/parallel -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/sundials -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/sundials/shared -I/builddir/build/BUILD/nrn-7.8.1/src -I/builddir/build/BUILD/nrn-7.8.1/src/gnu -I/builddir/build/BUILD/nrn-7.8.1/src/memacs -I/builddir/build/BUILD/nrn-7.8.1/src/mesch -I/builddir/build/BUILD/nrn-7.8.1/src/nrncvode -I/builddir/build/BUILD/nrn-7.8.1/src/nrnmpi -I/builddir/build/BUILD/nrn-7.8.1/src/nrnpython -I/builddir/build/BUILD/nrn-7.8.1/src/parallel -I/builddir/build/BUILD/nrn-7.8.1/src/sparse -I/builddir/build/BUILD/nrn-7.8.1/src/sparse13 -I/builddir/build/BUILD/nrn-7.8.1/src/sundials -I/builddir/build/BUILD/nrn-7.8.1/src/sundials/cvodes -I/builddir/build/BUILD/nrn-7.8.1/src/sundials/ida -I/builddir/build/BUILD/nrn-7.8.1/src/sundials/shared -I/usr/include/python3.9 -O2 -flto=auto -ffat-lto-objects -fexceptions -g -grecord-gcc-switches -pipe -Wall -Werror=format-security -Wp,-D_FORTIFY_SOURCE=2 -Wp,-D_GLIBCXX_ASSERTIONS -specs=/usr/lib/rpm/redhat/redhat-hardened-cc1 -fstack-protector-strong -specs=/usr/lib/rpm/redhat/redhat-annobin-cc1  -fasynchronous-unwind-tables -fstack-clash-protection -fPIC -std=c++98 -o CMakeFiles/nrniv_lib.dir/nrnmenu.cpp.o -c /builddir/build/BUILD/nrn-7.8.1/src/nrniv/nrnmenu.cpp
make[2]: Leaving directory '/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu'
/builddir/build/BUILD/nrn-7.8.1/src/nrniv/nrnmenu.cpp: In function 'void mech_menu(Prop*, double, int, const char*, MechSelector*)':
/builddir/build/BUILD/nrn-7.8.1/src/nrniv/nrnmenu.cpp:291:15: warning: comparison of integer expressions of different signedness: 'int' and 'unsigned int' [-Wsign-compare]
  291 |   for (j=0; j < sym->s_varn; j++ ) {
      |             ~~^~~~~~~~~~~~~
/builddir/build/BUILD/nrn-7.8.1/src/nrniv/nrnmenu.cpp: In function 'void point_menu(Object*, int)':
/builddir/build/BUILD/nrn-7.8.1/src/nrniv/nrnmenu.cpp:459:40: warning: array subscript has type 'char' [-Wchar-subscripts]
  459 |  psym = pointsym[pnt_map[pp->prop->type]];
      |                  ~~~~~~~~~~~~~~~~~~~~~~^
/builddir/build/BUILD/nrn-7.8.1/src/nrniv/nrnmenu.cpp:476:15: warning: comparison of integer expressions of different signedness: 'int' and 'unsigned int' [-Wsign-compare]
  476 |   for (k=0; k < psym->s_varn; k++ ) {
      |             ~~^~~~~~~~~~~~~~
/builddir/build/BUILD/nrn-7.8.1/src/nrniv/nrnmenu.cpp:488:16: warning: unused variable 'a' [-Wunused-variable]
  488 |     Arrayinfo* a = vsym->arayinfo;
      |                ^
make[2]: Entering directory '/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu'
[ 31%] Building CXX object src/nrniv/CMakeFiles/nrniv_lib.dir/nrnbbcore_write.cpp.o
cd /builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/nrniv && /usr/bin/g++ -DHAVE_CONFIG_H -Dnrniv_lib_EXPORTS -DCABLE=1 -DOOP=1 -DUSEBBS=1 -DUSECVODE=1 -DUSEMATRIX=1 -I/builddir/build/BUILD/nrn-7.8.1/src/ivoc -I/builddir/build/BUILD/nrn-7.8.1/src/nrniv -I/builddir/build/BUILD/nrn-7.8.1/src/nrnoc -I/builddir/build/BUILD/nrn-7.8.1/src/oc -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/nrncvode -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/nrnjava -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/nrnoc -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/nrnpython -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/oc -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/parallel -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/sundials -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/sundials/shared -I/builddir/build/BUILD/nrn-7.8.1/src -I/builddir/build/BUILD/nrn-7.8.1/src/gnu -I/builddir/build/BUILD/nrn-7.8.1/src/memacs -I/builddir/build/BUILD/nrn-7.8.1/src/mesch -I/builddir/build/BUILD/nrn-7.8.1/src/nrncvode -I/builddir/build/BUILD/nrn-7.8.1/src/nrnmpi -I/builddir/build/BUILD/nrn-7.8.1/src/nrnpython -I/builddir/build/BUILD/nrn-7.8.1/src/parallel -I/builddir/build/BUILD/nrn-7.8.1/src/sparse -I/builddir/build/BUILD/nrn-7.8.1/src/sparse13 -I/builddir/build/BUILD/nrn-7.8.1/src/sundials -I/builddir/build/BUILD/nrn-7.8.1/src/sundials/cvodes -I/builddir/build/BUILD/nrn-7.8.1/src/sundials/ida -I/builddir/build/BUILD/nrn-7.8.1/src/sundials/shared -I/usr/include/python3.9 -O2 -flto=auto -ffat-lto-objects -fexceptions -g -grecord-gcc-switches -pipe -Wall -Werror=format-security -Wp,-D_FORTIFY_SOURCE=2 -Wp,-D_GLIBCXX_ASSERTIONS -specs=/usr/lib/rpm/redhat/redhat-hardened-cc1 -fstack-protector-strong -specs=/usr/lib/rpm/redhat/redhat-annobin-cc1  -fasynchronous-unwind-tables -fstack-clash-protection -fPIC -std=c++98 -o CMakeFiles/nrniv_lib.dir/nrnbbcore_write.cpp.o -c /builddir/build/BUILD/nrn-7.8.1/src/nrniv/nrnbbcore_write.cpp
make[2]: Leaving directory '/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu'
In file included from /builddir/build/BUILD/nrn-7.8.1/src/nrniv/nrnbbcore_write.cpp:111:
/builddir/build/BUILD/nrn-7.8.1/src/nrniv/nrnsection_mapping.h: In member function 'CellMapping* NrnMappingInfo::get_cell_mapping(int)':
/builddir/build/BUILD/nrn-7.8.1/src/nrniv/nrnsection_mapping.h:119:20: warning: comparison of integer expressions of different signedness: 'int' and 'std::vector<CellMapping*>::size_type' {aka 'long unsigned int'} [-Wsign-compare]
  119 |   for(int i = 0; i < mapping.size(); i++) {
      |                  ~~^~~~~~~~~~~~~~~~
/builddir/build/BUILD/nrn-7.8.1/src/nrniv/nrnbbcore_write.cpp: In function 'size_t part1()':
/builddir/build/BUILD/nrn-7.8.1/src/nrniv/nrnbbcore_write.cpp:275:22: warning: unused variable 'tml' [-Wunused-variable]
  275 |   NrnThreadMembList* tml;
      |                      ^~~
/builddir/build/BUILD/nrn-7.8.1/src/nrniv/nrnbbcore_write.cpp: In function 'void datumtransform(nrncore_CellGroup*)':
/builddir/build/BUILD/nrn-7.8.1/src/nrniv/nrnbbcore_write.cpp:730:16: warning: unused variable 'nt' [-Wunused-variable]
  730 |     NrnThread& nt = nrn_threads[ith];
      |                ^~
In file included from /builddir/build/BUILD/nrn-7.8.1/src/nrncvode/sptbinq.h:14,
                 from /builddir/build/BUILD/nrn-7.8.1/src/nrncvode/tqueue.h:58,
                 from /builddir/build/BUILD/nrn-7.8.1/src/nrncvode/netcvode.h:7,
                 from /builddir/build/BUILD/nrn-7.8.1/src/nrniv/nrnbbcore_write.cpp:109:
/builddir/build/BUILD/nrn-7.8.1/src/nrniv/nrnbbcore_write.cpp: In function 'void write_contiguous_art_data(double**, int, int, FILE*)':
/builddir/build/BUILD/nrn-7.8.1/src/nrniv/nrnbbcore_write.cpp:1081:14: warning: comparison of integer expressions of different signedness: 'size_t' {aka 'long unsigned int'} and 'int' [-Wsign-compare]
 1081 |     assert(n == szitem);
      |            ~~^~~~~~~~~
/builddir/build/BUILD/nrn-7.8.1/src/nrniv/nrnbbcore_write.cpp: In function 'int nrnthread_dat2_2(int, int*&, double*&, double*&, double*&, double*&, double*&)':
/builddir/build/BUILD/nrn-7.8.1/src/nrniv/nrnbbcore_write.cpp:1257:7: warning: unused variable 'n' [-Wunused-variable]
 1257 |   int n = nt.end;
      |       ^
/builddir/build/BUILD/nrn-7.8.1/src/nrniv/nrnbbcore_write.cpp: In function 'int nrnthread_dat2_3(int, int, int*&, double*&, int*&, int*&, double*&, double*&)':
/builddir/build/BUILD/nrn-7.8.1/src/nrniv/nrnbbcore_write.cpp:1359:14: warning: unused variable 'nt' [-Wunused-variable]
 1359 |   NrnThread& nt = nrn_threads[tid];
      |              ^~
/builddir/build/BUILD/nrn-7.8.1/src/nrniv/nrnbbcore_write.cpp: In function 'int nrnthread_dat2_corepointer(int, int&)':
/builddir/build/BUILD/nrn-7.8.1/src/nrniv/nrnbbcore_write.cpp:1397:14: warning: unused variable 'nt' [-Wunused-variable]
 1397 |   NrnThread& nt = nrn_threads[tid];
      |              ^~
/builddir/build/BUILD/nrn-7.8.1/src/nrniv/nrnbbcore_write.cpp: In function 'void write_nrnthread_task(const char*, nrncore_CellGroup*)':
/builddir/build/BUILD/nrn-7.8.1/src/nrniv/nrnbbcore_write.cpp:1696:23: warning: comparison of integer expressions of different signedness: 'int' and 'std::vector<int>::size_type' {aka 'long unsigned int'} [-Wsign-compare]
 1696 |     for (int i = 0; i < iRecvVec.size(); ++i)
      |                     ~~^~~~~~~~~~~~~~~~~
/builddir/build/BUILD/nrn-7.8.1/src/nrniv/nrnbbcore_write.cpp: In function 'int* datum2int(int, Memb_list*, NrnThread&, nrncore_CellGroup&, nrncore_DatumIndices&, int)':
/builddir/build/BUILD/nrn-7.8.1/src/nrniv/nrnbbcore_write.cpp:1712:12: warning: unused variable 'd' [-Wunused-variable]
 1712 |     Datum* d = ml->pdata[i];
      |            ^
/builddir/build/BUILD/nrn-7.8.1/src/nrniv/nrnbbcore_write.cpp: In function 'void* get_coreneuron_handle()':
/builddir/build/BUILD/nrn-7.8.1/src/nrniv/nrnbbcore_write.cpp:1952:8: warning: ignoring return value of 'char* getcwd(char*, size_t)' declared with attribute 'warn_unused_result' [-Wunused-result]
 1952 |  getcwd(pwd, FILENAME_MAX);
      |  ~~~~~~^~~~~~~~~~~~~~~~~~~
/builddir/build/BUILD/nrn-7.8.1/src/nrniv/nrnbbcore_write.cpp: At global scope:
/builddir/build/BUILD/nrn-7.8.1/src/nrniv/nrnbbcore_write.cpp:1075:13: warning: 'void write_contiguous_art_data(double**, int, int, FILE*)' defined but not used [-Wunused-function]
 1075 | static void write_contiguous_art_data(double** data, int nitem, int szitem, FILE* f) {
      |             ^~~~~~~~~~~~~~~~~~~~~~~~~
make[2]: Entering directory '/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu'
[ 32%] Building C object src/nrniv/CMakeFiles/nrniv_lib.dir/nvector_nrnserial_ld.c.o
cd /builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/nrniv && /usr/bin/gcc -DHAVE_CONFIG_H -Dnrniv_lib_EXPORTS -DCABLE=1 -DOOP=1 -DUSEBBS=1 -DUSECVODE=1 -DUSEMATRIX=1 -I/builddir/build/BUILD/nrn-7.8.1/src/ivoc -I/builddir/build/BUILD/nrn-7.8.1/src/nrniv -I/builddir/build/BUILD/nrn-7.8.1/src/nrnoc -I/builddir/build/BUILD/nrn-7.8.1/src/oc -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/nrncvode -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/nrnjava -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/nrnoc -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/nrnpython -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/oc -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/parallel -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/sundials -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/sundials/shared -I/builddir/build/BUILD/nrn-7.8.1/src -I/builddir/build/BUILD/nrn-7.8.1/src/gnu -I/builddir/build/BUILD/nrn-7.8.1/src/memacs -I/builddir/build/BUILD/nrn-7.8.1/src/mesch -I/builddir/build/BUILD/nrn-7.8.1/src/nrncvode -I/builddir/build/BUILD/nrn-7.8.1/src/nrnmpi -I/builddir/build/BUILD/nrn-7.8.1/src/nrnpython -I/builddir/build/BUILD/nrn-7.8.1/src/parallel -I/builddir/build/BUILD/nrn-7.8.1/src/sparse -I/builddir/build/BUILD/nrn-7.8.1/src/sparse13 -I/builddir/build/BUILD/nrn-7.8.1/src/sundials -I/builddir/build/BUILD/nrn-7.8.1/src/sundials/cvodes -I/builddir/build/BUILD/nrn-7.8.1/src/sundials/ida -I/builddir/build/BUILD/nrn-7.8.1/src/sundials/shared -I/usr/include/python3.9 -O2 -flto=auto -ffat-lto-objects -fexceptions -g -grecord-gcc-switches -pipe -Wall -Werror=format-security -Wp,-D_FORTIFY_SOURCE=2 -Wp,-D_GLIBCXX_ASSERTIONS -specs=/usr/lib/rpm/redhat/redhat-hardened-cc1 -fstack-protector-strong -specs=/usr/lib/rpm/redhat/redhat-annobin-cc1  -fasynchronous-unwind-tables -fstack-clash-protection -fPIC -o CMakeFiles/nrniv_lib.dir/nvector_nrnserial_ld.c.o -c /builddir/build/BUILD/nrn-7.8.1/src/nrniv/nvector_nrnserial_ld.c
make[2]: Leaving directory '/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu'
/builddir/build/BUILD/nrn-7.8.1/src/nrniv/nvector_nrnserial_ld.c: In function 'N_VNew_NrnSerialLD':
/builddir/build/BUILD/nrn-7.8.1/src/nrniv/nvector_nrnserial_ld.c:160:21: warning: 'data' may be used uninitialized in this function [-Wmaybe-uninitialized]
  160 |     NV_DATA_S_LD(v) = data;
/builddir/build/BUILD/nrn-7.8.1/src/nrniv/nvector_nrnserial_ld.c: In function 'N_VClone_NrnSerialLD':
/builddir/build/BUILD/nrn-7.8.1/src/nrniv/nvector_nrnserial_ld.c:364:21: warning: 'data' may be used uninitialized in this function [-Wmaybe-uninitialized]
  364 |     NV_DATA_S_LD(v) = data;
make[2]: Entering directory '/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu'
[ 32%] Building C object src/nrniv/CMakeFiles/nrniv_lib.dir/nvector_nrnthread.c.o
cd /builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/nrniv && /usr/bin/gcc -DHAVE_CONFIG_H -Dnrniv_lib_EXPORTS -DCABLE=1 -DOOP=1 -DUSEBBS=1 -DUSECVODE=1 -DUSEMATRIX=1 -I/builddir/build/BUILD/nrn-7.8.1/src/ivoc -I/builddir/build/BUILD/nrn-7.8.1/src/nrniv -I/builddir/build/BUILD/nrn-7.8.1/src/nrnoc -I/builddir/build/BUILD/nrn-7.8.1/src/oc -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/nrncvode -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/nrnjava -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/nrnoc -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/nrnpython -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/oc -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/parallel -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/sundials -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/sundials/shared -I/builddir/build/BUILD/nrn-7.8.1/src -I/builddir/build/BUILD/nrn-7.8.1/src/gnu -I/builddir/build/BUILD/nrn-7.8.1/src/memacs -I/builddir/build/BUILD/nrn-7.8.1/src/mesch -I/builddir/build/BUILD/nrn-7.8.1/src/nrncvode -I/builddir/build/BUILD/nrn-7.8.1/src/nrnmpi -I/builddir/build/BUILD/nrn-7.8.1/src/nrnpython -I/builddir/build/BUILD/nrn-7.8.1/src/parallel -I/builddir/build/BUILD/nrn-7.8.1/src/sparse -I/builddir/build/BUILD/nrn-7.8.1/src/sparse13 -I/builddir/build/BUILD/nrn-7.8.1/src/sundials -I/builddir/build/BUILD/nrn-7.8.1/src/sundials/cvodes -I/builddir/build/BUILD/nrn-7.8.1/src/sundials/ida -I/builddir/build/BUILD/nrn-7.8.1/src/sundials/shared -I/usr/include/python3.9 -O2 -flto=auto -ffat-lto-objects -fexceptions -g -grecord-gcc-switches -pipe -Wall -Werror=format-security -Wp,-D_FORTIFY_SOURCE=2 -Wp,-D_GLIBCXX_ASSERTIONS -specs=/usr/lib/rpm/redhat/redhat-hardened-cc1 -fstack-protector-strong -specs=/usr/lib/rpm/redhat/redhat-annobin-cc1  -fasynchronous-unwind-tables -fstack-clash-protection -fPIC -o CMakeFiles/nrniv_lib.dir/nvector_nrnthread.c.o -c /builddir/build/BUILD/nrn-7.8.1/src/nrniv/nvector_nrnthread.c
make[2]: Leaving directory '/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu'
/builddir/build/BUILD/nrn-7.8.1/src/nrniv/nvector_nrnthread.c: In function 'N_VNew_NrnThread':
/builddir/build/BUILD/nrn-7.8.1/src/nrniv/nvector_nrnthread.c:175:30: warning: unused variable 'content' [-Wunused-variable]
  175 |   N_VectorContent_NrnThread* content;
      |                              ^~~~~~~
/builddir/build/BUILD/nrn-7.8.1/src/nrniv/nvector_nrnthread.c: In function 'N_VWL2Norm_NrnThread':
/builddir/build/BUILD/nrn-7.8.1/src/nrniv/nvector_nrnthread.c:701:12: warning: variable 'N' set but not used [-Wunused-but-set-variable]
  701 |   long int N;
      |            ^
At top level:
/builddir/build/BUILD/nrn-7.8.1/src/nrniv/nvector_nrnthread.c:781:14: warning: 'vminquotient' defined but not used [-Wunused-function]
  781 | static void* vminquotient(NrnThread* nt) {
      |              ^~~~~~~~~~~~
/builddir/build/BUILD/nrn-7.8.1/src/nrniv/nvector_nrnthread.c:366:13: warning: 'pr' defined but not used [-Wunused-function]
  366 | static void pr(N_Vector x) { N_VPrint_NrnThread(x); }
      |             ^~
make[2]: Entering directory '/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu'
[ 32%] Building CXX object src/nrniv/CMakeFiles/nrniv_lib.dir/nrnste.cpp.o
cd /builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/nrniv && /usr/bin/g++ -DHAVE_CONFIG_H -Dnrniv_lib_EXPORTS -DCABLE=1 -DOOP=1 -DUSEBBS=1 -DUSECVODE=1 -DUSEMATRIX=1 -I/builddir/build/BUILD/nrn-7.8.1/src/ivoc -I/builddir/build/BUILD/nrn-7.8.1/src/nrniv -I/builddir/build/BUILD/nrn-7.8.1/src/nrnoc -I/builddir/build/BUILD/nrn-7.8.1/src/oc -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/nrncvode -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/nrnjava -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/nrnoc -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/nrnpython -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/oc -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/parallel -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/sundials -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/sundials/shared -I/builddir/build/BUILD/nrn-7.8.1/src -I/builddir/build/BUILD/nrn-7.8.1/src/gnu -I/builddir/build/BUILD/nrn-7.8.1/src/memacs -I/builddir/build/BUILD/nrn-7.8.1/src/mesch -I/builddir/build/BUILD/nrn-7.8.1/src/nrncvode -I/builddir/build/BUILD/nrn-7.8.1/src/nrnmpi -I/builddir/build/BUILD/nrn-7.8.1/src/nrnpython -I/builddir/build/BUILD/nrn-7.8.1/src/parallel -I/builddir/build/BUILD/nrn-7.8.1/src/sparse -I/builddir/build/BUILD/nrn-7.8.1/src/sparse13 -I/builddir/build/BUILD/nrn-7.8.1/src/sundials -I/builddir/build/BUILD/nrn-7.8.1/src/sundials/cvodes -I/builddir/build/BUILD/nrn-7.8.1/src/sundials/ida -I/builddir/build/BUILD/nrn-7.8.1/src/sundials/shared -I/usr/include/python3.9 -O2 -flto=auto -ffat-lto-objects -fexceptions -g -grecord-gcc-switches -pipe -Wall -Werror=format-security -Wp,-D_FORTIFY_SOURCE=2 -Wp,-D_GLIBCXX_ASSERTIONS -specs=/usr/lib/rpm/redhat/redhat-hardened-cc1 -fstack-protector-strong -specs=/usr/lib/rpm/redhat/redhat-annobin-cc1  -fasynchronous-unwind-tables -fstack-clash-protection -fPIC -std=c++98 -o CMakeFiles/nrniv_lib.dir/nrnste.cpp.o -c /builddir/build/BUILD/nrn-7.8.1/src/nrniv/nrnste.cpp
make[2]: Leaving directory '/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu'
make[2]: Entering directory '/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu'
[ 30%] Building CXX object src/nrniv/CMakeFiles/nrniv_lib.dir/netcvode.cpp.o
cd /builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/nrniv && /usr/bin/g++ -DHAVE_CONFIG_H -Dnrniv_lib_EXPORTS -DCABLE=1 -DOOP=1 -DUSEBBS=1 -DUSECVODE=1 -DUSEMATRIX=1 -I/builddir/build/BUILD/nrn-7.8.1/src/ivoc -I/builddir/build/BUILD/nrn-7.8.1/src/nrniv -I/builddir/build/BUILD/nrn-7.8.1/src/nrnoc -I/builddir/build/BUILD/nrn-7.8.1/src/oc -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/nrncvode -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/nrnjava -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/nrnoc -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/nrnpython -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/oc -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/parallel -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/sundials -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/sundials/shared -I/builddir/build/BUILD/nrn-7.8.1/src -I/builddir/build/BUILD/nrn-7.8.1/src/gnu -I/builddir/build/BUILD/nrn-7.8.1/src/memacs -I/builddir/build/BUILD/nrn-7.8.1/src/mesch -I/builddir/build/BUILD/nrn-7.8.1/src/nrncvode -I/builddir/build/BUILD/nrn-7.8.1/src/nrnmpi -I/builddir/build/BUILD/nrn-7.8.1/src/nrnpython -I/builddir/build/BUILD/nrn-7.8.1/src/parallel -I/builddir/build/BUILD/nrn-7.8.1/src/sparse -I/builddir/build/BUILD/nrn-7.8.1/src/sparse13 -I/builddir/build/BUILD/nrn-7.8.1/src/sundials -I/builddir/build/BUILD/nrn-7.8.1/src/sundials/cvodes -I/builddir/build/BUILD/nrn-7.8.1/src/sundials/ida -I/builddir/build/BUILD/nrn-7.8.1/src/sundials/shared -I/usr/include/python3.9 -O2 -flto=auto -ffat-lto-objects -fexceptions -g -grecord-gcc-switches -pipe -Wall -Werror=format-security -Wp,-D_FORTIFY_SOURCE=2 -Wp,-D_GLIBCXX_ASSERTIONS -specs=/usr/lib/rpm/redhat/redhat-hardened-cc1 -fstack-protector-strong -specs=/usr/lib/rpm/redhat/redhat-annobin-cc1  -fasynchronous-unwind-tables -fstack-clash-protection -fPIC -std=c++98 -o CMakeFiles/nrniv_lib.dir/netcvode.cpp.o -c /builddir/build/BUILD/nrn-7.8.1/src/nrniv/netcvode.cpp
make[2]: Leaving directory '/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu'
In file included from /builddir/build/BUILD/nrn-7.8.1/src/nrniv/netcvode.cpp:5:
/builddir/build/BUILD/nrn-7.8.1/src/nrniv/../nrncvode/netcvode.cpp: In static member function 'static DiscreteEvent* PlayRecordEvent::savestate_read(FILE*)':
/builddir/build/BUILD/nrn-7.8.1/src/nrniv/../nrncvode/netcvode.cpp:341:17: warning: unused variable 'de' [-Wunused-variable]
  341 |  DiscreteEvent* de = nil;
      |                 ^~
/builddir/build/BUILD/nrn-7.8.1/src/nrniv/../nrncvode/netcvode.cpp: In member function 'void NetCvode::del_cv_memb_list(Cvode*)':
/builddir/build/BUILD/nrn-7.8.1/src/nrniv/../nrncvode/netcvode.cpp:1438:6: warning: unused variable 'i' [-Wunused-variable]
 1438 |  int i, j;
      |      ^
/builddir/build/BUILD/nrn-7.8.1/src/nrniv/../nrncvode/netcvode.cpp: In member function 'void NetCvode::distribute_dinfo(int*, int)':
/builddir/build/BUILD/nrn-7.8.1/src/nrniv/../nrncvode/netcvode.cpp:1500:6: warning: unused variable 'i' [-Wunused-variable]
 1500 |  int i, j;
      |      ^
/builddir/build/BUILD/nrn-7.8.1/src/nrniv/../nrncvode/netcvode.cpp: In member function 'bool NetCvode::init_global()':
/builddir/build/BUILD/nrn-7.8.1/src/nrniv/../nrncvode/netcvode.cpp:1800:22: warning: unused variable 'z' [-Wunused-variable]
 1800 |     CvodeThreadData& z = cv.ctd_[0];
      |                      ^
/builddir/build/BUILD/nrn-7.8.1/src/nrniv/../nrncvode/netcvode.cpp: In member function 'void NetCvode::init_events()':
/builddir/build/BUILD/nrn-7.8.1/src/nrniv/../nrncvode/netcvode.cpp:2802:9: warning: unused variable 'fifodelay' [-Wunused-variable]
 2802 |  double fifodelay;
      |         ^~~~~~~~~
/builddir/build/BUILD/nrn-7.8.1/src/nrniv/../nrncvode/netcvode.cpp: In static member function 'static DiscreteEvent* SelfEvent::savestate_read(FILE*)':
/builddir/build/BUILD/nrn-7.8.1/src/nrniv/../nrncvode/netcvode.cpp:3267:38: warning: unused variable 'iml' [-Wunused-variable]
 3267 |  int ppindex, ncindex, moff, pptype, iml;
      |                                      ^~~
/builddir/build/BUILD/nrn-7.8.1/src/nrniv/../nrncvode/netcvode.cpp:3269:10: warning: unused variable 'obj' [-Wunused-variable]
 3269 |  Object* obj;
      |          ^~~
In file included from /builddir/build/BUILD/nrn-7.8.1/src/nrniv/netcvode.cpp:5:
/builddir/build/BUILD/nrn-7.8.1/src/nrniv/../nrncvode/netcvode.cpp: In member function 'int NetCvode::pgvts_event(double&)':
/builddir/build/BUILD/nrn-7.8.1/src/nrniv/../nrncvode/netcvode.cpp:3578:6: warning: unused variable 'rank' [-Wunused-variable]
 3578 |  int rank, op, err, init;
      |      ^~~~
In file included from /builddir/build/BUILD/nrn-7.8.1/src/nrniv/netcvode.cpp:5:
/builddir/build/BUILD/nrn-7.8.1/src/nrniv/../nrncvode/netcvode.cpp: In member function 'void NetCvode::re_init(double)':
/builddir/build/BUILD/nrn-7.8.1/src/nrniv/../nrncvode/netcvode.cpp:3913:12: warning: unused variable 'k' [-Wunused-variable]
 3913 |  int i, j, k, l;
      |            ^
/builddir/build/BUILD/nrn-7.8.1/src/nrniv/../nrncvode/netcvode.cpp:3913:15: warning: unused variable 'l' [-Wunused-variable]
 3913 |  int i, j, k, l;
      |               ^
/builddir/build/BUILD/nrn-7.8.1/src/nrniv/../nrncvode/netcvode.cpp: In member function 'NetCon* NetCvode::install_deliver(double*, Section*, Object*, Object*, double, double, double)':
/builddir/build/BUILD/nrn-7.8.1/src/nrniv/../nrncvode/netcvode.cpp:4485:6: warning: unused variable 'i' [-Wunused-variable]
 4485 |  int i;
      |      ^
/builddir/build/BUILD/nrn-7.8.1/src/nrniv/../nrncvode/netcvode.cpp: In member function 'virtual void WatchCondition::pgvts_deliver(double, NetCvode*)':
/builddir/build/BUILD/nrn-7.8.1/src/nrniv/../nrncvode/netcvode.cpp:5400:13: warning: unused variable 'nt' [-Wunused-variable]
 5400 |  NrnThread* nt;
      |             ^~
/builddir/build/BUILD/nrn-7.8.1/src/nrniv/../nrncvode/netcvode.cpp: In member function 'virtual void STECondition::pgvts_deliver(double, NetCvode*)':
/builddir/build/BUILD/nrn-7.8.1/src/nrniv/../nrncvode/netcvode.cpp:5417:13: warning: unused variable 'nt' [-Wunused-variable]
 5417 |  NrnThread* nt;
      |             ^~
/builddir/build/BUILD/nrn-7.8.1/src/nrniv/../nrncvode/netcvode.cpp: In function 'void nrnthread_trajectory_values(int, int, void**, double)':
/builddir/build/BUILD/nrn-7.8.1/src/nrniv/../nrncvode/netcvode.cpp:5736:9: warning: unused variable 'i_trajec' [-Wunused-variable]
 5736 |     int i_trajec = 0;
      |         ^~~~~~~~
/builddir/build/BUILD/nrn-7.8.1/src/nrniv/../nrncvode/netcvode.cpp: In member function 'void NetCvode::deliver_net_events(NrnThread*)':
/builddir/build/BUILD/nrn-7.8.1/src/nrniv/../nrncvode/netcvode.cpp:5831:13: warning: unused variable 'tt' [-Wunused-variable]
 5831 |  double tm, tt, tsav;
      |             ^~
/builddir/build/BUILD/nrn-7.8.1/src/nrniv/../nrncvode/netcvode.cpp: In member function 'void NetCvode::vec_remove()':
/builddir/build/BUILD/nrn-7.8.1/src/nrniv/../nrncvode/netcvode.cpp:6198:12: warning: unused variable 'iv' [-Wunused-variable]
 6198 |  IvocVect* iv = vector_arg(1);
      |            ^~
/builddir/build/BUILD/nrn-7.8.1/src/nrniv/../nrncvode/netcvode.cpp: In member function 'void NetCvode::playrec_setup()':
/builddir/build/BUILD/nrn-7.8.1/src/nrniv/../nrncvode/netcvode.cpp:6207:10: warning: unused variable 'px' [-Wunused-variable]
 6207 |  double* px;
      |          ^~
/builddir/build/BUILD/nrn-7.8.1/src/nrniv/../nrncvode/netcvode.cpp: In member function 'double NetCvode::state_magnitudes()':
/builddir/build/BUILD/nrn-7.8.1/src/nrniv/../nrncvode/netcvode.cpp:6378:11: warning: unused variable 'ms' [-Wunused-variable]
 6378 |   double* ms;
      |           ^~
/builddir/build/BUILD/nrn-7.8.1/src/nrniv/../nrncvode/netcvode.cpp:6346:6: warning: unused variable 'i' [-Wunused-variable]
 6346 |  int i, j;
      |      ^
/builddir/build/BUILD/nrn-7.8.1/src/nrniv/../nrncvode/netcvode.cpp: In member function 'void NetCvode::maxstate_analyse()':
/builddir/build/BUILD/nrn-7.8.1/src/nrniv/../nrncvode/netcvode.cpp:6441:16: warning: unused variable 'n' [-Wunused-variable]
 6441 |  int i, it, j, n;
      |                ^
/builddir/build/BUILD/nrn-7.8.1/src/nrniv/../nrncvode/netcvode.cpp: In member function 'NetCvode::error_weights()':
/builddir/build/BUILD/nrn-7.8.1/src/nrniv/../nrncvode/netcvode.cpp:4236:21: warning: 'j' may be used uninitialized in this function [-Wmaybe-uninitialized]
 4236 |   gcv_->states(vp + j);
      |                     ^
/builddir/build/BUILD/nrn-7.8.1/src/nrniv/../nrncvode/netcvode.cpp: In member function 'NetCvode::acor()':
/builddir/build/BUILD/nrn-7.8.1/src/nrniv/../nrncvode/netcvode.cpp:4265:21: warning: 'j' may be used uninitialized in this function [-Wmaybe-uninitialized]
 4265 |   gcv_->states(vp + j);
      |                     ^
/builddir/build/BUILD/nrn-7.8.1/src/nrniv/../nrncvode/netcvode.cpp: In member function 'NetCvode::maxstate_analyse()':
/builddir/build/BUILD/nrn-7.8.1/src/nrniv/../nrncvode/netcvode.cpp:6460:22: warning: 'msi' may be used uninitialized in this function [-Wmaybe-uninitialized]
 6460 |    maxstate_analyze_1(it, *gcv_, msi, gcv_->ctd_[it]);
      |    ~~~~~~~~~~~~~~~~~~^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
make[2]: Entering directory '/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu'
[ 33%] Building C object src/nrniv/CMakeFiles/nrniv_lib.dir/nvector_nrnthread_ld.c.o
cd /builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/nrniv && /usr/bin/gcc -DHAVE_CONFIG_H -Dnrniv_lib_EXPORTS -DCABLE=1 -DOOP=1 -DUSEBBS=1 -DUSECVODE=1 -DUSEMATRIX=1 -I/builddir/build/BUILD/nrn-7.8.1/src/ivoc -I/builddir/build/BUILD/nrn-7.8.1/src/nrniv -I/builddir/build/BUILD/nrn-7.8.1/src/nrnoc -I/builddir/build/BUILD/nrn-7.8.1/src/oc -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/nrncvode -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/nrnjava -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/nrnoc -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/nrnpython -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/oc -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/parallel -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/sundials -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/sundials/shared -I/builddir/build/BUILD/nrn-7.8.1/src -I/builddir/build/BUILD/nrn-7.8.1/src/gnu -I/builddir/build/BUILD/nrn-7.8.1/src/memacs -I/builddir/build/BUILD/nrn-7.8.1/src/mesch -I/builddir/build/BUILD/nrn-7.8.1/src/nrncvode -I/builddir/build/BUILD/nrn-7.8.1/src/nrnmpi -I/builddir/build/BUILD/nrn-7.8.1/src/nrnpython -I/builddir/build/BUILD/nrn-7.8.1/src/parallel -I/builddir/build/BUILD/nrn-7.8.1/src/sparse -I/builddir/build/BUILD/nrn-7.8.1/src/sparse13 -I/builddir/build/BUILD/nrn-7.8.1/src/sundials -I/builddir/build/BUILD/nrn-7.8.1/src/sundials/cvodes -I/builddir/build/BUILD/nrn-7.8.1/src/sundials/ida -I/builddir/build/BUILD/nrn-7.8.1/src/sundials/shared -I/usr/include/python3.9 -O2 -flto=auto -ffat-lto-objects -fexceptions -g -grecord-gcc-switches -pipe -Wall -Werror=format-security -Wp,-D_FORTIFY_SOURCE=2 -Wp,-D_GLIBCXX_ASSERTIONS -specs=/usr/lib/rpm/redhat/redhat-hardened-cc1 -fstack-protector-strong -specs=/usr/lib/rpm/redhat/redhat-annobin-cc1  -fasynchronous-unwind-tables -fstack-clash-protection -fPIC -o CMakeFiles/nrniv_lib.dir/nvector_nrnthread_ld.c.o -c /builddir/build/BUILD/nrn-7.8.1/src/nrniv/nvector_nrnthread_ld.c
make[2]: Leaving directory '/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu'
/builddir/build/BUILD/nrn-7.8.1/src/nrniv/nvector_nrnthread_ld.c: In function 'N_VNew_NrnThreadLD':
/builddir/build/BUILD/nrn-7.8.1/src/nrniv/nvector_nrnthread_ld.c:175:32: warning: unused variable 'content' [-Wunused-variable]
  175 |   N_VectorContent_NrnThreadLD* content;
      |                                ^~~~~~~
/builddir/build/BUILD/nrn-7.8.1/src/nrniv/nvector_nrnthread_ld.c: In function 'N_VWL2Norm_NrnThreadLD':
/builddir/build/BUILD/nrn-7.8.1/src/nrniv/nvector_nrnthread_ld.c:700:12: warning: variable 'N' set but not used [-Wunused-but-set-variable]
  700 |   long int N;
      |            ^
At top level:
/builddir/build/BUILD/nrn-7.8.1/src/nrniv/nvector_nrnthread_ld.c:780:14: warning: 'vminquotient' defined but not used [-Wunused-function]
  780 | static void* vminquotient(NrnThread* nt) {
      |              ^~~~~~~~~~~~
/builddir/build/BUILD/nrn-7.8.1/src/nrniv/nvector_nrnthread_ld.c:365:13: warning: 'pr' defined but not used [-Wunused-function]
  365 | static void pr(N_Vector x) { N_VPrint_NrnThreadLD(x); }
      |             ^~
make[2]: Entering directory '/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu'
[ 33%] Building CXX object src/nrniv/CMakeFiles/nrniv_lib.dir/ocjump.cpp.o
cd /builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/nrniv && /usr/bin/g++ -DHAVE_CONFIG_H -Dnrniv_lib_EXPORTS -DCABLE=1 -DOOP=1 -DUSEBBS=1 -DUSECVODE=1 -DUSEMATRIX=1 -I/builddir/build/BUILD/nrn-7.8.1/src/ivoc -I/builddir/build/BUILD/nrn-7.8.1/src/nrniv -I/builddir/build/BUILD/nrn-7.8.1/src/nrnoc -I/builddir/build/BUILD/nrn-7.8.1/src/oc -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/nrncvode -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/nrnjava -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/nrnoc -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/nrnpython -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/oc -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/parallel -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/sundials -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/sundials/shared -I/builddir/build/BUILD/nrn-7.8.1/src -I/builddir/build/BUILD/nrn-7.8.1/src/gnu -I/builddir/build/BUILD/nrn-7.8.1/src/memacs -I/builddir/build/BUILD/nrn-7.8.1/src/mesch -I/builddir/build/BUILD/nrn-7.8.1/src/nrncvode -I/builddir/build/BUILD/nrn-7.8.1/src/nrnmpi -I/builddir/build/BUILD/nrn-7.8.1/src/nrnpython -I/builddir/build/BUILD/nrn-7.8.1/src/parallel -I/builddir/build/BUILD/nrn-7.8.1/src/sparse -I/builddir/build/BUILD/nrn-7.8.1/src/sparse13 -I/builddir/build/BUILD/nrn-7.8.1/src/sundials -I/builddir/build/BUILD/nrn-7.8.1/src/sundials/cvodes -I/builddir/build/BUILD/nrn-7.8.1/src/sundials/ida -I/builddir/build/BUILD/nrn-7.8.1/src/sundials/shared -I/usr/include/python3.9 -O2 -flto=auto -ffat-lto-objects -fexceptions -g -grecord-gcc-switches -pipe -Wall -Werror=format-security -Wp,-D_FORTIFY_SOURCE=2 -Wp,-D_GLIBCXX_ASSERTIONS -specs=/usr/lib/rpm/redhat/redhat-hardened-cc1 -fstack-protector-strong -specs=/usr/lib/rpm/redhat/redhat-annobin-cc1  -fasynchronous-unwind-tables -fstack-clash-protection -fPIC -std=c++98 -o CMakeFiles/nrniv_lib.dir/ocjump.cpp.o -c /builddir/build/BUILD/nrn-7.8.1/src/nrniv/ocjump.cpp
make[2]: Leaving directory '/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu'
make[2]: Entering directory '/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu'
[ 33%] Building CXX object src/nrniv/CMakeFiles/nrniv_lib.dir/ocbbs.cpp.o
cd /builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/nrniv && /usr/bin/g++ -DHAVE_CONFIG_H -Dnrniv_lib_EXPORTS -DCABLE=1 -DOOP=1 -DUSEBBS=1 -DUSECVODE=1 -DUSEMATRIX=1 -I/builddir/build/BUILD/nrn-7.8.1/src/ivoc -I/builddir/build/BUILD/nrn-7.8.1/src/nrniv -I/builddir/build/BUILD/nrn-7.8.1/src/nrnoc -I/builddir/build/BUILD/nrn-7.8.1/src/oc -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/nrncvode -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/nrnjava -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/nrnoc -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/nrnpython -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/oc -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/parallel -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/sundials -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/sundials/shared -I/builddir/build/BUILD/nrn-7.8.1/src -I/builddir/build/BUILD/nrn-7.8.1/src/gnu -I/builddir/build/BUILD/nrn-7.8.1/src/memacs -I/builddir/build/BUILD/nrn-7.8.1/src/mesch -I/builddir/build/BUILD/nrn-7.8.1/src/nrncvode -I/builddir/build/BUILD/nrn-7.8.1/src/nrnmpi -I/builddir/build/BUILD/nrn-7.8.1/src/nrnpython -I/builddir/build/BUILD/nrn-7.8.1/src/parallel -I/builddir/build/BUILD/nrn-7.8.1/src/sparse -I/builddir/build/BUILD/nrn-7.8.1/src/sparse13 -I/builddir/build/BUILD/nrn-7.8.1/src/sundials -I/builddir/build/BUILD/nrn-7.8.1/src/sundials/cvodes -I/builddir/build/BUILD/nrn-7.8.1/src/sundials/ida -I/builddir/build/BUILD/nrn-7.8.1/src/sundials/shared -I/usr/include/python3.9 -O2 -flto=auto -ffat-lto-objects -fexceptions -g -grecord-gcc-switches -pipe -Wall -Werror=format-security -Wp,-D_FORTIFY_SOURCE=2 -Wp,-D_GLIBCXX_ASSERTIONS -specs=/usr/lib/rpm/redhat/redhat-hardened-cc1 -fstack-protector-strong -specs=/usr/lib/rpm/redhat/redhat-annobin-cc1  -fasynchronous-unwind-tables -fstack-clash-protection -fPIC -std=c++98 -o CMakeFiles/nrniv_lib.dir/ocbbs.cpp.o -c /builddir/build/BUILD/nrn-7.8.1/src/nrniv/ocbbs.cpp
make[2]: Leaving directory '/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu'
In file included from /builddir/build/BUILD/nrn-7.8.1/src/nrniv/ocbbs.cpp:1:
/builddir/build/BUILD/nrn-7.8.1/src/nrniv/../parallel/ocbbs.cpp: In function 'double multisplit(void*)':
/builddir/build/BUILD/nrn-7.8.1/src/nrniv/../parallel/ocbbs.cpp:616:6: warning: unused variable 'reducedtree_host' [-Wunused-variable]
  616 |  int reducedtree_host = 0;
      |      ^~~~~~~~~~~~~~~~
/builddir/build/BUILD/nrn-7.8.1/src/nrniv/../parallel/ocbbs.cpp: In function 'double broadcast(void*)':
/builddir/build/BUILD/nrn-7.8.1/src/nrniv/../parallel/ocbbs.cpp:850:6: warning: unused variable 'srcid' [-Wunused-variable]
  850 |  int srcid = int(chkarg(2, 0, nrnmpi_numprocs - 1));
      |      ^~~~~
In file included from /builddir/build/BUILD/nrn-7.8.1/src/nrniv/ocbbs.cpp:1:
/builddir/build/BUILD/nrn-7.8.1/src/nrniv/../parallel/ocbbs.cpp: In member function 'virtual void BBSImpl::return_args(int)':
/builddir/build/BUILD/nrn-7.8.1/src/nrniv/../parallel/ocbbs.cpp:1304:6: warning: variable 'i' set but not used [-Wunused-but-set-variable]
 1304 |  int i;
      |      ^
/builddir/build/BUILD/nrn-7.8.1/src/nrniv/../parallel/ocbbs.cpp:1308:6: warning: unused variable 'wid' [-Wunused-variable]
 1308 |  int wid = upkint();
      |      ^~~
In file included from /builddir/build/BUILD/nrn-7.8.1/src/nrniv/../parallel/ocbbs.cpp:1297,
                 from /builddir/build/BUILD/nrn-7.8.1/src/nrniv/ocbbs.cpp:1:
/builddir/build/BUILD/nrn-7.8.1/src/nrniv/../parallel/subworld.cpp: In member function 'BBSImpl::subworld_worker_execute()':
/builddir/build/BUILD/nrn-7.8.1/src/nrniv/../parallel/subworld.cpp:19:6: warning: 'info[0]' is used uninitialized in this function [-Wuninitialized]
   19 |  int id = info[0];
      |      ^~
/builddir/build/BUILD/nrn-7.8.1/src/nrniv/../parallel/subworld.cpp:24:6: warning: 'info[1]' is used uninitialized in this function [-Wuninitialized]
   24 |  int style = info[1];
      |      ^~~~~
/builddir/build/BUILD/nrn-7.8.1/src/nrniv/../parallel/subworld.cpp:28:22: warning: 'size' may be used uninitialized in this function [-Wmaybe-uninitialized]
   28 |   char *s = new char[size];
      |                      ^~~~
/builddir/build/BUILD/nrn-7.8.1/src/nrniv/../parallel/subworld.cpp:46:16: warning: 'npickle' may be used uninitialized in this function [-Wmaybe-uninitialized]
   46 |   s = new char[npickle];
      |                ^~~~~~~
/builddir/build/BUILD/nrn-7.8.1/src/nrniv/../parallel/subworld.cpp:64:24: warning: 'argtypes' may be used uninitialized in this function [-Wmaybe-uninitialized]
   64 |  for (j = argtypes; (i = j%5) != 0; j /= 5) {
      |                     ~~~^~~~~~
/builddir/build/BUILD/nrn-7.8.1/src/nrniv/../parallel/subworld.cpp:52:20: warning: 'size' may be used uninitialized in this function [-Wmaybe-uninitialized]
   52 |   s = new char(size);
      |                    ^
/builddir/build/BUILD/nrn-7.8.1/src/nrniv/../parallel/subworld.cpp:70:13: warning: 'x' may be used uninitialized in this function [-Wmaybe-uninitialized]
   70 |    hoc_pushx(x);
      |    ~~~~~~~~~^~~
/builddir/build/BUILD/nrn-7.8.1/src/nrniv/../parallel/subworld.cpp:74:28: warning: 'size' may be used uninitialized in this function [-Wmaybe-uninitialized]
   74 |    sarg[ns] = new char(size);
      |                            ^
/builddir/build/BUILD/nrn-7.8.1/src/nrniv/../parallel/subworld.cpp:81:26: warning: 'n' may be used uninitialized in this function [-Wmaybe-uninitialized]
   81 |    Vect* vec = new Vect(n);
      |                          ^
/builddir/build/BUILD/nrn-7.8.1/src/nrniv/../parallel/subworld.cpp:88:17: warning: 'n' may be used uninitialized in this function [-Wmaybe-uninitialized]
   88 |    s = new char[n];
      |                 ^
make[2]: Entering directory '/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu'
[ 33%] Building CXX object src/nrniv/CMakeFiles/nrniv_lib.dir/occvode.cpp.o
cd /builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/nrniv && /usr/bin/g++ -DHAVE_CONFIG_H -Dnrniv_lib_EXPORTS -DCABLE=1 -DOOP=1 -DUSEBBS=1 -DUSECVODE=1 -DUSEMATRIX=1 -I/builddir/build/BUILD/nrn-7.8.1/src/ivoc -I/builddir/build/BUILD/nrn-7.8.1/src/nrniv -I/builddir/build/BUILD/nrn-7.8.1/src/nrnoc -I/builddir/build/BUILD/nrn-7.8.1/src/oc -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/nrncvode -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/nrnjava -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/nrnoc -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/nrnpython -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/oc -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/parallel -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/sundials -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/sundials/shared -I/builddir/build/BUILD/nrn-7.8.1/src -I/builddir/build/BUILD/nrn-7.8.1/src/gnu -I/builddir/build/BUILD/nrn-7.8.1/src/memacs -I/builddir/build/BUILD/nrn-7.8.1/src/mesch -I/builddir/build/BUILD/nrn-7.8.1/src/nrncvode -I/builddir/build/BUILD/nrn-7.8.1/src/nrnmpi -I/builddir/build/BUILD/nrn-7.8.1/src/nrnpython -I/builddir/build/BUILD/nrn-7.8.1/src/parallel -I/builddir/build/BUILD/nrn-7.8.1/src/sparse -I/builddir/build/BUILD/nrn-7.8.1/src/sparse13 -I/builddir/build/BUILD/nrn-7.8.1/src/sundials -I/builddir/build/BUILD/nrn-7.8.1/src/sundials/cvodes -I/builddir/build/BUILD/nrn-7.8.1/src/sundials/ida -I/builddir/build/BUILD/nrn-7.8.1/src/sundials/shared -I/usr/include/python3.9 -O2 -flto=auto -ffat-lto-objects -fexceptions -g -grecord-gcc-switches -pipe -Wall -Werror=format-security -Wp,-D_FORTIFY_SOURCE=2 -Wp,-D_GLIBCXX_ASSERTIONS -specs=/usr/lib/rpm/redhat/redhat-hardened-cc1 -fstack-protector-strong -specs=/usr/lib/rpm/redhat/redhat-annobin-cc1  -fasynchronous-unwind-tables -fstack-clash-protection -fPIC -std=c++98 -o CMakeFiles/nrniv_lib.dir/occvode.cpp.o -c /builddir/build/BUILD/nrn-7.8.1/src/nrniv/occvode.cpp
make[2]: Leaving directory '/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu'
In file included from /builddir/build/BUILD/nrn-7.8.1/src/nrniv/occvode.cpp:5:
/builddir/build/BUILD/nrn-7.8.1/src/nrniv/../nrncvode/occvode.cpp: In member function 'void Cvode::new_no_cap_memb(CvodeThreadData&, NrnThread*)':
/builddir/build/BUILD/nrn-7.8.1/src/nrniv/../nrncvode/occvode.cpp:277:13: warning: unused variable 'ml' [-Wunused-variable]
  277 |  Memb_list* ml;
      |             ^~
/builddir/build/BUILD/nrn-7.8.1/src/nrniv/../nrncvode/occvode.cpp: In member function 'void Cvode::fun_thread_ms_part1(double, double*, NrnThread*)':
/builddir/build/BUILD/nrn-7.8.1/src/nrniv/../nrncvode/occvode.cpp:715:19: warning: unused variable 'z' [-Wunused-variable]
  715 |  CvodeThreadData& z = ctd_[nt->id];
      |                   ^
/builddir/build/BUILD/nrn-7.8.1/src/nrniv/../nrncvode/occvode.cpp: In member function 'void Cvode::before_after(BAMechList*, NrnThread*)':
/builddir/build/BUILD/nrn-7.8.1/src/nrniv/../nrncvode/occvode.cpp:764:9: warning: unused variable 'j' [-Wunused-variable]
  764 |  int i, j;
      |         ^
/builddir/build/BUILD/nrn-7.8.1/src/nrniv/../nrncvode/occvode.cpp: In member function 'void Cvode::acor(double*)':
/builddir/build/BUILD/nrn-7.8.1/src/nrniv/../nrncvode/occvode.cpp:989:13: warning: unused variable 'nt' [-Wunused-variable]
  989 |  NrnThread* nt;
      |             ^~
/builddir/build/BUILD/nrn-7.8.1/src/nrniv/../nrncvode/occvode.cpp: In member function 'Cvode::new_no_cap_memb(CvodeThreadData&, NrnThread*)':
/builddir/build/BUILD/nrn-7.8.1/src/nrniv/../nrncvode/occvode.cpp:298:14: warning: 'ncm' may be used uninitialized in this function [-Wmaybe-uninitialized]
  298 |    ncm->next = new CvMembList();
      |    ~~~~~~~~~~^~~~~~~~~~~~~~~~~~
make[2]: Entering directory '/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu'
[ 34%] Building CXX object src/nrniv/CMakeFiles/nrniv_lib.dir/ppshape.cpp.o
cd /builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/nrniv && /usr/bin/g++ -DHAVE_CONFIG_H -Dnrniv_lib_EXPORTS -DCABLE=1 -DOOP=1 -DUSEBBS=1 -DUSECVODE=1 -DUSEMATRIX=1 -I/builddir/build/BUILD/nrn-7.8.1/src/ivoc -I/builddir/build/BUILD/nrn-7.8.1/src/nrniv -I/builddir/build/BUILD/nrn-7.8.1/src/nrnoc -I/builddir/build/BUILD/nrn-7.8.1/src/oc -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/nrncvode -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/nrnjava -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/nrnoc -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/nrnpython -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/oc -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/parallel -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/sundials -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/sundials/shared -I/builddir/build/BUILD/nrn-7.8.1/src -I/builddir/build/BUILD/nrn-7.8.1/src/gnu -I/builddir/build/BUILD/nrn-7.8.1/src/memacs -I/builddir/build/BUILD/nrn-7.8.1/src/mesch -I/builddir/build/BUILD/nrn-7.8.1/src/nrncvode -I/builddir/build/BUILD/nrn-7.8.1/src/nrnmpi -I/builddir/build/BUILD/nrn-7.8.1/src/nrnpython -I/builddir/build/BUILD/nrn-7.8.1/src/parallel -I/builddir/build/BUILD/nrn-7.8.1/src/sparse -I/builddir/build/BUILD/nrn-7.8.1/src/sparse13 -I/builddir/build/BUILD/nrn-7.8.1/src/sundials -I/builddir/build/BUILD/nrn-7.8.1/src/sundials/cvodes -I/builddir/build/BUILD/nrn-7.8.1/src/sundials/ida -I/builddir/build/BUILD/nrn-7.8.1/src/sundials/shared -I/usr/include/python3.9 -O2 -flto=auto -ffat-lto-objects -fexceptions -g -grecord-gcc-switches -pipe -Wall -Werror=format-security -Wp,-D_FORTIFY_SOURCE=2 -Wp,-D_GLIBCXX_ASSERTIONS -specs=/usr/lib/rpm/redhat/redhat-hardened-cc1 -fstack-protector-strong -specs=/usr/lib/rpm/redhat/redhat-annobin-cc1  -fasynchronous-unwind-tables -fstack-clash-protection -fPIC -std=c++98 -o CMakeFiles/nrniv_lib.dir/ppshape.cpp.o -c /builddir/build/BUILD/nrn-7.8.1/src/nrniv/ppshape.cpp
make[2]: Leaving directory '/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu'
make[2]: Entering directory '/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu'
[ 34%] Building CXX object src/nrniv/CMakeFiles/nrniv_lib.dir/prcellstate.cpp.o
cd /builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/nrniv && /usr/bin/g++ -DHAVE_CONFIG_H -Dnrniv_lib_EXPORTS -DCABLE=1 -DOOP=1 -DUSEBBS=1 -DUSECVODE=1 -DUSEMATRIX=1 -I/builddir/build/BUILD/nrn-7.8.1/src/ivoc -I/builddir/build/BUILD/nrn-7.8.1/src/nrniv -I/builddir/build/BUILD/nrn-7.8.1/src/nrnoc -I/builddir/build/BUILD/nrn-7.8.1/src/oc -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/nrncvode -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/nrnjava -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/nrnoc -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/nrnpython -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/oc -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/parallel -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/sundials -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/sundials/shared -I/builddir/build/BUILD/nrn-7.8.1/src -I/builddir/build/BUILD/nrn-7.8.1/src/gnu -I/builddir/build/BUILD/nrn-7.8.1/src/memacs -I/builddir/build/BUILD/nrn-7.8.1/src/mesch -I/builddir/build/BUILD/nrn-7.8.1/src/nrncvode -I/builddir/build/BUILD/nrn-7.8.1/src/nrnmpi -I/builddir/build/BUILD/nrn-7.8.1/src/nrnpython -I/builddir/build/BUILD/nrn-7.8.1/src/parallel -I/builddir/build/BUILD/nrn-7.8.1/src/sparse -I/builddir/build/BUILD/nrn-7.8.1/src/sparse13 -I/builddir/build/BUILD/nrn-7.8.1/src/sundials -I/builddir/build/BUILD/nrn-7.8.1/src/sundials/cvodes -I/builddir/build/BUILD/nrn-7.8.1/src/sundials/ida -I/builddir/build/BUILD/nrn-7.8.1/src/sundials/shared -I/usr/include/python3.9 -O2 -flto=auto -ffat-lto-objects -fexceptions -g -grecord-gcc-switches -pipe -Wall -Werror=format-security -Wp,-D_FORTIFY_SOURCE=2 -Wp,-D_GLIBCXX_ASSERTIONS -specs=/usr/lib/rpm/redhat/redhat-hardened-cc1 -fstack-protector-strong -specs=/usr/lib/rpm/redhat/redhat-annobin-cc1  -fasynchronous-unwind-tables -fstack-clash-protection -fPIC -std=c++98 -o CMakeFiles/nrniv_lib.dir/prcellstate.cpp.o -c /builddir/build/BUILD/nrn-7.8.1/src/nrniv/prcellstate.cpp
/builddir/build/BUILD/nrn-7.8.1/src/nrniv/prcellstate.cpp: In function 'void pr_memb(int, Memb_list*, int*, NrnThread&, FILE*)':
/builddir/build/BUILD/nrn-7.8.1/src/nrniv/prcellstate.cpp:30:7: warning: unused variable 'psize' [-Wunused-variable]
   30 |   int psize = nrn_prop_dparam_size_[type];
      |       ^~~~~
make[2]: Leaving directory '/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu'
make[2]: Entering directory '/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu'
[ 34%] Building CXX object src/nrniv/CMakeFiles/nrniv_lib.dir/pysecname2sec.cpp.o
cd /builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/nrniv && /usr/bin/g++ -DHAVE_CONFIG_H -Dnrniv_lib_EXPORTS -DCABLE=1 -DOOP=1 -DUSEBBS=1 -DUSECVODE=1 -DUSEMATRIX=1 -I/builddir/build/BUILD/nrn-7.8.1/src/ivoc -I/builddir/build/BUILD/nrn-7.8.1/src/nrniv -I/builddir/build/BUILD/nrn-7.8.1/src/nrnoc -I/builddir/build/BUILD/nrn-7.8.1/src/oc -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/nrncvode -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/nrnjava -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/nrnoc -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/nrnpython -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/oc -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/parallel -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/sundials -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/sundials/shared -I/builddir/build/BUILD/nrn-7.8.1/src -I/builddir/build/BUILD/nrn-7.8.1/src/gnu -I/builddir/build/BUILD/nrn-7.8.1/src/memacs -I/builddir/build/BUILD/nrn-7.8.1/src/mesch -I/builddir/build/BUILD/nrn-7.8.1/src/nrncvode -I/builddir/build/BUILD/nrn-7.8.1/src/nrnmpi -I/builddir/build/BUILD/nrn-7.8.1/src/nrnpython -I/builddir/build/BUILD/nrn-7.8.1/src/parallel -I/builddir/build/BUILD/nrn-7.8.1/src/sparse -I/builddir/build/BUILD/nrn-7.8.1/src/sparse13 -I/builddir/build/BUILD/nrn-7.8.1/src/sundials -I/builddir/build/BUILD/nrn-7.8.1/src/sundials/cvodes -I/builddir/build/BUILD/nrn-7.8.1/src/sundials/ida -I/builddir/build/BUILD/nrn-7.8.1/src/sundials/shared -I/usr/include/python3.9 -O2 -flto=auto -ffat-lto-objects -fexceptions -g -grecord-gcc-switches -pipe -Wall -Werror=format-security -Wp,-D_FORTIFY_SOURCE=2 -Wp,-D_GLIBCXX_ASSERTIONS -specs=/usr/lib/rpm/redhat/redhat-hardened-cc1 -fstack-protector-strong -specs=/usr/lib/rpm/redhat/redhat-annobin-cc1  -fasynchronous-unwind-tables -fstack-clash-protection -fPIC -std=c++98 -o CMakeFiles/nrniv_lib.dir/pysecname2sec.cpp.o -c /builddir/build/BUILD/nrn-7.8.1/src/nrniv/pysecname2sec.cpp
make[2]: Leaving directory '/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu'
make[2]: Entering directory '/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu'
[ 34%] Building CXX object src/nrniv/CMakeFiles/nrniv_lib.dir/rotate3d.cpp.o
cd /builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/nrniv && /usr/bin/g++ -DHAVE_CONFIG_H -Dnrniv_lib_EXPORTS -DCABLE=1 -DOOP=1 -DUSEBBS=1 -DUSECVODE=1 -DUSEMATRIX=1 -I/builddir/build/BUILD/nrn-7.8.1/src/ivoc -I/builddir/build/BUILD/nrn-7.8.1/src/nrniv -I/builddir/build/BUILD/nrn-7.8.1/src/nrnoc -I/builddir/build/BUILD/nrn-7.8.1/src/oc -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/nrncvode -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/nrnjava -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/nrnoc -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/nrnpython -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/oc -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/parallel -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/sundials -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/sundials/shared -I/builddir/build/BUILD/nrn-7.8.1/src -I/builddir/build/BUILD/nrn-7.8.1/src/gnu -I/builddir/build/BUILD/nrn-7.8.1/src/memacs -I/builddir/build/BUILD/nrn-7.8.1/src/mesch -I/builddir/build/BUILD/nrn-7.8.1/src/nrncvode -I/builddir/build/BUILD/nrn-7.8.1/src/nrnmpi -I/builddir/build/BUILD/nrn-7.8.1/src/nrnpython -I/builddir/build/BUILD/nrn-7.8.1/src/parallel -I/builddir/build/BUILD/nrn-7.8.1/src/sparse -I/builddir/build/BUILD/nrn-7.8.1/src/sparse13 -I/builddir/build/BUILD/nrn-7.8.1/src/sundials -I/builddir/build/BUILD/nrn-7.8.1/src/sundials/cvodes -I/builddir/build/BUILD/nrn-7.8.1/src/sundials/ida -I/builddir/build/BUILD/nrn-7.8.1/src/sundials/shared -I/usr/include/python3.9 -O2 -flto=auto -ffat-lto-objects -fexceptions -g -grecord-gcc-switches -pipe -Wall -Werror=format-security -Wp,-D_FORTIFY_SOURCE=2 -Wp,-D_GLIBCXX_ASSERTIONS -specs=/usr/lib/rpm/redhat/redhat-hardened-cc1 -fstack-protector-strong -specs=/usr/lib/rpm/redhat/redhat-annobin-cc1  -fasynchronous-unwind-tables -fstack-clash-protection -fPIC -std=c++98 -o CMakeFiles/nrniv_lib.dir/rotate3d.cpp.o -c /builddir/build/BUILD/nrn-7.8.1/src/nrniv/rotate3d.cpp
make[2]: Leaving directory '/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu'
make[2]: Entering directory '/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu'
[ 33%] Building CXX object src/nrniv/CMakeFiles/nrniv_lib.dir/partrans.cpp.o
cd /builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/nrniv && /usr/bin/g++ -DHAVE_CONFIG_H -Dnrniv_lib_EXPORTS -DCABLE=1 -DOOP=1 -DUSEBBS=1 -DUSECVODE=1 -DUSEMATRIX=1 -I/builddir/build/BUILD/nrn-7.8.1/src/ivoc -I/builddir/build/BUILD/nrn-7.8.1/src/nrniv -I/builddir/build/BUILD/nrn-7.8.1/src/nrnoc -I/builddir/build/BUILD/nrn-7.8.1/src/oc -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/nrncvode -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/nrnjava -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/nrnoc -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/nrnpython -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/oc -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/parallel -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/sundials -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/sundials/shared -I/builddir/build/BUILD/nrn-7.8.1/src -I/builddir/build/BUILD/nrn-7.8.1/src/gnu -I/builddir/build/BUILD/nrn-7.8.1/src/memacs -I/builddir/build/BUILD/nrn-7.8.1/src/mesch -I/builddir/build/BUILD/nrn-7.8.1/src/nrncvode -I/builddir/build/BUILD/nrn-7.8.1/src/nrnmpi -I/builddir/build/BUILD/nrn-7.8.1/src/nrnpython -I/builddir/build/BUILD/nrn-7.8.1/src/parallel -I/builddir/build/BUILD/nrn-7.8.1/src/sparse -I/builddir/build/BUILD/nrn-7.8.1/src/sparse13 -I/builddir/build/BUILD/nrn-7.8.1/src/sundials -I/builddir/build/BUILD/nrn-7.8.1/src/sundials/cvodes -I/builddir/build/BUILD/nrn-7.8.1/src/sundials/ida -I/builddir/build/BUILD/nrn-7.8.1/src/sundials/shared -I/usr/include/python3.9 -O2 -flto=auto -ffat-lto-objects -fexceptions -g -grecord-gcc-switches -pipe -Wall -Werror=format-security -Wp,-D_FORTIFY_SOURCE=2 -Wp,-D_GLIBCXX_ASSERTIONS -specs=/usr/lib/rpm/redhat/redhat-hardened-cc1 -fstack-protector-strong -specs=/usr/lib/rpm/redhat/redhat-annobin-cc1  -fasynchronous-unwind-tables -fstack-clash-protection -fPIC -std=c++98 -o CMakeFiles/nrniv_lib.dir/partrans.cpp.o -c /builddir/build/BUILD/nrn-7.8.1/src/nrniv/partrans.cpp
make[2]: Leaving directory '/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu'
/builddir/build/BUILD/nrn-7.8.1/src/nrniv/partrans.cpp: In function 'void nrn_partrans_update_ptrs()':
/builddir/build/BUILD/nrn-7.8.1/src/nrniv/partrans.cpp:373:9: warning: variable 'n' set but not used [-Wunused-but-set-variable]
  373 |  int i, n;
      |         ^
/builddir/build/BUILD/nrn-7.8.1/src/nrniv/partrans.cpp: In function 'void nrnmpi_setup_transfer()':
/builddir/build/BUILD/nrn-7.8.1/src/nrniv/partrans.cpp:701:6: warning: unused variable 'nhost' [-Wunused-variable]
  701 |  int nhost = nrnmpi_numprocs;
      |      ^~~~~
/builddir/build/BUILD/nrn-7.8.1/src/nrniv/partrans.cpp: At global scope:
/builddir/build/BUILD/nrn-7.8.1/src/nrniv/partrans.cpp:329:13: warning: 'void check_pointers()' defined but not used [-Wunused-function]
  329 | static void check_pointers() {
      |             ^~~~~~~~~~~~~~
/builddir/build/BUILD/nrn-7.8.1/src/nrniv/partrans.cpp:204:44: warning: 'outsrcdspl_' defined but not used [-Wunused-variable]
  204 | static int outsrc_buf_size_, *outsrccnt_, *outsrcdspl_;
      |                                            ^~~~~~~~~~~
/builddir/build/BUILD/nrn-7.8.1/src/nrniv/partrans.cpp:204:31: warning: 'outsrccnt_' defined but not used [-Wunused-variable]
  204 | static int outsrc_buf_size_, *outsrccnt_, *outsrcdspl_;
      |                               ^~~~~~~~~~
/builddir/build/BUILD/nrn-7.8.1/src/nrniv/partrans.cpp:203:42: warning: 'insrcdspl_' defined but not used [-Wunused-variable]
  203 | static int insrc_buf_size_, *insrccnt_, *insrcdspl_;
      |                                          ^~~~~~~~~~
/builddir/build/BUILD/nrn-7.8.1/src/nrniv/partrans.cpp:203:30: warning: 'insrccnt_' defined but not used [-Wunused-variable]
  203 | static int insrc_buf_size_, *insrccnt_, *insrcdspl_;
      |                              ^~~~~~~~~
/builddir/build/BUILD/nrn-7.8.1/src/nrniv/partrans.cpp:203:12: warning: 'insrc_buf_size_' defined but not used [-Wunused-variable]
  203 | static int insrc_buf_size_, *insrccnt_, *insrcdspl_;
      |            ^~~~~~~~~~~~~~~
make[2]: Entering directory '/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu'
[ 35%] Building CXX object src/nrniv/CMakeFiles/nrniv_lib.dir/secbrows.cpp.o
cd /builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/nrniv && /usr/bin/g++ -DHAVE_CONFIG_H -Dnrniv_lib_EXPORTS -DCABLE=1 -DOOP=1 -DUSEBBS=1 -DUSECVODE=1 -DUSEMATRIX=1 -I/builddir/build/BUILD/nrn-7.8.1/src/ivoc -I/builddir/build/BUILD/nrn-7.8.1/src/nrniv -I/builddir/build/BUILD/nrn-7.8.1/src/nrnoc -I/builddir/build/BUILD/nrn-7.8.1/src/oc -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/nrncvode -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/nrnjava -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/nrnoc -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/nrnpython -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/oc -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/parallel -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/sundials -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/sundials/shared -I/builddir/build/BUILD/nrn-7.8.1/src -I/builddir/build/BUILD/nrn-7.8.1/src/gnu -I/builddir/build/BUILD/nrn-7.8.1/src/memacs -I/builddir/build/BUILD/nrn-7.8.1/src/mesch -I/builddir/build/BUILD/nrn-7.8.1/src/nrncvode -I/builddir/build/BUILD/nrn-7.8.1/src/nrnmpi -I/builddir/build/BUILD/nrn-7.8.1/src/nrnpython -I/builddir/build/BUILD/nrn-7.8.1/src/parallel -I/builddir/build/BUILD/nrn-7.8.1/src/sparse -I/builddir/build/BUILD/nrn-7.8.1/src/sparse13 -I/builddir/build/BUILD/nrn-7.8.1/src/sundials -I/builddir/build/BUILD/nrn-7.8.1/src/sundials/cvodes -I/builddir/build/BUILD/nrn-7.8.1/src/sundials/ida -I/builddir/build/BUILD/nrn-7.8.1/src/sundials/shared -I/usr/include/python3.9 -O2 -flto=auto -ffat-lto-objects -fexceptions -g -grecord-gcc-switches -pipe -Wall -Werror=format-security -Wp,-D_FORTIFY_SOURCE=2 -Wp,-D_GLIBCXX_ASSERTIONS -specs=/usr/lib/rpm/redhat/redhat-hardened-cc1 -fstack-protector-strong -specs=/usr/lib/rpm/redhat/redhat-annobin-cc1  -fasynchronous-unwind-tables -fstack-clash-protection -fPIC -std=c++98 -o CMakeFiles/nrniv_lib.dir/secbrows.cpp.o -c /builddir/build/BUILD/nrn-7.8.1/src/nrniv/secbrows.cpp
make[2]: Leaving directory '/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu'
In file included from /builddir/build/BUILD/nrn-7.8.1/src/nrniv/nrnoc2iv.h:8,
                 from /builddir/build/BUILD/nrn-7.8.1/src/nrniv/secbrows.cpp:18:
/builddir/build/BUILD/nrn-7.8.1/src/nrniv/secbrows.cpp: In constructor 'OcSectionBrowser::OcSectionBrowser(Object*)':
/builddir/build/BUILD/nrn-7.8.1/src/nrniv/secbrows.cpp:131:18: warning: unused variable 'sec' [-Wunused-variable]
  131 |   ForAllSections(sec) //{
      |                  ^~~
/builddir/build/BUILD/nrn-7.8.1/src/nrnoc/section.h:314:41: note: in definition of macro 'ForAllSections'
  314 |  ITERATE(qsec, section_list) { Section* sec = hocSEC(qsec);
      |                                         ^~~
/builddir/build/BUILD/nrn-7.8.1/src/nrniv/secbrows.cpp: In constructor 'SectionBrowserImpl::SectionBrowserImpl()':
/builddir/build/BUILD/nrn-7.8.1/src/nrniv/secbrows.cpp:365:17: warning: unused variable 'sec' [-Wunused-variable]
  365 |  ForAllSections(sec) //{
      |                 ^~~
/builddir/build/BUILD/nrn-7.8.1/src/nrnoc/section.h:314:41: note: in definition of macro 'ForAllSections'
  314 |  ITERATE(qsec, section_list) { Section* sec = hocSEC(qsec);
      |                                         ^~~
/builddir/build/BUILD/nrn-7.8.1/src/nrniv/secbrows.cpp: In constructor 'SectionBrowser::SectionBrowser()':
/builddir/build/BUILD/nrn-7.8.1/src/nrniv/secbrows.cpp:392:13: warning: unused variable 'lk' [-Wunused-variable]
  392 |  LayoutKit& lk = *LayoutKit::instance();
      |             ^~
/builddir/build/BUILD/nrn-7.8.1/src/nrniv/secbrows.cpp:393:13: warning: unused variable 'wk' [-Wunused-variable]
  393 |  WidgetKit& wk = *WidgetKit::instance();
      |             ^~
/builddir/build/BUILD/nrn-7.8.1/src/nrniv/secbrows.cpp: In static member function 'static void SectionBrowser::make_section_browser()':
/builddir/build/BUILD/nrn-7.8.1/src/nrniv/secbrows.cpp:440:13: warning: unused variable 'wk' [-Wunused-variable]
  440 |  WidgetKit& wk = *WidgetKit::instance();
      |             ^~
/builddir/build/BUILD/nrn-7.8.1/src/nrniv/secbrows.cpp: In static member function 'static void PointProcessBrowser::make_point_process_browser(OcList*)':
/builddir/build/BUILD/nrn-7.8.1/src/nrniv/secbrows.cpp:500:13: warning: unused variable 'wk' [-Wunused-variable]
  500 |  WidgetKit& wk = *WidgetKit::instance();
      |             ^~
make[2]: Entering directory '/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu'
[ 34%] Building CXX object src/nrniv/CMakeFiles/nrniv_lib.dir/savstate.cpp.o
cd /builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/nrniv && /usr/bin/g++ -DHAVE_CONFIG_H -Dnrniv_lib_EXPORTS -DCABLE=1 -DOOP=1 -DUSEBBS=1 -DUSECVODE=1 -DUSEMATRIX=1 -I/builddir/build/BUILD/nrn-7.8.1/src/ivoc -I/builddir/build/BUILD/nrn-7.8.1/src/nrniv -I/builddir/build/BUILD/nrn-7.8.1/src/nrnoc -I/builddir/build/BUILD/nrn-7.8.1/src/oc -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/nrncvode -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/nrnjava -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/nrnoc -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/nrnpython -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/oc -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/parallel -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/sundials -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/sundials/shared -I/builddir/build/BUILD/nrn-7.8.1/src -I/builddir/build/BUILD/nrn-7.8.1/src/gnu -I/builddir/build/BUILD/nrn-7.8.1/src/memacs -I/builddir/build/BUILD/nrn-7.8.1/src/mesch -I/builddir/build/BUILD/nrn-7.8.1/src/nrncvode -I/builddir/build/BUILD/nrn-7.8.1/src/nrnmpi -I/builddir/build/BUILD/nrn-7.8.1/src/nrnpython -I/builddir/build/BUILD/nrn-7.8.1/src/parallel -I/builddir/build/BUILD/nrn-7.8.1/src/sparse -I/builddir/build/BUILD/nrn-7.8.1/src/sparse13 -I/builddir/build/BUILD/nrn-7.8.1/src/sundials -I/builddir/build/BUILD/nrn-7.8.1/src/sundials/cvodes -I/builddir/build/BUILD/nrn-7.8.1/src/sundials/ida -I/builddir/build/BUILD/nrn-7.8.1/src/sundials/shared -I/usr/include/python3.9 -O2 -flto=auto -ffat-lto-objects -fexceptions -g -grecord-gcc-switches -pipe -Wall -Werror=format-security -Wp,-D_FORTIFY_SOURCE=2 -Wp,-D_GLIBCXX_ASSERTIONS -specs=/usr/lib/rpm/redhat/redhat-hardened-cc1 -fstack-protector-strong -specs=/usr/lib/rpm/redhat/redhat-annobin-cc1  -fasynchronous-unwind-tables -fstack-clash-protection -fPIC -std=c++98 -o CMakeFiles/nrniv_lib.dir/savstate.cpp.o -c /builddir/build/BUILD/nrn-7.8.1/src/nrniv/savstate.cpp
In file included from /builddir/build/BUILD/nrn-7.8.1/src/oc/hocdec.h:14,
                 from /builddir/build/BUILD/nrn-7.8.1/src/ivoc/oc2iv.h:7,
                 from /builddir/build/BUILD/nrn-7.8.1/src/nrniv/nrnoc2iv.h:5,
                 from /builddir/build/BUILD/nrn-7.8.1/src/nrniv/savstate.cpp:6:
/builddir/build/BUILD/nrn-7.8.1/src/nrniv/savstate.cpp: In member function 'virtual void SaveState::read(OcFile*, bool)':
/builddir/build/BUILD/nrn-7.8.1/src/nrniv/savstate.cpp:33:56: warning: comparison of integer expressions of different signedness: 'size_t' {aka 'long unsigned int'} and 'int' [-Wsign-compare]
   33 | #define ASSERTfread(a,b,c,d) nrn_assert(fread(a,b,c,d) == c)
      |                                         ~~~~~~~~~~~~~~~^~~~~
   34 | #define ASSERTfwrite(a,b,c,d) nrn_assert(fwrite(a,b,c,d) == c)
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
   35 | 
      |                                                         
   36 | class SaveState : public Resource {
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                     
   37 | public:
      | ~~~~~~~                                                 
   38 |  SaveState();
      |  ~~~~~~~~~~~~                                           
   39 |  ~SaveState();
      |  ~~~~~~~~~~~~~                                          
   40 |  virtual void save();
      |  ~~~~~~~~~~~~~~~~~~~~                                   
   41 |  virtual void restore(int type);
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                        
   42 |  virtual void read(OcFile*, bool close);
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                
   43 |  virtual void write(OcFile*, bool close);
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~               
   44 |  struct NodeState {
      |  ~~~~~~~~~~~~~~~~~~                                     
   45 |   double v;
      |   ~~~~~~~~~                                             
   46 |   int nmemb;
      |   ~~~~~~~~~~                                            
   47 |   int* type;
      |   ~~~~~~~~~~                                            
   48 |   int nstate;
      |   ~~~~~~~~~~~                                           
   49 |   double* state;
      |   ~~~~~~~~~~~~~~                                        
   50 |  };
      |  ~~                                                     
   51 |  struct SecState {
      |  ~~~~~~~~~~~~~~~~~                                      
   52 |   Section* sec;
      |   ~~~~~~~~~~~~~                                         
   53 |   int nnode;
      |   ~~~~~~~~~~                                            
   54 |   struct NodeState* ns;
      |   ~~~~~~~~~~~~~~~~~~~~~                                 
   55 |   struct NodeState* root; // non-zero for rootnode
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~      
   56 |  };
      |  ~~                                                     
   57 |  struct StateStructInfo {
      |  ~~~~~~~~~~~~~~~~~~~~~~~~                               
   58 |   int offset;
      |   ~~~~~~~~~~~                                           
   59 |   int size;
      |   ~~~~~~~~~                                             
   60 |  };
      |  ~~                                                     
   61 |  struct ACellState {
      |  ~~~~~~~~~~~~~~~~~~~                                    
   62 |   int type;
      |   ~~~~~~~~~                                             
   63 |   int ncell;
      |   ~~~~~~~~~~                                            
   64 |   double* state;
      |   ~~~~~~~~~~~~~~                                        
   65 |  };
      |  ~~                                                     
   66 |  struct NetConState {
      |  ~~~~~~~~~~~~~~~~~~~~                                   
   67 |   int object_index; // for checking
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                     
   68 |   int nstate;
      |   ~~~~~~~~~~~                                           
   69 |   double* state;
      |   ~~~~~~~~~~~~~~                                        
   70 |  };
      |  ~~                                                     
   71 |  struct PreSynState {
      |  ~~~~~~~~~~~~~~~~~~~~                                   
   72 |   bool flag; // is it firing?
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~                           
   73 |   double valthresh, valold, told;
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                       
   74 | 
      |                                                         
   75 |  };
      |  ~~                                                     
   76 |  struct TQState {
      |  ~~~~~~~~~~~~~~~~                                       
   77 |   int nstate;
      |   ~~~~~~~~~~~                                           
   78 |   double* tdeliver;
      |   ~~~~~~~~~~~~~~~~~                                     
   79 |   DiscreteEvent** items;
      |   ~~~~~~~~~~~~~~~~~~~~~~                                
   80 |  };
      |  ~~                                                     
   81 | private:
      | ~~~~~~~~                                                
   82 |  bool check(bool warn);
      |  ~~~~~~~~~~~~~~~~~~~~~~                                 
   83 |  void alloc();
      |  ~~~~~~~~~~~~~                                          
   84 |  void ssfree();
      |  ~~~~~~~~~~~~~~                                         
   85 |  void ssi_def();
      |  ~~~~~~~~~~~~~~~                                        
   86 | private:
      | ~~~~~~~~                                                
   87 |  void fread_NodeState(NodeState*, int, FILE*);
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~          
   88 |  void fwrite_NodeState(NodeState*, int, FILE*);
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~         
   89 |  void fread_SecState(SecState*, int, FILE*);
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~            
   90 |  void fwrite_SecState(SecState*, int, FILE*);
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~           
   91 | private:
      | ~~~~~~~~                                                
   92 |  double t_;
      |  ~~~~~~~~~~                                             
   93 |  int nroot_;
      |  ~~~~~~~~~~~                                            
   94 |  int nsec_;
      |  ~~~~~~~~~~                                             
   95 |  SecState* ss_;
      |  ~~~~~~~~~~~~~~                                         
   96 |  int nacell_; // number of types
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                        
   97 |  ACellState* acell_;
      |  ~~~~~~~~~~~~~~~~~~~                                    
   98 |  int nncs_;
      |  ~~~~~~~~~~                                             
   99 |  NetConState* ncs_;
      |  ~~~~~~~~~~~~~~~~~~                                     
  100 |  int npss_;
      |  ~~~~~~~~~~                                             
  101 |  PreSynState* pss_;
      |  ~~~~~~~~~~~~~~~~~~                                     
  102 |  TQState* tqs_;
      |  ~~~~~~~~~~~~~~                                         
  103 |  int tqcnt_; // volatile for index of forall_callback
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~   
  104 |  int nprs_;
      |  ~~~~~~~~~~                                             
  105 |  PlayRecordSave** prs_;
      |  ~~~~~~~~~~~~~~~~~~~~~~                                 
  106 |  static StateStructInfo* ssi;
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~                           
  107 |  static cTemplate* nct;
      |  ~~~~~~~~~~~~~~~~~~~~~~                                 
  108 | private:
      | ~~~~~~~~                                                
  109 |  void savenode(NodeState&, Node*);
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                      
  110 |  void restorenode(NodeState&, Node*);
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                   
  111 |  bool checknode(NodeState&, Node*, bool);
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~               
  112 |  void allocnode(NodeState&, Node*);
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                     
  113 | 
      |                                                         
  114 |  void saveacell(ACellState&, int type);
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                 
  115 |  void restoreacell(ACellState&, int type);
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~              
  116 |  bool checkacell(ACellState&, int type, bool);
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~          
  117 |  void allocacell(ACellState&, int type);
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                
  118 | 
      |                                                         
  119 |  void savenet();
      |  ~~~~~~~~~~~~~~~                                        
  120 |  void restorenet();
      |  ~~~~~~~~~~~~~~~~~~                                     
  121 |  void readnet(FILE*);
      |  ~~~~~~~~~~~~~~~~~~~~                                   
  122 |  void writenet(FILE*);
      |  ~~~~~~~~~~~~~~~~~~~~~                                  
  123 |  bool checknet(bool);
      |  ~~~~~~~~~~~~~~~~~~~~                                   
  124 |  void allocnet();
      |  ~~~~~~~~~~~~~~~~                                       
  125 |  void free_tq();
      |  ~~~~~~~~~~~~~~~                                        
  126 |  void alloc_tq();
      |  ~~~~~~~~~~~~~~~~                                       
  127 | public:
      | ~~~~~~~                                                 
  128 |  void tqcount(const TQItem*, int);
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                      
  129 |  void tqsave(const TQItem*, int);
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                       
  130 | };
      | ~~                                                      
  131 | 
      |                                                         
  132 | static SaveState* this_savestate;
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                       
  133 | static int callback_mode;
      | ~~~~~~~~~~~~~~~~~~~~~~~~~                               
  134 | 
      |                                                         
  135 | void tqcallback(const TQItem* tq, int i) {
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~              
  136 |  if (callback_mode == 0) {
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~                              
  137 |   this_savestate->tqcount(tq, i);
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                       
  138 |  }else{
      |  ~~~~~~                                                 
  139 |   this_savestate->tqsave(tq, i);
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                        
  140 |  }
      |  ~                                                      
  141 | }
      | ~                                                       
  142 | 
      |                                                         
  143 | #if __sgi && 0
      | ~~~~~~~~~~~~~~                                          
  144 | // fixed in version 5 of os
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~                             
  145 | StateStructInfo* SaveState::ssi;
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                        
  146 | #else
      | ~~~~~                                                   
  147 | SaveState::StateStructInfo* SaveState::ssi;
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~             
  148 | #endif
      | ~~~~~~                                                  
  149 | cTemplate* SaveState::nct;
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~                              
  150 | 
      |                                                         
  151 | SaveState::SaveState() {
      | ~~~~~~~~~~~~~~~~~~~~~~~~                                
  152 |  int i, j;
      |  ~~~~~~~~~                                              
  153 |  ssi_def();
      |  ~~~~~~~~~~                                             
  154 |  nroot_ = 0;
      |  ~~~~~~~~~~~                                            
  155 |  ss_ = NULL;
      |  ~~~~~~~~~~~                                            
  156 |  nsec_ = 0;
      |  ~~~~~~~~~~                                             
  157 |  nncs_ = 0;
      |  ~~~~~~~~~~                                             
  158 |  ncs_ = NULL;
      |  ~~~~~~~~~~~~                                           
  159 |  npss_ = 0;
      |  ~~~~~~~~~~                                             
  160 |  pss_ = NULL;
      |  ~~~~~~~~~~~~                                           
  161 |  tqs_ = new TQState();
      |  ~~~~~~~~~~~~~~~~~~~~~                                  
  162 |  tqs_->nstate = 0;
      |  ~~~~~~~~~~~~~~~~~                                      
  163 |  nprs_ = 0;
      |  ~~~~~~~~~~                                             
  164 |  prs_ = NULL;
      |  ~~~~~~~~~~~~                                           
  165 |  nacell_ = 0;
      |  ~~~~~~~~~~~~                                           
  166 |  for (i=0; i < n_memb_func; ++i) if (nrn_is_artificial_[i]) {
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
  167 |   ++nacell_;
      |   ~~~~~~~~~~                                            
  168 |  }
      |  ~                                                      
  169 |  acell_ = new ACellState[nacell_];
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                      
  170 |  for (i=0; i < nacell_; ++i) {
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                          
  171 |   acell_[i].ncell = 0;
      |   ~~~~~~~~~~~~~~~~~~~~                                  
  172 |   acell_[i].state = 0;
      |   ~~~~~~~~~~~~~~~~~~~~                                  
  173 |  }
      |  ~                                                      
  174 |  for (i=0, j=0; i < n_memb_func; ++i) if (nrn_is_artificial_[i]) {
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
  175 |   acell_[j].type = i;
      |   ~~~~~~~~~~~~~~~~~~~                                   
  176 |   ++j;
      |   ~~~~                                                  
  177 |  }
      |  ~                                                      
  178 | }
      | ~                                                       
  179 | 
      |                                                         
  180 | SaveState::~SaveState() {
      | ~~~~~~~~~~~~~~~~~~~~~~~~~                               
  181 |  ssfree();
      |  ~~~~~~~~~                                              
  182 |  delete tqs_;
      |  ~~~~~~~~~~~~                                           
  183 |  delete [] acell_;
      |  ~~~~~~~~~~~~~~~~~                                      
  184 | }
      | ~                                                       
  185 | 
      |                                                         
  186 | void SaveState::fread_NodeState(NodeState* ns, int cnt, FILE* f) {
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
  187 |  for (int i=0; i < cnt; ++i) {
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                          
  188 |   ASSERTfread(&ns[i].v, sizeof(double), 1, f);
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~          
  189 |   ASSERTfread(&ns[i].nmemb, sizeof(int), 1, f);
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~         
  190 |   ASSERTfread(&ns[i].nstate, sizeof(int), 1, f);
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~        
  191 |  }
      |  ~                                                      
  192 | }
      | ~                                                       
  193 | void SaveState::fwrite_NodeState(NodeState* ns, int cnt, FILE* f){
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
  194 |  for (int i=0; i < cnt; ++i) {
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                          
  195 |   ASSERTfwrite(&ns[i].v, sizeof(double), 1, f);
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~         
  196 |   ASSERTfwrite(&ns[i].nmemb, sizeof(int), 1, f);
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~        
  197 |   ASSERTfwrite(&ns[i].nstate, sizeof(int), 1, f);
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~       
  198 |  }
      |  ~                                                      
  199 | }
      | ~                                                       
  200 | void SaveState::fread_SecState(SecState* ss, int cnt, FILE* f){
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
  201 |  int b;
      |  ~~~~~~                                                 
  202 |  for (int i=0; i < cnt; ++i) {
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                          
  203 |   ASSERTfread(&ss[i].nnode, sizeof(int), 1, f);
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~         
  204 |   ASSERTfread(&b, sizeof(int), 1, f);
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                   
  205 |   if (b) {
      |   ~~~~~~~~                                              
  206 |    ss[i].root = new NodeState;
      |    ~~~~~~~~~~~~~~~~~~~~~~~~~~~                          
  207 |   }else{
      |   ~~~~~~                                                
  208 |    ss[i].root = 0;
      |    ~~~~~~~~~~~~~~~                                      
  209 |   }
      |   ~                                                     
  210 |  }
      |  ~                                                      
  211 | }
      | ~                                                       
  212 | void SaveState::fwrite_SecState(SecState* ss, int cnt, FILE* f){
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
  213 |  int b;
      |  ~~~~~~                                                 
  214 |  for (int i=0; i < cnt; ++i) {
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                          
  215 |   ASSERTfwrite(&ss[i].nnode, sizeof(int), 1, f);
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~        
  216 |   b = ss[i].root ? 1 : 0;
      |   ~~~~~~~~~~~~~~~~~~~~~~~                               
  217 |   ASSERTfwrite(&b, sizeof(int), 1, f);
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                  
  218 |  }
      |  ~                                                      
  219 | }
      | ~                                                       
  220 | 
      |                                                         
  221 | void SaveState::ssi_def() {
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~                             
  222 |  if (nct) { return; }
      |  ~~~~~~~~~~~~~~~~~~~~                                   
  223 |  Symbol* s = hoc_lookup("NetCon");
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                      
  224 |  nct = s->u.ctemplate;
      |  ~~~~~~~~~~~~~~~~~~~~~                                  
  225 |  ssi = new StateStructInfo[n_memb_func];
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                
  226 |  for (int im=0; im < n_memb_func; ++im) {
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~               
  227 |   ssi[im].offset = -1;
      |   ~~~~~~~~~~~~~~~~~~~~                                  
  228 |   ssi[im].size = 0;
      |   ~~~~~~~~~~~~~~~~~                                     
  229 |   if (!memb_func[im].sym) {
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~                             
  230 |    continue;
      |    ~~~~~~~~~                                            
  231 |   }
      |   ~                                                     
  232 |   NrnProperty* np = new NrnProperty(memb_func[im].sym->name);
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
  233 |   // generally we only save STATE variables. However for
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
  234 |   // models containing a NET_RECEIVE block, we also need to
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
  235 |   // save everything except the parameters
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~              
  236 |   // because they often contain
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                         
  237 |   // logic and analytic state values. Unfortunately, it is often
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
  238 |   // the case that the ASSIGNED variables are not declared as
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
  239 |   // RANGE variables so to avoid missing state, save the whole
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
  240 |   // param array including PARAMETERs.
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                  
  241 |      if  (pnt_receive[im]) {
      |      ~~~~~~~~~~~~~~~~~~~~~~~                            
  242 |   ssi[im].offset = 0;
      |   ~~~~~~~~~~~~~~~~~~~                                   
  243 |   ssi[im].size = np->prop()->param_size;
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                
  244 |      }else{
      |      ~~~~~~                                             
  245 |   int type = STATE;
      |   ~~~~~~~~~~~~~~~~~                                     
  246 |   for (Symbol* sym = np->first_var(); np->more_var(); sym = np->next_var()) {
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
  247 |    if (np->var_type(sym) == type
      |    ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                        
  248 |        || np->var_type(sym) == STATE
      |        ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                    
  249 |        || sym->subtype == _AMBIGUOUS) {
      |        ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                 
  250 |     if (ssi[im].offset < 0) {
      |     ~~~~~~~~~~~~~~~~~~~~~~~~~                           
  251 |      ssi[im].offset = np->prop_index(sym);
      |      ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~              
  252 |     }
      |     ~                                                   
  253 |     ssi[im].size += hoc_total_array_data(sym, 0);
      |     ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~       
  254 |    }
      |    ~                                                    
  255 |   }
      |   ~                                                     
  256 |      }
      |      ~                                                  
  257 |      delete np;
      |      ~~~~~~~~~~                                         
  258 |  }
      |  ~                                                      
  259 | }
      | ~                                                       
  260 | 
      |                                                         
  261 | bool SaveState::check(bool warn) {
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                      
  262 |  hoc_Item* qsec;
      |  ~~~~~~~~~~~~~~~                                        
  263 |  int isec;
      |  ~~~~~~~~~                                              
  264 |  if (nsec_ != section_count) {
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                          
  265 |   if (warn) {
      |   ~~~~~~~~~~~                                           
  266 | fprintf(stderr, "SaveState warning: %d sections exist but saved %d\n",
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
  267 |    section_count, nsec_);
      |    ~~~~~~~~~~~~~~~~~~~~~~                               
  268 |   }
      |   ~                                                     
  269 |   return false;
      |   ~~~~~~~~~~~~~                                         
  270 |  }
      |  ~                                                      
  271 |  if (nroot_ != nrn_global_ncell) {
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                      
  272 |   if (warn) {
      |   ~~~~~~~~~~~                                           
  273 | fprintf(stderr, "SaveState warning: %d cells exist but saved %d\n",
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
  274 |    nrn_global_ncell, nroot_);
      |    ~~~~~~~~~~~~~~~~~~~~~~~~~~                           
  275 |   }
      |   ~                                                     
  276 |   return false;
      |   ~~~~~~~~~~~~~                                         
  277 |  }
      |  ~                                                      
  278 |  if (nsec_ && ss_[0].sec == NULL) { // got the data from a read
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
  279 |   isec = 0; ForAllSections(sec)
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                         
  280 |    ss_[isec].sec = sec;
      |    ~~~~~~~~~~~~~~~~~~~~                                 
  281 |    section_ref(ss_[isec].sec);
      |    ~~~~~~~~~~~~~~~~~~~~~~~~~~~                          
  282 |    ++isec;
      |    ~~~~~~~                                              
  283 |   }
      |   ~                                                     
  284 |  }
      |  ~                                                      
  285 |  for (int i=0, j=0; i < n_memb_func; ++i) if (nrn_is_artificial_[i]) {
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
  286 |   if (!checkacell(acell_[j], i, warn)) {
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                
  287 |    return false;
      |    ~~~~~~~~~~~~~                                        
  288 |   }
      |   ~                                                     
  289 |   ++j;
      |   ~~~~                                                  
  290 |  }
      |  ~                                                      
  291 |  for (int isec=0; isec < nsec_; ++isec) {
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~               
  292 |   SecState& ss = ss_[isec];
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~                             
  293 |   Section* sec = ss.sec;
      |   ~~~~~~~~~~~~~~~~~~~~~~                                
  294 |   if (!sec->prop || sec->nnode != ss.nnode) {
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~           
  295 | if (warn) {
      | ~~~~~~~~~~~                                             
  296 | if (!sec->prop) {
      | ~~~~~~~~~~~~~~~~~                                       
  297 | fprintf(stderr, "SaveState warning: saved section no longer exists\n");
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
  298 | }else{
      | ~~~~~~                                                  
  299 | fprintf(stderr, "SaveState warning: %s has %d nodes but saved %d\n",
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
  300 |     secname(sec), sec->nnode, ss.nnode);
      |     ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                
  301 | }
      | ~                                                       
  302 | }
      | ~                                                       
  303 |    return false;
      |    ~~~~~~~~~~~~~                                        
  304 |   }
      |   ~                                                     
  305 |   for (int inode = 0; inode < ss.nnode; ++inode) {
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~      
  306 |    NodeState& ns = ss.ns[inode];
      |    ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                        
  307 |    Node* nd = sec->pnode[inode];
      |    ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                        
  308 |    int i=0;
      |    ~~~~~~~~                                             
  309 |    Prop* p;
      |    ~~~~~~~~                                             
  310 |    for (p = nd->prop; p; p = p->next) {
      |    ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                 
  311 |     if (ssi[p->type].size == 0) {
      |     ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                       
  312 |      continue;
      |      ~~~~~~~~~                                          
  313 |     }
      |     ~                                                   
  314 |     if (i >= ns.nmemb) {
      |     ~~~~~~~~~~~~~~~~~~~~                                
  315 | if (warn) {
      | ~~~~~~~~~~~                                             
  316 | fprintf(stderr,"SaveState warning: \
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                    
  317 | fewer mechanisms saved than exist at node %d of %s\n",
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~  
  318 |  inode, secname(sec));
      |  ~~~~~~~~~~~~~~~~~~~~~                                  
  319 | }
      | ~                                                       
  320 |      return false;
      |      ~~~~~~~~~~~~~                                      
  321 |     }
      |     ~                                                   
  322 |     if (p->type != ns.type[i]) {
      |     ~~~~~~~~~~~~~~~~~~~~~~~~~~~~                        
  323 | if (warn) {
      | ~~~~~~~~~~~                                             
  324 | fprintf(stderr, "SaveState warning: mechanisms out of order at node %d of %s\n\
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
  325 | saved %s but need %s\n",
      | ~~~~~~~~~~~~~~~~~~~~~~~~                                
  326 | inode, secname(sec), memb_func[i].sym->name, memb_func[p->type].sym->name);
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
  327 | }
      | ~                                                       
  328 |      return false;
      |      ~~~~~~~~~~~~~                                      
  329 |     }
      |     ~                                                   
  330 |     ++i;
      |     ~~~~                                                
  331 |    }
      |    ~                                                    
  332 |    if (i != ns.nmemb) {
      |    ~~~~~~~~~~~~~~~~~~~~                                 
  333 | if (warn) {
      | ~~~~~~~~~~~                                             
  334 | fprintf(stderr, "SaveState warning: more mechanisms saved than exist at node %d of %s\n",
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
  335 |  inode, secname(sec));
      |  ~~~~~~~~~~~~~~~~~~~~~                                  
  336 | }
      | ~                                                       
  337 |     return false;
      |     ~~~~~~~~~~~~~                                       
  338 |    }
      |    ~                                                    
  339 |   }
      |   ~                                                     
  340 |   if (!sec->parentsec || ss.root) {
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                     
  341 |    if (sec->parentsec || !ss.root) {
      |    ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                    
  342 | if (warn) {
      | ~~~~~~~~~~~                                             
  343 | fprintf(stderr, "SaveState warning: Saved section and %s are not both root sections.\n",
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
  344 |  secname(sec));
      |  ~~~~~~~~~~~~~~                                         
  345 | }
      | ~                                                       
  346 |    }
      |    ~                                                    
  347 |    if (!checknode(*ss.root, sec->parentnode, warn)) {
      |    ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~   
  348 |     return false;
      |     ~~~~~~~~~~~~~                                       
  349 |    }
      |    ~                                                    
  350 |   }
      |   ~                                                     
  351 | 
      |                                                         
  352 |  }
      |  ~                                                      
  353 |  if (!checknet(warn)) { return false; }
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                 
  354 |  return true;
      |  ~~~~~~~~~~~~                                           
  355 | }
      | ~                                                       
  356 | 
      |                                                         
  357 | bool SaveState::checknode(NodeState& ns, Node* nd, bool warn) {
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
  358 |  int i=0;
      |  ~~~~~~~~                                               
  359 |  Prop* p;
      |  ~~~~~~~~                                               
  360 |  for (p = nd->prop; p; p = p->next) {
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                   
  361 |   if (ssi[p->type].size == 0) {
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                         
  362 |    continue;
      |    ~~~~~~~~~                                            
  363 |   }
      |   ~                                                     
  364 |   if (i >= ns.nmemb) {
      |   ~~~~~~~~~~~~~~~~~~~~                                  
  365 | if (warn) {
      | ~~~~~~~~~~~                                             
  366 | fprintf(stderr,"SaveState warning: \
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                    
  367 | fewer mechanisms saved than exist at a root node\n");
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~   
  368 | }
      | ~                                                       
  369 |    return false;
      |    ~~~~~~~~~~~~~                                        
  370 |   }
      |   ~                                                     
  371 |   if (p->type != ns.type[i]) {
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~~                          
  372 | if (warn) {
      | ~~~~~~~~~~~                                             
  373 | fprintf(stderr, "SaveState warning: mechanisms out of order at a rootnode\n\
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
  374 | saved %s but need %s\n",
      | ~~~~~~~~~~~~~~~~~~~~~~~~                                
  375 | memb_func[i].sym->name, memb_func[p->type].sym->name);
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~  
  376 | }
      | ~                                                       
  377 |    return false;
      |    ~~~~~~~~~~~~~                                        
  378 |   }
      |   ~                                                     
  379 |   ++i;
      |   ~~~~                                                  
  380 |  }
      |  ~                                                      
  381 |  if (i != ns.nmemb) {
      |  ~~~~~~~~~~~~~~~~~~~~                                   
  382 | if (warn) {
      | ~~~~~~~~~~~                                             
  383 | fprintf(stderr, "SaveState warning: more mechanisms saved than exist at a rootnode\n");
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
  384 | }
      | ~                                                       
  385 |   return false;
      |   ~~~~~~~~~~~~~                                         
  386 |  }
      |  ~                                                      
  387 |  return true;
      |  ~~~~~~~~~~~~                                           
  388 | }
      | ~                                                       
  389 | 
      |                                                         
  390 | bool SaveState::checkacell(ACellState& ac, int type, bool warn) {
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
  391 |  if (memb_list[type].nodecount != ac.ncell) {
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~           
  392 | if (warn) {
      | ~~~~~~~~~~~                                             
  393 | fprintf(stderr, "SaveState warning: different number of %s saved than exist.\n",
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
  394 | memb_func[type].sym->name);
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~                             
  395 | }
      | ~                                                       
  396 |   return false;
      |   ~~~~~~~~~~~~~                                         
  397 |  }
      |  ~                                                      
  398 |  return true;
      |  ~~~~~~~~~~~~                                           
  399 | }
      | ~                                                       
  400 | 
      |                                                         
  401 | void SaveState::alloc() {
      | ~~~~~~~~~~~~~~~~~~~~~~~~~                               
  402 |  ssfree();
      |  ~~~~~~~~~                                              
  403 |  int inode, isec;
      |  ~~~~~~~~~~~~~~~~                                       
  404 |  hoc_Item* qsec;
      |  ~~~~~~~~~~~~~~~                                        
  405 |  nsec_ = section_count;
      |  ~~~~~~~~~~~~~~~~~~~~~~                                 
  406 |  ss_ = new SecState[nsec_];
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~                             
  407 |  nroot_ = 0;
      |  ~~~~~~~~~~~                                            
  408 |  isec = 0;
      |  ~~~~~~~~~                                              
  409 |  ForAllSections(sec)
      |  ~~~~~~~~~~~~~~~~~~~                                    
  410 |   SecState& ss = ss_[isec];
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~                             
  411 |   ss.sec = sec;
      |   ~~~~~~~~~~~~~                                         
  412 |   section_ref(ss.sec);
      |   ~~~~~~~~~~~~~~~~~~~~                                  
  413 |   ss.nnode = ss.sec->nnode;
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~                             
  414 |   ss.ns = new NodeState[ss.nnode];
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                      
  415 |   for (inode = 0; inode < ss.nnode; ++inode) {
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~          
  416 |    Node* nd = ss.sec->pnode[inode];
      |    ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                     
  417 |    NodeState& ns = ss.ns[inode];
      |    ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                        
  418 |    allocnode(ns, nd);
      |    ~~~~~~~~~~~~~~~~~~                                   
  419 |   }
      |   ~                                                     
  420 |   if (!sec->parentsec) {
      |   ~~~~~~~~~~~~~~~~~~~~~~                                
  421 |    assert(sec->parentnode);
      |    ~~~~~~~~~~~~~~~~~~~~~~~~                             
  422 |    ss.root = new NodeState;
      |    ~~~~~~~~~~~~~~~~~~~~~~~~                             
  423 |    allocnode(*ss.root, sec->parentnode);
      |    ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                
  424 |    ++nroot_;
      |    ~~~~~~~~~                                            
  425 |   }else{
      |   ~~~~~~                                                
  426 |    ss.root = 0;
      |    ~~~~~~~~~~~~                                         
  427 |   }
      |   ~                                                     
  428 |   ++isec;
      |   ~~~~~~~                                               
  429 |  }
      |  ~                                                      
  430 |  assert(isec == section_count);
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                         
  431 |  assert(nroot_ == nrn_global_ncell);
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                    
  432 |  for (int i=0, j=0; i < n_memb_func; ++i) if (nrn_is_artificial_[i]) {
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
  433 |   allocacell(acell_[j], i);
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~                             
  434 |   ++j;
      |   ~~~~                                                  
  435 |  }
      |  ~                                                      
  436 |  PlayRecList* prl = net_cvode_instance_prl();
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~           
  437 |  nprs_ = prl->count();
      |  ~~~~~~~~~~~~~~~~~~~~~                                  
  438 |  if (nprs_) {
      |  ~~~~~~~~~~~~                                           
  439 |   prs_ = new PlayRecordSave*[nprs_];
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                    
  440 |  }
      |  ~                                                      
  441 |  allocnet();
      |  ~~~~~~~~~~~                                            
  442 | }
      | ~                                                       
  443 | 
      |                                                         
  444 | void SaveState::allocnode(NodeState& ns, Node* nd) {
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~    
  445 |  ns.nmemb = 0;
      |  ~~~~~~~~~~~~~                                          
  446 |  ns.type = NULL;
      |  ~~~~~~~~~~~~~~~                                        
  447 |  ns.state = NULL;
      |  ~~~~~~~~~~~~~~~~                                       
  448 |  ns.nstate = 0;
      |  ~~~~~~~~~~~~~~                                         
  449 |  Prop* p;
      |  ~~~~~~~~                                               
  450 |  for (p = nd->prop; p; p = p->next) {
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                   
  451 |   if (ssi[p->type].size == 0) {
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                         
  452 |    continue;
      |    ~~~~~~~~~                                            
  453 |   }
      |   ~                                                     
  454 |   ++ns.nmemb;
      |   ~~~~~~~~~~~                                           
  455 |   ns.nstate += ssi[p->type].size;
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                       
  456 |  }
      |  ~                                                      
  457 |  if (ns.nmemb) {
      |  ~~~~~~~~~~~~~~~                                        
  458 |   ns.type = new int[ns.nmemb];
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~~                          
  459 |  }
      |  ~                                                      
  460 |  if (ns.nstate) {
      |  ~~~~~~~~~~~~~~~~                                       
  461 |   ns.state = new double[ns.nstate];
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                     
  462 |  }
      |  ~                                                      
  463 |  int i = 0;
      |  ~~~~~~~~~~                                             
  464 |  for (p = nd->prop; p; p = p->next) {
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                   
  465 |   if (ssi[p->type].size == 0) {
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                         
  466 |    continue;
      |    ~~~~~~~~~                                            
  467 |   }
      |   ~                                                     
  468 |   ns.type[i] = p->type;
      |   ~~~~~~~~~~~~~~~~~~~~~                                 
  469 |   ++i;
      |   ~~~~                                                  
  470 |  }
      |  ~                                                      
  471 | }
      | ~                                                       
  472 | 
      |                                                         
  473 | void SaveState::allocacell(ACellState& ac, int type) {
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~  
  474 |  Memb_list& ml = memb_list[type];
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                       
  475 |  ac.type = type;
      |  ~~~~~~~~~~~~~~~                                        
  476 |  ac.ncell = ml.nodecount;
      |  ~~~~~~~~~~~~~~~~~~~~~~~~                               
  477 |  ac.state = new double[ac.ncell * ssi[type].size];
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~      
  478 | }
      | ~                                                       
  479 | 
      |                                                         
  480 | void SaveState::ssfree() {
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~                              
  481 |  int i, isec, inode;
      |  ~~~~~~~~~~~~~~~~~~~                                    
  482 |  for (isec=0; isec < nsec_; ++isec) {
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                   
  483 |   SecState& ss = ss_[isec];
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~                             
  484 |   for (inode = 0; inode < ss.nnode; ++inode) {
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~          
  485 |    NodeState& ns = ss.ns[inode];
      |    ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                        
  486 |    if (ns.nmemb) {
      |    ~~~~~~~~~~~~~~~                                      
  487 |     delete [] ns.type;
      |     ~~~~~~~~~~~~~~~~~~                                  
  488 |    }
      |    ~                                                    
  489 |    if (ns.nstate) {
      |    ~~~~~~~~~~~~~~~~                                     
  490 |     delete [] ns.state;
      |     ~~~~~~~~~~~~~~~~~~~                                 
  491 |    }
      |    ~                                                    
  492 |   }
      |   ~                                                     
  493 |   if (ss.root) {
      |   ~~~~~~~~~~~~~~                                        
  494 |    NodeState& ns = *ss.root;
      |    ~~~~~~~~~~~~~~~~~~~~~~~~~                            
  495 |    if (ns.nmemb) {
      |    ~~~~~~~~~~~~~~~                                      
  496 |     delete [] ns.type;
      |     ~~~~~~~~~~~~~~~~~~                                  
  497 |    }
      |    ~                                                    
  498 |    if (ns.nstate) {
      |    ~~~~~~~~~~~~~~~~                                     
  499 |     delete [] ns.state;
      |     ~~~~~~~~~~~~~~~~~~~                                 
  500 |    }
      |    ~                                                    
  501 |    delete ss.root;
      |    ~~~~~~~~~~~~~~~                                      
  502 |   }
      |   ~                                                     
  503 |   if (ss.nnode) {
      |   ~~~~~~~~~~~~~~~                                       
  504 |    delete [] ss.ns;
      |    ~~~~~~~~~~~~~~~~                                     
  505 |   }
      |   ~                                                     
  506 |   if (ss.sec) { // got info from an fread but never checked it
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
  507 |    section_unref(ss.sec);
      |    ~~~~~~~~~~~~~~~~~~~~~~                               
  508 |   }
      |   ~                                                     
  509 |  }
      |  ~                                                      
  510 |  if (nsec_) {
      |  ~~~~~~~~~~~~                                           
  511 |   delete [] ss_;
      |   ~~~~~~~~~~~~~~                                        
  512 |  }
      |  ~                                                      
  513 |  nsec_ = 0;
      |  ~~~~~~~~~~                                             
  514 |  ss_ = NULL;
      |  ~~~~~~~~~~~                                            
  515 |  for (i=0; i < nacell_; ++i) {
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                          
  516 |   if (acell_[i].ncell) {
      |   ~~~~~~~~~~~~~~~~~~~~~~                                
  517 |    delete [] acell_[i].state;
      |    ~~~~~~~~~~~~~~~~~~~~~~~~~~                           
  518 |    acell_[i].state = 0;
      |    ~~~~~~~~~~~~~~~~~~~~                                 
  519 |    acell_[i].ncell = 0;
      |    ~~~~~~~~~~~~~~~~~~~~                                 
  520 |   }
      |   ~                                                     
  521 |  } // note we do not destroy the acell_.
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                
  522 |  if (nncs_) {
      |  ~~~~~~~~~~~~                                           
  523 |   for (i = 0; i < nncs_; ++i) {
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                         
  524 |    if (ncs_[i].nstate) {
      |    ~~~~~~~~~~~~~~~~~~~~~                                
  525 |     delete [] ncs_[i].state;
      |     ~~~~~~~~~~~~~~~~~~~~~~~~                            
  526 |    }
      |    ~                                                    
  527 |   }
      |   ~                                                     
  528 |   delete [] ncs_;
      |   ~~~~~~~~~~~~~~~                                       
  529 |  }
      |  ~                                                      
  530 |  nncs_ = 0;
      |  ~~~~~~~~~~                                             
  531 |  ncs_ = NULL;
      |  ~~~~~~~~~~~~                                           
  532 |  if (npss_) {
      |  ~~~~~~~~~~~~                                           
  533 |   delete [] pss_;
      |   ~~~~~~~~~~~~~~~                                       
  534 |  }
      |  ~                                                      
  535 |  npss_ = 0;
      |  ~~~~~~~~~~                                             
  536 |  pss_ = NULL;
      |  ~~~~~~~~~~~~                                           
  537 |  free_tq();
      |  ~~~~~~~~~~                                             
  538 |  if (nprs_) {
      |  ~~~~~~~~~~~~                                           
  539 |   for (i=0; i < nprs_; ++i) {
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~                           
  540 |    delete prs_[i];
      |    ~~~~~~~~~~~~~~~                                      
  541 |   }
      |   ~                                                     
  542 |   delete [] prs_;
      |   ~~~~~~~~~~~~~~~                                       
  543 |  }
      |  ~                                                      
  544 |  nprs_ = 0;
      |  ~~~~~~~~~~                                             
  545 | }
      | ~                                                       
  546 | 
      |                                                         
  547 | void SaveState::save() {
      | ~~~~~~~~~~~~~~~~~~~~~~~~                                
  548 |  NrnThread* nt;
      |  ~~~~~~~~~~~~~~                                         
  549 |  if (!check(false)) {
      |  ~~~~~~~~~~~~~~~~~~~~                                   
  550 |   alloc();
      |   ~~~~~~~~                                              
  551 |  }
      |  ~                                                      
  552 |  FOR_THREADS(nt) {
      |  ~~~~~~~~~~~~~~~~~                                      
  553 |   assert(t == nt->_t);
      |   ~~~~~~~~~~~~~~~~~~~~                                  
  554 |  }
      |  ~                                                      
  555 |  t_ = t;
      |  ~~~~~~~                                                
  556 |  int inode;
      |  ~~~~~~~~~~                                             
  557 |  for (int isec=0; isec < nsec_; ++isec) {
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~               
  558 |   SecState& ss = ss_[isec];
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~                             
  559 |   Section* sec = ss.sec;
      |   ~~~~~~~~~~~~~~~~~~~~~~                                
  560 |   for (inode = 0; inode < ss.nnode; ++inode) {
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~          
  561 |    NodeState& ns = ss.ns[inode];
      |    ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                        
  562 |    Node* nd = sec->pnode[inode];
      |    ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                        
  563 |    savenode(ns, nd);
      |    ~~~~~~~~~~~~~~~~~                                    
  564 |   }
      |   ~                                                     
  565 |   if (ss.root) {
      |   ~~~~~~~~~~~~~~                                        
  566 |    NodeState& ns = *ss.root;
      |    ~~~~~~~~~~~~~~~~~~~~~~~~~                            
  567 |    Node* nd = sec->parentnode;
      |    ~~~~~~~~~~~~~~~~~~~~~~~~~~~                          
  568 |    savenode(ns, nd);
      |    ~~~~~~~~~~~~~~~~~                                    
  569 |   }
      |   ~                                                     
  570 |  }
      |  ~                                                      
  571 |  for (int i=0, j=0; i < n_memb_func; ++i) if (nrn_is_artificial_[i]) {
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
  572 |   saveacell(acell_[j], i);
      |   ~~~~~~~~~~~~~~~~~~~~~~~~                              
  573 |   ++j;
      |   ~~~~                                                  
  574 |  }
      |  ~                                                      
  575 |  if (nprs_) {
      |  ~~~~~~~~~~~~                                           
  576 |   PlayRecList* prl = net_cvode_instance_prl();
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~          
  577 |   int i;
      |   ~~~~~~                                                
  578 |   assert(nprs_ == prl->count());
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                        
  579 |   for (i=0; i < nprs_; ++i) {
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~                           
  580 |    prs_[i] = prl->item(i)->savestate_save();
      |    ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~            
  581 |   }
      |   ~                                                     
  582 |  }
      |  ~                                                      
  583 |  savenet();
      |  ~~~~~~~~~~                                             
  584 | }
      | ~                                                       
  585 | 
      |                                                         
  586 | void SaveState::savenode(NodeState& ns, Node* nd) {
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~     
  587 |  ns.v = NODEV(nd);
      |  ~~~~~~~~~~~~~~~~~                                      
  588 |  int istate = 0;
      |  ~~~~~~~~~~~~~~~                                        
  589 |  Prop* p;
      |  ~~~~~~~~                                               
  590 |  for (p = nd->prop; p; p = p->next) {
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                   
  591 |   if (ssi[p->type].size == 0) {
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                         
  592 |    continue;
      |    ~~~~~~~~~                                            
  593 |   }
      |   ~                                                     
  594 |   int type = p->type;
      |   ~~~~~~~~~~~~~~~~~~~                                   
  595 |   int max = ssi[type].offset + ssi[type].size;
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~          
  596 | #if EXTRACELLULAR
      | ~~~~~~~~~~~~~~~~~                                       
  597 |   if (type == EXTRACELL) {
      |   ~~~~~~~~~~~~~~~~~~~~~~~~                              
  598 |    for (int i=0; i < nlayer; ++i) {
      |    ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                     
  599 |     ns.state[istate++] = nd->extnode->v[i];
      |     ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~             
  600 |    }
      |    ~                                                    
  601 |   }else
      |   ~~~~~                                                 
  602 | #endif
      | ~~~~~~                                                  
  603 |   {
      |   ~                                                     
  604 |    for (int ip=ssi[type].offset; ip < max; ++ip) {
      |    ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~      
  605 |     ns.state[istate++] = p->param[ip];
      |     ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                  
  606 |    }
      |    ~                                                    
  607 |   }
      |   ~                                                     
  608 |  }
      |  ~                                                      
  609 | }
      | ~                                                       
  610 | 
      |                                                         
  611 | void SaveState::saveacell(ACellState& ac, int type) {
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~   
  612 |  Memb_list& ml = memb_list[type];
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                       
  613 |  int sz = ssi[type].size;
      |  ~~~~~~~~~~~~~~~~~~~~~~~~                               
  614 |  double* p = ac.state;
      |  ~~~~~~~~~~~~~~~~~~~~~                                  
  615 |  for (int i = 0; i < ml.nodecount; ++i) {
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~               
  616 |   double* d = ml.data[i];
      |   ~~~~~~~~~~~~~~~~~~~~~~~                               
  617 |   for (int j=0; j < sz; ++j) {
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~~                          
  618 |    (*p++) = d[j];
      |    ~~~~~~~~~~~~~~                                       
  619 |   }
      |   ~                                                     
  620 |  }
      |  ~                                                      
  621 | }
      | ~                                                       
  622 | 
      |                                                         
  623 | void SaveState::restore(int type) {
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                     
  624 |  NrnThread* nt;
      |  ~~~~~~~~~~~~~~                                         
  625 |  if (!check(true)) {
      |  ~~~~~~~~~~~~~~~~~~~                                    
  626 |   hoc_execerror("SaveState:",
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~                           
  627 |   "Stored state inconsistent with current neuron structure");
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
  628 |  }
      |  ~                                                      
  629 |  t = t_;
      |  ~~~~~~~                                                
  630 |  FOR_THREADS(nt) {
      |  ~~~~~~~~~~~~~~~~~                                      
  631 |   nt->_t = t_;
      |   ~~~~~~~~~~~~                                          
  632 |  }
      |  ~                                                      
  633 |  int inode;
      |  ~~~~~~~~~~                                             
  634 |  for (int isec=0; isec < nsec_; ++isec) {
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~               
  635 |   SecState& ss = ss_[isec];
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~                             
  636 |   Section* sec = ss.sec;
      |   ~~~~~~~~~~~~~~~~~~~~~~                                
  637 |   for (inode = 0; inode < ss.nnode; ++inode) {
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~          
  638 |    NodeState& ns = ss.ns[inode];
      |    ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                        
  639 |    Node* nd = sec->pnode[inode];
      |    ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                        
  640 |    restorenode(ns, nd);
      |    ~~~~~~~~~~~~~~~~~~~~                                 
  641 |   }
      |   ~                                                     
  642 |   if (ss.root) {
      |   ~~~~~~~~~~~~~~                                        
  643 |    NodeState& ns = *ss.root;
      |    ~~~~~~~~~~~~~~~~~~~~~~~~~                            
  644 |    Node* nd = sec->parentnode;
      |    ~~~~~~~~~~~~~~~~~~~~~~~~~~~                          
  645 |    restorenode(ns, nd);
      |    ~~~~~~~~~~~~~~~~~~~~                                 
  646 |   }
      |   ~                                                     
  647 |  }
      |  ~                                                      
  648 |  for (int i=0, j=0; i < n_memb_func; ++i) if (nrn_is_artificial_[i]) {
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
  649 |   restoreacell(acell_[j], i);
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~                           
  650 |   ++j;
      |   ~~~~                                                  
  651 |  }
      |  ~                                                      
  652 |  if (type == 1) { return; }
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~                             
  653 |  PlayRecList* prl = net_cvode_instance_prl();
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~           
  654 |  // during a local step the PlayRecList is augmented with GLineRecord
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
  655 |  // assert(nprs_ == prl->count());
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                      
  656 |  assert(nprs_ <= prl->count());
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                         
  657 |  int i;
      |  ~~~~~~                                                 
  658 |  for (i = 0; i < nprs_; ++i) {
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                          
  659 |   prs_[i]->savestate_restore();
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                         
  660 |  }
      |  ~                                                      
  661 |  restorenet();
      |  ~~~~~~~~~~~~~                                          
  662 | }
      | ~                                                       
  663 | 
      |                                                         
  664 | void SaveState::restorenode(NodeState& ns, Node* nd) {
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~  
  665 |  NODEV(nd) = ns.v;;
      |  ~~~~~~~~~~~~~~~~~~                                     
  666 |  int istate = 0;
      |  ~~~~~~~~~~~~~~~                                        
  667 |  Prop* p;
      |  ~~~~~~~~                                               
  668 |  for (p = nd->prop; p; p = p->next) {
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                   
  669 |   if (ssi[p->type].size == 0) {
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                         
  670 |    continue;
      |    ~~~~~~~~~                                            
  671 |   }
      |   ~                                                     
  672 |   int type = p->type;
      |   ~~~~~~~~~~~~~~~~~~~                                   
  673 |   int max = ssi[type].offset + ssi[type].size;
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~          
  674 | #if EXTRACELLULAR
      | ~~~~~~~~~~~~~~~~~                                       
  675 |   if (type == EXTRACELL) {
      |   ~~~~~~~~~~~~~~~~~~~~~~~~                              
  676 |    for (int i=0; i < nlayer; ++i) {
      |    ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                     
  677 |     nd->extnode->v[i] = ns.state[istate++];
      |     ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~             
  678 |    }
      |    ~                                                    
  679 |   }else
      |   ~~~~~                                                 
  680 | #endif
      | ~~~~~~                                                  
  681 |   {
      |   ~                                                     
  682 |    for (int ip=ssi[type].offset; ip < max; ++ip) {
      |    ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~      
  683 |     p->param[ip] = ns.state[istate++];
      |     ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                  
  684 |    }
      |    ~                                                    
  685 |   }
      |   ~                                                     
  686 |  }
      |  ~                                                      
  687 | }
      | ~                                                       
  688 | 
      |                                                         
  689 | void SaveState::restoreacell(ACellState& ac, int type) {
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
  690 |  Memb_list& ml = memb_list[type];
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                       
  691 |  int sz = ssi[type].size;
      |  ~~~~~~~~~~~~~~~~~~~~~~~~                               
  692 |  double* p = ac.state;
      |  ~~~~~~~~~~~~~~~~~~~~~                                  
  693 |  for (int i = 0; i < ml.nodecount; ++i) {
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~               
  694 |   double* d = ml.data[i];
      |   ~~~~~~~~~~~~~~~~~~~~~~~                               
  695 |   for (int j=0; j < sz; ++j) {
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~~                          
  696 |    d[j] = (*p++);
      |    ~~~~~~~~~~~~~~                                       
  697 |   }
      |   ~                                                     
  698 |  }
      |  ~                                                      
  699 | }
      | ~                                                       
  700 | 
      |                                                         
  701 | void SaveState::read(OcFile* ocf, bool close) {
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~         
  702 |  if (!ocf->open(ocf->get_name(), "r")) {
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                
  703 |   hoc_execerror("Couldn't open file for reading:", ocf->get_name());
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
  704 |  }
      |  ~                                                      
  705 |  nrn_shape_update();
      |  ~~~~~~~~~~~~~~~~~~~                                    
  706 |  BinaryMode(ocf)
      |  ~~~~~~~~~~~~~~~                                        
  707 |  FILE* f = ocf->file();
      |  ~~~~~~~~~~~~~~~~~~~~~~                                 
  708 |  ssfree();
      |  ~~~~~~~~~                                              
  709 |  char buf[200];
      |  ~~~~~~~~~~~~~~                                         
  710 |  ASSERTfgets(buf, 200, f);
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~                              
  711 |  if (strcmp(buf, "SaveState binary file version 6.0\n") != 0) {
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
  712 |   ocf->close();
      |   ~~~~~~~~~~~~~                                         
  713 |   hoc_execerror("Bad SaveState binary file", " Not version 6.0");
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
  714 |  }
      |  ~                                                      
  715 |  ASSERTfread((char*)&t_, sizeof(double), 1, f);
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~         
  716 | // fscanf(f, "%d %d\n", &nsec_, &nrootnode_);
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~           
  717 | // on some os's fscanf leaves file pointer at wrong place for next fread
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
  718 | // can check it with ftell(f)
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                           
  719 |  ASSERTfgets(buf, 200, f);
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~                              
  720 |  sscanf(buf, "%d %d\n", &nsec_, &nroot_);
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~               
  721 |  // to enable comparison of SaveState files, we avoid
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~   
  722 |  // putting pointers in the files and instead explicitly read/write
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
  723 |  // structure elements.
      |  ~~~~~~~~~~~~~~~~~~~~~~                                 
  724 |  ss_ = new SecState[nsec_];
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~                             
  725 |  fread_SecState(ss_, nsec_, f);
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                         
  726 |  for (int isec=0; isec < nsec_; ++isec) {
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~               
  727 |   SecState& ss = ss_[isec];
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~                             
  728 |   ss.sec = NULL;
      |   ~~~~~~~~~~~~~~                                        
  729 |   ss.ns = new NodeState[ss.nnode];
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                      
  730 |   fread_NodeState(ss.ns, ss.nnode, f);
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                  
  731 |   for (int inode = 0; inode < ss.nnode; ++inode) {
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~      
  732 |    NodeState& ns = ss.ns[inode];
      |    ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                        
  733 |    if (ns.nmemb) {
      |    ~~~~~~~~~~~~~~~                                      
  734 |     ns.type = new int[ns.nmemb];
      |     ~~~~~~~~~~~~~~~~~~~~~~~~~~~~                        
  735 |     ASSERTfread((char*)ns.type, sizeof(int), ns.nmemb, f);
      |     ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~   
/builddir/build/BUILD/nrn-7.8.1/src/oc/nrnassrt.h:23:33: note: in definition of macro 'nrn_assert'
   23 | #  define nrn_assert(ex) {if (!(ex)){fprintf(stderr,"Assertion failed: file %s, line %d\n", __FILE__,__LINE__);hoc_execerror(#ex, (char *)0);}}
      |                                 ^~
/builddir/build/BUILD/nrn-7.8.1/src/nrniv/savstate.cpp:735:5: note: in expansion of macro 'ASSERTfread'
  735 |     ASSERTfread((char*)ns.type, sizeof(int), ns.nmemb, f);
      |     ^~~~~~~~~~~
/builddir/build/BUILD/nrn-7.8.1/src/nrniv/savstate.cpp:33:56: warning: comparison of integer expressions of different signedness: 'size_t' {aka 'long unsigned int'} and 'int' [-Wsign-compare]
   33 | #define ASSERTfread(a,b,c,d) nrn_assert(fread(a,b,c,d) == c)
      |                                         ~~~~~~~~~~~~~~~^~~~~
   34 | #define ASSERTfwrite(a,b,c,d) nrn_assert(fwrite(a,b,c,d) == c)
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
   35 | 
      |                                                         
   36 | class SaveState : public Resource {
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                     
   37 | public:
      | ~~~~~~~                                                 
   38 |  SaveState();
      |  ~~~~~~~~~~~~                                           
   39 |  ~SaveState();
      |  ~~~~~~~~~~~~~                                          
   40 |  virtual void save();
      |  ~~~~~~~~~~~~~~~~~~~~                                   
   41 |  virtual void restore(int type);
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                        
   42 |  virtual void read(OcFile*, bool close);
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                
   43 |  virtual void write(OcFile*, bool close);
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~               
   44 |  struct NodeState {
      |  ~~~~~~~~~~~~~~~~~~                                     
   45 |   double v;
      |   ~~~~~~~~~                                             
   46 |   int nmemb;
      |   ~~~~~~~~~~                                            
   47 |   int* type;
      |   ~~~~~~~~~~                                            
   48 |   int nstate;
      |   ~~~~~~~~~~~                                           
   49 |   double* state;
      |   ~~~~~~~~~~~~~~                                        
   50 |  };
      |  ~~                                                     
   51 |  struct SecState {
      |  ~~~~~~~~~~~~~~~~~                                      
   52 |   Section* sec;
      |   ~~~~~~~~~~~~~                                         
   53 |   int nnode;
      |   ~~~~~~~~~~                                            
   54 |   struct NodeState* ns;
      |   ~~~~~~~~~~~~~~~~~~~~~                                 
   55 |   struct NodeState* root; // non-zero for rootnode
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~      
   56 |  };
      |  ~~                                                     
   57 |  struct StateStructInfo {
      |  ~~~~~~~~~~~~~~~~~~~~~~~~                               
   58 |   int offset;
      |   ~~~~~~~~~~~                                           
   59 |   int size;
      |   ~~~~~~~~~                                             
   60 |  };
      |  ~~                                                     
   61 |  struct ACellState {
      |  ~~~~~~~~~~~~~~~~~~~                                    
   62 |   int type;
      |   ~~~~~~~~~                                             
   63 |   int ncell;
      |   ~~~~~~~~~~                                            
   64 |   double* state;
      |   ~~~~~~~~~~~~~~                                        
   65 |  };
      |  ~~                                                     
   66 |  struct NetConState {
      |  ~~~~~~~~~~~~~~~~~~~~                                   
   67 |   int object_index; // for checking
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                     
   68 |   int nstate;
      |   ~~~~~~~~~~~                                           
   69 |   double* state;
      |   ~~~~~~~~~~~~~~                                        
   70 |  };
      |  ~~                                                     
   71 |  struct PreSynState {
      |  ~~~~~~~~~~~~~~~~~~~~                                   
   72 |   bool flag; // is it firing?
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~                           
   73 |   double valthresh, valold, told;
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                       
   74 | 
      |                                                         
   75 |  };
      |  ~~                                                     
   76 |  struct TQState {
      |  ~~~~~~~~~~~~~~~~                                       
   77 |   int nstate;
      |   ~~~~~~~~~~~                                           
   78 |   double* tdeliver;
      |   ~~~~~~~~~~~~~~~~~                                     
   79 |   DiscreteEvent** items;
      |   ~~~~~~~~~~~~~~~~~~~~~~                                
   80 |  };
      |  ~~                                                     
   81 | private:
      | ~~~~~~~~                                                
   82 |  bool check(bool warn);
      |  ~~~~~~~~~~~~~~~~~~~~~~                                 
   83 |  void alloc();
      |  ~~~~~~~~~~~~~                                          
   84 |  void ssfree();
      |  ~~~~~~~~~~~~~~                                         
   85 |  void ssi_def();
      |  ~~~~~~~~~~~~~~~                                        
   86 | private:
      | ~~~~~~~~                                                
   87 |  void fread_NodeState(NodeState*, int, FILE*);
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~          
   88 |  void fwrite_NodeState(NodeState*, int, FILE*);
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~         
   89 |  void fread_SecState(SecState*, int, FILE*);
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~            
   90 |  void fwrite_SecState(SecState*, int, FILE*);
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~           
   91 | private:
      | ~~~~~~~~                                                
   92 |  double t_;
      |  ~~~~~~~~~~                                             
   93 |  int nroot_;
      |  ~~~~~~~~~~~                                            
   94 |  int nsec_;
      |  ~~~~~~~~~~                                             
   95 |  SecState* ss_;
      |  ~~~~~~~~~~~~~~                                         
   96 |  int nacell_; // number of types
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                        
   97 |  ACellState* acell_;
      |  ~~~~~~~~~~~~~~~~~~~                                    
   98 |  int nncs_;
      |  ~~~~~~~~~~                                             
   99 |  NetConState* ncs_;
      |  ~~~~~~~~~~~~~~~~~~                                     
  100 |  int npss_;
      |  ~~~~~~~~~~                                             
  101 |  PreSynState* pss_;
      |  ~~~~~~~~~~~~~~~~~~                                     
  102 |  TQState* tqs_;
      |  ~~~~~~~~~~~~~~                                         
  103 |  int tqcnt_; // volatile for index of forall_callback
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~   
  104 |  int nprs_;
      |  ~~~~~~~~~~                                             
  105 |  PlayRecordSave** prs_;
      |  ~~~~~~~~~~~~~~~~~~~~~~                                 
  106 |  static StateStructInfo* ssi;
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~                           
  107 |  static cTemplate* nct;
      |  ~~~~~~~~~~~~~~~~~~~~~~                                 
  108 | private:
      | ~~~~~~~~                                                
  109 |  void savenode(NodeState&, Node*);
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                      
  110 |  void restorenode(NodeState&, Node*);
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                   
  111 |  bool checknode(NodeState&, Node*, bool);
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~               
  112 |  void allocnode(NodeState&, Node*);
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                     
  113 | 
      |                                                         
  114 |  void saveacell(ACellState&, int type);
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                 
  115 |  void restoreacell(ACellState&, int type);
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~              
  116 |  bool checkacell(ACellState&, int type, bool);
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~          
  117 |  void allocacell(ACellState&, int type);
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                
  118 | 
      |                                                         
  119 |  void savenet();
      |  ~~~~~~~~~~~~~~~                                        
  120 |  void restorenet();
      |  ~~~~~~~~~~~~~~~~~~                                     
  121 |  void readnet(FILE*);
      |  ~~~~~~~~~~~~~~~~~~~~                                   
  122 |  void writenet(FILE*);
      |  ~~~~~~~~~~~~~~~~~~~~~                                  
  123 |  bool checknet(bool);
      |  ~~~~~~~~~~~~~~~~~~~~                                   
  124 |  void allocnet();
      |  ~~~~~~~~~~~~~~~~                                       
  125 |  void free_tq();
      |  ~~~~~~~~~~~~~~~                                        
  126 |  void alloc_tq();
      |  ~~~~~~~~~~~~~~~~                                       
  127 | public:
      | ~~~~~~~                                                 
  128 |  void tqcount(const TQItem*, int);
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                      
  129 |  void tqsave(const TQItem*, int);
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                       
  130 | };
      | ~~                                                      
  131 | 
      |                                                         
  132 | static SaveState* this_savestate;
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                       
  133 | static int callback_mode;
      | ~~~~~~~~~~~~~~~~~~~~~~~~~                               
  134 | 
      |                                                         
  135 | void tqcallback(const TQItem* tq, int i) {
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~              
  136 |  if (callback_mode == 0) {
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~                              
  137 |   this_savestate->tqcount(tq, i);
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                       
  138 |  }else{
      |  ~~~~~~                                                 
  139 |   this_savestate->tqsave(tq, i);
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                        
  140 |  }
      |  ~                                                      
  141 | }
      | ~                                                       
  142 | 
      |                                                         
  143 | #if __sgi && 0
      | ~~~~~~~~~~~~~~                                          
  144 | // fixed in version 5 of os
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~                             
  145 | StateStructInfo* SaveState::ssi;
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                        
  146 | #else
      | ~~~~~                                                   
  147 | SaveState::StateStructInfo* SaveState::ssi;
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~             
  148 | #endif
      | ~~~~~~                                                  
  149 | cTemplate* SaveState::nct;
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~                              
  150 | 
      |                                                         
  151 | SaveState::SaveState() {
      | ~~~~~~~~~~~~~~~~~~~~~~~~                                
  152 |  int i, j;
      |  ~~~~~~~~~                                              
  153 |  ssi_def();
      |  ~~~~~~~~~~                                             
  154 |  nroot_ = 0;
      |  ~~~~~~~~~~~                                            
  155 |  ss_ = NULL;
      |  ~~~~~~~~~~~                                            
  156 |  nsec_ = 0;
      |  ~~~~~~~~~~                                             
  157 |  nncs_ = 0;
      |  ~~~~~~~~~~                                             
  158 |  ncs_ = NULL;
      |  ~~~~~~~~~~~~                                           
  159 |  npss_ = 0;
      |  ~~~~~~~~~~                                             
  160 |  pss_ = NULL;
      |  ~~~~~~~~~~~~                                           
  161 |  tqs_ = new TQState();
      |  ~~~~~~~~~~~~~~~~~~~~~                                  
  162 |  tqs_->nstate = 0;
      |  ~~~~~~~~~~~~~~~~~                                      
  163 |  nprs_ = 0;
      |  ~~~~~~~~~~                                             
  164 |  prs_ = NULL;
      |  ~~~~~~~~~~~~                                           
  165 |  nacell_ = 0;
      |  ~~~~~~~~~~~~                                           
  166 |  for (i=0; i < n_memb_func; ++i) if (nrn_is_artificial_[i]) {
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
  167 |   ++nacell_;
      |   ~~~~~~~~~~                                            
  168 |  }
      |  ~                                                      
  169 |  acell_ = new ACellState[nacell_];
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                      
  170 |  for (i=0; i < nacell_; ++i) {
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                          
  171 |   acell_[i].ncell = 0;
      |   ~~~~~~~~~~~~~~~~~~~~                                  
  172 |   acell_[i].state = 0;
      |   ~~~~~~~~~~~~~~~~~~~~                                  
  173 |  }
      |  ~                                                      
  174 |  for (i=0, j=0; i < n_memb_func; ++i) if (nrn_is_artificial_[i]) {
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
  175 |   acell_[j].type = i;
      |   ~~~~~~~~~~~~~~~~~~~                                   
  176 |   ++j;
      |   ~~~~                                                  
  177 |  }
      |  ~                                                      
  178 | }
      | ~                                                       
  179 | 
      |                                                         
  180 | SaveState::~SaveState() {
      | ~~~~~~~~~~~~~~~~~~~~~~~~~                               
  181 |  ssfree();
      |  ~~~~~~~~~                                              
  182 |  delete tqs_;
      |  ~~~~~~~~~~~~                                           
  183 |  delete [] acell_;
      |  ~~~~~~~~~~~~~~~~~                                      
  184 | }
      | ~                                                       
  185 | 
      |                                                         
  186 | void SaveState::fread_NodeState(NodeState* ns, int cnt, FILE* f) {
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
  187 |  for (int i=0; i < cnt; ++i) {
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                          
  188 |   ASSERTfread(&ns[i].v, sizeof(double), 1, f);
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~          
  189 |   ASSERTfread(&ns[i].nmemb, sizeof(int), 1, f);
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~         
  190 |   ASSERTfread(&ns[i].nstate, sizeof(int), 1, f);
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~        
  191 |  }
      |  ~                                                      
  192 | }
      | ~                                                       
  193 | void SaveState::fwrite_NodeState(NodeState* ns, int cnt, FILE* f){
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
  194 |  for (int i=0; i < cnt; ++i) {
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                          
  195 |   ASSERTfwrite(&ns[i].v, sizeof(double), 1, f);
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~         
  196 |   ASSERTfwrite(&ns[i].nmemb, sizeof(int), 1, f);
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~        
  197 |   ASSERTfwrite(&ns[i].nstate, sizeof(int), 1, f);
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~       
  198 |  }
      |  ~                                                      
  199 | }
      | ~                                                       
  200 | void SaveState::fread_SecState(SecState* ss, int cnt, FILE* f){
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
  201 |  int b;
      |  ~~~~~~                                                 
  202 |  for (int i=0; i < cnt; ++i) {
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                          
  203 |   ASSERTfread(&ss[i].nnode, sizeof(int), 1, f);
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~         
  204 |   ASSERTfread(&b, sizeof(int), 1, f);
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                   
  205 |   if (b) {
      |   ~~~~~~~~                                              
  206 |    ss[i].root = new NodeState;
      |    ~~~~~~~~~~~~~~~~~~~~~~~~~~~                          
  207 |   }else{
      |   ~~~~~~                                                
  208 |    ss[i].root = 0;
      |    ~~~~~~~~~~~~~~~                                      
  209 |   }
      |   ~                                                     
  210 |  }
      |  ~                                                      
  211 | }
      | ~                                                       
  212 | void SaveState::fwrite_SecState(SecState* ss, int cnt, FILE* f){
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
  213 |  int b;
      |  ~~~~~~                                                 
  214 |  for (int i=0; i < cnt; ++i) {
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                          
  215 |   ASSERTfwrite(&ss[i].nnode, sizeof(int), 1, f);
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~        
  216 |   b = ss[i].root ? 1 : 0;
      |   ~~~~~~~~~~~~~~~~~~~~~~~                               
  217 |   ASSERTfwrite(&b, sizeof(int), 1, f);
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                  
  218 |  }
      |  ~                                                      
  219 | }
      | ~                                                       
  220 | 
      |                                                         
  221 | void SaveState::ssi_def() {
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~                             
  222 |  if (nct) { return; }
      |  ~~~~~~~~~~~~~~~~~~~~                                   
  223 |  Symbol* s = hoc_lookup("NetCon");
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                      
  224 |  nct = s->u.ctemplate;
      |  ~~~~~~~~~~~~~~~~~~~~~                                  
  225 |  ssi = new StateStructInfo[n_memb_func];
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                
  226 |  for (int im=0; im < n_memb_func; ++im) {
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~               
  227 |   ssi[im].offset = -1;
      |   ~~~~~~~~~~~~~~~~~~~~                                  
  228 |   ssi[im].size = 0;
      |   ~~~~~~~~~~~~~~~~~                                     
  229 |   if (!memb_func[im].sym) {
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~                             
  230 |    continue;
      |    ~~~~~~~~~                                            
  231 |   }
      |   ~                                                     
  232 |   NrnProperty* np = new NrnProperty(memb_func[im].sym->name);
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
  233 |   // generally we only save STATE variables. However for
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
  234 |   // models containing a NET_RECEIVE block, we also need to
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
  235 |   // save everything except the parameters
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~              
  236 |   // because they often contain
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                         
  237 |   // logic and analytic state values. Unfortunately, it is often
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
  238 |   // the case that the ASSIGNED variables are not declared as
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
  239 |   // RANGE variables so to avoid missing state, save the whole
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
  240 |   // param array including PARAMETERs.
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                  
  241 |      if  (pnt_receive[im]) {
      |      ~~~~~~~~~~~~~~~~~~~~~~~                            
  242 |   ssi[im].offset = 0;
      |   ~~~~~~~~~~~~~~~~~~~                                   
  243 |   ssi[im].size = np->prop()->param_size;
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                
  244 |      }else{
      |      ~~~~~~                                             
  245 |   int type = STATE;
      |   ~~~~~~~~~~~~~~~~~                                     
  246 |   for (Symbol* sym = np->first_var(); np->more_var(); sym = np->next_var()) {
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
  247 |    if (np->var_type(sym) == type
      |    ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                        
  248 |        || np->var_type(sym) == STATE
      |        ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                    
  249 |        || sym->subtype == _AMBIGUOUS) {
      |        ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                 
  250 |     if (ssi[im].offset < 0) {
      |     ~~~~~~~~~~~~~~~~~~~~~~~~~                           
  251 |      ssi[im].offset = np->prop_index(sym);
      |      ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~              
  252 |     }
      |     ~                                                   
  253 |     ssi[im].size += hoc_total_array_data(sym, 0);
      |     ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~       
  254 |    }
      |    ~                                                    
  255 |   }
      |   ~                                                     
  256 |      }
      |      ~                                                  
  257 |      delete np;
      |      ~~~~~~~~~~                                         
  258 |  }
      |  ~                                                      
  259 | }
      | ~                                                       
  260 | 
      |                                                         
  261 | bool SaveState::check(bool warn) {
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                      
  262 |  hoc_Item* qsec;
      |  ~~~~~~~~~~~~~~~                                        
  263 |  int isec;
      |  ~~~~~~~~~                                              
  264 |  if (nsec_ != section_count) {
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                          
  265 |   if (warn) {
      |   ~~~~~~~~~~~                                           
  266 | fprintf(stderr, "SaveState warning: %d sections exist but saved %d\n",
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
  267 |    section_count, nsec_);
      |    ~~~~~~~~~~~~~~~~~~~~~~                               
  268 |   }
      |   ~                                                     
  269 |   return false;
      |   ~~~~~~~~~~~~~                                         
  270 |  }
      |  ~                                                      
  271 |  if (nroot_ != nrn_global_ncell) {
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                      
  272 |   if (warn) {
      |   ~~~~~~~~~~~                                           
  273 | fprintf(stderr, "SaveState warning: %d cells exist but saved %d\n",
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
  274 |    nrn_global_ncell, nroot_);
      |    ~~~~~~~~~~~~~~~~~~~~~~~~~~                           
  275 |   }
      |   ~                                                     
  276 |   return false;
      |   ~~~~~~~~~~~~~                                         
  277 |  }
      |  ~                                                      
  278 |  if (nsec_ && ss_[0].sec == NULL) { // got the data from a read
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
  279 |   isec = 0; ForAllSections(sec)
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                         
  280 |    ss_[isec].sec = sec;
      |    ~~~~~~~~~~~~~~~~~~~~                                 
  281 |    section_ref(ss_[isec].sec);
      |    ~~~~~~~~~~~~~~~~~~~~~~~~~~~                          
  282 |    ++isec;
      |    ~~~~~~~                                              
  283 |   }
      |   ~                                                     
  284 |  }
      |  ~                                                      
  285 |  for (int i=0, j=0; i < n_memb_func; ++i) if (nrn_is_artificial_[i]) {
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
  286 |   if (!checkacell(acell_[j], i, warn)) {
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                
  287 |    return false;
      |    ~~~~~~~~~~~~~                                        
  288 |   }
      |   ~                                                     
  289 |   ++j;
      |   ~~~~                                                  
  290 |  }
      |  ~                                                      
  291 |  for (int isec=0; isec < nsec_; ++isec) {
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~               
  292 |   SecState& ss = ss_[isec];
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~                             
  293 |   Section* sec = ss.sec;
      |   ~~~~~~~~~~~~~~~~~~~~~~                                
  294 |   if (!sec->prop || sec->nnode != ss.nnode) {
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~           
  295 | if (warn) {
      | ~~~~~~~~~~~                                             
  296 | if (!sec->prop) {
      | ~~~~~~~~~~~~~~~~~                                       
  297 | fprintf(stderr, "SaveState warning: saved section no longer exists\n");
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
  298 | }else{
      | ~~~~~~                                                  
  299 | fprintf(stderr, "SaveState warning: %s has %d nodes but saved %d\n",
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
  300 |     secname(sec), sec->nnode, ss.nnode);
      |     ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                
  301 | }
      | ~                                                       
  302 | }
      | ~                                                       
  303 |    return false;
      |    ~~~~~~~~~~~~~                                        
  304 |   }
      |   ~                                                     
  305 |   for (int inode = 0; inode < ss.nnode; ++inode) {
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~      
  306 |    NodeState& ns = ss.ns[inode];
      |    ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                        
  307 |    Node* nd = sec->pnode[inode];
      |    ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                        
  308 |    int i=0;
      |    ~~~~~~~~                                             
  309 |    Prop* p;
      |    ~~~~~~~~                                             
  310 |    for (p = nd->prop; p; p = p->next) {
      |    ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                 
  311 |     if (ssi[p->type].size == 0) {
      |     ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                       
  312 |      continue;
      |      ~~~~~~~~~                                          
  313 |     }
      |     ~                                                   
  314 |     if (i >= ns.nmemb) {
      |     ~~~~~~~~~~~~~~~~~~~~                                
  315 | if (warn) {
      | ~~~~~~~~~~~                                             
  316 | fprintf(stderr,"SaveState warning: \
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                    
  317 | fewer mechanisms saved than exist at node %d of %s\n",
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~  
  318 |  inode, secname(sec));
      |  ~~~~~~~~~~~~~~~~~~~~~                                  
  319 | }
      | ~                                                       
  320 |      return false;
      |      ~~~~~~~~~~~~~                                      
  321 |     }
      |     ~                                                   
  322 |     if (p->type != ns.type[i]) {
      |     ~~~~~~~~~~~~~~~~~~~~~~~~~~~~                        
  323 | if (warn) {
      | ~~~~~~~~~~~                                             
  324 | fprintf(stderr, "SaveState warning: mechanisms out of order at node %d of %s\n\
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
  325 | saved %s but need %s\n",
      | ~~~~~~~~~~~~~~~~~~~~~~~~                                
  326 | inode, secname(sec), memb_func[i].sym->name, memb_func[p->type].sym->name);
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
  327 | }
      | ~                                                       
  328 |      return false;
      |      ~~~~~~~~~~~~~                                      
  329 |     }
      |     ~                                                   
  330 |     ++i;
      |     ~~~~                                                
  331 |    }
      |    ~                                                    
  332 |    if (i != ns.nmemb) {
      |    ~~~~~~~~~~~~~~~~~~~~                                 
  333 | if (warn) {
      | ~~~~~~~~~~~                                             
  334 | fprintf(stderr, "SaveState warning: more mechanisms saved than exist at node %d of %s\n",
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
  335 |  inode, secname(sec));
      |  ~~~~~~~~~~~~~~~~~~~~~                                  
  336 | }
      | ~                                                       
  337 |     return false;
      |     ~~~~~~~~~~~~~                                       
  338 |    }
      |    ~                                                    
  339 |   }
      |   ~                                                     
  340 |   if (!sec->parentsec || ss.root) {
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                     
  341 |    if (sec->parentsec || !ss.root) {
      |    ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                    
  342 | if (warn) {
      | ~~~~~~~~~~~                                             
  343 | fprintf(stderr, "SaveState warning: Saved section and %s are not both root sections.\n",
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
  344 |  secname(sec));
      |  ~~~~~~~~~~~~~~                                         
  345 | }
      | ~                                                       
  346 |    }
      |    ~                                                    
  347 |    if (!checknode(*ss.root, sec->parentnode, warn)) {
      |    ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~   
  348 |     return false;
      |     ~~~~~~~~~~~~~                                       
  349 |    }
      |    ~                                                    
  350 |   }
      |   ~                                                     
  351 | 
      |                                                         
  352 |  }
      |  ~                                                      
  353 |  if (!checknet(warn)) { return false; }
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                 
  354 |  return true;
      |  ~~~~~~~~~~~~                                           
  355 | }
      | ~                                                       
  356 | 
      |                                                         
  357 | bool SaveState::checknode(NodeState& ns, Node* nd, bool warn) {
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
  358 |  int i=0;
      |  ~~~~~~~~                                               
  359 |  Prop* p;
      |  ~~~~~~~~                                               
  360 |  for (p = nd->prop; p; p = p->next) {
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                   
  361 |   if (ssi[p->type].size == 0) {
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                         
  362 |    continue;
      |    ~~~~~~~~~                                            
  363 |   }
      |   ~                                                     
  364 |   if (i >= ns.nmemb) {
      |   ~~~~~~~~~~~~~~~~~~~~                                  
  365 | if (warn) {
      | ~~~~~~~~~~~                                             
  366 | fprintf(stderr,"SaveState warning: \
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                    
  367 | fewer mechanisms saved than exist at a root node\n");
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~   
  368 | }
      | ~                                                       
  369 |    return false;
      |    ~~~~~~~~~~~~~                                        
  370 |   }
      |   ~                                                     
  371 |   if (p->type != ns.type[i]) {
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~~                          
  372 | if (warn) {
      | ~~~~~~~~~~~                                             
  373 | fprintf(stderr, "SaveState warning: mechanisms out of order at a rootnode\n\
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
  374 | saved %s but need %s\n",
      | ~~~~~~~~~~~~~~~~~~~~~~~~                                
  375 | memb_func[i].sym->name, memb_func[p->type].sym->name);
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~  
  376 | }
      | ~                                                       
  377 |    return false;
      |    ~~~~~~~~~~~~~                                        
  378 |   }
      |   ~                                                     
  379 |   ++i;
      |   ~~~~                                                  
  380 |  }
      |  ~                                                      
  381 |  if (i != ns.nmemb) {
      |  ~~~~~~~~~~~~~~~~~~~~                                   
  382 | if (warn) {
      | ~~~~~~~~~~~                                             
  383 | fprintf(stderr, "SaveState warning: more mechanisms saved than exist at a rootnode\n");
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
  384 | }
      | ~                                                       
  385 |   return false;
      |   ~~~~~~~~~~~~~                                         
  386 |  }
      |  ~                                                      
  387 |  return true;
      |  ~~~~~~~~~~~~                                           
  388 | }
      | ~                                                       
  389 | 
      |                                                         
  390 | bool SaveState::checkacell(ACellState& ac, int type, bool warn) {
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
  391 |  if (memb_list[type].nodecount != ac.ncell) {
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~           
  392 | if (warn) {
      | ~~~~~~~~~~~                                             
  393 | fprintf(stderr, "SaveState warning: different number of %s saved than exist.\n",
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
  394 | memb_func[type].sym->name);
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~                             
  395 | }
      | ~                                                       
  396 |   return false;
      |   ~~~~~~~~~~~~~                                         
  397 |  }
      |  ~                                                      
  398 |  return true;
      |  ~~~~~~~~~~~~                                           
  399 | }
      | ~                                                       
  400 | 
      |                                                         
  401 | void SaveState::alloc() {
      | ~~~~~~~~~~~~~~~~~~~~~~~~~                               
  402 |  ssfree();
      |  ~~~~~~~~~                                              
  403 |  int inode, isec;
      |  ~~~~~~~~~~~~~~~~                                       
  404 |  hoc_Item* qsec;
      |  ~~~~~~~~~~~~~~~                                        
  405 |  nsec_ = section_count;
      |  ~~~~~~~~~~~~~~~~~~~~~~                                 
  406 |  ss_ = new SecState[nsec_];
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~                             
  407 |  nroot_ = 0;
      |  ~~~~~~~~~~~                                            
  408 |  isec = 0;
      |  ~~~~~~~~~                                              
  409 |  ForAllSections(sec)
      |  ~~~~~~~~~~~~~~~~~~~                                    
  410 |   SecState& ss = ss_[isec];
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~                             
  411 |   ss.sec = sec;
      |   ~~~~~~~~~~~~~                                         
  412 |   section_ref(ss.sec);
      |   ~~~~~~~~~~~~~~~~~~~~                                  
  413 |   ss.nnode = ss.sec->nnode;
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~                             
  414 |   ss.ns = new NodeState[ss.nnode];
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                      
  415 |   for (inode = 0; inode < ss.nnode; ++inode) {
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~          
  416 |    Node* nd = ss.sec->pnode[inode];
      |    ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                     
  417 |    NodeState& ns = ss.ns[inode];
      |    ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                        
  418 |    allocnode(ns, nd);
      |    ~~~~~~~~~~~~~~~~~~                                   
  419 |   }
      |   ~                                                     
  420 |   if (!sec->parentsec) {
      |   ~~~~~~~~~~~~~~~~~~~~~~                                
  421 |    assert(sec->parentnode);
      |    ~~~~~~~~~~~~~~~~~~~~~~~~                             
  422 |    ss.root = new NodeState;
      |    ~~~~~~~~~~~~~~~~~~~~~~~~                             
  423 |    allocnode(*ss.root, sec->parentnode);
      |    ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                
  424 |    ++nroot_;
      |    ~~~~~~~~~                                            
  425 |   }else{
      |   ~~~~~~                                                
  426 |    ss.root = 0;
      |    ~~~~~~~~~~~~                                         
  427 |   }
      |   ~                                                     
  428 |   ++isec;
      |   ~~~~~~~                                               
  429 |  }
      |  ~                                                      
  430 |  assert(isec == section_count);
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                         
  431 |  assert(nroot_ == nrn_global_ncell);
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                    
  432 |  for (int i=0, j=0; i < n_memb_func; ++i) if (nrn_is_artificial_[i]) {
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
  433 |   allocacell(acell_[j], i);
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~                             
  434 |   ++j;
      |   ~~~~                                                  
  435 |  }
      |  ~                                                      
  436 |  PlayRecList* prl = net_cvode_instance_prl();
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~           
  437 |  nprs_ = prl->count();
      |  ~~~~~~~~~~~~~~~~~~~~~                                  
  438 |  if (nprs_) {
      |  ~~~~~~~~~~~~                                           
  439 |   prs_ = new PlayRecordSave*[nprs_];
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                    
  440 |  }
      |  ~                                                      
  441 |  allocnet();
      |  ~~~~~~~~~~~                                            
  442 | }
      | ~                                                       
  443 | 
      |                                                         
  444 | void SaveState::allocnode(NodeState& ns, Node* nd) {
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~    
  445 |  ns.nmemb = 0;
      |  ~~~~~~~~~~~~~                                          
  446 |  ns.type = NULL;
      |  ~~~~~~~~~~~~~~~                                        
  447 |  ns.state = NULL;
      |  ~~~~~~~~~~~~~~~~                                       
  448 |  ns.nstate = 0;
      |  ~~~~~~~~~~~~~~                                         
  449 |  Prop* p;
      |  ~~~~~~~~                                               
  450 |  for (p = nd->prop; p; p = p->next) {
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                   
  451 |   if (ssi[p->type].size == 0) {
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                         
  452 |    continue;
      |    ~~~~~~~~~                                            
  453 |   }
      |   ~                                                     
  454 |   ++ns.nmemb;
      |   ~~~~~~~~~~~                                           
  455 |   ns.nstate += ssi[p->type].size;
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                       
  456 |  }
      |  ~                                                      
  457 |  if (ns.nmemb) {
      |  ~~~~~~~~~~~~~~~                                        
  458 |   ns.type = new int[ns.nmemb];
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~~                          
  459 |  }
      |  ~                                                      
  460 |  if (ns.nstate) {
      |  ~~~~~~~~~~~~~~~~                                       
  461 |   ns.state = new double[ns.nstate];
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                     
  462 |  }
      |  ~                                                      
  463 |  int i = 0;
      |  ~~~~~~~~~~                                             
  464 |  for (p = nd->prop; p; p = p->next) {
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                   
  465 |   if (ssi[p->type].size == 0) {
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                         
  466 |    continue;
      |    ~~~~~~~~~                                            
  467 |   }
      |   ~                                                     
  468 |   ns.type[i] = p->type;
      |   ~~~~~~~~~~~~~~~~~~~~~                                 
  469 |   ++i;
      |   ~~~~                                                  
  470 |  }
      |  ~                                                      
  471 | }
      | ~                                                       
  472 | 
      |                                                         
  473 | void SaveState::allocacell(ACellState& ac, int type) {
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~  
  474 |  Memb_list& ml = memb_list[type];
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                       
  475 |  ac.type = type;
      |  ~~~~~~~~~~~~~~~                                        
  476 |  ac.ncell = ml.nodecount;
      |  ~~~~~~~~~~~~~~~~~~~~~~~~                               
  477 |  ac.state = new double[ac.ncell * ssi[type].size];
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~      
  478 | }
      | ~                                                       
  479 | 
      |                                                         
  480 | void SaveState::ssfree() {
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~                              
  481 |  int i, isec, inode;
      |  ~~~~~~~~~~~~~~~~~~~                                    
  482 |  for (isec=0; isec < nsec_; ++isec) {
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                   
  483 |   SecState& ss = ss_[isec];
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~                             
  484 |   for (inode = 0; inode < ss.nnode; ++inode) {
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~          
  485 |    NodeState& ns = ss.ns[inode];
      |    ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                        
  486 |    if (ns.nmemb) {
      |    ~~~~~~~~~~~~~~~                                      
  487 |     delete [] ns.type;
      |     ~~~~~~~~~~~~~~~~~~                                  
  488 |    }
      |    ~                                                    
  489 |    if (ns.nstate) {
      |    ~~~~~~~~~~~~~~~~                                     
  490 |     delete [] ns.state;
      |     ~~~~~~~~~~~~~~~~~~~                                 
  491 |    }
      |    ~                                                    
  492 |   }
      |   ~                                                     
  493 |   if (ss.root) {
      |   ~~~~~~~~~~~~~~                                        
  494 |    NodeState& ns = *ss.root;
      |    ~~~~~~~~~~~~~~~~~~~~~~~~~                            
  495 |    if (ns.nmemb) {
      |    ~~~~~~~~~~~~~~~                                      
  496 |     delete [] ns.type;
      |     ~~~~~~~~~~~~~~~~~~                                  
  497 |    }
      |    ~                                                    
  498 |    if (ns.nstate) {
      |    ~~~~~~~~~~~~~~~~                                     
  499 |     delete [] ns.state;
      |     ~~~~~~~~~~~~~~~~~~~                                 
  500 |    }
      |    ~                                                    
  501 |    delete ss.root;
      |    ~~~~~~~~~~~~~~~                                      
  502 |   }
      |   ~                                                     
  503 |   if (ss.nnode) {
      |   ~~~~~~~~~~~~~~~                                       
  504 |    delete [] ss.ns;
      |    ~~~~~~~~~~~~~~~~                                     
  505 |   }
      |   ~                                                     
  506 |   if (ss.sec) { // got info from an fread but never checked it
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
  507 |    section_unref(ss.sec);
      |    ~~~~~~~~~~~~~~~~~~~~~~                               
  508 |   }
      |   ~                                                     
  509 |  }
      |  ~                                                      
  510 |  if (nsec_) {
      |  ~~~~~~~~~~~~                                           
  511 |   delete [] ss_;
      |   ~~~~~~~~~~~~~~                                        
  512 |  }
      |  ~                                                      
  513 |  nsec_ = 0;
      |  ~~~~~~~~~~                                             
  514 |  ss_ = NULL;
      |  ~~~~~~~~~~~                                            
  515 |  for (i=0; i < nacell_; ++i) {
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                          
  516 |   if (acell_[i].ncell) {
      |   ~~~~~~~~~~~~~~~~~~~~~~                                
  517 |    delete [] acell_[i].state;
      |    ~~~~~~~~~~~~~~~~~~~~~~~~~~                           
  518 |    acell_[i].state = 0;
      |    ~~~~~~~~~~~~~~~~~~~~                                 
  519 |    acell_[i].ncell = 0;
      |    ~~~~~~~~~~~~~~~~~~~~                                 
  520 |   }
      |   ~                                                     
  521 |  } // note we do not destroy the acell_.
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                
  522 |  if (nncs_) {
      |  ~~~~~~~~~~~~                                           
  523 |   for (i = 0; i < nncs_; ++i) {
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                         
  524 |    if (ncs_[i].nstate) {
      |    ~~~~~~~~~~~~~~~~~~~~~                                
  525 |     delete [] ncs_[i].state;
      |     ~~~~~~~~~~~~~~~~~~~~~~~~                            
  526 |    }
      |    ~                                                    
  527 |   }
      |   ~                                                     
  528 |   delete [] ncs_;
      |   ~~~~~~~~~~~~~~~                                       
  529 |  }
      |  ~                                                      
  530 |  nncs_ = 0;
      |  ~~~~~~~~~~                                             
  531 |  ncs_ = NULL;
      |  ~~~~~~~~~~~~                                           
  532 |  if (npss_) {
      |  ~~~~~~~~~~~~                                           
  533 |   delete [] pss_;
      |   ~~~~~~~~~~~~~~~                                       
  534 |  }
      |  ~                                                      
  535 |  npss_ = 0;
      |  ~~~~~~~~~~                                             
  536 |  pss_ = NULL;
      |  ~~~~~~~~~~~~                                           
  537 |  free_tq();
      |  ~~~~~~~~~~                                             
  538 |  if (nprs_) {
      |  ~~~~~~~~~~~~                                           
  539 |   for (i=0; i < nprs_; ++i) {
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~                           
  540 |    delete prs_[i];
      |    ~~~~~~~~~~~~~~~                                      
  541 |   }
      |   ~                                                     
  542 |   delete [] prs_;
      |   ~~~~~~~~~~~~~~~                                       
  543 |  }
      |  ~                                                      
  544 |  nprs_ = 0;
      |  ~~~~~~~~~~                                             
  545 | }
      | ~                                                       
  546 | 
      |                                                         
  547 | void SaveState::save() {
      | ~~~~~~~~~~~~~~~~~~~~~~~~                                
  548 |  NrnThread* nt;
      |  ~~~~~~~~~~~~~~                                         
  549 |  if (!check(false)) {
      |  ~~~~~~~~~~~~~~~~~~~~                                   
  550 |   alloc();
      |   ~~~~~~~~                                              
  551 |  }
      |  ~                                                      
  552 |  FOR_THREADS(nt) {
      |  ~~~~~~~~~~~~~~~~~                                      
  553 |   assert(t == nt->_t);
      |   ~~~~~~~~~~~~~~~~~~~~                                  
  554 |  }
      |  ~                                                      
  555 |  t_ = t;
      |  ~~~~~~~                                                
  556 |  int inode;
      |  ~~~~~~~~~~                                             
  557 |  for (int isec=0; isec < nsec_; ++isec) {
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~               
  558 |   SecState& ss = ss_[isec];
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~                             
  559 |   Section* sec = ss.sec;
      |   ~~~~~~~~~~~~~~~~~~~~~~                                
  560 |   for (inode = 0; inode < ss.nnode; ++inode) {
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~          
  561 |    NodeState& ns = ss.ns[inode];
      |    ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                        
  562 |    Node* nd = sec->pnode[inode];
      |    ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                        
  563 |    savenode(ns, nd);
      |    ~~~~~~~~~~~~~~~~~                                    
  564 |   }
      |   ~                                                     
  565 |   if (ss.root) {
      |   ~~~~~~~~~~~~~~                                        
  566 |    NodeState& ns = *ss.root;
      |    ~~~~~~~~~~~~~~~~~~~~~~~~~                            
  567 |    Node* nd = sec->parentnode;
      |    ~~~~~~~~~~~~~~~~~~~~~~~~~~~                          
  568 |    savenode(ns, nd);
      |    ~~~~~~~~~~~~~~~~~                                    
  569 |   }
      |   ~                                                     
  570 |  }
      |  ~                                                      
  571 |  for (int i=0, j=0; i < n_memb_func; ++i) if (nrn_is_artificial_[i]) {
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
  572 |   saveacell(acell_[j], i);
      |   ~~~~~~~~~~~~~~~~~~~~~~~~                              
  573 |   ++j;
      |   ~~~~                                                  
  574 |  }
      |  ~                                                      
  575 |  if (nprs_) {
      |  ~~~~~~~~~~~~                                           
  576 |   PlayRecList* prl = net_cvode_instance_prl();
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~          
  577 |   int i;
      |   ~~~~~~                                                
  578 |   assert(nprs_ == prl->count());
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                        
  579 |   for (i=0; i < nprs_; ++i) {
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~                           
  580 |    prs_[i] = prl->item(i)->savestate_save();
      |    ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~            
  581 |   }
      |   ~                                                     
  582 |  }
      |  ~                                                      
  583 |  savenet();
      |  ~~~~~~~~~~                                             
  584 | }
      | ~                                                       
  585 | 
      |                                                         
  586 | void SaveState::savenode(NodeState& ns, Node* nd) {
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~     
  587 |  ns.v = NODEV(nd);
      |  ~~~~~~~~~~~~~~~~~                                      
  588 |  int istate = 0;
      |  ~~~~~~~~~~~~~~~                                        
  589 |  Prop* p;
      |  ~~~~~~~~                                               
  590 |  for (p = nd->prop; p; p = p->next) {
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                   
  591 |   if (ssi[p->type].size == 0) {
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                         
  592 |    continue;
      |    ~~~~~~~~~                                            
  593 |   }
      |   ~                                                     
  594 |   int type = p->type;
      |   ~~~~~~~~~~~~~~~~~~~                                   
  595 |   int max = ssi[type].offset + ssi[type].size;
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~          
  596 | #if EXTRACELLULAR
      | ~~~~~~~~~~~~~~~~~                                       
  597 |   if (type == EXTRACELL) {
      |   ~~~~~~~~~~~~~~~~~~~~~~~~                              
  598 |    for (int i=0; i < nlayer; ++i) {
      |    ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                     
  599 |     ns.state[istate++] = nd->extnode->v[i];
      |     ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~             
  600 |    }
      |    ~                                                    
  601 |   }else
      |   ~~~~~                                                 
  602 | #endif
      | ~~~~~~                                                  
  603 |   {
      |   ~                                                     
  604 |    for (int ip=ssi[type].offset; ip < max; ++ip) {
      |    ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~      
  605 |     ns.state[istate++] = p->param[ip];
      |     ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                  
  606 |    }
      |    ~                                                    
  607 |   }
      |   ~                                                     
  608 |  }
      |  ~                                                      
  609 | }
      | ~                                                       
  610 | 
      |                                                         
  611 | void SaveState::saveacell(ACellState& ac, int type) {
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~   
  612 |  Memb_list& ml = memb_list[type];
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                       
  613 |  int sz = ssi[type].size;
      |  ~~~~~~~~~~~~~~~~~~~~~~~~                               
  614 |  double* p = ac.state;
      |  ~~~~~~~~~~~~~~~~~~~~~                                  
  615 |  for (int i = 0; i < ml.nodecount; ++i) {
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~               
  616 |   double* d = ml.data[i];
      |   ~~~~~~~~~~~~~~~~~~~~~~~                               
  617 |   for (int j=0; j < sz; ++j) {
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~~                          
  618 |    (*p++) = d[j];
      |    ~~~~~~~~~~~~~~                                       
  619 |   }
      |   ~                                                     
  620 |  }
      |  ~                                                      
  621 | }
      | ~                                                       
  622 | 
      |                                                         
  623 | void SaveState::restore(int type) {
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                     
  624 |  NrnThread* nt;
      |  ~~~~~~~~~~~~~~                                         
  625 |  if (!check(true)) {
      |  ~~~~~~~~~~~~~~~~~~~                                    
  626 |   hoc_execerror("SaveState:",
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~                           
  627 |   "Stored state inconsistent with current neuron structure");
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
  628 |  }
      |  ~                                                      
  629 |  t = t_;
      |  ~~~~~~~                                                
  630 |  FOR_THREADS(nt) {
      |  ~~~~~~~~~~~~~~~~~                                      
  631 |   nt->_t = t_;
      |   ~~~~~~~~~~~~                                          
  632 |  }
      |  ~                                                      
  633 |  int inode;
      |  ~~~~~~~~~~                                             
  634 |  for (int isec=0; isec < nsec_; ++isec) {
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~               
  635 |   SecState& ss = ss_[isec];
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~                             
  636 |   Section* sec = ss.sec;
      |   ~~~~~~~~~~~~~~~~~~~~~~                                
  637 |   for (inode = 0; inode < ss.nnode; ++inode) {
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~          
  638 |    NodeState& ns = ss.ns[inode];
      |    ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                        
  639 |    Node* nd = sec->pnode[inode];
      |    ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                        
  640 |    restorenode(ns, nd);
      |    ~~~~~~~~~~~~~~~~~~~~                                 
  641 |   }
      |   ~                                                     
  642 |   if (ss.root) {
      |   ~~~~~~~~~~~~~~                                        
  643 |    NodeState& ns = *ss.root;
      |    ~~~~~~~~~~~~~~~~~~~~~~~~~                            
  644 |    Node* nd = sec->parentnode;
      |    ~~~~~~~~~~~~~~~~~~~~~~~~~~~                          
  645 |    restorenode(ns, nd);
      |    ~~~~~~~~~~~~~~~~~~~~                                 
  646 |   }
      |   ~                                                     
  647 |  }
      |  ~                                                      
  648 |  for (int i=0, j=0; i < n_memb_func; ++i) if (nrn_is_artificial_[i]) {
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
  649 |   restoreacell(acell_[j], i);
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~                           
  650 |   ++j;
      |   ~~~~                                                  
  651 |  }
      |  ~                                                      
  652 |  if (type == 1) { return; }
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~                             
  653 |  PlayRecList* prl = net_cvode_instance_prl();
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~           
  654 |  // during a local step the PlayRecList is augmented with GLineRecord
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
  655 |  // assert(nprs_ == prl->count());
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                      
  656 |  assert(nprs_ <= prl->count());
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                         
  657 |  int i;
      |  ~~~~~~                                                 
  658 |  for (i = 0; i < nprs_; ++i) {
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                          
  659 |   prs_[i]->savestate_restore();
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                         
  660 |  }
      |  ~                                                      
  661 |  restorenet();
      |  ~~~~~~~~~~~~~                                          
  662 | }
      | ~                                                       
  663 | 
      |                                                         
  664 | void SaveState::restorenode(NodeState& ns, Node* nd) {
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~  
  665 |  NODEV(nd) = ns.v;;
      |  ~~~~~~~~~~~~~~~~~~                                     
  666 |  int istate = 0;
      |  ~~~~~~~~~~~~~~~                                        
  667 |  Prop* p;
      |  ~~~~~~~~                                               
  668 |  for (p = nd->prop; p; p = p->next) {
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                   
  669 |   if (ssi[p->type].size == 0) {
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                         
  670 |    continue;
      |    ~~~~~~~~~                                            
  671 |   }
      |   ~                                                     
  672 |   int type = p->type;
      |   ~~~~~~~~~~~~~~~~~~~                                   
  673 |   int max = ssi[type].offset + ssi[type].size;
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~          
  674 | #if EXTRACELLULAR
      | ~~~~~~~~~~~~~~~~~                                       
  675 |   if (type == EXTRACELL) {
      |   ~~~~~~~~~~~~~~~~~~~~~~~~                              
  676 |    for (int i=0; i < nlayer; ++i) {
      |    ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                     
  677 |     nd->extnode->v[i] = ns.state[istate++];
      |     ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~             
  678 |    }
      |    ~                                                    
  679 |   }else
      |   ~~~~~                                                 
  680 | #endif
      | ~~~~~~                                                  
  681 |   {
      |   ~                                                     
  682 |    for (int ip=ssi[type].offset; ip < max; ++ip) {
      |    ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~      
  683 |     p->param[ip] = ns.state[istate++];
      |     ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                  
  684 |    }
      |    ~                                                    
  685 |   }
      |   ~                                                     
  686 |  }
      |  ~                                                      
  687 | }
      | ~                                                       
  688 | 
      |                                                         
  689 | void SaveState::restoreacell(ACellState& ac, int type) {
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
  690 |  Memb_list& ml = memb_list[type];
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                       
  691 |  int sz = ssi[type].size;
      |  ~~~~~~~~~~~~~~~~~~~~~~~~                               
  692 |  double* p = ac.state;
      |  ~~~~~~~~~~~~~~~~~~~~~                                  
  693 |  for (int i = 0; i < ml.nodecount; ++i) {
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~               
  694 |   double* d = ml.data[i];
      |   ~~~~~~~~~~~~~~~~~~~~~~~                               
  695 |   for (int j=0; j < sz; ++j) {
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~~                          
  696 |    d[j] = (*p++);
      |    ~~~~~~~~~~~~~~                                       
  697 |   }
      |   ~                                                     
  698 |  }
      |  ~                                                      
  699 | }
      | ~                                                       
  700 | 
      |                                                         
  701 | void SaveState::read(OcFile* ocf, bool close) {
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~         
  702 |  if (!ocf->open(ocf->get_name(), "r")) {
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                
  703 |   hoc_execerror("Couldn't open file for reading:", ocf->get_name());
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
  704 |  }
      |  ~                                                      
  705 |  nrn_shape_update();
      |  ~~~~~~~~~~~~~~~~~~~                                    
  706 |  BinaryMode(ocf)
      |  ~~~~~~~~~~~~~~~                                        
  707 |  FILE* f = ocf->file();
      |  ~~~~~~~~~~~~~~~~~~~~~~                                 
  708 |  ssfree();
      |  ~~~~~~~~~                                              
  709 |  char buf[200];
      |  ~~~~~~~~~~~~~~                                         
  710 |  ASSERTfgets(buf, 200, f);
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~                              
  711 |  if (strcmp(buf, "SaveState binary file version 6.0\n") != 0) {
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
  712 |   ocf->close();
      |   ~~~~~~~~~~~~~                                         
  713 |   hoc_execerror("Bad SaveState binary file", " Not version 6.0");
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
  714 |  }
      |  ~                                                      
  715 |  ASSERTfread((char*)&t_, sizeof(double), 1, f);
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~         
  716 | // fscanf(f, "%d %d\n", &nsec_, &nrootnode_);
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~           
  717 | // on some os's fscanf leaves file pointer at wrong place for next fread
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
  718 | // can check it with ftell(f)
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                           
  719 |  ASSERTfgets(buf, 200, f);
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~                              
  720 |  sscanf(buf, "%d %d\n", &nsec_, &nroot_);
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~               
  721 |  // to enable comparison of SaveState files, we avoid
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~   
  722 |  // putting pointers in the files and instead explicitly read/write
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
  723 |  // structure elements.
      |  ~~~~~~~~~~~~~~~~~~~~~~                                 
  724 |  ss_ = new SecState[nsec_];
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~                             
  725 |  fread_SecState(ss_, nsec_, f);
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                         
  726 |  for (int isec=0; isec < nsec_; ++isec) {
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~               
  727 |   SecState& ss = ss_[isec];
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~                             
  728 |   ss.sec = NULL;
      |   ~~~~~~~~~~~~~~                                        
  729 |   ss.ns = new NodeState[ss.nnode];
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                      
  730 |   fread_NodeState(ss.ns, ss.nnode, f);
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                  
  731 |   for (int inode = 0; inode < ss.nnode; ++inode) {
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~      
  732 |    NodeState& ns = ss.ns[inode];
      |    ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                        
  733 |    if (ns.nmemb) {
      |    ~~~~~~~~~~~~~~~                                      
  734 |     ns.type = new int[ns.nmemb];
      |     ~~~~~~~~~~~~~~~~~~~~~~~~~~~~                        
  735 |     ASSERTfread((char*)ns.type, sizeof(int), ns.nmemb, f);
      |     ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
  736 |    }
      |    ~                                                    
  737 |    if (ns.nstate) {
      |    ~~~~~~~~~~~~~~~~                                     
  738 |     ns.state = new double[ns.nstate];
      |     ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                   
  739 |     ASSERTfread((char*)ns.state, sizeof(double), ns.nstate, f);
      |     ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
/builddir/build/BUILD/nrn-7.8.1/src/oc/nrnassrt.h:23:33: note: in definition of macro 'nrn_assert'
   23 | #  define nrn_assert(ex) {if (!(ex)){fprintf(stderr,"Assertion failed: file %s, line %d\n", __FILE__,__LINE__);hoc_execerror(#ex, (char *)0);}}
      |                                 ^~
/builddir/build/BUILD/nrn-7.8.1/src/nrniv/savstate.cpp:739:5: note: in expansion of macro 'ASSERTfread'
  739 |     ASSERTfread((char*)ns.state, sizeof(double), ns.nstate, f);
      |     ^~~~~~~~~~~
/builddir/build/BUILD/nrn-7.8.1/src/nrniv/savstate.cpp:33:56: warning: comparison of integer expressions of different signedness: 'size_t' {aka 'long unsigned int'} and 'int' [-Wsign-compare]
   33 | #define ASSERTfread(a,b,c,d) nrn_assert(fread(a,b,c,d) == c)
      |                                         ~~~~~~~~~~~~~~~^~~~~
   34 | #define ASSERTfwrite(a,b,c,d) nrn_assert(fwrite(a,b,c,d) == c)
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
   35 | 
      |                                                         
   36 | class SaveState : public Resource {
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                     
   37 | public:
      | ~~~~~~~                                                 
   38 |  SaveState();
      |  ~~~~~~~~~~~~                                           
   39 |  ~SaveState();
      |  ~~~~~~~~~~~~~                                          
   40 |  virtual void save();
      |  ~~~~~~~~~~~~~~~~~~~~                                   
   41 |  virtual void restore(int type);
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                        
   42 |  virtual void read(OcFile*, bool close);
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                
   43 |  virtual void write(OcFile*, bool close);
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~               
   44 |  struct NodeState {
      |  ~~~~~~~~~~~~~~~~~~                                     
   45 |   double v;
      |   ~~~~~~~~~                                             
   46 |   int nmemb;
      |   ~~~~~~~~~~                                            
   47 |   int* type;
      |   ~~~~~~~~~~                                            
   48 |   int nstate;
      |   ~~~~~~~~~~~                                           
   49 |   double* state;
      |   ~~~~~~~~~~~~~~                                        
   50 |  };
      |  ~~                                                     
   51 |  struct SecState {
      |  ~~~~~~~~~~~~~~~~~                                      
   52 |   Section* sec;
      |   ~~~~~~~~~~~~~                                         
   53 |   int nnode;
      |   ~~~~~~~~~~                                            
   54 |   struct NodeState* ns;
      |   ~~~~~~~~~~~~~~~~~~~~~                                 
   55 |   struct NodeState* root; // non-zero for rootnode
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~      
   56 |  };
      |  ~~                                                     
   57 |  struct StateStructInfo {
      |  ~~~~~~~~~~~~~~~~~~~~~~~~                               
   58 |   int offset;
      |   ~~~~~~~~~~~                                           
   59 |   int size;
      |   ~~~~~~~~~                                             
   60 |  };
      |  ~~                                                     
   61 |  struct ACellState {
      |  ~~~~~~~~~~~~~~~~~~~                                    
   62 |   int type;
      |   ~~~~~~~~~                                             
   63 |   int ncell;
      |   ~~~~~~~~~~                                            
   64 |   double* state;
      |   ~~~~~~~~~~~~~~                                        
   65 |  };
      |  ~~                                                     
   66 |  struct NetConState {
      |  ~~~~~~~~~~~~~~~~~~~~                                   
   67 |   int object_index; // for checking
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                     
   68 |   int nstate;
      |   ~~~~~~~~~~~                                           
   69 |   double* state;
      |   ~~~~~~~~~~~~~~                                        
   70 |  };
      |  ~~                                                     
   71 |  struct PreSynState {
      |  ~~~~~~~~~~~~~~~~~~~~                                   
   72 |   bool flag; // is it firing?
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~                           
   73 |   double valthresh, valold, told;
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                       
   74 | 
      |                                                         
   75 |  };
      |  ~~                                                     
   76 |  struct TQState {
      |  ~~~~~~~~~~~~~~~~                                       
   77 |   int nstate;
      |   ~~~~~~~~~~~                                           
   78 |   double* tdeliver;
      |   ~~~~~~~~~~~~~~~~~                                     
   79 |   DiscreteEvent** items;
      |   ~~~~~~~~~~~~~~~~~~~~~~                                
   80 |  };
      |  ~~                                                     
   81 | private:
      | ~~~~~~~~                                                
   82 |  bool check(bool warn);
      |  ~~~~~~~~~~~~~~~~~~~~~~                                 
   83 |  void alloc();
      |  ~~~~~~~~~~~~~                                          
   84 |  void ssfree();
      |  ~~~~~~~~~~~~~~                                         
   85 |  void ssi_def();
      |  ~~~~~~~~~~~~~~~                                        
   86 | private:
      | ~~~~~~~~                                                
   87 |  void fread_NodeState(NodeState*, int, FILE*);
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~          
   88 |  void fwrite_NodeState(NodeState*, int, FILE*);
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~         
   89 |  void fread_SecState(SecState*, int, FILE*);
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~            
   90 |  void fwrite_SecState(SecState*, int, FILE*);
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~           
   91 | private:
      | ~~~~~~~~                                                
   92 |  double t_;
      |  ~~~~~~~~~~                                             
   93 |  int nroot_;
      |  ~~~~~~~~~~~                                            
   94 |  int nsec_;
      |  ~~~~~~~~~~                                             
   95 |  SecState* ss_;
      |  ~~~~~~~~~~~~~~                                         
   96 |  int nacell_; // number of types
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                        
   97 |  ACellState* acell_;
      |  ~~~~~~~~~~~~~~~~~~~                                    
   98 |  int nncs_;
      |  ~~~~~~~~~~                                             
   99 |  NetConState* ncs_;
      |  ~~~~~~~~~~~~~~~~~~                                     
  100 |  int npss_;
      |  ~~~~~~~~~~                                             
  101 |  PreSynState* pss_;
      |  ~~~~~~~~~~~~~~~~~~                                     
  102 |  TQState* tqs_;
      |  ~~~~~~~~~~~~~~                                         
  103 |  int tqcnt_; // volatile for index of forall_callback
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~   
  104 |  int nprs_;
      |  ~~~~~~~~~~                                             
  105 |  PlayRecordSave** prs_;
      |  ~~~~~~~~~~~~~~~~~~~~~~                                 
  106 |  static StateStructInfo* ssi;
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~                           
  107 |  static cTemplate* nct;
      |  ~~~~~~~~~~~~~~~~~~~~~~                                 
  108 | private:
      | ~~~~~~~~                                                
  109 |  void savenode(NodeState&, Node*);
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                      
  110 |  void restorenode(NodeState&, Node*);
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                   
  111 |  bool checknode(NodeState&, Node*, bool);
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~               
  112 |  void allocnode(NodeState&, Node*);
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                     
  113 | 
      |                                                         
  114 |  void saveacell(ACellState&, int type);
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                 
  115 |  void restoreacell(ACellState&, int type);
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~              
  116 |  bool checkacell(ACellState&, int type, bool);
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~          
  117 |  void allocacell(ACellState&, int type);
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                
  118 | 
      |                                                         
  119 |  void savenet();
      |  ~~~~~~~~~~~~~~~                                        
  120 |  void restorenet();
      |  ~~~~~~~~~~~~~~~~~~                                     
  121 |  void readnet(FILE*);
      |  ~~~~~~~~~~~~~~~~~~~~                                   
  122 |  void writenet(FILE*);
      |  ~~~~~~~~~~~~~~~~~~~~~                                  
  123 |  bool checknet(bool);
      |  ~~~~~~~~~~~~~~~~~~~~                                   
  124 |  void allocnet();
      |  ~~~~~~~~~~~~~~~~                                       
  125 |  void free_tq();
      |  ~~~~~~~~~~~~~~~                                        
  126 |  void alloc_tq();
      |  ~~~~~~~~~~~~~~~~                                       
  127 | public:
      | ~~~~~~~                                                 
  128 |  void tqcount(const TQItem*, int);
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                      
  129 |  void tqsave(const TQItem*, int);
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                       
  130 | };
      | ~~                                                      
  131 | 
      |                                                         
  132 | static SaveState* this_savestate;
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                       
  133 | static int callback_mode;
      | ~~~~~~~~~~~~~~~~~~~~~~~~~                               
  134 | 
      |                                                         
  135 | void tqcallback(const TQItem* tq, int i) {
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~              
  136 |  if (callback_mode == 0) {
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~                              
  137 |   this_savestate->tqcount(tq, i);
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                       
  138 |  }else{
      |  ~~~~~~                                                 
  139 |   this_savestate->tqsave(tq, i);
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                        
  140 |  }
      |  ~                                                      
  141 | }
      | ~                                                       
  142 | 
      |                                                         
  143 | #if __sgi && 0
      | ~~~~~~~~~~~~~~                                          
  144 | // fixed in version 5 of os
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~                             
  145 | StateStructInfo* SaveState::ssi;
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                        
  146 | #else
      | ~~~~~                                                   
  147 | SaveState::StateStructInfo* SaveState::ssi;
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~             
  148 | #endif
      | ~~~~~~                                                  
  149 | cTemplate* SaveState::nct;
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~                              
  150 | 
      |                                                         
  151 | SaveState::SaveState() {
      | ~~~~~~~~~~~~~~~~~~~~~~~~                                
  152 |  int i, j;
      |  ~~~~~~~~~                                              
  153 |  ssi_def();
      |  ~~~~~~~~~~                                             
  154 |  nroot_ = 0;
      |  ~~~~~~~~~~~                                            
  155 |  ss_ = NULL;
      |  ~~~~~~~~~~~                                            
  156 |  nsec_ = 0;
      |  ~~~~~~~~~~                                             
  157 |  nncs_ = 0;
      |  ~~~~~~~~~~                                             
  158 |  ncs_ = NULL;
      |  ~~~~~~~~~~~~                                           
  159 |  npss_ = 0;
      |  ~~~~~~~~~~                                             
  160 |  pss_ = NULL;
      |  ~~~~~~~~~~~~                                           
  161 |  tqs_ = new TQState();
      |  ~~~~~~~~~~~~~~~~~~~~~                                  
  162 |  tqs_->nstate = 0;
      |  ~~~~~~~~~~~~~~~~~                                      
  163 |  nprs_ = 0;
      |  ~~~~~~~~~~                                             
  164 |  prs_ = NULL;
      |  ~~~~~~~~~~~~                                           
  165 |  nacell_ = 0;
      |  ~~~~~~~~~~~~                                           
  166 |  for (i=0; i < n_memb_func; ++i) if (nrn_is_artificial_[i]) {
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
  167 |   ++nacell_;
      |   ~~~~~~~~~~                                            
  168 |  }
      |  ~                                                      
  169 |  acell_ = new ACellState[nacell_];
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                      
  170 |  for (i=0; i < nacell_; ++i) {
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                          
  171 |   acell_[i].ncell = 0;
      |   ~~~~~~~~~~~~~~~~~~~~                                  
  172 |   acell_[i].state = 0;
      |   ~~~~~~~~~~~~~~~~~~~~                                  
  173 |  }
      |  ~                                                      
  174 |  for (i=0, j=0; i < n_memb_func; ++i) if (nrn_is_artificial_[i]) {
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
  175 |   acell_[j].type = i;
      |   ~~~~~~~~~~~~~~~~~~~                                   
  176 |   ++j;
      |   ~~~~                                                  
  177 |  }
      |  ~                                                      
  178 | }
      | ~                                                       
  179 | 
      |                                                         
  180 | SaveState::~SaveState() {
      | ~~~~~~~~~~~~~~~~~~~~~~~~~                               
  181 |  ssfree();
      |  ~~~~~~~~~                                              
  182 |  delete tqs_;
      |  ~~~~~~~~~~~~                                           
  183 |  delete [] acell_;
      |  ~~~~~~~~~~~~~~~~~                                      
  184 | }
      | ~                                                       
  185 | 
      |                                                         
  186 | void SaveState::fread_NodeState(NodeState* ns, int cnt, FILE* f) {
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
  187 |  for (int i=0; i < cnt; ++i) {
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                          
  188 |   ASSERTfread(&ns[i].v, sizeof(double), 1, f);
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~          
  189 |   ASSERTfread(&ns[i].nmemb, sizeof(int), 1, f);
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~         
  190 |   ASSERTfread(&ns[i].nstate, sizeof(int), 1, f);
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~        
  191 |  }
      |  ~                                                      
  192 | }
      | ~                                                       
  193 | void SaveState::fwrite_NodeState(NodeState* ns, int cnt, FILE* f){
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
  194 |  for (int i=0; i < cnt; ++i) {
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                          
  195 |   ASSERTfwrite(&ns[i].v, sizeof(double), 1, f);
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~         
  196 |   ASSERTfwrite(&ns[i].nmemb, sizeof(int), 1, f);
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~        
  197 |   ASSERTfwrite(&ns[i].nstate, sizeof(int), 1, f);
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~       
  198 |  }
      |  ~                                                      
  199 | }
      | ~                                                       
  200 | void SaveState::fread_SecState(SecState* ss, int cnt, FILE* f){
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
  201 |  int b;
      |  ~~~~~~                                                 
  202 |  for (int i=0; i < cnt; ++i) {
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                          
  203 |   ASSERTfread(&ss[i].nnode, sizeof(int), 1, f);
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~         
  204 |   ASSERTfread(&b, sizeof(int), 1, f);
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                   
  205 |   if (b) {
      |   ~~~~~~~~                                              
  206 |    ss[i].root = new NodeState;
      |    ~~~~~~~~~~~~~~~~~~~~~~~~~~~                          
  207 |   }else{
      |   ~~~~~~                                                
  208 |    ss[i].root = 0;
      |    ~~~~~~~~~~~~~~~                                      
  209 |   }
      |   ~                                                     
  210 |  }
      |  ~                                                      
  211 | }
      | ~                                                       
  212 | void SaveState::fwrite_SecState(SecState* ss, int cnt, FILE* f){
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
  213 |  int b;
      |  ~~~~~~                                                 
  214 |  for (int i=0; i < cnt; ++i) {
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                          
  215 |   ASSERTfwrite(&ss[i].nnode, sizeof(int), 1, f);
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~        
  216 |   b = ss[i].root ? 1 : 0;
      |   ~~~~~~~~~~~~~~~~~~~~~~~                               
  217 |   ASSERTfwrite(&b, sizeof(int), 1, f);
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                  
  218 |  }
      |  ~                                                      
  219 | }
      | ~                                                       
  220 | 
      |                                                         
  221 | void SaveState::ssi_def() {
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~                             
  222 |  if (nct) { return; }
      |  ~~~~~~~~~~~~~~~~~~~~                                   
  223 |  Symbol* s = hoc_lookup("NetCon");
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                      
  224 |  nct = s->u.ctemplate;
      |  ~~~~~~~~~~~~~~~~~~~~~                                  
  225 |  ssi = new StateStructInfo[n_memb_func];
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                
  226 |  for (int im=0; im < n_memb_func; ++im) {
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~               
  227 |   ssi[im].offset = -1;
      |   ~~~~~~~~~~~~~~~~~~~~                                  
  228 |   ssi[im].size = 0;
      |   ~~~~~~~~~~~~~~~~~                                     
  229 |   if (!memb_func[im].sym) {
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~                             
  230 |    continue;
      |    ~~~~~~~~~                                            
  231 |   }
      |   ~                                                     
  232 |   NrnProperty* np = new NrnProperty(memb_func[im].sym->name);
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
  233 |   // generally we only save STATE variables. However for
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
  234 |   // models containing a NET_RECEIVE block, we also need to
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
  235 |   // save everything except the parameters
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~              
  236 |   // because they often contain
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                         
  237 |   // logic and analytic state values. Unfortunately, it is often
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
  238 |   // the case that the ASSIGNED variables are not declared as
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
  239 |   // RANGE variables so to avoid missing state, save the whole
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
  240 |   // param array including PARAMETERs.
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                  
  241 |      if  (pnt_receive[im]) {
      |      ~~~~~~~~~~~~~~~~~~~~~~~                            
  242 |   ssi[im].offset = 0;
      |   ~~~~~~~~~~~~~~~~~~~                                   
  243 |   ssi[im].size = np->prop()->param_size;
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                
  244 |      }else{
      |      ~~~~~~                                             
  245 |   int type = STATE;
      |   ~~~~~~~~~~~~~~~~~                                     
  246 |   for (Symbol* sym = np->first_var(); np->more_var(); sym = np->next_var()) {
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
  247 |    if (np->var_type(sym) == type
      |    ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                        
  248 |        || np->var_type(sym) == STATE
      |        ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                    
  249 |        || sym->subtype == _AMBIGUOUS) {
      |        ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                 
  250 |     if (ssi[im].offset < 0) {
      |     ~~~~~~~~~~~~~~~~~~~~~~~~~                           
  251 |      ssi[im].offset = np->prop_index(sym);
      |      ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~              
  252 |     }
      |     ~                                                   
  253 |     ssi[im].size += hoc_total_array_data(sym, 0);
      |     ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~       
  254 |    }
      |    ~                                                    
  255 |   }
      |   ~                                                     
  256 |      }
      |      ~                                                  
  257 |      delete np;
      |      ~~~~~~~~~~                                         
  258 |  }
      |  ~                                                      
  259 | }
      | ~                                                       
  260 | 
      |                                                         
  261 | bool SaveState::check(bool warn) {
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                      
  262 |  hoc_Item* qsec;
      |  ~~~~~~~~~~~~~~~                                        
  263 |  int isec;
      |  ~~~~~~~~~                                              
  264 |  if (nsec_ != section_count) {
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                          
  265 |   if (warn) {
      |   ~~~~~~~~~~~                                           
  266 | fprintf(stderr, "SaveState warning: %d sections exist but saved %d\n",
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
  267 |    section_count, nsec_);
      |    ~~~~~~~~~~~~~~~~~~~~~~                               
  268 |   }
      |   ~                                                     
  269 |   return false;
      |   ~~~~~~~~~~~~~                                         
  270 |  }
      |  ~                                                      
  271 |  if (nroot_ != nrn_global_ncell) {
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                      
  272 |   if (warn) {
      |   ~~~~~~~~~~~                                           
  273 | fprintf(stderr, "SaveState warning: %d cells exist but saved %d\n",
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
  274 |    nrn_global_ncell, nroot_);
      |    ~~~~~~~~~~~~~~~~~~~~~~~~~~                           
  275 |   }
      |   ~                                                     
  276 |   return false;
      |   ~~~~~~~~~~~~~                                         
  277 |  }
      |  ~                                                      
  278 |  if (nsec_ && ss_[0].sec == NULL) { // got the data from a read
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
  279 |   isec = 0; ForAllSections(sec)
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                         
  280 |    ss_[isec].sec = sec;
      |    ~~~~~~~~~~~~~~~~~~~~                                 
  281 |    section_ref(ss_[isec].sec);
      |    ~~~~~~~~~~~~~~~~~~~~~~~~~~~                          
  282 |    ++isec;
      |    ~~~~~~~                                              
  283 |   }
      |   ~                                                     
  284 |  }
      |  ~                                                      
  285 |  for (int i=0, j=0; i < n_memb_func; ++i) if (nrn_is_artificial_[i]) {
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
  286 |   if (!checkacell(acell_[j], i, warn)) {
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                
  287 |    return false;
      |    ~~~~~~~~~~~~~                                        
  288 |   }
      |   ~                                                     
  289 |   ++j;
      |   ~~~~                                                  
  290 |  }
      |  ~                                                      
  291 |  for (int isec=0; isec < nsec_; ++isec) {
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~               
  292 |   SecState& ss = ss_[isec];
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~                             
  293 |   Section* sec = ss.sec;
      |   ~~~~~~~~~~~~~~~~~~~~~~                                
  294 |   if (!sec->prop || sec->nnode != ss.nnode) {
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~           
  295 | if (warn) {
      | ~~~~~~~~~~~                                             
  296 | if (!sec->prop) {
      | ~~~~~~~~~~~~~~~~~                                       
  297 | fprintf(stderr, "SaveState warning: saved section no longer exists\n");
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
  298 | }else{
      | ~~~~~~                                                  
  299 | fprintf(stderr, "SaveState warning: %s has %d nodes but saved %d\n",
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
  300 |     secname(sec), sec->nnode, ss.nnode);
      |     ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                
  301 | }
      | ~                                                       
  302 | }
      | ~                                                       
  303 |    return false;
      |    ~~~~~~~~~~~~~                                        
  304 |   }
      |   ~                                                     
  305 |   for (int inode = 0; inode < ss.nnode; ++inode) {
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~      
  306 |    NodeState& ns = ss.ns[inode];
      |    ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                        
  307 |    Node* nd = sec->pnode[inode];
      |    ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                        
  308 |    int i=0;
      |    ~~~~~~~~                                             
  309 |    Prop* p;
      |    ~~~~~~~~                                             
  310 |    for (p = nd->prop; p; p = p->next) {
      |    ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                 
  311 |     if (ssi[p->type].size == 0) {
      |     ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                       
  312 |      continue;
      |      ~~~~~~~~~                                          
  313 |     }
      |     ~                                                   
  314 |     if (i >= ns.nmemb) {
      |     ~~~~~~~~~~~~~~~~~~~~                                
  315 | if (warn) {
      | ~~~~~~~~~~~                                             
  316 | fprintf(stderr,"SaveState warning: \
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                    
  317 | fewer mechanisms saved than exist at node %d of %s\n",
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~  
  318 |  inode, secname(sec));
      |  ~~~~~~~~~~~~~~~~~~~~~                                  
  319 | }
      | ~                                                       
  320 |      return false;
      |      ~~~~~~~~~~~~~                                      
  321 |     }
      |     ~                                                   
  322 |     if (p->type != ns.type[i]) {
      |     ~~~~~~~~~~~~~~~~~~~~~~~~~~~~                        
  323 | if (warn) {
      | ~~~~~~~~~~~                                             
  324 | fprintf(stderr, "SaveState warning: mechanisms out of order at node %d of %s\n\
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
  325 | saved %s but need %s\n",
      | ~~~~~~~~~~~~~~~~~~~~~~~~                                
  326 | inode, secname(sec), memb_func[i].sym->name, memb_func[p->type].sym->name);
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
  327 | }
      | ~                                                       
  328 |      return false;
      |      ~~~~~~~~~~~~~                                      
  329 |     }
      |     ~                                                   
  330 |     ++i;
      |     ~~~~                                                
  331 |    }
      |    ~                                                    
  332 |    if (i != ns.nmemb) {
      |    ~~~~~~~~~~~~~~~~~~~~                                 
  333 | if (warn) {
      | ~~~~~~~~~~~                                             
  334 | fprintf(stderr, "SaveState warning: more mechanisms saved than exist at node %d of %s\n",
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
  335 |  inode, secname(sec));
      |  ~~~~~~~~~~~~~~~~~~~~~                                  
  336 | }
      | ~                                                       
  337 |     return false;
      |     ~~~~~~~~~~~~~                                       
  338 |    }
      |    ~                                                    
  339 |   }
      |   ~                                                     
  340 |   if (!sec->parentsec || ss.root) {
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                     
  341 |    if (sec->parentsec || !ss.root) {
      |    ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                    
  342 | if (warn) {
      | ~~~~~~~~~~~                                             
  343 | fprintf(stderr, "SaveState warning: Saved section and %s are not both root sections.\n",
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
  344 |  secname(sec));
      |  ~~~~~~~~~~~~~~                                         
  345 | }
      | ~                                                       
  346 |    }
      |    ~                                                    
  347 |    if (!checknode(*ss.root, sec->parentnode, warn)) {
      |    ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~   
  348 |     return false;
      |     ~~~~~~~~~~~~~                                       
  349 |    }
      |    ~                                                    
  350 |   }
      |   ~                                                     
  351 | 
      |                                                         
  352 |  }
      |  ~                                                      
  353 |  if (!checknet(warn)) { return false; }
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                 
  354 |  return true;
      |  ~~~~~~~~~~~~                                           
  355 | }
      | ~                                                       
  356 | 
      |                                                         
  357 | bool SaveState::checknode(NodeState& ns, Node* nd, bool warn) {
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
  358 |  int i=0;
      |  ~~~~~~~~                                               
  359 |  Prop* p;
      |  ~~~~~~~~                                               
  360 |  for (p = nd->prop; p; p = p->next) {
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                   
  361 |   if (ssi[p->type].size == 0) {
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                         
  362 |    continue;
      |    ~~~~~~~~~                                            
  363 |   }
      |   ~                                                     
  364 |   if (i >= ns.nmemb) {
      |   ~~~~~~~~~~~~~~~~~~~~                                  
  365 | if (warn) {
      | ~~~~~~~~~~~                                             
  366 | fprintf(stderr,"SaveState warning: \
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                    
  367 | fewer mechanisms saved than exist at a root node\n");
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~   
  368 | }
      | ~                                                       
  369 |    return false;
      |    ~~~~~~~~~~~~~                                        
  370 |   }
      |   ~                                                     
  371 |   if (p->type != ns.type[i]) {
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~~                          
  372 | if (warn) {
      | ~~~~~~~~~~~                                             
  373 | fprintf(stderr, "SaveState warning: mechanisms out of order at a rootnode\n\
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
  374 | saved %s but need %s\n",
      | ~~~~~~~~~~~~~~~~~~~~~~~~                                
  375 | memb_func[i].sym->name, memb_func[p->type].sym->name);
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~  
  376 | }
      | ~                                                       
  377 |    return false;
      |    ~~~~~~~~~~~~~                                        
  378 |   }
      |   ~                                                     
  379 |   ++i;
      |   ~~~~                                                  
  380 |  }
      |  ~                                                      
  381 |  if (i != ns.nmemb) {
      |  ~~~~~~~~~~~~~~~~~~~~                                   
  382 | if (warn) {
      | ~~~~~~~~~~~                                             
  383 | fprintf(stderr, "SaveState warning: more mechanisms saved than exist at a rootnode\n");
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
  384 | }
      | ~                                                       
  385 |   return false;
      |   ~~~~~~~~~~~~~                                         
  386 |  }
      |  ~                                                      
  387 |  return true;
      |  ~~~~~~~~~~~~                                           
  388 | }
      | ~                                                       
  389 | 
      |                                                         
  390 | bool SaveState::checkacell(ACellState& ac, int type, bool warn) {
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
  391 |  if (memb_list[type].nodecount != ac.ncell) {
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~           
  392 | if (warn) {
      | ~~~~~~~~~~~                                             
  393 | fprintf(stderr, "SaveState warning: different number of %s saved than exist.\n",
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
  394 | memb_func[type].sym->name);
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~                             
  395 | }
      | ~                                                       
  396 |   return false;
      |   ~~~~~~~~~~~~~                                         
  397 |  }
      |  ~                                                      
  398 |  return true;
      |  ~~~~~~~~~~~~                                           
  399 | }
      | ~                                                       
  400 | 
      |                                                         
  401 | void SaveState::alloc() {
      | ~~~~~~~~~~~~~~~~~~~~~~~~~                               
  402 |  ssfree();
      |  ~~~~~~~~~                                              
  403 |  int inode, isec;
      |  ~~~~~~~~~~~~~~~~                                       
  404 |  hoc_Item* qsec;
      |  ~~~~~~~~~~~~~~~                                        
  405 |  nsec_ = section_count;
      |  ~~~~~~~~~~~~~~~~~~~~~~                                 
  406 |  ss_ = new SecState[nsec_];
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~                             
  407 |  nroot_ = 0;
      |  ~~~~~~~~~~~                                            
  408 |  isec = 0;
      |  ~~~~~~~~~                                              
  409 |  ForAllSections(sec)
      |  ~~~~~~~~~~~~~~~~~~~                                    
  410 |   SecState& ss = ss_[isec];
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~                             
  411 |   ss.sec = sec;
      |   ~~~~~~~~~~~~~                                         
  412 |   section_ref(ss.sec);
      |   ~~~~~~~~~~~~~~~~~~~~                                  
  413 |   ss.nnode = ss.sec->nnode;
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~                             
  414 |   ss.ns = new NodeState[ss.nnode];
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                      
  415 |   for (inode = 0; inode < ss.nnode; ++inode) {
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~          
  416 |    Node* nd = ss.sec->pnode[inode];
      |    ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                     
  417 |    NodeState& ns = ss.ns[inode];
      |    ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                        
  418 |    allocnode(ns, nd);
      |    ~~~~~~~~~~~~~~~~~~                                   
  419 |   }
      |   ~                                                     
  420 |   if (!sec->parentsec) {
      |   ~~~~~~~~~~~~~~~~~~~~~~                                
  421 |    assert(sec->parentnode);
      |    ~~~~~~~~~~~~~~~~~~~~~~~~                             
  422 |    ss.root = new NodeState;
      |    ~~~~~~~~~~~~~~~~~~~~~~~~                             
  423 |    allocnode(*ss.root, sec->parentnode);
      |    ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                
  424 |    ++nroot_;
      |    ~~~~~~~~~                                            
  425 |   }else{
      |   ~~~~~~                                                
  426 |    ss.root = 0;
      |    ~~~~~~~~~~~~                                         
  427 |   }
      |   ~                                                     
  428 |   ++isec;
      |   ~~~~~~~                                               
  429 |  }
      |  ~                                                      
  430 |  assert(isec == section_count);
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                         
  431 |  assert(nroot_ == nrn_global_ncell);
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                    
  432 |  for (int i=0, j=0; i < n_memb_func; ++i) if (nrn_is_artificial_[i]) {
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
  433 |   allocacell(acell_[j], i);
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~                             
  434 |   ++j;
      |   ~~~~                                                  
  435 |  }
      |  ~                                                      
  436 |  PlayRecList* prl = net_cvode_instance_prl();
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~           
  437 |  nprs_ = prl->count();
      |  ~~~~~~~~~~~~~~~~~~~~~                                  
  438 |  if (nprs_) {
      |  ~~~~~~~~~~~~                                           
  439 |   prs_ = new PlayRecordSave*[nprs_];
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                    
  440 |  }
      |  ~                                                      
  441 |  allocnet();
      |  ~~~~~~~~~~~                                            
  442 | }
      | ~                                                       
  443 | 
      |                                                         
  444 | void SaveState::allocnode(NodeState& ns, Node* nd) {
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~    
  445 |  ns.nmemb = 0;
      |  ~~~~~~~~~~~~~                                          
  446 |  ns.type = NULL;
      |  ~~~~~~~~~~~~~~~                                        
  447 |  ns.state = NULL;
      |  ~~~~~~~~~~~~~~~~                                       
  448 |  ns.nstate = 0;
      |  ~~~~~~~~~~~~~~                                         
  449 |  Prop* p;
      |  ~~~~~~~~                                               
  450 |  for (p = nd->prop; p; p = p->next) {
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                   
  451 |   if (ssi[p->type].size == 0) {
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                         
  452 |    continue;
      |    ~~~~~~~~~                                            
  453 |   }
      |   ~                                                     
  454 |   ++ns.nmemb;
      |   ~~~~~~~~~~~                                           
  455 |   ns.nstate += ssi[p->type].size;
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                       
  456 |  }
      |  ~                                                      
  457 |  if (ns.nmemb) {
      |  ~~~~~~~~~~~~~~~                                        
  458 |   ns.type = new int[ns.nmemb];
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~~                          
  459 |  }
      |  ~                                                      
  460 |  if (ns.nstate) {
      |  ~~~~~~~~~~~~~~~~                                       
  461 |   ns.state = new double[ns.nstate];
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                     
  462 |  }
      |  ~                                                      
  463 |  int i = 0;
      |  ~~~~~~~~~~                                             
  464 |  for (p = nd->prop; p; p = p->next) {
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                   
  465 |   if (ssi[p->type].size == 0) {
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                         
  466 |    continue;
      |    ~~~~~~~~~                                            
  467 |   }
      |   ~                                                     
  468 |   ns.type[i] = p->type;
      |   ~~~~~~~~~~~~~~~~~~~~~                                 
  469 |   ++i;
      |   ~~~~                                                  
  470 |  }
      |  ~                                                      
  471 | }
      | ~                                                       
  472 | 
      |                                                         
  473 | void SaveState::allocacell(ACellState& ac, int type) {
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~  
  474 |  Memb_list& ml = memb_list[type];
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                       
  475 |  ac.type = type;
      |  ~~~~~~~~~~~~~~~                                        
  476 |  ac.ncell = ml.nodecount;
      |  ~~~~~~~~~~~~~~~~~~~~~~~~                               
  477 |  ac.state = new double[ac.ncell * ssi[type].size];
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~      
  478 | }
      | ~                                                       
  479 | 
      |                                                         
  480 | void SaveState::ssfree() {
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~                              
  481 |  int i, isec, inode;
      |  ~~~~~~~~~~~~~~~~~~~                                    
  482 |  for (isec=0; isec < nsec_; ++isec) {
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                   
  483 |   SecState& ss = ss_[isec];
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~                             
  484 |   for (inode = 0; inode < ss.nnode; ++inode) {
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~          
  485 |    NodeState& ns = ss.ns[inode];
      |    ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                        
  486 |    if (ns.nmemb) {
      |    ~~~~~~~~~~~~~~~                                      
  487 |     delete [] ns.type;
      |     ~~~~~~~~~~~~~~~~~~                                  
  488 |    }
      |    ~                                                    
  489 |    if (ns.nstate) {
      |    ~~~~~~~~~~~~~~~~                                     
  490 |     delete [] ns.state;
      |     ~~~~~~~~~~~~~~~~~~~                                 
  491 |    }
      |    ~                                                    
  492 |   }
      |   ~                                                     
  493 |   if (ss.root) {
      |   ~~~~~~~~~~~~~~                                        
  494 |    NodeState& ns = *ss.root;
      |    ~~~~~~~~~~~~~~~~~~~~~~~~~                            
  495 |    if (ns.nmemb) {
      |    ~~~~~~~~~~~~~~~                                      
  496 |     delete [] ns.type;
      |     ~~~~~~~~~~~~~~~~~~                                  
  497 |    }
      |    ~                                                    
  498 |    if (ns.nstate) {
      |    ~~~~~~~~~~~~~~~~                                     
  499 |     delete [] ns.state;
      |     ~~~~~~~~~~~~~~~~~~~                                 
  500 |    }
      |    ~                                                    
  501 |    delete ss.root;
      |    ~~~~~~~~~~~~~~~                                      
  502 |   }
      |   ~                                                     
  503 |   if (ss.nnode) {
      |   ~~~~~~~~~~~~~~~                                       
  504 |    delete [] ss.ns;
      |    ~~~~~~~~~~~~~~~~                                     
  505 |   }
      |   ~                                                     
  506 |   if (ss.sec) { // got info from an fread but never checked it
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
  507 |    section_unref(ss.sec);
      |    ~~~~~~~~~~~~~~~~~~~~~~                               
  508 |   }
      |   ~                                                     
  509 |  }
      |  ~                                                      
  510 |  if (nsec_) {
      |  ~~~~~~~~~~~~                                           
  511 |   delete [] ss_;
      |   ~~~~~~~~~~~~~~                                        
  512 |  }
      |  ~                                                      
  513 |  nsec_ = 0;
      |  ~~~~~~~~~~                                             
  514 |  ss_ = NULL;
      |  ~~~~~~~~~~~                                            
  515 |  for (i=0; i < nacell_; ++i) {
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                          
  516 |   if (acell_[i].ncell) {
      |   ~~~~~~~~~~~~~~~~~~~~~~                                
  517 |    delete [] acell_[i].state;
      |    ~~~~~~~~~~~~~~~~~~~~~~~~~~                           
  518 |    acell_[i].state = 0;
      |    ~~~~~~~~~~~~~~~~~~~~                                 
  519 |    acell_[i].ncell = 0;
      |    ~~~~~~~~~~~~~~~~~~~~                                 
  520 |   }
      |   ~                                                     
  521 |  } // note we do not destroy the acell_.
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                
  522 |  if (nncs_) {
      |  ~~~~~~~~~~~~                                           
  523 |   for (i = 0; i < nncs_; ++i) {
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                         
  524 |    if (ncs_[i].nstate) {
      |    ~~~~~~~~~~~~~~~~~~~~~                                
  525 |     delete [] ncs_[i].state;
      |     ~~~~~~~~~~~~~~~~~~~~~~~~                            
  526 |    }
      |    ~                                                    
  527 |   }
      |   ~                                                     
  528 |   delete [] ncs_;
      |   ~~~~~~~~~~~~~~~                                       
  529 |  }
      |  ~                                                      
  530 |  nncs_ = 0;
      |  ~~~~~~~~~~                                             
  531 |  ncs_ = NULL;
      |  ~~~~~~~~~~~~                                           
  532 |  if (npss_) {
      |  ~~~~~~~~~~~~                                           
  533 |   delete [] pss_;
      |   ~~~~~~~~~~~~~~~                                       
  534 |  }
      |  ~                                                      
  535 |  npss_ = 0;
      |  ~~~~~~~~~~                                             
  536 |  pss_ = NULL;
      |  ~~~~~~~~~~~~                                           
  537 |  free_tq();
      |  ~~~~~~~~~~                                             
  538 |  if (nprs_) {
      |  ~~~~~~~~~~~~                                           
  539 |   for (i=0; i < nprs_; ++i) {
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~                           
  540 |    delete prs_[i];
      |    ~~~~~~~~~~~~~~~                                      
  541 |   }
      |   ~                                                     
  542 |   delete [] prs_;
      |   ~~~~~~~~~~~~~~~                                       
  543 |  }
      |  ~                                                      
  544 |  nprs_ = 0;
      |  ~~~~~~~~~~                                             
  545 | }
      | ~                                                       
  546 | 
      |                                                         
  547 | void SaveState::save() {
      | ~~~~~~~~~~~~~~~~~~~~~~~~                                
  548 |  NrnThread* nt;
      |  ~~~~~~~~~~~~~~                                         
  549 |  if (!check(false)) {
      |  ~~~~~~~~~~~~~~~~~~~~                                   
  550 |   alloc();
      |   ~~~~~~~~                                              
  551 |  }
      |  ~                                                      
  552 |  FOR_THREADS(nt) {
      |  ~~~~~~~~~~~~~~~~~                                      
  553 |   assert(t == nt->_t);
      |   ~~~~~~~~~~~~~~~~~~~~                                  
  554 |  }
      |  ~                                                      
  555 |  t_ = t;
      |  ~~~~~~~                                                
  556 |  int inode;
      |  ~~~~~~~~~~                                             
  557 |  for (int isec=0; isec < nsec_; ++isec) {
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~               
  558 |   SecState& ss = ss_[isec];
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~                             
  559 |   Section* sec = ss.sec;
      |   ~~~~~~~~~~~~~~~~~~~~~~                                
  560 |   for (inode = 0; inode < ss.nnode; ++inode) {
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~          
  561 |    NodeState& ns = ss.ns[inode];
      |    ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                        
  562 |    Node* nd = sec->pnode[inode];
      |    ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                        
  563 |    savenode(ns, nd);
      |    ~~~~~~~~~~~~~~~~~                                    
  564 |   }
      |   ~                                                     
  565 |   if (ss.root) {
      |   ~~~~~~~~~~~~~~                                        
  566 |    NodeState& ns = *ss.root;
      |    ~~~~~~~~~~~~~~~~~~~~~~~~~                            
  567 |    Node* nd = sec->parentnode;
      |    ~~~~~~~~~~~~~~~~~~~~~~~~~~~                          
  568 |    savenode(ns, nd);
      |    ~~~~~~~~~~~~~~~~~                                    
  569 |   }
      |   ~                                                     
  570 |  }
      |  ~                                                      
  571 |  for (int i=0, j=0; i < n_memb_func; ++i) if (nrn_is_artificial_[i]) {
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
  572 |   saveacell(acell_[j], i);
      |   ~~~~~~~~~~~~~~~~~~~~~~~~                              
  573 |   ++j;
      |   ~~~~                                                  
  574 |  }
      |  ~                                                      
  575 |  if (nprs_) {
      |  ~~~~~~~~~~~~                                           
  576 |   PlayRecList* prl = net_cvode_instance_prl();
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~          
  577 |   int i;
      |   ~~~~~~                                                
  578 |   assert(nprs_ == prl->count());
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                        
  579 |   for (i=0; i < nprs_; ++i) {
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~                           
  580 |    prs_[i] = prl->item(i)->savestate_save();
      |    ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~            
  581 |   }
      |   ~                                                     
  582 |  }
      |  ~                                                      
  583 |  savenet();
      |  ~~~~~~~~~~                                             
  584 | }
      | ~                                                       
  585 | 
      |                                                         
  586 | void SaveState::savenode(NodeState& ns, Node* nd) {
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~     
  587 |  ns.v = NODEV(nd);
      |  ~~~~~~~~~~~~~~~~~                                      
  588 |  int istate = 0;
      |  ~~~~~~~~~~~~~~~                                        
  589 |  Prop* p;
      |  ~~~~~~~~                                               
  590 |  for (p = nd->prop; p; p = p->next) {
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                   
  591 |   if (ssi[p->type].size == 0) {
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                         
  592 |    continue;
      |    ~~~~~~~~~                                            
  593 |   }
      |   ~                                                     
  594 |   int type = p->type;
      |   ~~~~~~~~~~~~~~~~~~~                                   
  595 |   int max = ssi[type].offset + ssi[type].size;
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~          
  596 | #if EXTRACELLULAR
      | ~~~~~~~~~~~~~~~~~                                       
  597 |   if (type == EXTRACELL) {
      |   ~~~~~~~~~~~~~~~~~~~~~~~~                              
  598 |    for (int i=0; i < nlayer; ++i) {
      |    ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                     
  599 |     ns.state[istate++] = nd->extnode->v[i];
      |     ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~             
  600 |    }
      |    ~                                                    
  601 |   }else
      |   ~~~~~                                                 
  602 | #endif
      | ~~~~~~                                                  
  603 |   {
      |   ~                                                     
  604 |    for (int ip=ssi[type].offset; ip < max; ++ip) {
      |    ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~      
  605 |     ns.state[istate++] = p->param[ip];
      |     ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                  
  606 |    }
      |    ~                                                    
  607 |   }
      |   ~                                                     
  608 |  }
      |  ~                                                      
  609 | }
      | ~                                                       
  610 | 
      |                                                         
  611 | void SaveState::saveacell(ACellState& ac, int type) {
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~   
  612 |  Memb_list& ml = memb_list[type];
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                       
  613 |  int sz = ssi[type].size;
      |  ~~~~~~~~~~~~~~~~~~~~~~~~                               
  614 |  double* p = ac.state;
      |  ~~~~~~~~~~~~~~~~~~~~~                                  
  615 |  for (int i = 0; i < ml.nodecount; ++i) {
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~               
  616 |   double* d = ml.data[i];
      |   ~~~~~~~~~~~~~~~~~~~~~~~                               
  617 |   for (int j=0; j < sz; ++j) {
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~~                          
  618 |    (*p++) = d[j];
      |    ~~~~~~~~~~~~~~                                       
  619 |   }
      |   ~                                                     
  620 |  }
      |  ~                                                      
  621 | }
      | ~                                                       
  622 | 
      |                                                         
  623 | void SaveState::restore(int type) {
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                     
  624 |  NrnThread* nt;
      |  ~~~~~~~~~~~~~~                                         
  625 |  if (!check(true)) {
      |  ~~~~~~~~~~~~~~~~~~~                                    
  626 |   hoc_execerror("SaveState:",
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~                           
  627 |   "Stored state inconsistent with current neuron structure");
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
  628 |  }
      |  ~                                                      
  629 |  t = t_;
      |  ~~~~~~~                                                
  630 |  FOR_THREADS(nt) {
      |  ~~~~~~~~~~~~~~~~~                                      
  631 |   nt->_t = t_;
      |   ~~~~~~~~~~~~                                          
  632 |  }
      |  ~                                                      
  633 |  int inode;
      |  ~~~~~~~~~~                                             
  634 |  for (int isec=0; isec < nsec_; ++isec) {
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~               
  635 |   SecState& ss = ss_[isec];
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~                             
  636 |   Section* sec = ss.sec;
      |   ~~~~~~~~~~~~~~~~~~~~~~                                
  637 |   for (inode = 0; inode < ss.nnode; ++inode) {
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~          
  638 |    NodeState& ns = ss.ns[inode];
      |    ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                        
  639 |    Node* nd = sec->pnode[inode];
      |    ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                        
  640 |    restorenode(ns, nd);
      |    ~~~~~~~~~~~~~~~~~~~~                                 
  641 |   }
      |   ~                                                     
  642 |   if (ss.root) {
      |   ~~~~~~~~~~~~~~                                        
  643 |    NodeState& ns = *ss.root;
      |    ~~~~~~~~~~~~~~~~~~~~~~~~~                            
  644 |    Node* nd = sec->parentnode;
      |    ~~~~~~~~~~~~~~~~~~~~~~~~~~~                          
  645 |    restorenode(ns, nd);
      |    ~~~~~~~~~~~~~~~~~~~~                                 
  646 |   }
      |   ~                                                     
  647 |  }
      |  ~                                                      
  648 |  for (int i=0, j=0; i < n_memb_func; ++i) if (nrn_is_artificial_[i]) {
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
  649 |   restoreacell(acell_[j], i);
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~                           
  650 |   ++j;
      |   ~~~~                                                  
  651 |  }
      |  ~                                                      
  652 |  if (type == 1) { return; }
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~                             
  653 |  PlayRecList* prl = net_cvode_instance_prl();
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~           
  654 |  // during a local step the PlayRecList is augmented with GLineRecord
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
  655 |  // assert(nprs_ == prl->count());
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                      
  656 |  assert(nprs_ <= prl->count());
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                         
  657 |  int i;
      |  ~~~~~~                                                 
  658 |  for (i = 0; i < nprs_; ++i) {
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                          
  659 |   prs_[i]->savestate_restore();
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                         
  660 |  }
      |  ~                                                      
  661 |  restorenet();
      |  ~~~~~~~~~~~~~                                          
  662 | }
      | ~                                                       
  663 | 
      |                                                         
  664 | void SaveState::restorenode(NodeState& ns, Node* nd) {
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~  
  665 |  NODEV(nd) = ns.v;;
      |  ~~~~~~~~~~~~~~~~~~                                     
  666 |  int istate = 0;
      |  ~~~~~~~~~~~~~~~                                        
  667 |  Prop* p;
      |  ~~~~~~~~                                               
  668 |  for (p = nd->prop; p; p = p->next) {
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                   
  669 |   if (ssi[p->type].size == 0) {
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                         
  670 |    continue;
      |    ~~~~~~~~~                                            
  671 |   }
      |   ~                                                     
  672 |   int type = p->type;
      |   ~~~~~~~~~~~~~~~~~~~                                   
  673 |   int max = ssi[type].offset + ssi[type].size;
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~          
  674 | #if EXTRACELLULAR
      | ~~~~~~~~~~~~~~~~~                                       
  675 |   if (type == EXTRACELL) {
      |   ~~~~~~~~~~~~~~~~~~~~~~~~                              
  676 |    for (int i=0; i < nlayer; ++i) {
      |    ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                     
  677 |     nd->extnode->v[i] = ns.state[istate++];
      |     ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~             
  678 |    }
      |    ~                                                    
  679 |   }else
      |   ~~~~~                                                 
  680 | #endif
      | ~~~~~~                                                  
  681 |   {
      |   ~                                                     
  682 |    for (int ip=ssi[type].offset; ip < max; ++ip) {
      |    ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~      
  683 |     p->param[ip] = ns.state[istate++];
      |     ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                  
  684 |    }
      |    ~                                                    
  685 |   }
      |   ~                                                     
  686 |  }
      |  ~                                                      
  687 | }
      | ~                                                       
  688 | 
      |                                                         
  689 | void SaveState::restoreacell(ACellState& ac, int type) {
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
  690 |  Memb_list& ml = memb_list[type];
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                       
  691 |  int sz = ssi[type].size;
      |  ~~~~~~~~~~~~~~~~~~~~~~~~                               
  692 |  double* p = ac.state;
      |  ~~~~~~~~~~~~~~~~~~~~~                                  
  693 |  for (int i = 0; i < ml.nodecount; ++i) {
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~               
  694 |   double* d = ml.data[i];
      |   ~~~~~~~~~~~~~~~~~~~~~~~                               
  695 |   for (int j=0; j < sz; ++j) {
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~~                          
  696 |    d[j] = (*p++);
      |    ~~~~~~~~~~~~~~                                       
  697 |   }
      |   ~                                                     
  698 |  }
      |  ~                                                      
  699 | }
      | ~                                                       
  700 | 
      |                                                         
  701 | void SaveState::read(OcFile* ocf, bool close) {
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~         
  702 |  if (!ocf->open(ocf->get_name(), "r")) {
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                
  703 |   hoc_execerror("Couldn't open file for reading:", ocf->get_name());
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
  704 |  }
      |  ~                                                      
  705 |  nrn_shape_update();
      |  ~~~~~~~~~~~~~~~~~~~                                    
  706 |  BinaryMode(ocf)
      |  ~~~~~~~~~~~~~~~                                        
  707 |  FILE* f = ocf->file();
      |  ~~~~~~~~~~~~~~~~~~~~~~                                 
  708 |  ssfree();
      |  ~~~~~~~~~                                              
  709 |  char buf[200];
      |  ~~~~~~~~~~~~~~                                         
  710 |  ASSERTfgets(buf, 200, f);
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~                              
  711 |  if (strcmp(buf, "SaveState binary file version 6.0\n") != 0) {
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
  712 |   ocf->close();
      |   ~~~~~~~~~~~~~                                         
  713 |   hoc_execerror("Bad SaveState binary file", " Not version 6.0");
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
  714 |  }
      |  ~                                                      
  715 |  ASSERTfread((char*)&t_, sizeof(double), 1, f);
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~         
  716 | // fscanf(f, "%d %d\n", &nsec_, &nrootnode_);
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~           
  717 | // on some os's fscanf leaves file pointer at wrong place for next fread
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
  718 | // can check it with ftell(f)
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                           
  719 |  ASSERTfgets(buf, 200, f);
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~                              
  720 |  sscanf(buf, "%d %d\n", &nsec_, &nroot_);
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~               
  721 |  // to enable comparison of SaveState files, we avoid
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~   
  722 |  // putting pointers in the files and instead explicitly read/write
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
  723 |  // structure elements.
      |  ~~~~~~~~~~~~~~~~~~~~~~                                 
  724 |  ss_ = new SecState[nsec_];
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~                             
  725 |  fread_SecState(ss_, nsec_, f);
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                         
  726 |  for (int isec=0; isec < nsec_; ++isec) {
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~               
  727 |   SecState& ss = ss_[isec];
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~                             
  728 |   ss.sec = NULL;
      |   ~~~~~~~~~~~~~~                                        
  729 |   ss.ns = new NodeState[ss.nnode];
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                      
  730 |   fread_NodeState(ss.ns, ss.nnode, f);
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                  
  731 |   for (int inode = 0; inode < ss.nnode; ++inode) {
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~      
  732 |    NodeState& ns = ss.ns[inode];
      |    ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                        
  733 |    if (ns.nmemb) {
      |    ~~~~~~~~~~~~~~~                                      
  734 |     ns.type = new int[ns.nmemb];
      |     ~~~~~~~~~~~~~~~~~~~~~~~~~~~~                        
  735 |     ASSERTfread((char*)ns.type, sizeof(int), ns.nmemb, f);
      |     ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
  736 |    }
      |    ~                                                    
  737 |    if (ns.nstate) {
      |    ~~~~~~~~~~~~~~~~                                     
  738 |     ns.state = new double[ns.nstate];
      |     ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                   
  739 |     ASSERTfread((char*)ns.state, sizeof(double), ns.nstate, f);
      |     ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
  740 |    }
      |    ~                                                    
  741 |   }
      |   ~                                                     
  742 |   if (ss.root) {
      |   ~~~~~~~~~~~~~~                                        
  743 |    fread_NodeState(ss.root, 1, f);
      |    ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                      
  744 |    NodeState& ns = *ss.root;
      |    ~~~~~~~~~~~~~~~~~~~~~~~~~                            
  745 |    if (ns.nmemb) {
      |    ~~~~~~~~~~~~~~~                                      
  746 |     ns.type = new int[ns.nmemb];
      |     ~~~~~~~~~~~~~~~~~~~~~~~~~~~~                        
  747 |     ASSERTfread((char*)ns.type, sizeof(int), ns.nmemb, f);
      |     ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~   
/builddir/build/BUILD/nrn-7.8.1/src/oc/nrnassrt.h:23:33: note: in definition of macro 'nrn_assert'
   23 | #  define nrn_assert(ex) {if (!(ex)){fprintf(stderr,"Assertion failed: file %s, line %d\n", __FILE__,__LINE__);hoc_execerror(#ex, (char *)0);}}
      |                                 ^~
/builddir/build/BUILD/nrn-7.8.1/src/nrniv/savstate.cpp:747:5: note: in expansion of macro 'ASSERTfread'
  747 |     ASSERTfread((char*)ns.type, sizeof(int), ns.nmemb, f);
      |     ^~~~~~~~~~~
/builddir/build/BUILD/nrn-7.8.1/src/nrniv/savstate.cpp:33:56: warning: comparison of integer expressions of different signedness: 'size_t' {aka 'long unsigned int'} and 'int' [-Wsign-compare]
   33 | #define ASSERTfread(a,b,c,d) nrn_assert(fread(a,b,c,d) == c)
      |                                         ~~~~~~~~~~~~~~~^~~~~
   34 | #define ASSERTfwrite(a,b,c,d) nrn_assert(fwrite(a,b,c,d) == c)
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
   35 | 
      |                                                         
   36 | class SaveState : public Resource {
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                     
   37 | public:
      | ~~~~~~~                                                 
   38 |  SaveState();
      |  ~~~~~~~~~~~~                                           
   39 |  ~SaveState();
      |  ~~~~~~~~~~~~~                                          
   40 |  virtual void save();
      |  ~~~~~~~~~~~~~~~~~~~~                                   
   41 |  virtual void restore(int type);
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                        
   42 |  virtual void read(OcFile*, bool close);
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                
   43 |  virtual void write(OcFile*, bool close);
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~               
   44 |  struct NodeState {
      |  ~~~~~~~~~~~~~~~~~~                                     
   45 |   double v;
      |   ~~~~~~~~~                                             
   46 |   int nmemb;
      |   ~~~~~~~~~~                                            
   47 |   int* type;
      |   ~~~~~~~~~~                                            
   48 |   int nstate;
      |   ~~~~~~~~~~~                                           
   49 |   double* state;
      |   ~~~~~~~~~~~~~~                                        
   50 |  };
      |  ~~                                                     
   51 |  struct SecState {
      |  ~~~~~~~~~~~~~~~~~                                      
   52 |   Section* sec;
      |   ~~~~~~~~~~~~~                                         
   53 |   int nnode;
      |   ~~~~~~~~~~                                            
   54 |   struct NodeState* ns;
      |   ~~~~~~~~~~~~~~~~~~~~~                                 
   55 |   struct NodeState* root; // non-zero for rootnode
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~      
   56 |  };
      |  ~~                                                     
   57 |  struct StateStructInfo {
      |  ~~~~~~~~~~~~~~~~~~~~~~~~                               
   58 |   int offset;
      |   ~~~~~~~~~~~                                           
   59 |   int size;
      |   ~~~~~~~~~                                             
   60 |  };
      |  ~~                                                     
   61 |  struct ACellState {
      |  ~~~~~~~~~~~~~~~~~~~                                    
   62 |   int type;
      |   ~~~~~~~~~                                             
   63 |   int ncell;
      |   ~~~~~~~~~~                                            
   64 |   double* state;
      |   ~~~~~~~~~~~~~~                                        
   65 |  };
      |  ~~                                                     
   66 |  struct NetConState {
      |  ~~~~~~~~~~~~~~~~~~~~                                   
   67 |   int object_index; // for checking
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                     
   68 |   int nstate;
      |   ~~~~~~~~~~~                                           
   69 |   double* state;
      |   ~~~~~~~~~~~~~~                                        
   70 |  };
      |  ~~                                                     
   71 |  struct PreSynState {
      |  ~~~~~~~~~~~~~~~~~~~~                                   
   72 |   bool flag; // is it firing?
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~                           
   73 |   double valthresh, valold, told;
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                       
   74 | 
      |                                                         
   75 |  };
      |  ~~                                                     
   76 |  struct TQState {
      |  ~~~~~~~~~~~~~~~~                                       
   77 |   int nstate;
      |   ~~~~~~~~~~~                                           
   78 |   double* tdeliver;
      |   ~~~~~~~~~~~~~~~~~                                     
   79 |   DiscreteEvent** items;
      |   ~~~~~~~~~~~~~~~~~~~~~~                                
   80 |  };
      |  ~~                                                     
   81 | private:
      | ~~~~~~~~                                                
   82 |  bool check(bool warn);
      |  ~~~~~~~~~~~~~~~~~~~~~~                                 
   83 |  void alloc();
      |  ~~~~~~~~~~~~~                                          
   84 |  void ssfree();
      |  ~~~~~~~~~~~~~~                                         
   85 |  void ssi_def();
      |  ~~~~~~~~~~~~~~~                                        
   86 | private:
      | ~~~~~~~~                                                
   87 |  void fread_NodeState(NodeState*, int, FILE*);
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~          
   88 |  void fwrite_NodeState(NodeState*, int, FILE*);
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~         
   89 |  void fread_SecState(SecState*, int, FILE*);
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~            
   90 |  void fwrite_SecState(SecState*, int, FILE*);
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~           
   91 | private:
      | ~~~~~~~~                                                
   92 |  double t_;
      |  ~~~~~~~~~~                                             
   93 |  int nroot_;
      |  ~~~~~~~~~~~                                            
   94 |  int nsec_;
      |  ~~~~~~~~~~                                             
   95 |  SecState* ss_;
      |  ~~~~~~~~~~~~~~                                         
   96 |  int nacell_; // number of types
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                        
   97 |  ACellState* acell_;
      |  ~~~~~~~~~~~~~~~~~~~                                    
   98 |  int nncs_;
      |  ~~~~~~~~~~                                             
   99 |  NetConState* ncs_;
      |  ~~~~~~~~~~~~~~~~~~                                     
  100 |  int npss_;
      |  ~~~~~~~~~~                                             
  101 |  PreSynState* pss_;
      |  ~~~~~~~~~~~~~~~~~~                                     
  102 |  TQState* tqs_;
      |  ~~~~~~~~~~~~~~                                         
  103 |  int tqcnt_; // volatile for index of forall_callback
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~   
  104 |  int nprs_;
      |  ~~~~~~~~~~                                             
  105 |  PlayRecordSave** prs_;
      |  ~~~~~~~~~~~~~~~~~~~~~~                                 
  106 |  static StateStructInfo* ssi;
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~                           
  107 |  static cTemplate* nct;
      |  ~~~~~~~~~~~~~~~~~~~~~~                                 
  108 | private:
      | ~~~~~~~~                                                
  109 |  void savenode(NodeState&, Node*);
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                      
  110 |  void restorenode(NodeState&, Node*);
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                   
  111 |  bool checknode(NodeState&, Node*, bool);
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~               
  112 |  void allocnode(NodeState&, Node*);
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                     
  113 | 
      |                                                         
  114 |  void saveacell(ACellState&, int type);
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                 
  115 |  void restoreacell(ACellState&, int type);
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~              
  116 |  bool checkacell(ACellState&, int type, bool);
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~          
  117 |  void allocacell(ACellState&, int type);
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                
  118 | 
      |                                                         
  119 |  void savenet();
      |  ~~~~~~~~~~~~~~~                                        
  120 |  void restorenet();
      |  ~~~~~~~~~~~~~~~~~~                                     
  121 |  void readnet(FILE*);
      |  ~~~~~~~~~~~~~~~~~~~~                                   
  122 |  void writenet(FILE*);
      |  ~~~~~~~~~~~~~~~~~~~~~                                  
  123 |  bool checknet(bool);
      |  ~~~~~~~~~~~~~~~~~~~~                                   
  124 |  void allocnet();
      |  ~~~~~~~~~~~~~~~~                                       
  125 |  void free_tq();
      |  ~~~~~~~~~~~~~~~                                        
  126 |  void alloc_tq();
      |  ~~~~~~~~~~~~~~~~                                       
  127 | public:
      | ~~~~~~~                                                 
  128 |  void tqcount(const TQItem*, int);
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                      
  129 |  void tqsave(const TQItem*, int);
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                       
  130 | };
      | ~~                                                      
  131 | 
      |                                                         
  132 | static SaveState* this_savestate;
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                       
  133 | static int callback_mode;
      | ~~~~~~~~~~~~~~~~~~~~~~~~~                               
  134 | 
      |                                                         
  135 | void tqcallback(const TQItem* tq, int i) {
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~              
  136 |  if (callback_mode == 0) {
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~                              
  137 |   this_savestate->tqcount(tq, i);
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                       
  138 |  }else{
      |  ~~~~~~                                                 
  139 |   this_savestate->tqsave(tq, i);
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                        
  140 |  }
      |  ~                                                      
  141 | }
      | ~                                                       
  142 | 
      |                                                         
  143 | #if __sgi && 0
      | ~~~~~~~~~~~~~~                                          
  144 | // fixed in version 5 of os
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~                             
  145 | StateStructInfo* SaveState::ssi;
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                        
  146 | #else
      | ~~~~~                                                   
  147 | SaveState::StateStructInfo* SaveState::ssi;
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~             
  148 | #endif
      | ~~~~~~                                                  
  149 | cTemplate* SaveState::nct;
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~                              
  150 | 
      |                                                         
  151 | SaveState::SaveState() {
      | ~~~~~~~~~~~~~~~~~~~~~~~~                                
  152 |  int i, j;
      |  ~~~~~~~~~                                              
  153 |  ssi_def();
      |  ~~~~~~~~~~                                             
  154 |  nroot_ = 0;
      |  ~~~~~~~~~~~                                            
  155 |  ss_ = NULL;
      |  ~~~~~~~~~~~                                            
  156 |  nsec_ = 0;
      |  ~~~~~~~~~~                                             
  157 |  nncs_ = 0;
      |  ~~~~~~~~~~                                             
  158 |  ncs_ = NULL;
      |  ~~~~~~~~~~~~                                           
  159 |  npss_ = 0;
      |  ~~~~~~~~~~                                             
  160 |  pss_ = NULL;
      |  ~~~~~~~~~~~~                                           
  161 |  tqs_ = new TQState();
      |  ~~~~~~~~~~~~~~~~~~~~~                                  
  162 |  tqs_->nstate = 0;
      |  ~~~~~~~~~~~~~~~~~                                      
  163 |  nprs_ = 0;
      |  ~~~~~~~~~~                                             
  164 |  prs_ = NULL;
      |  ~~~~~~~~~~~~                                           
  165 |  nacell_ = 0;
      |  ~~~~~~~~~~~~                                           
  166 |  for (i=0; i < n_memb_func; ++i) if (nrn_is_artificial_[i]) {
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
  167 |   ++nacell_;
      |   ~~~~~~~~~~                                            
  168 |  }
      |  ~                                                      
  169 |  acell_ = new ACellState[nacell_];
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                      
  170 |  for (i=0; i < nacell_; ++i) {
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                          
  171 |   acell_[i].ncell = 0;
      |   ~~~~~~~~~~~~~~~~~~~~                                  
  172 |   acell_[i].state = 0;
      |   ~~~~~~~~~~~~~~~~~~~~                                  
  173 |  }
      |  ~                                                      
  174 |  for (i=0, j=0; i < n_memb_func; ++i) if (nrn_is_artificial_[i]) {
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
  175 |   acell_[j].type = i;
      |   ~~~~~~~~~~~~~~~~~~~                                   
  176 |   ++j;
      |   ~~~~                                                  
  177 |  }
      |  ~                                                      
  178 | }
      | ~                                                       
  179 | 
      |                                                         
  180 | SaveState::~SaveState() {
      | ~~~~~~~~~~~~~~~~~~~~~~~~~                               
  181 |  ssfree();
      |  ~~~~~~~~~                                              
  182 |  delete tqs_;
      |  ~~~~~~~~~~~~                                           
  183 |  delete [] acell_;
      |  ~~~~~~~~~~~~~~~~~                                      
  184 | }
      | ~                                                       
  185 | 
      |                                                         
  186 | void SaveState::fread_NodeState(NodeState* ns, int cnt, FILE* f) {
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
  187 |  for (int i=0; i < cnt; ++i) {
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                          
  188 |   ASSERTfread(&ns[i].v, sizeof(double), 1, f);
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~          
  189 |   ASSERTfread(&ns[i].nmemb, sizeof(int), 1, f);
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~         
  190 |   ASSERTfread(&ns[i].nstate, sizeof(int), 1, f);
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~        
  191 |  }
      |  ~                                                      
  192 | }
      | ~                                                       
  193 | void SaveState::fwrite_NodeState(NodeState* ns, int cnt, FILE* f){
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
  194 |  for (int i=0; i < cnt; ++i) {
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                          
  195 |   ASSERTfwrite(&ns[i].v, sizeof(double), 1, f);
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~         
  196 |   ASSERTfwrite(&ns[i].nmemb, sizeof(int), 1, f);
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~        
  197 |   ASSERTfwrite(&ns[i].nstate, sizeof(int), 1, f);
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~       
  198 |  }
      |  ~                                                      
  199 | }
      | ~                                                       
  200 | void SaveState::fread_SecState(SecState* ss, int cnt, FILE* f){
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
  201 |  int b;
      |  ~~~~~~                                                 
  202 |  for (int i=0; i < cnt; ++i) {
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                          
  203 |   ASSERTfread(&ss[i].nnode, sizeof(int), 1, f);
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~         
  204 |   ASSERTfread(&b, sizeof(int), 1, f);
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                   
  205 |   if (b) {
      |   ~~~~~~~~                                              
  206 |    ss[i].root = new NodeState;
      |    ~~~~~~~~~~~~~~~~~~~~~~~~~~~                          
  207 |   }else{
      |   ~~~~~~                                                
  208 |    ss[i].root = 0;
      |    ~~~~~~~~~~~~~~~                                      
  209 |   }
      |   ~                                                     
  210 |  }
      |  ~                                                      
  211 | }
      | ~                                                       
  212 | void SaveState::fwrite_SecState(SecState* ss, int cnt, FILE* f){
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
  213 |  int b;
      |  ~~~~~~                                                 
  214 |  for (int i=0; i < cnt; ++i) {
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                          
  215 |   ASSERTfwrite(&ss[i].nnode, sizeof(int), 1, f);
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~        
  216 |   b = ss[i].root ? 1 : 0;
      |   ~~~~~~~~~~~~~~~~~~~~~~~                               
  217 |   ASSERTfwrite(&b, sizeof(int), 1, f);
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                  
  218 |  }
      |  ~                                                      
  219 | }
      | ~                                                       
  220 | 
      |                                                         
  221 | void SaveState::ssi_def() {
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~                             
  222 |  if (nct) { return; }
      |  ~~~~~~~~~~~~~~~~~~~~                                   
  223 |  Symbol* s = hoc_lookup("NetCon");
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                      
  224 |  nct = s->u.ctemplate;
      |  ~~~~~~~~~~~~~~~~~~~~~                                  
  225 |  ssi = new StateStructInfo[n_memb_func];
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                
  226 |  for (int im=0; im < n_memb_func; ++im) {
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~               
  227 |   ssi[im].offset = -1;
      |   ~~~~~~~~~~~~~~~~~~~~                                  
  228 |   ssi[im].size = 0;
      |   ~~~~~~~~~~~~~~~~~                                     
  229 |   if (!memb_func[im].sym) {
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~                             
  230 |    continue;
      |    ~~~~~~~~~                                            
  231 |   }
      |   ~                                                     
  232 |   NrnProperty* np = new NrnProperty(memb_func[im].sym->name);
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
  233 |   // generally we only save STATE variables. However for
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
  234 |   // models containing a NET_RECEIVE block, we also need to
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
  235 |   // save everything except the parameters
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~              
  236 |   // because they often contain
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                         
  237 |   // logic and analytic state values. Unfortunately, it is often
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
  238 |   // the case that the ASSIGNED variables are not declared as
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
  239 |   // RANGE variables so to avoid missing state, save the whole
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
  240 |   // param array including PARAMETERs.
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                  
  241 |      if  (pnt_receive[im]) {
      |      ~~~~~~~~~~~~~~~~~~~~~~~                            
  242 |   ssi[im].offset = 0;
      |   ~~~~~~~~~~~~~~~~~~~                                   
  243 |   ssi[im].size = np->prop()->param_size;
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                
  244 |      }else{
      |      ~~~~~~                                             
  245 |   int type = STATE;
      |   ~~~~~~~~~~~~~~~~~                                     
  246 |   for (Symbol* sym = np->first_var(); np->more_var(); sym = np->next_var()) {
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
  247 |    if (np->var_type(sym) == type
      |    ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                        
  248 |        || np->var_type(sym) == STATE
      |        ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                    
  249 |        || sym->subtype == _AMBIGUOUS) {
      |        ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                 
  250 |     if (ssi[im].offset < 0) {
      |     ~~~~~~~~~~~~~~~~~~~~~~~~~                           
  251 |      ssi[im].offset = np->prop_index(sym);
      |      ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~              
  252 |     }
      |     ~                                                   
  253 |     ssi[im].size += hoc_total_array_data(sym, 0);
      |     ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~       
  254 |    }
      |    ~                                                    
  255 |   }
      |   ~                                                     
  256 |      }
      |      ~                                                  
  257 |      delete np;
      |      ~~~~~~~~~~                                         
  258 |  }
      |  ~                                                      
  259 | }
      | ~                                                       
  260 | 
      |                                                         
  261 | bool SaveState::check(bool warn) {
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                      
  262 |  hoc_Item* qsec;
      |  ~~~~~~~~~~~~~~~                                        
  263 |  int isec;
      |  ~~~~~~~~~                                              
  264 |  if (nsec_ != section_count) {
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                          
  265 |   if (warn) {
      |   ~~~~~~~~~~~                                           
  266 | fprintf(stderr, "SaveState warning: %d sections exist but saved %d\n",
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
  267 |    section_count, nsec_);
      |    ~~~~~~~~~~~~~~~~~~~~~~                               
  268 |   }
      |   ~                                                     
  269 |   return false;
      |   ~~~~~~~~~~~~~                                         
  270 |  }
      |  ~                                                      
  271 |  if (nroot_ != nrn_global_ncell) {
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                      
  272 |   if (warn) {
      |   ~~~~~~~~~~~                                           
  273 | fprintf(stderr, "SaveState warning: %d cells exist but saved %d\n",
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
  274 |    nrn_global_ncell, nroot_);
      |    ~~~~~~~~~~~~~~~~~~~~~~~~~~                           
  275 |   }
      |   ~                                                     
  276 |   return false;
      |   ~~~~~~~~~~~~~                                         
  277 |  }
      |  ~                                                      
  278 |  if (nsec_ && ss_[0].sec == NULL) { // got the data from a read
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
  279 |   isec = 0; ForAllSections(sec)
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                         
  280 |    ss_[isec].sec = sec;
      |    ~~~~~~~~~~~~~~~~~~~~                                 
  281 |    section_ref(ss_[isec].sec);
      |    ~~~~~~~~~~~~~~~~~~~~~~~~~~~                          
  282 |    ++isec;
      |    ~~~~~~~                                              
  283 |   }
      |   ~                                                     
  284 |  }
      |  ~                                                      
  285 |  for (int i=0, j=0; i < n_memb_func; ++i) if (nrn_is_artificial_[i]) {
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
  286 |   if (!checkacell(acell_[j], i, warn)) {
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                
  287 |    return false;
      |    ~~~~~~~~~~~~~                                        
  288 |   }
      |   ~                                                     
  289 |   ++j;
      |   ~~~~                                                  
  290 |  }
      |  ~                                                      
  291 |  for (int isec=0; isec < nsec_; ++isec) {
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~               
  292 |   SecState& ss = ss_[isec];
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~                             
  293 |   Section* sec = ss.sec;
      |   ~~~~~~~~~~~~~~~~~~~~~~                                
  294 |   if (!sec->prop || sec->nnode != ss.nnode) {
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~           
  295 | if (warn) {
      | ~~~~~~~~~~~                                             
  296 | if (!sec->prop) {
      | ~~~~~~~~~~~~~~~~~                                       
  297 | fprintf(stderr, "SaveState warning: saved section no longer exists\n");
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
  298 | }else{
      | ~~~~~~                                                  
  299 | fprintf(stderr, "SaveState warning: %s has %d nodes but saved %d\n",
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
  300 |     secname(sec), sec->nnode, ss.nnode);
      |     ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                
  301 | }
      | ~                                                       
  302 | }
      | ~                                                       
  303 |    return false;
      |    ~~~~~~~~~~~~~                                        
  304 |   }
      |   ~                                                     
  305 |   for (int inode = 0; inode < ss.nnode; ++inode) {
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~      
  306 |    NodeState& ns = ss.ns[inode];
      |    ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                        
  307 |    Node* nd = sec->pnode[inode];
      |    ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                        
  308 |    int i=0;
      |    ~~~~~~~~                                             
  309 |    Prop* p;
      |    ~~~~~~~~                                             
  310 |    for (p = nd->prop; p; p = p->next) {
      |    ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                 
  311 |     if (ssi[p->type].size == 0) {
      |     ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                       
  312 |      continue;
      |      ~~~~~~~~~                                          
  313 |     }
      |     ~                                                   
  314 |     if (i >= ns.nmemb) {
      |     ~~~~~~~~~~~~~~~~~~~~                                
  315 | if (warn) {
      | ~~~~~~~~~~~                                             
  316 | fprintf(stderr,"SaveState warning: \
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                    
  317 | fewer mechanisms saved than exist at node %d of %s\n",
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~  
  318 |  inode, secname(sec));
      |  ~~~~~~~~~~~~~~~~~~~~~                                  
  319 | }
      | ~                                                       
  320 |      return false;
      |      ~~~~~~~~~~~~~                                      
  321 |     }
      |     ~                                                   
  322 |     if (p->type != ns.type[i]) {
      |     ~~~~~~~~~~~~~~~~~~~~~~~~~~~~                        
  323 | if (warn) {
      | ~~~~~~~~~~~                                             
  324 | fprintf(stderr, "SaveState warning: mechanisms out of order at node %d of %s\n\
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
  325 | saved %s but need %s\n",
      | ~~~~~~~~~~~~~~~~~~~~~~~~                                
  326 | inode, secname(sec), memb_func[i].sym->name, memb_func[p->type].sym->name);
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
  327 | }
      | ~                                                       
  328 |      return false;
      |      ~~~~~~~~~~~~~                                      
  329 |     }
      |     ~                                                   
  330 |     ++i;
      |     ~~~~                                                
  331 |    }
      |    ~                                                    
  332 |    if (i != ns.nmemb) {
      |    ~~~~~~~~~~~~~~~~~~~~                                 
  333 | if (warn) {
      | ~~~~~~~~~~~                                             
  334 | fprintf(stderr, "SaveState warning: more mechanisms saved than exist at node %d of %s\n",
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
  335 |  inode, secname(sec));
      |  ~~~~~~~~~~~~~~~~~~~~~                                  
  336 | }
      | ~                                                       
  337 |     return false;
      |     ~~~~~~~~~~~~~                                       
  338 |    }
      |    ~                                                    
  339 |   }
      |   ~                                                     
  340 |   if (!sec->parentsec || ss.root) {
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                     
  341 |    if (sec->parentsec || !ss.root) {
      |    ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                    
  342 | if (warn) {
      | ~~~~~~~~~~~                                             
  343 | fprintf(stderr, "SaveState warning: Saved section and %s are not both root sections.\n",
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
  344 |  secname(sec));
      |  ~~~~~~~~~~~~~~                                         
  345 | }
      | ~                                                       
  346 |    }
      |    ~                                                    
  347 |    if (!checknode(*ss.root, sec->parentnode, warn)) {
      |    ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~   
  348 |     return false;
      |     ~~~~~~~~~~~~~                                       
  349 |    }
      |    ~                                                    
  350 |   }
      |   ~                                                     
  351 | 
      |                                                         
  352 |  }
      |  ~                                                      
  353 |  if (!checknet(warn)) { return false; }
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                 
  354 |  return true;
      |  ~~~~~~~~~~~~                                           
  355 | }
      | ~                                                       
  356 | 
      |                                                         
  357 | bool SaveState::checknode(NodeState& ns, Node* nd, bool warn) {
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
  358 |  int i=0;
      |  ~~~~~~~~                                               
  359 |  Prop* p;
      |  ~~~~~~~~                                               
  360 |  for (p = nd->prop; p; p = p->next) {
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                   
  361 |   if (ssi[p->type].size == 0) {
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                         
  362 |    continue;
      |    ~~~~~~~~~                                            
  363 |   }
      |   ~                                                     
  364 |   if (i >= ns.nmemb) {
      |   ~~~~~~~~~~~~~~~~~~~~                                  
  365 | if (warn) {
      | ~~~~~~~~~~~                                             
  366 | fprintf(stderr,"SaveState warning: \
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                    
  367 | fewer mechanisms saved than exist at a root node\n");
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~   
  368 | }
      | ~                                                       
  369 |    return false;
      |    ~~~~~~~~~~~~~                                        
  370 |   }
      |   ~                                                     
  371 |   if (p->type != ns.type[i]) {
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~~                          
  372 | if (warn) {
      | ~~~~~~~~~~~                                             
  373 | fprintf(stderr, "SaveState warning: mechanisms out of order at a rootnode\n\
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
  374 | saved %s but need %s\n",
      | ~~~~~~~~~~~~~~~~~~~~~~~~                                
  375 | memb_func[i].sym->name, memb_func[p->type].sym->name);
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~  
  376 | }
      | ~                                                       
  377 |    return false;
      |    ~~~~~~~~~~~~~                                        
  378 |   }
      |   ~                                                     
  379 |   ++i;
      |   ~~~~                                                  
  380 |  }
      |  ~                                                      
  381 |  if (i != ns.nmemb) {
      |  ~~~~~~~~~~~~~~~~~~~~                                   
  382 | if (warn) {
      | ~~~~~~~~~~~                                             
  383 | fprintf(stderr, "SaveState warning: more mechanisms saved than exist at a rootnode\n");
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
  384 | }
      | ~                                                       
  385 |   return false;
      |   ~~~~~~~~~~~~~                                         
  386 |  }
      |  ~                                                      
  387 |  return true;
      |  ~~~~~~~~~~~~                                           
  388 | }
      | ~                                                       
  389 | 
      |                                                         
  390 | bool SaveState::checkacell(ACellState& ac, int type, bool warn) {
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
  391 |  if (memb_list[type].nodecount != ac.ncell) {
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~           
  392 | if (warn) {
      | ~~~~~~~~~~~                                             
  393 | fprintf(stderr, "SaveState warning: different number of %s saved than exist.\n",
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
  394 | memb_func[type].sym->name);
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~                             
  395 | }
      | ~                                                       
  396 |   return false;
      |   ~~~~~~~~~~~~~                                         
  397 |  }
      |  ~                                                      
  398 |  return true;
      |  ~~~~~~~~~~~~                                           
  399 | }
      | ~                                                       
  400 | 
      |                                                         
  401 | void SaveState::alloc() {
      | ~~~~~~~~~~~~~~~~~~~~~~~~~                               
  402 |  ssfree();
      |  ~~~~~~~~~                                              
  403 |  int inode, isec;
      |  ~~~~~~~~~~~~~~~~                                       
  404 |  hoc_Item* qsec;
      |  ~~~~~~~~~~~~~~~                                        
  405 |  nsec_ = section_count;
      |  ~~~~~~~~~~~~~~~~~~~~~~                                 
  406 |  ss_ = new SecState[nsec_];
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~                             
  407 |  nroot_ = 0;
      |  ~~~~~~~~~~~                                            
  408 |  isec = 0;
      |  ~~~~~~~~~                                              
  409 |  ForAllSections(sec)
      |  ~~~~~~~~~~~~~~~~~~~                                    
  410 |   SecState& ss = ss_[isec];
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~                             
  411 |   ss.sec = sec;
      |   ~~~~~~~~~~~~~                                         
  412 |   section_ref(ss.sec);
      |   ~~~~~~~~~~~~~~~~~~~~                                  
  413 |   ss.nnode = ss.sec->nnode;
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~                             
  414 |   ss.ns = new NodeState[ss.nnode];
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                      
  415 |   for (inode = 0; inode < ss.nnode; ++inode) {
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~          
  416 |    Node* nd = ss.sec->pnode[inode];
      |    ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                     
  417 |    NodeState& ns = ss.ns[inode];
      |    ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                        
  418 |    allocnode(ns, nd);
      |    ~~~~~~~~~~~~~~~~~~                                   
  419 |   }
      |   ~                                                     
  420 |   if (!sec->parentsec) {
      |   ~~~~~~~~~~~~~~~~~~~~~~                                
  421 |    assert(sec->parentnode);
      |    ~~~~~~~~~~~~~~~~~~~~~~~~                             
  422 |    ss.root = new NodeState;
      |    ~~~~~~~~~~~~~~~~~~~~~~~~                             
  423 |    allocnode(*ss.root, sec->parentnode);
      |    ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                
  424 |    ++nroot_;
      |    ~~~~~~~~~                                            
  425 |   }else{
      |   ~~~~~~                                                
  426 |    ss.root = 0;
      |    ~~~~~~~~~~~~                                         
  427 |   }
      |   ~                                                     
  428 |   ++isec;
      |   ~~~~~~~                                               
  429 |  }
      |  ~                                                      
  430 |  assert(isec == section_count);
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                         
  431 |  assert(nroot_ == nrn_global_ncell);
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                    
  432 |  for (int i=0, j=0; i < n_memb_func; ++i) if (nrn_is_artificial_[i]) {
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
  433 |   allocacell(acell_[j], i);
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~                             
  434 |   ++j;
      |   ~~~~                                                  
  435 |  }
      |  ~                                                      
  436 |  PlayRecList* prl = net_cvode_instance_prl();
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~           
  437 |  nprs_ = prl->count();
      |  ~~~~~~~~~~~~~~~~~~~~~                                  
  438 |  if (nprs_) {
      |  ~~~~~~~~~~~~                                           
  439 |   prs_ = new PlayRecordSave*[nprs_];
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                    
  440 |  }
      |  ~                                                      
  441 |  allocnet();
      |  ~~~~~~~~~~~                                            
  442 | }
      | ~                                                       
  443 | 
      |                                                         
  444 | void SaveState::allocnode(NodeState& ns, Node* nd) {
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~    
  445 |  ns.nmemb = 0;
      |  ~~~~~~~~~~~~~                                          
  446 |  ns.type = NULL;
      |  ~~~~~~~~~~~~~~~                                        
  447 |  ns.state = NULL;
      |  ~~~~~~~~~~~~~~~~                                       
  448 |  ns.nstate = 0;
      |  ~~~~~~~~~~~~~~                                         
  449 |  Prop* p;
      |  ~~~~~~~~                                               
  450 |  for (p = nd->prop; p; p = p->next) {
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                   
  451 |   if (ssi[p->type].size == 0) {
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                         
  452 |    continue;
      |    ~~~~~~~~~                                            
  453 |   }
      |   ~                                                     
  454 |   ++ns.nmemb;
      |   ~~~~~~~~~~~                                           
  455 |   ns.nstate += ssi[p->type].size;
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                       
  456 |  }
      |  ~                                                      
  457 |  if (ns.nmemb) {
      |  ~~~~~~~~~~~~~~~                                        
  458 |   ns.type = new int[ns.nmemb];
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~~                          
  459 |  }
      |  ~                                                      
  460 |  if (ns.nstate) {
      |  ~~~~~~~~~~~~~~~~                                       
  461 |   ns.state = new double[ns.nstate];
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                     
  462 |  }
      |  ~                                                      
  463 |  int i = 0;
      |  ~~~~~~~~~~                                             
  464 |  for (p = nd->prop; p; p = p->next) {
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                   
  465 |   if (ssi[p->type].size == 0) {
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                         
  466 |    continue;
      |    ~~~~~~~~~                                            
  467 |   }
      |   ~                                                     
  468 |   ns.type[i] = p->type;
      |   ~~~~~~~~~~~~~~~~~~~~~                                 
  469 |   ++i;
      |   ~~~~                                                  
  470 |  }
      |  ~                                                      
  471 | }
      | ~                                                       
  472 | 
      |                                                         
  473 | void SaveState::allocacell(ACellState& ac, int type) {
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~  
  474 |  Memb_list& ml = memb_list[type];
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                       
  475 |  ac.type = type;
      |  ~~~~~~~~~~~~~~~                                        
  476 |  ac.ncell = ml.nodecount;
      |  ~~~~~~~~~~~~~~~~~~~~~~~~                               
  477 |  ac.state = new double[ac.ncell * ssi[type].size];
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~      
  478 | }
      | ~                                                       
  479 | 
      |                                                         
  480 | void SaveState::ssfree() {
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~                              
  481 |  int i, isec, inode;
      |  ~~~~~~~~~~~~~~~~~~~                                    
  482 |  for (isec=0; isec < nsec_; ++isec) {
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                   
  483 |   SecState& ss = ss_[isec];
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~                             
  484 |   for (inode = 0; inode < ss.nnode; ++inode) {
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~          
  485 |    NodeState& ns = ss.ns[inode];
      |    ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                        
  486 |    if (ns.nmemb) {
      |    ~~~~~~~~~~~~~~~                                      
  487 |     delete [] ns.type;
      |     ~~~~~~~~~~~~~~~~~~                                  
  488 |    }
      |    ~                                                    
  489 |    if (ns.nstate) {
      |    ~~~~~~~~~~~~~~~~                                     
  490 |     delete [] ns.state;
      |     ~~~~~~~~~~~~~~~~~~~                                 
  491 |    }
      |    ~                                                    
  492 |   }
      |   ~                                                     
  493 |   if (ss.root) {
      |   ~~~~~~~~~~~~~~                                        
  494 |    NodeState& ns = *ss.root;
      |    ~~~~~~~~~~~~~~~~~~~~~~~~~                            
  495 |    if (ns.nmemb) {
      |    ~~~~~~~~~~~~~~~                                      
  496 |     delete [] ns.type;
      |     ~~~~~~~~~~~~~~~~~~                                  
  497 |    }
      |    ~                                                    
  498 |    if (ns.nstate) {
      |    ~~~~~~~~~~~~~~~~                                     
  499 |     delete [] ns.state;
      |     ~~~~~~~~~~~~~~~~~~~                                 
  500 |    }
      |    ~                                                    
  501 |    delete ss.root;
      |    ~~~~~~~~~~~~~~~                                      
  502 |   }
      |   ~                                                     
  503 |   if (ss.nnode) {
      |   ~~~~~~~~~~~~~~~                                       
  504 |    delete [] ss.ns;
      |    ~~~~~~~~~~~~~~~~                                     
  505 |   }
      |   ~                                                     
  506 |   if (ss.sec) { // got info from an fread but never checked it
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
  507 |    section_unref(ss.sec);
      |    ~~~~~~~~~~~~~~~~~~~~~~                               
  508 |   }
      |   ~                                                     
  509 |  }
      |  ~                                                      
  510 |  if (nsec_) {
      |  ~~~~~~~~~~~~                                           
  511 |   delete [] ss_;
      |   ~~~~~~~~~~~~~~                                        
  512 |  }
      |  ~                                                      
  513 |  nsec_ = 0;
      |  ~~~~~~~~~~                                             
  514 |  ss_ = NULL;
      |  ~~~~~~~~~~~                                            
  515 |  for (i=0; i < nacell_; ++i) {
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                          
  516 |   if (acell_[i].ncell) {
      |   ~~~~~~~~~~~~~~~~~~~~~~                                
  517 |    delete [] acell_[i].state;
      |    ~~~~~~~~~~~~~~~~~~~~~~~~~~                           
  518 |    acell_[i].state = 0;
      |    ~~~~~~~~~~~~~~~~~~~~                                 
  519 |    acell_[i].ncell = 0;
      |    ~~~~~~~~~~~~~~~~~~~~                                 
  520 |   }
      |   ~                                                     
  521 |  } // note we do not destroy the acell_.
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                
  522 |  if (nncs_) {
      |  ~~~~~~~~~~~~                                           
  523 |   for (i = 0; i < nncs_; ++i) {
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                         
  524 |    if (ncs_[i].nstate) {
      |    ~~~~~~~~~~~~~~~~~~~~~                                
  525 |     delete [] ncs_[i].state;
      |     ~~~~~~~~~~~~~~~~~~~~~~~~                            
  526 |    }
      |    ~                                                    
  527 |   }
      |   ~                                                     
  528 |   delete [] ncs_;
      |   ~~~~~~~~~~~~~~~                                       
  529 |  }
      |  ~                                                      
  530 |  nncs_ = 0;
      |  ~~~~~~~~~~                                             
  531 |  ncs_ = NULL;
      |  ~~~~~~~~~~~~                                           
  532 |  if (npss_) {
      |  ~~~~~~~~~~~~                                           
  533 |   delete [] pss_;
      |   ~~~~~~~~~~~~~~~                                       
  534 |  }
      |  ~                                                      
  535 |  npss_ = 0;
      |  ~~~~~~~~~~                                             
  536 |  pss_ = NULL;
      |  ~~~~~~~~~~~~                                           
  537 |  free_tq();
      |  ~~~~~~~~~~                                             
  538 |  if (nprs_) {
      |  ~~~~~~~~~~~~                                           
  539 |   for (i=0; i < nprs_; ++i) {
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~                           
  540 |    delete prs_[i];
      |    ~~~~~~~~~~~~~~~                                      
  541 |   }
      |   ~                                                     
  542 |   delete [] prs_;
      |   ~~~~~~~~~~~~~~~                                       
  543 |  }
      |  ~                                                      
  544 |  nprs_ = 0;
      |  ~~~~~~~~~~                                             
  545 | }
      | ~                                                       
  546 | 
      |                                                         
  547 | void SaveState::save() {
      | ~~~~~~~~~~~~~~~~~~~~~~~~                                
  548 |  NrnThread* nt;
      |  ~~~~~~~~~~~~~~                                         
  549 |  if (!check(false)) {
      |  ~~~~~~~~~~~~~~~~~~~~                                   
  550 |   alloc();
      |   ~~~~~~~~                                              
  551 |  }
      |  ~                                                      
  552 |  FOR_THREADS(nt) {
      |  ~~~~~~~~~~~~~~~~~                                      
  553 |   assert(t == nt->_t);
      |   ~~~~~~~~~~~~~~~~~~~~                                  
  554 |  }
      |  ~                                                      
  555 |  t_ = t;
      |  ~~~~~~~                                                
  556 |  int inode;
      |  ~~~~~~~~~~                                             
  557 |  for (int isec=0; isec < nsec_; ++isec) {
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~               
  558 |   SecState& ss = ss_[isec];
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~                             
  559 |   Section* sec = ss.sec;
      |   ~~~~~~~~~~~~~~~~~~~~~~                                
  560 |   for (inode = 0; inode < ss.nnode; ++inode) {
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~          
  561 |    NodeState& ns = ss.ns[inode];
      |    ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                        
  562 |    Node* nd = sec->pnode[inode];
      |    ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                        
  563 |    savenode(ns, nd);
      |    ~~~~~~~~~~~~~~~~~                                    
  564 |   }
      |   ~                                                     
  565 |   if (ss.root) {
      |   ~~~~~~~~~~~~~~                                        
  566 |    NodeState& ns = *ss.root;
      |    ~~~~~~~~~~~~~~~~~~~~~~~~~                            
  567 |    Node* nd = sec->parentnode;
      |    ~~~~~~~~~~~~~~~~~~~~~~~~~~~                          
  568 |    savenode(ns, nd);
      |    ~~~~~~~~~~~~~~~~~                                    
  569 |   }
      |   ~                                                     
  570 |  }
      |  ~                                                      
  571 |  for (int i=0, j=0; i < n_memb_func; ++i) if (nrn_is_artificial_[i]) {
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
  572 |   saveacell(acell_[j], i);
      |   ~~~~~~~~~~~~~~~~~~~~~~~~                              
  573 |   ++j;
      |   ~~~~                                                  
  574 |  }
      |  ~                                                      
  575 |  if (nprs_) {
      |  ~~~~~~~~~~~~                                           
  576 |   PlayRecList* prl = net_cvode_instance_prl();
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~          
  577 |   int i;
      |   ~~~~~~                                                
  578 |   assert(nprs_ == prl->count());
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                        
  579 |   for (i=0; i < nprs_; ++i) {
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~                           
  580 |    prs_[i] = prl->item(i)->savestate_save();
      |    ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~            
  581 |   }
      |   ~                                                     
  582 |  }
      |  ~                                                      
  583 |  savenet();
      |  ~~~~~~~~~~                                             
  584 | }
      | ~                                                       
  585 | 
      |                                                         
  586 | void SaveState::savenode(NodeState& ns, Node* nd) {
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~     
  587 |  ns.v = NODEV(nd);
      |  ~~~~~~~~~~~~~~~~~                                      
  588 |  int istate = 0;
      |  ~~~~~~~~~~~~~~~                                        
  589 |  Prop* p;
      |  ~~~~~~~~                                               
  590 |  for (p = nd->prop; p; p = p->next) {
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                   
  591 |   if (ssi[p->type].size == 0) {
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                         
  592 |    continue;
      |    ~~~~~~~~~                                            
  593 |   }
      |   ~                                                     
  594 |   int type = p->type;
      |   ~~~~~~~~~~~~~~~~~~~                                   
  595 |   int max = ssi[type].offset + ssi[type].size;
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~          
  596 | #if EXTRACELLULAR
      | ~~~~~~~~~~~~~~~~~                                       
  597 |   if (type == EXTRACELL) {
      |   ~~~~~~~~~~~~~~~~~~~~~~~~                              
  598 |    for (int i=0; i < nlayer; ++i) {
      |    ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                     
  599 |     ns.state[istate++] = nd->extnode->v[i];
      |     ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~             
  600 |    }
      |    ~                                                    
  601 |   }else
      |   ~~~~~                                                 
  602 | #endif
      | ~~~~~~                                                  
  603 |   {
      |   ~                                                     
  604 |    for (int ip=ssi[type].offset; ip < max; ++ip) {
      |    ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~      
  605 |     ns.state[istate++] = p->param[ip];
      |     ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                  
  606 |    }
      |    ~                                                    
  607 |   }
      |   ~                                                     
  608 |  }
      |  ~                                                      
  609 | }
      | ~                                                       
  610 | 
      |                                                         
  611 | void SaveState::saveacell(ACellState& ac, int type) {
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~   
  612 |  Memb_list& ml = memb_list[type];
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                       
  613 |  int sz = ssi[type].size;
      |  ~~~~~~~~~~~~~~~~~~~~~~~~                               
  614 |  double* p = ac.state;
      |  ~~~~~~~~~~~~~~~~~~~~~                                  
  615 |  for (int i = 0; i < ml.nodecount; ++i) {
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~               
  616 |   double* d = ml.data[i];
      |   ~~~~~~~~~~~~~~~~~~~~~~~                               
  617 |   for (int j=0; j < sz; ++j) {
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~~                          
  618 |    (*p++) = d[j];
      |    ~~~~~~~~~~~~~~                                       
  619 |   }
      |   ~                                                     
  620 |  }
      |  ~                                                      
  621 | }
      | ~                                                       
  622 | 
      |                                                         
  623 | void SaveState::restore(int type) {
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                     
  624 |  NrnThread* nt;
      |  ~~~~~~~~~~~~~~                                         
  625 |  if (!check(true)) {
      |  ~~~~~~~~~~~~~~~~~~~                                    
  626 |   hoc_execerror("SaveState:",
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~                           
  627 |   "Stored state inconsistent with current neuron structure");
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
  628 |  }
      |  ~                                                      
  629 |  t = t_;
      |  ~~~~~~~                                                
  630 |  FOR_THREADS(nt) {
      |  ~~~~~~~~~~~~~~~~~                                      
  631 |   nt->_t = t_;
      |   ~~~~~~~~~~~~                                          
  632 |  }
      |  ~                                                      
  633 |  int inode;
      |  ~~~~~~~~~~                                             
  634 |  for (int isec=0; isec < nsec_; ++isec) {
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~               
  635 |   SecState& ss = ss_[isec];
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~                             
  636 |   Section* sec = ss.sec;
      |   ~~~~~~~~~~~~~~~~~~~~~~                                
  637 |   for (inode = 0; inode < ss.nnode; ++inode) {
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~          
  638 |    NodeState& ns = ss.ns[inode];
      |    ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                        
  639 |    Node* nd = sec->pnode[inode];
      |    ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                        
  640 |    restorenode(ns, nd);
      |    ~~~~~~~~~~~~~~~~~~~~                                 
  641 |   }
      |   ~                                                     
  642 |   if (ss.root) {
      |   ~~~~~~~~~~~~~~                                        
  643 |    NodeState& ns = *ss.root;
      |    ~~~~~~~~~~~~~~~~~~~~~~~~~                            
  644 |    Node* nd = sec->parentnode;
      |    ~~~~~~~~~~~~~~~~~~~~~~~~~~~                          
  645 |    restorenode(ns, nd);
      |    ~~~~~~~~~~~~~~~~~~~~                                 
  646 |   }
      |   ~                                                     
  647 |  }
      |  ~                                                      
  648 |  for (int i=0, j=0; i < n_memb_func; ++i) if (nrn_is_artificial_[i]) {
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
  649 |   restoreacell(acell_[j], i);
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~                           
  650 |   ++j;
      |   ~~~~                                                  
  651 |  }
      |  ~                                                      
  652 |  if (type == 1) { return; }
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~                             
  653 |  PlayRecList* prl = net_cvode_instance_prl();
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~           
  654 |  // during a local step the PlayRecList is augmented with GLineRecord
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
  655 |  // assert(nprs_ == prl->count());
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                      
  656 |  assert(nprs_ <= prl->count());
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                         
  657 |  int i;
      |  ~~~~~~                                                 
  658 |  for (i = 0; i < nprs_; ++i) {
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                          
  659 |   prs_[i]->savestate_restore();
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                         
  660 |  }
      |  ~                                                      
  661 |  restorenet();
      |  ~~~~~~~~~~~~~                                          
  662 | }
      | ~                                                       
  663 | 
      |                                                         
  664 | void SaveState::restorenode(NodeState& ns, Node* nd) {
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~  
  665 |  NODEV(nd) = ns.v;;
      |  ~~~~~~~~~~~~~~~~~~                                     
  666 |  int istate = 0;
      |  ~~~~~~~~~~~~~~~                                        
  667 |  Prop* p;
      |  ~~~~~~~~                                               
  668 |  for (p = nd->prop; p; p = p->next) {
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                   
  669 |   if (ssi[p->type].size == 0) {
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                         
  670 |    continue;
      |    ~~~~~~~~~                                            
  671 |   }
      |   ~                                                     
  672 |   int type = p->type;
      |   ~~~~~~~~~~~~~~~~~~~                                   
  673 |   int max = ssi[type].offset + ssi[type].size;
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~          
  674 | #if EXTRACELLULAR
      | ~~~~~~~~~~~~~~~~~                                       
  675 |   if (type == EXTRACELL) {
      |   ~~~~~~~~~~~~~~~~~~~~~~~~                              
  676 |    for (int i=0; i < nlayer; ++i) {
      |    ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                     
  677 |     nd->extnode->v[i] = ns.state[istate++];
      |     ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~             
  678 |    }
      |    ~                                                    
  679 |   }else
      |   ~~~~~                                                 
  680 | #endif
      | ~~~~~~                                                  
  681 |   {
      |   ~                                                     
  682 |    for (int ip=ssi[type].offset; ip < max; ++ip) {
      |    ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~      
  683 |     p->param[ip] = ns.state[istate++];
      |     ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                  
  684 |    }
      |    ~                                                    
  685 |   }
      |   ~                                                     
  686 |  }
      |  ~                                                      
  687 | }
      | ~                                                       
  688 | 
      |                                                         
  689 | void SaveState::restoreacell(ACellState& ac, int type) {
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
  690 |  Memb_list& ml = memb_list[type];
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                       
  691 |  int sz = ssi[type].size;
      |  ~~~~~~~~~~~~~~~~~~~~~~~~                               
  692 |  double* p = ac.state;
      |  ~~~~~~~~~~~~~~~~~~~~~                                  
  693 |  for (int i = 0; i < ml.nodecount; ++i) {
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~               
  694 |   double* d = ml.data[i];
      |   ~~~~~~~~~~~~~~~~~~~~~~~                               
  695 |   for (int j=0; j < sz; ++j) {
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~~                          
  696 |    d[j] = (*p++);
      |    ~~~~~~~~~~~~~~                                       
  697 |   }
      |   ~                                                     
  698 |  }
      |  ~                                                      
  699 | }
      | ~                                                       
  700 | 
      |                                                         
  701 | void SaveState::read(OcFile* ocf, bool close) {
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~         
  702 |  if (!ocf->open(ocf->get_name(), "r")) {
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                
  703 |   hoc_execerror("Couldn't open file for reading:", ocf->get_name());
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
  704 |  }
      |  ~                                                      
  705 |  nrn_shape_update();
      |  ~~~~~~~~~~~~~~~~~~~                                    
  706 |  BinaryMode(ocf)
      |  ~~~~~~~~~~~~~~~                                        
  707 |  FILE* f = ocf->file();
      |  ~~~~~~~~~~~~~~~~~~~~~~                                 
  708 |  ssfree();
      |  ~~~~~~~~~                                              
  709 |  char buf[200];
      |  ~~~~~~~~~~~~~~                                         
  710 |  ASSERTfgets(buf, 200, f);
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~                              
  711 |  if (strcmp(buf, "SaveState binary file version 6.0\n") != 0) {
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
  712 |   ocf->close();
      |   ~~~~~~~~~~~~~                                         
  713 |   hoc_execerror("Bad SaveState binary file", " Not version 6.0");
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
  714 |  }
      |  ~                                                      
  715 |  ASSERTfread((char*)&t_, sizeof(double), 1, f);
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~         
  716 | // fscanf(f, "%d %d\n", &nsec_, &nrootnode_);
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~           
  717 | // on some os's fscanf leaves file pointer at wrong place for next fread
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
  718 | // can check it with ftell(f)
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                           
  719 |  ASSERTfgets(buf, 200, f);
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~                              
  720 |  sscanf(buf, "%d %d\n", &nsec_, &nroot_);
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~               
  721 |  // to enable comparison of SaveState files, we avoid
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~   
  722 |  // putting pointers in the files and instead explicitly read/write
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
  723 |  // structure elements.
      |  ~~~~~~~~~~~~~~~~~~~~~~                                 
  724 |  ss_ = new SecState[nsec_];
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~                             
  725 |  fread_SecState(ss_, nsec_, f);
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                         
  726 |  for (int isec=0; isec < nsec_; ++isec) {
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~               
  727 |   SecState& ss = ss_[isec];
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~                             
  728 |   ss.sec = NULL;
      |   ~~~~~~~~~~~~~~                                        
  729 |   ss.ns = new NodeState[ss.nnode];
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                      
  730 |   fread_NodeState(ss.ns, ss.nnode, f);
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                  
  731 |   for (int inode = 0; inode < ss.nnode; ++inode) {
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~      
  732 |    NodeState& ns = ss.ns[inode];
      |    ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                        
  733 |    if (ns.nmemb) {
      |    ~~~~~~~~~~~~~~~                                      
  734 |     ns.type = new int[ns.nmemb];
      |     ~~~~~~~~~~~~~~~~~~~~~~~~~~~~                        
  735 |     ASSERTfread((char*)ns.type, sizeof(int), ns.nmemb, f);
      |     ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
  736 |    }
      |    ~                                                    
  737 |    if (ns.nstate) {
      |    ~~~~~~~~~~~~~~~~                                     
  738 |     ns.state = new double[ns.nstate];
      |     ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                   
  739 |     ASSERTfread((char*)ns.state, sizeof(double), ns.nstate, f);
      |     ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
  740 |    }
      |    ~                                                    
  741 |   }
      |   ~                                                     
  742 |   if (ss.root) {
      |   ~~~~~~~~~~~~~~                                        
  743 |    fread_NodeState(ss.root, 1, f);
      |    ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                      
  744 |    NodeState& ns = *ss.root;
      |    ~~~~~~~~~~~~~~~~~~~~~~~~~                            
  745 |    if (ns.nmemb) {
      |    ~~~~~~~~~~~~~~~                                      
  746 |     ns.type = new int[ns.nmemb];
      |     ~~~~~~~~~~~~~~~~~~~~~~~~~~~~                        
  747 |     ASSERTfread((char*)ns.type, sizeof(int), ns.nmemb, f);
      |     ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
  748 |    }
      |    ~                                                    
  749 |    if (ns.nstate) {
      |    ~~~~~~~~~~~~~~~~                                     
  750 |     ns.state = new double[ns.nstate];
      |     ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                   
  751 |     ASSERTfread((char*)ns.state, sizeof(double), ns.nstate, f);
      |     ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
/builddir/build/BUILD/nrn-7.8.1/src/oc/nrnassrt.h:23:33: note: in definition of macro 'nrn_assert'
   23 | #  define nrn_assert(ex) {if (!(ex)){fprintf(stderr,"Assertion failed: file %s, line %d\n", __FILE__,__LINE__);hoc_execerror(#ex, (char *)0);}}
      |                                 ^~
/builddir/build/BUILD/nrn-7.8.1/src/nrniv/savstate.cpp:751:5: note: in expansion of macro 'ASSERTfread'
  751 |     ASSERTfread((char*)ns.state, sizeof(double), ns.nstate, f);
      |     ^~~~~~~~~~~
/builddir/build/BUILD/nrn-7.8.1/src/nrniv/savstate.cpp:33:56: warning: comparison of integer expressions of different signedness: 'size_t' {aka 'long unsigned int'} and 'int' [-Wsign-compare]
   33 | #define ASSERTfread(a,b,c,d) nrn_assert(fread(a,b,c,d) == c)
      |                                         ~~~~~~~~~~~~~~~^~~~~
   34 | #define ASSERTfwrite(a,b,c,d) nrn_assert(fwrite(a,b,c,d) == c)
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
   35 | 
      |                                                         
   36 | class SaveState : public Resource {
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                     
   37 | public:
      | ~~~~~~~                                                 
   38 |  SaveState();
      |  ~~~~~~~~~~~~                                           
   39 |  ~SaveState();
      |  ~~~~~~~~~~~~~                                          
   40 |  virtual void save();
      |  ~~~~~~~~~~~~~~~~~~~~                                   
   41 |  virtual void restore(int type);
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                        
   42 |  virtual void read(OcFile*, bool close);
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                
   43 |  virtual void write(OcFile*, bool close);
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~               
   44 |  struct NodeState {
      |  ~~~~~~~~~~~~~~~~~~                                     
   45 |   double v;
      |   ~~~~~~~~~                                             
   46 |   int nmemb;
      |   ~~~~~~~~~~                                            
   47 |   int* type;
      |   ~~~~~~~~~~                                            
   48 |   int nstate;
      |   ~~~~~~~~~~~                                           
   49 |   double* state;
      |   ~~~~~~~~~~~~~~                                        
   50 |  };
      |  ~~                                                     
   51 |  struct SecState {
      |  ~~~~~~~~~~~~~~~~~                                      
   52 |   Section* sec;
      |   ~~~~~~~~~~~~~                                         
   53 |   int nnode;
      |   ~~~~~~~~~~                                            
   54 |   struct NodeState* ns;
      |   ~~~~~~~~~~~~~~~~~~~~~                                 
   55 |   struct NodeState* root; // non-zero for rootnode
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~      
   56 |  };
      |  ~~                                                     
   57 |  struct StateStructInfo {
      |  ~~~~~~~~~~~~~~~~~~~~~~~~                               
   58 |   int offset;
      |   ~~~~~~~~~~~                                           
   59 |   int size;
      |   ~~~~~~~~~                                             
   60 |  };
      |  ~~                                                     
   61 |  struct ACellState {
      |  ~~~~~~~~~~~~~~~~~~~                                    
   62 |   int type;
      |   ~~~~~~~~~                                             
   63 |   int ncell;
      |   ~~~~~~~~~~                                            
   64 |   double* state;
      |   ~~~~~~~~~~~~~~                                        
   65 |  };
      |  ~~                                                     
   66 |  struct NetConState {
      |  ~~~~~~~~~~~~~~~~~~~~                                   
   67 |   int object_index; // for checking
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                     
   68 |   int nstate;
      |   ~~~~~~~~~~~                                           
   69 |   double* state;
      |   ~~~~~~~~~~~~~~                                        
   70 |  };
      |  ~~                                                     
   71 |  struct PreSynState {
      |  ~~~~~~~~~~~~~~~~~~~~                                   
   72 |   bool flag; // is it firing?
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~                           
   73 |   double valthresh, valold, told;
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                       
   74 | 
      |                                                         
   75 |  };
      |  ~~                                                     
   76 |  struct TQState {
      |  ~~~~~~~~~~~~~~~~                                       
   77 |   int nstate;
      |   ~~~~~~~~~~~                                           
   78 |   double* tdeliver;
      |   ~~~~~~~~~~~~~~~~~                                     
   79 |   DiscreteEvent** items;
      |   ~~~~~~~~~~~~~~~~~~~~~~                                
   80 |  };
      |  ~~                                                     
   81 | private:
      | ~~~~~~~~                                                
   82 |  bool check(bool warn);
      |  ~~~~~~~~~~~~~~~~~~~~~~                                 
   83 |  void alloc();
      |  ~~~~~~~~~~~~~                                          
   84 |  void ssfree();
      |  ~~~~~~~~~~~~~~                                         
   85 |  void ssi_def();
      |  ~~~~~~~~~~~~~~~                                        
   86 | private:
      | ~~~~~~~~                                                
   87 |  void fread_NodeState(NodeState*, int, FILE*);
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~          
   88 |  void fwrite_NodeState(NodeState*, int, FILE*);
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~         
   89 |  void fread_SecState(SecState*, int, FILE*);
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~            
   90 |  void fwrite_SecState(SecState*, int, FILE*);
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~           
   91 | private:
      | ~~~~~~~~                                                
   92 |  double t_;
      |  ~~~~~~~~~~                                             
   93 |  int nroot_;
      |  ~~~~~~~~~~~                                            
   94 |  int nsec_;
      |  ~~~~~~~~~~                                             
   95 |  SecState* ss_;
      |  ~~~~~~~~~~~~~~                                         
   96 |  int nacell_; // number of types
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                        
   97 |  ACellState* acell_;
      |  ~~~~~~~~~~~~~~~~~~~                                    
   98 |  int nncs_;
      |  ~~~~~~~~~~                                             
   99 |  NetConState* ncs_;
      |  ~~~~~~~~~~~~~~~~~~                                     
  100 |  int npss_;
      |  ~~~~~~~~~~                                             
  101 |  PreSynState* pss_;
      |  ~~~~~~~~~~~~~~~~~~                                     
  102 |  TQState* tqs_;
      |  ~~~~~~~~~~~~~~                                         
  103 |  int tqcnt_; // volatile for index of forall_callback
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~   
  104 |  int nprs_;
      |  ~~~~~~~~~~                                             
  105 |  PlayRecordSave** prs_;
      |  ~~~~~~~~~~~~~~~~~~~~~~                                 
  106 |  static StateStructInfo* ssi;
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~                           
  107 |  static cTemplate* nct;
      |  ~~~~~~~~~~~~~~~~~~~~~~                                 
  108 | private:
      | ~~~~~~~~                                                
  109 |  void savenode(NodeState&, Node*);
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                      
  110 |  void restorenode(NodeState&, Node*);
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                   
  111 |  bool checknode(NodeState&, Node*, bool);
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~               
  112 |  void allocnode(NodeState&, Node*);
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                     
  113 | 
      |                                                         
  114 |  void saveacell(ACellState&, int type);
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                 
  115 |  void restoreacell(ACellState&, int type);
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~              
  116 |  bool checkacell(ACellState&, int type, bool);
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~          
  117 |  void allocacell(ACellState&, int type);
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                
  118 | 
      |                                                         
  119 |  void savenet();
      |  ~~~~~~~~~~~~~~~                                        
  120 |  void restorenet();
      |  ~~~~~~~~~~~~~~~~~~                                     
  121 |  void readnet(FILE*);
      |  ~~~~~~~~~~~~~~~~~~~~                                   
  122 |  void writenet(FILE*);
      |  ~~~~~~~~~~~~~~~~~~~~~                                  
  123 |  bool checknet(bool);
      |  ~~~~~~~~~~~~~~~~~~~~                                   
  124 |  void allocnet();
      |  ~~~~~~~~~~~~~~~~                                       
  125 |  void free_tq();
      |  ~~~~~~~~~~~~~~~                                        
  126 |  void alloc_tq();
      |  ~~~~~~~~~~~~~~~~                                       
  127 | public:
      | ~~~~~~~                                                 
  128 |  void tqcount(const TQItem*, int);
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                      
  129 |  void tqsave(const TQItem*, int);
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                       
  130 | };
      | ~~                                                      
  131 | 
      |                                                         
  132 | static SaveState* this_savestate;
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                       
  133 | static int callback_mode;
      | ~~~~~~~~~~~~~~~~~~~~~~~~~                               
  134 | 
      |                                                         
  135 | void tqcallback(const TQItem* tq, int i) {
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~              
  136 |  if (callback_mode == 0) {
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~                              
  137 |   this_savestate->tqcount(tq, i);
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                       
  138 |  }else{
      |  ~~~~~~                                                 
  139 |   this_savestate->tqsave(tq, i);
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                        
  140 |  }
      |  ~                                                      
  141 | }
      | ~                                                       
  142 | 
      |                                                         
  143 | #if __sgi && 0
      | ~~~~~~~~~~~~~~                                          
  144 | // fixed in version 5 of os
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~                             
  145 | StateStructInfo* SaveState::ssi;
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                        
  146 | #else
      | ~~~~~                                                   
  147 | SaveState::StateStructInfo* SaveState::ssi;
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~             
  148 | #endif
      | ~~~~~~                                                  
  149 | cTemplate* SaveState::nct;
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~                              
  150 | 
      |                                                         
  151 | SaveState::SaveState() {
      | ~~~~~~~~~~~~~~~~~~~~~~~~                                
  152 |  int i, j;
      |  ~~~~~~~~~                                              
  153 |  ssi_def();
      |  ~~~~~~~~~~                                             
  154 |  nroot_ = 0;
      |  ~~~~~~~~~~~                                            
  155 |  ss_ = NULL;
      |  ~~~~~~~~~~~                                            
  156 |  nsec_ = 0;
      |  ~~~~~~~~~~                                             
  157 |  nncs_ = 0;
      |  ~~~~~~~~~~                                             
  158 |  ncs_ = NULL;
      |  ~~~~~~~~~~~~                                           
  159 |  npss_ = 0;
      |  ~~~~~~~~~~                                             
  160 |  pss_ = NULL;
      |  ~~~~~~~~~~~~                                           
  161 |  tqs_ = new TQState();
      |  ~~~~~~~~~~~~~~~~~~~~~                                  
  162 |  tqs_->nstate = 0;
      |  ~~~~~~~~~~~~~~~~~                                      
  163 |  nprs_ = 0;
      |  ~~~~~~~~~~                                             
  164 |  prs_ = NULL;
      |  ~~~~~~~~~~~~                                           
  165 |  nacell_ = 0;
      |  ~~~~~~~~~~~~                                           
  166 |  for (i=0; i < n_memb_func; ++i) if (nrn_is_artificial_[i]) {
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
  167 |   ++nacell_;
      |   ~~~~~~~~~~                                            
  168 |  }
      |  ~                                                      
  169 |  acell_ = new ACellState[nacell_];
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                      
  170 |  for (i=0; i < nacell_; ++i) {
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                          
  171 |   acell_[i].ncell = 0;
      |   ~~~~~~~~~~~~~~~~~~~~                                  
  172 |   acell_[i].state = 0;
      |   ~~~~~~~~~~~~~~~~~~~~                                  
  173 |  }
      |  ~                                                      
  174 |  for (i=0, j=0; i < n_memb_func; ++i) if (nrn_is_artificial_[i]) {
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
  175 |   acell_[j].type = i;
      |   ~~~~~~~~~~~~~~~~~~~                                   
  176 |   ++j;
      |   ~~~~                                                  
  177 |  }
      |  ~                                                      
  178 | }
      | ~                                                       
  179 | 
      |                                                         
  180 | SaveState::~SaveState() {
      | ~~~~~~~~~~~~~~~~~~~~~~~~~                               
  181 |  ssfree();
      |  ~~~~~~~~~                                              
  182 |  delete tqs_;
      |  ~~~~~~~~~~~~                                           
  183 |  delete [] acell_;
      |  ~~~~~~~~~~~~~~~~~                                      
  184 | }
      | ~                                                       
  185 | 
      |                                                         
  186 | void SaveState::fread_NodeState(NodeState* ns, int cnt, FILE* f) {
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
  187 |  for (int i=0; i < cnt; ++i) {
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                          
  188 |   ASSERTfread(&ns[i].v, sizeof(double), 1, f);
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~          
  189 |   ASSERTfread(&ns[i].nmemb, sizeof(int), 1, f);
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~         
  190 |   ASSERTfread(&ns[i].nstate, sizeof(int), 1, f);
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~        
  191 |  }
      |  ~                                                      
  192 | }
      | ~                                                       
  193 | void SaveState::fwrite_NodeState(NodeState* ns, int cnt, FILE* f){
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
  194 |  for (int i=0; i < cnt; ++i) {
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                          
  195 |   ASSERTfwrite(&ns[i].v, sizeof(double), 1, f);
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~         
  196 |   ASSERTfwrite(&ns[i].nmemb, sizeof(int), 1, f);
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~        
  197 |   ASSERTfwrite(&ns[i].nstate, sizeof(int), 1, f);
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~       
  198 |  }
      |  ~                                                      
  199 | }
      | ~                                                       
  200 | void SaveState::fread_SecState(SecState* ss, int cnt, FILE* f){
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
  201 |  int b;
      |  ~~~~~~                                                 
  202 |  for (int i=0; i < cnt; ++i) {
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                          
  203 |   ASSERTfread(&ss[i].nnode, sizeof(int), 1, f);
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~         
  204 |   ASSERTfread(&b, sizeof(int), 1, f);
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                   
  205 |   if (b) {
      |   ~~~~~~~~                                              
  206 |    ss[i].root = new NodeState;
      |    ~~~~~~~~~~~~~~~~~~~~~~~~~~~                          
  207 |   }else{
      |   ~~~~~~                                                
  208 |    ss[i].root = 0;
      |    ~~~~~~~~~~~~~~~                                      
  209 |   }
      |   ~                                                     
  210 |  }
      |  ~                                                      
  211 | }
      | ~                                                       
  212 | void SaveState::fwrite_SecState(SecState* ss, int cnt, FILE* f){
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
  213 |  int b;
      |  ~~~~~~                                                 
  214 |  for (int i=0; i < cnt; ++i) {
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                          
  215 |   ASSERTfwrite(&ss[i].nnode, sizeof(int), 1, f);
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~        
  216 |   b = ss[i].root ? 1 : 0;
      |   ~~~~~~~~~~~~~~~~~~~~~~~                               
  217 |   ASSERTfwrite(&b, sizeof(int), 1, f);
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                  
  218 |  }
      |  ~                                                      
  219 | }
      | ~                                                       
  220 | 
      |                                                         
  221 | void SaveState::ssi_def() {
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~                             
  222 |  if (nct) { return; }
      |  ~~~~~~~~~~~~~~~~~~~~                                   
  223 |  Symbol* s = hoc_lookup("NetCon");
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                      
  224 |  nct = s->u.ctemplate;
      |  ~~~~~~~~~~~~~~~~~~~~~                                  
  225 |  ssi = new StateStructInfo[n_memb_func];
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                
  226 |  for (int im=0; im < n_memb_func; ++im) {
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~               
  227 |   ssi[im].offset = -1;
      |   ~~~~~~~~~~~~~~~~~~~~                                  
  228 |   ssi[im].size = 0;
      |   ~~~~~~~~~~~~~~~~~                                     
  229 |   if (!memb_func[im].sym) {
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~                             
  230 |    continue;
      |    ~~~~~~~~~                                            
  231 |   }
      |   ~                                                     
  232 |   NrnProperty* np = new NrnProperty(memb_func[im].sym->name);
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
  233 |   // generally we only save STATE variables. However for
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
  234 |   // models containing a NET_RECEIVE block, we also need to
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
  235 |   // save everything except the parameters
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~              
  236 |   // because they often contain
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                         
  237 |   // logic and analytic state values. Unfortunately, it is often
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
  238 |   // the case that the ASSIGNED variables are not declared as
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
  239 |   // RANGE variables so to avoid missing state, save the whole
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
  240 |   // param array including PARAMETERs.
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                  
  241 |      if  (pnt_receive[im]) {
      |      ~~~~~~~~~~~~~~~~~~~~~~~                            
  242 |   ssi[im].offset = 0;
      |   ~~~~~~~~~~~~~~~~~~~                                   
  243 |   ssi[im].size = np->prop()->param_size;
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                
  244 |      }else{
      |      ~~~~~~                                             
  245 |   int type = STATE;
      |   ~~~~~~~~~~~~~~~~~                                     
  246 |   for (Symbol* sym = np->first_var(); np->more_var(); sym = np->next_var()) {
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
  247 |    if (np->var_type(sym) == type
      |    ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                        
  248 |        || np->var_type(sym) == STATE
      |        ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                    
  249 |        || sym->subtype == _AMBIGUOUS) {
      |        ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                 
  250 |     if (ssi[im].offset < 0) {
      |     ~~~~~~~~~~~~~~~~~~~~~~~~~                           
  251 |      ssi[im].offset = np->prop_index(sym);
      |      ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~              
  252 |     }
      |     ~                                                   
  253 |     ssi[im].size += hoc_total_array_data(sym, 0);
      |     ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~       
  254 |    }
      |    ~                                                    
  255 |   }
      |   ~                                                     
  256 |      }
      |      ~                                                  
  257 |      delete np;
      |      ~~~~~~~~~~                                         
  258 |  }
      |  ~                                                      
  259 | }
      | ~                                                       
  260 | 
      |                                                         
  261 | bool SaveState::check(bool warn) {
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                      
  262 |  hoc_Item* qsec;
      |  ~~~~~~~~~~~~~~~                                        
  263 |  int isec;
      |  ~~~~~~~~~                                              
  264 |  if (nsec_ != section_count) {
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                          
  265 |   if (warn) {
      |   ~~~~~~~~~~~                                           
  266 | fprintf(stderr, "SaveState warning: %d sections exist but saved %d\n",
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
  267 |    section_count, nsec_);
      |    ~~~~~~~~~~~~~~~~~~~~~~                               
  268 |   }
      |   ~                                                     
  269 |   return false;
      |   ~~~~~~~~~~~~~                                         
  270 |  }
      |  ~                                                      
  271 |  if (nroot_ != nrn_global_ncell) {
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                      
  272 |   if (warn) {
      |   ~~~~~~~~~~~                                           
  273 | fprintf(stderr, "SaveState warning: %d cells exist but saved %d\n",
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
  274 |    nrn_global_ncell, nroot_);
      |    ~~~~~~~~~~~~~~~~~~~~~~~~~~                           
  275 |   }
      |   ~                                                     
  276 |   return false;
      |   ~~~~~~~~~~~~~                                         
  277 |  }
      |  ~                                                      
  278 |  if (nsec_ && ss_[0].sec == NULL) { // got the data from a read
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
  279 |   isec = 0; ForAllSections(sec)
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                         
  280 |    ss_[isec].sec = sec;
      |    ~~~~~~~~~~~~~~~~~~~~                                 
  281 |    section_ref(ss_[isec].sec);
      |    ~~~~~~~~~~~~~~~~~~~~~~~~~~~                          
  282 |    ++isec;
      |    ~~~~~~~                                              
  283 |   }
      |   ~                                                     
  284 |  }
      |  ~                                                      
  285 |  for (int i=0, j=0; i < n_memb_func; ++i) if (nrn_is_artificial_[i]) {
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
  286 |   if (!checkacell(acell_[j], i, warn)) {
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                
  287 |    return false;
      |    ~~~~~~~~~~~~~                                        
  288 |   }
      |   ~                                                     
  289 |   ++j;
      |   ~~~~                                                  
  290 |  }
      |  ~                                                      
  291 |  for (int isec=0; isec < nsec_; ++isec) {
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~               
  292 |   SecState& ss = ss_[isec];
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~                             
  293 |   Section* sec = ss.sec;
      |   ~~~~~~~~~~~~~~~~~~~~~~                                
  294 |   if (!sec->prop || sec->nnode != ss.nnode) {
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~           
  295 | if (warn) {
      | ~~~~~~~~~~~                                             
  296 | if (!sec->prop) {
      | ~~~~~~~~~~~~~~~~~                                       
  297 | fprintf(stderr, "SaveState warning: saved section no longer exists\n");
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
  298 | }else{
      | ~~~~~~                                                  
  299 | fprintf(stderr, "SaveState warning: %s has %d nodes but saved %d\n",
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
  300 |     secname(sec), sec->nnode, ss.nnode);
      |     ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                
  301 | }
      | ~                                                       
  302 | }
      | ~                                                       
  303 |    return false;
      |    ~~~~~~~~~~~~~                                        
  304 |   }
      |   ~                                                     
  305 |   for (int inode = 0; inode < ss.nnode; ++inode) {
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~      
  306 |    NodeState& ns = ss.ns[inode];
      |    ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                        
  307 |    Node* nd = sec->pnode[inode];
      |    ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                        
  308 |    int i=0;
      |    ~~~~~~~~                                             
  309 |    Prop* p;
      |    ~~~~~~~~                                             
  310 |    for (p = nd->prop; p; p = p->next) {
      |    ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                 
  311 |     if (ssi[p->type].size == 0) {
      |     ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                       
  312 |      continue;
      |      ~~~~~~~~~                                          
  313 |     }
      |     ~                                                   
  314 |     if (i >= ns.nmemb) {
      |     ~~~~~~~~~~~~~~~~~~~~                                
  315 | if (warn) {
      | ~~~~~~~~~~~                                             
  316 | fprintf(stderr,"SaveState warning: \
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                    
  317 | fewer mechanisms saved than exist at node %d of %s\n",
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~  
  318 |  inode, secname(sec));
      |  ~~~~~~~~~~~~~~~~~~~~~                                  
  319 | }
      | ~                                                       
  320 |      return false;
      |      ~~~~~~~~~~~~~                                      
  321 |     }
      |     ~                                                   
  322 |     if (p->type != ns.type[i]) {
      |     ~~~~~~~~~~~~~~~~~~~~~~~~~~~~                        
  323 | if (warn) {
      | ~~~~~~~~~~~                                             
  324 | fprintf(stderr, "SaveState warning: mechanisms out of order at node %d of %s\n\
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
  325 | saved %s but need %s\n",
      | ~~~~~~~~~~~~~~~~~~~~~~~~                                
  326 | inode, secname(sec), memb_func[i].sym->name, memb_func[p->type].sym->name);
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
  327 | }
      | ~                                                       
  328 |      return false;
      |      ~~~~~~~~~~~~~                                      
  329 |     }
      |     ~                                                   
  330 |     ++i;
      |     ~~~~                                                
  331 |    }
      |    ~                                                    
  332 |    if (i != ns.nmemb) {
      |    ~~~~~~~~~~~~~~~~~~~~                                 
  333 | if (warn) {
      | ~~~~~~~~~~~                                             
  334 | fprintf(stderr, "SaveState warning: more mechanisms saved than exist at node %d of %s\n",
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
  335 |  inode, secname(sec));
      |  ~~~~~~~~~~~~~~~~~~~~~                                  
  336 | }
      | ~                                                       
  337 |     return false;
      |     ~~~~~~~~~~~~~                                       
  338 |    }
      |    ~                                                    
  339 |   }
      |   ~                                                     
  340 |   if (!sec->parentsec || ss.root) {
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                     
  341 |    if (sec->parentsec || !ss.root) {
      |    ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                    
  342 | if (warn) {
      | ~~~~~~~~~~~                                             
  343 | fprintf(stderr, "SaveState warning: Saved section and %s are not both root sections.\n",
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
  344 |  secname(sec));
      |  ~~~~~~~~~~~~~~                                         
  345 | }
      | ~                                                       
  346 |    }
      |    ~                                                    
  347 |    if (!checknode(*ss.root, sec->parentnode, warn)) {
      |    ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~   
  348 |     return false;
      |     ~~~~~~~~~~~~~                                       
  349 |    }
      |    ~                                                    
  350 |   }
      |   ~                                                     
  351 | 
      |                                                         
  352 |  }
      |  ~                                                      
  353 |  if (!checknet(warn)) { return false; }
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                 
  354 |  return true;
      |  ~~~~~~~~~~~~                                           
  355 | }
      | ~                                                       
  356 | 
      |                                                         
  357 | bool SaveState::checknode(NodeState& ns, Node* nd, bool warn) {
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
  358 |  int i=0;
      |  ~~~~~~~~                                               
  359 |  Prop* p;
      |  ~~~~~~~~                                               
  360 |  for (p = nd->prop; p; p = p->next) {
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                   
  361 |   if (ssi[p->type].size == 0) {
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                         
  362 |    continue;
      |    ~~~~~~~~~                                            
  363 |   }
      |   ~                                                     
  364 |   if (i >= ns.nmemb) {
      |   ~~~~~~~~~~~~~~~~~~~~                                  
  365 | if (warn) {
      | ~~~~~~~~~~~                                             
  366 | fprintf(stderr,"SaveState warning: \
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                    
  367 | fewer mechanisms saved than exist at a root node\n");
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~   
  368 | }
      | ~                                                       
  369 |    return false;
      |    ~~~~~~~~~~~~~                                        
  370 |   }
      |   ~                                                     
  371 |   if (p->type != ns.type[i]) {
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~~                          
  372 | if (warn) {
      | ~~~~~~~~~~~                                             
  373 | fprintf(stderr, "SaveState warning: mechanisms out of order at a rootnode\n\
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
  374 | saved %s but need %s\n",
      | ~~~~~~~~~~~~~~~~~~~~~~~~                                
  375 | memb_func[i].sym->name, memb_func[p->type].sym->name);
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~  
  376 | }
      | ~                                                       
  377 |    return false;
      |    ~~~~~~~~~~~~~                                        
  378 |   }
      |   ~                                                     
  379 |   ++i;
      |   ~~~~                                                  
  380 |  }
      |  ~                                                      
  381 |  if (i != ns.nmemb) {
      |  ~~~~~~~~~~~~~~~~~~~~                                   
  382 | if (warn) {
      | ~~~~~~~~~~~                                             
  383 | fprintf(stderr, "SaveState warning: more mechanisms saved than exist at a rootnode\n");
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
  384 | }
      | ~                                                       
  385 |   return false;
      |   ~~~~~~~~~~~~~                                         
  386 |  }
      |  ~                                                      
  387 |  return true;
      |  ~~~~~~~~~~~~                                           
  388 | }
      | ~                                                       
  389 | 
      |                                                         
  390 | bool SaveState::checkacell(ACellState& ac, int type, bool warn) {
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
  391 |  if (memb_list[type].nodecount != ac.ncell) {
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~           
  392 | if (warn) {
      | ~~~~~~~~~~~                                             
  393 | fprintf(stderr, "SaveState warning: different number of %s saved than exist.\n",
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
  394 | memb_func[type].sym->name);
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~                             
  395 | }
      | ~                                                       
  396 |   return false;
      |   ~~~~~~~~~~~~~                                         
  397 |  }
      |  ~                                                      
  398 |  return true;
      |  ~~~~~~~~~~~~                                           
  399 | }
      | ~                                                       
  400 | 
      |                                                         
  401 | void SaveState::alloc() {
      | ~~~~~~~~~~~~~~~~~~~~~~~~~                               
  402 |  ssfree();
      |  ~~~~~~~~~                                              
  403 |  int inode, isec;
      |  ~~~~~~~~~~~~~~~~                                       
  404 |  hoc_Item* qsec;
      |  ~~~~~~~~~~~~~~~                                        
  405 |  nsec_ = section_count;
      |  ~~~~~~~~~~~~~~~~~~~~~~                                 
  406 |  ss_ = new SecState[nsec_];
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~                             
  407 |  nroot_ = 0;
      |  ~~~~~~~~~~~                                            
  408 |  isec = 0;
      |  ~~~~~~~~~                                              
  409 |  ForAllSections(sec)
      |  ~~~~~~~~~~~~~~~~~~~                                    
  410 |   SecState& ss = ss_[isec];
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~                             
  411 |   ss.sec = sec;
      |   ~~~~~~~~~~~~~                                         
  412 |   section_ref(ss.sec);
      |   ~~~~~~~~~~~~~~~~~~~~                                  
  413 |   ss.nnode = ss.sec->nnode;
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~                             
  414 |   ss.ns = new NodeState[ss.nnode];
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                      
  415 |   for (inode = 0; inode < ss.nnode; ++inode) {
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~          
  416 |    Node* nd = ss.sec->pnode[inode];
      |    ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                     
  417 |    NodeState& ns = ss.ns[inode];
      |    ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                        
  418 |    allocnode(ns, nd);
      |    ~~~~~~~~~~~~~~~~~~                                   
  419 |   }
      |   ~                                                     
  420 |   if (!sec->parentsec) {
      |   ~~~~~~~~~~~~~~~~~~~~~~                                
  421 |    assert(sec->parentnode);
      |    ~~~~~~~~~~~~~~~~~~~~~~~~                             
  422 |    ss.root = new NodeState;
      |    ~~~~~~~~~~~~~~~~~~~~~~~~                             
  423 |    allocnode(*ss.root, sec->parentnode);
      |    ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                
  424 |    ++nroot_;
      |    ~~~~~~~~~                                            
  425 |   }else{
      |   ~~~~~~                                                
  426 |    ss.root = 0;
      |    ~~~~~~~~~~~~                                         
  427 |   }
      |   ~                                                     
  428 |   ++isec;
      |   ~~~~~~~                                               
  429 |  }
      |  ~                                                      
  430 |  assert(isec == section_count);
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                         
  431 |  assert(nroot_ == nrn_global_ncell);
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                    
  432 |  for (int i=0, j=0; i < n_memb_func; ++i) if (nrn_is_artificial_[i]) {
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
  433 |   allocacell(acell_[j], i);
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~                             
  434 |   ++j;
      |   ~~~~                                                  
  435 |  }
      |  ~                                                      
  436 |  PlayRecList* prl = net_cvode_instance_prl();
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~           
  437 |  nprs_ = prl->count();
      |  ~~~~~~~~~~~~~~~~~~~~~                                  
  438 |  if (nprs_) {
      |  ~~~~~~~~~~~~                                           
  439 |   prs_ = new PlayRecordSave*[nprs_];
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                    
  440 |  }
      |  ~                                                      
  441 |  allocnet();
      |  ~~~~~~~~~~~                                            
  442 | }
      | ~                                                       
  443 | 
      |                                                         
  444 | void SaveState::allocnode(NodeState& ns, Node* nd) {
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~    
  445 |  ns.nmemb = 0;
      |  ~~~~~~~~~~~~~                                          
  446 |  ns.type = NULL;
      |  ~~~~~~~~~~~~~~~                                        
  447 |  ns.state = NULL;
      |  ~~~~~~~~~~~~~~~~                                       
  448 |  ns.nstate = 0;
      |  ~~~~~~~~~~~~~~                                         
  449 |  Prop* p;
      |  ~~~~~~~~                                               
  450 |  for (p = nd->prop; p; p = p->next) {
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                   
  451 |   if (ssi[p->type].size == 0) {
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                         
  452 |    continue;
      |    ~~~~~~~~~                                            
  453 |   }
      |   ~                                                     
  454 |   ++ns.nmemb;
      |   ~~~~~~~~~~~                                           
  455 |   ns.nstate += ssi[p->type].size;
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                       
  456 |  }
      |  ~                                                      
  457 |  if (ns.nmemb) {
      |  ~~~~~~~~~~~~~~~                                        
  458 |   ns.type = new int[ns.nmemb];
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~~                          
  459 |  }
      |  ~                                                      
  460 |  if (ns.nstate) {
      |  ~~~~~~~~~~~~~~~~                                       
  461 |   ns.state = new double[ns.nstate];
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                     
  462 |  }
      |  ~                                                      
  463 |  int i = 0;
      |  ~~~~~~~~~~                                             
  464 |  for (p = nd->prop; p; p = p->next) {
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                   
  465 |   if (ssi[p->type].size == 0) {
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                         
  466 |    continue;
      |    ~~~~~~~~~                                            
  467 |   }
      |   ~                                                     
  468 |   ns.type[i] = p->type;
      |   ~~~~~~~~~~~~~~~~~~~~~                                 
  469 |   ++i;
      |   ~~~~                                                  
  470 |  }
      |  ~                                                      
  471 | }
      | ~                                                       
  472 | 
      |                                                         
  473 | void SaveState::allocacell(ACellState& ac, int type) {
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~  
  474 |  Memb_list& ml = memb_list[type];
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                       
  475 |  ac.type = type;
      |  ~~~~~~~~~~~~~~~                                        
  476 |  ac.ncell = ml.nodecount;
      |  ~~~~~~~~~~~~~~~~~~~~~~~~                               
  477 |  ac.state = new double[ac.ncell * ssi[type].size];
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~      
  478 | }
      | ~                                                       
  479 | 
      |                                                         
  480 | void SaveState::ssfree() {
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~                              
  481 |  int i, isec, inode;
      |  ~~~~~~~~~~~~~~~~~~~                                    
  482 |  for (isec=0; isec < nsec_; ++isec) {
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                   
  483 |   SecState& ss = ss_[isec];
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~                             
  484 |   for (inode = 0; inode < ss.nnode; ++inode) {
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~          
  485 |    NodeState& ns = ss.ns[inode];
      |    ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                        
  486 |    if (ns.nmemb) {
      |    ~~~~~~~~~~~~~~~                                      
  487 |     delete [] ns.type;
      |     ~~~~~~~~~~~~~~~~~~                                  
  488 |    }
      |    ~                                                    
  489 |    if (ns.nstate) {
      |    ~~~~~~~~~~~~~~~~                                     
  490 |     delete [] ns.state;
      |     ~~~~~~~~~~~~~~~~~~~                                 
  491 |    }
      |    ~                                                    
  492 |   }
      |   ~                                                     
  493 |   if (ss.root) {
      |   ~~~~~~~~~~~~~~                                        
  494 |    NodeState& ns = *ss.root;
      |    ~~~~~~~~~~~~~~~~~~~~~~~~~                            
  495 |    if (ns.nmemb) {
      |    ~~~~~~~~~~~~~~~                                      
  496 |     delete [] ns.type;
      |     ~~~~~~~~~~~~~~~~~~                                  
  497 |    }
      |    ~                                                    
  498 |    if (ns.nstate) {
      |    ~~~~~~~~~~~~~~~~                                     
  499 |     delete [] ns.state;
      |     ~~~~~~~~~~~~~~~~~~~                                 
  500 |    }
      |    ~                                                    
  501 |    delete ss.root;
      |    ~~~~~~~~~~~~~~~                                      
  502 |   }
      |   ~                                                     
  503 |   if (ss.nnode) {
      |   ~~~~~~~~~~~~~~~                                       
  504 |    delete [] ss.ns;
      |    ~~~~~~~~~~~~~~~~                                     
  505 |   }
      |   ~                                                     
  506 |   if (ss.sec) { // got info from an fread but never checked it
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
  507 |    section_unref(ss.sec);
      |    ~~~~~~~~~~~~~~~~~~~~~~                               
  508 |   }
      |   ~                                                     
  509 |  }
      |  ~                                                      
  510 |  if (nsec_) {
      |  ~~~~~~~~~~~~                                           
  511 |   delete [] ss_;
      |   ~~~~~~~~~~~~~~                                        
  512 |  }
      |  ~                                                      
  513 |  nsec_ = 0;
      |  ~~~~~~~~~~                                             
  514 |  ss_ = NULL;
      |  ~~~~~~~~~~~                                            
  515 |  for (i=0; i < nacell_; ++i) {
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                          
  516 |   if (acell_[i].ncell) {
      |   ~~~~~~~~~~~~~~~~~~~~~~                                
  517 |    delete [] acell_[i].state;
      |    ~~~~~~~~~~~~~~~~~~~~~~~~~~                           
  518 |    acell_[i].state = 0;
      |    ~~~~~~~~~~~~~~~~~~~~                                 
  519 |    acell_[i].ncell = 0;
      |    ~~~~~~~~~~~~~~~~~~~~                                 
  520 |   }
      |   ~                                                     
  521 |  } // note we do not destroy the acell_.
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                
  522 |  if (nncs_) {
      |  ~~~~~~~~~~~~                                           
  523 |   for (i = 0; i < nncs_; ++i) {
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                         
  524 |    if (ncs_[i].nstate) {
      |    ~~~~~~~~~~~~~~~~~~~~~                                
  525 |     delete [] ncs_[i].state;
      |     ~~~~~~~~~~~~~~~~~~~~~~~~                            
  526 |    }
      |    ~                                                    
  527 |   }
      |   ~                                                     
  528 |   delete [] ncs_;
      |   ~~~~~~~~~~~~~~~                                       
  529 |  }
      |  ~                                                      
  530 |  nncs_ = 0;
      |  ~~~~~~~~~~                                             
  531 |  ncs_ = NULL;
      |  ~~~~~~~~~~~~                                           
  532 |  if (npss_) {
      |  ~~~~~~~~~~~~                                           
  533 |   delete [] pss_;
      |   ~~~~~~~~~~~~~~~                                       
  534 |  }
      |  ~                                                      
  535 |  npss_ = 0;
      |  ~~~~~~~~~~                                             
  536 |  pss_ = NULL;
      |  ~~~~~~~~~~~~                                           
  537 |  free_tq();
      |  ~~~~~~~~~~                                             
  538 |  if (nprs_) {
      |  ~~~~~~~~~~~~                                           
  539 |   for (i=0; i < nprs_; ++i) {
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~                           
  540 |    delete prs_[i];
      |    ~~~~~~~~~~~~~~~                                      
  541 |   }
      |   ~                                                     
  542 |   delete [] prs_;
      |   ~~~~~~~~~~~~~~~                                       
  543 |  }
      |  ~                                                      
  544 |  nprs_ = 0;
      |  ~~~~~~~~~~                                             
  545 | }
      | ~                                                       
  546 | 
      |                                                         
  547 | void SaveState::save() {
      | ~~~~~~~~~~~~~~~~~~~~~~~~                                
  548 |  NrnThread* nt;
      |  ~~~~~~~~~~~~~~                                         
  549 |  if (!check(false)) {
      |  ~~~~~~~~~~~~~~~~~~~~                                   
  550 |   alloc();
      |   ~~~~~~~~                                              
  551 |  }
      |  ~                                                      
  552 |  FOR_THREADS(nt) {
      |  ~~~~~~~~~~~~~~~~~                                      
  553 |   assert(t == nt->_t);
      |   ~~~~~~~~~~~~~~~~~~~~                                  
  554 |  }
      |  ~                                                      
  555 |  t_ = t;
      |  ~~~~~~~                                                
  556 |  int inode;
      |  ~~~~~~~~~~                                             
  557 |  for (int isec=0; isec < nsec_; ++isec) {
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~               
  558 |   SecState& ss = ss_[isec];
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~                             
  559 |   Section* sec = ss.sec;
      |   ~~~~~~~~~~~~~~~~~~~~~~                                
  560 |   for (inode = 0; inode < ss.nnode; ++inode) {
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~          
  561 |    NodeState& ns = ss.ns[inode];
      |    ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                        
  562 |    Node* nd = sec->pnode[inode];
      |    ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                        
  563 |    savenode(ns, nd);
      |    ~~~~~~~~~~~~~~~~~                                    
  564 |   }
      |   ~                                                     
  565 |   if (ss.root) {
      |   ~~~~~~~~~~~~~~                                        
  566 |    NodeState& ns = *ss.root;
      |    ~~~~~~~~~~~~~~~~~~~~~~~~~                            
  567 |    Node* nd = sec->parentnode;
      |    ~~~~~~~~~~~~~~~~~~~~~~~~~~~                          
  568 |    savenode(ns, nd);
      |    ~~~~~~~~~~~~~~~~~                                    
  569 |   }
      |   ~                                                     
  570 |  }
      |  ~                                                      
  571 |  for (int i=0, j=0; i < n_memb_func; ++i) if (nrn_is_artificial_[i]) {
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
  572 |   saveacell(acell_[j], i);
      |   ~~~~~~~~~~~~~~~~~~~~~~~~                              
  573 |   ++j;
      |   ~~~~                                                  
  574 |  }
      |  ~                                                      
  575 |  if (nprs_) {
      |  ~~~~~~~~~~~~                                           
  576 |   PlayRecList* prl = net_cvode_instance_prl();
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~          
  577 |   int i;
      |   ~~~~~~                                                
  578 |   assert(nprs_ == prl->count());
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                        
  579 |   for (i=0; i < nprs_; ++i) {
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~                           
  580 |    prs_[i] = prl->item(i)->savestate_save();
      |    ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~            
  581 |   }
      |   ~                                                     
  582 |  }
      |  ~                                                      
  583 |  savenet();
      |  ~~~~~~~~~~                                             
  584 | }
      | ~                                                       
  585 | 
      |                                                         
  586 | void SaveState::savenode(NodeState& ns, Node* nd) {
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~     
  587 |  ns.v = NODEV(nd);
      |  ~~~~~~~~~~~~~~~~~                                      
  588 |  int istate = 0;
      |  ~~~~~~~~~~~~~~~                                        
  589 |  Prop* p;
      |  ~~~~~~~~                                               
  590 |  for (p = nd->prop; p; p = p->next) {
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                   
  591 |   if (ssi[p->type].size == 0) {
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                         
  592 |    continue;
      |    ~~~~~~~~~                                            
  593 |   }
      |   ~                                                     
  594 |   int type = p->type;
      |   ~~~~~~~~~~~~~~~~~~~                                   
  595 |   int max = ssi[type].offset + ssi[type].size;
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~          
  596 | #if EXTRACELLULAR
      | ~~~~~~~~~~~~~~~~~                                       
  597 |   if (type == EXTRACELL) {
      |   ~~~~~~~~~~~~~~~~~~~~~~~~                              
  598 |    for (int i=0; i < nlayer; ++i) {
      |    ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                     
  599 |     ns.state[istate++] = nd->extnode->v[i];
      |     ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~             
  600 |    }
      |    ~                                                    
  601 |   }else
      |   ~~~~~                                                 
  602 | #endif
      | ~~~~~~                                                  
  603 |   {
      |   ~                                                     
  604 |    for (int ip=ssi[type].offset; ip < max; ++ip) {
      |    ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~      
  605 |     ns.state[istate++] = p->param[ip];
      |     ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                  
  606 |    }
      |    ~                                                    
  607 |   }
      |   ~                                                     
  608 |  }
      |  ~                                                      
  609 | }
      | ~                                                       
  610 | 
      |                                                         
  611 | void SaveState::saveacell(ACellState& ac, int type) {
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~   
  612 |  Memb_list& ml = memb_list[type];
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                       
  613 |  int sz = ssi[type].size;
      |  ~~~~~~~~~~~~~~~~~~~~~~~~                               
  614 |  double* p = ac.state;
      |  ~~~~~~~~~~~~~~~~~~~~~                                  
  615 |  for (int i = 0; i < ml.nodecount; ++i) {
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~               
  616 |   double* d = ml.data[i];
      |   ~~~~~~~~~~~~~~~~~~~~~~~                               
  617 |   for (int j=0; j < sz; ++j) {
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~~                          
  618 |    (*p++) = d[j];
      |    ~~~~~~~~~~~~~~                                       
  619 |   }
      |   ~                                                     
  620 |  }
      |  ~                                                      
  621 | }
      | ~                                                       
  622 | 
      |                                                         
  623 | void SaveState::restore(int type) {
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                     
  624 |  NrnThread* nt;
      |  ~~~~~~~~~~~~~~                                         
  625 |  if (!check(true)) {
      |  ~~~~~~~~~~~~~~~~~~~                                    
  626 |   hoc_execerror("SaveState:",
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~                           
  627 |   "Stored state inconsistent with current neuron structure");
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
  628 |  }
      |  ~                                                      
  629 |  t = t_;
      |  ~~~~~~~                                                
  630 |  FOR_THREADS(nt) {
      |  ~~~~~~~~~~~~~~~~~                                      
  631 |   nt->_t = t_;
      |   ~~~~~~~~~~~~                                          
  632 |  }
      |  ~                                                      
  633 |  int inode;
      |  ~~~~~~~~~~                                             
  634 |  for (int isec=0; isec < nsec_; ++isec) {
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~               
  635 |   SecState& ss = ss_[isec];
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~                             
  636 |   Section* sec = ss.sec;
      |   ~~~~~~~~~~~~~~~~~~~~~~                                
  637 |   for (inode = 0; inode < ss.nnode; ++inode) {
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~          
  638 |    NodeState& ns = ss.ns[inode];
      |    ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                        
  639 |    Node* nd = sec->pnode[inode];
      |    ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                        
  640 |    restorenode(ns, nd);
      |    ~~~~~~~~~~~~~~~~~~~~                                 
  641 |   }
      |   ~                                                     
  642 |   if (ss.root) {
      |   ~~~~~~~~~~~~~~                                        
  643 |    NodeState& ns = *ss.root;
      |    ~~~~~~~~~~~~~~~~~~~~~~~~~                            
  644 |    Node* nd = sec->parentnode;
      |    ~~~~~~~~~~~~~~~~~~~~~~~~~~~                          
  645 |    restorenode(ns, nd);
      |    ~~~~~~~~~~~~~~~~~~~~                                 
  646 |   }
      |   ~                                                     
  647 |  }
      |  ~                                                      
  648 |  for (int i=0, j=0; i < n_memb_func; ++i) if (nrn_is_artificial_[i]) {
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
  649 |   restoreacell(acell_[j], i);
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~                           
  650 |   ++j;
      |   ~~~~                                                  
  651 |  }
      |  ~                                                      
  652 |  if (type == 1) { return; }
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~                             
  653 |  PlayRecList* prl = net_cvode_instance_prl();
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~           
  654 |  // during a local step the PlayRecList is augmented with GLineRecord
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
  655 |  // assert(nprs_ == prl->count());
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                      
  656 |  assert(nprs_ <= prl->count());
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                         
  657 |  int i;
      |  ~~~~~~                                                 
  658 |  for (i = 0; i < nprs_; ++i) {
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                          
  659 |   prs_[i]->savestate_restore();
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                         
  660 |  }
      |  ~                                                      
  661 |  restorenet();
      |  ~~~~~~~~~~~~~                                          
  662 | }
      | ~                                                       
  663 | 
      |                                                         
  664 | void SaveState::restorenode(NodeState& ns, Node* nd) {
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~  
  665 |  NODEV(nd) = ns.v;;
      |  ~~~~~~~~~~~~~~~~~~                                     
  666 |  int istate = 0;
      |  ~~~~~~~~~~~~~~~                                        
  667 |  Prop* p;
      |  ~~~~~~~~                                               
  668 |  for (p = nd->prop; p; p = p->next) {
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                   
  669 |   if (ssi[p->type].size == 0) {
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                         
  670 |    continue;
      |    ~~~~~~~~~                                            
  671 |   }
      |   ~                                                     
  672 |   int type = p->type;
      |   ~~~~~~~~~~~~~~~~~~~                                   
  673 |   int max = ssi[type].offset + ssi[type].size;
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~          
  674 | #if EXTRACELLULAR
      | ~~~~~~~~~~~~~~~~~                                       
  675 |   if (type == EXTRACELL) {
      |   ~~~~~~~~~~~~~~~~~~~~~~~~                              
  676 |    for (int i=0; i < nlayer; ++i) {
      |    ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                     
  677 |     nd->extnode->v[i] = ns.state[istate++];
      |     ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~             
  678 |    }
      |    ~                                                    
  679 |   }else
      |   ~~~~~                                                 
  680 | #endif
      | ~~~~~~                                                  
  681 |   {
      |   ~                                                     
  682 |    for (int ip=ssi[type].offset; ip < max; ++ip) {
      |    ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~      
  683 |     p->param[ip] = ns.state[istate++];
      |     ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                  
  684 |    }
      |    ~                                                    
  685 |   }
      |   ~                                                     
  686 |  }
      |  ~                                                      
  687 | }
      | ~                                                       
  688 | 
      |                                                         
  689 | void SaveState::restoreacell(ACellState& ac, int type) {
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
  690 |  Memb_list& ml = memb_list[type];
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                       
  691 |  int sz = ssi[type].size;
      |  ~~~~~~~~~~~~~~~~~~~~~~~~                               
  692 |  double* p = ac.state;
      |  ~~~~~~~~~~~~~~~~~~~~~                                  
  693 |  for (int i = 0; i < ml.nodecount; ++i) {
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~               
  694 |   double* d = ml.data[i];
      |   ~~~~~~~~~~~~~~~~~~~~~~~                               
  695 |   for (int j=0; j < sz; ++j) {
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~~                          
  696 |    d[j] = (*p++);
      |    ~~~~~~~~~~~~~~                                       
  697 |   }
      |   ~                                                     
  698 |  }
      |  ~                                                      
  699 | }
      | ~                                                       
  700 | 
      |                                                         
  701 | void SaveState::read(OcFile* ocf, bool close) {
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~         
  702 |  if (!ocf->open(ocf->get_name(), "r")) {
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                
  703 |   hoc_execerror("Couldn't open file for reading:", ocf->get_name());
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
  704 |  }
      |  ~                                                      
  705 |  nrn_shape_update();
      |  ~~~~~~~~~~~~~~~~~~~                                    
  706 |  BinaryMode(ocf)
      |  ~~~~~~~~~~~~~~~                                        
  707 |  FILE* f = ocf->file();
      |  ~~~~~~~~~~~~~~~~~~~~~~                                 
  708 |  ssfree();
      |  ~~~~~~~~~                                              
  709 |  char buf[200];
      |  ~~~~~~~~~~~~~~                                         
  710 |  ASSERTfgets(buf, 200, f);
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~                              
  711 |  if (strcmp(buf, "SaveState binary file version 6.0\n") != 0) {
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
  712 |   ocf->close();
      |   ~~~~~~~~~~~~~                                         
  713 |   hoc_execerror("Bad SaveState binary file", " Not version 6.0");
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
  714 |  }
      |  ~                                                      
  715 |  ASSERTfread((char*)&t_, sizeof(double), 1, f);
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~         
  716 | // fscanf(f, "%d %d\n", &nsec_, &nrootnode_);
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~           
  717 | // on some os's fscanf leaves file pointer at wrong place for next fread
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
  718 | // can check it with ftell(f)
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                           
  719 |  ASSERTfgets(buf, 200, f);
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~                              
  720 |  sscanf(buf, "%d %d\n", &nsec_, &nroot_);
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~               
  721 |  // to enable comparison of SaveState files, we avoid
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~   
  722 |  // putting pointers in the files and instead explicitly read/write
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
  723 |  // structure elements.
      |  ~~~~~~~~~~~~~~~~~~~~~~                                 
  724 |  ss_ = new SecState[nsec_];
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~                             
  725 |  fread_SecState(ss_, nsec_, f);
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                         
  726 |  for (int isec=0; isec < nsec_; ++isec) {
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~               
  727 |   SecState& ss = ss_[isec];
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~                             
  728 |   ss.sec = NULL;
      |   ~~~~~~~~~~~~~~                                        
  729 |   ss.ns = new NodeState[ss.nnode];
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                      
  730 |   fread_NodeState(ss.ns, ss.nnode, f);
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                  
  731 |   for (int inode = 0; inode < ss.nnode; ++inode) {
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~      
  732 |    NodeState& ns = ss.ns[inode];
      |    ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                        
  733 |    if (ns.nmemb) {
      |    ~~~~~~~~~~~~~~~                                      
  734 |     ns.type = new int[ns.nmemb];
      |     ~~~~~~~~~~~~~~~~~~~~~~~~~~~~                        
  735 |     ASSERTfread((char*)ns.type, sizeof(int), ns.nmemb, f);
      |     ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
  736 |    }
      |    ~                                                    
  737 |    if (ns.nstate) {
      |    ~~~~~~~~~~~~~~~~                                     
  738 |     ns.state = new double[ns.nstate];
      |     ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                   
  739 |     ASSERTfread((char*)ns.state, sizeof(double), ns.nstate, f);
      |     ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
  740 |    }
      |    ~                                                    
  741 |   }
      |   ~                                                     
  742 |   if (ss.root) {
      |   ~~~~~~~~~~~~~~                                        
  743 |    fread_NodeState(ss.root, 1, f);
      |    ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                      
  744 |    NodeState& ns = *ss.root;
      |    ~~~~~~~~~~~~~~~~~~~~~~~~~                            
  745 |    if (ns.nmemb) {
      |    ~~~~~~~~~~~~~~~                                      
  746 |     ns.type = new int[ns.nmemb];
      |     ~~~~~~~~~~~~~~~~~~~~~~~~~~~~                        
  747 |     ASSERTfread((char*)ns.type, sizeof(int), ns.nmemb, f);
      |     ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
  748 |    }
      |    ~                                                    
  749 |    if (ns.nstate) {
      |    ~~~~~~~~~~~~~~~~                                     
  750 |     ns.state = new double[ns.nstate];
      |     ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                   
  751 |     ASSERTfread((char*)ns.state, sizeof(double), ns.nstate, f);
      |     ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
  752 |    }
      |    ~                                                    
  753 |   }
      |   ~                                                     
  754 |  }
      |  ~                                                      
  755 |  int n = 0;
      |  ~~~~~~~~~~                                             
  756 |  ASSERTfgets(buf, 20, f);
      |  ~~~~~~~~~~~~~~~~~~~~~~~~                               
  757 |  sscanf(buf, "%d\n", &n);
      |  ~~~~~~~~~~~~~~~~~~~~~~~~                               
  758 |  assert(n == nacell_);
      |  ~~~~~~~~~~~~~~~~~~~~~                                  
  759 |  for (int i=0, j=0; i < n_memb_func; ++i) if (nrn_is_artificial_[i]) {
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
  760 |   int nt = 0, nc = 0, ns = 0;
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~                           
  761 |   ASSERTfgets(buf, 200, f);
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~                             
  762 |   nrn_assert(sscanf(buf, "%d %d %d\n", &nt, &nc, &ns) == 3);
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
  763 |   assert(nt == i && nc == memb_list[i].nodecount);
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~      
  764 |   assert(ns == nc * ssi[i].size);
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                       
  765 |   acell_[j].ncell = nc;
      |   ~~~~~~~~~~~~~~~~~~~~~                                 
  766 |   acell_[j].state = new double[ns];
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                     
  767 |   ASSERTfread((char*)acell_[j].state, sizeof(double), ns, f);
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
/builddir/build/BUILD/nrn-7.8.1/src/oc/nrnassrt.h:23:33: note: in definition of macro 'nrn_assert'
   23 | #  define nrn_assert(ex) {if (!(ex)){fprintf(stderr,"Assertion failed: file %s, line %d\n", __FILE__,__LINE__);hoc_execerror(#ex, (char *)0);}}
      |                                 ^~
/builddir/build/BUILD/nrn-7.8.1/src/nrniv/savstate.cpp:767:3: note: in expansion of macro 'ASSERTfread'
  767 |   ASSERTfread((char*)acell_[j].state, sizeof(double), ns, f);
      |   ^~~~~~~~~~~
/builddir/build/BUILD/nrn-7.8.1/src/nrniv/savstate.cpp: In member function 'virtual void SaveState::write(OcFile*, bool)':
/builddir/build/BUILD/nrn-7.8.1/src/nrniv/savstate.cpp:34:58: warning: comparison of integer expressions of different signedness: 'size_t' {aka 'long unsigned int'} and 'int' [-Wsign-compare]
   34 | #define ASSERTfwrite(a,b,c,d) nrn_assert(fwrite(a,b,c,d) == c)
      |                                          ~~~~~~~~~~~~~~~~^~~~~
   35 | 
      |                                                           
   36 | class SaveState : public Resource {
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                       
   37 | public:
      | ~~~~~~~                                                   
   38 |  SaveState();
      |  ~~~~~~~~~~~~                                             
   39 |  ~SaveState();
      |  ~~~~~~~~~~~~~                                            
   40 |  virtual void save();
      |  ~~~~~~~~~~~~~~~~~~~~                                     
   41 |  virtual void restore(int type);
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                          
   42 |  virtual void read(OcFile*, bool close);
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                  
   43 |  virtual void write(OcFile*, bool close);
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                 
   44 |  struct NodeState {
      |  ~~~~~~~~~~~~~~~~~~                                       
   45 |   double v;
      |   ~~~~~~~~~                                               
   46 |   int nmemb;
      |   ~~~~~~~~~~                                              
   47 |   int* type;
      |   ~~~~~~~~~~                                              
   48 |   int nstate;
      |   ~~~~~~~~~~~                                             
   49 |   double* state;
      |   ~~~~~~~~~~~~~~                                          
   50 |  };
      |  ~~                                                       
   51 |  struct SecState {
      |  ~~~~~~~~~~~~~~~~~                                        
   52 |   Section* sec;
      |   ~~~~~~~~~~~~~                                           
   53 |   int nnode;
      |   ~~~~~~~~~~                                              
   54 |   struct NodeState* ns;
      |   ~~~~~~~~~~~~~~~~~~~~~                                   
   55 |   struct NodeState* root; // non-zero for rootnode
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~        
   56 |  };
      |  ~~                                                       
   57 |  struct StateStructInfo {
      |  ~~~~~~~~~~~~~~~~~~~~~~~~                                 
   58 |   int offset;
      |   ~~~~~~~~~~~                                             
   59 |   int size;
      |   ~~~~~~~~~                                               
   60 |  };
      |  ~~                                                       
   61 |  struct ACellState {
      |  ~~~~~~~~~~~~~~~~~~~                                      
   62 |   int type;
      |   ~~~~~~~~~                                               
   63 |   int ncell;
      |   ~~~~~~~~~~                                              
   64 |   double* state;
      |   ~~~~~~~~~~~~~~                                          
   65 |  };
      |  ~~                                                       
   66 |  struct NetConState {
      |  ~~~~~~~~~~~~~~~~~~~~                                     
   67 |   int object_index; // for checking
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                       
   68 |   int nstate;
      |   ~~~~~~~~~~~                                             
   69 |   double* state;
      |   ~~~~~~~~~~~~~~                                          
   70 |  };
      |  ~~                                                       
   71 |  struct PreSynState {
      |  ~~~~~~~~~~~~~~~~~~~~                                     
   72 |   bool flag; // is it firing?
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~                             
   73 |   double valthresh, valold, told;
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                         
   74 | 
      |                                                           
   75 |  };
      |  ~~                                                       
   76 |  struct TQState {
      |  ~~~~~~~~~~~~~~~~                                         
   77 |   int nstate;
      |   ~~~~~~~~~~~                                             
   78 |   double* tdeliver;
      |   ~~~~~~~~~~~~~~~~~                                       
   79 |   DiscreteEvent** items;
      |   ~~~~~~~~~~~~~~~~~~~~~~                                  
   80 |  };
      |  ~~                                                       
   81 | private:
      | ~~~~~~~~                                                  
   82 |  bool check(bool warn);
      |  ~~~~~~~~~~~~~~~~~~~~~~                                   
   83 |  void alloc();
      |  ~~~~~~~~~~~~~                                            
   84 |  void ssfree();
      |  ~~~~~~~~~~~~~~                                           
   85 |  void ssi_def();
      |  ~~~~~~~~~~~~~~~                                          
   86 | private:
      | ~~~~~~~~                                                  
   87 |  void fread_NodeState(NodeState*, int, FILE*);
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~            
   88 |  void fwrite_NodeState(NodeState*, int, FILE*);
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~           
   89 |  void fread_SecState(SecState*, int, FILE*);
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~              
   90 |  void fwrite_SecState(SecState*, int, FILE*);
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~             
   91 | private:
      | ~~~~~~~~                                                  
   92 |  double t_;
      |  ~~~~~~~~~~                                               
   93 |  int nroot_;
      |  ~~~~~~~~~~~                                              
   94 |  int nsec_;
      |  ~~~~~~~~~~                                               
   95 |  SecState* ss_;
      |  ~~~~~~~~~~~~~~                                           
   96 |  int nacell_; // number of types
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                          
   97 |  ACellState* acell_;
      |  ~~~~~~~~~~~~~~~~~~~                                      
   98 |  int nncs_;
      |  ~~~~~~~~~~                                               
   99 |  NetConState* ncs_;
      |  ~~~~~~~~~~~~~~~~~~                                       
  100 |  int npss_;
      |  ~~~~~~~~~~                                               
  101 |  PreSynState* pss_;
      |  ~~~~~~~~~~~~~~~~~~                                       
  102 |  TQState* tqs_;
      |  ~~~~~~~~~~~~~~                                           
  103 |  int tqcnt_; // volatile for index of forall_callback
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~     
  104 |  int nprs_;
      |  ~~~~~~~~~~                                               
  105 |  PlayRecordSave** prs_;
      |  ~~~~~~~~~~~~~~~~~~~~~~                                   
  106 |  static StateStructInfo* ssi;
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~                             
  107 |  static cTemplate* nct;
      |  ~~~~~~~~~~~~~~~~~~~~~~                                   
  108 | private:
      | ~~~~~~~~                                                  
  109 |  void savenode(NodeState&, Node*);
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                        
  110 |  void restorenode(NodeState&, Node*);
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                     
  111 |  bool checknode(NodeState&, Node*, bool);
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                 
  112 |  void allocnode(NodeState&, Node*);
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                       
  113 | 
      |                                                           
  114 |  void saveacell(ACellState&, int type);
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                   
  115 |  void restoreacell(ACellState&, int type);
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                
  116 |  bool checkacell(ACellState&, int type, bool);
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~            
  117 |  void allocacell(ACellState&, int type);
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                  
  118 | 
      |                                                           
  119 |  void savenet();
      |  ~~~~~~~~~~~~~~~                                          
  120 |  void restorenet();
      |  ~~~~~~~~~~~~~~~~~~                                       
  121 |  void readnet(FILE*);
      |  ~~~~~~~~~~~~~~~~~~~~                                     
  122 |  void writenet(FILE*);
      |  ~~~~~~~~~~~~~~~~~~~~~                                    
  123 |  bool checknet(bool);
      |  ~~~~~~~~~~~~~~~~~~~~                                     
  124 |  void allocnet();
      |  ~~~~~~~~~~~~~~~~                                         
  125 |  void free_tq();
      |  ~~~~~~~~~~~~~~~                                          
  126 |  void alloc_tq();
      |  ~~~~~~~~~~~~~~~~                                         
  127 | public:
      | ~~~~~~~                                                   
  128 |  void tqcount(const TQItem*, int);
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                        
  129 |  void tqsave(const TQItem*, int);
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                         
  130 | };
      | ~~                                                        
  131 | 
      |                                                           
  132 | static SaveState* this_savestate;
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                         
  133 | static int callback_mode;
      | ~~~~~~~~~~~~~~~~~~~~~~~~~                                 
  134 | 
      |                                                           
  135 | void tqcallback(const TQItem* tq, int i) {
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                
  136 |  if (callback_mode == 0) {
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~                                
  137 |   this_savestate->tqcount(tq, i);
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                         
  138 |  }else{
      |  ~~~~~~                                                   
  139 |   this_savestate->tqsave(tq, i);
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                          
  140 |  }
      |  ~                                                        
  141 | }
      | ~                                                         
  142 | 
      |                                                           
  143 | #if __sgi && 0
      | ~~~~~~~~~~~~~~                                            
  144 | // fixed in version 5 of os
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~                               
  145 | StateStructInfo* SaveState::ssi;
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                          
  146 | #else
      | ~~~~~                                                     
  147 | SaveState::StateStructInfo* SaveState::ssi;
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~               
  148 | #endif
      | ~~~~~~                                                    
  149 | cTemplate* SaveState::nct;
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~                                
  150 | 
      |                                                           
  151 | SaveState::SaveState() {
      | ~~~~~~~~~~~~~~~~~~~~~~~~                                  
  152 |  int i, j;
      |  ~~~~~~~~~                                                
  153 |  ssi_def();
      |  ~~~~~~~~~~                                               
  154 |  nroot_ = 0;
      |  ~~~~~~~~~~~                                              
  155 |  ss_ = NULL;
      |  ~~~~~~~~~~~                                              
  156 |  nsec_ = 0;
      |  ~~~~~~~~~~                                               
  157 |  nncs_ = 0;
      |  ~~~~~~~~~~                                               
  158 |  ncs_ = NULL;
      |  ~~~~~~~~~~~~                                             
  159 |  npss_ = 0;
      |  ~~~~~~~~~~                                               
  160 |  pss_ = NULL;
      |  ~~~~~~~~~~~~                                             
  161 |  tqs_ = new TQState();
      |  ~~~~~~~~~~~~~~~~~~~~~                                    
  162 |  tqs_->nstate = 0;
      |  ~~~~~~~~~~~~~~~~~                                        
  163 |  nprs_ = 0;
      |  ~~~~~~~~~~                                               
  164 |  prs_ = NULL;
      |  ~~~~~~~~~~~~                                             
  165 |  nacell_ = 0;
      |  ~~~~~~~~~~~~                                             
  166 |  for (i=0; i < n_memb_func; ++i) if (nrn_is_artificial_[i]) {
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
  167 |   ++nacell_;
      |   ~~~~~~~~~~                                              
  168 |  }
      |  ~                                                        
  169 |  acell_ = new ACellState[nacell_];
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                        
  170 |  for (i=0; i < nacell_; ++i) {
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                            
  171 |   acell_[i].ncell = 0;
      |   ~~~~~~~~~~~~~~~~~~~~                                    
  172 |   acell_[i].state = 0;
      |   ~~~~~~~~~~~~~~~~~~~~                                    
  173 |  }
      |  ~                                                        
  174 |  for (i=0, j=0; i < n_memb_func; ++i) if (nrn_is_artificial_[i]) {
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
  175 |   acell_[j].type = i;
      |   ~~~~~~~~~~~~~~~~~~~                                     
  176 |   ++j;
      |   ~~~~                                                    
  177 |  }
      |  ~                                                        
  178 | }
      | ~                                                         
  179 | 
      |                                                           
  180 | SaveState::~SaveState() {
      | ~~~~~~~~~~~~~~~~~~~~~~~~~                                 
  181 |  ssfree();
      |  ~~~~~~~~~                                                
  182 |  delete tqs_;
      |  ~~~~~~~~~~~~                                             
  183 |  delete [] acell_;
      |  ~~~~~~~~~~~~~~~~~                                        
  184 | }
      | ~                                                         
  185 | 
      |                                                           
  186 | void SaveState::fread_NodeState(NodeState* ns, int cnt, FILE* f) {
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
  187 |  for (int i=0; i < cnt; ++i) {
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                            
  188 |   ASSERTfread(&ns[i].v, sizeof(double), 1, f);
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~            
  189 |   ASSERTfread(&ns[i].nmemb, sizeof(int), 1, f);
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~           
  190 |   ASSERTfread(&ns[i].nstate, sizeof(int), 1, f);
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~          
  191 |  }
      |  ~                                                        
  192 | }
      | ~                                                         
  193 | void SaveState::fwrite_NodeState(NodeState* ns, int cnt, FILE* f){
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
  194 |  for (int i=0; i < cnt; ++i) {
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                            
  195 |   ASSERTfwrite(&ns[i].v, sizeof(double), 1, f);
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~           
  196 |   ASSERTfwrite(&ns[i].nmemb, sizeof(int), 1, f);
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~          
  197 |   ASSERTfwrite(&ns[i].nstate, sizeof(int), 1, f);
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~         
  198 |  }
      |  ~                                                        
  199 | }
      | ~                                                         
  200 | void SaveState::fread_SecState(SecState* ss, int cnt, FILE* f){
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
  201 |  int b;
      |  ~~~~~~                                                   
  202 |  for (int i=0; i < cnt; ++i) {
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                            
  203 |   ASSERTfread(&ss[i].nnode, sizeof(int), 1, f);
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~           
  204 |   ASSERTfread(&b, sizeof(int), 1, f);
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                     
  205 |   if (b) {
      |   ~~~~~~~~                                                
  206 |    ss[i].root = new NodeState;
      |    ~~~~~~~~~~~~~~~~~~~~~~~~~~~                            
  207 |   }else{
      |   ~~~~~~                                                  
  208 |    ss[i].root = 0;
      |    ~~~~~~~~~~~~~~~                                        
  209 |   }
      |   ~                                                       
  210 |  }
      |  ~                                                        
  211 | }
      | ~                                                         
  212 | void SaveState::fwrite_SecState(SecState* ss, int cnt, FILE* f){
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
  213 |  int b;
      |  ~~~~~~                                                   
  214 |  for (int i=0; i < cnt; ++i) {
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                            
  215 |   ASSERTfwrite(&ss[i].nnode, sizeof(int), 1, f);
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~          
  216 |   b = ss[i].root ? 1 : 0;
      |   ~~~~~~~~~~~~~~~~~~~~~~~                                 
  217 |   ASSERTfwrite(&b, sizeof(int), 1, f);
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                    
  218 |  }
      |  ~                                                        
  219 | }
      | ~                                                         
  220 | 
      |                                                           
  221 | void SaveState::ssi_def() {
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~                               
  222 |  if (nct) { return; }
      |  ~~~~~~~~~~~~~~~~~~~~                                     
  223 |  Symbol* s = hoc_lookup("NetCon");
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                        
  224 |  nct = s->u.ctemplate;
      |  ~~~~~~~~~~~~~~~~~~~~~                                    
  225 |  ssi = new StateStructInfo[n_memb_func];
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                  
  226 |  for (int im=0; im < n_memb_func; ++im) {
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                 
  227 |   ssi[im].offset = -1;
      |   ~~~~~~~~~~~~~~~~~~~~                                    
  228 |   ssi[im].size = 0;
      |   ~~~~~~~~~~~~~~~~~                                       
  229 |   if (!memb_func[im].sym) {
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~                               
  230 |    continue;
      |    ~~~~~~~~~                                              
  231 |   }
      |   ~                                                       
  232 |   NrnProperty* np = new NrnProperty(memb_func[im].sym->name);
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
  233 |   // generally we only save STATE variables. However for
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~  
  234 |   // models containing a NET_RECEIVE block, we also need to
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
  235 |   // save everything except the parameters
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                
  236 |   // because they often contain
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                           
  237 |   // logic and analytic state values. Unfortunately, it is often
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
  238 |   // the case that the ASSIGNED variables are not declared as
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
  239 |   // RANGE variables so to avoid missing state, save the whole
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
  240 |   // param array including PARAMETERs.
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                    
  241 |      if  (pnt_receive[im]) {
      |      ~~~~~~~~~~~~~~~~~~~~~~~                              
  242 |   ssi[im].offset = 0;
      |   ~~~~~~~~~~~~~~~~~~~                                     
  243 |   ssi[im].size = np->prop()->param_size;
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                  
  244 |      }else{
      |      ~~~~~~                                               
  245 |   int type = STATE;
      |   ~~~~~~~~~~~~~~~~~                                       
  246 |   for (Symbol* sym = np->first_var(); np->more_var(); sym = np->next_var()) {
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
  247 |    if (np->var_type(sym) == type
      |    ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                          
  248 |        || np->var_type(sym) == STATE
      |        ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                      
  249 |        || sym->subtype == _AMBIGUOUS) {
      |        ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                   
  250 |     if (ssi[im].offset < 0) {
      |     ~~~~~~~~~~~~~~~~~~~~~~~~~                             
  251 |      ssi[im].offset = np->prop_index(sym);
      |      ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                
  252 |     }
      |     ~                                                     
  253 |     ssi[im].size += hoc_total_array_data(sym, 0);
      |     ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~         
  254 |    }
      |    ~                                                      
  255 |   }
      |   ~                                                       
  256 |      }
      |      ~                                                    
  257 |      delete np;
      |      ~~~~~~~~~~                                           
  258 |  }
      |  ~                                                        
  259 | }
      | ~                                                         
  260 | 
      |                                                           
  261 | bool SaveState::check(bool warn) {
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                        
  262 |  hoc_Item* qsec;
      |  ~~~~~~~~~~~~~~~                                          
  263 |  int isec;
      |  ~~~~~~~~~                                                
  264 |  if (nsec_ != section_count) {
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                            
  265 |   if (warn) {
      |   ~~~~~~~~~~~                                             
  266 | fprintf(stderr, "SaveState warning: %d sections exist but saved %d\n",
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
  267 |    section_count, nsec_);
      |    ~~~~~~~~~~~~~~~~~~~~~~                                 
  268 |   }
      |   ~                                                       
  269 |   return false;
      |   ~~~~~~~~~~~~~                                           
  270 |  }
      |  ~                                                        
  271 |  if (nroot_ != nrn_global_ncell) {
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                        
  272 |   if (warn) {
      |   ~~~~~~~~~~~                                             
  273 | fprintf(stderr, "SaveState warning: %d cells exist but saved %d\n",
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
  274 |    nrn_global_ncell, nroot_);
      |    ~~~~~~~~~~~~~~~~~~~~~~~~~~                             
  275 |   }
      |   ~                                                       
  276 |   return false;
      |   ~~~~~~~~~~~~~                                           
  277 |  }
      |  ~                                                        
  278 |  if (nsec_ && ss_[0].sec == NULL) { // got the data from a read
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
  279 |   isec = 0; ForAllSections(sec)
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                           
  280 |    ss_[isec].sec = sec;
      |    ~~~~~~~~~~~~~~~~~~~~                                   
  281 |    section_ref(ss_[isec].sec);
      |    ~~~~~~~~~~~~~~~~~~~~~~~~~~~                            
  282 |    ++isec;
      |    ~~~~~~~                                                
  283 |   }
      |   ~                                                       
  284 |  }
      |  ~                                                        
  285 |  for (int i=0, j=0; i < n_memb_func; ++i) if (nrn_is_artificial_[i]) {
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
  286 |   if (!checkacell(acell_[j], i, warn)) {
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                  
  287 |    return false;
      |    ~~~~~~~~~~~~~                                          
  288 |   }
      |   ~                                                       
  289 |   ++j;
      |   ~~~~                                                    
  290 |  }
      |  ~                                                        
  291 |  for (int isec=0; isec < nsec_; ++isec) {
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                 
  292 |   SecState& ss = ss_[isec];
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~                               
  293 |   Section* sec = ss.sec;
      |   ~~~~~~~~~~~~~~~~~~~~~~                                  
  294 |   if (!sec->prop || sec->nnode != ss.nnode) {
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~             
  295 | if (warn) {
      | ~~~~~~~~~~~                                               
  296 | if (!sec->prop) {
      | ~~~~~~~~~~~~~~~~~                                         
  297 | fprintf(stderr, "SaveState warning: saved section no longer exists\n");
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
  298 | }else{
      | ~~~~~~                                                    
  299 | fprintf(stderr, "SaveState warning: %s has %d nodes but saved %d\n",
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
  300 |     secname(sec), sec->nnode, ss.nnode);
      |     ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                  
  301 | }
      | ~                                                         
  302 | }
      | ~                                                         
  303 |    return false;
      |    ~~~~~~~~~~~~~                                          
  304 |   }
      |   ~                                                       
  305 |   for (int inode = 0; inode < ss.nnode; ++inode) {
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~        
  306 |    NodeState& ns = ss.ns[inode];
      |    ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                          
  307 |    Node* nd = sec->pnode[inode];
      |    ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                          
  308 |    int i=0;
      |    ~~~~~~~~                                               
  309 |    Prop* p;
      |    ~~~~~~~~                                               
  310 |    for (p = nd->prop; p; p = p->next) {
      |    ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                   
  311 |     if (ssi[p->type].size == 0) {
      |     ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                         
  312 |      continue;
      |      ~~~~~~~~~                                            
  313 |     }
      |     ~                                                     
  314 |     if (i >= ns.nmemb) {
      |     ~~~~~~~~~~~~~~~~~~~~                                  
  315 | if (warn) {
      | ~~~~~~~~~~~                                               
  316 | fprintf(stderr,"SaveState warning: \
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                      
  317 | fewer mechanisms saved than exist at node %d of %s\n",
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~    
  318 |  inode, secname(sec));
      |  ~~~~~~~~~~~~~~~~~~~~~                                    
  319 | }
      | ~                                                         
  320 |      return false;
      |      ~~~~~~~~~~~~~                                        
  321 |     }
      |     ~                                                     
  322 |     if (p->type != ns.type[i]) {
      |     ~~~~~~~~~~~~~~~~~~~~~~~~~~~~                          
  323 | if (warn) {
      | ~~~~~~~~~~~                                               
  324 | fprintf(stderr, "SaveState warning: mechanisms out of order at node %d of %s\n\
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
  325 | saved %s but need %s\n",
      | ~~~~~~~~~~~~~~~~~~~~~~~~                                  
  326 | inode, secname(sec), memb_func[i].sym->name, memb_func[p->type].sym->name);
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
  327 | }
      | ~                                                         
  328 |      return false;
      |      ~~~~~~~~~~~~~                                        
  329 |     }
      |     ~                                                     
  330 |     ++i;
      |     ~~~~                                                  
  331 |    }
      |    ~                                                      
  332 |    if (i != ns.nmemb) {
      |    ~~~~~~~~~~~~~~~~~~~~                                   
  333 | if (warn) {
      | ~~~~~~~~~~~                                               
  334 | fprintf(stderr, "SaveState warning: more mechanisms saved than exist at node %d of %s\n",
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
  335 |  inode, secname(sec));
      |  ~~~~~~~~~~~~~~~~~~~~~                                    
  336 | }
      | ~                                                         
  337 |     return false;
      |     ~~~~~~~~~~~~~                                         
  338 |    }
      |    ~                                                      
  339 |   }
      |   ~                                                       
  340 |   if (!sec->parentsec || ss.root) {
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                       
  341 |    if (sec->parentsec || !ss.root) {
      |    ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                      
  342 | if (warn) {
      | ~~~~~~~~~~~                                               
  343 | fprintf(stderr, "SaveState warning: Saved section and %s are not both root sections.\n",
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
  344 |  secname(sec));
      |  ~~~~~~~~~~~~~~                                           
  345 | }
      | ~                                                         
  346 |    }
      |    ~                                                      
  347 |    if (!checknode(*ss.root, sec->parentnode, warn)) {
      |    ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~     
  348 |     return false;
      |     ~~~~~~~~~~~~~                                         
  349 |    }
      |    ~                                                      
  350 |   }
      |   ~                                                       
  351 | 
      |                                                           
  352 |  }
      |  ~                                                        
  353 |  if (!checknet(warn)) { return false; }
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                   
  354 |  return true;
      |  ~~~~~~~~~~~~                                             
  355 | }
      | ~                                                         
  356 | 
      |                                                           
  357 | bool SaveState::checknode(NodeState& ns, Node* nd, bool warn) {
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
  358 |  int i=0;
      |  ~~~~~~~~                                                 
  359 |  Prop* p;
      |  ~~~~~~~~                                                 
  360 |  for (p = nd->prop; p; p = p->next) {
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                     
  361 |   if (ssi[p->type].size == 0) {
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                           
  362 |    continue;
      |    ~~~~~~~~~                                              
  363 |   }
      |   ~                                                       
  364 |   if (i >= ns.nmemb) {
      |   ~~~~~~~~~~~~~~~~~~~~                                    
  365 | if (warn) {
      | ~~~~~~~~~~~                                               
  366 | fprintf(stderr,"SaveState warning: \
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                      
  367 | fewer mechanisms saved than exist at a root node\n");
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~     
  368 | }
      | ~                                                         
  369 |    return false;
      |    ~~~~~~~~~~~~~                                          
  370 |   }
      |   ~                                                       
  371 |   if (p->type != ns.type[i]) {
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~~                            
  372 | if (warn) {
      | ~~~~~~~~~~~                                               
  373 | fprintf(stderr, "SaveState warning: mechanisms out of order at a rootnode\n\
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
  374 | saved %s but need %s\n",
      | ~~~~~~~~~~~~~~~~~~~~~~~~                                  
  375 | memb_func[i].sym->name, memb_func[p->type].sym->name);
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~    
  376 | }
      | ~                                                         
  377 |    return false;
      |    ~~~~~~~~~~~~~                                          
  378 |   }
      |   ~                                                       
  379 |   ++i;
      |   ~~~~                                                    
  380 |  }
      |  ~                                                        
  381 |  if (i != ns.nmemb) {
      |  ~~~~~~~~~~~~~~~~~~~~                                     
  382 | if (warn) {
      | ~~~~~~~~~~~                                               
  383 | fprintf(stderr, "SaveState warning: more mechanisms saved than exist at a rootnode\n");
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
  384 | }
      | ~                                                         
  385 |   return false;
      |   ~~~~~~~~~~~~~                                           
  386 |  }
      |  ~                                                        
  387 |  return true;
      |  ~~~~~~~~~~~~                                             
  388 | }
      | ~                                                         
  389 | 
      |                                                           
  390 | bool SaveState::checkacell(ACellState& ac, int type, bool warn) {
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
  391 |  if (memb_list[type].nodecount != ac.ncell) {
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~             
  392 | if (warn) {
      | ~~~~~~~~~~~                                               
  393 | fprintf(stderr, "SaveState warning: different number of %s saved than exist.\n",
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
  394 | memb_func[type].sym->name);
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~                               
  395 | }
      | ~                                                         
  396 |   return false;
      |   ~~~~~~~~~~~~~                                           
  397 |  }
      |  ~                                                        
  398 |  return true;
      |  ~~~~~~~~~~~~                                             
  399 | }
      | ~                                                         
  400 | 
      |                                                           
  401 | void SaveState::alloc() {
      | ~~~~~~~~~~~~~~~~~~~~~~~~~                                 
  402 |  ssfree();
      |  ~~~~~~~~~                                                
  403 |  int inode, isec;
      |  ~~~~~~~~~~~~~~~~                                         
  404 |  hoc_Item* qsec;
      |  ~~~~~~~~~~~~~~~                                          
  405 |  nsec_ = section_count;
      |  ~~~~~~~~~~~~~~~~~~~~~~                                   
  406 |  ss_ = new SecState[nsec_];
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~                               
  407 |  nroot_ = 0;
      |  ~~~~~~~~~~~                                              
  408 |  isec = 0;
      |  ~~~~~~~~~                                                
  409 |  ForAllSections(sec)
      |  ~~~~~~~~~~~~~~~~~~~                                      
  410 |   SecState& ss = ss_[isec];
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~                               
  411 |   ss.sec = sec;
      |   ~~~~~~~~~~~~~                                           
  412 |   section_ref(ss.sec);
      |   ~~~~~~~~~~~~~~~~~~~~                                    
  413 |   ss.nnode = ss.sec->nnode;
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~                               
  414 |   ss.ns = new NodeState[ss.nnode];
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                        
  415 |   for (inode = 0; inode < ss.nnode; ++inode) {
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~            
  416 |    Node* nd = ss.sec->pnode[inode];
      |    ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                       
  417 |    NodeState& ns = ss.ns[inode];
      |    ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                          
  418 |    allocnode(ns, nd);
      |    ~~~~~~~~~~~~~~~~~~                                     
  419 |   }
      |   ~                                                       
  420 |   if (!sec->parentsec) {
      |   ~~~~~~~~~~~~~~~~~~~~~~                                  
  421 |    assert(sec->parentnode);
      |    ~~~~~~~~~~~~~~~~~~~~~~~~                               
  422 |    ss.root = new NodeState;
      |    ~~~~~~~~~~~~~~~~~~~~~~~~                               
  423 |    allocnode(*ss.root, sec->parentnode);
      |    ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                  
  424 |    ++nroot_;
      |    ~~~~~~~~~                                              
  425 |   }else{
      |   ~~~~~~                                                  
  426 |    ss.root = 0;
      |    ~~~~~~~~~~~~                                           
  427 |   }
      |   ~                                                       
  428 |   ++isec;
      |   ~~~~~~~                                                 
  429 |  }
      |  ~                                                        
  430 |  assert(isec == section_count);
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                           
  431 |  assert(nroot_ == nrn_global_ncell);
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                      
  432 |  for (int i=0, j=0; i < n_memb_func; ++i) if (nrn_is_artificial_[i]) {
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
  433 |   allocacell(acell_[j], i);
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~                               
  434 |   ++j;
      |   ~~~~                                                    
  435 |  }
      |  ~                                                        
  436 |  PlayRecList* prl = net_cvode_instance_prl();
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~             
  437 |  nprs_ = prl->count();
      |  ~~~~~~~~~~~~~~~~~~~~~                                    
  438 |  if (nprs_) {
      |  ~~~~~~~~~~~~                                             
  439 |   prs_ = new PlayRecordSave*[nprs_];
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                      
  440 |  }
      |  ~                                                        
  441 |  allocnet();
      |  ~~~~~~~~~~~                                              
  442 | }
      | ~                                                         
  443 | 
      |                                                           
  444 | void SaveState::allocnode(NodeState& ns, Node* nd) {
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~      
  445 |  ns.nmemb = 0;
      |  ~~~~~~~~~~~~~                                            
  446 |  ns.type = NULL;
      |  ~~~~~~~~~~~~~~~                                          
  447 |  ns.state = NULL;
      |  ~~~~~~~~~~~~~~~~                                         
  448 |  ns.nstate = 0;
      |  ~~~~~~~~~~~~~~                                           
  449 |  Prop* p;
      |  ~~~~~~~~                                                 
  450 |  for (p = nd->prop; p; p = p->next) {
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                     
  451 |   if (ssi[p->type].size == 0) {
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                           
  452 |    continue;
      |    ~~~~~~~~~                                              
  453 |   }
      |   ~                                                       
  454 |   ++ns.nmemb;
      |   ~~~~~~~~~~~                                             
  455 |   ns.nstate += ssi[p->type].size;
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                         
  456 |  }
      |  ~                                                        
  457 |  if (ns.nmemb) {
      |  ~~~~~~~~~~~~~~~                                          
  458 |   ns.type = new int[ns.nmemb];
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~~                            
  459 |  }
      |  ~                                                        
  460 |  if (ns.nstate) {
      |  ~~~~~~~~~~~~~~~~                                         
  461 |   ns.state = new double[ns.nstate];
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                       
  462 |  }
      |  ~                                                        
  463 |  int i = 0;
      |  ~~~~~~~~~~                                               
  464 |  for (p = nd->prop; p; p = p->next) {
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                     
  465 |   if (ssi[p->type].size == 0) {
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                           
  466 |    continue;
      |    ~~~~~~~~~                                              
  467 |   }
      |   ~                                                       
  468 |   ns.type[i] = p->type;
      |   ~~~~~~~~~~~~~~~~~~~~~                                   
  469 |   ++i;
      |   ~~~~                                                    
  470 |  }
      |  ~                                                        
  471 | }
      | ~                                                         
  472 | 
      |                                                           
  473 | void SaveState::allocacell(ACellState& ac, int type) {
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~    
  474 |  Memb_list& ml = memb_list[type];
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                         
  475 |  ac.type = type;
      |  ~~~~~~~~~~~~~~~                                          
  476 |  ac.ncell = ml.nodecount;
      |  ~~~~~~~~~~~~~~~~~~~~~~~~                                 
  477 |  ac.state = new double[ac.ncell * ssi[type].size];
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~        
  478 | }
      | ~                                                         
  479 | 
      |                                                           
  480 | void SaveState::ssfree() {
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~                                
  481 |  int i, isec, inode;
      |  ~~~~~~~~~~~~~~~~~~~                                      
  482 |  for (isec=0; isec < nsec_; ++isec) {
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                     
  483 |   SecState& ss = ss_[isec];
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~                               
  484 |   for (inode = 0; inode < ss.nnode; ++inode) {
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~            
  485 |    NodeState& ns = ss.ns[inode];
      |    ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                          
  486 |    if (ns.nmemb) {
      |    ~~~~~~~~~~~~~~~                                        
  487 |     delete [] ns.type;
      |     ~~~~~~~~~~~~~~~~~~                                    
  488 |    }
      |    ~                                                      
  489 |    if (ns.nstate) {
      |    ~~~~~~~~~~~~~~~~                                       
  490 |     delete [] ns.state;
      |     ~~~~~~~~~~~~~~~~~~~                                   
  491 |    }
      |    ~                                                      
  492 |   }
      |   ~                                                       
  493 |   if (ss.root) {
      |   ~~~~~~~~~~~~~~                                          
  494 |    NodeState& ns = *ss.root;
      |    ~~~~~~~~~~~~~~~~~~~~~~~~~                              
  495 |    if (ns.nmemb) {
      |    ~~~~~~~~~~~~~~~                                        
  496 |     delete [] ns.type;
      |     ~~~~~~~~~~~~~~~~~~                                    
  497 |    }
      |    ~                                                      
  498 |    if (ns.nstate) {
      |    ~~~~~~~~~~~~~~~~                                       
  499 |     delete [] ns.state;
      |     ~~~~~~~~~~~~~~~~~~~                                   
  500 |    }
      |    ~                                                      
  501 |    delete ss.root;
      |    ~~~~~~~~~~~~~~~                                        
  502 |   }
      |   ~                                                       
  503 |   if (ss.nnode) {
      |   ~~~~~~~~~~~~~~~                                         
  504 |    delete [] ss.ns;
      |    ~~~~~~~~~~~~~~~~                                       
  505 |   }
      |   ~                                                       
  506 |   if (ss.sec) { // got info from an fread but never checked it
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
  507 |    section_unref(ss.sec);
      |    ~~~~~~~~~~~~~~~~~~~~~~                                 
  508 |   }
      |   ~                                                       
  509 |  }
      |  ~                                                        
  510 |  if (nsec_) {
      |  ~~~~~~~~~~~~                                             
  511 |   delete [] ss_;
      |   ~~~~~~~~~~~~~~                                          
  512 |  }
      |  ~                                                        
  513 |  nsec_ = 0;
      |  ~~~~~~~~~~                                               
  514 |  ss_ = NULL;
      |  ~~~~~~~~~~~                                              
  515 |  for (i=0; i < nacell_; ++i) {
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                            
  516 |   if (acell_[i].ncell) {
      |   ~~~~~~~~~~~~~~~~~~~~~~                                  
  517 |    delete [] acell_[i].state;
      |    ~~~~~~~~~~~~~~~~~~~~~~~~~~                             
  518 |    acell_[i].state = 0;
      |    ~~~~~~~~~~~~~~~~~~~~                                   
  519 |    acell_[i].ncell = 0;
      |    ~~~~~~~~~~~~~~~~~~~~                                   
  520 |   }
      |   ~                                                       
  521 |  } // note we do not destroy the acell_.
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                  
  522 |  if (nncs_) {
      |  ~~~~~~~~~~~~                                             
  523 |   for (i = 0; i < nncs_; ++i) {
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                           
  524 |    if (ncs_[i].nstate) {
      |    ~~~~~~~~~~~~~~~~~~~~~                                  
  525 |     delete [] ncs_[i].state;
      |     ~~~~~~~~~~~~~~~~~~~~~~~~                              
  526 |    }
      |    ~                                                      
  527 |   }
      |   ~                                                       
  528 |   delete [] ncs_;
      |   ~~~~~~~~~~~~~~~                                         
  529 |  }
      |  ~                                                        
  530 |  nncs_ = 0;
      |  ~~~~~~~~~~                                               
  531 |  ncs_ = NULL;
      |  ~~~~~~~~~~~~                                             
  532 |  if (npss_) {
      |  ~~~~~~~~~~~~                                             
  533 |   delete [] pss_;
      |   ~~~~~~~~~~~~~~~                                         
  534 |  }
      |  ~                                                        
  535 |  npss_ = 0;
      |  ~~~~~~~~~~                                               
  536 |  pss_ = NULL;
      |  ~~~~~~~~~~~~                                             
  537 |  free_tq();
      |  ~~~~~~~~~~                                               
  538 |  if (nprs_) {
      |  ~~~~~~~~~~~~                                             
  539 |   for (i=0; i < nprs_; ++i) {
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~                             
  540 |    delete prs_[i];
      |    ~~~~~~~~~~~~~~~                                        
  541 |   }
      |   ~                                                       
  542 |   delete [] prs_;
      |   ~~~~~~~~~~~~~~~                                         
  543 |  }
      |  ~                                                        
  544 |  nprs_ = 0;
      |  ~~~~~~~~~~                                               
  545 | }
      | ~                                                         
  546 | 
      |                                                           
  547 | void SaveState::save() {
      | ~~~~~~~~~~~~~~~~~~~~~~~~                                  
  548 |  NrnThread* nt;
      |  ~~~~~~~~~~~~~~                                           
  549 |  if (!check(false)) {
      |  ~~~~~~~~~~~~~~~~~~~~                                     
  550 |   alloc();
      |   ~~~~~~~~                                                
  551 |  }
      |  ~                                                        
  552 |  FOR_THREADS(nt) {
      |  ~~~~~~~~~~~~~~~~~                                        
  553 |   assert(t == nt->_t);
      |   ~~~~~~~~~~~~~~~~~~~~                                    
  554 |  }
      |  ~                                                        
  555 |  t_ = t;
      |  ~~~~~~~                                                  
  556 |  int inode;
      |  ~~~~~~~~~~                                               
  557 |  for (int isec=0; isec < nsec_; ++isec) {
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                 
  558 |   SecState& ss = ss_[isec];
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~                               
  559 |   Section* sec = ss.sec;
      |   ~~~~~~~~~~~~~~~~~~~~~~                                  
  560 |   for (inode = 0; inode < ss.nnode; ++inode) {
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~            
  561 |    NodeState& ns = ss.ns[inode];
      |    ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                          
  562 |    Node* nd = sec->pnode[inode];
      |    ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                          
  563 |    savenode(ns, nd);
      |    ~~~~~~~~~~~~~~~~~                                      
  564 |   }
      |   ~                                                       
  565 |   if (ss.root) {
      |   ~~~~~~~~~~~~~~                                          
  566 |    NodeState& ns = *ss.root;
      |    ~~~~~~~~~~~~~~~~~~~~~~~~~                              
  567 |    Node* nd = sec->parentnode;
      |    ~~~~~~~~~~~~~~~~~~~~~~~~~~~                            
  568 |    savenode(ns, nd);
      |    ~~~~~~~~~~~~~~~~~                                      
  569 |   }
      |   ~                                                       
  570 |  }
      |  ~                                                        
  571 |  for (int i=0, j=0; i < n_memb_func; ++i) if (nrn_is_artificial_[i]) {
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
  572 |   saveacell(acell_[j], i);
      |   ~~~~~~~~~~~~~~~~~~~~~~~~                                
  573 |   ++j;
      |   ~~~~                                                    
  574 |  }
      |  ~                                                        
  575 |  if (nprs_) {
      |  ~~~~~~~~~~~~                                             
  576 |   PlayRecList* prl = net_cvode_instance_prl();
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~            
  577 |   int i;
      |   ~~~~~~                                                  
  578 |   assert(nprs_ == prl->count());
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                          
  579 |   for (i=0; i < nprs_; ++i) {
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~                             
  580 |    prs_[i] = prl->item(i)->savestate_save();
      |    ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~              
  581 |   }
      |   ~                                                       
  582 |  }
      |  ~                                                        
  583 |  savenet();
      |  ~~~~~~~~~~                                               
  584 | }
      | ~                                                         
  585 | 
      |                                                           
  586 | void SaveState::savenode(NodeState& ns, Node* nd) {
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~       
  587 |  ns.v = NODEV(nd);
      |  ~~~~~~~~~~~~~~~~~                                        
  588 |  int istate = 0;
      |  ~~~~~~~~~~~~~~~                                          
  589 |  Prop* p;
      |  ~~~~~~~~                                                 
  590 |  for (p = nd->prop; p; p = p->next) {
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                     
  591 |   if (ssi[p->type].size == 0) {
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                           
  592 |    continue;
      |    ~~~~~~~~~                                              
  593 |   }
      |   ~                                                       
  594 |   int type = p->type;
      |   ~~~~~~~~~~~~~~~~~~~                                     
  595 |   int max = ssi[type].offset + ssi[type].size;
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~            
  596 | #if EXTRACELLULAR
      | ~~~~~~~~~~~~~~~~~                                         
  597 |   if (type == EXTRACELL) {
      |   ~~~~~~~~~~~~~~~~~~~~~~~~                                
  598 |    for (int i=0; i < nlayer; ++i) {
      |    ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                       
  599 |     ns.state[istate++] = nd->extnode->v[i];
      |     ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~               
  600 |    }
      |    ~                                                      
  601 |   }else
      |   ~~~~~                                                   
  602 | #endif
      | ~~~~~~                                                    
  603 |   {
      |   ~                                                       
  604 |    for (int ip=ssi[type].offset; ip < max; ++ip) {
      |    ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~        
  605 |     ns.state[istate++] = p->param[ip];
      |     ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                    
  606 |    }
      |    ~                                                      
  607 |   }
      |   ~                                                       
  608 |  }
      |  ~                                                        
  609 | }
      | ~                                                         
  610 | 
      |                                                           
  611 | void SaveState::saveacell(ACellState& ac, int type) {
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~     
  612 |  Memb_list& ml = memb_list[type];
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                         
  613 |  int sz = ssi[type].size;
      |  ~~~~~~~~~~~~~~~~~~~~~~~~                                 
  614 |  double* p = ac.state;
      |  ~~~~~~~~~~~~~~~~~~~~~                                    
  615 |  for (int i = 0; i < ml.nodecount; ++i) {
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                 
  616 |   double* d = ml.data[i];
      |   ~~~~~~~~~~~~~~~~~~~~~~~                                 
  617 |   for (int j=0; j < sz; ++j) {
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~~                            
  618 |    (*p++) = d[j];
      |    ~~~~~~~~~~~~~~                                         
  619 |   }
      |   ~                                                       
  620 |  }
      |  ~                                                        
  621 | }
      | ~                                                         
  622 | 
      |                                                           
  623 | void SaveState::restore(int type) {
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                       
  624 |  NrnThread* nt;
      |  ~~~~~~~~~~~~~~                                           
  625 |  if (!check(true)) {
      |  ~~~~~~~~~~~~~~~~~~~                                      
  626 |   hoc_execerror("SaveState:",
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~                             
  627 |   "Stored state inconsistent with current neuron structure");
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
  628 |  }
      |  ~                                                        
  629 |  t = t_;
      |  ~~~~~~~                                                  
  630 |  FOR_THREADS(nt) {
      |  ~~~~~~~~~~~~~~~~~                                        
  631 |   nt->_t = t_;
      |   ~~~~~~~~~~~~                                            
  632 |  }
      |  ~                                                        
  633 |  int inode;
      |  ~~~~~~~~~~                                               
  634 |  for (int isec=0; isec < nsec_; ++isec) {
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                 
  635 |   SecState& ss = ss_[isec];
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~                               
  636 |   Section* sec = ss.sec;
      |   ~~~~~~~~~~~~~~~~~~~~~~                                  
  637 |   for (inode = 0; inode < ss.nnode; ++inode) {
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~            
  638 |    NodeState& ns = ss.ns[inode];
      |    ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                          
  639 |    Node* nd = sec->pnode[inode];
      |    ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                          
  640 |    restorenode(ns, nd);
      |    ~~~~~~~~~~~~~~~~~~~~                                   
  641 |   }
      |   ~                                                       
  642 |   if (ss.root) {
      |   ~~~~~~~~~~~~~~                                          
  643 |    NodeState& ns = *ss.root;
      |    ~~~~~~~~~~~~~~~~~~~~~~~~~                              
  644 |    Node* nd = sec->parentnode;
      |    ~~~~~~~~~~~~~~~~~~~~~~~~~~~                            
  645 |    restorenode(ns, nd);
      |    ~~~~~~~~~~~~~~~~~~~~                                   
  646 |   }
      |   ~                                                       
  647 |  }
      |  ~                                                        
  648 |  for (int i=0, j=0; i < n_memb_func; ++i) if (nrn_is_artificial_[i]) {
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
  649 |   restoreacell(acell_[j], i);
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~                             
  650 |   ++j;
      |   ~~~~                                                    
  651 |  }
      |  ~                                                        
  652 |  if (type == 1) { return; }
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~                               
  653 |  PlayRecList* prl = net_cvode_instance_prl();
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~             
  654 |  // during a local step the PlayRecList is augmented with GLineRecord
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
  655 |  // assert(nprs_ == prl->count());
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                        
  656 |  assert(nprs_ <= prl->count());
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                           
  657 |  int i;
      |  ~~~~~~                                                   
  658 |  for (i = 0; i < nprs_; ++i) {
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                            
  659 |   prs_[i]->savestate_restore();
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                           
  660 |  }
      |  ~                                                        
  661 |  restorenet();
      |  ~~~~~~~~~~~~~                                            
  662 | }
      | ~                                                         
  663 | 
      |                                                           
  664 | void SaveState::restorenode(NodeState& ns, Node* nd) {
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~    
  665 |  NODEV(nd) = ns.v;;
      |  ~~~~~~~~~~~~~~~~~~                                       
  666 |  int istate = 0;
      |  ~~~~~~~~~~~~~~~                                          
  667 |  Prop* p;
      |  ~~~~~~~~                                                 
  668 |  for (p = nd->prop; p; p = p->next) {
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                     
  669 |   if (ssi[p->type].size == 0) {
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                           
  670 |    continue;
      |    ~~~~~~~~~                                              
  671 |   }
      |   ~                                                       
  672 |   int type = p->type;
      |   ~~~~~~~~~~~~~~~~~~~                                     
  673 |   int max = ssi[type].offset + ssi[type].size;
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~            
  674 | #if EXTRACELLULAR
      | ~~~~~~~~~~~~~~~~~                                         
  675 |   if (type == EXTRACELL) {
      |   ~~~~~~~~~~~~~~~~~~~~~~~~                                
  676 |    for (int i=0; i < nlayer; ++i) {
      |    ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                       
  677 |     nd->extnode->v[i] = ns.state[istate++];
      |     ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~               
  678 |    }
      |    ~                                                      
  679 |   }else
      |   ~~~~~                                                   
  680 | #endif
      | ~~~~~~                                                    
  681 |   {
      |   ~                                                       
  682 |    for (int ip=ssi[type].offset; ip < max; ++ip) {
      |    ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~        
  683 |     p->param[ip] = ns.state[istate++];
      |     ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                    
  684 |    }
      |    ~                                                      
  685 |   }
      |   ~                                                       
  686 |  }
      |  ~                                                        
  687 | }
      | ~                                                         
  688 | 
      |                                                           
  689 | void SaveState::restoreacell(ACellState& ac, int type) {
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~  
  690 |  Memb_list& ml = memb_list[type];
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                         
  691 |  int sz = ssi[type].size;
      |  ~~~~~~~~~~~~~~~~~~~~~~~~                                 
  692 |  double* p = ac.state;
      |  ~~~~~~~~~~~~~~~~~~~~~                                    
  693 |  for (int i = 0; i < ml.nodecount; ++i) {
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                 
  694 |   double* d = ml.data[i];
      |   ~~~~~~~~~~~~~~~~~~~~~~~                                 
  695 |   for (int j=0; j < sz; ++j) {
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~~                            
  696 |    d[j] = (*p++);
      |    ~~~~~~~~~~~~~~                                         
  697 |   }
      |   ~                                                       
  698 |  }
      |  ~                                                        
  699 | }
      | ~                                                         
  700 | 
      |                                                           
  701 | void SaveState::read(OcFile* ocf, bool close) {
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~           
  702 |  if (!ocf->open(ocf->get_name(), "r")) {
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                  
  703 |   hoc_execerror("Couldn't open file for reading:", ocf->get_name());
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
  704 |  }
      |  ~                                                        
  705 |  nrn_shape_update();
      |  ~~~~~~~~~~~~~~~~~~~                                      
  706 |  BinaryMode(ocf)
      |  ~~~~~~~~~~~~~~~                                          
  707 |  FILE* f = ocf->file();
      |  ~~~~~~~~~~~~~~~~~~~~~~                                   
  708 |  ssfree();
      |  ~~~~~~~~~                                                
  709 |  char buf[200];
      |  ~~~~~~~~~~~~~~                                           
  710 |  ASSERTfgets(buf, 200, f);
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~                                
  711 |  if (strcmp(buf, "SaveState binary file version 6.0\n") != 0) {
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
  712 |   ocf->close();
      |   ~~~~~~~~~~~~~                                           
  713 |   hoc_execerror("Bad SaveState binary file", " Not version 6.0");
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
  714 |  }
      |  ~                                                        
  715 |  ASSERTfread((char*)&t_, sizeof(double), 1, f);
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~           
  716 | // fscanf(f, "%d %d\n", &nsec_, &nrootnode_);
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~             
  717 | // on some os's fscanf leaves file pointer at wrong place for next fread
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
  718 | // can check it with ftell(f)
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                             
  719 |  ASSERTfgets(buf, 200, f);
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~                                
  720 |  sscanf(buf, "%d %d\n", &nsec_, &nroot_);
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                 
  721 |  // to enable comparison of SaveState files, we avoid
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~     
  722 |  // putting pointers in the files and instead explicitly read/write
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
  723 |  // structure elements.
      |  ~~~~~~~~~~~~~~~~~~~~~~                                   
  724 |  ss_ = new SecState[nsec_];
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~                               
  725 |  fread_SecState(ss_, nsec_, f);
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                           
  726 |  for (int isec=0; isec < nsec_; ++isec) {
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                 
  727 |   SecState& ss = ss_[isec];
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~                               
  728 |   ss.sec = NULL;
      |   ~~~~~~~~~~~~~~                                          
  729 |   ss.ns = new NodeState[ss.nnode];
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                        
  730 |   fread_NodeState(ss.ns, ss.nnode, f);
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                    
  731 |   for (int inode = 0; inode < ss.nnode; ++inode) {
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~        
  732 |    NodeState& ns = ss.ns[inode];
      |    ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                          
  733 |    if (ns.nmemb) {
      |    ~~~~~~~~~~~~~~~                                        
  734 |     ns.type = new int[ns.nmemb];
      |     ~~~~~~~~~~~~~~~~~~~~~~~~~~~~                          
  735 |     ASSERTfread((char*)ns.type, sizeof(int), ns.nmemb, f);
      |     ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
  736 |    }
      |    ~                                                      
  737 |    if (ns.nstate) {
      |    ~~~~~~~~~~~~~~~~                                       
  738 |     ns.state = new double[ns.nstate];
      |     ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                     
  739 |     ASSERTfread((char*)ns.state, sizeof(double), ns.nstate, f);
      |     ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
  740 |    }
      |    ~                                                      
  741 |   }
      |   ~                                                       
  742 |   if (ss.root) {
      |   ~~~~~~~~~~~~~~                                          
  743 |    fread_NodeState(ss.root, 1, f);
      |    ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                        
  744 |    NodeState& ns = *ss.root;
      |    ~~~~~~~~~~~~~~~~~~~~~~~~~                              
  745 |    if (ns.nmemb) {
      |    ~~~~~~~~~~~~~~~                                        
  746 |     ns.type = new int[ns.nmemb];
      |     ~~~~~~~~~~~~~~~~~~~~~~~~~~~~                          
  747 |     ASSERTfread((char*)ns.type, sizeof(int), ns.nmemb, f);
      |     ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
  748 |    }
      |    ~                                                      
  749 |    if (ns.nstate) {
      |    ~~~~~~~~~~~~~~~~                                       
  750 |     ns.state = new double[ns.nstate];
      |     ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                     
  751 |     ASSERTfread((char*)ns.state, sizeof(double), ns.nstate, f);
      |     ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
  752 |    }
      |    ~                                                      
  753 |   }
      |   ~                                                       
  754 |  }
      |  ~                                                        
  755 |  int n = 0;
      |  ~~~~~~~~~~                                               
  756 |  ASSERTfgets(buf, 20, f);
      |  ~~~~~~~~~~~~~~~~~~~~~~~~                                 
  757 |  sscanf(buf, "%d\n", &n);
      |  ~~~~~~~~~~~~~~~~~~~~~~~~                                 
  758 |  assert(n == nacell_);
      |  ~~~~~~~~~~~~~~~~~~~~~                                    
  759 |  for (int i=0, j=0; i < n_memb_func; ++i) if (nrn_is_artificial_[i]) {
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
  760 |   int nt = 0, nc = 0, ns = 0;
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~                             
  761 |   ASSERTfgets(buf, 200, f);
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~                               
  762 |   nrn_assert(sscanf(buf, "%d %d %d\n", &nt, &nc, &ns) == 3);
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
  763 |   assert(nt == i && nc == memb_list[i].nodecount);
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~        
  764 |   assert(ns == nc * ssi[i].size);
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                         
  765 |   acell_[j].ncell = nc;
      |   ~~~~~~~~~~~~~~~~~~~~~                                   
  766 |   acell_[j].state = new double[ns];
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                       
  767 |   ASSERTfread((char*)acell_[j].state, sizeof(double), ns, f);
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
  768 |   ++j;
      |   ~~~~                                                    
  769 |  }
      |  ~                                                        
  770 |  ASSERTfgets(buf, 20, f);
      |  ~~~~~~~~~~~~~~~~~~~~~~~~                                 
  771 |  sscanf(buf, "%d\n", &nprs_);
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~                             
  772 |  if (nprs_) {
      |  ~~~~~~~~~~~~                                             
  773 |   prs_ = new PlayRecordSave*[nprs_];
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                      
  774 |   for (int i=0; i < nprs_; ++i) {
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                         
  775 |    prs_[i] = PlayRecord::savestate_read(f);
      |    ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~               
  776 |   }
      |   ~                                                       
  777 |  }
      |  ~                                                        
  778 |  readnet(f);
      |  ~~~~~~~~~~~                                              
  779 |  if (close) {
      |  ~~~~~~~~~~~~                                             
  780 |   ocf->close();
      |   ~~~~~~~~~~~~~                                           
  781 |  }
      |  ~                                                        
  782 | }
      | ~                                                         
  783 | 
      |                                                           
  784 | void SaveState::write(OcFile* ocf, bool close) {
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~          
  785 |  if (!ocf->open(ocf->get_name(), "w")) {
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                  
  786 |   hoc_execerror("Couldn't open file for writing:", ocf->get_name());
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
  787 |  }
      |  ~                                                        
  788 |  BinaryMode(ocf)
      |  ~~~~~~~~~~~~~~~                                          
  789 |  FILE* f = ocf->file();
      |  ~~~~~~~~~~~~~~~~~~~~~~                                   
  790 |  fprintf(f, "SaveState binary file version 6.0\n");
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~       
  791 |  ASSERTfwrite((char*)&t_, sizeof(double), 1, f);
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~          
  792 |  fprintf(f, "%d %d\n", nsec_, nroot_);
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                    
  793 |  fwrite_SecState(ss_, nsec_, f);
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                          
  794 |  for (int isec=0; isec < nsec_; ++isec) {
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                 
  795 |   SecState& ss = ss_[isec];
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~                               
  796 |   fwrite_NodeState(ss.ns, ss.nnode, f);
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                   
  797 |   for (int inode = 0; inode < ss.nnode; ++inode) {
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~        
  798 |    NodeState& ns = ss.ns[inode];
      |    ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                          
  799 |    if (ns.nmemb){
      |    ~~~~~~~~~~~~~~                                         
  800 |     ASSERTfwrite((char*)ns.type, sizeof(int), ns.nmemb, f);
      |     ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~    
/builddir/build/BUILD/nrn-7.8.1/src/oc/nrnassrt.h:23:33: note: in definition of macro 'nrn_assert'
   23 | #  define nrn_assert(ex) {if (!(ex)){fprintf(stderr,"Assertion failed: file %s, line %d\n", __FILE__,__LINE__);hoc_execerror(#ex, (char *)0);}}
      |                                 ^~
/builddir/build/BUILD/nrn-7.8.1/src/nrniv/savstate.cpp:800:5: note: in expansion of macro 'ASSERTfwrite'
  800 |     ASSERTfwrite((char*)ns.type, sizeof(int), ns.nmemb, f);
      |     ^~~~~~~~~~~~
/builddir/build/BUILD/nrn-7.8.1/src/nrniv/savstate.cpp:34:58: warning: comparison of integer expressions of different signedness: 'size_t' {aka 'long unsigned int'} and 'int' [-Wsign-compare]
   34 | #define ASSERTfwrite(a,b,c,d) nrn_assert(fwrite(a,b,c,d) == c)
      |                                          ~~~~~~~~~~~~~~~~^~~~~
   35 | 
      |                                                           
   36 | class SaveState : public Resource {
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                       
   37 | public:
      | ~~~~~~~                                                   
   38 |  SaveState();
      |  ~~~~~~~~~~~~                                             
   39 |  ~SaveState();
      |  ~~~~~~~~~~~~~                                            
   40 |  virtual void save();
      |  ~~~~~~~~~~~~~~~~~~~~                                     
   41 |  virtual void restore(int type);
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                          
   42 |  virtual void read(OcFile*, bool close);
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                  
   43 |  virtual void write(OcFile*, bool close);
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                 
   44 |  struct NodeState {
      |  ~~~~~~~~~~~~~~~~~~                                       
   45 |   double v;
      |   ~~~~~~~~~                                               
   46 |   int nmemb;
      |   ~~~~~~~~~~                                              
   47 |   int* type;
      |   ~~~~~~~~~~                                              
   48 |   int nstate;
      |   ~~~~~~~~~~~                                             
   49 |   double* state;
      |   ~~~~~~~~~~~~~~                                          
   50 |  };
      |  ~~                                                       
   51 |  struct SecState {
      |  ~~~~~~~~~~~~~~~~~                                        
   52 |   Section* sec;
      |   ~~~~~~~~~~~~~                                           
   53 |   int nnode;
      |   ~~~~~~~~~~                                              
   54 |   struct NodeState* ns;
      |   ~~~~~~~~~~~~~~~~~~~~~                                   
   55 |   struct NodeState* root; // non-zero for rootnode
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~        
   56 |  };
      |  ~~                                                       
   57 |  struct StateStructInfo {
      |  ~~~~~~~~~~~~~~~~~~~~~~~~                                 
   58 |   int offset;
      |   ~~~~~~~~~~~                                             
   59 |   int size;
      |   ~~~~~~~~~                                               
   60 |  };
      |  ~~                                                       
   61 |  struct ACellState {
      |  ~~~~~~~~~~~~~~~~~~~                                      
   62 |   int type;
      |   ~~~~~~~~~                                               
   63 |   int ncell;
      |   ~~~~~~~~~~                                              
   64 |   double* state;
      |   ~~~~~~~~~~~~~~                                          
   65 |  };
      |  ~~                                                       
   66 |  struct NetConState {
      |  ~~~~~~~~~~~~~~~~~~~~                                     
   67 |   int object_index; // for checking
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                       
   68 |   int nstate;
      |   ~~~~~~~~~~~                                             
   69 |   double* state;
      |   ~~~~~~~~~~~~~~                                          
   70 |  };
      |  ~~                                                       
   71 |  struct PreSynState {
      |  ~~~~~~~~~~~~~~~~~~~~                                     
   72 |   bool flag; // is it firing?
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~                             
   73 |   double valthresh, valold, told;
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                         
   74 | 
      |                                                           
   75 |  };
      |  ~~                                                       
   76 |  struct TQState {
      |  ~~~~~~~~~~~~~~~~                                         
   77 |   int nstate;
      |   ~~~~~~~~~~~                                             
   78 |   double* tdeliver;
      |   ~~~~~~~~~~~~~~~~~                                       
   79 |   DiscreteEvent** items;
      |   ~~~~~~~~~~~~~~~~~~~~~~                                  
   80 |  };
      |  ~~                                                       
   81 | private:
      | ~~~~~~~~                                                  
   82 |  bool check(bool warn);
      |  ~~~~~~~~~~~~~~~~~~~~~~                                   
   83 |  void alloc();
      |  ~~~~~~~~~~~~~                                            
   84 |  void ssfree();
      |  ~~~~~~~~~~~~~~                                           
   85 |  void ssi_def();
      |  ~~~~~~~~~~~~~~~                                          
   86 | private:
      | ~~~~~~~~                                                  
   87 |  void fread_NodeState(NodeState*, int, FILE*);
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~            
   88 |  void fwrite_NodeState(NodeState*, int, FILE*);
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~           
   89 |  void fread_SecState(SecState*, int, FILE*);
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~              
   90 |  void fwrite_SecState(SecState*, int, FILE*);
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~             
   91 | private:
      | ~~~~~~~~                                                  
   92 |  double t_;
      |  ~~~~~~~~~~                                               
   93 |  int nroot_;
      |  ~~~~~~~~~~~                                              
   94 |  int nsec_;
      |  ~~~~~~~~~~                                               
   95 |  SecState* ss_;
      |  ~~~~~~~~~~~~~~                                           
   96 |  int nacell_; // number of types
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                          
   97 |  ACellState* acell_;
      |  ~~~~~~~~~~~~~~~~~~~                                      
   98 |  int nncs_;
      |  ~~~~~~~~~~                                               
   99 |  NetConState* ncs_;
      |  ~~~~~~~~~~~~~~~~~~                                       
  100 |  int npss_;
      |  ~~~~~~~~~~                                               
  101 |  PreSynState* pss_;
      |  ~~~~~~~~~~~~~~~~~~                                       
  102 |  TQState* tqs_;
      |  ~~~~~~~~~~~~~~                                           
  103 |  int tqcnt_; // volatile for index of forall_callback
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~     
  104 |  int nprs_;
      |  ~~~~~~~~~~                                               
  105 |  PlayRecordSave** prs_;
      |  ~~~~~~~~~~~~~~~~~~~~~~                                   
  106 |  static StateStructInfo* ssi;
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~                             
  107 |  static cTemplate* nct;
      |  ~~~~~~~~~~~~~~~~~~~~~~                                   
  108 | private:
      | ~~~~~~~~                                                  
  109 |  void savenode(NodeState&, Node*);
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                        
  110 |  void restorenode(NodeState&, Node*);
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                     
  111 |  bool checknode(NodeState&, Node*, bool);
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                 
  112 |  void allocnode(NodeState&, Node*);
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                       
  113 | 
      |                                                           
  114 |  void saveacell(ACellState&, int type);
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                   
  115 |  void restoreacell(ACellState&, int type);
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                
  116 |  bool checkacell(ACellState&, int type, bool);
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~            
  117 |  void allocacell(ACellState&, int type);
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                  
  118 | 
      |                                                           
  119 |  void savenet();
      |  ~~~~~~~~~~~~~~~                                          
  120 |  void restorenet();
      |  ~~~~~~~~~~~~~~~~~~                                       
  121 |  void readnet(FILE*);
      |  ~~~~~~~~~~~~~~~~~~~~                                     
  122 |  void writenet(FILE*);
      |  ~~~~~~~~~~~~~~~~~~~~~                                    
  123 |  bool checknet(bool);
      |  ~~~~~~~~~~~~~~~~~~~~                                     
  124 |  void allocnet();
      |  ~~~~~~~~~~~~~~~~                                         
  125 |  void free_tq();
      |  ~~~~~~~~~~~~~~~                                          
  126 |  void alloc_tq();
      |  ~~~~~~~~~~~~~~~~                                         
  127 | public:
      | ~~~~~~~                                                   
  128 |  void tqcount(const TQItem*, int);
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                        
  129 |  void tqsave(const TQItem*, int);
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                         
  130 | };
      | ~~                                                        
  131 | 
      |                                                           
  132 | static SaveState* this_savestate;
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                         
  133 | static int callback_mode;
      | ~~~~~~~~~~~~~~~~~~~~~~~~~                                 
  134 | 
      |                                                           
  135 | void tqcallback(const TQItem* tq, int i) {
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                
  136 |  if (callback_mode == 0) {
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~                                
  137 |   this_savestate->tqcount(tq, i);
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                         
  138 |  }else{
      |  ~~~~~~                                                   
  139 |   this_savestate->tqsave(tq, i);
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                          
  140 |  }
      |  ~                                                        
  141 | }
      | ~                                                         
  142 | 
      |                                                           
  143 | #if __sgi && 0
      | ~~~~~~~~~~~~~~                                            
  144 | // fixed in version 5 of os
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~                               
  145 | StateStructInfo* SaveState::ssi;
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                          
  146 | #else
      | ~~~~~                                                     
  147 | SaveState::StateStructInfo* SaveState::ssi;
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~               
  148 | #endif
      | ~~~~~~                                                    
  149 | cTemplate* SaveState::nct;
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~                                
  150 | 
      |                                                           
  151 | SaveState::SaveState() {
      | ~~~~~~~~~~~~~~~~~~~~~~~~                                  
  152 |  int i, j;
      |  ~~~~~~~~~                                                
  153 |  ssi_def();
      |  ~~~~~~~~~~                                               
  154 |  nroot_ = 0;
      |  ~~~~~~~~~~~                                              
  155 |  ss_ = NULL;
      |  ~~~~~~~~~~~                                              
  156 |  nsec_ = 0;
      |  ~~~~~~~~~~                                               
  157 |  nncs_ = 0;
      |  ~~~~~~~~~~                                               
  158 |  ncs_ = NULL;
      |  ~~~~~~~~~~~~                                             
  159 |  npss_ = 0;
      |  ~~~~~~~~~~                                               
  160 |  pss_ = NULL;
      |  ~~~~~~~~~~~~                                             
  161 |  tqs_ = new TQState();
      |  ~~~~~~~~~~~~~~~~~~~~~                                    
  162 |  tqs_->nstate = 0;
      |  ~~~~~~~~~~~~~~~~~                                        
  163 |  nprs_ = 0;
      |  ~~~~~~~~~~                                               
  164 |  prs_ = NULL;
      |  ~~~~~~~~~~~~                                             
  165 |  nacell_ = 0;
      |  ~~~~~~~~~~~~                                             
  166 |  for (i=0; i < n_memb_func; ++i) if (nrn_is_artificial_[i]) {
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
  167 |   ++nacell_;
      |   ~~~~~~~~~~                                              
  168 |  }
      |  ~                                                        
  169 |  acell_ = new ACellState[nacell_];
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                        
  170 |  for (i=0; i < nacell_; ++i) {
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                            
  171 |   acell_[i].ncell = 0;
      |   ~~~~~~~~~~~~~~~~~~~~                                    
  172 |   acell_[i].state = 0;
      |   ~~~~~~~~~~~~~~~~~~~~                                    
  173 |  }
      |  ~                                                        
  174 |  for (i=0, j=0; i < n_memb_func; ++i) if (nrn_is_artificial_[i]) {
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
  175 |   acell_[j].type = i;
      |   ~~~~~~~~~~~~~~~~~~~                                     
  176 |   ++j;
      |   ~~~~                                                    
  177 |  }
      |  ~                                                        
  178 | }
      | ~                                                         
  179 | 
      |                                                           
  180 | SaveState::~SaveState() {
      | ~~~~~~~~~~~~~~~~~~~~~~~~~                                 
  181 |  ssfree();
      |  ~~~~~~~~~                                                
  182 |  delete tqs_;
      |  ~~~~~~~~~~~~                                             
  183 |  delete [] acell_;
      |  ~~~~~~~~~~~~~~~~~                                        
  184 | }
      | ~                                                         
  185 | 
      |                                                           
  186 | void SaveState::fread_NodeState(NodeState* ns, int cnt, FILE* f) {
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
  187 |  for (int i=0; i < cnt; ++i) {
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                            
  188 |   ASSERTfread(&ns[i].v, sizeof(double), 1, f);
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~            
  189 |   ASSERTfread(&ns[i].nmemb, sizeof(int), 1, f);
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~           
  190 |   ASSERTfread(&ns[i].nstate, sizeof(int), 1, f);
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~          
  191 |  }
      |  ~                                                        
  192 | }
      | ~                                                         
  193 | void SaveState::fwrite_NodeState(NodeState* ns, int cnt, FILE* f){
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
  194 |  for (int i=0; i < cnt; ++i) {
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                            
  195 |   ASSERTfwrite(&ns[i].v, sizeof(double), 1, f);
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~           
  196 |   ASSERTfwrite(&ns[i].nmemb, sizeof(int), 1, f);
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~          
  197 |   ASSERTfwrite(&ns[i].nstate, sizeof(int), 1, f);
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~         
  198 |  }
      |  ~                                                        
  199 | }
      | ~                                                         
  200 | void SaveState::fread_SecState(SecState* ss, int cnt, FILE* f){
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
  201 |  int b;
      |  ~~~~~~                                                   
  202 |  for (int i=0; i < cnt; ++i) {
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                            
  203 |   ASSERTfread(&ss[i].nnode, sizeof(int), 1, f);
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~           
  204 |   ASSERTfread(&b, sizeof(int), 1, f);
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                     
  205 |   if (b) {
      |   ~~~~~~~~                                                
  206 |    ss[i].root = new NodeState;
      |    ~~~~~~~~~~~~~~~~~~~~~~~~~~~                            
  207 |   }else{
      |   ~~~~~~                                                  
  208 |    ss[i].root = 0;
      |    ~~~~~~~~~~~~~~~                                        
  209 |   }
      |   ~                                                       
  210 |  }
      |  ~                                                        
  211 | }
      | ~                                                         
  212 | void SaveState::fwrite_SecState(SecState* ss, int cnt, FILE* f){
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
  213 |  int b;
      |  ~~~~~~                                                   
  214 |  for (int i=0; i < cnt; ++i) {
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                            
  215 |   ASSERTfwrite(&ss[i].nnode, sizeof(int), 1, f);
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~          
  216 |   b = ss[i].root ? 1 : 0;
      |   ~~~~~~~~~~~~~~~~~~~~~~~                                 
  217 |   ASSERTfwrite(&b, sizeof(int), 1, f);
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                    
  218 |  }
      |  ~                                                        
  219 | }
      | ~                                                         
  220 | 
      |                                                           
  221 | void SaveState::ssi_def() {
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~                               
  222 |  if (nct) { return; }
      |  ~~~~~~~~~~~~~~~~~~~~                                     
  223 |  Symbol* s = hoc_lookup("NetCon");
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                        
  224 |  nct = s->u.ctemplate;
      |  ~~~~~~~~~~~~~~~~~~~~~                                    
  225 |  ssi = new StateStructInfo[n_memb_func];
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                  
  226 |  for (int im=0; im < n_memb_func; ++im) {
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                 
  227 |   ssi[im].offset = -1;
      |   ~~~~~~~~~~~~~~~~~~~~                                    
  228 |   ssi[im].size = 0;
      |   ~~~~~~~~~~~~~~~~~                                       
  229 |   if (!memb_func[im].sym) {
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~                               
  230 |    continue;
      |    ~~~~~~~~~                                              
  231 |   }
      |   ~                                                       
  232 |   NrnProperty* np = new NrnProperty(memb_func[im].sym->name);
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
  233 |   // generally we only save STATE variables. However for
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~  
  234 |   // models containing a NET_RECEIVE block, we also need to
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
  235 |   // save everything except the parameters
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                
  236 |   // because they often contain
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                           
  237 |   // logic and analytic state values. Unfortunately, it is often
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
  238 |   // the case that the ASSIGNED variables are not declared as
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
  239 |   // RANGE variables so to avoid missing state, save the whole
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
  240 |   // param array including PARAMETERs.
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                    
  241 |      if  (pnt_receive[im]) {
      |      ~~~~~~~~~~~~~~~~~~~~~~~                              
  242 |   ssi[im].offset = 0;
      |   ~~~~~~~~~~~~~~~~~~~                                     
  243 |   ssi[im].size = np->prop()->param_size;
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                  
  244 |      }else{
      |      ~~~~~~                                               
  245 |   int type = STATE;
      |   ~~~~~~~~~~~~~~~~~                                       
  246 |   for (Symbol* sym = np->first_var(); np->more_var(); sym = np->next_var()) {
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
  247 |    if (np->var_type(sym) == type
      |    ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                          
  248 |        || np->var_type(sym) == STATE
      |        ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                      
  249 |        || sym->subtype == _AMBIGUOUS) {
      |        ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                   
  250 |     if (ssi[im].offset < 0) {
      |     ~~~~~~~~~~~~~~~~~~~~~~~~~                             
  251 |      ssi[im].offset = np->prop_index(sym);
      |      ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                
  252 |     }
      |     ~                                                     
  253 |     ssi[im].size += hoc_total_array_data(sym, 0);
      |     ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~         
  254 |    }
      |    ~                                                      
  255 |   }
      |   ~                                                       
  256 |      }
      |      ~                                                    
  257 |      delete np;
      |      ~~~~~~~~~~                                           
  258 |  }
      |  ~                                                        
  259 | }
      | ~                                                         
  260 | 
      |                                                           
  261 | bool SaveState::check(bool warn) {
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                        
  262 |  hoc_Item* qsec;
      |  ~~~~~~~~~~~~~~~                                          
  263 |  int isec;
      |  ~~~~~~~~~                                                
  264 |  if (nsec_ != section_count) {
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                            
  265 |   if (warn) {
      |   ~~~~~~~~~~~                                             
  266 | fprintf(stderr, "SaveState warning: %d sections exist but saved %d\n",
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
  267 |    section_count, nsec_);
      |    ~~~~~~~~~~~~~~~~~~~~~~                                 
  268 |   }
      |   ~                                                       
  269 |   return false;
      |   ~~~~~~~~~~~~~                                           
  270 |  }
      |  ~                                                        
  271 |  if (nroot_ != nrn_global_ncell) {
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                        
  272 |   if (warn) {
      |   ~~~~~~~~~~~                                             
  273 | fprintf(stderr, "SaveState warning: %d cells exist but saved %d\n",
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
  274 |    nrn_global_ncell, nroot_);
      |    ~~~~~~~~~~~~~~~~~~~~~~~~~~                             
  275 |   }
      |   ~                                                       
  276 |   return false;
      |   ~~~~~~~~~~~~~                                           
  277 |  }
      |  ~                                                        
  278 |  if (nsec_ && ss_[0].sec == NULL) { // got the data from a read
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
  279 |   isec = 0; ForAllSections(sec)
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                           
  280 |    ss_[isec].sec = sec;
      |    ~~~~~~~~~~~~~~~~~~~~                                   
  281 |    section_ref(ss_[isec].sec);
      |    ~~~~~~~~~~~~~~~~~~~~~~~~~~~                            
  282 |    ++isec;
      |    ~~~~~~~                                                
  283 |   }
      |   ~                                                       
  284 |  }
      |  ~                                                        
  285 |  for (int i=0, j=0; i < n_memb_func; ++i) if (nrn_is_artificial_[i]) {
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
  286 |   if (!checkacell(acell_[j], i, warn)) {
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                  
  287 |    return false;
      |    ~~~~~~~~~~~~~                                          
  288 |   }
      |   ~                                                       
  289 |   ++j;
      |   ~~~~                                                    
  290 |  }
      |  ~                                                        
  291 |  for (int isec=0; isec < nsec_; ++isec) {
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                 
  292 |   SecState& ss = ss_[isec];
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~                               
  293 |   Section* sec = ss.sec;
      |   ~~~~~~~~~~~~~~~~~~~~~~                                  
  294 |   if (!sec->prop || sec->nnode != ss.nnode) {
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~             
  295 | if (warn) {
      | ~~~~~~~~~~~                                               
  296 | if (!sec->prop) {
      | ~~~~~~~~~~~~~~~~~                                         
  297 | fprintf(stderr, "SaveState warning: saved section no longer exists\n");
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
  298 | }else{
      | ~~~~~~                                                    
  299 | fprintf(stderr, "SaveState warning: %s has %d nodes but saved %d\n",
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
  300 |     secname(sec), sec->nnode, ss.nnode);
      |     ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                  
  301 | }
      | ~                                                         
  302 | }
      | ~                                                         
  303 |    return false;
      |    ~~~~~~~~~~~~~                                          
  304 |   }
      |   ~                                                       
  305 |   for (int inode = 0; inode < ss.nnode; ++inode) {
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~        
  306 |    NodeState& ns = ss.ns[inode];
      |    ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                          
  307 |    Node* nd = sec->pnode[inode];
      |    ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                          
  308 |    int i=0;
      |    ~~~~~~~~                                               
  309 |    Prop* p;
      |    ~~~~~~~~                                               
  310 |    for (p = nd->prop; p; p = p->next) {
      |    ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                   
  311 |     if (ssi[p->type].size == 0) {
      |     ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                         
  312 |      continue;
      |      ~~~~~~~~~                                            
  313 |     }
      |     ~                                                     
  314 |     if (i >= ns.nmemb) {
      |     ~~~~~~~~~~~~~~~~~~~~                                  
  315 | if (warn) {
      | ~~~~~~~~~~~                                               
  316 | fprintf(stderr,"SaveState warning: \
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                      
  317 | fewer mechanisms saved than exist at node %d of %s\n",
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~    
  318 |  inode, secname(sec));
      |  ~~~~~~~~~~~~~~~~~~~~~                                    
  319 | }
      | ~                                                         
  320 |      return false;
      |      ~~~~~~~~~~~~~                                        
  321 |     }
      |     ~                                                     
  322 |     if (p->type != ns.type[i]) {
      |     ~~~~~~~~~~~~~~~~~~~~~~~~~~~~                          
  323 | if (warn) {
      | ~~~~~~~~~~~                                               
  324 | fprintf(stderr, "SaveState warning: mechanisms out of order at node %d of %s\n\
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
  325 | saved %s but need %s\n",
      | ~~~~~~~~~~~~~~~~~~~~~~~~                                  
  326 | inode, secname(sec), memb_func[i].sym->name, memb_func[p->type].sym->name);
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
  327 | }
      | ~                                                         
  328 |      return false;
      |      ~~~~~~~~~~~~~                                        
  329 |     }
      |     ~                                                     
  330 |     ++i;
      |     ~~~~                                                  
  331 |    }
      |    ~                                                      
  332 |    if (i != ns.nmemb) {
      |    ~~~~~~~~~~~~~~~~~~~~                                   
  333 | if (warn) {
      | ~~~~~~~~~~~                                               
  334 | fprintf(stderr, "SaveState warning: more mechanisms saved than exist at node %d of %s\n",
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
  335 |  inode, secname(sec));
      |  ~~~~~~~~~~~~~~~~~~~~~                                    
  336 | }
      | ~                                                         
  337 |     return false;
      |     ~~~~~~~~~~~~~                                         
  338 |    }
      |    ~                                                      
  339 |   }
      |   ~                                                       
  340 |   if (!sec->parentsec || ss.root) {
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                       
  341 |    if (sec->parentsec || !ss.root) {
      |    ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                      
  342 | if (warn) {
      | ~~~~~~~~~~~                                               
  343 | fprintf(stderr, "SaveState warning: Saved section and %s are not both root sections.\n",
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
  344 |  secname(sec));
      |  ~~~~~~~~~~~~~~                                           
  345 | }
      | ~                                                         
  346 |    }
      |    ~                                                      
  347 |    if (!checknode(*ss.root, sec->parentnode, warn)) {
      |    ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~     
  348 |     return false;
      |     ~~~~~~~~~~~~~                                         
  349 |    }
      |    ~                                                      
  350 |   }
      |   ~                                                       
  351 | 
      |                                                           
  352 |  }
      |  ~                                                        
  353 |  if (!checknet(warn)) { return false; }
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                   
  354 |  return true;
      |  ~~~~~~~~~~~~                                             
  355 | }
      | ~                                                         
  356 | 
      |                                                           
  357 | bool SaveState::checknode(NodeState& ns, Node* nd, bool warn) {
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
  358 |  int i=0;
      |  ~~~~~~~~                                                 
  359 |  Prop* p;
      |  ~~~~~~~~                                                 
  360 |  for (p = nd->prop; p; p = p->next) {
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                     
  361 |   if (ssi[p->type].size == 0) {
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                           
  362 |    continue;
      |    ~~~~~~~~~                                              
  363 |   }
      |   ~                                                       
  364 |   if (i >= ns.nmemb) {
      |   ~~~~~~~~~~~~~~~~~~~~                                    
  365 | if (warn) {
      | ~~~~~~~~~~~                                               
  366 | fprintf(stderr,"SaveState warning: \
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                      
  367 | fewer mechanisms saved than exist at a root node\n");
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~     
  368 | }
      | ~                                                         
  369 |    return false;
      |    ~~~~~~~~~~~~~                                          
  370 |   }
      |   ~                                                       
  371 |   if (p->type != ns.type[i]) {
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~~                            
  372 | if (warn) {
      | ~~~~~~~~~~~                                               
  373 | fprintf(stderr, "SaveState warning: mechanisms out of order at a rootnode\n\
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
  374 | saved %s but need %s\n",
      | ~~~~~~~~~~~~~~~~~~~~~~~~                                  
  375 | memb_func[i].sym->name, memb_func[p->type].sym->name);
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~    
  376 | }
      | ~                                                         
  377 |    return false;
      |    ~~~~~~~~~~~~~                                          
  378 |   }
      |   ~                                                       
  379 |   ++i;
      |   ~~~~                                                    
  380 |  }
      |  ~                                                        
  381 |  if (i != ns.nmemb) {
      |  ~~~~~~~~~~~~~~~~~~~~                                     
  382 | if (warn) {
      | ~~~~~~~~~~~                                               
  383 | fprintf(stderr, "SaveState warning: more mechanisms saved than exist at a rootnode\n");
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
  384 | }
      | ~                                                         
  385 |   return false;
      |   ~~~~~~~~~~~~~                                           
  386 |  }
      |  ~                                                        
  387 |  return true;
      |  ~~~~~~~~~~~~                                             
  388 | }
      | ~                                                         
  389 | 
      |                                                           
  390 | bool SaveState::checkacell(ACellState& ac, int type, bool warn) {
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
  391 |  if (memb_list[type].nodecount != ac.ncell) {
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~             
  392 | if (warn) {
      | ~~~~~~~~~~~                                               
  393 | fprintf(stderr, "SaveState warning: different number of %s saved than exist.\n",
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
  394 | memb_func[type].sym->name);
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~                               
  395 | }
      | ~                                                         
  396 |   return false;
      |   ~~~~~~~~~~~~~                                           
  397 |  }
      |  ~                                                        
  398 |  return true;
      |  ~~~~~~~~~~~~                                             
  399 | }
      | ~                                                         
  400 | 
      |                                                           
  401 | void SaveState::alloc() {
      | ~~~~~~~~~~~~~~~~~~~~~~~~~                                 
  402 |  ssfree();
      |  ~~~~~~~~~                                                
  403 |  int inode, isec;
      |  ~~~~~~~~~~~~~~~~                                         
  404 |  hoc_Item* qsec;
      |  ~~~~~~~~~~~~~~~                                          
  405 |  nsec_ = section_count;
      |  ~~~~~~~~~~~~~~~~~~~~~~                                   
  406 |  ss_ = new SecState[nsec_];
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~                               
  407 |  nroot_ = 0;
      |  ~~~~~~~~~~~                                              
  408 |  isec = 0;
      |  ~~~~~~~~~                                                
  409 |  ForAllSections(sec)
      |  ~~~~~~~~~~~~~~~~~~~                                      
  410 |   SecState& ss = ss_[isec];
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~                               
  411 |   ss.sec = sec;
      |   ~~~~~~~~~~~~~                                           
  412 |   section_ref(ss.sec);
      |   ~~~~~~~~~~~~~~~~~~~~                                    
  413 |   ss.nnode = ss.sec->nnode;
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~                               
  414 |   ss.ns = new NodeState[ss.nnode];
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                        
  415 |   for (inode = 0; inode < ss.nnode; ++inode) {
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~            
  416 |    Node* nd = ss.sec->pnode[inode];
      |    ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                       
  417 |    NodeState& ns = ss.ns[inode];
      |    ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                          
  418 |    allocnode(ns, nd);
      |    ~~~~~~~~~~~~~~~~~~                                     
  419 |   }
      |   ~                                                       
  420 |   if (!sec->parentsec) {
      |   ~~~~~~~~~~~~~~~~~~~~~~                                  
  421 |    assert(sec->parentnode);
      |    ~~~~~~~~~~~~~~~~~~~~~~~~                               
  422 |    ss.root = new NodeState;
      |    ~~~~~~~~~~~~~~~~~~~~~~~~                               
  423 |    allocnode(*ss.root, sec->parentnode);
      |    ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                  
  424 |    ++nroot_;
      |    ~~~~~~~~~                                              
  425 |   }else{
      |   ~~~~~~                                                  
  426 |    ss.root = 0;
      |    ~~~~~~~~~~~~                                           
  427 |   }
      |   ~                                                       
  428 |   ++isec;
      |   ~~~~~~~                                                 
  429 |  }
      |  ~                                                        
  430 |  assert(isec == section_count);
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                           
  431 |  assert(nroot_ == nrn_global_ncell);
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                      
  432 |  for (int i=0, j=0; i < n_memb_func; ++i) if (nrn_is_artificial_[i]) {
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
  433 |   allocacell(acell_[j], i);
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~                               
  434 |   ++j;
      |   ~~~~                                                    
  435 |  }
      |  ~                                                        
  436 |  PlayRecList* prl = net_cvode_instance_prl();
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~             
  437 |  nprs_ = prl->count();
      |  ~~~~~~~~~~~~~~~~~~~~~                                    
  438 |  if (nprs_) {
      |  ~~~~~~~~~~~~                                             
  439 |   prs_ = new PlayRecordSave*[nprs_];
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                      
  440 |  }
      |  ~                                                        
  441 |  allocnet();
      |  ~~~~~~~~~~~                                              
  442 | }
      | ~                                                         
  443 | 
      |                                                           
  444 | void SaveState::allocnode(NodeState& ns, Node* nd) {
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~      
  445 |  ns.nmemb = 0;
      |  ~~~~~~~~~~~~~                                            
  446 |  ns.type = NULL;
      |  ~~~~~~~~~~~~~~~                                          
  447 |  ns.state = NULL;
      |  ~~~~~~~~~~~~~~~~                                         
  448 |  ns.nstate = 0;
      |  ~~~~~~~~~~~~~~                                           
  449 |  Prop* p;
      |  ~~~~~~~~                                                 
  450 |  for (p = nd->prop; p; p = p->next) {
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                     
  451 |   if (ssi[p->type].size == 0) {
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                           
  452 |    continue;
      |    ~~~~~~~~~                                              
  453 |   }
      |   ~                                                       
  454 |   ++ns.nmemb;
      |   ~~~~~~~~~~~                                             
  455 |   ns.nstate += ssi[p->type].size;
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                         
  456 |  }
      |  ~                                                        
  457 |  if (ns.nmemb) {
      |  ~~~~~~~~~~~~~~~                                          
  458 |   ns.type = new int[ns.nmemb];
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~~                            
  459 |  }
      |  ~                                                        
  460 |  if (ns.nstate) {
      |  ~~~~~~~~~~~~~~~~                                         
  461 |   ns.state = new double[ns.nstate];
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                       
  462 |  }
      |  ~                                                        
  463 |  int i = 0;
      |  ~~~~~~~~~~                                               
  464 |  for (p = nd->prop; p; p = p->next) {
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                     
  465 |   if (ssi[p->type].size == 0) {
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                           
  466 |    continue;
      |    ~~~~~~~~~                                              
  467 |   }
      |   ~                                                       
  468 |   ns.type[i] = p->type;
      |   ~~~~~~~~~~~~~~~~~~~~~                                   
  469 |   ++i;
      |   ~~~~                                                    
  470 |  }
      |  ~                                                        
  471 | }
      | ~                                                         
  472 | 
      |                                                           
  473 | void SaveState::allocacell(ACellState& ac, int type) {
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~    
  474 |  Memb_list& ml = memb_list[type];
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                         
  475 |  ac.type = type;
      |  ~~~~~~~~~~~~~~~                                          
  476 |  ac.ncell = ml.nodecount;
      |  ~~~~~~~~~~~~~~~~~~~~~~~~                                 
  477 |  ac.state = new double[ac.ncell * ssi[type].size];
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~        
  478 | }
      | ~                                                         
  479 | 
      |                                                           
  480 | void SaveState::ssfree() {
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~                                
  481 |  int i, isec, inode;
      |  ~~~~~~~~~~~~~~~~~~~                                      
  482 |  for (isec=0; isec < nsec_; ++isec) {
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                     
  483 |   SecState& ss = ss_[isec];
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~                               
  484 |   for (inode = 0; inode < ss.nnode; ++inode) {
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~            
  485 |    NodeState& ns = ss.ns[inode];
      |    ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                          
  486 |    if (ns.nmemb) {
      |    ~~~~~~~~~~~~~~~                                        
  487 |     delete [] ns.type;
      |     ~~~~~~~~~~~~~~~~~~                                    
  488 |    }
      |    ~                                                      
  489 |    if (ns.nstate) {
      |    ~~~~~~~~~~~~~~~~                                       
  490 |     delete [] ns.state;
      |     ~~~~~~~~~~~~~~~~~~~                                   
  491 |    }
      |    ~                                                      
  492 |   }
      |   ~                                                       
  493 |   if (ss.root) {
      |   ~~~~~~~~~~~~~~                                          
  494 |    NodeState& ns = *ss.root;
      |    ~~~~~~~~~~~~~~~~~~~~~~~~~                              
  495 |    if (ns.nmemb) {
      |    ~~~~~~~~~~~~~~~                                        
  496 |     delete [] ns.type;
      |     ~~~~~~~~~~~~~~~~~~                                    
  497 |    }
      |    ~                                                      
  498 |    if (ns.nstate) {
      |    ~~~~~~~~~~~~~~~~                                       
  499 |     delete [] ns.state;
      |     ~~~~~~~~~~~~~~~~~~~                                   
  500 |    }
      |    ~                                                      
  501 |    delete ss.root;
      |    ~~~~~~~~~~~~~~~                                        
  502 |   }
      |   ~                                                       
  503 |   if (ss.nnode) {
      |   ~~~~~~~~~~~~~~~                                         
  504 |    delete [] ss.ns;
      |    ~~~~~~~~~~~~~~~~                                       
  505 |   }
      |   ~                                                       
  506 |   if (ss.sec) { // got info from an fread but never checked it
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
  507 |    section_unref(ss.sec);
      |    ~~~~~~~~~~~~~~~~~~~~~~                                 
  508 |   }
      |   ~                                                       
  509 |  }
      |  ~                                                        
  510 |  if (nsec_) {
      |  ~~~~~~~~~~~~                                             
  511 |   delete [] ss_;
      |   ~~~~~~~~~~~~~~                                          
  512 |  }
      |  ~                                                        
  513 |  nsec_ = 0;
      |  ~~~~~~~~~~                                               
  514 |  ss_ = NULL;
      |  ~~~~~~~~~~~                                              
  515 |  for (i=0; i < nacell_; ++i) {
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                            
  516 |   if (acell_[i].ncell) {
      |   ~~~~~~~~~~~~~~~~~~~~~~                                  
  517 |    delete [] acell_[i].state;
      |    ~~~~~~~~~~~~~~~~~~~~~~~~~~                             
  518 |    acell_[i].state = 0;
      |    ~~~~~~~~~~~~~~~~~~~~                                   
  519 |    acell_[i].ncell = 0;
      |    ~~~~~~~~~~~~~~~~~~~~                                   
  520 |   }
      |   ~                                                       
  521 |  } // note we do not destroy the acell_.
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                  
  522 |  if (nncs_) {
      |  ~~~~~~~~~~~~                                             
  523 |   for (i = 0; i < nncs_; ++i) {
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                           
  524 |    if (ncs_[i].nstate) {
      |    ~~~~~~~~~~~~~~~~~~~~~                                  
  525 |     delete [] ncs_[i].state;
      |     ~~~~~~~~~~~~~~~~~~~~~~~~                              
  526 |    }
      |    ~                                                      
  527 |   }
      |   ~                                                       
  528 |   delete [] ncs_;
      |   ~~~~~~~~~~~~~~~                                         
  529 |  }
      |  ~                                                        
  530 |  nncs_ = 0;
      |  ~~~~~~~~~~                                               
  531 |  ncs_ = NULL;
      |  ~~~~~~~~~~~~                                             
  532 |  if (npss_) {
      |  ~~~~~~~~~~~~                                             
  533 |   delete [] pss_;
      |   ~~~~~~~~~~~~~~~                                         
  534 |  }
      |  ~                                                        
  535 |  npss_ = 0;
      |  ~~~~~~~~~~                                               
  536 |  pss_ = NULL;
      |  ~~~~~~~~~~~~                                             
  537 |  free_tq();
      |  ~~~~~~~~~~                                               
  538 |  if (nprs_) {
      |  ~~~~~~~~~~~~                                             
  539 |   for (i=0; i < nprs_; ++i) {
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~                             
  540 |    delete prs_[i];
      |    ~~~~~~~~~~~~~~~                                        
  541 |   }
      |   ~                                                       
  542 |   delete [] prs_;
      |   ~~~~~~~~~~~~~~~                                         
  543 |  }
      |  ~                                                        
  544 |  nprs_ = 0;
      |  ~~~~~~~~~~                                               
  545 | }
      | ~                                                         
  546 | 
      |                                                           
  547 | void SaveState::save() {
      | ~~~~~~~~~~~~~~~~~~~~~~~~                                  
  548 |  NrnThread* nt;
      |  ~~~~~~~~~~~~~~                                           
  549 |  if (!check(false)) {
      |  ~~~~~~~~~~~~~~~~~~~~                                     
  550 |   alloc();
      |   ~~~~~~~~                                                
  551 |  }
      |  ~                                                        
  552 |  FOR_THREADS(nt) {
      |  ~~~~~~~~~~~~~~~~~                                        
  553 |   assert(t == nt->_t);
      |   ~~~~~~~~~~~~~~~~~~~~                                    
  554 |  }
      |  ~                                                        
  555 |  t_ = t;
      |  ~~~~~~~                                                  
  556 |  int inode;
      |  ~~~~~~~~~~                                               
  557 |  for (int isec=0; isec < nsec_; ++isec) {
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                 
  558 |   SecState& ss = ss_[isec];
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~                               
  559 |   Section* sec = ss.sec;
      |   ~~~~~~~~~~~~~~~~~~~~~~                                  
  560 |   for (inode = 0; inode < ss.nnode; ++inode) {
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~            
  561 |    NodeState& ns = ss.ns[inode];
      |    ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                          
  562 |    Node* nd = sec->pnode[inode];
      |    ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                          
  563 |    savenode(ns, nd);
      |    ~~~~~~~~~~~~~~~~~                                      
  564 |   }
      |   ~                                                       
  565 |   if (ss.root) {
      |   ~~~~~~~~~~~~~~                                          
  566 |    NodeState& ns = *ss.root;
      |    ~~~~~~~~~~~~~~~~~~~~~~~~~                              
  567 |    Node* nd = sec->parentnode;
      |    ~~~~~~~~~~~~~~~~~~~~~~~~~~~                            
  568 |    savenode(ns, nd);
      |    ~~~~~~~~~~~~~~~~~                                      
  569 |   }
      |   ~                                                       
  570 |  }
      |  ~                                                        
  571 |  for (int i=0, j=0; i < n_memb_func; ++i) if (nrn_is_artificial_[i]) {
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
  572 |   saveacell(acell_[j], i);
      |   ~~~~~~~~~~~~~~~~~~~~~~~~                                
  573 |   ++j;
      |   ~~~~                                                    
  574 |  }
      |  ~                                                        
  575 |  if (nprs_) {
      |  ~~~~~~~~~~~~                                             
  576 |   PlayRecList* prl = net_cvode_instance_prl();
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~            
  577 |   int i;
      |   ~~~~~~                                                  
  578 |   assert(nprs_ == prl->count());
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                          
  579 |   for (i=0; i < nprs_; ++i) {
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~                             
  580 |    prs_[i] = prl->item(i)->savestate_save();
      |    ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~              
  581 |   }
      |   ~                                                       
  582 |  }
      |  ~                                                        
  583 |  savenet();
      |  ~~~~~~~~~~                                               
  584 | }
      | ~                                                         
  585 | 
      |                                                           
  586 | void SaveState::savenode(NodeState& ns, Node* nd) {
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~       
  587 |  ns.v = NODEV(nd);
      |  ~~~~~~~~~~~~~~~~~                                        
  588 |  int istate = 0;
      |  ~~~~~~~~~~~~~~~                                          
  589 |  Prop* p;
      |  ~~~~~~~~                                                 
  590 |  for (p = nd->prop; p; p = p->next) {
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                     
  591 |   if (ssi[p->type].size == 0) {
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                           
  592 |    continue;
      |    ~~~~~~~~~                                              
  593 |   }
      |   ~                                                       
  594 |   int type = p->type;
      |   ~~~~~~~~~~~~~~~~~~~                                     
  595 |   int max = ssi[type].offset + ssi[type].size;
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~            
  596 | #if EXTRACELLULAR
      | ~~~~~~~~~~~~~~~~~                                         
  597 |   if (type == EXTRACELL) {
      |   ~~~~~~~~~~~~~~~~~~~~~~~~                                
  598 |    for (int i=0; i < nlayer; ++i) {
      |    ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                       
  599 |     ns.state[istate++] = nd->extnode->v[i];
      |     ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~               
  600 |    }
      |    ~                                                      
  601 |   }else
      |   ~~~~~                                                   
  602 | #endif
      | ~~~~~~                                                    
  603 |   {
      |   ~                                                       
  604 |    for (int ip=ssi[type].offset; ip < max; ++ip) {
      |    ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~        
  605 |     ns.state[istate++] = p->param[ip];
      |     ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                    
  606 |    }
      |    ~                                                      
  607 |   }
      |   ~                                                       
  608 |  }
      |  ~                                                        
  609 | }
      | ~                                                         
  610 | 
      |                                                           
  611 | void SaveState::saveacell(ACellState& ac, int type) {
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~     
  612 |  Memb_list& ml = memb_list[type];
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                         
  613 |  int sz = ssi[type].size;
      |  ~~~~~~~~~~~~~~~~~~~~~~~~                                 
  614 |  double* p = ac.state;
      |  ~~~~~~~~~~~~~~~~~~~~~                                    
  615 |  for (int i = 0; i < ml.nodecount; ++i) {
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                 
  616 |   double* d = ml.data[i];
      |   ~~~~~~~~~~~~~~~~~~~~~~~                                 
  617 |   for (int j=0; j < sz; ++j) {
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~~                            
  618 |    (*p++) = d[j];
      |    ~~~~~~~~~~~~~~                                         
  619 |   }
      |   ~                                                       
  620 |  }
      |  ~                                                        
  621 | }
      | ~                                                         
  622 | 
      |                                                           
  623 | void SaveState::restore(int type) {
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                       
  624 |  NrnThread* nt;
      |  ~~~~~~~~~~~~~~                                           
  625 |  if (!check(true)) {
      |  ~~~~~~~~~~~~~~~~~~~                                      
  626 |   hoc_execerror("SaveState:",
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~                             
  627 |   "Stored state inconsistent with current neuron structure");
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
  628 |  }
      |  ~                                                        
  629 |  t = t_;
      |  ~~~~~~~                                                  
  630 |  FOR_THREADS(nt) {
      |  ~~~~~~~~~~~~~~~~~                                        
  631 |   nt->_t = t_;
      |   ~~~~~~~~~~~~                                            
  632 |  }
      |  ~                                                        
  633 |  int inode;
      |  ~~~~~~~~~~                                               
  634 |  for (int isec=0; isec < nsec_; ++isec) {
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                 
  635 |   SecState& ss = ss_[isec];
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~                               
  636 |   Section* sec = ss.sec;
      |   ~~~~~~~~~~~~~~~~~~~~~~                                  
  637 |   for (inode = 0; inode < ss.nnode; ++inode) {
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~            
  638 |    NodeState& ns = ss.ns[inode];
      |    ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                          
  639 |    Node* nd = sec->pnode[inode];
      |    ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                          
  640 |    restorenode(ns, nd);
      |    ~~~~~~~~~~~~~~~~~~~~                                   
  641 |   }
      |   ~                                                       
  642 |   if (ss.root) {
      |   ~~~~~~~~~~~~~~                                          
  643 |    NodeState& ns = *ss.root;
      |    ~~~~~~~~~~~~~~~~~~~~~~~~~                              
  644 |    Node* nd = sec->parentnode;
      |    ~~~~~~~~~~~~~~~~~~~~~~~~~~~                            
  645 |    restorenode(ns, nd);
      |    ~~~~~~~~~~~~~~~~~~~~                                   
  646 |   }
      |   ~                                                       
  647 |  }
      |  ~                                                        
  648 |  for (int i=0, j=0; i < n_memb_func; ++i) if (nrn_is_artificial_[i]) {
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
  649 |   restoreacell(acell_[j], i);
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~                             
  650 |   ++j;
      |   ~~~~                                                    
  651 |  }
      |  ~                                                        
  652 |  if (type == 1) { return; }
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~                               
  653 |  PlayRecList* prl = net_cvode_instance_prl();
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~             
  654 |  // during a local step the PlayRecList is augmented with GLineRecord
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
  655 |  // assert(nprs_ == prl->count());
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                        
  656 |  assert(nprs_ <= prl->count());
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                           
  657 |  int i;
      |  ~~~~~~                                                   
  658 |  for (i = 0; i < nprs_; ++i) {
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                            
  659 |   prs_[i]->savestate_restore();
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                           
  660 |  }
      |  ~                                                        
  661 |  restorenet();
      |  ~~~~~~~~~~~~~                                            
  662 | }
      | ~                                                         
  663 | 
      |                                                           
  664 | void SaveState::restorenode(NodeState& ns, Node* nd) {
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~    
  665 |  NODEV(nd) = ns.v;;
      |  ~~~~~~~~~~~~~~~~~~                                       
  666 |  int istate = 0;
      |  ~~~~~~~~~~~~~~~                                          
  667 |  Prop* p;
      |  ~~~~~~~~                                                 
  668 |  for (p = nd->prop; p; p = p->next) {
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                     
  669 |   if (ssi[p->type].size == 0) {
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                           
  670 |    continue;
      |    ~~~~~~~~~                                              
  671 |   }
      |   ~                                                       
  672 |   int type = p->type;
      |   ~~~~~~~~~~~~~~~~~~~                                     
  673 |   int max = ssi[type].offset + ssi[type].size;
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~            
  674 | #if EXTRACELLULAR
      | ~~~~~~~~~~~~~~~~~                                         
  675 |   if (type == EXTRACELL) {
      |   ~~~~~~~~~~~~~~~~~~~~~~~~                                
  676 |    for (int i=0; i < nlayer; ++i) {
      |    ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                       
  677 |     nd->extnode->v[i] = ns.state[istate++];
      |     ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~               
  678 |    }
      |    ~                                                      
  679 |   }else
      |   ~~~~~                                                   
  680 | #endif
      | ~~~~~~                                                    
  681 |   {
      |   ~                                                       
  682 |    for (int ip=ssi[type].offset; ip < max; ++ip) {
      |    ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~        
  683 |     p->param[ip] = ns.state[istate++];
      |     ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                    
  684 |    }
      |    ~                                                      
  685 |   }
      |   ~                                                       
  686 |  }
      |  ~                                                        
  687 | }
      | ~                                                         
  688 | 
      |                                                           
  689 | void SaveState::restoreacell(ACellState& ac, int type) {
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~  
  690 |  Memb_list& ml = memb_list[type];
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                         
  691 |  int sz = ssi[type].size;
      |  ~~~~~~~~~~~~~~~~~~~~~~~~                                 
  692 |  double* p = ac.state;
      |  ~~~~~~~~~~~~~~~~~~~~~                                    
  693 |  for (int i = 0; i < ml.nodecount; ++i) {
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                 
  694 |   double* d = ml.data[i];
      |   ~~~~~~~~~~~~~~~~~~~~~~~                                 
  695 |   for (int j=0; j < sz; ++j) {
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~~                            
  696 |    d[j] = (*p++);
      |    ~~~~~~~~~~~~~~                                         
  697 |   }
      |   ~                                                       
  698 |  }
      |  ~                                                        
  699 | }
      | ~                                                         
  700 | 
      |                                                           
  701 | void SaveState::read(OcFile* ocf, bool close) {
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~           
  702 |  if (!ocf->open(ocf->get_name(), "r")) {
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                  
  703 |   hoc_execerror("Couldn't open file for reading:", ocf->get_name());
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
  704 |  }
      |  ~                                                        
  705 |  nrn_shape_update();
      |  ~~~~~~~~~~~~~~~~~~~                                      
  706 |  BinaryMode(ocf)
      |  ~~~~~~~~~~~~~~~                                          
  707 |  FILE* f = ocf->file();
      |  ~~~~~~~~~~~~~~~~~~~~~~                                   
  708 |  ssfree();
      |  ~~~~~~~~~                                                
  709 |  char buf[200];
      |  ~~~~~~~~~~~~~~                                           
  710 |  ASSERTfgets(buf, 200, f);
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~                                
  711 |  if (strcmp(buf, "SaveState binary file version 6.0\n") != 0) {
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
  712 |   ocf->close();
      |   ~~~~~~~~~~~~~                                           
  713 |   hoc_execerror("Bad SaveState binary file", " Not version 6.0");
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
  714 |  }
      |  ~                                                        
  715 |  ASSERTfread((char*)&t_, sizeof(double), 1, f);
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~           
  716 | // fscanf(f, "%d %d\n", &nsec_, &nrootnode_);
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~             
  717 | // on some os's fscanf leaves file pointer at wrong place for next fread
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
  718 | // can check it with ftell(f)
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                             
  719 |  ASSERTfgets(buf, 200, f);
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~                                
  720 |  sscanf(buf, "%d %d\n", &nsec_, &nroot_);
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                 
  721 |  // to enable comparison of SaveState files, we avoid
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~     
  722 |  // putting pointers in the files and instead explicitly read/write
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
  723 |  // structure elements.
      |  ~~~~~~~~~~~~~~~~~~~~~~                                   
  724 |  ss_ = new SecState[nsec_];
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~                               
  725 |  fread_SecState(ss_, nsec_, f);
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                           
  726 |  for (int isec=0; isec < nsec_; ++isec) {
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                 
  727 |   SecState& ss = ss_[isec];
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~                               
  728 |   ss.sec = NULL;
      |   ~~~~~~~~~~~~~~                                          
  729 |   ss.ns = new NodeState[ss.nnode];
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                        
  730 |   fread_NodeState(ss.ns, ss.nnode, f);
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                    
  731 |   for (int inode = 0; inode < ss.nnode; ++inode) {
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~        
  732 |    NodeState& ns = ss.ns[inode];
      |    ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                          
  733 |    if (ns.nmemb) {
      |    ~~~~~~~~~~~~~~~                                        
  734 |     ns.type = new int[ns.nmemb];
      |     ~~~~~~~~~~~~~~~~~~~~~~~~~~~~                          
  735 |     ASSERTfread((char*)ns.type, sizeof(int), ns.nmemb, f);
      |     ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
  736 |    }
      |    ~                                                      
  737 |    if (ns.nstate) {
      |    ~~~~~~~~~~~~~~~~                                       
  738 |     ns.state = new double[ns.nstate];
      |     ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                     
  739 |     ASSERTfread((char*)ns.state, sizeof(double), ns.nstate, f);
      |     ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
  740 |    }
      |    ~                                                      
  741 |   }
      |   ~                                                       
  742 |   if (ss.root) {
      |   ~~~~~~~~~~~~~~                                          
  743 |    fread_NodeState(ss.root, 1, f);
      |    ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                        
  744 |    NodeState& ns = *ss.root;
      |    ~~~~~~~~~~~~~~~~~~~~~~~~~                              
  745 |    if (ns.nmemb) {
      |    ~~~~~~~~~~~~~~~                                        
  746 |     ns.type = new int[ns.nmemb];
      |     ~~~~~~~~~~~~~~~~~~~~~~~~~~~~                          
  747 |     ASSERTfread((char*)ns.type, sizeof(int), ns.nmemb, f);
      |     ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
  748 |    }
      |    ~                                                      
  749 |    if (ns.nstate) {
      |    ~~~~~~~~~~~~~~~~                                       
  750 |     ns.state = new double[ns.nstate];
      |     ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                     
  751 |     ASSERTfread((char*)ns.state, sizeof(double), ns.nstate, f);
      |     ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
  752 |    }
      |    ~                                                      
  753 |   }
      |   ~                                                       
  754 |  }
      |  ~                                                        
  755 |  int n = 0;
      |  ~~~~~~~~~~                                               
  756 |  ASSERTfgets(buf, 20, f);
      |  ~~~~~~~~~~~~~~~~~~~~~~~~                                 
  757 |  sscanf(buf, "%d\n", &n);
      |  ~~~~~~~~~~~~~~~~~~~~~~~~                                 
  758 |  assert(n == nacell_);
      |  ~~~~~~~~~~~~~~~~~~~~~                                    
  759 |  for (int i=0, j=0; i < n_memb_func; ++i) if (nrn_is_artificial_[i]) {
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
  760 |   int nt = 0, nc = 0, ns = 0;
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~                             
  761 |   ASSERTfgets(buf, 200, f);
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~                               
  762 |   nrn_assert(sscanf(buf, "%d %d %d\n", &nt, &nc, &ns) == 3);
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
  763 |   assert(nt == i && nc == memb_list[i].nodecount);
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~        
  764 |   assert(ns == nc * ssi[i].size);
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                         
  765 |   acell_[j].ncell = nc;
      |   ~~~~~~~~~~~~~~~~~~~~~                                   
  766 |   acell_[j].state = new double[ns];
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                       
  767 |   ASSERTfread((char*)acell_[j].state, sizeof(double), ns, f);
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
  768 |   ++j;
      |   ~~~~                                                    
  769 |  }
      |  ~                                                        
  770 |  ASSERTfgets(buf, 20, f);
      |  ~~~~~~~~~~~~~~~~~~~~~~~~                                 
  771 |  sscanf(buf, "%d\n", &nprs_);
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~                             
  772 |  if (nprs_) {
      |  ~~~~~~~~~~~~                                             
  773 |   prs_ = new PlayRecordSave*[nprs_];
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                      
  774 |   for (int i=0; i < nprs_; ++i) {
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                         
  775 |    prs_[i] = PlayRecord::savestate_read(f);
      |    ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~               
  776 |   }
      |   ~                                                       
  777 |  }
      |  ~                                                        
  778 |  readnet(f);
      |  ~~~~~~~~~~~                                              
  779 |  if (close) {
      |  ~~~~~~~~~~~~                                             
  780 |   ocf->close();
      |   ~~~~~~~~~~~~~                                           
  781 |  }
      |  ~                                                        
  782 | }
      | ~                                                         
  783 | 
      |                                                           
  784 | void SaveState::write(OcFile* ocf, bool close) {
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~          
  785 |  if (!ocf->open(ocf->get_name(), "w")) {
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                  
  786 |   hoc_execerror("Couldn't open file for writing:", ocf->get_name());
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
  787 |  }
      |  ~                                                        
  788 |  BinaryMode(ocf)
      |  ~~~~~~~~~~~~~~~                                          
  789 |  FILE* f = ocf->file();
      |  ~~~~~~~~~~~~~~~~~~~~~~                                   
  790 |  fprintf(f, "SaveState binary file version 6.0\n");
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~       
  791 |  ASSERTfwrite((char*)&t_, sizeof(double), 1, f);
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~          
  792 |  fprintf(f, "%d %d\n", nsec_, nroot_);
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                    
  793 |  fwrite_SecState(ss_, nsec_, f);
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                          
  794 |  for (int isec=0; isec < nsec_; ++isec) {
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                 
  795 |   SecState& ss = ss_[isec];
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~                               
  796 |   fwrite_NodeState(ss.ns, ss.nnode, f);
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                   
  797 |   for (int inode = 0; inode < ss.nnode; ++inode) {
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~        
  798 |    NodeState& ns = ss.ns[inode];
      |    ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                          
  799 |    if (ns.nmemb){
      |    ~~~~~~~~~~~~~~                                         
  800 |     ASSERTfwrite((char*)ns.type, sizeof(int), ns.nmemb, f);
      |     ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
  801 |    }
      |    ~                                                      
  802 |    if (ns.nstate) {
      |    ~~~~~~~~~~~~~~~~                                       
  803 |     ASSERTfwrite((char*)ns.state, sizeof(double), ns.nstate, f);
      |     ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
/builddir/build/BUILD/nrn-7.8.1/src/oc/nrnassrt.h:23:33: note: in definition of macro 'nrn_assert'
   23 | #  define nrn_assert(ex) {if (!(ex)){fprintf(stderr,"Assertion failed: file %s, line %d\n", __FILE__,__LINE__);hoc_execerror(#ex, (char *)0);}}
      |                                 ^~
/builddir/build/BUILD/nrn-7.8.1/src/nrniv/savstate.cpp:803:5: note: in expansion of macro 'ASSERTfwrite'
  803 |     ASSERTfwrite((char*)ns.state, sizeof(double), ns.nstate, f);
      |     ^~~~~~~~~~~~
/builddir/build/BUILD/nrn-7.8.1/src/nrniv/savstate.cpp:34:58: warning: comparison of integer expressions of different signedness: 'size_t' {aka 'long unsigned int'} and 'int' [-Wsign-compare]
   34 | #define ASSERTfwrite(a,b,c,d) nrn_assert(fwrite(a,b,c,d) == c)
      |                                          ~~~~~~~~~~~~~~~~^~~~~
   35 | 
      |                                                           
   36 | class SaveState : public Resource {
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                       
   37 | public:
      | ~~~~~~~                                                   
   38 |  SaveState();
      |  ~~~~~~~~~~~~                                             
   39 |  ~SaveState();
      |  ~~~~~~~~~~~~~                                            
   40 |  virtual void save();
      |  ~~~~~~~~~~~~~~~~~~~~                                     
   41 |  virtual void restore(int type);
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                          
   42 |  virtual void read(OcFile*, bool close);
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                  
   43 |  virtual void write(OcFile*, bool close);
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                 
   44 |  struct NodeState {
      |  ~~~~~~~~~~~~~~~~~~                                       
   45 |   double v;
      |   ~~~~~~~~~                                               
   46 |   int nmemb;
      |   ~~~~~~~~~~                                              
   47 |   int* type;
      |   ~~~~~~~~~~                                              
   48 |   int nstate;
      |   ~~~~~~~~~~~                                             
   49 |   double* state;
      |   ~~~~~~~~~~~~~~                                          
   50 |  };
      |  ~~                                                       
   51 |  struct SecState {
      |  ~~~~~~~~~~~~~~~~~                                        
   52 |   Section* sec;
      |   ~~~~~~~~~~~~~                                           
   53 |   int nnode;
      |   ~~~~~~~~~~                                              
   54 |   struct NodeState* ns;
      |   ~~~~~~~~~~~~~~~~~~~~~                                   
   55 |   struct NodeState* root; // non-zero for rootnode
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~        
   56 |  };
      |  ~~                                                       
   57 |  struct StateStructInfo {
      |  ~~~~~~~~~~~~~~~~~~~~~~~~                                 
   58 |   int offset;
      |   ~~~~~~~~~~~                                             
   59 |   int size;
      |   ~~~~~~~~~                                               
   60 |  };
      |  ~~                                                       
   61 |  struct ACellState {
      |  ~~~~~~~~~~~~~~~~~~~                                      
   62 |   int type;
      |   ~~~~~~~~~                                               
   63 |   int ncell;
      |   ~~~~~~~~~~                                              
   64 |   double* state;
      |   ~~~~~~~~~~~~~~                                          
   65 |  };
      |  ~~                                                       
   66 |  struct NetConState {
      |  ~~~~~~~~~~~~~~~~~~~~                                     
   67 |   int object_index; // for checking
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                       
   68 |   int nstate;
      |   ~~~~~~~~~~~                                             
   69 |   double* state;
      |   ~~~~~~~~~~~~~~                                          
   70 |  };
      |  ~~                                                       
   71 |  struct PreSynState {
      |  ~~~~~~~~~~~~~~~~~~~~                                     
   72 |   bool flag; // is it firing?
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~                             
   73 |   double valthresh, valold, told;
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                         
   74 | 
      |                                                           
   75 |  };
      |  ~~                                                       
   76 |  struct TQState {
      |  ~~~~~~~~~~~~~~~~                                         
   77 |   int nstate;
      |   ~~~~~~~~~~~                                             
   78 |   double* tdeliver;
      |   ~~~~~~~~~~~~~~~~~                                       
   79 |   DiscreteEvent** items;
      |   ~~~~~~~~~~~~~~~~~~~~~~                                  
   80 |  };
      |  ~~                                                       
   81 | private:
      | ~~~~~~~~                                                  
   82 |  bool check(bool warn);
      |  ~~~~~~~~~~~~~~~~~~~~~~                                   
   83 |  void alloc();
      |  ~~~~~~~~~~~~~                                            
   84 |  void ssfree();
      |  ~~~~~~~~~~~~~~                                           
   85 |  void ssi_def();
      |  ~~~~~~~~~~~~~~~                                          
   86 | private:
      | ~~~~~~~~                                                  
   87 |  void fread_NodeState(NodeState*, int, FILE*);
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~            
   88 |  void fwrite_NodeState(NodeState*, int, FILE*);
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~           
   89 |  void fread_SecState(SecState*, int, FILE*);
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~              
   90 |  void fwrite_SecState(SecState*, int, FILE*);
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~             
   91 | private:
      | ~~~~~~~~                                                  
   92 |  double t_;
      |  ~~~~~~~~~~                                               
   93 |  int nroot_;
      |  ~~~~~~~~~~~                                              
   94 |  int nsec_;
      |  ~~~~~~~~~~                                               
   95 |  SecState* ss_;
      |  ~~~~~~~~~~~~~~                                           
   96 |  int nacell_; // number of types
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                          
   97 |  ACellState* acell_;
      |  ~~~~~~~~~~~~~~~~~~~                                      
   98 |  int nncs_;
      |  ~~~~~~~~~~                                               
   99 |  NetConState* ncs_;
      |  ~~~~~~~~~~~~~~~~~~                                       
  100 |  int npss_;
      |  ~~~~~~~~~~                                               
  101 |  PreSynState* pss_;
      |  ~~~~~~~~~~~~~~~~~~                                       
  102 |  TQState* tqs_;
      |  ~~~~~~~~~~~~~~                                           
  103 |  int tqcnt_; // volatile for index of forall_callback
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~     
  104 |  int nprs_;
      |  ~~~~~~~~~~                                               
  105 |  PlayRecordSave** prs_;
      |  ~~~~~~~~~~~~~~~~~~~~~~                                   
  106 |  static StateStructInfo* ssi;
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~                             
  107 |  static cTemplate* nct;
      |  ~~~~~~~~~~~~~~~~~~~~~~                                   
  108 | private:
      | ~~~~~~~~                                                  
  109 |  void savenode(NodeState&, Node*);
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                        
  110 |  void restorenode(NodeState&, Node*);
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                     
  111 |  bool checknode(NodeState&, Node*, bool);
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                 
  112 |  void allocnode(NodeState&, Node*);
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                       
  113 | 
      |                                                           
  114 |  void saveacell(ACellState&, int type);
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                   
  115 |  void restoreacell(ACellState&, int type);
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                
  116 |  bool checkacell(ACellState&, int type, bool);
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~            
  117 |  void allocacell(ACellState&, int type);
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                  
  118 | 
      |                                                           
  119 |  void savenet();
      |  ~~~~~~~~~~~~~~~                                          
  120 |  void restorenet();
      |  ~~~~~~~~~~~~~~~~~~                                       
  121 |  void readnet(FILE*);
      |  ~~~~~~~~~~~~~~~~~~~~                                     
  122 |  void writenet(FILE*);
      |  ~~~~~~~~~~~~~~~~~~~~~                                    
  123 |  bool checknet(bool);
      |  ~~~~~~~~~~~~~~~~~~~~                                     
  124 |  void allocnet();
      |  ~~~~~~~~~~~~~~~~                                         
  125 |  void free_tq();
      |  ~~~~~~~~~~~~~~~                                          
  126 |  void alloc_tq();
      |  ~~~~~~~~~~~~~~~~                                         
  127 | public:
      | ~~~~~~~                                                   
  128 |  void tqcount(const TQItem*, int);
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                        
  129 |  void tqsave(const TQItem*, int);
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                         
  130 | };
      | ~~                                                        
  131 | 
      |                                                           
  132 | static SaveState* this_savestate;
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                         
  133 | static int callback_mode;
      | ~~~~~~~~~~~~~~~~~~~~~~~~~                                 
  134 | 
      |                                                           
  135 | void tqcallback(const TQItem* tq, int i) {
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                
  136 |  if (callback_mode == 0) {
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~                                
  137 |   this_savestate->tqcount(tq, i);
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                         
  138 |  }else{
      |  ~~~~~~                                                   
  139 |   this_savestate->tqsave(tq, i);
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                          
  140 |  }
      |  ~                                                        
  141 | }
      | ~                                                         
  142 | 
      |                                                           
  143 | #if __sgi && 0
      | ~~~~~~~~~~~~~~                                            
  144 | // fixed in version 5 of os
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~                               
  145 | StateStructInfo* SaveState::ssi;
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                          
  146 | #else
      | ~~~~~                                                     
  147 | SaveState::StateStructInfo* SaveState::ssi;
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~               
  148 | #endif
      | ~~~~~~                                                    
  149 | cTemplate* SaveState::nct;
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~                                
  150 | 
      |                                                           
  151 | SaveState::SaveState() {
      | ~~~~~~~~~~~~~~~~~~~~~~~~                                  
  152 |  int i, j;
      |  ~~~~~~~~~                                                
  153 |  ssi_def();
      |  ~~~~~~~~~~                                               
  154 |  nroot_ = 0;
      |  ~~~~~~~~~~~                                              
  155 |  ss_ = NULL;
      |  ~~~~~~~~~~~                                              
  156 |  nsec_ = 0;
      |  ~~~~~~~~~~                                               
  157 |  nncs_ = 0;
      |  ~~~~~~~~~~                                               
  158 |  ncs_ = NULL;
      |  ~~~~~~~~~~~~                                             
  159 |  npss_ = 0;
      |  ~~~~~~~~~~                                               
  160 |  pss_ = NULL;
      |  ~~~~~~~~~~~~                                             
  161 |  tqs_ = new TQState();
      |  ~~~~~~~~~~~~~~~~~~~~~                                    
  162 |  tqs_->nstate = 0;
      |  ~~~~~~~~~~~~~~~~~                                        
  163 |  nprs_ = 0;
      |  ~~~~~~~~~~                                               
  164 |  prs_ = NULL;
      |  ~~~~~~~~~~~~                                             
  165 |  nacell_ = 0;
      |  ~~~~~~~~~~~~                                             
  166 |  for (i=0; i < n_memb_func; ++i) if (nrn_is_artificial_[i]) {
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
  167 |   ++nacell_;
      |   ~~~~~~~~~~                                              
  168 |  }
      |  ~                                                        
  169 |  acell_ = new ACellState[nacell_];
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                        
  170 |  for (i=0; i < nacell_; ++i) {
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                            
  171 |   acell_[i].ncell = 0;
      |   ~~~~~~~~~~~~~~~~~~~~                                    
  172 |   acell_[i].state = 0;
      |   ~~~~~~~~~~~~~~~~~~~~                                    
  173 |  }
      |  ~                                                        
  174 |  for (i=0, j=0; i < n_memb_func; ++i) if (nrn_is_artificial_[i]) {
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
  175 |   acell_[j].type = i;
      |   ~~~~~~~~~~~~~~~~~~~                                     
  176 |   ++j;
      |   ~~~~                                                    
  177 |  }
      |  ~                                                        
  178 | }
      | ~                                                         
  179 | 
      |                                                           
  180 | SaveState::~SaveState() {
      | ~~~~~~~~~~~~~~~~~~~~~~~~~                                 
  181 |  ssfree();
      |  ~~~~~~~~~                                                
  182 |  delete tqs_;
      |  ~~~~~~~~~~~~                                             
  183 |  delete [] acell_;
      |  ~~~~~~~~~~~~~~~~~                                        
  184 | }
      | ~                                                         
  185 | 
      |                                                           
  186 | void SaveState::fread_NodeState(NodeState* ns, int cnt, FILE* f) {
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
  187 |  for (int i=0; i < cnt; ++i) {
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                            
  188 |   ASSERTfread(&ns[i].v, sizeof(double), 1, f);
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~            
  189 |   ASSERTfread(&ns[i].nmemb, sizeof(int), 1, f);
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~           
  190 |   ASSERTfread(&ns[i].nstate, sizeof(int), 1, f);
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~          
  191 |  }
      |  ~                                                        
  192 | }
      | ~                                                         
  193 | void SaveState::fwrite_NodeState(NodeState* ns, int cnt, FILE* f){
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
  194 |  for (int i=0; i < cnt; ++i) {
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                            
  195 |   ASSERTfwrite(&ns[i].v, sizeof(double), 1, f);
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~           
  196 |   ASSERTfwrite(&ns[i].nmemb, sizeof(int), 1, f);
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~          
  197 |   ASSERTfwrite(&ns[i].nstate, sizeof(int), 1, f);
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~         
  198 |  }
      |  ~                                                        
  199 | }
      | ~                                                         
  200 | void SaveState::fread_SecState(SecState* ss, int cnt, FILE* f){
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
  201 |  int b;
      |  ~~~~~~                                                   
  202 |  for (int i=0; i < cnt; ++i) {
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                            
  203 |   ASSERTfread(&ss[i].nnode, sizeof(int), 1, f);
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~           
  204 |   ASSERTfread(&b, sizeof(int), 1, f);
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                     
  205 |   if (b) {
      |   ~~~~~~~~                                                
  206 |    ss[i].root = new NodeState;
      |    ~~~~~~~~~~~~~~~~~~~~~~~~~~~                            
  207 |   }else{
      |   ~~~~~~                                                  
  208 |    ss[i].root = 0;
      |    ~~~~~~~~~~~~~~~                                        
  209 |   }
      |   ~                                                       
  210 |  }
      |  ~                                                        
  211 | }
      | ~                                                         
  212 | void SaveState::fwrite_SecState(SecState* ss, int cnt, FILE* f){
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
  213 |  int b;
      |  ~~~~~~                                                   
  214 |  for (int i=0; i < cnt; ++i) {
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                            
  215 |   ASSERTfwrite(&ss[i].nnode, sizeof(int), 1, f);
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~          
  216 |   b = ss[i].root ? 1 : 0;
      |   ~~~~~~~~~~~~~~~~~~~~~~~                                 
  217 |   ASSERTfwrite(&b, sizeof(int), 1, f);
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                    
  218 |  }
      |  ~                                                        
  219 | }
      | ~                                                         
  220 | 
      |                                                           
  221 | void SaveState::ssi_def() {
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~                               
  222 |  if (nct) { return; }
      |  ~~~~~~~~~~~~~~~~~~~~                                     
  223 |  Symbol* s = hoc_lookup("NetCon");
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                        
  224 |  nct = s->u.ctemplate;
      |  ~~~~~~~~~~~~~~~~~~~~~                                    
  225 |  ssi = new StateStructInfo[n_memb_func];
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                  
  226 |  for (int im=0; im < n_memb_func; ++im) {
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                 
  227 |   ssi[im].offset = -1;
      |   ~~~~~~~~~~~~~~~~~~~~                                    
  228 |   ssi[im].size = 0;
      |   ~~~~~~~~~~~~~~~~~                                       
  229 |   if (!memb_func[im].sym) {
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~                               
  230 |    continue;
      |    ~~~~~~~~~                                              
  231 |   }
      |   ~                                                       
  232 |   NrnProperty* np = new NrnProperty(memb_func[im].sym->name);
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
  233 |   // generally we only save STATE variables. However for
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~  
  234 |   // models containing a NET_RECEIVE block, we also need to
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
  235 |   // save everything except the parameters
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                
  236 |   // because they often contain
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                           
  237 |   // logic and analytic state values. Unfortunately, it is often
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
  238 |   // the case that the ASSIGNED variables are not declared as
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
  239 |   // RANGE variables so to avoid missing state, save the whole
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
  240 |   // param array including PARAMETERs.
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                    
  241 |      if  (pnt_receive[im]) {
      |      ~~~~~~~~~~~~~~~~~~~~~~~                              
  242 |   ssi[im].offset = 0;
      |   ~~~~~~~~~~~~~~~~~~~                                     
  243 |   ssi[im].size = np->prop()->param_size;
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                  
  244 |      }else{
      |      ~~~~~~                                               
  245 |   int type = STATE;
      |   ~~~~~~~~~~~~~~~~~                                       
  246 |   for (Symbol* sym = np->first_var(); np->more_var(); sym = np->next_var()) {
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
  247 |    if (np->var_type(sym) == type
      |    ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                          
  248 |        || np->var_type(sym) == STATE
      |        ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                      
  249 |        || sym->subtype == _AMBIGUOUS) {
      |        ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                   
  250 |     if (ssi[im].offset < 0) {
      |     ~~~~~~~~~~~~~~~~~~~~~~~~~                             
  251 |      ssi[im].offset = np->prop_index(sym);
      |      ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                
  252 |     }
      |     ~                                                     
  253 |     ssi[im].size += hoc_total_array_data(sym, 0);
      |     ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~         
  254 |    }
      |    ~                                                      
  255 |   }
      |   ~                                                       
  256 |      }
      |      ~                                                    
  257 |      delete np;
      |      ~~~~~~~~~~                                           
  258 |  }
      |  ~                                                        
  259 | }
      | ~                                                         
  260 | 
      |                                                           
  261 | bool SaveState::check(bool warn) {
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                        
  262 |  hoc_Item* qsec;
      |  ~~~~~~~~~~~~~~~                                          
  263 |  int isec;
      |  ~~~~~~~~~                                                
  264 |  if (nsec_ != section_count) {
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                            
  265 |   if (warn) {
      |   ~~~~~~~~~~~                                             
  266 | fprintf(stderr, "SaveState warning: %d sections exist but saved %d\n",
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
  267 |    section_count, nsec_);
      |    ~~~~~~~~~~~~~~~~~~~~~~                                 
  268 |   }
      |   ~                                                       
  269 |   return false;
      |   ~~~~~~~~~~~~~                                           
  270 |  }
      |  ~                                                        
  271 |  if (nroot_ != nrn_global_ncell) {
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                        
  272 |   if (warn) {
      |   ~~~~~~~~~~~                                             
  273 | fprintf(stderr, "SaveState warning: %d cells exist but saved %d\n",
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
  274 |    nrn_global_ncell, nroot_);
      |    ~~~~~~~~~~~~~~~~~~~~~~~~~~                             
  275 |   }
      |   ~                                                       
  276 |   return false;
      |   ~~~~~~~~~~~~~                                           
  277 |  }
      |  ~                                                        
  278 |  if (nsec_ && ss_[0].sec == NULL) { // got the data from a read
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
  279 |   isec = 0; ForAllSections(sec)
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                           
  280 |    ss_[isec].sec = sec;
      |    ~~~~~~~~~~~~~~~~~~~~                                   
  281 |    section_ref(ss_[isec].sec);
      |    ~~~~~~~~~~~~~~~~~~~~~~~~~~~                            
  282 |    ++isec;
      |    ~~~~~~~                                                
  283 |   }
      |   ~                                                       
  284 |  }
      |  ~                                                        
  285 |  for (int i=0, j=0; i < n_memb_func; ++i) if (nrn_is_artificial_[i]) {
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
  286 |   if (!checkacell(acell_[j], i, warn)) {
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                  
  287 |    return false;
      |    ~~~~~~~~~~~~~                                          
  288 |   }
      |   ~                                                       
  289 |   ++j;
      |   ~~~~                                                    
  290 |  }
      |  ~                                                        
  291 |  for (int isec=0; isec < nsec_; ++isec) {
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                 
  292 |   SecState& ss = ss_[isec];
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~                               
  293 |   Section* sec = ss.sec;
      |   ~~~~~~~~~~~~~~~~~~~~~~                                  
  294 |   if (!sec->prop || sec->nnode != ss.nnode) {
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~             
  295 | if (warn) {
      | ~~~~~~~~~~~                                               
  296 | if (!sec->prop) {
      | ~~~~~~~~~~~~~~~~~                                         
  297 | fprintf(stderr, "SaveState warning: saved section no longer exists\n");
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
  298 | }else{
      | ~~~~~~                                                    
  299 | fprintf(stderr, "SaveState warning: %s has %d nodes but saved %d\n",
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
  300 |     secname(sec), sec->nnode, ss.nnode);
      |     ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                  
  301 | }
      | ~                                                         
  302 | }
      | ~                                                         
  303 |    return false;
      |    ~~~~~~~~~~~~~                                          
  304 |   }
      |   ~                                                       
  305 |   for (int inode = 0; inode < ss.nnode; ++inode) {
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~        
  306 |    NodeState& ns = ss.ns[inode];
      |    ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                          
  307 |    Node* nd = sec->pnode[inode];
      |    ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                          
  308 |    int i=0;
      |    ~~~~~~~~                                               
  309 |    Prop* p;
      |    ~~~~~~~~                                               
  310 |    for (p = nd->prop; p; p = p->next) {
      |    ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                   
  311 |     if (ssi[p->type].size == 0) {
      |     ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                         
  312 |      continue;
      |      ~~~~~~~~~                                            
  313 |     }
      |     ~                                                     
  314 |     if (i >= ns.nmemb) {
      |     ~~~~~~~~~~~~~~~~~~~~                                  
  315 | if (warn) {
      | ~~~~~~~~~~~                                               
  316 | fprintf(stderr,"SaveState warning: \
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                      
  317 | fewer mechanisms saved than exist at node %d of %s\n",
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~    
  318 |  inode, secname(sec));
      |  ~~~~~~~~~~~~~~~~~~~~~                                    
  319 | }
      | ~                                                         
  320 |      return false;
      |      ~~~~~~~~~~~~~                                        
  321 |     }
      |     ~                                                     
  322 |     if (p->type != ns.type[i]) {
      |     ~~~~~~~~~~~~~~~~~~~~~~~~~~~~                          
  323 | if (warn) {
      | ~~~~~~~~~~~                                               
  324 | fprintf(stderr, "SaveState warning: mechanisms out of order at node %d of %s\n\
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
  325 | saved %s but need %s\n",
      | ~~~~~~~~~~~~~~~~~~~~~~~~                                  
  326 | inode, secname(sec), memb_func[i].sym->name, memb_func[p->type].sym->name);
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
  327 | }
      | ~                                                         
  328 |      return false;
      |      ~~~~~~~~~~~~~                                        
  329 |     }
      |     ~                                                     
  330 |     ++i;
      |     ~~~~                                                  
  331 |    }
      |    ~                                                      
  332 |    if (i != ns.nmemb) {
      |    ~~~~~~~~~~~~~~~~~~~~                                   
  333 | if (warn) {
      | ~~~~~~~~~~~                                               
  334 | fprintf(stderr, "SaveState warning: more mechanisms saved than exist at node %d of %s\n",
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
  335 |  inode, secname(sec));
      |  ~~~~~~~~~~~~~~~~~~~~~                                    
  336 | }
      | ~                                                         
  337 |     return false;
      |     ~~~~~~~~~~~~~                                         
  338 |    }
      |    ~                                                      
  339 |   }
      |   ~                                                       
  340 |   if (!sec->parentsec || ss.root) {
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                       
  341 |    if (sec->parentsec || !ss.root) {
      |    ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                      
  342 | if (warn) {
      | ~~~~~~~~~~~                                               
  343 | fprintf(stderr, "SaveState warning: Saved section and %s are not both root sections.\n",
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
  344 |  secname(sec));
      |  ~~~~~~~~~~~~~~                                           
  345 | }
      | ~                                                         
  346 |    }
      |    ~                                                      
  347 |    if (!checknode(*ss.root, sec->parentnode, warn)) {
      |    ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~     
  348 |     return false;
      |     ~~~~~~~~~~~~~                                         
  349 |    }
      |    ~                                                      
  350 |   }
      |   ~                                                       
  351 | 
      |                                                           
  352 |  }
      |  ~                                                        
  353 |  if (!checknet(warn)) { return false; }
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                   
  354 |  return true;
      |  ~~~~~~~~~~~~                                             
  355 | }
      | ~                                                         
  356 | 
      |                                                           
  357 | bool SaveState::checknode(NodeState& ns, Node* nd, bool warn) {
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
  358 |  int i=0;
      |  ~~~~~~~~                                                 
  359 |  Prop* p;
      |  ~~~~~~~~                                                 
  360 |  for (p = nd->prop; p; p = p->next) {
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                     
  361 |   if (ssi[p->type].size == 0) {
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                           
  362 |    continue;
      |    ~~~~~~~~~                                              
  363 |   }
      |   ~                                                       
  364 |   if (i >= ns.nmemb) {
      |   ~~~~~~~~~~~~~~~~~~~~                                    
  365 | if (warn) {
      | ~~~~~~~~~~~                                               
  366 | fprintf(stderr,"SaveState warning: \
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                      
  367 | fewer mechanisms saved than exist at a root node\n");
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~     
  368 | }
      | ~                                                         
  369 |    return false;
      |    ~~~~~~~~~~~~~                                          
  370 |   }
      |   ~                                                       
  371 |   if (p->type != ns.type[i]) {
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~~                            
  372 | if (warn) {
      | ~~~~~~~~~~~                                               
  373 | fprintf(stderr, "SaveState warning: mechanisms out of order at a rootnode\n\
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
  374 | saved %s but need %s\n",
      | ~~~~~~~~~~~~~~~~~~~~~~~~                                  
  375 | memb_func[i].sym->name, memb_func[p->type].sym->name);
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~    
  376 | }
      | ~                                                         
  377 |    return false;
      |    ~~~~~~~~~~~~~                                          
  378 |   }
      |   ~                                                       
  379 |   ++i;
      |   ~~~~                                                    
  380 |  }
      |  ~                                                        
  381 |  if (i != ns.nmemb) {
      |  ~~~~~~~~~~~~~~~~~~~~                                     
  382 | if (warn) {
      | ~~~~~~~~~~~                                               
  383 | fprintf(stderr, "SaveState warning: more mechanisms saved than exist at a rootnode\n");
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
  384 | }
      | ~                                                         
  385 |   return false;
      |   ~~~~~~~~~~~~~                                           
  386 |  }
      |  ~                                                        
  387 |  return true;
      |  ~~~~~~~~~~~~                                             
  388 | }
      | ~                                                         
  389 | 
      |                                                           
  390 | bool SaveState::checkacell(ACellState& ac, int type, bool warn) {
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
  391 |  if (memb_list[type].nodecount != ac.ncell) {
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~             
  392 | if (warn) {
      | ~~~~~~~~~~~                                               
  393 | fprintf(stderr, "SaveState warning: different number of %s saved than exist.\n",
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
  394 | memb_func[type].sym->name);
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~                               
  395 | }
      | ~                                                         
  396 |   return false;
      |   ~~~~~~~~~~~~~                                           
  397 |  }
      |  ~                                                        
  398 |  return true;
      |  ~~~~~~~~~~~~                                             
  399 | }
      | ~                                                         
  400 | 
      |                                                           
  401 | void SaveState::alloc() {
      | ~~~~~~~~~~~~~~~~~~~~~~~~~                                 
  402 |  ssfree();
      |  ~~~~~~~~~                                                
  403 |  int inode, isec;
      |  ~~~~~~~~~~~~~~~~                                         
  404 |  hoc_Item* qsec;
      |  ~~~~~~~~~~~~~~~                                          
  405 |  nsec_ = section_count;
      |  ~~~~~~~~~~~~~~~~~~~~~~                                   
  406 |  ss_ = new SecState[nsec_];
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~                               
  407 |  nroot_ = 0;
      |  ~~~~~~~~~~~                                              
  408 |  isec = 0;
      |  ~~~~~~~~~                                                
  409 |  ForAllSections(sec)
      |  ~~~~~~~~~~~~~~~~~~~                                      
  410 |   SecState& ss = ss_[isec];
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~                               
  411 |   ss.sec = sec;
      |   ~~~~~~~~~~~~~                                           
  412 |   section_ref(ss.sec);
      |   ~~~~~~~~~~~~~~~~~~~~                                    
  413 |   ss.nnode = ss.sec->nnode;
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~                               
  414 |   ss.ns = new NodeState[ss.nnode];
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                        
  415 |   for (inode = 0; inode < ss.nnode; ++inode) {
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~            
  416 |    Node* nd = ss.sec->pnode[inode];
      |    ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                       
  417 |    NodeState& ns = ss.ns[inode];
      |    ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                          
  418 |    allocnode(ns, nd);
      |    ~~~~~~~~~~~~~~~~~~                                     
  419 |   }
      |   ~                                                       
  420 |   if (!sec->parentsec) {
      |   ~~~~~~~~~~~~~~~~~~~~~~                                  
  421 |    assert(sec->parentnode);
      |    ~~~~~~~~~~~~~~~~~~~~~~~~                               
  422 |    ss.root = new NodeState;
      |    ~~~~~~~~~~~~~~~~~~~~~~~~                               
  423 |    allocnode(*ss.root, sec->parentnode);
      |    ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                  
  424 |    ++nroot_;
      |    ~~~~~~~~~                                              
  425 |   }else{
      |   ~~~~~~                                                  
  426 |    ss.root = 0;
      |    ~~~~~~~~~~~~                                           
  427 |   }
      |   ~                                                       
  428 |   ++isec;
      |   ~~~~~~~                                                 
  429 |  }
      |  ~                                                        
  430 |  assert(isec == section_count);
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                           
  431 |  assert(nroot_ == nrn_global_ncell);
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                      
  432 |  for (int i=0, j=0; i < n_memb_func; ++i) if (nrn_is_artificial_[i]) {
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
  433 |   allocacell(acell_[j], i);
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~                               
  434 |   ++j;
      |   ~~~~                                                    
  435 |  }
      |  ~                                                        
  436 |  PlayRecList* prl = net_cvode_instance_prl();
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~             
  437 |  nprs_ = prl->count();
      |  ~~~~~~~~~~~~~~~~~~~~~                                    
  438 |  if (nprs_) {
      |  ~~~~~~~~~~~~                                             
  439 |   prs_ = new PlayRecordSave*[nprs_];
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                      
  440 |  }
      |  ~                                                        
  441 |  allocnet();
      |  ~~~~~~~~~~~                                              
  442 | }
      | ~                                                         
  443 | 
      |                                                           
  444 | void SaveState::allocnode(NodeState& ns, Node* nd) {
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~      
  445 |  ns.nmemb = 0;
      |  ~~~~~~~~~~~~~                                            
  446 |  ns.type = NULL;
      |  ~~~~~~~~~~~~~~~                                          
  447 |  ns.state = NULL;
      |  ~~~~~~~~~~~~~~~~                                         
  448 |  ns.nstate = 0;
      |  ~~~~~~~~~~~~~~                                           
  449 |  Prop* p;
      |  ~~~~~~~~                                                 
  450 |  for (p = nd->prop; p; p = p->next) {
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                     
  451 |   if (ssi[p->type].size == 0) {
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                           
  452 |    continue;
      |    ~~~~~~~~~                                              
  453 |   }
      |   ~                                                       
  454 |   ++ns.nmemb;
      |   ~~~~~~~~~~~                                             
  455 |   ns.nstate += ssi[p->type].size;
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                         
  456 |  }
      |  ~                                                        
  457 |  if (ns.nmemb) {
      |  ~~~~~~~~~~~~~~~                                          
  458 |   ns.type = new int[ns.nmemb];
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~~                            
  459 |  }
      |  ~                                                        
  460 |  if (ns.nstate) {
      |  ~~~~~~~~~~~~~~~~                                         
  461 |   ns.state = new double[ns.nstate];
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                       
  462 |  }
      |  ~                                                        
  463 |  int i = 0;
      |  ~~~~~~~~~~                                               
  464 |  for (p = nd->prop; p; p = p->next) {
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                     
  465 |   if (ssi[p->type].size == 0) {
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                           
  466 |    continue;
      |    ~~~~~~~~~                                              
  467 |   }
      |   ~                                                       
  468 |   ns.type[i] = p->type;
      |   ~~~~~~~~~~~~~~~~~~~~~                                   
  469 |   ++i;
      |   ~~~~                                                    
  470 |  }
      |  ~                                                        
  471 | }
      | ~                                                         
  472 | 
      |                                                           
  473 | void SaveState::allocacell(ACellState& ac, int type) {
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~    
  474 |  Memb_list& ml = memb_list[type];
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                         
  475 |  ac.type = type;
      |  ~~~~~~~~~~~~~~~                                          
  476 |  ac.ncell = ml.nodecount;
      |  ~~~~~~~~~~~~~~~~~~~~~~~~                                 
  477 |  ac.state = new double[ac.ncell * ssi[type].size];
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~        
  478 | }
      | ~                                                         
  479 | 
      |                                                           
  480 | void SaveState::ssfree() {
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~                                
  481 |  int i, isec, inode;
      |  ~~~~~~~~~~~~~~~~~~~                                      
  482 |  for (isec=0; isec < nsec_; ++isec) {
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                     
  483 |   SecState& ss = ss_[isec];
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~                               
  484 |   for (inode = 0; inode < ss.nnode; ++inode) {
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~            
  485 |    NodeState& ns = ss.ns[inode];
      |    ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                          
  486 |    if (ns.nmemb) {
      |    ~~~~~~~~~~~~~~~                                        
  487 |     delete [] ns.type;
      |     ~~~~~~~~~~~~~~~~~~                                    
  488 |    }
      |    ~                                                      
  489 |    if (ns.nstate) {
      |    ~~~~~~~~~~~~~~~~                                       
  490 |     delete [] ns.state;
      |     ~~~~~~~~~~~~~~~~~~~                                   
  491 |    }
      |    ~                                                      
  492 |   }
      |   ~                                                       
  493 |   if (ss.root) {
      |   ~~~~~~~~~~~~~~                                          
  494 |    NodeState& ns = *ss.root;
      |    ~~~~~~~~~~~~~~~~~~~~~~~~~                              
  495 |    if (ns.nmemb) {
      |    ~~~~~~~~~~~~~~~                                        
  496 |     delete [] ns.type;
      |     ~~~~~~~~~~~~~~~~~~                                    
  497 |    }
      |    ~                                                      
  498 |    if (ns.nstate) {
      |    ~~~~~~~~~~~~~~~~                                       
  499 |     delete [] ns.state;
      |     ~~~~~~~~~~~~~~~~~~~                                   
  500 |    }
      |    ~                                                      
  501 |    delete ss.root;
      |    ~~~~~~~~~~~~~~~                                        
  502 |   }
      |   ~                                                       
  503 |   if (ss.nnode) {
      |   ~~~~~~~~~~~~~~~                                         
  504 |    delete [] ss.ns;
      |    ~~~~~~~~~~~~~~~~                                       
  505 |   }
      |   ~                                                       
  506 |   if (ss.sec) { // got info from an fread but never checked it
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
  507 |    section_unref(ss.sec);
      |    ~~~~~~~~~~~~~~~~~~~~~~                                 
  508 |   }
      |   ~                                                       
  509 |  }
      |  ~                                                        
  510 |  if (nsec_) {
      |  ~~~~~~~~~~~~                                             
  511 |   delete [] ss_;
      |   ~~~~~~~~~~~~~~                                          
  512 |  }
      |  ~                                                        
  513 |  nsec_ = 0;
      |  ~~~~~~~~~~                                               
  514 |  ss_ = NULL;
      |  ~~~~~~~~~~~                                              
  515 |  for (i=0; i < nacell_; ++i) {
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                            
  516 |   if (acell_[i].ncell) {
      |   ~~~~~~~~~~~~~~~~~~~~~~                                  
  517 |    delete [] acell_[i].state;
      |    ~~~~~~~~~~~~~~~~~~~~~~~~~~                             
  518 |    acell_[i].state = 0;
      |    ~~~~~~~~~~~~~~~~~~~~                                   
  519 |    acell_[i].ncell = 0;
      |    ~~~~~~~~~~~~~~~~~~~~                                   
  520 |   }
      |   ~                                                       
  521 |  } // note we do not destroy the acell_.
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                  
  522 |  if (nncs_) {
      |  ~~~~~~~~~~~~                                             
  523 |   for (i = 0; i < nncs_; ++i) {
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                           
  524 |    if (ncs_[i].nstate) {
      |    ~~~~~~~~~~~~~~~~~~~~~                                  
  525 |     delete [] ncs_[i].state;
      |     ~~~~~~~~~~~~~~~~~~~~~~~~                              
  526 |    }
      |    ~                                                      
  527 |   }
      |   ~                                                       
  528 |   delete [] ncs_;
      |   ~~~~~~~~~~~~~~~                                         
  529 |  }
      |  ~                                                        
  530 |  nncs_ = 0;
      |  ~~~~~~~~~~                                               
  531 |  ncs_ = NULL;
      |  ~~~~~~~~~~~~                                             
  532 |  if (npss_) {
      |  ~~~~~~~~~~~~                                             
  533 |   delete [] pss_;
      |   ~~~~~~~~~~~~~~~                                         
  534 |  }
      |  ~                                                        
  535 |  npss_ = 0;
      |  ~~~~~~~~~~                                               
  536 |  pss_ = NULL;
      |  ~~~~~~~~~~~~                                             
  537 |  free_tq();
      |  ~~~~~~~~~~                                               
  538 |  if (nprs_) {
      |  ~~~~~~~~~~~~                                             
  539 |   for (i=0; i < nprs_; ++i) {
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~                             
  540 |    delete prs_[i];
      |    ~~~~~~~~~~~~~~~                                        
  541 |   }
      |   ~                                                       
  542 |   delete [] prs_;
      |   ~~~~~~~~~~~~~~~                                         
  543 |  }
      |  ~                                                        
  544 |  nprs_ = 0;
      |  ~~~~~~~~~~                                               
  545 | }
      | ~                                                         
  546 | 
      |                                                           
  547 | void SaveState::save() {
      | ~~~~~~~~~~~~~~~~~~~~~~~~                                  
  548 |  NrnThread* nt;
      |  ~~~~~~~~~~~~~~                                           
  549 |  if (!check(false)) {
      |  ~~~~~~~~~~~~~~~~~~~~                                     
  550 |   alloc();
      |   ~~~~~~~~                                                
  551 |  }
      |  ~                                                        
  552 |  FOR_THREADS(nt) {
      |  ~~~~~~~~~~~~~~~~~                                        
  553 |   assert(t == nt->_t);
      |   ~~~~~~~~~~~~~~~~~~~~                                    
  554 |  }
      |  ~                                                        
  555 |  t_ = t;
      |  ~~~~~~~                                                  
  556 |  int inode;
      |  ~~~~~~~~~~                                               
  557 |  for (int isec=0; isec < nsec_; ++isec) {
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                 
  558 |   SecState& ss = ss_[isec];
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~                               
  559 |   Section* sec = ss.sec;
      |   ~~~~~~~~~~~~~~~~~~~~~~                                  
  560 |   for (inode = 0; inode < ss.nnode; ++inode) {
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~            
  561 |    NodeState& ns = ss.ns[inode];
      |    ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                          
  562 |    Node* nd = sec->pnode[inode];
      |    ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                          
  563 |    savenode(ns, nd);
      |    ~~~~~~~~~~~~~~~~~                                      
  564 |   }
      |   ~                                                       
  565 |   if (ss.root) {
      |   ~~~~~~~~~~~~~~                                          
  566 |    NodeState& ns = *ss.root;
      |    ~~~~~~~~~~~~~~~~~~~~~~~~~                              
  567 |    Node* nd = sec->parentnode;
      |    ~~~~~~~~~~~~~~~~~~~~~~~~~~~                            
  568 |    savenode(ns, nd);
      |    ~~~~~~~~~~~~~~~~~                                      
  569 |   }
      |   ~                                                       
  570 |  }
      |  ~                                                        
  571 |  for (int i=0, j=0; i < n_memb_func; ++i) if (nrn_is_artificial_[i]) {
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
  572 |   saveacell(acell_[j], i);
      |   ~~~~~~~~~~~~~~~~~~~~~~~~                                
  573 |   ++j;
      |   ~~~~                                                    
  574 |  }
      |  ~                                                        
  575 |  if (nprs_) {
      |  ~~~~~~~~~~~~                                             
  576 |   PlayRecList* prl = net_cvode_instance_prl();
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~            
  577 |   int i;
      |   ~~~~~~                                                  
  578 |   assert(nprs_ == prl->count());
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                          
  579 |   for (i=0; i < nprs_; ++i) {
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~                             
  580 |    prs_[i] = prl->item(i)->savestate_save();
      |    ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~              
  581 |   }
      |   ~                                                       
  582 |  }
      |  ~                                                        
  583 |  savenet();
      |  ~~~~~~~~~~                                               
  584 | }
      | ~                                                         
  585 | 
      |                                                           
  586 | void SaveState::savenode(NodeState& ns, Node* nd) {
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~       
  587 |  ns.v = NODEV(nd);
      |  ~~~~~~~~~~~~~~~~~                                        
  588 |  int istate = 0;
      |  ~~~~~~~~~~~~~~~                                          
  589 |  Prop* p;
      |  ~~~~~~~~                                                 
  590 |  for (p = nd->prop; p; p = p->next) {
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                     
  591 |   if (ssi[p->type].size == 0) {
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                           
  592 |    continue;
      |    ~~~~~~~~~                                              
  593 |   }
      |   ~                                                       
  594 |   int type = p->type;
      |   ~~~~~~~~~~~~~~~~~~~                                     
  595 |   int max = ssi[type].offset + ssi[type].size;
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~            
  596 | #if EXTRACELLULAR
      | ~~~~~~~~~~~~~~~~~                                         
  597 |   if (type == EXTRACELL) {
      |   ~~~~~~~~~~~~~~~~~~~~~~~~                                
  598 |    for (int i=0; i < nlayer; ++i) {
      |    ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                       
  599 |     ns.state[istate++] = nd->extnode->v[i];
      |     ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~               
  600 |    }
      |    ~                                                      
  601 |   }else
      |   ~~~~~                                                   
  602 | #endif
      | ~~~~~~                                                    
  603 |   {
      |   ~                                                       
  604 |    for (int ip=ssi[type].offset; ip < max; ++ip) {
      |    ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~        
  605 |     ns.state[istate++] = p->param[ip];
      |     ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                    
  606 |    }
      |    ~                                                      
  607 |   }
      |   ~                                                       
  608 |  }
      |  ~                                                        
  609 | }
      | ~                                                         
  610 | 
      |                                                           
  611 | void SaveState::saveacell(ACellState& ac, int type) {
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~     
  612 |  Memb_list& ml = memb_list[type];
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                         
  613 |  int sz = ssi[type].size;
      |  ~~~~~~~~~~~~~~~~~~~~~~~~                                 
  614 |  double* p = ac.state;
      |  ~~~~~~~~~~~~~~~~~~~~~                                    
  615 |  for (int i = 0; i < ml.nodecount; ++i) {
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                 
  616 |   double* d = ml.data[i];
      |   ~~~~~~~~~~~~~~~~~~~~~~~                                 
  617 |   for (int j=0; j < sz; ++j) {
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~~                            
  618 |    (*p++) = d[j];
      |    ~~~~~~~~~~~~~~                                         
  619 |   }
      |   ~                                                       
  620 |  }
      |  ~                                                        
  621 | }
      | ~                                                         
  622 | 
      |                                                           
  623 | void SaveState::restore(int type) {
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                       
  624 |  NrnThread* nt;
      |  ~~~~~~~~~~~~~~                                           
  625 |  if (!check(true)) {
      |  ~~~~~~~~~~~~~~~~~~~                                      
  626 |   hoc_execerror("SaveState:",
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~                             
  627 |   "Stored state inconsistent with current neuron structure");
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
  628 |  }
      |  ~                                                        
  629 |  t = t_;
      |  ~~~~~~~                                                  
  630 |  FOR_THREADS(nt) {
      |  ~~~~~~~~~~~~~~~~~                                        
  631 |   nt->_t = t_;
      |   ~~~~~~~~~~~~                                            
  632 |  }
      |  ~                                                        
  633 |  int inode;
      |  ~~~~~~~~~~                                               
  634 |  for (int isec=0; isec < nsec_; ++isec) {
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                 
  635 |   SecState& ss = ss_[isec];
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~                               
  636 |   Section* sec = ss.sec;
      |   ~~~~~~~~~~~~~~~~~~~~~~                                  
  637 |   for (inode = 0; inode < ss.nnode; ++inode) {
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~            
  638 |    NodeState& ns = ss.ns[inode];
      |    ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                          
  639 |    Node* nd = sec->pnode[inode];
      |    ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                          
  640 |    restorenode(ns, nd);
      |    ~~~~~~~~~~~~~~~~~~~~                                   
  641 |   }
      |   ~                                                       
  642 |   if (ss.root) {
      |   ~~~~~~~~~~~~~~                                          
  643 |    NodeState& ns = *ss.root;
      |    ~~~~~~~~~~~~~~~~~~~~~~~~~                              
  644 |    Node* nd = sec->parentnode;
      |    ~~~~~~~~~~~~~~~~~~~~~~~~~~~                            
  645 |    restorenode(ns, nd);
      |    ~~~~~~~~~~~~~~~~~~~~                                   
  646 |   }
      |   ~                                                       
  647 |  }
      |  ~                                                        
  648 |  for (int i=0, j=0; i < n_memb_func; ++i) if (nrn_is_artificial_[i]) {
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
  649 |   restoreacell(acell_[j], i);
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~                             
  650 |   ++j;
      |   ~~~~                                                    
  651 |  }
      |  ~                                                        
  652 |  if (type == 1) { return; }
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~                               
  653 |  PlayRecList* prl = net_cvode_instance_prl();
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~             
  654 |  // during a local step the PlayRecList is augmented with GLineRecord
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
  655 |  // assert(nprs_ == prl->count());
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                        
  656 |  assert(nprs_ <= prl->count());
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                           
  657 |  int i;
      |  ~~~~~~                                                   
  658 |  for (i = 0; i < nprs_; ++i) {
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                            
  659 |   prs_[i]->savestate_restore();
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                           
  660 |  }
      |  ~                                                        
  661 |  restorenet();
      |  ~~~~~~~~~~~~~                                            
  662 | }
      | ~                                                         
  663 | 
      |                                                           
  664 | void SaveState::restorenode(NodeState& ns, Node* nd) {
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~    
  665 |  NODEV(nd) = ns.v;;
      |  ~~~~~~~~~~~~~~~~~~                                       
  666 |  int istate = 0;
      |  ~~~~~~~~~~~~~~~                                          
  667 |  Prop* p;
      |  ~~~~~~~~                                                 
  668 |  for (p = nd->prop; p; p = p->next) {
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                     
  669 |   if (ssi[p->type].size == 0) {
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                           
  670 |    continue;
      |    ~~~~~~~~~                                              
  671 |   }
      |   ~                                                       
  672 |   int type = p->type;
      |   ~~~~~~~~~~~~~~~~~~~                                     
  673 |   int max = ssi[type].offset + ssi[type].size;
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~            
  674 | #if EXTRACELLULAR
      | ~~~~~~~~~~~~~~~~~                                         
  675 |   if (type == EXTRACELL) {
      |   ~~~~~~~~~~~~~~~~~~~~~~~~                                
  676 |    for (int i=0; i < nlayer; ++i) {
      |    ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                       
  677 |     nd->extnode->v[i] = ns.state[istate++];
      |     ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~               
  678 |    }
      |    ~                                                      
  679 |   }else
      |   ~~~~~                                                   
  680 | #endif
      | ~~~~~~                                                    
  681 |   {
      |   ~                                                       
  682 |    for (int ip=ssi[type].offset; ip < max; ++ip) {
      |    ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~        
  683 |     p->param[ip] = ns.state[istate++];
      |     ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                    
  684 |    }
      |    ~                                                      
  685 |   }
      |   ~                                                       
  686 |  }
      |  ~                                                        
  687 | }
      | ~                                                         
  688 | 
      |                                                           
  689 | void SaveState::restoreacell(ACellState& ac, int type) {
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~  
  690 |  Memb_list& ml = memb_list[type];
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                         
  691 |  int sz = ssi[type].size;
      |  ~~~~~~~~~~~~~~~~~~~~~~~~                                 
  692 |  double* p = ac.state;
      |  ~~~~~~~~~~~~~~~~~~~~~                                    
  693 |  for (int i = 0; i < ml.nodecount; ++i) {
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                 
  694 |   double* d = ml.data[i];
      |   ~~~~~~~~~~~~~~~~~~~~~~~                                 
  695 |   for (int j=0; j < sz; ++j) {
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~~                            
  696 |    d[j] = (*p++);
      |    ~~~~~~~~~~~~~~                                         
  697 |   }
      |   ~                                                       
  698 |  }
      |  ~                                                        
  699 | }
      | ~                                                         
  700 | 
      |                                                           
  701 | void SaveState::read(OcFile* ocf, bool close) {
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~           
  702 |  if (!ocf->open(ocf->get_name(), "r")) {
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                  
  703 |   hoc_execerror("Couldn't open file for reading:", ocf->get_name());
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
  704 |  }
      |  ~                                                        
  705 |  nrn_shape_update();
      |  ~~~~~~~~~~~~~~~~~~~                                      
  706 |  BinaryMode(ocf)
      |  ~~~~~~~~~~~~~~~                                          
  707 |  FILE* f = ocf->file();
      |  ~~~~~~~~~~~~~~~~~~~~~~                                   
  708 |  ssfree();
      |  ~~~~~~~~~                                                
  709 |  char buf[200];
      |  ~~~~~~~~~~~~~~                                           
  710 |  ASSERTfgets(buf, 200, f);
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~                                
  711 |  if (strcmp(buf, "SaveState binary file version 6.0\n") != 0) {
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
  712 |   ocf->close();
      |   ~~~~~~~~~~~~~                                           
  713 |   hoc_execerror("Bad SaveState binary file", " Not version 6.0");
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
  714 |  }
      |  ~                                                        
  715 |  ASSERTfread((char*)&t_, sizeof(double), 1, f);
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~           
  716 | // fscanf(f, "%d %d\n", &nsec_, &nrootnode_);
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~             
  717 | // on some os's fscanf leaves file pointer at wrong place for next fread
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
  718 | // can check it with ftell(f)
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                             
  719 |  ASSERTfgets(buf, 200, f);
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~                                
  720 |  sscanf(buf, "%d %d\n", &nsec_, &nroot_);
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                 
  721 |  // to enable comparison of SaveState files, we avoid
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~     
  722 |  // putting pointers in the files and instead explicitly read/write
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
  723 |  // structure elements.
      |  ~~~~~~~~~~~~~~~~~~~~~~                                   
  724 |  ss_ = new SecState[nsec_];
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~                               
  725 |  fread_SecState(ss_, nsec_, f);
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                           
  726 |  for (int isec=0; isec < nsec_; ++isec) {
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                 
  727 |   SecState& ss = ss_[isec];
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~                               
  728 |   ss.sec = NULL;
      |   ~~~~~~~~~~~~~~                                          
  729 |   ss.ns = new NodeState[ss.nnode];
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                        
  730 |   fread_NodeState(ss.ns, ss.nnode, f);
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                    
  731 |   for (int inode = 0; inode < ss.nnode; ++inode) {
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~        
  732 |    NodeState& ns = ss.ns[inode];
      |    ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                          
  733 |    if (ns.nmemb) {
      |    ~~~~~~~~~~~~~~~                                        
  734 |     ns.type = new int[ns.nmemb];
      |     ~~~~~~~~~~~~~~~~~~~~~~~~~~~~                          
  735 |     ASSERTfread((char*)ns.type, sizeof(int), ns.nmemb, f);
      |     ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
  736 |    }
      |    ~                                                      
  737 |    if (ns.nstate) {
      |    ~~~~~~~~~~~~~~~~                                       
  738 |     ns.state = new double[ns.nstate];
      |     ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                     
  739 |     ASSERTfread((char*)ns.state, sizeof(double), ns.nstate, f);
      |     ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
  740 |    }
      |    ~                                                      
  741 |   }
      |   ~                                                       
  742 |   if (ss.root) {
      |   ~~~~~~~~~~~~~~                                          
  743 |    fread_NodeState(ss.root, 1, f);
      |    ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                        
  744 |    NodeState& ns = *ss.root;
      |    ~~~~~~~~~~~~~~~~~~~~~~~~~                              
  745 |    if (ns.nmemb) {
      |    ~~~~~~~~~~~~~~~                                        
  746 |     ns.type = new int[ns.nmemb];
      |     ~~~~~~~~~~~~~~~~~~~~~~~~~~~~                          
  747 |     ASSERTfread((char*)ns.type, sizeof(int), ns.nmemb, f);
      |     ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
  748 |    }
      |    ~                                                      
  749 |    if (ns.nstate) {
      |    ~~~~~~~~~~~~~~~~                                       
  750 |     ns.state = new double[ns.nstate];
      |     ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                     
  751 |     ASSERTfread((char*)ns.state, sizeof(double), ns.nstate, f);
      |     ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
  752 |    }
      |    ~                                                      
  753 |   }
      |   ~                                                       
  754 |  }
      |  ~                                                        
  755 |  int n = 0;
      |  ~~~~~~~~~~                                               
  756 |  ASSERTfgets(buf, 20, f);
      |  ~~~~~~~~~~~~~~~~~~~~~~~~                                 
  757 |  sscanf(buf, "%d\n", &n);
      |  ~~~~~~~~~~~~~~~~~~~~~~~~                                 
  758 |  assert(n == nacell_);
      |  ~~~~~~~~~~~~~~~~~~~~~                                    
  759 |  for (int i=0, j=0; i < n_memb_func; ++i) if (nrn_is_artificial_[i]) {
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
  760 |   int nt = 0, nc = 0, ns = 0;
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~                             
  761 |   ASSERTfgets(buf, 200, f);
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~                               
  762 |   nrn_assert(sscanf(buf, "%d %d %d\n", &nt, &nc, &ns) == 3);
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
  763 |   assert(nt == i && nc == memb_list[i].nodecount);
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~        
  764 |   assert(ns == nc * ssi[i].size);
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                         
  765 |   acell_[j].ncell = nc;
      |   ~~~~~~~~~~~~~~~~~~~~~                                   
  766 |   acell_[j].state = new double[ns];
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                       
  767 |   ASSERTfread((char*)acell_[j].state, sizeof(double), ns, f);
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
  768 |   ++j;
      |   ~~~~                                                    
  769 |  }
      |  ~                                                        
  770 |  ASSERTfgets(buf, 20, f);
      |  ~~~~~~~~~~~~~~~~~~~~~~~~                                 
  771 |  sscanf(buf, "%d\n", &nprs_);
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~                             
  772 |  if (nprs_) {
      |  ~~~~~~~~~~~~                                             
  773 |   prs_ = new PlayRecordSave*[nprs_];
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                      
  774 |   for (int i=0; i < nprs_; ++i) {
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                         
  775 |    prs_[i] = PlayRecord::savestate_read(f);
      |    ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~               
  776 |   }
      |   ~                                                       
  777 |  }
      |  ~                                                        
  778 |  readnet(f);
      |  ~~~~~~~~~~~                                              
  779 |  if (close) {
      |  ~~~~~~~~~~~~                                             
  780 |   ocf->close();
      |   ~~~~~~~~~~~~~                                           
  781 |  }
      |  ~                                                        
  782 | }
      | ~                                                         
  783 | 
      |                                                           
  784 | void SaveState::write(OcFile* ocf, bool close) {
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~          
  785 |  if (!ocf->open(ocf->get_name(), "w")) {
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                  
  786 |   hoc_execerror("Couldn't open file for writing:", ocf->get_name());
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
  787 |  }
      |  ~                                                        
  788 |  BinaryMode(ocf)
      |  ~~~~~~~~~~~~~~~                                          
  789 |  FILE* f = ocf->file();
      |  ~~~~~~~~~~~~~~~~~~~~~~                                   
  790 |  fprintf(f, "SaveState binary file version 6.0\n");
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~       
  791 |  ASSERTfwrite((char*)&t_, sizeof(double), 1, f);
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~          
  792 |  fprintf(f, "%d %d\n", nsec_, nroot_);
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                    
  793 |  fwrite_SecState(ss_, nsec_, f);
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                          
  794 |  for (int isec=0; isec < nsec_; ++isec) {
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                 
  795 |   SecState& ss = ss_[isec];
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~                               
  796 |   fwrite_NodeState(ss.ns, ss.nnode, f);
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                   
  797 |   for (int inode = 0; inode < ss.nnode; ++inode) {
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~        
  798 |    NodeState& ns = ss.ns[inode];
      |    ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                          
  799 |    if (ns.nmemb){
      |    ~~~~~~~~~~~~~~                                         
  800 |     ASSERTfwrite((char*)ns.type, sizeof(int), ns.nmemb, f);
      |     ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
  801 |    }
      |    ~                                                      
  802 |    if (ns.nstate) {
      |    ~~~~~~~~~~~~~~~~                                       
  803 |     ASSERTfwrite((char*)ns.state, sizeof(double), ns.nstate, f);
      |     ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
  804 |    }
      |    ~                                                      
  805 |   }
      |   ~                                                       
  806 |   if (ss.root) {
      |   ~~~~~~~~~~~~~~                                          
  807 |    fwrite_NodeState(ss.root, 1, f);
      |    ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                       
  808 |    NodeState& ns = *ss.root;
      |    ~~~~~~~~~~~~~~~~~~~~~~~~~                              
  809 |    if (ns.nmemb){
      |    ~~~~~~~~~~~~~~                                         
  810 |     ASSERTfwrite((char*)ns.type, sizeof(int), ns.nmemb, f);
      |     ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~    
/builddir/build/BUILD/nrn-7.8.1/src/oc/nrnassrt.h:23:33: note: in definition of macro 'nrn_assert'
   23 | #  define nrn_assert(ex) {if (!(ex)){fprintf(stderr,"Assertion failed: file %s, line %d\n", __FILE__,__LINE__);hoc_execerror(#ex, (char *)0);}}
      |                                 ^~
/builddir/build/BUILD/nrn-7.8.1/src/nrniv/savstate.cpp:810:5: note: in expansion of macro 'ASSERTfwrite'
  810 |     ASSERTfwrite((char*)ns.type, sizeof(int), ns.nmemb, f);
      |     ^~~~~~~~~~~~
/builddir/build/BUILD/nrn-7.8.1/src/nrniv/savstate.cpp:34:58: warning: comparison of integer expressions of different signedness: 'size_t' {aka 'long unsigned int'} and 'int' [-Wsign-compare]
   34 | #define ASSERTfwrite(a,b,c,d) nrn_assert(fwrite(a,b,c,d) == c)
      |                                          ~~~~~~~~~~~~~~~~^~~~~
   35 | 
      |                                                           
   36 | class SaveState : public Resource {
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                       
   37 | public:
      | ~~~~~~~                                                   
   38 |  SaveState();
      |  ~~~~~~~~~~~~                                             
   39 |  ~SaveState();
      |  ~~~~~~~~~~~~~                                            
   40 |  virtual void save();
      |  ~~~~~~~~~~~~~~~~~~~~                                     
   41 |  virtual void restore(int type);
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                          
   42 |  virtual void read(OcFile*, bool close);
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                  
   43 |  virtual void write(OcFile*, bool close);
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                 
   44 |  struct NodeState {
      |  ~~~~~~~~~~~~~~~~~~                                       
   45 |   double v;
      |   ~~~~~~~~~                                               
   46 |   int nmemb;
      |   ~~~~~~~~~~                                              
   47 |   int* type;
      |   ~~~~~~~~~~                                              
   48 |   int nstate;
      |   ~~~~~~~~~~~                                             
   49 |   double* state;
      |   ~~~~~~~~~~~~~~                                          
   50 |  };
      |  ~~                                                       
   51 |  struct SecState {
      |  ~~~~~~~~~~~~~~~~~                                        
   52 |   Section* sec;
      |   ~~~~~~~~~~~~~                                           
   53 |   int nnode;
      |   ~~~~~~~~~~                                              
   54 |   struct NodeState* ns;
      |   ~~~~~~~~~~~~~~~~~~~~~                                   
   55 |   struct NodeState* root; // non-zero for rootnode
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~        
   56 |  };
      |  ~~                                                       
   57 |  struct StateStructInfo {
      |  ~~~~~~~~~~~~~~~~~~~~~~~~                                 
   58 |   int offset;
      |   ~~~~~~~~~~~                                             
   59 |   int size;
      |   ~~~~~~~~~                                               
   60 |  };
      |  ~~                                                       
   61 |  struct ACellState {
      |  ~~~~~~~~~~~~~~~~~~~                                      
   62 |   int type;
      |   ~~~~~~~~~                                               
   63 |   int ncell;
      |   ~~~~~~~~~~                                              
   64 |   double* state;
      |   ~~~~~~~~~~~~~~                                          
   65 |  };
      |  ~~                                                       
   66 |  struct NetConState {
      |  ~~~~~~~~~~~~~~~~~~~~                                     
   67 |   int object_index; // for checking
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                       
   68 |   int nstate;
      |   ~~~~~~~~~~~                                             
   69 |   double* state;
      |   ~~~~~~~~~~~~~~                                          
   70 |  };
      |  ~~                                                       
   71 |  struct PreSynState {
      |  ~~~~~~~~~~~~~~~~~~~~                                     
   72 |   bool flag; // is it firing?
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~                             
   73 |   double valthresh, valold, told;
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                         
   74 | 
      |                                                           
   75 |  };
      |  ~~                                                       
   76 |  struct TQState {
      |  ~~~~~~~~~~~~~~~~                                         
   77 |   int nstate;
      |   ~~~~~~~~~~~                                             
   78 |   double* tdeliver;
      |   ~~~~~~~~~~~~~~~~~                                       
   79 |   DiscreteEvent** items;
      |   ~~~~~~~~~~~~~~~~~~~~~~                                  
   80 |  };
      |  ~~                                                       
   81 | private:
      | ~~~~~~~~                                                  
   82 |  bool check(bool warn);
      |  ~~~~~~~~~~~~~~~~~~~~~~                                   
   83 |  void alloc();
      |  ~~~~~~~~~~~~~                                            
   84 |  void ssfree();
      |  ~~~~~~~~~~~~~~                                           
   85 |  void ssi_def();
      |  ~~~~~~~~~~~~~~~                                          
   86 | private:
      | ~~~~~~~~                                                  
   87 |  void fread_NodeState(NodeState*, int, FILE*);
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~            
   88 |  void fwrite_NodeState(NodeState*, int, FILE*);
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~           
   89 |  void fread_SecState(SecState*, int, FILE*);
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~              
   90 |  void fwrite_SecState(SecState*, int, FILE*);
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~             
   91 | private:
      | ~~~~~~~~                                                  
   92 |  double t_;
      |  ~~~~~~~~~~                                               
   93 |  int nroot_;
      |  ~~~~~~~~~~~                                              
   94 |  int nsec_;
      |  ~~~~~~~~~~                                               
   95 |  SecState* ss_;
      |  ~~~~~~~~~~~~~~                                           
   96 |  int nacell_; // number of types
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                          
   97 |  ACellState* acell_;
      |  ~~~~~~~~~~~~~~~~~~~                                      
   98 |  int nncs_;
      |  ~~~~~~~~~~                                               
   99 |  NetConState* ncs_;
      |  ~~~~~~~~~~~~~~~~~~                                       
  100 |  int npss_;
      |  ~~~~~~~~~~                                               
  101 |  PreSynState* pss_;
      |  ~~~~~~~~~~~~~~~~~~                                       
  102 |  TQState* tqs_;
      |  ~~~~~~~~~~~~~~                                           
  103 |  int tqcnt_; // volatile for index of forall_callback
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~     
  104 |  int nprs_;
      |  ~~~~~~~~~~                                               
  105 |  PlayRecordSave** prs_;
      |  ~~~~~~~~~~~~~~~~~~~~~~                                   
  106 |  static StateStructInfo* ssi;
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~                             
  107 |  static cTemplate* nct;
      |  ~~~~~~~~~~~~~~~~~~~~~~                                   
  108 | private:
      | ~~~~~~~~                                                  
  109 |  void savenode(NodeState&, Node*);
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                        
  110 |  void restorenode(NodeState&, Node*);
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                     
  111 |  bool checknode(NodeState&, Node*, bool);
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                 
  112 |  void allocnode(NodeState&, Node*);
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                       
  113 | 
      |                                                           
  114 |  void saveacell(ACellState&, int type);
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                   
  115 |  void restoreacell(ACellState&, int type);
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                
  116 |  bool checkacell(ACellState&, int type, bool);
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~            
  117 |  void allocacell(ACellState&, int type);
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                  
  118 | 
      |                                                           
  119 |  void savenet();
      |  ~~~~~~~~~~~~~~~                                          
  120 |  void restorenet();
      |  ~~~~~~~~~~~~~~~~~~                                       
  121 |  void readnet(FILE*);
      |  ~~~~~~~~~~~~~~~~~~~~                                     
  122 |  void writenet(FILE*);
      |  ~~~~~~~~~~~~~~~~~~~~~                                    
  123 |  bool checknet(bool);
      |  ~~~~~~~~~~~~~~~~~~~~                                     
  124 |  void allocnet();
      |  ~~~~~~~~~~~~~~~~                                         
  125 |  void free_tq();
      |  ~~~~~~~~~~~~~~~                                          
  126 |  void alloc_tq();
      |  ~~~~~~~~~~~~~~~~                                         
  127 | public:
      | ~~~~~~~                                                   
  128 |  void tqcount(const TQItem*, int);
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                        
  129 |  void tqsave(const TQItem*, int);
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                         
  130 | };
      | ~~                                                        
  131 | 
      |                                                           
  132 | static SaveState* this_savestate;
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                         
  133 | static int callback_mode;
      | ~~~~~~~~~~~~~~~~~~~~~~~~~                                 
  134 | 
      |                                                           
  135 | void tqcallback(const TQItem* tq, int i) {
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                
  136 |  if (callback_mode == 0) {
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~                                
  137 |   this_savestate->tqcount(tq, i);
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                         
  138 |  }else{
      |  ~~~~~~                                                   
  139 |   this_savestate->tqsave(tq, i);
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                          
  140 |  }
      |  ~                                                        
  141 | }
      | ~                                                         
  142 | 
      |                                                           
  143 | #if __sgi && 0
      | ~~~~~~~~~~~~~~                                            
  144 | // fixed in version 5 of os
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~                               
  145 | StateStructInfo* SaveState::ssi;
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                          
  146 | #else
      | ~~~~~                                                     
  147 | SaveState::StateStructInfo* SaveState::ssi;
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~               
  148 | #endif
      | ~~~~~~                                                    
  149 | cTemplate* SaveState::nct;
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~                                
  150 | 
      |                                                           
  151 | SaveState::SaveState() {
      | ~~~~~~~~~~~~~~~~~~~~~~~~                                  
  152 |  int i, j;
      |  ~~~~~~~~~                                                
  153 |  ssi_def();
      |  ~~~~~~~~~~                                               
  154 |  nroot_ = 0;
      |  ~~~~~~~~~~~                                              
  155 |  ss_ = NULL;
      |  ~~~~~~~~~~~                                              
  156 |  nsec_ = 0;
      |  ~~~~~~~~~~                                               
  157 |  nncs_ = 0;
      |  ~~~~~~~~~~                                               
  158 |  ncs_ = NULL;
      |  ~~~~~~~~~~~~                                             
  159 |  npss_ = 0;
      |  ~~~~~~~~~~                                               
  160 |  pss_ = NULL;
      |  ~~~~~~~~~~~~                                             
  161 |  tqs_ = new TQState();
      |  ~~~~~~~~~~~~~~~~~~~~~                                    
  162 |  tqs_->nstate = 0;
      |  ~~~~~~~~~~~~~~~~~                                        
  163 |  nprs_ = 0;
      |  ~~~~~~~~~~                                               
  164 |  prs_ = NULL;
      |  ~~~~~~~~~~~~                                             
  165 |  nacell_ = 0;
      |  ~~~~~~~~~~~~                                             
  166 |  for (i=0; i < n_memb_func; ++i) if (nrn_is_artificial_[i]) {
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
  167 |   ++nacell_;
      |   ~~~~~~~~~~                                              
  168 |  }
      |  ~                                                        
  169 |  acell_ = new ACellState[nacell_];
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                        
  170 |  for (i=0; i < nacell_; ++i) {
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                            
  171 |   acell_[i].ncell = 0;
      |   ~~~~~~~~~~~~~~~~~~~~                                    
  172 |   acell_[i].state = 0;
      |   ~~~~~~~~~~~~~~~~~~~~                                    
  173 |  }
      |  ~                                                        
  174 |  for (i=0, j=0; i < n_memb_func; ++i) if (nrn_is_artificial_[i]) {
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
  175 |   acell_[j].type = i;
      |   ~~~~~~~~~~~~~~~~~~~                                     
  176 |   ++j;
      |   ~~~~                                                    
  177 |  }
      |  ~                                                        
  178 | }
      | ~                                                         
  179 | 
      |                                                           
  180 | SaveState::~SaveState() {
      | ~~~~~~~~~~~~~~~~~~~~~~~~~                                 
  181 |  ssfree();
      |  ~~~~~~~~~                                                
  182 |  delete tqs_;
      |  ~~~~~~~~~~~~                                             
  183 |  delete [] acell_;
      |  ~~~~~~~~~~~~~~~~~                                        
  184 | }
      | ~                                                         
  185 | 
      |                                                           
  186 | void SaveState::fread_NodeState(NodeState* ns, int cnt, FILE* f) {
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
  187 |  for (int i=0; i < cnt; ++i) {
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                            
  188 |   ASSERTfread(&ns[i].v, sizeof(double), 1, f);
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~            
  189 |   ASSERTfread(&ns[i].nmemb, sizeof(int), 1, f);
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~           
  190 |   ASSERTfread(&ns[i].nstate, sizeof(int), 1, f);
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~          
  191 |  }
      |  ~                                                        
  192 | }
      | ~                                                         
  193 | void SaveState::fwrite_NodeState(NodeState* ns, int cnt, FILE* f){
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
  194 |  for (int i=0; i < cnt; ++i) {
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                            
  195 |   ASSERTfwrite(&ns[i].v, sizeof(double), 1, f);
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~           
  196 |   ASSERTfwrite(&ns[i].nmemb, sizeof(int), 1, f);
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~          
  197 |   ASSERTfwrite(&ns[i].nstate, sizeof(int), 1, f);
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~         
  198 |  }
      |  ~                                                        
  199 | }
      | ~                                                         
  200 | void SaveState::fread_SecState(SecState* ss, int cnt, FILE* f){
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
  201 |  int b;
      |  ~~~~~~                                                   
  202 |  for (int i=0; i < cnt; ++i) {
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                            
  203 |   ASSERTfread(&ss[i].nnode, sizeof(int), 1, f);
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~           
  204 |   ASSERTfread(&b, sizeof(int), 1, f);
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                     
  205 |   if (b) {
      |   ~~~~~~~~                                                
  206 |    ss[i].root = new NodeState;
      |    ~~~~~~~~~~~~~~~~~~~~~~~~~~~                            
  207 |   }else{
      |   ~~~~~~                                                  
  208 |    ss[i].root = 0;
      |    ~~~~~~~~~~~~~~~                                        
  209 |   }
      |   ~                                                       
  210 |  }
      |  ~                                                        
  211 | }
      | ~                                                         
  212 | void SaveState::fwrite_SecState(SecState* ss, int cnt, FILE* f){
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
  213 |  int b;
      |  ~~~~~~                                                   
  214 |  for (int i=0; i < cnt; ++i) {
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                            
  215 |   ASSERTfwrite(&ss[i].nnode, sizeof(int), 1, f);
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~          
  216 |   b = ss[i].root ? 1 : 0;
      |   ~~~~~~~~~~~~~~~~~~~~~~~                                 
  217 |   ASSERTfwrite(&b, sizeof(int), 1, f);
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                    
  218 |  }
      |  ~                                                        
  219 | }
      | ~                                                         
  220 | 
      |                                                           
  221 | void SaveState::ssi_def() {
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~                               
  222 |  if (nct) { return; }
      |  ~~~~~~~~~~~~~~~~~~~~                                     
  223 |  Symbol* s = hoc_lookup("NetCon");
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                        
  224 |  nct = s->u.ctemplate;
      |  ~~~~~~~~~~~~~~~~~~~~~                                    
  225 |  ssi = new StateStructInfo[n_memb_func];
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                  
  226 |  for (int im=0; im < n_memb_func; ++im) {
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                 
  227 |   ssi[im].offset = -1;
      |   ~~~~~~~~~~~~~~~~~~~~                                    
  228 |   ssi[im].size = 0;
      |   ~~~~~~~~~~~~~~~~~                                       
  229 |   if (!memb_func[im].sym) {
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~                               
  230 |    continue;
      |    ~~~~~~~~~                                              
  231 |   }
      |   ~                                                       
  232 |   NrnProperty* np = new NrnProperty(memb_func[im].sym->name);
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
  233 |   // generally we only save STATE variables. However for
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~  
  234 |   // models containing a NET_RECEIVE block, we also need to
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
  235 |   // save everything except the parameters
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                
  236 |   // because they often contain
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                           
  237 |   // logic and analytic state values. Unfortunately, it is often
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
  238 |   // the case that the ASSIGNED variables are not declared as
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
  239 |   // RANGE variables so to avoid missing state, save the whole
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
  240 |   // param array including PARAMETERs.
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                    
  241 |      if  (pnt_receive[im]) {
      |      ~~~~~~~~~~~~~~~~~~~~~~~                              
  242 |   ssi[im].offset = 0;
      |   ~~~~~~~~~~~~~~~~~~~                                     
  243 |   ssi[im].size = np->prop()->param_size;
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                  
  244 |      }else{
      |      ~~~~~~                                               
  245 |   int type = STATE;
      |   ~~~~~~~~~~~~~~~~~                                       
  246 |   for (Symbol* sym = np->first_var(); np->more_var(); sym = np->next_var()) {
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
  247 |    if (np->var_type(sym) == type
      |    ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                          
  248 |        || np->var_type(sym) == STATE
      |        ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                      
  249 |        || sym->subtype == _AMBIGUOUS) {
      |        ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                   
  250 |     if (ssi[im].offset < 0) {
      |     ~~~~~~~~~~~~~~~~~~~~~~~~~                             
  251 |      ssi[im].offset = np->prop_index(sym);
      |      ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                
  252 |     }
      |     ~                                                     
  253 |     ssi[im].size += hoc_total_array_data(sym, 0);
      |     ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~         
  254 |    }
      |    ~                                                      
  255 |   }
      |   ~                                                       
  256 |      }
      |      ~                                                    
  257 |      delete np;
      |      ~~~~~~~~~~                                           
  258 |  }
      |  ~                                                        
  259 | }
      | ~                                                         
  260 | 
      |                                                           
  261 | bool SaveState::check(bool warn) {
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                        
  262 |  hoc_Item* qsec;
      |  ~~~~~~~~~~~~~~~                                          
  263 |  int isec;
      |  ~~~~~~~~~                                                
  264 |  if (nsec_ != section_count) {
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                            
  265 |   if (warn) {
      |   ~~~~~~~~~~~                                             
  266 | fprintf(stderr, "SaveState warning: %d sections exist but saved %d\n",
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
  267 |    section_count, nsec_);
      |    ~~~~~~~~~~~~~~~~~~~~~~                                 
  268 |   }
      |   ~                                                       
  269 |   return false;
      |   ~~~~~~~~~~~~~                                           
  270 |  }
      |  ~                                                        
  271 |  if (nroot_ != nrn_global_ncell) {
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                        
  272 |   if (warn) {
      |   ~~~~~~~~~~~                                             
  273 | fprintf(stderr, "SaveState warning: %d cells exist but saved %d\n",
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
  274 |    nrn_global_ncell, nroot_);
      |    ~~~~~~~~~~~~~~~~~~~~~~~~~~                             
  275 |   }
      |   ~                                                       
  276 |   return false;
      |   ~~~~~~~~~~~~~                                           
  277 |  }
      |  ~                                                        
  278 |  if (nsec_ && ss_[0].sec == NULL) { // got the data from a read
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
  279 |   isec = 0; ForAllSections(sec)
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                           
  280 |    ss_[isec].sec = sec;
      |    ~~~~~~~~~~~~~~~~~~~~                                   
  281 |    section_ref(ss_[isec].sec);
      |    ~~~~~~~~~~~~~~~~~~~~~~~~~~~                            
  282 |    ++isec;
      |    ~~~~~~~                                                
  283 |   }
      |   ~                                                       
  284 |  }
      |  ~                                                        
  285 |  for (int i=0, j=0; i < n_memb_func; ++i) if (nrn_is_artificial_[i]) {
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
  286 |   if (!checkacell(acell_[j], i, warn)) {
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                  
  287 |    return false;
      |    ~~~~~~~~~~~~~                                          
  288 |   }
      |   ~                                                       
  289 |   ++j;
      |   ~~~~                                                    
  290 |  }
      |  ~                                                        
  291 |  for (int isec=0; isec < nsec_; ++isec) {
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                 
  292 |   SecState& ss = ss_[isec];
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~                               
  293 |   Section* sec = ss.sec;
      |   ~~~~~~~~~~~~~~~~~~~~~~                                  
  294 |   if (!sec->prop || sec->nnode != ss.nnode) {
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~             
  295 | if (warn) {
      | ~~~~~~~~~~~                                               
  296 | if (!sec->prop) {
      | ~~~~~~~~~~~~~~~~~                                         
  297 | fprintf(stderr, "SaveState warning: saved section no longer exists\n");
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
  298 | }else{
      | ~~~~~~                                                    
  299 | fprintf(stderr, "SaveState warning: %s has %d nodes but saved %d\n",
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
  300 |     secname(sec), sec->nnode, ss.nnode);
      |     ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                  
  301 | }
      | ~                                                         
  302 | }
      | ~                                                         
  303 |    return false;
      |    ~~~~~~~~~~~~~                                          
  304 |   }
      |   ~                                                       
  305 |   for (int inode = 0; inode < ss.nnode; ++inode) {
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~        
  306 |    NodeState& ns = ss.ns[inode];
      |    ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                          
  307 |    Node* nd = sec->pnode[inode];
      |    ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                          
  308 |    int i=0;
      |    ~~~~~~~~                                               
  309 |    Prop* p;
      |    ~~~~~~~~                                               
  310 |    for (p = nd->prop; p; p = p->next) {
      |    ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                   
  311 |     if (ssi[p->type].size == 0) {
      |     ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                         
  312 |      continue;
      |      ~~~~~~~~~                                            
  313 |     }
      |     ~                                                     
  314 |     if (i >= ns.nmemb) {
      |     ~~~~~~~~~~~~~~~~~~~~                                  
  315 | if (warn) {
      | ~~~~~~~~~~~                                               
  316 | fprintf(stderr,"SaveState warning: \
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                      
  317 | fewer mechanisms saved than exist at node %d of %s\n",
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~    
  318 |  inode, secname(sec));
      |  ~~~~~~~~~~~~~~~~~~~~~                                    
  319 | }
      | ~                                                         
  320 |      return false;
      |      ~~~~~~~~~~~~~                                        
  321 |     }
      |     ~                                                     
  322 |     if (p->type != ns.type[i]) {
      |     ~~~~~~~~~~~~~~~~~~~~~~~~~~~~                          
  323 | if (warn) {
      | ~~~~~~~~~~~                                               
  324 | fprintf(stderr, "SaveState warning: mechanisms out of order at node %d of %s\n\
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
  325 | saved %s but need %s\n",
      | ~~~~~~~~~~~~~~~~~~~~~~~~                                  
  326 | inode, secname(sec), memb_func[i].sym->name, memb_func[p->type].sym->name);
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
  327 | }
      | ~                                                         
  328 |      return false;
      |      ~~~~~~~~~~~~~                                        
  329 |     }
      |     ~                                                     
  330 |     ++i;
      |     ~~~~                                                  
  331 |    }
      |    ~                                                      
  332 |    if (i != ns.nmemb) {
      |    ~~~~~~~~~~~~~~~~~~~~                                   
  333 | if (warn) {
      | ~~~~~~~~~~~                                               
  334 | fprintf(stderr, "SaveState warning: more mechanisms saved than exist at node %d of %s\n",
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
  335 |  inode, secname(sec));
      |  ~~~~~~~~~~~~~~~~~~~~~                                    
  336 | }
      | ~                                                         
  337 |     return false;
      |     ~~~~~~~~~~~~~                                         
  338 |    }
      |    ~                                                      
  339 |   }
      |   ~                                                       
  340 |   if (!sec->parentsec || ss.root) {
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                       
  341 |    if (sec->parentsec || !ss.root) {
      |    ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                      
  342 | if (warn) {
      | ~~~~~~~~~~~                                               
  343 | fprintf(stderr, "SaveState warning: Saved section and %s are not both root sections.\n",
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
  344 |  secname(sec));
      |  ~~~~~~~~~~~~~~                                           
  345 | }
      | ~                                                         
  346 |    }
      |    ~                                                      
  347 |    if (!checknode(*ss.root, sec->parentnode, warn)) {
      |    ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~     
  348 |     return false;
      |     ~~~~~~~~~~~~~                                         
  349 |    }
      |    ~                                                      
  350 |   }
      |   ~                                                       
  351 | 
      |                                                           
  352 |  }
      |  ~                                                        
  353 |  if (!checknet(warn)) { return false; }
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                   
  354 |  return true;
      |  ~~~~~~~~~~~~                                             
  355 | }
      | ~                                                         
  356 | 
      |                                                           
  357 | bool SaveState::checknode(NodeState& ns, Node* nd, bool warn) {
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
  358 |  int i=0;
      |  ~~~~~~~~                                                 
  359 |  Prop* p;
      |  ~~~~~~~~                                                 
  360 |  for (p = nd->prop; p; p = p->next) {
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                     
  361 |   if (ssi[p->type].size == 0) {
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                           
  362 |    continue;
      |    ~~~~~~~~~                                              
  363 |   }
      |   ~                                                       
  364 |   if (i >= ns.nmemb) {
      |   ~~~~~~~~~~~~~~~~~~~~                                    
  365 | if (warn) {
      | ~~~~~~~~~~~                                               
  366 | fprintf(stderr,"SaveState warning: \
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                      
  367 | fewer mechanisms saved than exist at a root node\n");
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~     
  368 | }
      | ~                                                         
  369 |    return false;
      |    ~~~~~~~~~~~~~                                          
  370 |   }
      |   ~                                                       
  371 |   if (p->type != ns.type[i]) {
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~~                            
  372 | if (warn) {
      | ~~~~~~~~~~~                                               
  373 | fprintf(stderr, "SaveState warning: mechanisms out of order at a rootnode\n\
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
  374 | saved %s but need %s\n",
      | ~~~~~~~~~~~~~~~~~~~~~~~~                                  
  375 | memb_func[i].sym->name, memb_func[p->type].sym->name);
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~    
  376 | }
      | ~                                                         
  377 |    return false;
      |    ~~~~~~~~~~~~~                                          
  378 |   }
      |   ~                                                       
  379 |   ++i;
      |   ~~~~                                                    
  380 |  }
      |  ~                                                        
  381 |  if (i != ns.nmemb) {
      |  ~~~~~~~~~~~~~~~~~~~~                                     
  382 | if (warn) {
      | ~~~~~~~~~~~                                               
  383 | fprintf(stderr, "SaveState warning: more mechanisms saved than exist at a rootnode\n");
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
  384 | }
      | ~                                                         
  385 |   return false;
      |   ~~~~~~~~~~~~~                                           
  386 |  }
      |  ~                                                        
  387 |  return true;
      |  ~~~~~~~~~~~~                                             
  388 | }
      | ~                                                         
  389 | 
      |                                                           
  390 | bool SaveState::checkacell(ACellState& ac, int type, bool warn) {
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
  391 |  if (memb_list[type].nodecount != ac.ncell) {
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~             
  392 | if (warn) {
      | ~~~~~~~~~~~                                               
  393 | fprintf(stderr, "SaveState warning: different number of %s saved than exist.\n",
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
  394 | memb_func[type].sym->name);
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~                               
  395 | }
      | ~                                                         
  396 |   return false;
      |   ~~~~~~~~~~~~~                                           
  397 |  }
      |  ~                                                        
  398 |  return true;
      |  ~~~~~~~~~~~~                                             
  399 | }
      | ~                                                         
  400 | 
      |                                                           
  401 | void SaveState::alloc() {
      | ~~~~~~~~~~~~~~~~~~~~~~~~~                                 
  402 |  ssfree();
      |  ~~~~~~~~~                                                
  403 |  int inode, isec;
      |  ~~~~~~~~~~~~~~~~                                         
  404 |  hoc_Item* qsec;
      |  ~~~~~~~~~~~~~~~                                          
  405 |  nsec_ = section_count;
      |  ~~~~~~~~~~~~~~~~~~~~~~                                   
  406 |  ss_ = new SecState[nsec_];
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~                               
  407 |  nroot_ = 0;
      |  ~~~~~~~~~~~                                              
  408 |  isec = 0;
      |  ~~~~~~~~~                                                
  409 |  ForAllSections(sec)
      |  ~~~~~~~~~~~~~~~~~~~                                      
  410 |   SecState& ss = ss_[isec];
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~                               
  411 |   ss.sec = sec;
      |   ~~~~~~~~~~~~~                                           
  412 |   section_ref(ss.sec);
      |   ~~~~~~~~~~~~~~~~~~~~                                    
  413 |   ss.nnode = ss.sec->nnode;
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~                               
  414 |   ss.ns = new NodeState[ss.nnode];
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                        
  415 |   for (inode = 0; inode < ss.nnode; ++inode) {
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~            
  416 |    Node* nd = ss.sec->pnode[inode];
      |    ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                       
  417 |    NodeState& ns = ss.ns[inode];
      |    ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                          
  418 |    allocnode(ns, nd);
      |    ~~~~~~~~~~~~~~~~~~                                     
  419 |   }
      |   ~                                                       
  420 |   if (!sec->parentsec) {
      |   ~~~~~~~~~~~~~~~~~~~~~~                                  
  421 |    assert(sec->parentnode);
      |    ~~~~~~~~~~~~~~~~~~~~~~~~                               
  422 |    ss.root = new NodeState;
      |    ~~~~~~~~~~~~~~~~~~~~~~~~                               
  423 |    allocnode(*ss.root, sec->parentnode);
      |    ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                  
  424 |    ++nroot_;
      |    ~~~~~~~~~                                              
  425 |   }else{
      |   ~~~~~~                                                  
  426 |    ss.root = 0;
      |    ~~~~~~~~~~~~                                           
  427 |   }
      |   ~                                                       
  428 |   ++isec;
      |   ~~~~~~~                                                 
  429 |  }
      |  ~                                                        
  430 |  assert(isec == section_count);
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                           
  431 |  assert(nroot_ == nrn_global_ncell);
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                      
  432 |  for (int i=0, j=0; i < n_memb_func; ++i) if (nrn_is_artificial_[i]) {
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
  433 |   allocacell(acell_[j], i);
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~                               
  434 |   ++j;
      |   ~~~~                                                    
  435 |  }
      |  ~                                                        
  436 |  PlayRecList* prl = net_cvode_instance_prl();
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~             
  437 |  nprs_ = prl->count();
      |  ~~~~~~~~~~~~~~~~~~~~~                                    
  438 |  if (nprs_) {
      |  ~~~~~~~~~~~~                                             
  439 |   prs_ = new PlayRecordSave*[nprs_];
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                      
  440 |  }
      |  ~                                                        
  441 |  allocnet();
      |  ~~~~~~~~~~~                                              
  442 | }
      | ~                                                         
  443 | 
      |                                                           
  444 | void SaveState::allocnode(NodeState& ns, Node* nd) {
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~      
  445 |  ns.nmemb = 0;
      |  ~~~~~~~~~~~~~                                            
  446 |  ns.type = NULL;
      |  ~~~~~~~~~~~~~~~                                          
  447 |  ns.state = NULL;
      |  ~~~~~~~~~~~~~~~~                                         
  448 |  ns.nstate = 0;
      |  ~~~~~~~~~~~~~~                                           
  449 |  Prop* p;
      |  ~~~~~~~~                                                 
  450 |  for (p = nd->prop; p; p = p->next) {
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                     
  451 |   if (ssi[p->type].size == 0) {
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                           
  452 |    continue;
      |    ~~~~~~~~~                                              
  453 |   }
      |   ~                                                       
  454 |   ++ns.nmemb;
      |   ~~~~~~~~~~~                                             
  455 |   ns.nstate += ssi[p->type].size;
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                         
  456 |  }
      |  ~                                                        
  457 |  if (ns.nmemb) {
      |  ~~~~~~~~~~~~~~~                                          
  458 |   ns.type = new int[ns.nmemb];
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~~                            
  459 |  }
      |  ~                                                        
  460 |  if (ns.nstate) {
      |  ~~~~~~~~~~~~~~~~                                         
  461 |   ns.state = new double[ns.nstate];
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                       
  462 |  }
      |  ~                                                        
  463 |  int i = 0;
      |  ~~~~~~~~~~                                               
  464 |  for (p = nd->prop; p; p = p->next) {
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                     
  465 |   if (ssi[p->type].size == 0) {
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                           
  466 |    continue;
      |    ~~~~~~~~~                                              
  467 |   }
      |   ~                                                       
  468 |   ns.type[i] = p->type;
      |   ~~~~~~~~~~~~~~~~~~~~~                                   
  469 |   ++i;
      |   ~~~~                                                    
  470 |  }
      |  ~                                                        
  471 | }
      | ~                                                         
  472 | 
      |                                                           
  473 | void SaveState::allocacell(ACellState& ac, int type) {
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~    
  474 |  Memb_list& ml = memb_list[type];
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                         
  475 |  ac.type = type;
      |  ~~~~~~~~~~~~~~~                                          
  476 |  ac.ncell = ml.nodecount;
      |  ~~~~~~~~~~~~~~~~~~~~~~~~                                 
  477 |  ac.state = new double[ac.ncell * ssi[type].size];
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~        
  478 | }
      | ~                                                         
  479 | 
      |                                                           
  480 | void SaveState::ssfree() {
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~                                
  481 |  int i, isec, inode;
      |  ~~~~~~~~~~~~~~~~~~~                                      
  482 |  for (isec=0; isec < nsec_; ++isec) {
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                     
  483 |   SecState& ss = ss_[isec];
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~                               
  484 |   for (inode = 0; inode < ss.nnode; ++inode) {
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~            
  485 |    NodeState& ns = ss.ns[inode];
      |    ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                          
  486 |    if (ns.nmemb) {
      |    ~~~~~~~~~~~~~~~                                        
  487 |     delete [] ns.type;
      |     ~~~~~~~~~~~~~~~~~~                                    
  488 |    }
      |    ~                                                      
  489 |    if (ns.nstate) {
      |    ~~~~~~~~~~~~~~~~                                       
  490 |     delete [] ns.state;
      |     ~~~~~~~~~~~~~~~~~~~                                   
  491 |    }
      |    ~                                                      
  492 |   }
      |   ~                                                       
  493 |   if (ss.root) {
      |   ~~~~~~~~~~~~~~                                          
  494 |    NodeState& ns = *ss.root;
      |    ~~~~~~~~~~~~~~~~~~~~~~~~~                              
  495 |    if (ns.nmemb) {
      |    ~~~~~~~~~~~~~~~                                        
  496 |     delete [] ns.type;
      |     ~~~~~~~~~~~~~~~~~~                                    
  497 |    }
      |    ~                                                      
  498 |    if (ns.nstate) {
      |    ~~~~~~~~~~~~~~~~                                       
  499 |     delete [] ns.state;
      |     ~~~~~~~~~~~~~~~~~~~                                   
  500 |    }
      |    ~                                                      
  501 |    delete ss.root;
      |    ~~~~~~~~~~~~~~~                                        
  502 |   }
      |   ~                                                       
  503 |   if (ss.nnode) {
      |   ~~~~~~~~~~~~~~~                                         
  504 |    delete [] ss.ns;
      |    ~~~~~~~~~~~~~~~~                                       
  505 |   }
      |   ~                                                       
  506 |   if (ss.sec) { // got info from an fread but never checked it
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
  507 |    section_unref(ss.sec);
      |    ~~~~~~~~~~~~~~~~~~~~~~                                 
  508 |   }
      |   ~                                                       
  509 |  }
      |  ~                                                        
  510 |  if (nsec_) {
      |  ~~~~~~~~~~~~                                             
  511 |   delete [] ss_;
      |   ~~~~~~~~~~~~~~                                          
  512 |  }
      |  ~                                                        
  513 |  nsec_ = 0;
      |  ~~~~~~~~~~                                               
  514 |  ss_ = NULL;
      |  ~~~~~~~~~~~                                              
  515 |  for (i=0; i < nacell_; ++i) {
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                            
  516 |   if (acell_[i].ncell) {
      |   ~~~~~~~~~~~~~~~~~~~~~~                                  
  517 |    delete [] acell_[i].state;
      |    ~~~~~~~~~~~~~~~~~~~~~~~~~~                             
  518 |    acell_[i].state = 0;
      |    ~~~~~~~~~~~~~~~~~~~~                                   
  519 |    acell_[i].ncell = 0;
      |    ~~~~~~~~~~~~~~~~~~~~                                   
  520 |   }
      |   ~                                                       
  521 |  } // note we do not destroy the acell_.
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                  
  522 |  if (nncs_) {
      |  ~~~~~~~~~~~~                                             
  523 |   for (i = 0; i < nncs_; ++i) {
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                           
  524 |    if (ncs_[i].nstate) {
      |    ~~~~~~~~~~~~~~~~~~~~~                                  
  525 |     delete [] ncs_[i].state;
      |     ~~~~~~~~~~~~~~~~~~~~~~~~                              
  526 |    }
      |    ~                                                      
  527 |   }
      |   ~                                                       
  528 |   delete [] ncs_;
      |   ~~~~~~~~~~~~~~~                                         
  529 |  }
      |  ~                                                        
  530 |  nncs_ = 0;
      |  ~~~~~~~~~~                                               
  531 |  ncs_ = NULL;
      |  ~~~~~~~~~~~~                                             
  532 |  if (npss_) {
      |  ~~~~~~~~~~~~                                             
  533 |   delete [] pss_;
      |   ~~~~~~~~~~~~~~~                                         
  534 |  }
      |  ~                                                        
  535 |  npss_ = 0;
      |  ~~~~~~~~~~                                               
  536 |  pss_ = NULL;
      |  ~~~~~~~~~~~~                                             
  537 |  free_tq();
      |  ~~~~~~~~~~                                               
  538 |  if (nprs_) {
      |  ~~~~~~~~~~~~                                             
  539 |   for (i=0; i < nprs_; ++i) {
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~                             
  540 |    delete prs_[i];
      |    ~~~~~~~~~~~~~~~                                        
  541 |   }
      |   ~                                                       
  542 |   delete [] prs_;
      |   ~~~~~~~~~~~~~~~                                         
  543 |  }
      |  ~                                                        
  544 |  nprs_ = 0;
      |  ~~~~~~~~~~                                               
  545 | }
      | ~                                                         
  546 | 
      |                                                           
  547 | void SaveState::save() {
      | ~~~~~~~~~~~~~~~~~~~~~~~~                                  
  548 |  NrnThread* nt;
      |  ~~~~~~~~~~~~~~                                           
  549 |  if (!check(false)) {
      |  ~~~~~~~~~~~~~~~~~~~~                                     
  550 |   alloc();
      |   ~~~~~~~~                                                
  551 |  }
      |  ~                                                        
  552 |  FOR_THREADS(nt) {
      |  ~~~~~~~~~~~~~~~~~                                        
  553 |   assert(t == nt->_t);
      |   ~~~~~~~~~~~~~~~~~~~~                                    
  554 |  }
      |  ~                                                        
  555 |  t_ = t;
      |  ~~~~~~~                                                  
  556 |  int inode;
      |  ~~~~~~~~~~                                               
  557 |  for (int isec=0; isec < nsec_; ++isec) {
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                 
  558 |   SecState& ss = ss_[isec];
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~                               
  559 |   Section* sec = ss.sec;
      |   ~~~~~~~~~~~~~~~~~~~~~~                                  
  560 |   for (inode = 0; inode < ss.nnode; ++inode) {
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~            
  561 |    NodeState& ns = ss.ns[inode];
      |    ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                          
  562 |    Node* nd = sec->pnode[inode];
      |    ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                          
  563 |    savenode(ns, nd);
      |    ~~~~~~~~~~~~~~~~~                                      
  564 |   }
      |   ~                                                       
  565 |   if (ss.root) {
      |   ~~~~~~~~~~~~~~                                          
  566 |    NodeState& ns = *ss.root;
      |    ~~~~~~~~~~~~~~~~~~~~~~~~~                              
  567 |    Node* nd = sec->parentnode;
      |    ~~~~~~~~~~~~~~~~~~~~~~~~~~~                            
  568 |    savenode(ns, nd);
      |    ~~~~~~~~~~~~~~~~~                                      
  569 |   }
      |   ~                                                       
  570 |  }
      |  ~                                                        
  571 |  for (int i=0, j=0; i < n_memb_func; ++i) if (nrn_is_artificial_[i]) {
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
  572 |   saveacell(acell_[j], i);
      |   ~~~~~~~~~~~~~~~~~~~~~~~~                                
  573 |   ++j;
      |   ~~~~                                                    
  574 |  }
      |  ~                                                        
  575 |  if (nprs_) {
      |  ~~~~~~~~~~~~                                             
  576 |   PlayRecList* prl = net_cvode_instance_prl();
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~            
  577 |   int i;
      |   ~~~~~~                                                  
  578 |   assert(nprs_ == prl->count());
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                          
  579 |   for (i=0; i < nprs_; ++i) {
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~                             
  580 |    prs_[i] = prl->item(i)->savestate_save();
      |    ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~              
  581 |   }
      |   ~                                                       
  582 |  }
      |  ~                                                        
  583 |  savenet();
      |  ~~~~~~~~~~                                               
  584 | }
      | ~                                                         
  585 | 
      |                                                           
  586 | void SaveState::savenode(NodeState& ns, Node* nd) {
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~       
  587 |  ns.v = NODEV(nd);
      |  ~~~~~~~~~~~~~~~~~                                        
  588 |  int istate = 0;
      |  ~~~~~~~~~~~~~~~                                          
  589 |  Prop* p;
      |  ~~~~~~~~                                                 
  590 |  for (p = nd->prop; p; p = p->next) {
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                     
  591 |   if (ssi[p->type].size == 0) {
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                           
  592 |    continue;
      |    ~~~~~~~~~                                              
  593 |   }
      |   ~                                                       
  594 |   int type = p->type;
      |   ~~~~~~~~~~~~~~~~~~~                                     
  595 |   int max = ssi[type].offset + ssi[type].size;
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~            
  596 | #if EXTRACELLULAR
      | ~~~~~~~~~~~~~~~~~                                         
  597 |   if (type == EXTRACELL) {
      |   ~~~~~~~~~~~~~~~~~~~~~~~~                                
  598 |    for (int i=0; i < nlayer; ++i) {
      |    ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                       
  599 |     ns.state[istate++] = nd->extnode->v[i];
      |     ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~               
  600 |    }
      |    ~                                                      
  601 |   }else
      |   ~~~~~                                                   
  602 | #endif
      | ~~~~~~                                                    
  603 |   {
      |   ~                                                       
  604 |    for (int ip=ssi[type].offset; ip < max; ++ip) {
      |    ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~        
  605 |     ns.state[istate++] = p->param[ip];
      |     ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                    
  606 |    }
      |    ~                                                      
  607 |   }
      |   ~                                                       
  608 |  }
      |  ~                                                        
  609 | }
      | ~                                                         
  610 | 
      |                                                           
  611 | void SaveState::saveacell(ACellState& ac, int type) {
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~     
  612 |  Memb_list& ml = memb_list[type];
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                         
  613 |  int sz = ssi[type].size;
      |  ~~~~~~~~~~~~~~~~~~~~~~~~                                 
  614 |  double* p = ac.state;
      |  ~~~~~~~~~~~~~~~~~~~~~                                    
  615 |  for (int i = 0; i < ml.nodecount; ++i) {
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                 
  616 |   double* d = ml.data[i];
      |   ~~~~~~~~~~~~~~~~~~~~~~~                                 
  617 |   for (int j=0; j < sz; ++j) {
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~~                            
  618 |    (*p++) = d[j];
      |    ~~~~~~~~~~~~~~                                         
  619 |   }
      |   ~                                                       
  620 |  }
      |  ~                                                        
  621 | }
      | ~                                                         
  622 | 
      |                                                           
  623 | void SaveState::restore(int type) {
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                       
  624 |  NrnThread* nt;
      |  ~~~~~~~~~~~~~~                                           
  625 |  if (!check(true)) {
      |  ~~~~~~~~~~~~~~~~~~~                                      
  626 |   hoc_execerror("SaveState:",
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~                             
  627 |   "Stored state inconsistent with current neuron structure");
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
  628 |  }
      |  ~                                                        
  629 |  t = t_;
      |  ~~~~~~~                                                  
  630 |  FOR_THREADS(nt) {
      |  ~~~~~~~~~~~~~~~~~                                        
  631 |   nt->_t = t_;
      |   ~~~~~~~~~~~~                                            
  632 |  }
      |  ~                                                        
  633 |  int inode;
      |  ~~~~~~~~~~                                               
  634 |  for (int isec=0; isec < nsec_; ++isec) {
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                 
  635 |   SecState& ss = ss_[isec];
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~                               
  636 |   Section* sec = ss.sec;
      |   ~~~~~~~~~~~~~~~~~~~~~~                                  
  637 |   for (inode = 0; inode < ss.nnode; ++inode) {
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~            
  638 |    NodeState& ns = ss.ns[inode];
      |    ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                          
  639 |    Node* nd = sec->pnode[inode];
      |    ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                          
  640 |    restorenode(ns, nd);
      |    ~~~~~~~~~~~~~~~~~~~~                                   
  641 |   }
      |   ~                                                       
  642 |   if (ss.root) {
      |   ~~~~~~~~~~~~~~                                          
  643 |    NodeState& ns = *ss.root;
      |    ~~~~~~~~~~~~~~~~~~~~~~~~~                              
  644 |    Node* nd = sec->parentnode;
      |    ~~~~~~~~~~~~~~~~~~~~~~~~~~~                            
  645 |    restorenode(ns, nd);
      |    ~~~~~~~~~~~~~~~~~~~~                                   
  646 |   }
      |   ~                                                       
  647 |  }
      |  ~                                                        
  648 |  for (int i=0, j=0; i < n_memb_func; ++i) if (nrn_is_artificial_[i]) {
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
  649 |   restoreacell(acell_[j], i);
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~                             
  650 |   ++j;
      |   ~~~~                                                    
  651 |  }
      |  ~                                                        
  652 |  if (type == 1) { return; }
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~                               
  653 |  PlayRecList* prl = net_cvode_instance_prl();
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~             
  654 |  // during a local step the PlayRecList is augmented with GLineRecord
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
  655 |  // assert(nprs_ == prl->count());
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                        
  656 |  assert(nprs_ <= prl->count());
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                           
  657 |  int i;
      |  ~~~~~~                                                   
  658 |  for (i = 0; i < nprs_; ++i) {
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                            
  659 |   prs_[i]->savestate_restore();
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                           
  660 |  }
      |  ~                                                        
  661 |  restorenet();
      |  ~~~~~~~~~~~~~                                            
  662 | }
      | ~                                                         
  663 | 
      |                                                           
  664 | void SaveState::restorenode(NodeState& ns, Node* nd) {
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~    
  665 |  NODEV(nd) = ns.v;;
      |  ~~~~~~~~~~~~~~~~~~                                       
  666 |  int istate = 0;
      |  ~~~~~~~~~~~~~~~                                          
  667 |  Prop* p;
      |  ~~~~~~~~                                                 
  668 |  for (p = nd->prop; p; p = p->next) {
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                     
  669 |   if (ssi[p->type].size == 0) {
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                           
  670 |    continue;
      |    ~~~~~~~~~                                              
  671 |   }
      |   ~                                                       
  672 |   int type = p->type;
      |   ~~~~~~~~~~~~~~~~~~~                                     
  673 |   int max = ssi[type].offset + ssi[type].size;
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~            
  674 | #if EXTRACELLULAR
      | ~~~~~~~~~~~~~~~~~                                         
  675 |   if (type == EXTRACELL) {
      |   ~~~~~~~~~~~~~~~~~~~~~~~~                                
  676 |    for (int i=0; i < nlayer; ++i) {
      |    ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                       
  677 |     nd->extnode->v[i] = ns.state[istate++];
      |     ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~               
  678 |    }
      |    ~                                                      
  679 |   }else
      |   ~~~~~                                                   
  680 | #endif
      | ~~~~~~                                                    
  681 |   {
      |   ~                                                       
  682 |    for (int ip=ssi[type].offset; ip < max; ++ip) {
      |    ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~        
  683 |     p->param[ip] = ns.state[istate++];
      |     ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                    
  684 |    }
      |    ~                                                      
  685 |   }
      |   ~                                                       
  686 |  }
      |  ~                                                        
  687 | }
      | ~                                                         
  688 | 
      |                                                           
  689 | void SaveState::restoreacell(ACellState& ac, int type) {
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~  
  690 |  Memb_list& ml = memb_list[type];
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                         
  691 |  int sz = ssi[type].size;
      |  ~~~~~~~~~~~~~~~~~~~~~~~~                                 
  692 |  double* p = ac.state;
      |  ~~~~~~~~~~~~~~~~~~~~~                                    
  693 |  for (int i = 0; i < ml.nodecount; ++i) {
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                 
  694 |   double* d = ml.data[i];
      |   ~~~~~~~~~~~~~~~~~~~~~~~                                 
  695 |   for (int j=0; j < sz; ++j) {
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~~                            
  696 |    d[j] = (*p++);
      |    ~~~~~~~~~~~~~~                                         
  697 |   }
      |   ~                                                       
  698 |  }
      |  ~                                                        
  699 | }
      | ~                                                         
  700 | 
      |                                                           
  701 | void SaveState::read(OcFile* ocf, bool close) {
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~           
  702 |  if (!ocf->open(ocf->get_name(), "r")) {
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                  
  703 |   hoc_execerror("Couldn't open file for reading:", ocf->get_name());
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
  704 |  }
      |  ~                                                        
  705 |  nrn_shape_update();
      |  ~~~~~~~~~~~~~~~~~~~                                      
  706 |  BinaryMode(ocf)
      |  ~~~~~~~~~~~~~~~                                          
  707 |  FILE* f = ocf->file();
      |  ~~~~~~~~~~~~~~~~~~~~~~                                   
  708 |  ssfree();
      |  ~~~~~~~~~                                                
  709 |  char buf[200];
      |  ~~~~~~~~~~~~~~                                           
  710 |  ASSERTfgets(buf, 200, f);
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~                                
  711 |  if (strcmp(buf, "SaveState binary file version 6.0\n") != 0) {
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
  712 |   ocf->close();
      |   ~~~~~~~~~~~~~                                           
  713 |   hoc_execerror("Bad SaveState binary file", " Not version 6.0");
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
  714 |  }
      |  ~                                                        
  715 |  ASSERTfread((char*)&t_, sizeof(double), 1, f);
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~           
  716 | // fscanf(f, "%d %d\n", &nsec_, &nrootnode_);
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~             
  717 | // on some os's fscanf leaves file pointer at wrong place for next fread
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
  718 | // can check it with ftell(f)
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                             
  719 |  ASSERTfgets(buf, 200, f);
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~                                
  720 |  sscanf(buf, "%d %d\n", &nsec_, &nroot_);
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                 
  721 |  // to enable comparison of SaveState files, we avoid
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~     
  722 |  // putting pointers in the files and instead explicitly read/write
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
  723 |  // structure elements.
      |  ~~~~~~~~~~~~~~~~~~~~~~                                   
  724 |  ss_ = new SecState[nsec_];
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~                               
  725 |  fread_SecState(ss_, nsec_, f);
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                           
  726 |  for (int isec=0; isec < nsec_; ++isec) {
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                 
  727 |   SecState& ss = ss_[isec];
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~                               
  728 |   ss.sec = NULL;
      |   ~~~~~~~~~~~~~~                                          
  729 |   ss.ns = new NodeState[ss.nnode];
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                        
  730 |   fread_NodeState(ss.ns, ss.nnode, f);
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                    
  731 |   for (int inode = 0; inode < ss.nnode; ++inode) {
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~        
  732 |    NodeState& ns = ss.ns[inode];
      |    ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                          
  733 |    if (ns.nmemb) {
      |    ~~~~~~~~~~~~~~~                                        
  734 |     ns.type = new int[ns.nmemb];
      |     ~~~~~~~~~~~~~~~~~~~~~~~~~~~~                          
  735 |     ASSERTfread((char*)ns.type, sizeof(int), ns.nmemb, f);
      |     ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
  736 |    }
      |    ~                                                      
  737 |    if (ns.nstate) {
      |    ~~~~~~~~~~~~~~~~                                       
  738 |     ns.state = new double[ns.nstate];
      |     ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                     
  739 |     ASSERTfread((char*)ns.state, sizeof(double), ns.nstate, f);
      |     ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
  740 |    }
      |    ~                                                      
  741 |   }
      |   ~                                                       
  742 |   if (ss.root) {
      |   ~~~~~~~~~~~~~~                                          
  743 |    fread_NodeState(ss.root, 1, f);
      |    ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                        
  744 |    NodeState& ns = *ss.root;
      |    ~~~~~~~~~~~~~~~~~~~~~~~~~                              
  745 |    if (ns.nmemb) {
      |    ~~~~~~~~~~~~~~~                                        
  746 |     ns.type = new int[ns.nmemb];
      |     ~~~~~~~~~~~~~~~~~~~~~~~~~~~~                          
  747 |     ASSERTfread((char*)ns.type, sizeof(int), ns.nmemb, f);
      |     ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
  748 |    }
      |    ~                                                      
  749 |    if (ns.nstate) {
      |    ~~~~~~~~~~~~~~~~                                       
  750 |     ns.state = new double[ns.nstate];
      |     ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                     
  751 |     ASSERTfread((char*)ns.state, sizeof(double), ns.nstate, f);
      |     ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
  752 |    }
      |    ~                                                      
  753 |   }
      |   ~                                                       
  754 |  }
      |  ~                                                        
  755 |  int n = 0;
      |  ~~~~~~~~~~                                               
  756 |  ASSERTfgets(buf, 20, f);
      |  ~~~~~~~~~~~~~~~~~~~~~~~~                                 
  757 |  sscanf(buf, "%d\n", &n);
      |  ~~~~~~~~~~~~~~~~~~~~~~~~                                 
  758 |  assert(n == nacell_);
      |  ~~~~~~~~~~~~~~~~~~~~~                                    
  759 |  for (int i=0, j=0; i < n_memb_func; ++i) if (nrn_is_artificial_[i]) {
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
  760 |   int nt = 0, nc = 0, ns = 0;
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~                             
  761 |   ASSERTfgets(buf, 200, f);
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~                               
  762 |   nrn_assert(sscanf(buf, "%d %d %d\n", &nt, &nc, &ns) == 3);
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
  763 |   assert(nt == i && nc == memb_list[i].nodecount);
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~        
  764 |   assert(ns == nc * ssi[i].size);
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                         
  765 |   acell_[j].ncell = nc;
      |   ~~~~~~~~~~~~~~~~~~~~~                                   
  766 |   acell_[j].state = new double[ns];
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                       
  767 |   ASSERTfread((char*)acell_[j].state, sizeof(double), ns, f);
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
  768 |   ++j;
      |   ~~~~                                                    
  769 |  }
      |  ~                                                        
  770 |  ASSERTfgets(buf, 20, f);
      |  ~~~~~~~~~~~~~~~~~~~~~~~~                                 
  771 |  sscanf(buf, "%d\n", &nprs_);
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~                             
  772 |  if (nprs_) {
      |  ~~~~~~~~~~~~                                             
  773 |   prs_ = new PlayRecordSave*[nprs_];
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                      
  774 |   for (int i=0; i < nprs_; ++i) {
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                         
  775 |    prs_[i] = PlayRecord::savestate_read(f);
      |    ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~               
  776 |   }
      |   ~                                                       
  777 |  }
      |  ~                                                        
  778 |  readnet(f);
      |  ~~~~~~~~~~~                                              
  779 |  if (close) {
      |  ~~~~~~~~~~~~                                             
  780 |   ocf->close();
      |   ~~~~~~~~~~~~~                                           
  781 |  }
      |  ~                                                        
  782 | }
      | ~                                                         
  783 | 
      |                                                           
  784 | void SaveState::write(OcFile* ocf, bool close) {
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~          
  785 |  if (!ocf->open(ocf->get_name(), "w")) {
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                  
  786 |   hoc_execerror("Couldn't open file for writing:", ocf->get_name());
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
  787 |  }
      |  ~                                                        
  788 |  BinaryMode(ocf)
      |  ~~~~~~~~~~~~~~~                                          
  789 |  FILE* f = ocf->file();
      |  ~~~~~~~~~~~~~~~~~~~~~~                                   
  790 |  fprintf(f, "SaveState binary file version 6.0\n");
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~       
  791 |  ASSERTfwrite((char*)&t_, sizeof(double), 1, f);
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~          
  792 |  fprintf(f, "%d %d\n", nsec_, nroot_);
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                    
  793 |  fwrite_SecState(ss_, nsec_, f);
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                          
  794 |  for (int isec=0; isec < nsec_; ++isec) {
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                 
  795 |   SecState& ss = ss_[isec];
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~                               
  796 |   fwrite_NodeState(ss.ns, ss.nnode, f);
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                   
  797 |   for (int inode = 0; inode < ss.nnode; ++inode) {
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~        
  798 |    NodeState& ns = ss.ns[inode];
      |    ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                          
  799 |    if (ns.nmemb){
      |    ~~~~~~~~~~~~~~                                         
  800 |     ASSERTfwrite((char*)ns.type, sizeof(int), ns.nmemb, f);
      |     ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
  801 |    }
      |    ~                                                      
  802 |    if (ns.nstate) {
      |    ~~~~~~~~~~~~~~~~                                       
  803 |     ASSERTfwrite((char*)ns.state, sizeof(double), ns.nstate, f);
      |     ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
  804 |    }
      |    ~                                                      
  805 |   }
      |   ~                                                       
  806 |   if (ss.root) {
      |   ~~~~~~~~~~~~~~                                          
  807 |    fwrite_NodeState(ss.root, 1, f);
      |    ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                       
  808 |    NodeState& ns = *ss.root;
      |    ~~~~~~~~~~~~~~~~~~~~~~~~~                              
  809 |    if (ns.nmemb){
      |    ~~~~~~~~~~~~~~                                         
  810 |     ASSERTfwrite((char*)ns.type, sizeof(int), ns.nmemb, f);
      |     ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
  811 |    }
      |    ~                                                      
  812 |    if (ns.nstate) {
      |    ~~~~~~~~~~~~~~~~                                       
  813 |     ASSERTfwrite((char*)ns.state, sizeof(double), ns.nstate, f);
      |     ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
/builddir/build/BUILD/nrn-7.8.1/src/oc/nrnassrt.h:23:33: note: in definition of macro 'nrn_assert'
   23 | #  define nrn_assert(ex) {if (!(ex)){fprintf(stderr,"Assertion failed: file %s, line %d\n", __FILE__,__LINE__);hoc_execerror(#ex, (char *)0);}}
      |                                 ^~
/builddir/build/BUILD/nrn-7.8.1/src/nrniv/savstate.cpp:813:5: note: in expansion of macro 'ASSERTfwrite'
  813 |     ASSERTfwrite((char*)ns.state, sizeof(double), ns.nstate, f);
      |     ^~~~~~~~~~~~
/builddir/build/BUILD/nrn-7.8.1/src/nrniv/savstate.cpp:34:58: warning: comparison of integer expressions of different signedness: 'size_t' {aka 'long unsigned int'} and 'int' [-Wsign-compare]
   34 | #define ASSERTfwrite(a,b,c,d) nrn_assert(fwrite(a,b,c,d) == c)
      |                                          ~~~~~~~~~~~~~~~~^~~~~
   35 | 
      |                                                           
   36 | class SaveState : public Resource {
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                       
   37 | public:
      | ~~~~~~~                                                   
   38 |  SaveState();
      |  ~~~~~~~~~~~~                                             
   39 |  ~SaveState();
      |  ~~~~~~~~~~~~~                                            
   40 |  virtual void save();
      |  ~~~~~~~~~~~~~~~~~~~~                                     
   41 |  virtual void restore(int type);
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                          
   42 |  virtual void read(OcFile*, bool close);
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                  
   43 |  virtual void write(OcFile*, bool close);
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                 
   44 |  struct NodeState {
      |  ~~~~~~~~~~~~~~~~~~                                       
   45 |   double v;
      |   ~~~~~~~~~                                               
   46 |   int nmemb;
      |   ~~~~~~~~~~                                              
   47 |   int* type;
      |   ~~~~~~~~~~                                              
   48 |   int nstate;
      |   ~~~~~~~~~~~                                             
   49 |   double* state;
      |   ~~~~~~~~~~~~~~                                          
   50 |  };
      |  ~~                                                       
   51 |  struct SecState {
      |  ~~~~~~~~~~~~~~~~~                                        
   52 |   Section* sec;
      |   ~~~~~~~~~~~~~                                           
   53 |   int nnode;
      |   ~~~~~~~~~~                                              
   54 |   struct NodeState* ns;
      |   ~~~~~~~~~~~~~~~~~~~~~                                   
   55 |   struct NodeState* root; // non-zero for rootnode
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~        
   56 |  };
      |  ~~                                                       
   57 |  struct StateStructInfo {
      |  ~~~~~~~~~~~~~~~~~~~~~~~~                                 
   58 |   int offset;
      |   ~~~~~~~~~~~                                             
   59 |   int size;
      |   ~~~~~~~~~                                               
   60 |  };
      |  ~~                                                       
   61 |  struct ACellState {
      |  ~~~~~~~~~~~~~~~~~~~                                      
   62 |   int type;
      |   ~~~~~~~~~                                               
   63 |   int ncell;
      |   ~~~~~~~~~~                                              
   64 |   double* state;
      |   ~~~~~~~~~~~~~~                                          
   65 |  };
      |  ~~                                                       
   66 |  struct NetConState {
      |  ~~~~~~~~~~~~~~~~~~~~                                     
   67 |   int object_index; // for checking
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                       
   68 |   int nstate;
      |   ~~~~~~~~~~~                                             
   69 |   double* state;
      |   ~~~~~~~~~~~~~~                                          
   70 |  };
      |  ~~                                                       
   71 |  struct PreSynState {
      |  ~~~~~~~~~~~~~~~~~~~~                                     
   72 |   bool flag; // is it firing?
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~                             
   73 |   double valthresh, valold, told;
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                         
   74 | 
      |                                                           
   75 |  };
      |  ~~                                                       
   76 |  struct TQState {
      |  ~~~~~~~~~~~~~~~~                                         
   77 |   int nstate;
      |   ~~~~~~~~~~~                                             
   78 |   double* tdeliver;
      |   ~~~~~~~~~~~~~~~~~                                       
   79 |   DiscreteEvent** items;
      |   ~~~~~~~~~~~~~~~~~~~~~~                                  
   80 |  };
      |  ~~                                                       
   81 | private:
      | ~~~~~~~~                                                  
   82 |  bool check(bool warn);
      |  ~~~~~~~~~~~~~~~~~~~~~~                                   
   83 |  void alloc();
      |  ~~~~~~~~~~~~~                                            
   84 |  void ssfree();
      |  ~~~~~~~~~~~~~~                                           
   85 |  void ssi_def();
      |  ~~~~~~~~~~~~~~~                                          
   86 | private:
      | ~~~~~~~~                                                  
   87 |  void fread_NodeState(NodeState*, int, FILE*);
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~            
   88 |  void fwrite_NodeState(NodeState*, int, FILE*);
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~           
   89 |  void fread_SecState(SecState*, int, FILE*);
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~              
   90 |  void fwrite_SecState(SecState*, int, FILE*);
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~             
   91 | private:
      | ~~~~~~~~                                                  
   92 |  double t_;
      |  ~~~~~~~~~~                                               
   93 |  int nroot_;
      |  ~~~~~~~~~~~                                              
   94 |  int nsec_;
      |  ~~~~~~~~~~                                               
   95 |  SecState* ss_;
      |  ~~~~~~~~~~~~~~                                           
   96 |  int nacell_; // number of types
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                          
   97 |  ACellState* acell_;
      |  ~~~~~~~~~~~~~~~~~~~                                      
   98 |  int nncs_;
      |  ~~~~~~~~~~                                               
   99 |  NetConState* ncs_;
      |  ~~~~~~~~~~~~~~~~~~                                       
  100 |  int npss_;
      |  ~~~~~~~~~~                                               
  101 |  PreSynState* pss_;
      |  ~~~~~~~~~~~~~~~~~~                                       
  102 |  TQState* tqs_;
      |  ~~~~~~~~~~~~~~                                           
  103 |  int tqcnt_; // volatile for index of forall_callback
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~     
  104 |  int nprs_;
      |  ~~~~~~~~~~                                               
  105 |  PlayRecordSave** prs_;
      |  ~~~~~~~~~~~~~~~~~~~~~~                                   
  106 |  static StateStructInfo* ssi;
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~                             
  107 |  static cTemplate* nct;
      |  ~~~~~~~~~~~~~~~~~~~~~~                                   
  108 | private:
      | ~~~~~~~~                                                  
  109 |  void savenode(NodeState&, Node*);
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                        
  110 |  void restorenode(NodeState&, Node*);
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                     
  111 |  bool checknode(NodeState&, Node*, bool);
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                 
  112 |  void allocnode(NodeState&, Node*);
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                       
  113 | 
      |                                                           
  114 |  void saveacell(ACellState&, int type);
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                   
  115 |  void restoreacell(ACellState&, int type);
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                
  116 |  bool checkacell(ACellState&, int type, bool);
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~            
  117 |  void allocacell(ACellState&, int type);
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                  
  118 | 
      |                                                           
  119 |  void savenet();
      |  ~~~~~~~~~~~~~~~                                          
  120 |  void restorenet();
      |  ~~~~~~~~~~~~~~~~~~                                       
  121 |  void readnet(FILE*);
      |  ~~~~~~~~~~~~~~~~~~~~                                     
  122 |  void writenet(FILE*);
      |  ~~~~~~~~~~~~~~~~~~~~~                                    
  123 |  bool checknet(bool);
      |  ~~~~~~~~~~~~~~~~~~~~                                     
  124 |  void allocnet();
      |  ~~~~~~~~~~~~~~~~                                         
  125 |  void free_tq();
      |  ~~~~~~~~~~~~~~~                                          
  126 |  void alloc_tq();
      |  ~~~~~~~~~~~~~~~~                                         
  127 | public:
      | ~~~~~~~                                                   
  128 |  void tqcount(const TQItem*, int);
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                        
  129 |  void tqsave(const TQItem*, int);
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                         
  130 | };
      | ~~                                                        
  131 | 
      |                                                           
  132 | static SaveState* this_savestate;
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                         
  133 | static int callback_mode;
      | ~~~~~~~~~~~~~~~~~~~~~~~~~                                 
  134 | 
      |                                                           
  135 | void tqcallback(const TQItem* tq, int i) {
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                
  136 |  if (callback_mode == 0) {
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~                                
  137 |   this_savestate->tqcount(tq, i);
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                         
  138 |  }else{
      |  ~~~~~~                                                   
  139 |   this_savestate->tqsave(tq, i);
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                          
  140 |  }
      |  ~                                                        
  141 | }
      | ~                                                         
  142 | 
      |                                                           
  143 | #if __sgi && 0
      | ~~~~~~~~~~~~~~                                            
  144 | // fixed in version 5 of os
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~                               
  145 | StateStructInfo* SaveState::ssi;
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                          
  146 | #else
      | ~~~~~                                                     
  147 | SaveState::StateStructInfo* SaveState::ssi;
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~               
  148 | #endif
      | ~~~~~~                                                    
  149 | cTemplate* SaveState::nct;
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~                                
  150 | 
      |                                                           
  151 | SaveState::SaveState() {
      | ~~~~~~~~~~~~~~~~~~~~~~~~                                  
  152 |  int i, j;
      |  ~~~~~~~~~                                                
  153 |  ssi_def();
      |  ~~~~~~~~~~                                               
  154 |  nroot_ = 0;
      |  ~~~~~~~~~~~                                              
  155 |  ss_ = NULL;
      |  ~~~~~~~~~~~                                              
  156 |  nsec_ = 0;
      |  ~~~~~~~~~~                                               
  157 |  nncs_ = 0;
      |  ~~~~~~~~~~                                               
  158 |  ncs_ = NULL;
      |  ~~~~~~~~~~~~                                             
  159 |  npss_ = 0;
      |  ~~~~~~~~~~                                               
  160 |  pss_ = NULL;
      |  ~~~~~~~~~~~~                                             
  161 |  tqs_ = new TQState();
      |  ~~~~~~~~~~~~~~~~~~~~~                                    
  162 |  tqs_->nstate = 0;
      |  ~~~~~~~~~~~~~~~~~                                        
  163 |  nprs_ = 0;
      |  ~~~~~~~~~~                                               
  164 |  prs_ = NULL;
      |  ~~~~~~~~~~~~                                             
  165 |  nacell_ = 0;
      |  ~~~~~~~~~~~~                                             
  166 |  for (i=0; i < n_memb_func; ++i) if (nrn_is_artificial_[i]) {
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
  167 |   ++nacell_;
      |   ~~~~~~~~~~                                              
  168 |  }
      |  ~                                                        
  169 |  acell_ = new ACellState[nacell_];
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                        
  170 |  for (i=0; i < nacell_; ++i) {
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                            
  171 |   acell_[i].ncell = 0;
      |   ~~~~~~~~~~~~~~~~~~~~                                    
  172 |   acell_[i].state = 0;
      |   ~~~~~~~~~~~~~~~~~~~~                                    
  173 |  }
      |  ~                                                        
  174 |  for (i=0, j=0; i < n_memb_func; ++i) if (nrn_is_artificial_[i]) {
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
  175 |   acell_[j].type = i;
      |   ~~~~~~~~~~~~~~~~~~~                                     
  176 |   ++j;
      |   ~~~~                                                    
  177 |  }
      |  ~                                                        
  178 | }
      | ~                                                         
  179 | 
      |                                                           
  180 | SaveState::~SaveState() {
      | ~~~~~~~~~~~~~~~~~~~~~~~~~                                 
  181 |  ssfree();
      |  ~~~~~~~~~                                                
  182 |  delete tqs_;
      |  ~~~~~~~~~~~~                                             
  183 |  delete [] acell_;
      |  ~~~~~~~~~~~~~~~~~                                        
  184 | }
      | ~                                                         
  185 | 
      |                                                           
  186 | void SaveState::fread_NodeState(NodeState* ns, int cnt, FILE* f) {
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
  187 |  for (int i=0; i < cnt; ++i) {
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                            
  188 |   ASSERTfread(&ns[i].v, sizeof(double), 1, f);
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~            
  189 |   ASSERTfread(&ns[i].nmemb, sizeof(int), 1, f);
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~           
  190 |   ASSERTfread(&ns[i].nstate, sizeof(int), 1, f);
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~          
  191 |  }
      |  ~                                                        
  192 | }
      | ~                                                         
  193 | void SaveState::fwrite_NodeState(NodeState* ns, int cnt, FILE* f){
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
  194 |  for (int i=0; i < cnt; ++i) {
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                            
  195 |   ASSERTfwrite(&ns[i].v, sizeof(double), 1, f);
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~           
  196 |   ASSERTfwrite(&ns[i].nmemb, sizeof(int), 1, f);
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~          
  197 |   ASSERTfwrite(&ns[i].nstate, sizeof(int), 1, f);
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~         
  198 |  }
      |  ~                                                        
  199 | }
      | ~                                                         
  200 | void SaveState::fread_SecState(SecState* ss, int cnt, FILE* f){
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
  201 |  int b;
      |  ~~~~~~                                                   
  202 |  for (int i=0; i < cnt; ++i) {
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                            
  203 |   ASSERTfread(&ss[i].nnode, sizeof(int), 1, f);
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~           
  204 |   ASSERTfread(&b, sizeof(int), 1, f);
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                     
  205 |   if (b) {
      |   ~~~~~~~~                                                
  206 |    ss[i].root = new NodeState;
      |    ~~~~~~~~~~~~~~~~~~~~~~~~~~~                            
  207 |   }else{
      |   ~~~~~~                                                  
  208 |    ss[i].root = 0;
      |    ~~~~~~~~~~~~~~~                                        
  209 |   }
      |   ~                                                       
  210 |  }
      |  ~                                                        
  211 | }
      | ~                                                         
  212 | void SaveState::fwrite_SecState(SecState* ss, int cnt, FILE* f){
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
  213 |  int b;
      |  ~~~~~~                                                   
  214 |  for (int i=0; i < cnt; ++i) {
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                            
  215 |   ASSERTfwrite(&ss[i].nnode, sizeof(int), 1, f);
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~          
  216 |   b = ss[i].root ? 1 : 0;
      |   ~~~~~~~~~~~~~~~~~~~~~~~                                 
  217 |   ASSERTfwrite(&b, sizeof(int), 1, f);
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                    
  218 |  }
      |  ~                                                        
  219 | }
      | ~                                                         
  220 | 
      |                                                           
  221 | void SaveState::ssi_def() {
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~                               
  222 |  if (nct) { return; }
      |  ~~~~~~~~~~~~~~~~~~~~                                     
  223 |  Symbol* s = hoc_lookup("NetCon");
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                        
  224 |  nct = s->u.ctemplate;
      |  ~~~~~~~~~~~~~~~~~~~~~                                    
  225 |  ssi = new StateStructInfo[n_memb_func];
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                  
  226 |  for (int im=0; im < n_memb_func; ++im) {
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                 
  227 |   ssi[im].offset = -1;
      |   ~~~~~~~~~~~~~~~~~~~~                                    
  228 |   ssi[im].size = 0;
      |   ~~~~~~~~~~~~~~~~~                                       
  229 |   if (!memb_func[im].sym) {
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~                               
  230 |    continue;
      |    ~~~~~~~~~                                              
  231 |   }
      |   ~                                                       
  232 |   NrnProperty* np = new NrnProperty(memb_func[im].sym->name);
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
  233 |   // generally we only save STATE variables. However for
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~  
  234 |   // models containing a NET_RECEIVE block, we also need to
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
  235 |   // save everything except the parameters
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                
  236 |   // because they often contain
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                           
  237 |   // logic and analytic state values. Unfortunately, it is often
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
  238 |   // the case that the ASSIGNED variables are not declared as
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
  239 |   // RANGE variables so to avoid missing state, save the whole
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
  240 |   // param array including PARAMETERs.
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                    
  241 |      if  (pnt_receive[im]) {
      |      ~~~~~~~~~~~~~~~~~~~~~~~                              
  242 |   ssi[im].offset = 0;
      |   ~~~~~~~~~~~~~~~~~~~                                     
  243 |   ssi[im].size = np->prop()->param_size;
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                  
  244 |      }else{
      |      ~~~~~~                                               
  245 |   int type = STATE;
      |   ~~~~~~~~~~~~~~~~~                                       
  246 |   for (Symbol* sym = np->first_var(); np->more_var(); sym = np->next_var()) {
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
  247 |    if (np->var_type(sym) == type
      |    ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                          
  248 |        || np->var_type(sym) == STATE
      |        ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                      
  249 |        || sym->subtype == _AMBIGUOUS) {
      |        ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                   
  250 |     if (ssi[im].offset < 0) {
      |     ~~~~~~~~~~~~~~~~~~~~~~~~~                             
  251 |      ssi[im].offset = np->prop_index(sym);
      |      ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                
  252 |     }
      |     ~                                                     
  253 |     ssi[im].size += hoc_total_array_data(sym, 0);
      |     ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~         
  254 |    }
      |    ~                                                      
  255 |   }
      |   ~                                                       
  256 |      }
      |      ~                                                    
  257 |      delete np;
      |      ~~~~~~~~~~                                           
  258 |  }
      |  ~                                                        
  259 | }
      | ~                                                         
  260 | 
      |                                                           
  261 | bool SaveState::check(bool warn) {
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                        
  262 |  hoc_Item* qsec;
      |  ~~~~~~~~~~~~~~~                                          
  263 |  int isec;
      |  ~~~~~~~~~                                                
  264 |  if (nsec_ != section_count) {
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                            
  265 |   if (warn) {
      |   ~~~~~~~~~~~                                             
  266 | fprintf(stderr, "SaveState warning: %d sections exist but saved %d\n",
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
  267 |    section_count, nsec_);
      |    ~~~~~~~~~~~~~~~~~~~~~~                                 
  268 |   }
      |   ~                                                       
  269 |   return false;
      |   ~~~~~~~~~~~~~                                           
  270 |  }
      |  ~                                                        
  271 |  if (nroot_ != nrn_global_ncell) {
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                        
  272 |   if (warn) {
      |   ~~~~~~~~~~~                                             
  273 | fprintf(stderr, "SaveState warning: %d cells exist but saved %d\n",
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
  274 |    nrn_global_ncell, nroot_);
      |    ~~~~~~~~~~~~~~~~~~~~~~~~~~                             
  275 |   }
      |   ~                                                       
  276 |   return false;
      |   ~~~~~~~~~~~~~                                           
  277 |  }
      |  ~                                                        
  278 |  if (nsec_ && ss_[0].sec == NULL) { // got the data from a read
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
  279 |   isec = 0; ForAllSections(sec)
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                           
  280 |    ss_[isec].sec = sec;
      |    ~~~~~~~~~~~~~~~~~~~~                                   
  281 |    section_ref(ss_[isec].sec);
      |    ~~~~~~~~~~~~~~~~~~~~~~~~~~~                            
  282 |    ++isec;
      |    ~~~~~~~                                                
  283 |   }
      |   ~                                                       
  284 |  }
      |  ~                                                        
  285 |  for (int i=0, j=0; i < n_memb_func; ++i) if (nrn_is_artificial_[i]) {
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
  286 |   if (!checkacell(acell_[j], i, warn)) {
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                  
  287 |    return false;
      |    ~~~~~~~~~~~~~                                          
  288 |   }
      |   ~                                                       
  289 |   ++j;
      |   ~~~~                                                    
  290 |  }
      |  ~                                                        
  291 |  for (int isec=0; isec < nsec_; ++isec) {
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                 
  292 |   SecState& ss = ss_[isec];
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~                               
  293 |   Section* sec = ss.sec;
      |   ~~~~~~~~~~~~~~~~~~~~~~                                  
  294 |   if (!sec->prop || sec->nnode != ss.nnode) {
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~             
  295 | if (warn) {
      | ~~~~~~~~~~~                                               
  296 | if (!sec->prop) {
      | ~~~~~~~~~~~~~~~~~                                         
  297 | fprintf(stderr, "SaveState warning: saved section no longer exists\n");
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
  298 | }else{
      | ~~~~~~                                                    
  299 | fprintf(stderr, "SaveState warning: %s has %d nodes but saved %d\n",
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
  300 |     secname(sec), sec->nnode, ss.nnode);
      |     ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                  
  301 | }
      | ~                                                         
  302 | }
      | ~                                                         
  303 |    return false;
      |    ~~~~~~~~~~~~~                                          
  304 |   }
      |   ~                                                       
  305 |   for (int inode = 0; inode < ss.nnode; ++inode) {
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~        
  306 |    NodeState& ns = ss.ns[inode];
      |    ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                          
  307 |    Node* nd = sec->pnode[inode];
      |    ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                          
  308 |    int i=0;
      |    ~~~~~~~~                                               
  309 |    Prop* p;
      |    ~~~~~~~~                                               
  310 |    for (p = nd->prop; p; p = p->next) {
      |    ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                   
  311 |     if (ssi[p->type].size == 0) {
      |     ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                         
  312 |      continue;
      |      ~~~~~~~~~                                            
  313 |     }
      |     ~                                                     
  314 |     if (i >= ns.nmemb) {
      |     ~~~~~~~~~~~~~~~~~~~~                                  
  315 | if (warn) {
      | ~~~~~~~~~~~                                               
  316 | fprintf(stderr,"SaveState warning: \
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                      
  317 | fewer mechanisms saved than exist at node %d of %s\n",
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~    
  318 |  inode, secname(sec));
      |  ~~~~~~~~~~~~~~~~~~~~~                                    
  319 | }
      | ~                                                         
  320 |      return false;
      |      ~~~~~~~~~~~~~                                        
  321 |     }
      |     ~                                                     
  322 |     if (p->type != ns.type[i]) {
      |     ~~~~~~~~~~~~~~~~~~~~~~~~~~~~                          
  323 | if (warn) {
      | ~~~~~~~~~~~                                               
  324 | fprintf(stderr, "SaveState warning: mechanisms out of order at node %d of %s\n\
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
  325 | saved %s but need %s\n",
      | ~~~~~~~~~~~~~~~~~~~~~~~~                                  
  326 | inode, secname(sec), memb_func[i].sym->name, memb_func[p->type].sym->name);
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
  327 | }
      | ~                                                         
  328 |      return false;
      |      ~~~~~~~~~~~~~                                        
  329 |     }
      |     ~                                                     
  330 |     ++i;
      |     ~~~~                                                  
  331 |    }
      |    ~                                                      
  332 |    if (i != ns.nmemb) {
      |    ~~~~~~~~~~~~~~~~~~~~                                   
  333 | if (warn) {
      | ~~~~~~~~~~~                                               
  334 | fprintf(stderr, "SaveState warning: more mechanisms saved than exist at node %d of %s\n",
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
  335 |  inode, secname(sec));
      |  ~~~~~~~~~~~~~~~~~~~~~                                    
  336 | }
      | ~                                                         
  337 |     return false;
      |     ~~~~~~~~~~~~~                                         
  338 |    }
      |    ~                                                      
  339 |   }
      |   ~                                                       
  340 |   if (!sec->parentsec || ss.root) {
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                       
  341 |    if (sec->parentsec || !ss.root) {
      |    ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                      
  342 | if (warn) {
      | ~~~~~~~~~~~                                               
  343 | fprintf(stderr, "SaveState warning: Saved section and %s are not both root sections.\n",
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
  344 |  secname(sec));
      |  ~~~~~~~~~~~~~~                                           
  345 | }
      | ~                                                         
  346 |    }
      |    ~                                                      
  347 |    if (!checknode(*ss.root, sec->parentnode, warn)) {
      |    ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~     
  348 |     return false;
      |     ~~~~~~~~~~~~~                                         
  349 |    }
      |    ~                                                      
  350 |   }
      |   ~                                                       
  351 | 
      |                                                           
  352 |  }
      |  ~                                                        
  353 |  if (!checknet(warn)) { return false; }
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                   
  354 |  return true;
      |  ~~~~~~~~~~~~                                             
  355 | }
      | ~                                                         
  356 | 
      |                                                           
  357 | bool SaveState::checknode(NodeState& ns, Node* nd, bool warn) {
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
  358 |  int i=0;
      |  ~~~~~~~~                                                 
  359 |  Prop* p;
      |  ~~~~~~~~                                                 
  360 |  for (p = nd->prop; p; p = p->next) {
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                     
  361 |   if (ssi[p->type].size == 0) {
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                           
  362 |    continue;
      |    ~~~~~~~~~                                              
  363 |   }
      |   ~                                                       
  364 |   if (i >= ns.nmemb) {
      |   ~~~~~~~~~~~~~~~~~~~~                                    
  365 | if (warn) {
      | ~~~~~~~~~~~                                               
  366 | fprintf(stderr,"SaveState warning: \
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                      
  367 | fewer mechanisms saved than exist at a root node\n");
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~     
  368 | }
      | ~                                                         
  369 |    return false;
      |    ~~~~~~~~~~~~~                                          
  370 |   }
      |   ~                                                       
  371 |   if (p->type != ns.type[i]) {
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~~                            
  372 | if (warn) {
      | ~~~~~~~~~~~                                               
  373 | fprintf(stderr, "SaveState warning: mechanisms out of order at a rootnode\n\
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
  374 | saved %s but need %s\n",
      | ~~~~~~~~~~~~~~~~~~~~~~~~                                  
  375 | memb_func[i].sym->name, memb_func[p->type].sym->name);
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~    
  376 | }
      | ~                                                         
  377 |    return false;
      |    ~~~~~~~~~~~~~                                          
  378 |   }
      |   ~                                                       
  379 |   ++i;
      |   ~~~~                                                    
  380 |  }
      |  ~                                                        
  381 |  if (i != ns.nmemb) {
      |  ~~~~~~~~~~~~~~~~~~~~                                     
  382 | if (warn) {
      | ~~~~~~~~~~~                                               
  383 | fprintf(stderr, "SaveState warning: more mechanisms saved than exist at a rootnode\n");
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
  384 | }
      | ~                                                         
  385 |   return false;
      |   ~~~~~~~~~~~~~                                           
  386 |  }
      |  ~                                                        
  387 |  return true;
      |  ~~~~~~~~~~~~                                             
  388 | }
      | ~                                                         
  389 | 
      |                                                           
  390 | bool SaveState::checkacell(ACellState& ac, int type, bool warn) {
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
  391 |  if (memb_list[type].nodecount != ac.ncell) {
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~             
  392 | if (warn) {
      | ~~~~~~~~~~~                                               
  393 | fprintf(stderr, "SaveState warning: different number of %s saved than exist.\n",
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
  394 | memb_func[type].sym->name);
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~                               
  395 | }
      | ~                                                         
  396 |   return false;
      |   ~~~~~~~~~~~~~                                           
  397 |  }
      |  ~                                                        
  398 |  return true;
      |  ~~~~~~~~~~~~                                             
  399 | }
      | ~                                                         
  400 | 
      |                                                           
  401 | void SaveState::alloc() {
      | ~~~~~~~~~~~~~~~~~~~~~~~~~                                 
  402 |  ssfree();
      |  ~~~~~~~~~                                                
  403 |  int inode, isec;
      |  ~~~~~~~~~~~~~~~~                                         
  404 |  hoc_Item* qsec;
      |  ~~~~~~~~~~~~~~~                                          
  405 |  nsec_ = section_count;
      |  ~~~~~~~~~~~~~~~~~~~~~~                                   
  406 |  ss_ = new SecState[nsec_];
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~                               
  407 |  nroot_ = 0;
      |  ~~~~~~~~~~~                                              
  408 |  isec = 0;
      |  ~~~~~~~~~                                                
  409 |  ForAllSections(sec)
      |  ~~~~~~~~~~~~~~~~~~~                                      
  410 |   SecState& ss = ss_[isec];
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~                               
  411 |   ss.sec = sec;
      |   ~~~~~~~~~~~~~                                           
  412 |   section_ref(ss.sec);
      |   ~~~~~~~~~~~~~~~~~~~~                                    
  413 |   ss.nnode = ss.sec->nnode;
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~                               
  414 |   ss.ns = new NodeState[ss.nnode];
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                        
  415 |   for (inode = 0; inode < ss.nnode; ++inode) {
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~            
  416 |    Node* nd = ss.sec->pnode[inode];
      |    ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                       
  417 |    NodeState& ns = ss.ns[inode];
      |    ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                          
  418 |    allocnode(ns, nd);
      |    ~~~~~~~~~~~~~~~~~~                                     
  419 |   }
      |   ~                                                       
  420 |   if (!sec->parentsec) {
      |   ~~~~~~~~~~~~~~~~~~~~~~                                  
  421 |    assert(sec->parentnode);
      |    ~~~~~~~~~~~~~~~~~~~~~~~~                               
  422 |    ss.root = new NodeState;
      |    ~~~~~~~~~~~~~~~~~~~~~~~~                               
  423 |    allocnode(*ss.root, sec->parentnode);
      |    ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                  
  424 |    ++nroot_;
      |    ~~~~~~~~~                                              
  425 |   }else{
      |   ~~~~~~                                                  
  426 |    ss.root = 0;
      |    ~~~~~~~~~~~~                                           
  427 |   }
      |   ~                                                       
  428 |   ++isec;
      |   ~~~~~~~                                                 
  429 |  }
      |  ~                                                        
  430 |  assert(isec == section_count);
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                           
  431 |  assert(nroot_ == nrn_global_ncell);
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                      
  432 |  for (int i=0, j=0; i < n_memb_func; ++i) if (nrn_is_artificial_[i]) {
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
  433 |   allocacell(acell_[j], i);
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~                               
  434 |   ++j;
      |   ~~~~                                                    
  435 |  }
      |  ~                                                        
  436 |  PlayRecList* prl = net_cvode_instance_prl();
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~             
  437 |  nprs_ = prl->count();
      |  ~~~~~~~~~~~~~~~~~~~~~                                    
  438 |  if (nprs_) {
      |  ~~~~~~~~~~~~                                             
  439 |   prs_ = new PlayRecordSave*[nprs_];
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                      
  440 |  }
      |  ~                                                        
  441 |  allocnet();
      |  ~~~~~~~~~~~                                              
  442 | }
      | ~                                                         
  443 | 
      |                                                           
  444 | void SaveState::allocnode(NodeState& ns, Node* nd) {
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~      
  445 |  ns.nmemb = 0;
      |  ~~~~~~~~~~~~~                                            
  446 |  ns.type = NULL;
      |  ~~~~~~~~~~~~~~~                                          
  447 |  ns.state = NULL;
      |  ~~~~~~~~~~~~~~~~                                         
  448 |  ns.nstate = 0;
      |  ~~~~~~~~~~~~~~                                           
  449 |  Prop* p;
      |  ~~~~~~~~                                                 
  450 |  for (p = nd->prop; p; p = p->next) {
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                     
  451 |   if (ssi[p->type].size == 0) {
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                           
  452 |    continue;
      |    ~~~~~~~~~                                              
  453 |   }
      |   ~                                                       
  454 |   ++ns.nmemb;
      |   ~~~~~~~~~~~                                             
  455 |   ns.nstate += ssi[p->type].size;
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                         
  456 |  }
      |  ~                                                        
  457 |  if (ns.nmemb) {
      |  ~~~~~~~~~~~~~~~                                          
  458 |   ns.type = new int[ns.nmemb];
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~~                            
  459 |  }
      |  ~                                                        
  460 |  if (ns.nstate) {
      |  ~~~~~~~~~~~~~~~~                                         
  461 |   ns.state = new double[ns.nstate];
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                       
  462 |  }
      |  ~                                                        
  463 |  int i = 0;
      |  ~~~~~~~~~~                                               
  464 |  for (p = nd->prop; p; p = p->next) {
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                     
  465 |   if (ssi[p->type].size == 0) {
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                           
  466 |    continue;
      |    ~~~~~~~~~                                              
  467 |   }
      |   ~                                                       
  468 |   ns.type[i] = p->type;
      |   ~~~~~~~~~~~~~~~~~~~~~                                   
  469 |   ++i;
      |   ~~~~                                                    
  470 |  }
      |  ~                                                        
  471 | }
      | ~                                                         
  472 | 
      |                                                           
  473 | void SaveState::allocacell(ACellState& ac, int type) {
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~    
  474 |  Memb_list& ml = memb_list[type];
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                         
  475 |  ac.type = type;
      |  ~~~~~~~~~~~~~~~                                          
  476 |  ac.ncell = ml.nodecount;
      |  ~~~~~~~~~~~~~~~~~~~~~~~~                                 
  477 |  ac.state = new double[ac.ncell * ssi[type].size];
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~        
  478 | }
      | ~                                                         
  479 | 
      |                                                           
  480 | void SaveState::ssfree() {
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~                                
  481 |  int i, isec, inode;
      |  ~~~~~~~~~~~~~~~~~~~                                      
  482 |  for (isec=0; isec < nsec_; ++isec) {
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                     
  483 |   SecState& ss = ss_[isec];
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~                               
  484 |   for (inode = 0; inode < ss.nnode; ++inode) {
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~            
  485 |    NodeState& ns = ss.ns[inode];
      |    ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                          
  486 |    if (ns.nmemb) {
      |    ~~~~~~~~~~~~~~~                                        
  487 |     delete [] ns.type;
      |     ~~~~~~~~~~~~~~~~~~                                    
  488 |    }
      |    ~                                                      
  489 |    if (ns.nstate) {
      |    ~~~~~~~~~~~~~~~~                                       
  490 |     delete [] ns.state;
      |     ~~~~~~~~~~~~~~~~~~~                                   
  491 |    }
      |    ~                                                      
  492 |   }
      |   ~                                                       
  493 |   if (ss.root) {
      |   ~~~~~~~~~~~~~~                                          
  494 |    NodeState& ns = *ss.root;
      |    ~~~~~~~~~~~~~~~~~~~~~~~~~                              
  495 |    if (ns.nmemb) {
      |    ~~~~~~~~~~~~~~~                                        
  496 |     delete [] ns.type;
      |     ~~~~~~~~~~~~~~~~~~                                    
  497 |    }
      |    ~                                                      
  498 |    if (ns.nstate) {
      |    ~~~~~~~~~~~~~~~~                                       
  499 |     delete [] ns.state;
      |     ~~~~~~~~~~~~~~~~~~~                                   
  500 |    }
      |    ~                                                      
  501 |    delete ss.root;
      |    ~~~~~~~~~~~~~~~                                        
  502 |   }
      |   ~                                                       
  503 |   if (ss.nnode) {
      |   ~~~~~~~~~~~~~~~                                         
  504 |    delete [] ss.ns;
      |    ~~~~~~~~~~~~~~~~                                       
  505 |   }
      |   ~                                                       
  506 |   if (ss.sec) { // got info from an fread but never checked it
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
  507 |    section_unref(ss.sec);
      |    ~~~~~~~~~~~~~~~~~~~~~~                                 
  508 |   }
      |   ~                                                       
  509 |  }
      |  ~                                                        
  510 |  if (nsec_) {
      |  ~~~~~~~~~~~~                                             
  511 |   delete [] ss_;
      |   ~~~~~~~~~~~~~~                                          
  512 |  }
      |  ~                                                        
  513 |  nsec_ = 0;
      |  ~~~~~~~~~~                                               
  514 |  ss_ = NULL;
      |  ~~~~~~~~~~~                                              
  515 |  for (i=0; i < nacell_; ++i) {
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                            
  516 |   if (acell_[i].ncell) {
      |   ~~~~~~~~~~~~~~~~~~~~~~                                  
  517 |    delete [] acell_[i].state;
      |    ~~~~~~~~~~~~~~~~~~~~~~~~~~                             
  518 |    acell_[i].state = 0;
      |    ~~~~~~~~~~~~~~~~~~~~                                   
  519 |    acell_[i].ncell = 0;
      |    ~~~~~~~~~~~~~~~~~~~~                                   
  520 |   }
      |   ~                                                       
  521 |  } // note we do not destroy the acell_.
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                  
  522 |  if (nncs_) {
      |  ~~~~~~~~~~~~                                             
  523 |   for (i = 0; i < nncs_; ++i) {
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                           
  524 |    if (ncs_[i].nstate) {
      |    ~~~~~~~~~~~~~~~~~~~~~                                  
  525 |     delete [] ncs_[i].state;
      |     ~~~~~~~~~~~~~~~~~~~~~~~~                              
  526 |    }
      |    ~                                                      
  527 |   }
      |   ~                                                       
  528 |   delete [] ncs_;
      |   ~~~~~~~~~~~~~~~                                         
  529 |  }
      |  ~                                                        
  530 |  nncs_ = 0;
      |  ~~~~~~~~~~                                               
  531 |  ncs_ = NULL;
      |  ~~~~~~~~~~~~                                             
  532 |  if (npss_) {
      |  ~~~~~~~~~~~~                                             
  533 |   delete [] pss_;
      |   ~~~~~~~~~~~~~~~                                         
  534 |  }
      |  ~                                                        
  535 |  npss_ = 0;
      |  ~~~~~~~~~~                                               
  536 |  pss_ = NULL;
      |  ~~~~~~~~~~~~                                             
  537 |  free_tq();
      |  ~~~~~~~~~~                                               
  538 |  if (nprs_) {
      |  ~~~~~~~~~~~~                                             
  539 |   for (i=0; i < nprs_; ++i) {
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~                             
  540 |    delete prs_[i];
      |    ~~~~~~~~~~~~~~~                                        
  541 |   }
      |   ~                                                       
  542 |   delete [] prs_;
      |   ~~~~~~~~~~~~~~~                                         
  543 |  }
      |  ~                                                        
  544 |  nprs_ = 0;
      |  ~~~~~~~~~~                                               
  545 | }
      | ~                                                         
  546 | 
      |                                                           
  547 | void SaveState::save() {
      | ~~~~~~~~~~~~~~~~~~~~~~~~                                  
  548 |  NrnThread* nt;
      |  ~~~~~~~~~~~~~~                                           
  549 |  if (!check(false)) {
      |  ~~~~~~~~~~~~~~~~~~~~                                     
  550 |   alloc();
      |   ~~~~~~~~                                                
  551 |  }
      |  ~                                                        
  552 |  FOR_THREADS(nt) {
      |  ~~~~~~~~~~~~~~~~~                                        
  553 |   assert(t == nt->_t);
      |   ~~~~~~~~~~~~~~~~~~~~                                    
  554 |  }
      |  ~                                                        
  555 |  t_ = t;
      |  ~~~~~~~                                                  
  556 |  int inode;
      |  ~~~~~~~~~~                                               
  557 |  for (int isec=0; isec < nsec_; ++isec) {
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                 
  558 |   SecState& ss = ss_[isec];
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~                               
  559 |   Section* sec = ss.sec;
      |   ~~~~~~~~~~~~~~~~~~~~~~                                  
  560 |   for (inode = 0; inode < ss.nnode; ++inode) {
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~            
  561 |    NodeState& ns = ss.ns[inode];
      |    ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                          
  562 |    Node* nd = sec->pnode[inode];
      |    ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                          
  563 |    savenode(ns, nd);
      |    ~~~~~~~~~~~~~~~~~                                      
  564 |   }
      |   ~                                                       
  565 |   if (ss.root) {
      |   ~~~~~~~~~~~~~~                                          
  566 |    NodeState& ns = *ss.root;
      |    ~~~~~~~~~~~~~~~~~~~~~~~~~                              
  567 |    Node* nd = sec->parentnode;
      |    ~~~~~~~~~~~~~~~~~~~~~~~~~~~                            
  568 |    savenode(ns, nd);
      |    ~~~~~~~~~~~~~~~~~                                      
  569 |   }
      |   ~                                                       
  570 |  }
      |  ~                                                        
  571 |  for (int i=0, j=0; i < n_memb_func; ++i) if (nrn_is_artificial_[i]) {
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
  572 |   saveacell(acell_[j], i);
      |   ~~~~~~~~~~~~~~~~~~~~~~~~                                
  573 |   ++j;
      |   ~~~~                                                    
  574 |  }
      |  ~                                                        
  575 |  if (nprs_) {
      |  ~~~~~~~~~~~~                                             
  576 |   PlayRecList* prl = net_cvode_instance_prl();
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~            
  577 |   int i;
      |   ~~~~~~                                                  
  578 |   assert(nprs_ == prl->count());
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                          
  579 |   for (i=0; i < nprs_; ++i) {
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~                             
  580 |    prs_[i] = prl->item(i)->savestate_save();
      |    ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~              
  581 |   }
      |   ~                                                       
  582 |  }
      |  ~                                                        
  583 |  savenet();
      |  ~~~~~~~~~~                                               
  584 | }
      | ~                                                         
  585 | 
      |                                                           
  586 | void SaveState::savenode(NodeState& ns, Node* nd) {
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~       
  587 |  ns.v = NODEV(nd);
      |  ~~~~~~~~~~~~~~~~~                                        
  588 |  int istate = 0;
      |  ~~~~~~~~~~~~~~~                                          
  589 |  Prop* p;
      |  ~~~~~~~~                                                 
  590 |  for (p = nd->prop; p; p = p->next) {
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                     
  591 |   if (ssi[p->type].size == 0) {
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                           
  592 |    continue;
      |    ~~~~~~~~~                                              
  593 |   }
      |   ~                                                       
  594 |   int type = p->type;
      |   ~~~~~~~~~~~~~~~~~~~                                     
  595 |   int max = ssi[type].offset + ssi[type].size;
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~            
  596 | #if EXTRACELLULAR
      | ~~~~~~~~~~~~~~~~~                                         
  597 |   if (type == EXTRACELL) {
      |   ~~~~~~~~~~~~~~~~~~~~~~~~                                
  598 |    for (int i=0; i < nlayer; ++i) {
      |    ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                       
  599 |     ns.state[istate++] = nd->extnode->v[i];
      |     ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~               
  600 |    }
      |    ~                                                      
  601 |   }else
      |   ~~~~~                                                   
  602 | #endif
      | ~~~~~~                                                    
  603 |   {
      |   ~                                                       
  604 |    for (int ip=ssi[type].offset; ip < max; ++ip) {
      |    ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~        
  605 |     ns.state[istate++] = p->param[ip];
      |     ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                    
  606 |    }
      |    ~                                                      
  607 |   }
      |   ~                                                       
  608 |  }
      |  ~                                                        
  609 | }
      | ~                                                         
  610 | 
      |                                                           
  611 | void SaveState::saveacell(ACellState& ac, int type) {
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~     
  612 |  Memb_list& ml = memb_list[type];
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                         
  613 |  int sz = ssi[type].size;
      |  ~~~~~~~~~~~~~~~~~~~~~~~~                                 
  614 |  double* p = ac.state;
      |  ~~~~~~~~~~~~~~~~~~~~~                                    
  615 |  for (int i = 0; i < ml.nodecount; ++i) {
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                 
  616 |   double* d = ml.data[i];
      |   ~~~~~~~~~~~~~~~~~~~~~~~                                 
  617 |   for (int j=0; j < sz; ++j) {
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~~                            
  618 |    (*p++) = d[j];
      |    ~~~~~~~~~~~~~~                                         
  619 |   }
      |   ~                                                       
  620 |  }
      |  ~                                                        
  621 | }
      | ~                                                         
  622 | 
      |                                                           
  623 | void SaveState::restore(int type) {
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                       
  624 |  NrnThread* nt;
      |  ~~~~~~~~~~~~~~                                           
  625 |  if (!check(true)) {
      |  ~~~~~~~~~~~~~~~~~~~                                      
  626 |   hoc_execerror("SaveState:",
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~                             
  627 |   "Stored state inconsistent with current neuron structure");
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
  628 |  }
      |  ~                                                        
  629 |  t = t_;
      |  ~~~~~~~                                                  
  630 |  FOR_THREADS(nt) {
      |  ~~~~~~~~~~~~~~~~~                                        
  631 |   nt->_t = t_;
      |   ~~~~~~~~~~~~                                            
  632 |  }
      |  ~                                                        
  633 |  int inode;
      |  ~~~~~~~~~~                                               
  634 |  for (int isec=0; isec < nsec_; ++isec) {
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                 
  635 |   SecState& ss = ss_[isec];
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~                               
  636 |   Section* sec = ss.sec;
      |   ~~~~~~~~~~~~~~~~~~~~~~                                  
  637 |   for (inode = 0; inode < ss.nnode; ++inode) {
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~            
  638 |    NodeState& ns = ss.ns[inode];
      |    ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                          
  639 |    Node* nd = sec->pnode[inode];
      |    ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                          
  640 |    restorenode(ns, nd);
      |    ~~~~~~~~~~~~~~~~~~~~                                   
  641 |   }
      |   ~                                                       
  642 |   if (ss.root) {
      |   ~~~~~~~~~~~~~~                                          
  643 |    NodeState& ns = *ss.root;
      |    ~~~~~~~~~~~~~~~~~~~~~~~~~                              
  644 |    Node* nd = sec->parentnode;
      |    ~~~~~~~~~~~~~~~~~~~~~~~~~~~                            
  645 |    restorenode(ns, nd);
      |    ~~~~~~~~~~~~~~~~~~~~                                   
  646 |   }
      |   ~                                                       
  647 |  }
      |  ~                                                        
  648 |  for (int i=0, j=0; i < n_memb_func; ++i) if (nrn_is_artificial_[i]) {
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
  649 |   restoreacell(acell_[j], i);
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~                             
  650 |   ++j;
      |   ~~~~                                                    
  651 |  }
      |  ~                                                        
  652 |  if (type == 1) { return; }
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~                               
  653 |  PlayRecList* prl = net_cvode_instance_prl();
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~             
  654 |  // during a local step the PlayRecList is augmented with GLineRecord
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
  655 |  // assert(nprs_ == prl->count());
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                        
  656 |  assert(nprs_ <= prl->count());
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                           
  657 |  int i;
      |  ~~~~~~                                                   
  658 |  for (i = 0; i < nprs_; ++i) {
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                            
  659 |   prs_[i]->savestate_restore();
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                           
  660 |  }
      |  ~                                                        
  661 |  restorenet();
      |  ~~~~~~~~~~~~~                                            
  662 | }
      | ~                                                         
  663 | 
      |                                                           
  664 | void SaveState::restorenode(NodeState& ns, Node* nd) {
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~    
  665 |  NODEV(nd) = ns.v;;
      |  ~~~~~~~~~~~~~~~~~~                                       
  666 |  int istate = 0;
      |  ~~~~~~~~~~~~~~~                                          
  667 |  Prop* p;
      |  ~~~~~~~~                                                 
  668 |  for (p = nd->prop; p; p = p->next) {
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                     
  669 |   if (ssi[p->type].size == 0) {
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                           
  670 |    continue;
      |    ~~~~~~~~~                                              
  671 |   }
      |   ~                                                       
  672 |   int type = p->type;
      |   ~~~~~~~~~~~~~~~~~~~                                     
  673 |   int max = ssi[type].offset + ssi[type].size;
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~            
  674 | #if EXTRACELLULAR
      | ~~~~~~~~~~~~~~~~~                                         
  675 |   if (type == EXTRACELL) {
      |   ~~~~~~~~~~~~~~~~~~~~~~~~                                
  676 |    for (int i=0; i < nlayer; ++i) {
      |    ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                       
  677 |     nd->extnode->v[i] = ns.state[istate++];
      |     ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~               
  678 |    }
      |    ~                                                      
  679 |   }else
      |   ~~~~~                                                   
  680 | #endif
      | ~~~~~~                                                    
  681 |   {
      |   ~                                                       
  682 |    for (int ip=ssi[type].offset; ip < max; ++ip) {
      |    ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~        
  683 |     p->param[ip] = ns.state[istate++];
      |     ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                    
  684 |    }
      |    ~                                                      
  685 |   }
      |   ~                                                       
  686 |  }
      |  ~                                                        
  687 | }
      | ~                                                         
  688 | 
      |                                                           
  689 | void SaveState::restoreacell(ACellState& ac, int type) {
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~  
  690 |  Memb_list& ml = memb_list[type];
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                         
  691 |  int sz = ssi[type].size;
      |  ~~~~~~~~~~~~~~~~~~~~~~~~                                 
  692 |  double* p = ac.state;
      |  ~~~~~~~~~~~~~~~~~~~~~                                    
  693 |  for (int i = 0; i < ml.nodecount; ++i) {
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                 
  694 |   double* d = ml.data[i];
      |   ~~~~~~~~~~~~~~~~~~~~~~~                                 
  695 |   for (int j=0; j < sz; ++j) {
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~~                            
  696 |    d[j] = (*p++);
      |    ~~~~~~~~~~~~~~                                         
  697 |   }
      |   ~                                                       
  698 |  }
      |  ~                                                        
  699 | }
      | ~                                                         
  700 | 
      |                                                           
  701 | void SaveState::read(OcFile* ocf, bool close) {
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~           
  702 |  if (!ocf->open(ocf->get_name(), "r")) {
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                  
  703 |   hoc_execerror("Couldn't open file for reading:", ocf->get_name());
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
  704 |  }
      |  ~                                                        
  705 |  nrn_shape_update();
      |  ~~~~~~~~~~~~~~~~~~~                                      
  706 |  BinaryMode(ocf)
      |  ~~~~~~~~~~~~~~~                                          
  707 |  FILE* f = ocf->file();
      |  ~~~~~~~~~~~~~~~~~~~~~~                                   
  708 |  ssfree();
      |  ~~~~~~~~~                                                
  709 |  char buf[200];
      |  ~~~~~~~~~~~~~~                                           
  710 |  ASSERTfgets(buf, 200, f);
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~                                
  711 |  if (strcmp(buf, "SaveState binary file version 6.0\n") != 0) {
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
  712 |   ocf->close();
      |   ~~~~~~~~~~~~~                                           
  713 |   hoc_execerror("Bad SaveState binary file", " Not version 6.0");
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
  714 |  }
      |  ~                                                        
  715 |  ASSERTfread((char*)&t_, sizeof(double), 1, f);
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~           
  716 | // fscanf(f, "%d %d\n", &nsec_, &nrootnode_);
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~             
  717 | // on some os's fscanf leaves file pointer at wrong place for next fread
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
  718 | // can check it with ftell(f)
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                             
  719 |  ASSERTfgets(buf, 200, f);
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~                                
  720 |  sscanf(buf, "%d %d\n", &nsec_, &nroot_);
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                 
  721 |  // to enable comparison of SaveState files, we avoid
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~     
  722 |  // putting pointers in the files and instead explicitly read/write
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
  723 |  // structure elements.
      |  ~~~~~~~~~~~~~~~~~~~~~~                                   
  724 |  ss_ = new SecState[nsec_];
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~                               
  725 |  fread_SecState(ss_, nsec_, f);
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                           
  726 |  for (int isec=0; isec < nsec_; ++isec) {
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                 
  727 |   SecState& ss = ss_[isec];
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~                               
  728 |   ss.sec = NULL;
      |   ~~~~~~~~~~~~~~                                          
  729 |   ss.ns = new NodeState[ss.nnode];
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                        
  730 |   fread_NodeState(ss.ns, ss.nnode, f);
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                    
  731 |   for (int inode = 0; inode < ss.nnode; ++inode) {
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~        
  732 |    NodeState& ns = ss.ns[inode];
      |    ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                          
  733 |    if (ns.nmemb) {
      |    ~~~~~~~~~~~~~~~                                        
  734 |     ns.type = new int[ns.nmemb];
      |     ~~~~~~~~~~~~~~~~~~~~~~~~~~~~                          
  735 |     ASSERTfread((char*)ns.type, sizeof(int), ns.nmemb, f);
      |     ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
  736 |    }
      |    ~                                                      
  737 |    if (ns.nstate) {
      |    ~~~~~~~~~~~~~~~~                                       
  738 |     ns.state = new double[ns.nstate];
      |     ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                     
  739 |     ASSERTfread((char*)ns.state, sizeof(double), ns.nstate, f);
      |     ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
  740 |    }
      |    ~                                                      
  741 |   }
      |   ~                                                       
  742 |   if (ss.root) {
      |   ~~~~~~~~~~~~~~                                          
  743 |    fread_NodeState(ss.root, 1, f);
      |    ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                        
  744 |    NodeState& ns = *ss.root;
      |    ~~~~~~~~~~~~~~~~~~~~~~~~~                              
  745 |    if (ns.nmemb) {
      |    ~~~~~~~~~~~~~~~                                        
  746 |     ns.type = new int[ns.nmemb];
      |     ~~~~~~~~~~~~~~~~~~~~~~~~~~~~                          
  747 |     ASSERTfread((char*)ns.type, sizeof(int), ns.nmemb, f);
      |     ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
  748 |    }
      |    ~                                                      
  749 |    if (ns.nstate) {
      |    ~~~~~~~~~~~~~~~~                                       
  750 |     ns.state = new double[ns.nstate];
      |     ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                     
  751 |     ASSERTfread((char*)ns.state, sizeof(double), ns.nstate, f);
      |     ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
  752 |    }
      |    ~                                                      
  753 |   }
      |   ~                                                       
  754 |  }
      |  ~                                                        
  755 |  int n = 0;
      |  ~~~~~~~~~~                                               
  756 |  ASSERTfgets(buf, 20, f);
      |  ~~~~~~~~~~~~~~~~~~~~~~~~                                 
  757 |  sscanf(buf, "%d\n", &n);
      |  ~~~~~~~~~~~~~~~~~~~~~~~~                                 
  758 |  assert(n == nacell_);
      |  ~~~~~~~~~~~~~~~~~~~~~                                    
  759 |  for (int i=0, j=0; i < n_memb_func; ++i) if (nrn_is_artificial_[i]) {
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
  760 |   int nt = 0, nc = 0, ns = 0;
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~                             
  761 |   ASSERTfgets(buf, 200, f);
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~                               
  762 |   nrn_assert(sscanf(buf, "%d %d %d\n", &nt, &nc, &ns) == 3);
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
  763 |   assert(nt == i && nc == memb_list[i].nodecount);
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~        
  764 |   assert(ns == nc * ssi[i].size);
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                         
  765 |   acell_[j].ncell = nc;
      |   ~~~~~~~~~~~~~~~~~~~~~                                   
  766 |   acell_[j].state = new double[ns];
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                       
  767 |   ASSERTfread((char*)acell_[j].state, sizeof(double), ns, f);
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
  768 |   ++j;
      |   ~~~~                                                    
  769 |  }
      |  ~                                                        
  770 |  ASSERTfgets(buf, 20, f);
      |  ~~~~~~~~~~~~~~~~~~~~~~~~                                 
  771 |  sscanf(buf, "%d\n", &nprs_);
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~                             
  772 |  if (nprs_) {
      |  ~~~~~~~~~~~~                                             
  773 |   prs_ = new PlayRecordSave*[nprs_];
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                      
  774 |   for (int i=0; i < nprs_; ++i) {
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                         
  775 |    prs_[i] = PlayRecord::savestate_read(f);
      |    ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~               
  776 |   }
      |   ~                                                       
  777 |  }
      |  ~                                                        
  778 |  readnet(f);
      |  ~~~~~~~~~~~                                              
  779 |  if (close) {
      |  ~~~~~~~~~~~~                                             
  780 |   ocf->close();
      |   ~~~~~~~~~~~~~                                           
  781 |  }
      |  ~                                                        
  782 | }
      | ~                                                         
  783 | 
      |                                                           
  784 | void SaveState::write(OcFile* ocf, bool close) {
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~          
  785 |  if (!ocf->open(ocf->get_name(), "w")) {
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                  
  786 |   hoc_execerror("Couldn't open file for writing:", ocf->get_name());
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
  787 |  }
      |  ~                                                        
  788 |  BinaryMode(ocf)
      |  ~~~~~~~~~~~~~~~                                          
  789 |  FILE* f = ocf->file();
      |  ~~~~~~~~~~~~~~~~~~~~~~                                   
  790 |  fprintf(f, "SaveState binary file version 6.0\n");
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~       
  791 |  ASSERTfwrite((char*)&t_, sizeof(double), 1, f);
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~          
  792 |  fprintf(f, "%d %d\n", nsec_, nroot_);
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                    
  793 |  fwrite_SecState(ss_, nsec_, f);
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                          
  794 |  for (int isec=0; isec < nsec_; ++isec) {
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                 
  795 |   SecState& ss = ss_[isec];
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~                               
  796 |   fwrite_NodeState(ss.ns, ss.nnode, f);
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                   
  797 |   for (int inode = 0; inode < ss.nnode; ++inode) {
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~        
  798 |    NodeState& ns = ss.ns[inode];
      |    ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                          
  799 |    if (ns.nmemb){
      |    ~~~~~~~~~~~~~~                                         
  800 |     ASSERTfwrite((char*)ns.type, sizeof(int), ns.nmemb, f);
      |     ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
  801 |    }
      |    ~                                                      
  802 |    if (ns.nstate) {
      |    ~~~~~~~~~~~~~~~~                                       
  803 |     ASSERTfwrite((char*)ns.state, sizeof(double), ns.nstate, f);
      |     ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
  804 |    }
      |    ~                                                      
  805 |   }
      |   ~                                                       
  806 |   if (ss.root) {
      |   ~~~~~~~~~~~~~~                                          
  807 |    fwrite_NodeState(ss.root, 1, f);
      |    ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                       
  808 |    NodeState& ns = *ss.root;
      |    ~~~~~~~~~~~~~~~~~~~~~~~~~                              
  809 |    if (ns.nmemb){
      |    ~~~~~~~~~~~~~~                                         
  810 |     ASSERTfwrite((char*)ns.type, sizeof(int), ns.nmemb, f);
      |     ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
  811 |    }
      |    ~                                                      
  812 |    if (ns.nstate) {
      |    ~~~~~~~~~~~~~~~~                                       
  813 |     ASSERTfwrite((char*)ns.state, sizeof(double), ns.nstate, f);
      |     ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
  814 |    }
      |    ~                                                      
  815 |   }
      |   ~                                                       
  816 |  }
      |  ~                                                        
  817 |  fprintf(f, "%d\n", nacell_);
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~                             
  818 |  for (int i=0, j=0; i < n_memb_func; ++i) if (nrn_is_artificial_[i]) {
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
  819 |   int sz = acell_[j].ncell * ssi[i].size;
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                 
  820 |   fprintf(f, "%d %d %d\n", acell_[j].type, acell_[j].ncell, sz);
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
  821 |   ASSERTfwrite((char*)acell_[j].state, sizeof(double), sz, f);
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ 
/builddir/build/BUILD/nrn-7.8.1/src/oc/nrnassrt.h:23:33: note: in definition of macro 'nrn_assert'
   23 | #  define nrn_assert(ex) {if (!(ex)){fprintf(stderr,"Assertion failed: file %s, line %d\n", __FILE__,__LINE__);hoc_execerror(#ex, (char *)0);}}
      |                                 ^~
/builddir/build/BUILD/nrn-7.8.1/src/nrniv/savstate.cpp:821:3: note: in expansion of macro 'ASSERTfwrite'
  821 |   ASSERTfwrite((char*)acell_[j].state, sizeof(double), sz, f);
      |   ^~~~~~~~~~~~
/builddir/build/BUILD/nrn-7.8.1/src/nrniv/savstate.cpp: In member function 'void SaveState::readnet(FILE*)':
/builddir/build/BUILD/nrn-7.8.1/src/nrniv/savstate.cpp:33:56: warning: comparison of integer expressions of different signedness: 'size_t' {aka 'long unsigned int'} and 'int' [-Wsign-compare]
   33 | #define ASSERTfread(a,b,c,d) nrn_assert(fread(a,b,c,d) == c)
      |                                         ~~~~~~~~~~~~~~~^~~~~
   34 | #define ASSERTfwrite(a,b,c,d) nrn_assert(fwrite(a,b,c,d) == c)
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
   35 | 
      |                                                         
   36 | class SaveState : public Resource {
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                     
   37 | public:
      | ~~~~~~~                                                 
   38 |  SaveState();
      |  ~~~~~~~~~~~~                                           
   39 |  ~SaveState();
      |  ~~~~~~~~~~~~~                                          
   40 |  virtual void save();
      |  ~~~~~~~~~~~~~~~~~~~~                                   
   41 |  virtual void restore(int type);
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                        
   42 |  virtual void read(OcFile*, bool close);
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                
   43 |  virtual void write(OcFile*, bool close);
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~               
   44 |  struct NodeState {
      |  ~~~~~~~~~~~~~~~~~~                                     
   45 |   double v;
      |   ~~~~~~~~~                                             
   46 |   int nmemb;
      |   ~~~~~~~~~~                                            
   47 |   int* type;
      |   ~~~~~~~~~~                                            
   48 |   int nstate;
      |   ~~~~~~~~~~~                                           
   49 |   double* state;
      |   ~~~~~~~~~~~~~~                                        
   50 |  };
      |  ~~                                                     
   51 |  struct SecState {
      |  ~~~~~~~~~~~~~~~~~                                      
   52 |   Section* sec;
      |   ~~~~~~~~~~~~~                                         
   53 |   int nnode;
      |   ~~~~~~~~~~                                            
   54 |   struct NodeState* ns;
      |   ~~~~~~~~~~~~~~~~~~~~~                                 
   55 |   struct NodeState* root; // non-zero for rootnode
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~      
   56 |  };
      |  ~~                                                     
   57 |  struct StateStructInfo {
      |  ~~~~~~~~~~~~~~~~~~~~~~~~                               
   58 |   int offset;
      |   ~~~~~~~~~~~                                           
   59 |   int size;
      |   ~~~~~~~~~                                             
   60 |  };
      |  ~~                                                     
   61 |  struct ACellState {
      |  ~~~~~~~~~~~~~~~~~~~                                    
   62 |   int type;
      |   ~~~~~~~~~                                             
   63 |   int ncell;
      |   ~~~~~~~~~~                                            
   64 |   double* state;
      |   ~~~~~~~~~~~~~~                                        
   65 |  };
      |  ~~                                                     
   66 |  struct NetConState {
      |  ~~~~~~~~~~~~~~~~~~~~                                   
   67 |   int object_index; // for checking
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                     
   68 |   int nstate;
      |   ~~~~~~~~~~~                                           
   69 |   double* state;
      |   ~~~~~~~~~~~~~~                                        
   70 |  };
      |  ~~                                                     
   71 |  struct PreSynState {
      |  ~~~~~~~~~~~~~~~~~~~~                                   
   72 |   bool flag; // is it firing?
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~                           
   73 |   double valthresh, valold, told;
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                       
   74 | 
      |                                                         
   75 |  };
      |  ~~                                                     
   76 |  struct TQState {
      |  ~~~~~~~~~~~~~~~~                                       
   77 |   int nstate;
      |   ~~~~~~~~~~~                                           
   78 |   double* tdeliver;
      |   ~~~~~~~~~~~~~~~~~                                     
   79 |   DiscreteEvent** items;
      |   ~~~~~~~~~~~~~~~~~~~~~~                                
   80 |  };
      |  ~~                                                     
   81 | private:
      | ~~~~~~~~                                                
   82 |  bool check(bool warn);
      |  ~~~~~~~~~~~~~~~~~~~~~~                                 
   83 |  void alloc();
      |  ~~~~~~~~~~~~~                                          
   84 |  void ssfree();
      |  ~~~~~~~~~~~~~~                                         
   85 |  void ssi_def();
      |  ~~~~~~~~~~~~~~~                                        
   86 | private:
      | ~~~~~~~~                                                
   87 |  void fread_NodeState(NodeState*, int, FILE*);
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~          
   88 |  void fwrite_NodeState(NodeState*, int, FILE*);
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~         
   89 |  void fread_SecState(SecState*, int, FILE*);
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~            
   90 |  void fwrite_SecState(SecState*, int, FILE*);
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~           
   91 | private:
      | ~~~~~~~~                                                
   92 |  double t_;
      |  ~~~~~~~~~~                                             
   93 |  int nroot_;
      |  ~~~~~~~~~~~                                            
   94 |  int nsec_;
      |  ~~~~~~~~~~                                             
   95 |  SecState* ss_;
      |  ~~~~~~~~~~~~~~                                         
   96 |  int nacell_; // number of types
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                        
   97 |  ACellState* acell_;
      |  ~~~~~~~~~~~~~~~~~~~                                    
   98 |  int nncs_;
      |  ~~~~~~~~~~                                             
   99 |  NetConState* ncs_;
      |  ~~~~~~~~~~~~~~~~~~                                     
  100 |  int npss_;
      |  ~~~~~~~~~~                                             
  101 |  PreSynState* pss_;
      |  ~~~~~~~~~~~~~~~~~~                                     
  102 |  TQState* tqs_;
      |  ~~~~~~~~~~~~~~                                         
  103 |  int tqcnt_; // volatile for index of forall_callback
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~   
  104 |  int nprs_;
      |  ~~~~~~~~~~                                             
  105 |  PlayRecordSave** prs_;
      |  ~~~~~~~~~~~~~~~~~~~~~~                                 
  106 |  static StateStructInfo* ssi;
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~                           
  107 |  static cTemplate* nct;
      |  ~~~~~~~~~~~~~~~~~~~~~~                                 
  108 | private:
      | ~~~~~~~~                                                
  109 |  void savenode(NodeState&, Node*);
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                      
  110 |  void restorenode(NodeState&, Node*);
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                   
  111 |  bool checknode(NodeState&, Node*, bool);
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~               
  112 |  void allocnode(NodeState&, Node*);
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                     
  113 | 
      |                                                         
  114 |  void saveacell(ACellState&, int type);
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                 
  115 |  void restoreacell(ACellState&, int type);
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~              
  116 |  bool checkacell(ACellState&, int type, bool);
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~          
  117 |  void allocacell(ACellState&, int type);
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                
  118 | 
      |                                                         
  119 |  void savenet();
      |  ~~~~~~~~~~~~~~~                                        
  120 |  void restorenet();
      |  ~~~~~~~~~~~~~~~~~~                                     
  121 |  void readnet(FILE*);
      |  ~~~~~~~~~~~~~~~~~~~~                                   
  122 |  void writenet(FILE*);
      |  ~~~~~~~~~~~~~~~~~~~~~                                  
  123 |  bool checknet(bool);
      |  ~~~~~~~~~~~~~~~~~~~~                                   
  124 |  void allocnet();
      |  ~~~~~~~~~~~~~~~~                                       
  125 |  void free_tq();
      |  ~~~~~~~~~~~~~~~                                        
  126 |  void alloc_tq();
      |  ~~~~~~~~~~~~~~~~                                       
  127 | public:
      | ~~~~~~~                                                 
  128 |  void tqcount(const TQItem*, int);
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                      
  129 |  void tqsave(const TQItem*, int);
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                       
  130 | };
      | ~~                                                      
  131 | 
      |                                                         
  132 | static SaveState* this_savestate;
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                       
  133 | static int callback_mode;
      | ~~~~~~~~~~~~~~~~~~~~~~~~~                               
  134 | 
      |                                                         
  135 | void tqcallback(const TQItem* tq, int i) {
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~              
  136 |  if (callback_mode == 0) {
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~                              
  137 |   this_savestate->tqcount(tq, i);
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                       
  138 |  }else{
      |  ~~~~~~                                                 
  139 |   this_savestate->tqsave(tq, i);
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                        
  140 |  }
      |  ~                                                      
  141 | }
      | ~                                                       
  142 | 
      |                                                         
  143 | #if __sgi && 0
      | ~~~~~~~~~~~~~~                                          
  144 | // fixed in version 5 of os
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~                             
  145 | StateStructInfo* SaveState::ssi;
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                        
  146 | #else
      | ~~~~~                                                   
  147 | SaveState::StateStructInfo* SaveState::ssi;
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~             
  148 | #endif
      | ~~~~~~                                                  
  149 | cTemplate* SaveState::nct;
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~                              
  150 | 
      |                                                         
  151 | SaveState::SaveState() {
      | ~~~~~~~~~~~~~~~~~~~~~~~~                                
  152 |  int i, j;
      |  ~~~~~~~~~                                              
  153 |  ssi_def();
      |  ~~~~~~~~~~                                             
  154 |  nroot_ = 0;
      |  ~~~~~~~~~~~                                            
  155 |  ss_ = NULL;
      |  ~~~~~~~~~~~                                            
  156 |  nsec_ = 0;
      |  ~~~~~~~~~~                                             
  157 |  nncs_ = 0;
      |  ~~~~~~~~~~                                             
  158 |  ncs_ = NULL;
      |  ~~~~~~~~~~~~                                           
  159 |  npss_ = 0;
      |  ~~~~~~~~~~                                             
  160 |  pss_ = NULL;
      |  ~~~~~~~~~~~~                                           
  161 |  tqs_ = new TQState();
      |  ~~~~~~~~~~~~~~~~~~~~~                                  
  162 |  tqs_->nstate = 0;
      |  ~~~~~~~~~~~~~~~~~                                      
  163 |  nprs_ = 0;
      |  ~~~~~~~~~~                                             
  164 |  prs_ = NULL;
      |  ~~~~~~~~~~~~                                           
  165 |  nacell_ = 0;
      |  ~~~~~~~~~~~~                                           
  166 |  for (i=0; i < n_memb_func; ++i) if (nrn_is_artificial_[i]) {
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
  167 |   ++nacell_;
      |   ~~~~~~~~~~                                            
  168 |  }
      |  ~                                                      
  169 |  acell_ = new ACellState[nacell_];
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                      
  170 |  for (i=0; i < nacell_; ++i) {
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                          
  171 |   acell_[i].ncell = 0;
      |   ~~~~~~~~~~~~~~~~~~~~                                  
  172 |   acell_[i].state = 0;
      |   ~~~~~~~~~~~~~~~~~~~~                                  
  173 |  }
      |  ~                                                      
  174 |  for (i=0, j=0; i < n_memb_func; ++i) if (nrn_is_artificial_[i]) {
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
  175 |   acell_[j].type = i;
      |   ~~~~~~~~~~~~~~~~~~~                                   
  176 |   ++j;
      |   ~~~~                                                  
  177 |  }
      |  ~                                                      
  178 | }
      | ~                                                       
  179 | 
      |                                                         
  180 | SaveState::~SaveState() {
      | ~~~~~~~~~~~~~~~~~~~~~~~~~                               
  181 |  ssfree();
      |  ~~~~~~~~~                                              
  182 |  delete tqs_;
      |  ~~~~~~~~~~~~                                           
  183 |  delete [] acell_;
      |  ~~~~~~~~~~~~~~~~~                                      
  184 | }
      | ~                                                       
  185 | 
      |                                                         
  186 | void SaveState::fread_NodeState(NodeState* ns, int cnt, FILE* f) {
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
  187 |  for (int i=0; i < cnt; ++i) {
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                          
  188 |   ASSERTfread(&ns[i].v, sizeof(double), 1, f);
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~          
  189 |   ASSERTfread(&ns[i].nmemb, sizeof(int), 1, f);
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~         
  190 |   ASSERTfread(&ns[i].nstate, sizeof(int), 1, f);
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~        
  191 |  }
      |  ~                                                      
  192 | }
      | ~                                                       
  193 | void SaveState::fwrite_NodeState(NodeState* ns, int cnt, FILE* f){
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
  194 |  for (int i=0; i < cnt; ++i) {
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                          
  195 |   ASSERTfwrite(&ns[i].v, sizeof(double), 1, f);
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~         
  196 |   ASSERTfwrite(&ns[i].nmemb, sizeof(int), 1, f);
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~        
  197 |   ASSERTfwrite(&ns[i].nstate, sizeof(int), 1, f);
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~       
  198 |  }
      |  ~                                                      
  199 | }
      | ~                                                       
  200 | void SaveState::fread_SecState(SecState* ss, int cnt, FILE* f){
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
  201 |  int b;
      |  ~~~~~~                                                 
  202 |  for (int i=0; i < cnt; ++i) {
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                          
  203 |   ASSERTfread(&ss[i].nnode, sizeof(int), 1, f);
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~         
  204 |   ASSERTfread(&b, sizeof(int), 1, f);
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                   
  205 |   if (b) {
      |   ~~~~~~~~                                              
  206 |    ss[i].root = new NodeState;
      |    ~~~~~~~~~~~~~~~~~~~~~~~~~~~                          
  207 |   }else{
      |   ~~~~~~                                                
  208 |    ss[i].root = 0;
      |    ~~~~~~~~~~~~~~~                                      
  209 |   }
      |   ~                                                     
  210 |  }
      |  ~                                                      
  211 | }
      | ~                                                       
  212 | void SaveState::fwrite_SecState(SecState* ss, int cnt, FILE* f){
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
  213 |  int b;
      |  ~~~~~~                                                 
  214 |  for (int i=0; i < cnt; ++i) {
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                          
  215 |   ASSERTfwrite(&ss[i].nnode, sizeof(int), 1, f);
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~        
  216 |   b = ss[i].root ? 1 : 0;
      |   ~~~~~~~~~~~~~~~~~~~~~~~                               
  217 |   ASSERTfwrite(&b, sizeof(int), 1, f);
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                  
  218 |  }
      |  ~                                                      
  219 | }
      | ~                                                       
  220 | 
      |                                                         
  221 | void SaveState::ssi_def() {
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~                             
  222 |  if (nct) { return; }
      |  ~~~~~~~~~~~~~~~~~~~~                                   
  223 |  Symbol* s = hoc_lookup("NetCon");
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                      
  224 |  nct = s->u.ctemplate;
      |  ~~~~~~~~~~~~~~~~~~~~~                                  
  225 |  ssi = new StateStructInfo[n_memb_func];
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                
  226 |  for (int im=0; im < n_memb_func; ++im) {
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~               
  227 |   ssi[im].offset = -1;
      |   ~~~~~~~~~~~~~~~~~~~~                                  
  228 |   ssi[im].size = 0;
      |   ~~~~~~~~~~~~~~~~~                                     
  229 |   if (!memb_func[im].sym) {
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~                             
  230 |    continue;
      |    ~~~~~~~~~                                            
  231 |   }
      |   ~                                                     
  232 |   NrnProperty* np = new NrnProperty(memb_func[im].sym->name);
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
  233 |   // generally we only save STATE variables. However for
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
  234 |   // models containing a NET_RECEIVE block, we also need to
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
  235 |   // save everything except the parameters
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~              
  236 |   // because they often contain
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                         
  237 |   // logic and analytic state values. Unfortunately, it is often
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
  238 |   // the case that the ASSIGNED variables are not declared as
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
  239 |   // RANGE variables so to avoid missing state, save the whole
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
  240 |   // param array including PARAMETERs.
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                  
  241 |      if  (pnt_receive[im]) {
      |      ~~~~~~~~~~~~~~~~~~~~~~~                            
  242 |   ssi[im].offset = 0;
      |   ~~~~~~~~~~~~~~~~~~~                                   
  243 |   ssi[im].size = np->prop()->param_size;
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                
  244 |      }else{
      |      ~~~~~~                                             
  245 |   int type = STATE;
      |   ~~~~~~~~~~~~~~~~~                                     
  246 |   for (Symbol* sym = np->first_var(); np->more_var(); sym = np->next_var()) {
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
  247 |    if (np->var_type(sym) == type
      |    ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                        
  248 |        || np->var_type(sym) == STATE
      |        ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                    
  249 |        || sym->subtype == _AMBIGUOUS) {
      |        ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                 
  250 |     if (ssi[im].offset < 0) {
      |     ~~~~~~~~~~~~~~~~~~~~~~~~~                           
  251 |      ssi[im].offset = np->prop_index(sym);
      |      ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~              
  252 |     }
      |     ~                                                   
  253 |     ssi[im].size += hoc_total_array_data(sym, 0);
      |     ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~       
  254 |    }
      |    ~                                                    
  255 |   }
      |   ~                                                     
  256 |      }
      |      ~                                                  
  257 |      delete np;
      |      ~~~~~~~~~~                                         
  258 |  }
      |  ~                                                      
  259 | }
      | ~                                                       
  260 | 
      |                                                         
  261 | bool SaveState::check(bool warn) {
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                      
  262 |  hoc_Item* qsec;
      |  ~~~~~~~~~~~~~~~                                        
  263 |  int isec;
      |  ~~~~~~~~~                                              
  264 |  if (nsec_ != section_count) {
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                          
  265 |   if (warn) {
      |   ~~~~~~~~~~~                                           
  266 | fprintf(stderr, "SaveState warning: %d sections exist but saved %d\n",
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
  267 |    section_count, nsec_);
      |    ~~~~~~~~~~~~~~~~~~~~~~                               
  268 |   }
      |   ~                                                     
  269 |   return false;
      |   ~~~~~~~~~~~~~                                         
  270 |  }
      |  ~                                                      
  271 |  if (nroot_ != nrn_global_ncell) {
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                      
  272 |   if (warn) {
      |   ~~~~~~~~~~~                                           
  273 | fprintf(stderr, "SaveState warning: %d cells exist but saved %d\n",
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
  274 |    nrn_global_ncell, nroot_);
      |    ~~~~~~~~~~~~~~~~~~~~~~~~~~                           
  275 |   }
      |   ~                                                     
  276 |   return false;
      |   ~~~~~~~~~~~~~                                         
  277 |  }
      |  ~                                                      
  278 |  if (nsec_ && ss_[0].sec == NULL) { // got the data from a read
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
  279 |   isec = 0; ForAllSections(sec)
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                         
  280 |    ss_[isec].sec = sec;
      |    ~~~~~~~~~~~~~~~~~~~~                                 
  281 |    section_ref(ss_[isec].sec);
      |    ~~~~~~~~~~~~~~~~~~~~~~~~~~~                          
  282 |    ++isec;
      |    ~~~~~~~                                              
  283 |   }
      |   ~                                                     
  284 |  }
      |  ~                                                      
  285 |  for (int i=0, j=0; i < n_memb_func; ++i) if (nrn_is_artificial_[i]) {
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
  286 |   if (!checkacell(acell_[j], i, warn)) {
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                
  287 |    return false;
      |    ~~~~~~~~~~~~~                                        
  288 |   }
      |   ~                                                     
  289 |   ++j;
      |   ~~~~                                                  
  290 |  }
      |  ~                                                      
  291 |  for (int isec=0; isec < nsec_; ++isec) {
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~               
  292 |   SecState& ss = ss_[isec];
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~                             
  293 |   Section* sec = ss.sec;
      |   ~~~~~~~~~~~~~~~~~~~~~~                                
  294 |   if (!sec->prop || sec->nnode != ss.nnode) {
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~           
  295 | if (warn) {
      | ~~~~~~~~~~~                                             
  296 | if (!sec->prop) {
      | ~~~~~~~~~~~~~~~~~                                       
  297 | fprintf(stderr, "SaveState warning: saved section no longer exists\n");
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
  298 | }else{
      | ~~~~~~                                                  
  299 | fprintf(stderr, "SaveState warning: %s has %d nodes but saved %d\n",
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
  300 |     secname(sec), sec->nnode, ss.nnode);
      |     ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                
  301 | }
      | ~                                                       
  302 | }
      | ~                                                       
  303 |    return false;
      |    ~~~~~~~~~~~~~                                        
  304 |   }
      |   ~                                                     
  305 |   for (int inode = 0; inode < ss.nnode; ++inode) {
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~      
  306 |    NodeState& ns = ss.ns[inode];
      |    ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                        
  307 |    Node* nd = sec->pnode[inode];
      |    ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                        
  308 |    int i=0;
      |    ~~~~~~~~                                             
  309 |    Prop* p;
      |    ~~~~~~~~                                             
  310 |    for (p = nd->prop; p; p = p->next) {
      |    ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                 
  311 |     if (ssi[p->type].size == 0) {
      |     ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                       
  312 |      continue;
      |      ~~~~~~~~~                                          
  313 |     }
      |     ~                                                   
  314 |     if (i >= ns.nmemb) {
      |     ~~~~~~~~~~~~~~~~~~~~                                
  315 | if (warn) {
      | ~~~~~~~~~~~                                             
  316 | fprintf(stderr,"SaveState warning: \
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                    
  317 | fewer mechanisms saved than exist at node %d of %s\n",
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~  
  318 |  inode, secname(sec));
      |  ~~~~~~~~~~~~~~~~~~~~~                                  
  319 | }
      | ~                                                       
  320 |      return false;
      |      ~~~~~~~~~~~~~                                      
  321 |     }
      |     ~                                                   
  322 |     if (p->type != ns.type[i]) {
      |     ~~~~~~~~~~~~~~~~~~~~~~~~~~~~                        
  323 | if (warn) {
      | ~~~~~~~~~~~                                             
  324 | fprintf(stderr, "SaveState warning: mechanisms out of order at node %d of %s\n\
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
  325 | saved %s but need %s\n",
      | ~~~~~~~~~~~~~~~~~~~~~~~~                                
  326 | inode, secname(sec), memb_func[i].sym->name, memb_func[p->type].sym->name);
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
  327 | }
      | ~                                                       
  328 |      return false;
      |      ~~~~~~~~~~~~~                                      
  329 |     }
      |     ~                                                   
  330 |     ++i;
      |     ~~~~                                                
  331 |    }
      |    ~                                                    
  332 |    if (i != ns.nmemb) {
      |    ~~~~~~~~~~~~~~~~~~~~                                 
  333 | if (warn) {
      | ~~~~~~~~~~~                                             
  334 | fprintf(stderr, "SaveState warning: more mechanisms saved than exist at node %d of %s\n",
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
  335 |  inode, secname(sec));
      |  ~~~~~~~~~~~~~~~~~~~~~                                  
  336 | }
      | ~                                                       
  337 |     return false;
      |     ~~~~~~~~~~~~~                                       
  338 |    }
      |    ~                                                    
  339 |   }
      |   ~                                                     
  340 |   if (!sec->parentsec || ss.root) {
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                     
  341 |    if (sec->parentsec || !ss.root) {
      |    ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                    
  342 | if (warn) {
      | ~~~~~~~~~~~                                             
  343 | fprintf(stderr, "SaveState warning: Saved section and %s are not both root sections.\n",
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
  344 |  secname(sec));
      |  ~~~~~~~~~~~~~~                                         
  345 | }
      | ~                                                       
  346 |    }
      |    ~                                                    
  347 |    if (!checknode(*ss.root, sec->parentnode, warn)) {
      |    ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~   
  348 |     return false;
      |     ~~~~~~~~~~~~~                                       
  349 |    }
      |    ~                                                    
  350 |   }
      |   ~                                                     
  351 | 
      |                                                         
  352 |  }
      |  ~                                                      
  353 |  if (!checknet(warn)) { return false; }
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                 
  354 |  return true;
      |  ~~~~~~~~~~~~                                           
  355 | }
      | ~                                                       
  356 | 
      |                                                         
  357 | bool SaveState::checknode(NodeState& ns, Node* nd, bool warn) {
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
  358 |  int i=0;
      |  ~~~~~~~~                                               
  359 |  Prop* p;
      |  ~~~~~~~~                                               
  360 |  for (p = nd->prop; p; p = p->next) {
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                   
  361 |   if (ssi[p->type].size == 0) {
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                         
  362 |    continue;
      |    ~~~~~~~~~                                            
  363 |   }
      |   ~                                                     
  364 |   if (i >= ns.nmemb) {
      |   ~~~~~~~~~~~~~~~~~~~~                                  
  365 | if (warn) {
      | ~~~~~~~~~~~                                             
  366 | fprintf(stderr,"SaveState warning: \
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                    
  367 | fewer mechanisms saved than exist at a root node\n");
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~   
  368 | }
      | ~                                                       
  369 |    return false;
      |    ~~~~~~~~~~~~~                                        
  370 |   }
      |   ~                                                     
  371 |   if (p->type != ns.type[i]) {
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~~                          
  372 | if (warn) {
      | ~~~~~~~~~~~                                             
  373 | fprintf(stderr, "SaveState warning: mechanisms out of order at a rootnode\n\
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
  374 | saved %s but need %s\n",
      | ~~~~~~~~~~~~~~~~~~~~~~~~                                
  375 | memb_func[i].sym->name, memb_func[p->type].sym->name);
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~  
  376 | }
      | ~                                                       
  377 |    return false;
      |    ~~~~~~~~~~~~~                                        
  378 |   }
      |   ~                                                     
  379 |   ++i;
      |   ~~~~                                                  
  380 |  }
      |  ~                                                      
  381 |  if (i != ns.nmemb) {
      |  ~~~~~~~~~~~~~~~~~~~~                                   
  382 | if (warn) {
      | ~~~~~~~~~~~                                             
  383 | fprintf(stderr, "SaveState warning: more mechanisms saved than exist at a rootnode\n");
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
  384 | }
      | ~                                                       
  385 |   return false;
      |   ~~~~~~~~~~~~~                                         
  386 |  }
      |  ~                                                      
  387 |  return true;
      |  ~~~~~~~~~~~~                                           
  388 | }
      | ~                                                       
  389 | 
      |                                                         
  390 | bool SaveState::checkacell(ACellState& ac, int type, bool warn) {
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
  391 |  if (memb_list[type].nodecount != ac.ncell) {
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~           
  392 | if (warn) {
      | ~~~~~~~~~~~                                             
  393 | fprintf(stderr, "SaveState warning: different number of %s saved than exist.\n",
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
  394 | memb_func[type].sym->name);
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~                             
  395 | }
      | ~                                                       
  396 |   return false;
      |   ~~~~~~~~~~~~~                                         
  397 |  }
      |  ~                                                      
  398 |  return true;
      |  ~~~~~~~~~~~~                                           
  399 | }
      | ~                                                       
  400 | 
      |                                                         
  401 | void SaveState::alloc() {
      | ~~~~~~~~~~~~~~~~~~~~~~~~~                               
  402 |  ssfree();
      |  ~~~~~~~~~                                              
  403 |  int inode, isec;
      |  ~~~~~~~~~~~~~~~~                                       
  404 |  hoc_Item* qsec;
      |  ~~~~~~~~~~~~~~~                                        
  405 |  nsec_ = section_count;
      |  ~~~~~~~~~~~~~~~~~~~~~~                                 
  406 |  ss_ = new SecState[nsec_];
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~                             
  407 |  nroot_ = 0;
      |  ~~~~~~~~~~~                                            
  408 |  isec = 0;
      |  ~~~~~~~~~                                              
  409 |  ForAllSections(sec)
      |  ~~~~~~~~~~~~~~~~~~~                                    
  410 |   SecState& ss = ss_[isec];
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~                             
  411 |   ss.sec = sec;
      |   ~~~~~~~~~~~~~                                         
  412 |   section_ref(ss.sec);
      |   ~~~~~~~~~~~~~~~~~~~~                                  
  413 |   ss.nnode = ss.sec->nnode;
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~                             
  414 |   ss.ns = new NodeState[ss.nnode];
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                      
  415 |   for (inode = 0; inode < ss.nnode; ++inode) {
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~          
  416 |    Node* nd = ss.sec->pnode[inode];
      |    ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                     
  417 |    NodeState& ns = ss.ns[inode];
      |    ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                        
  418 |    allocnode(ns, nd);
      |    ~~~~~~~~~~~~~~~~~~                                   
  419 |   }
      |   ~                                                     
  420 |   if (!sec->parentsec) {
      |   ~~~~~~~~~~~~~~~~~~~~~~                                
  421 |    assert(sec->parentnode);
      |    ~~~~~~~~~~~~~~~~~~~~~~~~                             
  422 |    ss.root = new NodeState;
      |    ~~~~~~~~~~~~~~~~~~~~~~~~                             
  423 |    allocnode(*ss.root, sec->parentnode);
      |    ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                
  424 |    ++nroot_;
      |    ~~~~~~~~~                                            
  425 |   }else{
      |   ~~~~~~                                                
  426 |    ss.root = 0;
      |    ~~~~~~~~~~~~                                         
  427 |   }
      |   ~                                                     
  428 |   ++isec;
      |   ~~~~~~~                                               
  429 |  }
      |  ~                                                      
  430 |  assert(isec == section_count);
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                         
  431 |  assert(nroot_ == nrn_global_ncell);
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                    
  432 |  for (int i=0, j=0; i < n_memb_func; ++i) if (nrn_is_artificial_[i]) {
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
  433 |   allocacell(acell_[j], i);
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~                             
  434 |   ++j;
      |   ~~~~                                                  
  435 |  }
      |  ~                                                      
  436 |  PlayRecList* prl = net_cvode_instance_prl();
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~           
  437 |  nprs_ = prl->count();
      |  ~~~~~~~~~~~~~~~~~~~~~                                  
  438 |  if (nprs_) {
      |  ~~~~~~~~~~~~                                           
  439 |   prs_ = new PlayRecordSave*[nprs_];
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                    
  440 |  }
      |  ~                                                      
  441 |  allocnet();
      |  ~~~~~~~~~~~                                            
  442 | }
      | ~                                                       
  443 | 
      |                                                         
  444 | void SaveState::allocnode(NodeState& ns, Node* nd) {
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~    
  445 |  ns.nmemb = 0;
      |  ~~~~~~~~~~~~~                                          
  446 |  ns.type = NULL;
      |  ~~~~~~~~~~~~~~~                                        
  447 |  ns.state = NULL;
      |  ~~~~~~~~~~~~~~~~                                       
  448 |  ns.nstate = 0;
      |  ~~~~~~~~~~~~~~                                         
  449 |  Prop* p;
      |  ~~~~~~~~                                               
  450 |  for (p = nd->prop; p; p = p->next) {
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                   
  451 |   if (ssi[p->type].size == 0) {
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                         
  452 |    continue;
      |    ~~~~~~~~~                                            
  453 |   }
      |   ~                                                     
  454 |   ++ns.nmemb;
      |   ~~~~~~~~~~~                                           
  455 |   ns.nstate += ssi[p->type].size;
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                       
  456 |  }
      |  ~                                                      
  457 |  if (ns.nmemb) {
      |  ~~~~~~~~~~~~~~~                                        
  458 |   ns.type = new int[ns.nmemb];
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~~                          
  459 |  }
      |  ~                                                      
  460 |  if (ns.nstate) {
      |  ~~~~~~~~~~~~~~~~                                       
  461 |   ns.state = new double[ns.nstate];
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                     
  462 |  }
      |  ~                                                      
  463 |  int i = 0;
      |  ~~~~~~~~~~                                             
  464 |  for (p = nd->prop; p; p = p->next) {
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                   
  465 |   if (ssi[p->type].size == 0) {
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                         
  466 |    continue;
      |    ~~~~~~~~~                                            
  467 |   }
      |   ~                                                     
  468 |   ns.type[i] = p->type;
      |   ~~~~~~~~~~~~~~~~~~~~~                                 
  469 |   ++i;
      |   ~~~~                                                  
  470 |  }
      |  ~                                                      
  471 | }
      | ~                                                       
  472 | 
      |                                                         
  473 | void SaveState::allocacell(ACellState& ac, int type) {
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~  
  474 |  Memb_list& ml = memb_list[type];
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                       
  475 |  ac.type = type;
      |  ~~~~~~~~~~~~~~~                                        
  476 |  ac.ncell = ml.nodecount;
      |  ~~~~~~~~~~~~~~~~~~~~~~~~                               
  477 |  ac.state = new double[ac.ncell * ssi[type].size];
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~      
  478 | }
      | ~                                                       
  479 | 
      |                                                         
  480 | void SaveState::ssfree() {
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~                              
  481 |  int i, isec, inode;
      |  ~~~~~~~~~~~~~~~~~~~                                    
  482 |  for (isec=0; isec < nsec_; ++isec) {
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                   
  483 |   SecState& ss = ss_[isec];
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~                             
  484 |   for (inode = 0; inode < ss.nnode; ++inode) {
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~          
  485 |    NodeState& ns = ss.ns[inode];
      |    ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                        
  486 |    if (ns.nmemb) {
      |    ~~~~~~~~~~~~~~~                                      
  487 |     delete [] ns.type;
      |     ~~~~~~~~~~~~~~~~~~                                  
  488 |    }
      |    ~                                                    
  489 |    if (ns.nstate) {
      |    ~~~~~~~~~~~~~~~~                                     
  490 |     delete [] ns.state;
      |     ~~~~~~~~~~~~~~~~~~~                                 
  491 |    }
      |    ~                                                    
  492 |   }
      |   ~                                                     
  493 |   if (ss.root) {
      |   ~~~~~~~~~~~~~~                                        
  494 |    NodeState& ns = *ss.root;
      |    ~~~~~~~~~~~~~~~~~~~~~~~~~                            
  495 |    if (ns.nmemb) {
      |    ~~~~~~~~~~~~~~~                                      
  496 |     delete [] ns.type;
      |     ~~~~~~~~~~~~~~~~~~                                  
  497 |    }
      |    ~                                                    
  498 |    if (ns.nstate) {
      |    ~~~~~~~~~~~~~~~~                                     
  499 |     delete [] ns.state;
      |     ~~~~~~~~~~~~~~~~~~~                                 
  500 |    }
      |    ~                                                    
  501 |    delete ss.root;
      |    ~~~~~~~~~~~~~~~                                      
  502 |   }
      |   ~                                                     
  503 |   if (ss.nnode) {
      |   ~~~~~~~~~~~~~~~                                       
  504 |    delete [] ss.ns;
      |    ~~~~~~~~~~~~~~~~                                     
  505 |   }
      |   ~                                                     
  506 |   if (ss.sec) { // got info from an fread but never checked it
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
  507 |    section_unref(ss.sec);
      |    ~~~~~~~~~~~~~~~~~~~~~~                               
  508 |   }
      |   ~                                                     
  509 |  }
      |  ~                                                      
  510 |  if (nsec_) {
      |  ~~~~~~~~~~~~                                           
  511 |   delete [] ss_;
      |   ~~~~~~~~~~~~~~                                        
  512 |  }
      |  ~                                                      
  513 |  nsec_ = 0;
      |  ~~~~~~~~~~                                             
  514 |  ss_ = NULL;
      |  ~~~~~~~~~~~                                            
  515 |  for (i=0; i < nacell_; ++i) {
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                          
  516 |   if (acell_[i].ncell) {
      |   ~~~~~~~~~~~~~~~~~~~~~~                                
  517 |    delete [] acell_[i].state;
      |    ~~~~~~~~~~~~~~~~~~~~~~~~~~                           
  518 |    acell_[i].state = 0;
      |    ~~~~~~~~~~~~~~~~~~~~                                 
  519 |    acell_[i].ncell = 0;
      |    ~~~~~~~~~~~~~~~~~~~~                                 
  520 |   }
      |   ~                                                     
  521 |  } // note we do not destroy the acell_.
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                
  522 |  if (nncs_) {
      |  ~~~~~~~~~~~~                                           
  523 |   for (i = 0; i < nncs_; ++i) {
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                         
  524 |    if (ncs_[i].nstate) {
      |    ~~~~~~~~~~~~~~~~~~~~~                                
  525 |     delete [] ncs_[i].state;
      |     ~~~~~~~~~~~~~~~~~~~~~~~~                            
  526 |    }
      |    ~                                                    
  527 |   }
      |   ~                                                     
  528 |   delete [] ncs_;
      |   ~~~~~~~~~~~~~~~                                       
  529 |  }
      |  ~                                                      
  530 |  nncs_ = 0;
      |  ~~~~~~~~~~                                             
  531 |  ncs_ = NULL;
      |  ~~~~~~~~~~~~                                           
  532 |  if (npss_) {
      |  ~~~~~~~~~~~~                                           
  533 |   delete [] pss_;
      |   ~~~~~~~~~~~~~~~                                       
  534 |  }
      |  ~                                                      
  535 |  npss_ = 0;
      |  ~~~~~~~~~~                                             
  536 |  pss_ = NULL;
      |  ~~~~~~~~~~~~                                           
  537 |  free_tq();
      |  ~~~~~~~~~~                                             
  538 |  if (nprs_) {
      |  ~~~~~~~~~~~~                                           
  539 |   for (i=0; i < nprs_; ++i) {
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~                           
  540 |    delete prs_[i];
      |    ~~~~~~~~~~~~~~~                                      
  541 |   }
      |   ~                                                     
  542 |   delete [] prs_;
      |   ~~~~~~~~~~~~~~~                                       
  543 |  }
      |  ~                                                      
  544 |  nprs_ = 0;
      |  ~~~~~~~~~~                                             
  545 | }
      | ~                                                       
  546 | 
      |                                                         
  547 | void SaveState::save() {
      | ~~~~~~~~~~~~~~~~~~~~~~~~                                
  548 |  NrnThread* nt;
      |  ~~~~~~~~~~~~~~                                         
  549 |  if (!check(false)) {
      |  ~~~~~~~~~~~~~~~~~~~~                                   
  550 |   alloc();
      |   ~~~~~~~~                                              
  551 |  }
      |  ~                                                      
  552 |  FOR_THREADS(nt) {
      |  ~~~~~~~~~~~~~~~~~                                      
  553 |   assert(t == nt->_t);
      |   ~~~~~~~~~~~~~~~~~~~~                                  
  554 |  }
      |  ~                                                      
  555 |  t_ = t;
      |  ~~~~~~~                                                
  556 |  int inode;
      |  ~~~~~~~~~~                                             
  557 |  for (int isec=0; isec < nsec_; ++isec) {
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~               
  558 |   SecState& ss = ss_[isec];
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~                             
  559 |   Section* sec = ss.sec;
      |   ~~~~~~~~~~~~~~~~~~~~~~                                
  560 |   for (inode = 0; inode < ss.nnode; ++inode) {
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~          
  561 |    NodeState& ns = ss.ns[inode];
      |    ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                        
  562 |    Node* nd = sec->pnode[inode];
      |    ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                        
  563 |    savenode(ns, nd);
      |    ~~~~~~~~~~~~~~~~~                                    
  564 |   }
      |   ~                                                     
  565 |   if (ss.root) {
      |   ~~~~~~~~~~~~~~                                        
  566 |    NodeState& ns = *ss.root;
      |    ~~~~~~~~~~~~~~~~~~~~~~~~~                            
  567 |    Node* nd = sec->parentnode;
      |    ~~~~~~~~~~~~~~~~~~~~~~~~~~~                          
  568 |    savenode(ns, nd);
      |    ~~~~~~~~~~~~~~~~~                                    
  569 |   }
      |   ~                                                     
  570 |  }
      |  ~                                                      
  571 |  for (int i=0, j=0; i < n_memb_func; ++i) if (nrn_is_artificial_[i]) {
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
  572 |   saveacell(acell_[j], i);
      |   ~~~~~~~~~~~~~~~~~~~~~~~~                              
  573 |   ++j;
      |   ~~~~                                                  
  574 |  }
      |  ~                                                      
  575 |  if (nprs_) {
      |  ~~~~~~~~~~~~                                           
  576 |   PlayRecList* prl = net_cvode_instance_prl();
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~          
  577 |   int i;
      |   ~~~~~~                                                
  578 |   assert(nprs_ == prl->count());
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                        
  579 |   for (i=0; i < nprs_; ++i) {
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~                           
  580 |    prs_[i] = prl->item(i)->savestate_save();
      |    ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~            
  581 |   }
      |   ~                                                     
  582 |  }
      |  ~                                                      
  583 |  savenet();
      |  ~~~~~~~~~~                                             
  584 | }
      | ~                                                       
  585 | 
      |                                                         
  586 | void SaveState::savenode(NodeState& ns, Node* nd) {
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~     
  587 |  ns.v = NODEV(nd);
      |  ~~~~~~~~~~~~~~~~~                                      
  588 |  int istate = 0;
      |  ~~~~~~~~~~~~~~~                                        
  589 |  Prop* p;
      |  ~~~~~~~~                                               
  590 |  for (p = nd->prop; p; p = p->next) {
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                   
  591 |   if (ssi[p->type].size == 0) {
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                         
  592 |    continue;
      |    ~~~~~~~~~                                            
  593 |   }
      |   ~                                                     
  594 |   int type = p->type;
      |   ~~~~~~~~~~~~~~~~~~~                                   
  595 |   int max = ssi[type].offset + ssi[type].size;
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~          
  596 | #if EXTRACELLULAR
      | ~~~~~~~~~~~~~~~~~                                       
  597 |   if (type == EXTRACELL) {
      |   ~~~~~~~~~~~~~~~~~~~~~~~~                              
  598 |    for (int i=0; i < nlayer; ++i) {
      |    ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                     
  599 |     ns.state[istate++] = nd->extnode->v[i];
      |     ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~             
  600 |    }
      |    ~                                                    
  601 |   }else
      |   ~~~~~                                                 
  602 | #endif
      | ~~~~~~                                                  
  603 |   {
      |   ~                                                     
  604 |    for (int ip=ssi[type].offset; ip < max; ++ip) {
      |    ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~      
  605 |     ns.state[istate++] = p->param[ip];
      |     ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                  
  606 |    }
      |    ~                                                    
  607 |   }
      |   ~                                                     
  608 |  }
      |  ~                                                      
  609 | }
      | ~                                                       
  610 | 
      |                                                         
  611 | void SaveState::saveacell(ACellState& ac, int type) {
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~   
  612 |  Memb_list& ml = memb_list[type];
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                       
  613 |  int sz = ssi[type].size;
      |  ~~~~~~~~~~~~~~~~~~~~~~~~                               
  614 |  double* p = ac.state;
      |  ~~~~~~~~~~~~~~~~~~~~~                                  
  615 |  for (int i = 0; i < ml.nodecount; ++i) {
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~               
  616 |   double* d = ml.data[i];
      |   ~~~~~~~~~~~~~~~~~~~~~~~                               
  617 |   for (int j=0; j < sz; ++j) {
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~~                          
  618 |    (*p++) = d[j];
      |    ~~~~~~~~~~~~~~                                       
  619 |   }
      |   ~                                                     
  620 |  }
      |  ~                                                      
  621 | }
      | ~                                                       
  622 | 
      |                                                         
  623 | void SaveState::restore(int type) {
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                     
  624 |  NrnThread* nt;
      |  ~~~~~~~~~~~~~~                                         
  625 |  if (!check(true)) {
      |  ~~~~~~~~~~~~~~~~~~~                                    
  626 |   hoc_execerror("SaveState:",
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~                           
  627 |   "Stored state inconsistent with current neuron structure");
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
  628 |  }
      |  ~                                                      
  629 |  t = t_;
      |  ~~~~~~~                                                
  630 |  FOR_THREADS(nt) {
      |  ~~~~~~~~~~~~~~~~~                                      
  631 |   nt->_t = t_;
      |   ~~~~~~~~~~~~                                          
  632 |  }
      |  ~                                                      
  633 |  int inode;
      |  ~~~~~~~~~~                                             
  634 |  for (int isec=0; isec < nsec_; ++isec) {
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~               
  635 |   SecState& ss = ss_[isec];
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~                             
  636 |   Section* sec = ss.sec;
      |   ~~~~~~~~~~~~~~~~~~~~~~                                
  637 |   for (inode = 0; inode < ss.nnode; ++inode) {
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~          
  638 |    NodeState& ns = ss.ns[inode];
      |    ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                        
  639 |    Node* nd = sec->pnode[inode];
      |    ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                        
  640 |    restorenode(ns, nd);
      |    ~~~~~~~~~~~~~~~~~~~~                                 
  641 |   }
      |   ~                                                     
  642 |   if (ss.root) {
      |   ~~~~~~~~~~~~~~                                        
  643 |    NodeState& ns = *ss.root;
      |    ~~~~~~~~~~~~~~~~~~~~~~~~~                            
  644 |    Node* nd = sec->parentnode;
      |    ~~~~~~~~~~~~~~~~~~~~~~~~~~~                          
  645 |    restorenode(ns, nd);
      |    ~~~~~~~~~~~~~~~~~~~~                                 
  646 |   }
      |   ~                                                     
  647 |  }
      |  ~                                                      
  648 |  for (int i=0, j=0; i < n_memb_func; ++i) if (nrn_is_artificial_[i]) {
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
  649 |   restoreacell(acell_[j], i);
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~                           
  650 |   ++j;
      |   ~~~~                                                  
  651 |  }
      |  ~                                                      
  652 |  if (type == 1) { return; }
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~                             
  653 |  PlayRecList* prl = net_cvode_instance_prl();
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~           
  654 |  // during a local step the PlayRecList is augmented with GLineRecord
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
  655 |  // assert(nprs_ == prl->count());
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                      
  656 |  assert(nprs_ <= prl->count());
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                         
  657 |  int i;
      |  ~~~~~~                                                 
  658 |  for (i = 0; i < nprs_; ++i) {
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                          
  659 |   prs_[i]->savestate_restore();
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                         
  660 |  }
      |  ~                                                      
  661 |  restorenet();
      |  ~~~~~~~~~~~~~                                          
  662 | }
      | ~                                                       
  663 | 
      |                                                         
  664 | void SaveState::restorenode(NodeState& ns, Node* nd) {
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~  
  665 |  NODEV(nd) = ns.v;;
      |  ~~~~~~~~~~~~~~~~~~                                     
  666 |  int istate = 0;
      |  ~~~~~~~~~~~~~~~                                        
  667 |  Prop* p;
      |  ~~~~~~~~                                               
  668 |  for (p = nd->prop; p; p = p->next) {
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                   
  669 |   if (ssi[p->type].size == 0) {
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                         
  670 |    continue;
      |    ~~~~~~~~~                                            
  671 |   }
      |   ~                                                     
  672 |   int type = p->type;
      |   ~~~~~~~~~~~~~~~~~~~                                   
  673 |   int max = ssi[type].offset + ssi[type].size;
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~          
  674 | #if EXTRACELLULAR
      | ~~~~~~~~~~~~~~~~~                                       
  675 |   if (type == EXTRACELL) {
      |   ~~~~~~~~~~~~~~~~~~~~~~~~                              
  676 |    for (int i=0; i < nlayer; ++i) {
      |    ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                     
  677 |     nd->extnode->v[i] = ns.state[istate++];
      |     ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~             
  678 |    }
      |    ~                                                    
  679 |   }else
      |   ~~~~~                                                 
  680 | #endif
      | ~~~~~~                                                  
  681 |   {
      |   ~                                                     
  682 |    for (int ip=ssi[type].offset; ip < max; ++ip) {
      |    ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~      
  683 |     p->param[ip] = ns.state[istate++];
      |     ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                  
  684 |    }
      |    ~                                                    
  685 |   }
      |   ~                                                     
  686 |  }
      |  ~                                                      
  687 | }
      | ~                                                       
  688 | 
      |                                                         
  689 | void SaveState::restoreacell(ACellState& ac, int type) {
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
  690 |  Memb_list& ml = memb_list[type];
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                       
  691 |  int sz = ssi[type].size;
      |  ~~~~~~~~~~~~~~~~~~~~~~~~                               
  692 |  double* p = ac.state;
      |  ~~~~~~~~~~~~~~~~~~~~~                                  
  693 |  for (int i = 0; i < ml.nodecount; ++i) {
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~               
  694 |   double* d = ml.data[i];
      |   ~~~~~~~~~~~~~~~~~~~~~~~                               
  695 |   for (int j=0; j < sz; ++j) {
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~~                          
  696 |    d[j] = (*p++);
      |    ~~~~~~~~~~~~~~                                       
  697 |   }
      |   ~                                                     
  698 |  }
      |  ~                                                      
  699 | }
      | ~                                                       
  700 | 
      |                                                         
  701 | void SaveState::read(OcFile* ocf, bool close) {
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~         
  702 |  if (!ocf->open(ocf->get_name(), "r")) {
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                
  703 |   hoc_execerror("Couldn't open file for reading:", ocf->get_name());
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
  704 |  }
      |  ~                                                      
  705 |  nrn_shape_update();
      |  ~~~~~~~~~~~~~~~~~~~                                    
  706 |  BinaryMode(ocf)
      |  ~~~~~~~~~~~~~~~                                        
  707 |  FILE* f = ocf->file();
      |  ~~~~~~~~~~~~~~~~~~~~~~                                 
  708 |  ssfree();
      |  ~~~~~~~~~                                              
  709 |  char buf[200];
      |  ~~~~~~~~~~~~~~                                         
  710 |  ASSERTfgets(buf, 200, f);
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~                              
  711 |  if (strcmp(buf, "SaveState binary file version 6.0\n") != 0) {
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
  712 |   ocf->close();
      |   ~~~~~~~~~~~~~                                         
  713 |   hoc_execerror("Bad SaveState binary file", " Not version 6.0");
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
  714 |  }
      |  ~                                                      
  715 |  ASSERTfread((char*)&t_, sizeof(double), 1, f);
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~         
  716 | // fscanf(f, "%d %d\n", &nsec_, &nrootnode_);
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~           
  717 | // on some os's fscanf leaves file pointer at wrong place for next fread
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
  718 | // can check it with ftell(f)
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                           
  719 |  ASSERTfgets(buf, 200, f);
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~                              
  720 |  sscanf(buf, "%d %d\n", &nsec_, &nroot_);
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~               
  721 |  // to enable comparison of SaveState files, we avoid
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~   
  722 |  // putting pointers in the files and instead explicitly read/write
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
  723 |  // structure elements.
      |  ~~~~~~~~~~~~~~~~~~~~~~                                 
  724 |  ss_ = new SecState[nsec_];
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~                             
  725 |  fread_SecState(ss_, nsec_, f);
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                         
  726 |  for (int isec=0; isec < nsec_; ++isec) {
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~               
  727 |   SecState& ss = ss_[isec];
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~                             
  728 |   ss.sec = NULL;
      |   ~~~~~~~~~~~~~~                                        
  729 |   ss.ns = new NodeState[ss.nnode];
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                      
  730 |   fread_NodeState(ss.ns, ss.nnode, f);
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                  
  731 |   for (int inode = 0; inode < ss.nnode; ++inode) {
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~      
  732 |    NodeState& ns = ss.ns[inode];
      |    ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                        
  733 |    if (ns.nmemb) {
      |    ~~~~~~~~~~~~~~~                                      
  734 |     ns.type = new int[ns.nmemb];
      |     ~~~~~~~~~~~~~~~~~~~~~~~~~~~~                        
  735 |     ASSERTfread((char*)ns.type, sizeof(int), ns.nmemb, f);
      |     ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
  736 |    }
      |    ~                                                    
  737 |    if (ns.nstate) {
      |    ~~~~~~~~~~~~~~~~                                     
  738 |     ns.state = new double[ns.nstate];
      |     ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                   
  739 |     ASSERTfread((char*)ns.state, sizeof(double), ns.nstate, f);
      |     ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
  740 |    }
      |    ~                                                    
  741 |   }
      |   ~                                                     
  742 |   if (ss.root) {
      |   ~~~~~~~~~~~~~~                                        
  743 |    fread_NodeState(ss.root, 1, f);
      |    ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                      
  744 |    NodeState& ns = *ss.root;
      |    ~~~~~~~~~~~~~~~~~~~~~~~~~                            
  745 |    if (ns.nmemb) {
      |    ~~~~~~~~~~~~~~~                                      
  746 |     ns.type = new int[ns.nmemb];
      |     ~~~~~~~~~~~~~~~~~~~~~~~~~~~~                        
  747 |     ASSERTfread((char*)ns.type, sizeof(int), ns.nmemb, f);
      |     ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
  748 |    }
      |    ~                                                    
  749 |    if (ns.nstate) {
      |    ~~~~~~~~~~~~~~~~                                     
  750 |     ns.state = new double[ns.nstate];
      |     ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                   
  751 |     ASSERTfread((char*)ns.state, sizeof(double), ns.nstate, f);
      |     ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
  752 |    }
      |    ~                                                    
  753 |   }
      |   ~                                                     
  754 |  }
      |  ~                                                      
  755 |  int n = 0;
      |  ~~~~~~~~~~                                             
  756 |  ASSERTfgets(buf, 20, f);
      |  ~~~~~~~~~~~~~~~~~~~~~~~~                               
  757 |  sscanf(buf, "%d\n", &n);
      |  ~~~~~~~~~~~~~~~~~~~~~~~~                               
  758 |  assert(n == nacell_);
      |  ~~~~~~~~~~~~~~~~~~~~~                                  
  759 |  for (int i=0, j=0; i < n_memb_func; ++i) if (nrn_is_artificial_[i]) {
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
  760 |   int nt = 0, nc = 0, ns = 0;
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~                           
  761 |   ASSERTfgets(buf, 200, f);
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~                             
  762 |   nrn_assert(sscanf(buf, "%d %d %d\n", &nt, &nc, &ns) == 3);
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
  763 |   assert(nt == i && nc == memb_list[i].nodecount);
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~      
  764 |   assert(ns == nc * ssi[i].size);
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                       
  765 |   acell_[j].ncell = nc;
      |   ~~~~~~~~~~~~~~~~~~~~~                                 
  766 |   acell_[j].state = new double[ns];
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                     
  767 |   ASSERTfread((char*)acell_[j].state, sizeof(double), ns, f);
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
  768 |   ++j;
      |   ~~~~                                                  
  769 |  }
      |  ~                                                      
  770 |  ASSERTfgets(buf, 20, f);
      |  ~~~~~~~~~~~~~~~~~~~~~~~~                               
  771 |  sscanf(buf, "%d\n", &nprs_);
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~                           
  772 |  if (nprs_) {
      |  ~~~~~~~~~~~~                                           
  773 |   prs_ = new PlayRecordSave*[nprs_];
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                    
  774 |   for (int i=0; i < nprs_; ++i) {
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                       
  775 |    prs_[i] = PlayRecord::savestate_read(f);
      |    ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~             
  776 |   }
      |   ~                                                     
  777 |  }
      |  ~                                                      
  778 |  readnet(f);
      |  ~~~~~~~~~~~                                            
  779 |  if (close) {
      |  ~~~~~~~~~~~~                                           
  780 |   ocf->close();
      |   ~~~~~~~~~~~~~                                         
  781 |  }
      |  ~                                                      
  782 | }
      | ~                                                       
  783 | 
      |                                                         
  784 | void SaveState::write(OcFile* ocf, bool close) {
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~        
  785 |  if (!ocf->open(ocf->get_name(), "w")) {
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                
  786 |   hoc_execerror("Couldn't open file for writing:", ocf->get_name());
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
  787 |  }
      |  ~                                                      
  788 |  BinaryMode(ocf)
      |  ~~~~~~~~~~~~~~~                                        
  789 |  FILE* f = ocf->file();
      |  ~~~~~~~~~~~~~~~~~~~~~~                                 
  790 |  fprintf(f, "SaveState binary file version 6.0\n");
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~     
  791 |  ASSERTfwrite((char*)&t_, sizeof(double), 1, f);
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~        
  792 |  fprintf(f, "%d %d\n", nsec_, nroot_);
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                  
  793 |  fwrite_SecState(ss_, nsec_, f);
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                        
  794 |  for (int isec=0; isec < nsec_; ++isec) {
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~               
  795 |   SecState& ss = ss_[isec];
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~                             
  796 |   fwrite_NodeState(ss.ns, ss.nnode, f);
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                 
  797 |   for (int inode = 0; inode < ss.nnode; ++inode) {
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~      
  798 |    NodeState& ns = ss.ns[inode];
      |    ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                        
  799 |    if (ns.nmemb){
      |    ~~~~~~~~~~~~~~                                       
  800 |     ASSERTfwrite((char*)ns.type, sizeof(int), ns.nmemb, f);
      |     ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
  801 |    }
      |    ~                                                    
  802 |    if (ns.nstate) {
      |    ~~~~~~~~~~~~~~~~                                     
  803 |     ASSERTfwrite((char*)ns.state, sizeof(double), ns.nstate, f);
      |     ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
  804 |    }
      |    ~                                                    
  805 |   }
      |   ~                                                     
  806 |   if (ss.root) {
      |   ~~~~~~~~~~~~~~                                        
  807 |    fwrite_NodeState(ss.root, 1, f);
      |    ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                     
  808 |    NodeState& ns = *ss.root;
      |    ~~~~~~~~~~~~~~~~~~~~~~~~~                            
  809 |    if (ns.nmemb){
      |    ~~~~~~~~~~~~~~                                       
  810 |     ASSERTfwrite((char*)ns.type, sizeof(int), ns.nmemb, f);
      |     ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
  811 |    }
      |    ~                                                    
  812 |    if (ns.nstate) {
      |    ~~~~~~~~~~~~~~~~                                     
  813 |     ASSERTfwrite((char*)ns.state, sizeof(double), ns.nstate, f);
      |     ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
  814 |    }
      |    ~                                                    
  815 |   }
      |   ~                                                     
  816 |  }
      |  ~                                                      
  817 |  fprintf(f, "%d\n", nacell_);
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~                           
  818 |  for (int i=0, j=0; i < n_memb_func; ++i) if (nrn_is_artificial_[i]) {
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
  819 |   int sz = acell_[j].ncell * ssi[i].size;
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~               
  820 |   fprintf(f, "%d %d %d\n", acell_[j].type, acell_[j].ncell, sz);
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
  821 |   ASSERTfwrite((char*)acell_[j].state, sizeof(double), sz, f);
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
  822 |   ++j;
      |   ~~~~                                                  
  823 |  }
      |  ~                                                      
  824 |  fprintf(f, "%d\n", nprs_);
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~                             
  825 |  for (int i=0; i < nprs_; ++i) {
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                        
  826 |   fprintf(f, "%d %d\n", prs_[i]->pr_->type(), i);
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~       
  827 |   prs_[i]->savestate_write(f);
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~~                          
  828 |  }
      |  ~                                                      
  829 |  writenet(f);
      |  ~~~~~~~~~~~~                                           
  830 |  if (close) {
      |  ~~~~~~~~~~~~                                           
  831 |   ocf->close();
      |   ~~~~~~~~~~~~~                                         
  832 |  }
      |  ~                                                      
  833 | }
      | ~                                                       
  834 | 
      |                                                         
  835 | void SaveState::savenet() {
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~                             
  836 |  int i, j, n;
      |  ~~~~~~~~~~~~                                           
  837 |  double* w;
      |  ~~~~~~~~~~                                             
  838 |  hoc_Item* q;
      |  ~~~~~~~~~~~~                                           
  839 |  Object* ob;
      |  ~~~~~~~~~~~                                            
  840 |  NetCon* d;
      |  ~~~~~~~~~~                                             
  841 |  PreSyn* ps;
      |  ~~~~~~~~~~~                                            
  842 |  i = 0;
      |  ~~~~~~                                                 
  843 |  ITERATE(q, nct->olist) {
      |  ~~~~~~~~~~~~~~~~~~~~~~~~                               
  844 |   ob = OBJ(q);
      |   ~~~~~~~~~~~~                                          
  845 |   d = (NetCon*)ob->u.this_pointer;
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                      
  846 |   n = ncs_[i].nstate;
      |   ~~~~~~~~~~~~~~~~~~~                                   
  847 |   w = ncs_[i].state;
      |   ~~~~~~~~~~~~~~~~~~                                    
  848 |   for (j=0; j < n; ++j) {
      |   ~~~~~~~~~~~~~~~~~~~~~~~                               
  849 |    w[j] = d->weight_[j];
      |    ~~~~~~~~~~~~~~~~~~~~~                                
  850 |   }
      |   ~                                                     
  851 |   ++i;
      |   ~~~~                                                  
  852 |  }
      |  ~                                                      
  853 |  i = 0;
      |  ~~~~~~                                                 
  854 |  if (net_cvode_instance_psl()) ITERATE(q, net_cvode_instance_psl()) {
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
  855 |   ps = (PreSyn*)VOIDITM(q);
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~                             
  856 |   ps->hi_index_ = i;
      |   ~~~~~~~~~~~~~~~~~~                                    
  857 |   pss_[i].flag = ps->flag_;
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~                             
  858 |   pss_[i].valthresh = ps->valthresh_;
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                   
  859 |   pss_[i].valold = ps->valold_;
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                         
  860 |   pss_[i].told = ps->told_;
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~                             
  861 |   ++i;
      |   ~~~~                                                  
  862 |  }
      |  ~                                                      
  863 |  alloc_tq();
      |  ~~~~~~~~~~~                                            
  864 |  tqcnt_ = 0;
      |  ~~~~~~~~~~~                                            
  865 |  NrnThread* nt;
      |  ~~~~~~~~~~~~~~                                         
  866 |  FOR_THREADS(nt) {
      |  ~~~~~~~~~~~~~~~~~                                      
  867 |   TQueue* tq = net_cvode_instance_event_queue(nt);
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~      
  868 |   this_savestate = this; callback_mode = 1;
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~             
  869 |   tq->forall_callback(tqcallback);
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                      
  870 |  }
      |  ~                                                      
  871 | }
      | ~                                                       
  872 | 
      |                                                         
  873 | void SaveState::tqcount(const TQItem*, int) {
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~           
  874 |  ++tqcnt_;
      |  ~~~~~~~~~                                              
  875 | }
      | ~                                                       
  876 | 
      |                                                         
  877 | void SaveState::tqsave(const TQItem* q, int) {
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~          
  878 |  DiscreteEvent* de = (DiscreteEvent*)q->data_;
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~          
  879 |  tqs_->tdeliver[tqcnt_] = q->t_;
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                        
  880 |  tqs_->items[tqcnt_] = de->savestate_save();
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~            
  881 |  ++tqcnt_;
      |  ~~~~~~~~~                                              
  882 | }
      | ~                                                       
  883 | 
      |                                                         
  884 | void SaveState::restorenet() {
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                          
  885 |  int i, j, n;
      |  ~~~~~~~~~~~~                                           
  886 |  double* w;
      |  ~~~~~~~~~~                                             
  887 |  hoc_Item* q;
      |  ~~~~~~~~~~~~                                           
  888 |  Object* ob;
      |  ~~~~~~~~~~~                                            
  889 |  NetCon* d;
      |  ~~~~~~~~~~                                             
  890 |  PreSyn* ps;
      |  ~~~~~~~~~~~                                            
  891 |  // NetCon's
      |  ~~~~~~~~~~~                                            
  892 |  i = 0;
      |  ~~~~~~                                                 
  893 |  ITERATE(q, nct->olist) {
      |  ~~~~~~~~~~~~~~~~~~~~~~~~                               
  894 |   ob = OBJ(q);
      |   ~~~~~~~~~~~~                                          
  895 |   d = (NetCon*)ob->u.this_pointer;
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                      
  896 |   n = ncs_[i].nstate;
      |   ~~~~~~~~~~~~~~~~~~~                                   
  897 |   w = ncs_[i].state;
      |   ~~~~~~~~~~~~~~~~~~                                    
  898 |   for (j=0; j < n; ++j) {
      |   ~~~~~~~~~~~~~~~~~~~~~~~                               
  899 |    d->weight_[j] = w[j];
      |    ~~~~~~~~~~~~~~~~~~~~~                                
  900 |   }
      |   ~                                                     
  901 |   ++i;
      |   ~~~~                                                  
  902 |  }
      |  ~                                                      
  903 |  // PreSyn's
      |  ~~~~~~~~~~~                                            
  904 |  i = 0;
      |  ~~~~~~                                                 
  905 |  if (net_cvode_instance_psl()) ITERATE(q, net_cvode_instance_psl()) {
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
  906 |   ps = (PreSyn*)VOIDITM(q);
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~                             
  907 |   ps->hi_index_ = i;
      |   ~~~~~~~~~~~~~~~~~~                                    
  908 |   ps->flag_ = pss_[i].flag;
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~                             
  909 |   ps->valthresh_ = pss_[i].valthresh;
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                   
  910 |   ps->valold_ = pss_[i].valold;
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                         
  911 |   ps->told_ = pss_[i].told;
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~                             
  912 |   ++i;
      |   ~~~~                                                  
  913 |  }
      |  ~                                                      
  914 | 
      |                                                         
  915 |  // event queue
      |  ~~~~~~~~~~~~~~                                         
  916 |  // clear it
      |  ~~~~~~~~~~~                                            
  917 |  clear_event_queue();
      |  ~~~~~~~~~~~~~~~~~~~~                                   
  918 |  // restore it
      |  ~~~~~~~~~~~~~                                          
  919 |  n = tqs_->nstate;
      |  ~~~~~~~~~~~~~~~~~                                      
  920 |  for (i=0; i < n; ++i) {
      |  ~~~~~~~~~~~~~~~~~~~~~~~                                
  921 |   tqs_->items[i]->savestate_restore(tqs_->tdeliver[i], net_cvode_instance);
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
  922 |  }
      |  ~                                                      
  923 | }
      | ~                                                       
  924 | 
      |                                                         
  925 | void SaveState::readnet(FILE* f) {
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                      
  926 |  free_tq();
      |  ~~~~~~~~~~                                             
  927 |  char buf[200];
      |  ~~~~~~~~~~~~~~                                         
  928 |  ASSERTfgets(buf, 200, f);
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~                              
  929 |  sscanf(buf, "%d\n", &nncs_);
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~                           
  930 |  if (nncs_ != 0) {
      |  ~~~~~~~~~~~~~~~~~                                      
  931 |   ncs_ = new NetConState[nncs_];
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                        
  932 |  }
      |  ~                                                      
  933 |  int i, n, type;
      |  ~~~~~~~~~~~~~~~                                        
  934 |  for (i=0; i < nncs_; ++i) {
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~                            
  935 |   ASSERTfgets(buf, 200, f);
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~                             
  936 |   sscanf(buf, "%d %d\n", &ncs_[i].object_index, &ncs_[i].nstate);
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
  937 |   if (ncs_[i].nstate) {
      |   ~~~~~~~~~~~~~~~~~~~~~                                 
  938 |    ncs_[i].state = new double[ncs_[i].nstate];
      |    ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~          
  939 |    ASSERTfread((char*)ncs_[i].state, sizeof(double), ncs_[i].nstate, f);
      |    ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
/builddir/build/BUILD/nrn-7.8.1/src/oc/nrnassrt.h:23:33: note: in definition of macro 'nrn_assert'
   23 | #  define nrn_assert(ex) {if (!(ex)){fprintf(stderr,"Assertion failed: file %s, line %d\n", __FILE__,__LINE__);hoc_execerror(#ex, (char *)0);}}
      |                                 ^~
/builddir/build/BUILD/nrn-7.8.1/src/nrniv/savstate.cpp:939:4: note: in expansion of macro 'ASSERTfread'
  939 |    ASSERTfread((char*)ncs_[i].state, sizeof(double), ncs_[i].nstate, f);
      |    ^~~~~~~~~~~
/builddir/build/BUILD/nrn-7.8.1/src/nrniv/savstate.cpp:33:56: warning: comparison of integer expressions of different signedness: 'size_t' {aka 'long unsigned int'} and 'int' [-Wsign-compare]
   33 | #define ASSERTfread(a,b,c,d) nrn_assert(fread(a,b,c,d) == c)
      |                                         ~~~~~~~~~~~~~~~^~~~~
   34 | #define ASSERTfwrite(a,b,c,d) nrn_assert(fwrite(a,b,c,d) == c)
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
   35 | 
      |                                                         
   36 | class SaveState : public Resource {
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                     
   37 | public:
      | ~~~~~~~                                                 
   38 |  SaveState();
      |  ~~~~~~~~~~~~                                           
   39 |  ~SaveState();
      |  ~~~~~~~~~~~~~                                          
   40 |  virtual void save();
      |  ~~~~~~~~~~~~~~~~~~~~                                   
   41 |  virtual void restore(int type);
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                        
   42 |  virtual void read(OcFile*, bool close);
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                
   43 |  virtual void write(OcFile*, bool close);
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~               
   44 |  struct NodeState {
      |  ~~~~~~~~~~~~~~~~~~                                     
   45 |   double v;
      |   ~~~~~~~~~                                             
   46 |   int nmemb;
      |   ~~~~~~~~~~                                            
   47 |   int* type;
      |   ~~~~~~~~~~                                            
   48 |   int nstate;
      |   ~~~~~~~~~~~                                           
   49 |   double* state;
      |   ~~~~~~~~~~~~~~                                        
   50 |  };
      |  ~~                                                     
   51 |  struct SecState {
      |  ~~~~~~~~~~~~~~~~~                                      
   52 |   Section* sec;
      |   ~~~~~~~~~~~~~                                         
   53 |   int nnode;
      |   ~~~~~~~~~~                                            
   54 |   struct NodeState* ns;
      |   ~~~~~~~~~~~~~~~~~~~~~                                 
   55 |   struct NodeState* root; // non-zero for rootnode
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~      
   56 |  };
      |  ~~                                                     
   57 |  struct StateStructInfo {
      |  ~~~~~~~~~~~~~~~~~~~~~~~~                               
   58 |   int offset;
      |   ~~~~~~~~~~~                                           
   59 |   int size;
      |   ~~~~~~~~~                                             
   60 |  };
      |  ~~                                                     
   61 |  struct ACellState {
      |  ~~~~~~~~~~~~~~~~~~~                                    
   62 |   int type;
      |   ~~~~~~~~~                                             
   63 |   int ncell;
      |   ~~~~~~~~~~                                            
   64 |   double* state;
      |   ~~~~~~~~~~~~~~                                        
   65 |  };
      |  ~~                                                     
   66 |  struct NetConState {
      |  ~~~~~~~~~~~~~~~~~~~~                                   
   67 |   int object_index; // for checking
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                     
   68 |   int nstate;
      |   ~~~~~~~~~~~                                           
   69 |   double* state;
      |   ~~~~~~~~~~~~~~                                        
   70 |  };
      |  ~~                                                     
   71 |  struct PreSynState {
      |  ~~~~~~~~~~~~~~~~~~~~                                   
   72 |   bool flag; // is it firing?
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~                           
   73 |   double valthresh, valold, told;
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                       
   74 | 
      |                                                         
   75 |  };
      |  ~~                                                     
   76 |  struct TQState {
      |  ~~~~~~~~~~~~~~~~                                       
   77 |   int nstate;
      |   ~~~~~~~~~~~                                           
   78 |   double* tdeliver;
      |   ~~~~~~~~~~~~~~~~~                                     
   79 |   DiscreteEvent** items;
      |   ~~~~~~~~~~~~~~~~~~~~~~                                
   80 |  };
      |  ~~                                                     
   81 | private:
      | ~~~~~~~~                                                
   82 |  bool check(bool warn);
      |  ~~~~~~~~~~~~~~~~~~~~~~                                 
   83 |  void alloc();
      |  ~~~~~~~~~~~~~                                          
   84 |  void ssfree();
      |  ~~~~~~~~~~~~~~                                         
   85 |  void ssi_def();
      |  ~~~~~~~~~~~~~~~                                        
   86 | private:
      | ~~~~~~~~                                                
   87 |  void fread_NodeState(NodeState*, int, FILE*);
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~          
   88 |  void fwrite_NodeState(NodeState*, int, FILE*);
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~         
   89 |  void fread_SecState(SecState*, int, FILE*);
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~            
   90 |  void fwrite_SecState(SecState*, int, FILE*);
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~           
   91 | private:
      | ~~~~~~~~                                                
   92 |  double t_;
      |  ~~~~~~~~~~                                             
   93 |  int nroot_;
      |  ~~~~~~~~~~~                                            
   94 |  int nsec_;
      |  ~~~~~~~~~~                                             
   95 |  SecState* ss_;
      |  ~~~~~~~~~~~~~~                                         
   96 |  int nacell_; // number of types
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                        
   97 |  ACellState* acell_;
      |  ~~~~~~~~~~~~~~~~~~~                                    
   98 |  int nncs_;
      |  ~~~~~~~~~~                                             
   99 |  NetConState* ncs_;
      |  ~~~~~~~~~~~~~~~~~~                                     
  100 |  int npss_;
      |  ~~~~~~~~~~                                             
  101 |  PreSynState* pss_;
      |  ~~~~~~~~~~~~~~~~~~                                     
  102 |  TQState* tqs_;
      |  ~~~~~~~~~~~~~~                                         
  103 |  int tqcnt_; // volatile for index of forall_callback
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~   
  104 |  int nprs_;
      |  ~~~~~~~~~~                                             
  105 |  PlayRecordSave** prs_;
      |  ~~~~~~~~~~~~~~~~~~~~~~                                 
  106 |  static StateStructInfo* ssi;
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~                           
  107 |  static cTemplate* nct;
      |  ~~~~~~~~~~~~~~~~~~~~~~                                 
  108 | private:
      | ~~~~~~~~                                                
  109 |  void savenode(NodeState&, Node*);
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                      
  110 |  void restorenode(NodeState&, Node*);
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                   
  111 |  bool checknode(NodeState&, Node*, bool);
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~               
  112 |  void allocnode(NodeState&, Node*);
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                     
  113 | 
      |                                                         
  114 |  void saveacell(ACellState&, int type);
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                 
  115 |  void restoreacell(ACellState&, int type);
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~              
  116 |  bool checkacell(ACellState&, int type, bool);
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~          
  117 |  void allocacell(ACellState&, int type);
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                
  118 | 
      |                                                         
  119 |  void savenet();
      |  ~~~~~~~~~~~~~~~                                        
  120 |  void restorenet();
      |  ~~~~~~~~~~~~~~~~~~                                     
  121 |  void readnet(FILE*);
      |  ~~~~~~~~~~~~~~~~~~~~                                   
  122 |  void writenet(FILE*);
      |  ~~~~~~~~~~~~~~~~~~~~~                                  
  123 |  bool checknet(bool);
      |  ~~~~~~~~~~~~~~~~~~~~                                   
  124 |  void allocnet();
      |  ~~~~~~~~~~~~~~~~                                       
  125 |  void free_tq();
      |  ~~~~~~~~~~~~~~~                                        
  126 |  void alloc_tq();
      |  ~~~~~~~~~~~~~~~~                                       
  127 | public:
      | ~~~~~~~                                                 
  128 |  void tqcount(const TQItem*, int);
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                      
  129 |  void tqsave(const TQItem*, int);
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                       
  130 | };
      | ~~                                                      
  131 | 
      |                                                         
  132 | static SaveState* this_savestate;
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                       
  133 | static int callback_mode;
      | ~~~~~~~~~~~~~~~~~~~~~~~~~                               
  134 | 
      |                                                         
  135 | void tqcallback(const TQItem* tq, int i) {
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~              
  136 |  if (callback_mode == 0) {
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~                              
  137 |   this_savestate->tqcount(tq, i);
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                       
  138 |  }else{
      |  ~~~~~~                                                 
  139 |   this_savestate->tqsave(tq, i);
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                        
  140 |  }
      |  ~                                                      
  141 | }
      | ~                                                       
  142 | 
      |                                                         
  143 | #if __sgi && 0
      | ~~~~~~~~~~~~~~                                          
  144 | // fixed in version 5 of os
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~                             
  145 | StateStructInfo* SaveState::ssi;
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                        
  146 | #else
      | ~~~~~                                                   
  147 | SaveState::StateStructInfo* SaveState::ssi;
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~             
  148 | #endif
      | ~~~~~~                                                  
  149 | cTemplate* SaveState::nct;
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~                              
  150 | 
      |                                                         
  151 | SaveState::SaveState() {
      | ~~~~~~~~~~~~~~~~~~~~~~~~                                
  152 |  int i, j;
      |  ~~~~~~~~~                                              
  153 |  ssi_def();
      |  ~~~~~~~~~~                                             
  154 |  nroot_ = 0;
      |  ~~~~~~~~~~~                                            
  155 |  ss_ = NULL;
      |  ~~~~~~~~~~~                                            
  156 |  nsec_ = 0;
      |  ~~~~~~~~~~                                             
  157 |  nncs_ = 0;
      |  ~~~~~~~~~~                                             
  158 |  ncs_ = NULL;
      |  ~~~~~~~~~~~~                                           
  159 |  npss_ = 0;
      |  ~~~~~~~~~~                                             
  160 |  pss_ = NULL;
      |  ~~~~~~~~~~~~                                           
  161 |  tqs_ = new TQState();
      |  ~~~~~~~~~~~~~~~~~~~~~                                  
  162 |  tqs_->nstate = 0;
      |  ~~~~~~~~~~~~~~~~~                                      
  163 |  nprs_ = 0;
      |  ~~~~~~~~~~                                             
  164 |  prs_ = NULL;
      |  ~~~~~~~~~~~~                                           
  165 |  nacell_ = 0;
      |  ~~~~~~~~~~~~                                           
  166 |  for (i=0; i < n_memb_func; ++i) if (nrn_is_artificial_[i]) {
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
  167 |   ++nacell_;
      |   ~~~~~~~~~~                                            
  168 |  }
      |  ~                                                      
  169 |  acell_ = new ACellState[nacell_];
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                      
  170 |  for (i=0; i < nacell_; ++i) {
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                          
  171 |   acell_[i].ncell = 0;
      |   ~~~~~~~~~~~~~~~~~~~~                                  
  172 |   acell_[i].state = 0;
      |   ~~~~~~~~~~~~~~~~~~~~                                  
  173 |  }
      |  ~                                                      
  174 |  for (i=0, j=0; i < n_memb_func; ++i) if (nrn_is_artificial_[i]) {
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
  175 |   acell_[j].type = i;
      |   ~~~~~~~~~~~~~~~~~~~                                   
  176 |   ++j;
      |   ~~~~                                                  
  177 |  }
      |  ~                                                      
  178 | }
      | ~                                                       
  179 | 
      |                                                         
  180 | SaveState::~SaveState() {
      | ~~~~~~~~~~~~~~~~~~~~~~~~~                               
  181 |  ssfree();
      |  ~~~~~~~~~                                              
  182 |  delete tqs_;
      |  ~~~~~~~~~~~~                                           
  183 |  delete [] acell_;
      |  ~~~~~~~~~~~~~~~~~                                      
  184 | }
      | ~                                                       
  185 | 
      |                                                         
  186 | void SaveState::fread_NodeState(NodeState* ns, int cnt, FILE* f) {
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
  187 |  for (int i=0; i < cnt; ++i) {
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                          
  188 |   ASSERTfread(&ns[i].v, sizeof(double), 1, f);
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~          
  189 |   ASSERTfread(&ns[i].nmemb, sizeof(int), 1, f);
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~         
  190 |   ASSERTfread(&ns[i].nstate, sizeof(int), 1, f);
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~        
  191 |  }
      |  ~                                                      
  192 | }
      | ~                                                       
  193 | void SaveState::fwrite_NodeState(NodeState* ns, int cnt, FILE* f){
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
  194 |  for (int i=0; i < cnt; ++i) {
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                          
  195 |   ASSERTfwrite(&ns[i].v, sizeof(double), 1, f);
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~         
  196 |   ASSERTfwrite(&ns[i].nmemb, sizeof(int), 1, f);
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~        
  197 |   ASSERTfwrite(&ns[i].nstate, sizeof(int), 1, f);
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~       
  198 |  }
      |  ~                                                      
  199 | }
      | ~                                                       
  200 | void SaveState::fread_SecState(SecState* ss, int cnt, FILE* f){
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
  201 |  int b;
      |  ~~~~~~                                                 
  202 |  for (int i=0; i < cnt; ++i) {
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                          
  203 |   ASSERTfread(&ss[i].nnode, sizeof(int), 1, f);
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~         
  204 |   ASSERTfread(&b, sizeof(int), 1, f);
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                   
  205 |   if (b) {
      |   ~~~~~~~~                                              
  206 |    ss[i].root = new NodeState;
      |    ~~~~~~~~~~~~~~~~~~~~~~~~~~~                          
  207 |   }else{
      |   ~~~~~~                                                
  208 |    ss[i].root = 0;
      |    ~~~~~~~~~~~~~~~                                      
  209 |   }
      |   ~                                                     
  210 |  }
      |  ~                                                      
  211 | }
      | ~                                                       
  212 | void SaveState::fwrite_SecState(SecState* ss, int cnt, FILE* f){
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
  213 |  int b;
      |  ~~~~~~                                                 
  214 |  for (int i=0; i < cnt; ++i) {
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                          
  215 |   ASSERTfwrite(&ss[i].nnode, sizeof(int), 1, f);
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~        
  216 |   b = ss[i].root ? 1 : 0;
      |   ~~~~~~~~~~~~~~~~~~~~~~~                               
  217 |   ASSERTfwrite(&b, sizeof(int), 1, f);
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                  
  218 |  }
      |  ~                                                      
  219 | }
      | ~                                                       
  220 | 
      |                                                         
  221 | void SaveState::ssi_def() {
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~                             
  222 |  if (nct) { return; }
      |  ~~~~~~~~~~~~~~~~~~~~                                   
  223 |  Symbol* s = hoc_lookup("NetCon");
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                      
  224 |  nct = s->u.ctemplate;
      |  ~~~~~~~~~~~~~~~~~~~~~                                  
  225 |  ssi = new StateStructInfo[n_memb_func];
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                
  226 |  for (int im=0; im < n_memb_func; ++im) {
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~               
  227 |   ssi[im].offset = -1;
      |   ~~~~~~~~~~~~~~~~~~~~                                  
  228 |   ssi[im].size = 0;
      |   ~~~~~~~~~~~~~~~~~                                     
  229 |   if (!memb_func[im].sym) {
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~                             
  230 |    continue;
      |    ~~~~~~~~~                                            
  231 |   }
      |   ~                                                     
  232 |   NrnProperty* np = new NrnProperty(memb_func[im].sym->name);
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
  233 |   // generally we only save STATE variables. However for
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
  234 |   // models containing a NET_RECEIVE block, we also need to
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
  235 |   // save everything except the parameters
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~              
  236 |   // because they often contain
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                         
  237 |   // logic and analytic state values. Unfortunately, it is often
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
  238 |   // the case that the ASSIGNED variables are not declared as
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
  239 |   // RANGE variables so to avoid missing state, save the whole
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
  240 |   // param array including PARAMETERs.
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                  
  241 |      if  (pnt_receive[im]) {
      |      ~~~~~~~~~~~~~~~~~~~~~~~                            
  242 |   ssi[im].offset = 0;
      |   ~~~~~~~~~~~~~~~~~~~                                   
  243 |   ssi[im].size = np->prop()->param_size;
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                
  244 |      }else{
      |      ~~~~~~                                             
  245 |   int type = STATE;
      |   ~~~~~~~~~~~~~~~~~                                     
  246 |   for (Symbol* sym = np->first_var(); np->more_var(); sym = np->next_var()) {
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
  247 |    if (np->var_type(sym) == type
      |    ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                        
  248 |        || np->var_type(sym) == STATE
      |        ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                    
  249 |        || sym->subtype == _AMBIGUOUS) {
      |        ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                 
  250 |     if (ssi[im].offset < 0) {
      |     ~~~~~~~~~~~~~~~~~~~~~~~~~                           
  251 |      ssi[im].offset = np->prop_index(sym);
      |      ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~              
  252 |     }
      |     ~                                                   
  253 |     ssi[im].size += hoc_total_array_data(sym, 0);
      |     ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~       
  254 |    }
      |    ~                                                    
  255 |   }
      |   ~                                                     
  256 |      }
      |      ~                                                  
  257 |      delete np;
      |      ~~~~~~~~~~                                         
  258 |  }
      |  ~                                                      
  259 | }
      | ~                                                       
  260 | 
      |                                                         
  261 | bool SaveState::check(bool warn) {
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                      
  262 |  hoc_Item* qsec;
      |  ~~~~~~~~~~~~~~~                                        
  263 |  int isec;
      |  ~~~~~~~~~                                              
  264 |  if (nsec_ != section_count) {
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                          
  265 |   if (warn) {
      |   ~~~~~~~~~~~                                           
  266 | fprintf(stderr, "SaveState warning: %d sections exist but saved %d\n",
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
  267 |    section_count, nsec_);
      |    ~~~~~~~~~~~~~~~~~~~~~~                               
  268 |   }
      |   ~                                                     
  269 |   return false;
      |   ~~~~~~~~~~~~~                                         
  270 |  }
      |  ~                                                      
  271 |  if (nroot_ != nrn_global_ncell) {
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                      
  272 |   if (warn) {
      |   ~~~~~~~~~~~                                           
  273 | fprintf(stderr, "SaveState warning: %d cells exist but saved %d\n",
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
  274 |    nrn_global_ncell, nroot_);
      |    ~~~~~~~~~~~~~~~~~~~~~~~~~~                           
  275 |   }
      |   ~                                                     
  276 |   return false;
      |   ~~~~~~~~~~~~~                                         
  277 |  }
      |  ~                                                      
  278 |  if (nsec_ && ss_[0].sec == NULL) { // got the data from a read
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
  279 |   isec = 0; ForAllSections(sec)
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                         
  280 |    ss_[isec].sec = sec;
      |    ~~~~~~~~~~~~~~~~~~~~                                 
  281 |    section_ref(ss_[isec].sec);
      |    ~~~~~~~~~~~~~~~~~~~~~~~~~~~                          
  282 |    ++isec;
      |    ~~~~~~~                                              
  283 |   }
      |   ~                                                     
  284 |  }
      |  ~                                                      
  285 |  for (int i=0, j=0; i < n_memb_func; ++i) if (nrn_is_artificial_[i]) {
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
  286 |   if (!checkacell(acell_[j], i, warn)) {
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                
  287 |    return false;
      |    ~~~~~~~~~~~~~                                        
  288 |   }
      |   ~                                                     
  289 |   ++j;
      |   ~~~~                                                  
  290 |  }
      |  ~                                                      
  291 |  for (int isec=0; isec < nsec_; ++isec) {
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~               
  292 |   SecState& ss = ss_[isec];
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~                             
  293 |   Section* sec = ss.sec;
      |   ~~~~~~~~~~~~~~~~~~~~~~                                
  294 |   if (!sec->prop || sec->nnode != ss.nnode) {
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~           
  295 | if (warn) {
      | ~~~~~~~~~~~                                             
  296 | if (!sec->prop) {
      | ~~~~~~~~~~~~~~~~~                                       
  297 | fprintf(stderr, "SaveState warning: saved section no longer exists\n");
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
  298 | }else{
      | ~~~~~~                                                  
  299 | fprintf(stderr, "SaveState warning: %s has %d nodes but saved %d\n",
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
  300 |     secname(sec), sec->nnode, ss.nnode);
      |     ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                
  301 | }
      | ~                                                       
  302 | }
      | ~                                                       
  303 |    return false;
      |    ~~~~~~~~~~~~~                                        
  304 |   }
      |   ~                                                     
  305 |   for (int inode = 0; inode < ss.nnode; ++inode) {
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~      
  306 |    NodeState& ns = ss.ns[inode];
      |    ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                        
  307 |    Node* nd = sec->pnode[inode];
      |    ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                        
  308 |    int i=0;
      |    ~~~~~~~~                                             
  309 |    Prop* p;
      |    ~~~~~~~~                                             
  310 |    for (p = nd->prop; p; p = p->next) {
      |    ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                 
  311 |     if (ssi[p->type].size == 0) {
      |     ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                       
  312 |      continue;
      |      ~~~~~~~~~                                          
  313 |     }
      |     ~                                                   
  314 |     if (i >= ns.nmemb) {
      |     ~~~~~~~~~~~~~~~~~~~~                                
  315 | if (warn) {
      | ~~~~~~~~~~~                                             
  316 | fprintf(stderr,"SaveState warning: \
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                    
  317 | fewer mechanisms saved than exist at node %d of %s\n",
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~  
  318 |  inode, secname(sec));
      |  ~~~~~~~~~~~~~~~~~~~~~                                  
  319 | }
      | ~                                                       
  320 |      return false;
      |      ~~~~~~~~~~~~~                                      
  321 |     }
      |     ~                                                   
  322 |     if (p->type != ns.type[i]) {
      |     ~~~~~~~~~~~~~~~~~~~~~~~~~~~~                        
  323 | if (warn) {
      | ~~~~~~~~~~~                                             
  324 | fprintf(stderr, "SaveState warning: mechanisms out of order at node %d of %s\n\
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
  325 | saved %s but need %s\n",
      | ~~~~~~~~~~~~~~~~~~~~~~~~                                
  326 | inode, secname(sec), memb_func[i].sym->name, memb_func[p->type].sym->name);
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
  327 | }
      | ~                                                       
  328 |      return false;
      |      ~~~~~~~~~~~~~                                      
  329 |     }
      |     ~                                                   
  330 |     ++i;
      |     ~~~~                                                
  331 |    }
      |    ~                                                    
  332 |    if (i != ns.nmemb) {
      |    ~~~~~~~~~~~~~~~~~~~~                                 
  333 | if (warn) {
      | ~~~~~~~~~~~                                             
  334 | fprintf(stderr, "SaveState warning: more mechanisms saved than exist at node %d of %s\n",
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
  335 |  inode, secname(sec));
      |  ~~~~~~~~~~~~~~~~~~~~~                                  
  336 | }
      | ~                                                       
  337 |     return false;
      |     ~~~~~~~~~~~~~                                       
  338 |    }
      |    ~                                                    
  339 |   }
      |   ~                                                     
  340 |   if (!sec->parentsec || ss.root) {
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                     
  341 |    if (sec->parentsec || !ss.root) {
      |    ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                    
  342 | if (warn) {
      | ~~~~~~~~~~~                                             
  343 | fprintf(stderr, "SaveState warning: Saved section and %s are not both root sections.\n",
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
  344 |  secname(sec));
      |  ~~~~~~~~~~~~~~                                         
  345 | }
      | ~                                                       
  346 |    }
      |    ~                                                    
  347 |    if (!checknode(*ss.root, sec->parentnode, warn)) {
      |    ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~   
  348 |     return false;
      |     ~~~~~~~~~~~~~                                       
  349 |    }
      |    ~                                                    
  350 |   }
      |   ~                                                     
  351 | 
      |                                                         
  352 |  }
      |  ~                                                      
  353 |  if (!checknet(warn)) { return false; }
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                 
  354 |  return true;
      |  ~~~~~~~~~~~~                                           
  355 | }
      | ~                                                       
  356 | 
      |                                                         
  357 | bool SaveState::checknode(NodeState& ns, Node* nd, bool warn) {
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
  358 |  int i=0;
      |  ~~~~~~~~                                               
  359 |  Prop* p;
      |  ~~~~~~~~                                               
  360 |  for (p = nd->prop; p; p = p->next) {
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                   
  361 |   if (ssi[p->type].size == 0) {
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                         
  362 |    continue;
      |    ~~~~~~~~~                                            
  363 |   }
      |   ~                                                     
  364 |   if (i >= ns.nmemb) {
      |   ~~~~~~~~~~~~~~~~~~~~                                  
  365 | if (warn) {
      | ~~~~~~~~~~~                                             
  366 | fprintf(stderr,"SaveState warning: \
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                    
  367 | fewer mechanisms saved than exist at a root node\n");
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~   
  368 | }
      | ~                                                       
  369 |    return false;
      |    ~~~~~~~~~~~~~                                        
  370 |   }
      |   ~                                                     
  371 |   if (p->type != ns.type[i]) {
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~~                          
  372 | if (warn) {
      | ~~~~~~~~~~~                                             
  373 | fprintf(stderr, "SaveState warning: mechanisms out of order at a rootnode\n\
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
  374 | saved %s but need %s\n",
      | ~~~~~~~~~~~~~~~~~~~~~~~~                                
  375 | memb_func[i].sym->name, memb_func[p->type].sym->name);
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~  
  376 | }
      | ~                                                       
  377 |    return false;
      |    ~~~~~~~~~~~~~                                        
  378 |   }
      |   ~                                                     
  379 |   ++i;
      |   ~~~~                                                  
  380 |  }
      |  ~                                                      
  381 |  if (i != ns.nmemb) {
      |  ~~~~~~~~~~~~~~~~~~~~                                   
  382 | if (warn) {
      | ~~~~~~~~~~~                                             
  383 | fprintf(stderr, "SaveState warning: more mechanisms saved than exist at a rootnode\n");
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
  384 | }
      | ~                                                       
  385 |   return false;
      |   ~~~~~~~~~~~~~                                         
  386 |  }
      |  ~                                                      
  387 |  return true;
      |  ~~~~~~~~~~~~                                           
  388 | }
      | ~                                                       
  389 | 
      |                                                         
  390 | bool SaveState::checkacell(ACellState& ac, int type, bool warn) {
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
  391 |  if (memb_list[type].nodecount != ac.ncell) {
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~           
  392 | if (warn) {
      | ~~~~~~~~~~~                                             
  393 | fprintf(stderr, "SaveState warning: different number of %s saved than exist.\n",
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
  394 | memb_func[type].sym->name);
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~                             
  395 | }
      | ~                                                       
  396 |   return false;
      |   ~~~~~~~~~~~~~                                         
  397 |  }
      |  ~                                                      
  398 |  return true;
      |  ~~~~~~~~~~~~                                           
  399 | }
      | ~                                                       
  400 | 
      |                                                         
  401 | void SaveState::alloc() {
      | ~~~~~~~~~~~~~~~~~~~~~~~~~                               
  402 |  ssfree();
      |  ~~~~~~~~~                                              
  403 |  int inode, isec;
      |  ~~~~~~~~~~~~~~~~                                       
  404 |  hoc_Item* qsec;
      |  ~~~~~~~~~~~~~~~                                        
  405 |  nsec_ = section_count;
      |  ~~~~~~~~~~~~~~~~~~~~~~                                 
  406 |  ss_ = new SecState[nsec_];
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~                             
  407 |  nroot_ = 0;
      |  ~~~~~~~~~~~                                            
  408 |  isec = 0;
      |  ~~~~~~~~~                                              
  409 |  ForAllSections(sec)
      |  ~~~~~~~~~~~~~~~~~~~                                    
  410 |   SecState& ss = ss_[isec];
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~                             
  411 |   ss.sec = sec;
      |   ~~~~~~~~~~~~~                                         
  412 |   section_ref(ss.sec);
      |   ~~~~~~~~~~~~~~~~~~~~                                  
  413 |   ss.nnode = ss.sec->nnode;
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~                             
  414 |   ss.ns = new NodeState[ss.nnode];
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                      
  415 |   for (inode = 0; inode < ss.nnode; ++inode) {
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~          
  416 |    Node* nd = ss.sec->pnode[inode];
      |    ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                     
  417 |    NodeState& ns = ss.ns[inode];
      |    ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                        
  418 |    allocnode(ns, nd);
      |    ~~~~~~~~~~~~~~~~~~                                   
  419 |   }
      |   ~                                                     
  420 |   if (!sec->parentsec) {
      |   ~~~~~~~~~~~~~~~~~~~~~~                                
  421 |    assert(sec->parentnode);
      |    ~~~~~~~~~~~~~~~~~~~~~~~~                             
  422 |    ss.root = new NodeState;
      |    ~~~~~~~~~~~~~~~~~~~~~~~~                             
  423 |    allocnode(*ss.root, sec->parentnode);
      |    ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                
  424 |    ++nroot_;
      |    ~~~~~~~~~                                            
  425 |   }else{
      |   ~~~~~~                                                
  426 |    ss.root = 0;
      |    ~~~~~~~~~~~~                                         
  427 |   }
      |   ~                                                     
  428 |   ++isec;
      |   ~~~~~~~                                               
  429 |  }
      |  ~                                                      
  430 |  assert(isec == section_count);
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                         
  431 |  assert(nroot_ == nrn_global_ncell);
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                    
  432 |  for (int i=0, j=0; i < n_memb_func; ++i) if (nrn_is_artificial_[i]) {
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
  433 |   allocacell(acell_[j], i);
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~                             
  434 |   ++j;
      |   ~~~~                                                  
  435 |  }
      |  ~                                                      
  436 |  PlayRecList* prl = net_cvode_instance_prl();
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~           
  437 |  nprs_ = prl->count();
      |  ~~~~~~~~~~~~~~~~~~~~~                                  
  438 |  if (nprs_) {
      |  ~~~~~~~~~~~~                                           
  439 |   prs_ = new PlayRecordSave*[nprs_];
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                    
  440 |  }
      |  ~                                                      
  441 |  allocnet();
      |  ~~~~~~~~~~~                                            
  442 | }
      | ~                                                       
  443 | 
      |                                                         
  444 | void SaveState::allocnode(NodeState& ns, Node* nd) {
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~    
  445 |  ns.nmemb = 0;
      |  ~~~~~~~~~~~~~                                          
  446 |  ns.type = NULL;
      |  ~~~~~~~~~~~~~~~                                        
  447 |  ns.state = NULL;
      |  ~~~~~~~~~~~~~~~~                                       
  448 |  ns.nstate = 0;
      |  ~~~~~~~~~~~~~~                                         
  449 |  Prop* p;
      |  ~~~~~~~~                                               
  450 |  for (p = nd->prop; p; p = p->next) {
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                   
  451 |   if (ssi[p->type].size == 0) {
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                         
  452 |    continue;
      |    ~~~~~~~~~                                            
  453 |   }
      |   ~                                                     
  454 |   ++ns.nmemb;
      |   ~~~~~~~~~~~                                           
  455 |   ns.nstate += ssi[p->type].size;
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                       
  456 |  }
      |  ~                                                      
  457 |  if (ns.nmemb) {
      |  ~~~~~~~~~~~~~~~                                        
  458 |   ns.type = new int[ns.nmemb];
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~~                          
  459 |  }
      |  ~                                                      
  460 |  if (ns.nstate) {
      |  ~~~~~~~~~~~~~~~~                                       
  461 |   ns.state = new double[ns.nstate];
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                     
  462 |  }
      |  ~                                                      
  463 |  int i = 0;
      |  ~~~~~~~~~~                                             
  464 |  for (p = nd->prop; p; p = p->next) {
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                   
  465 |   if (ssi[p->type].size == 0) {
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                         
  466 |    continue;
      |    ~~~~~~~~~                                            
  467 |   }
      |   ~                                                     
  468 |   ns.type[i] = p->type;
      |   ~~~~~~~~~~~~~~~~~~~~~                                 
  469 |   ++i;
      |   ~~~~                                                  
  470 |  }
      |  ~                                                      
  471 | }
      | ~                                                       
  472 | 
      |                                                         
  473 | void SaveState::allocacell(ACellState& ac, int type) {
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~  
  474 |  Memb_list& ml = memb_list[type];
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                       
  475 |  ac.type = type;
      |  ~~~~~~~~~~~~~~~                                        
  476 |  ac.ncell = ml.nodecount;
      |  ~~~~~~~~~~~~~~~~~~~~~~~~                               
  477 |  ac.state = new double[ac.ncell * ssi[type].size];
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~      
  478 | }
      | ~                                                       
  479 | 
      |                                                         
  480 | void SaveState::ssfree() {
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~                              
  481 |  int i, isec, inode;
      |  ~~~~~~~~~~~~~~~~~~~                                    
  482 |  for (isec=0; isec < nsec_; ++isec) {
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                   
  483 |   SecState& ss = ss_[isec];
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~                             
  484 |   for (inode = 0; inode < ss.nnode; ++inode) {
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~          
  485 |    NodeState& ns = ss.ns[inode];
      |    ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                        
  486 |    if (ns.nmemb) {
      |    ~~~~~~~~~~~~~~~                                      
  487 |     delete [] ns.type;
      |     ~~~~~~~~~~~~~~~~~~                                  
  488 |    }
      |    ~                                                    
  489 |    if (ns.nstate) {
      |    ~~~~~~~~~~~~~~~~                                     
  490 |     delete [] ns.state;
      |     ~~~~~~~~~~~~~~~~~~~                                 
  491 |    }
      |    ~                                                    
  492 |   }
      |   ~                                                     
  493 |   if (ss.root) {
      |   ~~~~~~~~~~~~~~                                        
  494 |    NodeState& ns = *ss.root;
      |    ~~~~~~~~~~~~~~~~~~~~~~~~~                            
  495 |    if (ns.nmemb) {
      |    ~~~~~~~~~~~~~~~                                      
  496 |     delete [] ns.type;
      |     ~~~~~~~~~~~~~~~~~~                                  
  497 |    }
      |    ~                                                    
  498 |    if (ns.nstate) {
      |    ~~~~~~~~~~~~~~~~                                     
  499 |     delete [] ns.state;
      |     ~~~~~~~~~~~~~~~~~~~                                 
  500 |    }
      |    ~                                                    
  501 |    delete ss.root;
      |    ~~~~~~~~~~~~~~~                                      
  502 |   }
      |   ~                                                     
  503 |   if (ss.nnode) {
      |   ~~~~~~~~~~~~~~~                                       
  504 |    delete [] ss.ns;
      |    ~~~~~~~~~~~~~~~~                                     
  505 |   }
      |   ~                                                     
  506 |   if (ss.sec) { // got info from an fread but never checked it
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
  507 |    section_unref(ss.sec);
      |    ~~~~~~~~~~~~~~~~~~~~~~                               
  508 |   }
      |   ~                                                     
  509 |  }
      |  ~                                                      
  510 |  if (nsec_) {
      |  ~~~~~~~~~~~~                                           
  511 |   delete [] ss_;
      |   ~~~~~~~~~~~~~~                                        
  512 |  }
      |  ~                                                      
  513 |  nsec_ = 0;
      |  ~~~~~~~~~~                                             
  514 |  ss_ = NULL;
      |  ~~~~~~~~~~~                                            
  515 |  for (i=0; i < nacell_; ++i) {
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                          
  516 |   if (acell_[i].ncell) {
      |   ~~~~~~~~~~~~~~~~~~~~~~                                
  517 |    delete [] acell_[i].state;
      |    ~~~~~~~~~~~~~~~~~~~~~~~~~~                           
  518 |    acell_[i].state = 0;
      |    ~~~~~~~~~~~~~~~~~~~~                                 
  519 |    acell_[i].ncell = 0;
      |    ~~~~~~~~~~~~~~~~~~~~                                 
  520 |   }
      |   ~                                                     
  521 |  } // note we do not destroy the acell_.
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                
  522 |  if (nncs_) {
      |  ~~~~~~~~~~~~                                           
  523 |   for (i = 0; i < nncs_; ++i) {
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                         
  524 |    if (ncs_[i].nstate) {
      |    ~~~~~~~~~~~~~~~~~~~~~                                
  525 |     delete [] ncs_[i].state;
      |     ~~~~~~~~~~~~~~~~~~~~~~~~                            
  526 |    }
      |    ~                                                    
  527 |   }
      |   ~                                                     
  528 |   delete [] ncs_;
      |   ~~~~~~~~~~~~~~~                                       
  529 |  }
      |  ~                                                      
  530 |  nncs_ = 0;
      |  ~~~~~~~~~~                                             
  531 |  ncs_ = NULL;
      |  ~~~~~~~~~~~~                                           
  532 |  if (npss_) {
      |  ~~~~~~~~~~~~                                           
  533 |   delete [] pss_;
      |   ~~~~~~~~~~~~~~~                                       
  534 |  }
      |  ~                                                      
  535 |  npss_ = 0;
      |  ~~~~~~~~~~                                             
  536 |  pss_ = NULL;
      |  ~~~~~~~~~~~~                                           
  537 |  free_tq();
      |  ~~~~~~~~~~                                             
  538 |  if (nprs_) {
      |  ~~~~~~~~~~~~                                           
  539 |   for (i=0; i < nprs_; ++i) {
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~                           
  540 |    delete prs_[i];
      |    ~~~~~~~~~~~~~~~                                      
  541 |   }
      |   ~                                                     
  542 |   delete [] prs_;
      |   ~~~~~~~~~~~~~~~                                       
  543 |  }
      |  ~                                                      
  544 |  nprs_ = 0;
      |  ~~~~~~~~~~                                             
  545 | }
      | ~                                                       
  546 | 
      |                                                         
  547 | void SaveState::save() {
      | ~~~~~~~~~~~~~~~~~~~~~~~~                                
  548 |  NrnThread* nt;
      |  ~~~~~~~~~~~~~~                                         
  549 |  if (!check(false)) {
      |  ~~~~~~~~~~~~~~~~~~~~                                   
  550 |   alloc();
      |   ~~~~~~~~                                              
  551 |  }
      |  ~                                                      
  552 |  FOR_THREADS(nt) {
      |  ~~~~~~~~~~~~~~~~~                                      
  553 |   assert(t == nt->_t);
      |   ~~~~~~~~~~~~~~~~~~~~                                  
  554 |  }
      |  ~                                                      
  555 |  t_ = t;
      |  ~~~~~~~                                                
  556 |  int inode;
      |  ~~~~~~~~~~                                             
  557 |  for (int isec=0; isec < nsec_; ++isec) {
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~               
  558 |   SecState& ss = ss_[isec];
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~                             
  559 |   Section* sec = ss.sec;
      |   ~~~~~~~~~~~~~~~~~~~~~~                                
  560 |   for (inode = 0; inode < ss.nnode; ++inode) {
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~          
  561 |    NodeState& ns = ss.ns[inode];
      |    ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                        
  562 |    Node* nd = sec->pnode[inode];
      |    ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                        
  563 |    savenode(ns, nd);
      |    ~~~~~~~~~~~~~~~~~                                    
  564 |   }
      |   ~                                                     
  565 |   if (ss.root) {
      |   ~~~~~~~~~~~~~~                                        
  566 |    NodeState& ns = *ss.root;
      |    ~~~~~~~~~~~~~~~~~~~~~~~~~                            
  567 |    Node* nd = sec->parentnode;
      |    ~~~~~~~~~~~~~~~~~~~~~~~~~~~                          
  568 |    savenode(ns, nd);
      |    ~~~~~~~~~~~~~~~~~                                    
  569 |   }
      |   ~                                                     
  570 |  }
      |  ~                                                      
  571 |  for (int i=0, j=0; i < n_memb_func; ++i) if (nrn_is_artificial_[i]) {
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
  572 |   saveacell(acell_[j], i);
      |   ~~~~~~~~~~~~~~~~~~~~~~~~                              
  573 |   ++j;
      |   ~~~~                                                  
  574 |  }
      |  ~                                                      
  575 |  if (nprs_) {
      |  ~~~~~~~~~~~~                                           
  576 |   PlayRecList* prl = net_cvode_instance_prl();
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~          
  577 |   int i;
      |   ~~~~~~                                                
  578 |   assert(nprs_ == prl->count());
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                        
  579 |   for (i=0; i < nprs_; ++i) {
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~                           
  580 |    prs_[i] = prl->item(i)->savestate_save();
      |    ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~            
  581 |   }
      |   ~                                                     
  582 |  }
      |  ~                                                      
  583 |  savenet();
      |  ~~~~~~~~~~                                             
  584 | }
      | ~                                                       
  585 | 
      |                                                         
  586 | void SaveState::savenode(NodeState& ns, Node* nd) {
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~     
  587 |  ns.v = NODEV(nd);
      |  ~~~~~~~~~~~~~~~~~                                      
  588 |  int istate = 0;
      |  ~~~~~~~~~~~~~~~                                        
  589 |  Prop* p;
      |  ~~~~~~~~                                               
  590 |  for (p = nd->prop; p; p = p->next) {
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                   
  591 |   if (ssi[p->type].size == 0) {
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                         
  592 |    continue;
      |    ~~~~~~~~~                                            
  593 |   }
      |   ~                                                     
  594 |   int type = p->type;
      |   ~~~~~~~~~~~~~~~~~~~                                   
  595 |   int max = ssi[type].offset + ssi[type].size;
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~          
  596 | #if EXTRACELLULAR
      | ~~~~~~~~~~~~~~~~~                                       
  597 |   if (type == EXTRACELL) {
      |   ~~~~~~~~~~~~~~~~~~~~~~~~                              
  598 |    for (int i=0; i < nlayer; ++i) {
      |    ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                     
  599 |     ns.state[istate++] = nd->extnode->v[i];
      |     ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~             
  600 |    }
      |    ~                                                    
  601 |   }else
      |   ~~~~~                                                 
  602 | #endif
      | ~~~~~~                                                  
  603 |   {
      |   ~                                                     
  604 |    for (int ip=ssi[type].offset; ip < max; ++ip) {
      |    ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~      
  605 |     ns.state[istate++] = p->param[ip];
      |     ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                  
  606 |    }
      |    ~                                                    
  607 |   }
      |   ~                                                     
  608 |  }
      |  ~                                                      
  609 | }
      | ~                                                       
  610 | 
      |                                                         
  611 | void SaveState::saveacell(ACellState& ac, int type) {
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~   
  612 |  Memb_list& ml = memb_list[type];
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                       
  613 |  int sz = ssi[type].size;
      |  ~~~~~~~~~~~~~~~~~~~~~~~~                               
  614 |  double* p = ac.state;
      |  ~~~~~~~~~~~~~~~~~~~~~                                  
  615 |  for (int i = 0; i < ml.nodecount; ++i) {
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~               
  616 |   double* d = ml.data[i];
      |   ~~~~~~~~~~~~~~~~~~~~~~~                               
  617 |   for (int j=0; j < sz; ++j) {
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~~                          
  618 |    (*p++) = d[j];
      |    ~~~~~~~~~~~~~~                                       
  619 |   }
      |   ~                                                     
  620 |  }
      |  ~                                                      
  621 | }
      | ~                                                       
  622 | 
      |                                                         
  623 | void SaveState::restore(int type) {
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                     
  624 |  NrnThread* nt;
      |  ~~~~~~~~~~~~~~                                         
  625 |  if (!check(true)) {
      |  ~~~~~~~~~~~~~~~~~~~                                    
  626 |   hoc_execerror("SaveState:",
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~                           
  627 |   "Stored state inconsistent with current neuron structure");
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
  628 |  }
      |  ~                                                      
  629 |  t = t_;
      |  ~~~~~~~                                                
  630 |  FOR_THREADS(nt) {
      |  ~~~~~~~~~~~~~~~~~                                      
  631 |   nt->_t = t_;
      |   ~~~~~~~~~~~~                                          
  632 |  }
      |  ~                                                      
  633 |  int inode;
      |  ~~~~~~~~~~                                             
  634 |  for (int isec=0; isec < nsec_; ++isec) {
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~               
  635 |   SecState& ss = ss_[isec];
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~                             
  636 |   Section* sec = ss.sec;
      |   ~~~~~~~~~~~~~~~~~~~~~~                                
  637 |   for (inode = 0; inode < ss.nnode; ++inode) {
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~          
  638 |    NodeState& ns = ss.ns[inode];
      |    ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                        
  639 |    Node* nd = sec->pnode[inode];
      |    ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                        
  640 |    restorenode(ns, nd);
      |    ~~~~~~~~~~~~~~~~~~~~                                 
  641 |   }
      |   ~                                                     
  642 |   if (ss.root) {
      |   ~~~~~~~~~~~~~~                                        
  643 |    NodeState& ns = *ss.root;
      |    ~~~~~~~~~~~~~~~~~~~~~~~~~                            
  644 |    Node* nd = sec->parentnode;
      |    ~~~~~~~~~~~~~~~~~~~~~~~~~~~                          
  645 |    restorenode(ns, nd);
      |    ~~~~~~~~~~~~~~~~~~~~                                 
  646 |   }
      |   ~                                                     
  647 |  }
      |  ~                                                      
  648 |  for (int i=0, j=0; i < n_memb_func; ++i) if (nrn_is_artificial_[i]) {
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
  649 |   restoreacell(acell_[j], i);
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~                           
  650 |   ++j;
      |   ~~~~                                                  
  651 |  }
      |  ~                                                      
  652 |  if (type == 1) { return; }
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~                             
  653 |  PlayRecList* prl = net_cvode_instance_prl();
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~           
  654 |  // during a local step the PlayRecList is augmented with GLineRecord
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
  655 |  // assert(nprs_ == prl->count());
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                      
  656 |  assert(nprs_ <= prl->count());
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                         
  657 |  int i;
      |  ~~~~~~                                                 
  658 |  for (i = 0; i < nprs_; ++i) {
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                          
  659 |   prs_[i]->savestate_restore();
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                         
  660 |  }
      |  ~                                                      
  661 |  restorenet();
      |  ~~~~~~~~~~~~~                                          
  662 | }
      | ~                                                       
  663 | 
      |                                                         
  664 | void SaveState::restorenode(NodeState& ns, Node* nd) {
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~  
  665 |  NODEV(nd) = ns.v;;
      |  ~~~~~~~~~~~~~~~~~~                                     
  666 |  int istate = 0;
      |  ~~~~~~~~~~~~~~~                                        
  667 |  Prop* p;
      |  ~~~~~~~~                                               
  668 |  for (p = nd->prop; p; p = p->next) {
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                   
  669 |   if (ssi[p->type].size == 0) {
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                         
  670 |    continue;
      |    ~~~~~~~~~                                            
  671 |   }
      |   ~                                                     
  672 |   int type = p->type;
      |   ~~~~~~~~~~~~~~~~~~~                                   
  673 |   int max = ssi[type].offset + ssi[type].size;
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~          
  674 | #if EXTRACELLULAR
      | ~~~~~~~~~~~~~~~~~                                       
  675 |   if (type == EXTRACELL) {
      |   ~~~~~~~~~~~~~~~~~~~~~~~~                              
  676 |    for (int i=0; i < nlayer; ++i) {
      |    ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                     
  677 |     nd->extnode->v[i] = ns.state[istate++];
      |     ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~             
  678 |    }
      |    ~                                                    
  679 |   }else
      |   ~~~~~                                                 
  680 | #endif
      | ~~~~~~                                                  
  681 |   {
      |   ~                                                     
  682 |    for (int ip=ssi[type].offset; ip < max; ++ip) {
      |    ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~      
  683 |     p->param[ip] = ns.state[istate++];
      |     ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                  
  684 |    }
      |    ~                                                    
  685 |   }
      |   ~                                                     
  686 |  }
      |  ~                                                      
  687 | }
      | ~                                                       
  688 | 
      |                                                         
  689 | void SaveState::restoreacell(ACellState& ac, int type) {
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
  690 |  Memb_list& ml = memb_list[type];
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                       
  691 |  int sz = ssi[type].size;
      |  ~~~~~~~~~~~~~~~~~~~~~~~~                               
  692 |  double* p = ac.state;
      |  ~~~~~~~~~~~~~~~~~~~~~                                  
  693 |  for (int i = 0; i < ml.nodecount; ++i) {
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~               
  694 |   double* d = ml.data[i];
      |   ~~~~~~~~~~~~~~~~~~~~~~~                               
  695 |   for (int j=0; j < sz; ++j) {
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~~                          
  696 |    d[j] = (*p++);
      |    ~~~~~~~~~~~~~~                                       
  697 |   }
      |   ~                                                     
  698 |  }
      |  ~                                                      
  699 | }
      | ~                                                       
  700 | 
      |                                                         
  701 | void SaveState::read(OcFile* ocf, bool close) {
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~         
  702 |  if (!ocf->open(ocf->get_name(), "r")) {
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                
  703 |   hoc_execerror("Couldn't open file for reading:", ocf->get_name());
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
  704 |  }
      |  ~                                                      
  705 |  nrn_shape_update();
      |  ~~~~~~~~~~~~~~~~~~~                                    
  706 |  BinaryMode(ocf)
      |  ~~~~~~~~~~~~~~~                                        
  707 |  FILE* f = ocf->file();
      |  ~~~~~~~~~~~~~~~~~~~~~~                                 
  708 |  ssfree();
      |  ~~~~~~~~~                                              
  709 |  char buf[200];
      |  ~~~~~~~~~~~~~~                                         
  710 |  ASSERTfgets(buf, 200, f);
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~                              
  711 |  if (strcmp(buf, "SaveState binary file version 6.0\n") != 0) {
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
  712 |   ocf->close();
      |   ~~~~~~~~~~~~~                                         
  713 |   hoc_execerror("Bad SaveState binary file", " Not version 6.0");
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
  714 |  }
      |  ~                                                      
  715 |  ASSERTfread((char*)&t_, sizeof(double), 1, f);
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~         
  716 | // fscanf(f, "%d %d\n", &nsec_, &nrootnode_);
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~           
  717 | // on some os's fscanf leaves file pointer at wrong place for next fread
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
  718 | // can check it with ftell(f)
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                           
  719 |  ASSERTfgets(buf, 200, f);
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~                              
  720 |  sscanf(buf, "%d %d\n", &nsec_, &nroot_);
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~               
  721 |  // to enable comparison of SaveState files, we avoid
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~   
  722 |  // putting pointers in the files and instead explicitly read/write
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
  723 |  // structure elements.
      |  ~~~~~~~~~~~~~~~~~~~~~~                                 
  724 |  ss_ = new SecState[nsec_];
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~                             
  725 |  fread_SecState(ss_, nsec_, f);
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                         
  726 |  for (int isec=0; isec < nsec_; ++isec) {
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~               
  727 |   SecState& ss = ss_[isec];
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~                             
  728 |   ss.sec = NULL;
      |   ~~~~~~~~~~~~~~                                        
  729 |   ss.ns = new NodeState[ss.nnode];
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                      
  730 |   fread_NodeState(ss.ns, ss.nnode, f);
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                  
  731 |   for (int inode = 0; inode < ss.nnode; ++inode) {
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~      
  732 |    NodeState& ns = ss.ns[inode];
      |    ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                        
  733 |    if (ns.nmemb) {
      |    ~~~~~~~~~~~~~~~                                      
  734 |     ns.type = new int[ns.nmemb];
      |     ~~~~~~~~~~~~~~~~~~~~~~~~~~~~                        
  735 |     ASSERTfread((char*)ns.type, sizeof(int), ns.nmemb, f);
      |     ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
  736 |    }
      |    ~                                                    
  737 |    if (ns.nstate) {
      |    ~~~~~~~~~~~~~~~~                                     
  738 |     ns.state = new double[ns.nstate];
      |     ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                   
  739 |     ASSERTfread((char*)ns.state, sizeof(double), ns.nstate, f);
      |     ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
  740 |    }
      |    ~                                                    
  741 |   }
      |   ~                                                     
  742 |   if (ss.root) {
      |   ~~~~~~~~~~~~~~                                        
  743 |    fread_NodeState(ss.root, 1, f);
      |    ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                      
  744 |    NodeState& ns = *ss.root;
      |    ~~~~~~~~~~~~~~~~~~~~~~~~~                            
  745 |    if (ns.nmemb) {
      |    ~~~~~~~~~~~~~~~                                      
  746 |     ns.type = new int[ns.nmemb];
      |     ~~~~~~~~~~~~~~~~~~~~~~~~~~~~                        
  747 |     ASSERTfread((char*)ns.type, sizeof(int), ns.nmemb, f);
      |     ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
  748 |    }
      |    ~                                                    
  749 |    if (ns.nstate) {
      |    ~~~~~~~~~~~~~~~~                                     
  750 |     ns.state = new double[ns.nstate];
      |     ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                   
  751 |     ASSERTfread((char*)ns.state, sizeof(double), ns.nstate, f);
      |     ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
  752 |    }
      |    ~                                                    
  753 |   }
      |   ~                                                     
  754 |  }
      |  ~                                                      
  755 |  int n = 0;
      |  ~~~~~~~~~~                                             
  756 |  ASSERTfgets(buf, 20, f);
      |  ~~~~~~~~~~~~~~~~~~~~~~~~                               
  757 |  sscanf(buf, "%d\n", &n);
      |  ~~~~~~~~~~~~~~~~~~~~~~~~                               
  758 |  assert(n == nacell_);
      |  ~~~~~~~~~~~~~~~~~~~~~                                  
  759 |  for (int i=0, j=0; i < n_memb_func; ++i) if (nrn_is_artificial_[i]) {
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
  760 |   int nt = 0, nc = 0, ns = 0;
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~                           
  761 |   ASSERTfgets(buf, 200, f);
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~                             
  762 |   nrn_assert(sscanf(buf, "%d %d %d\n", &nt, &nc, &ns) == 3);
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
  763 |   assert(nt == i && nc == memb_list[i].nodecount);
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~      
  764 |   assert(ns == nc * ssi[i].size);
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                       
  765 |   acell_[j].ncell = nc;
      |   ~~~~~~~~~~~~~~~~~~~~~                                 
  766 |   acell_[j].state = new double[ns];
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                     
  767 |   ASSERTfread((char*)acell_[j].state, sizeof(double), ns, f);
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
  768 |   ++j;
      |   ~~~~                                                  
  769 |  }
      |  ~                                                      
  770 |  ASSERTfgets(buf, 20, f);
      |  ~~~~~~~~~~~~~~~~~~~~~~~~                               
  771 |  sscanf(buf, "%d\n", &nprs_);
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~                           
  772 |  if (nprs_) {
      |  ~~~~~~~~~~~~                                           
  773 |   prs_ = new PlayRecordSave*[nprs_];
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                    
  774 |   for (int i=0; i < nprs_; ++i) {
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                       
  775 |    prs_[i] = PlayRecord::savestate_read(f);
      |    ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~             
  776 |   }
      |   ~                                                     
  777 |  }
      |  ~                                                      
  778 |  readnet(f);
      |  ~~~~~~~~~~~                                            
  779 |  if (close) {
      |  ~~~~~~~~~~~~                                           
  780 |   ocf->close();
      |   ~~~~~~~~~~~~~                                         
  781 |  }
      |  ~                                                      
  782 | }
      | ~                                                       
  783 | 
      |                                                         
  784 | void SaveState::write(OcFile* ocf, bool close) {
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~        
  785 |  if (!ocf->open(ocf->get_name(), "w")) {
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                
  786 |   hoc_execerror("Couldn't open file for writing:", ocf->get_name());
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
  787 |  }
      |  ~                                                      
  788 |  BinaryMode(ocf)
      |  ~~~~~~~~~~~~~~~                                        
  789 |  FILE* f = ocf->file();
      |  ~~~~~~~~~~~~~~~~~~~~~~                                 
  790 |  fprintf(f, "SaveState binary file version 6.0\n");
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~     
  791 |  ASSERTfwrite((char*)&t_, sizeof(double), 1, f);
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~        
  792 |  fprintf(f, "%d %d\n", nsec_, nroot_);
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                  
  793 |  fwrite_SecState(ss_, nsec_, f);
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                        
  794 |  for (int isec=0; isec < nsec_; ++isec) {
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~               
  795 |   SecState& ss = ss_[isec];
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~                             
  796 |   fwrite_NodeState(ss.ns, ss.nnode, f);
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                 
  797 |   for (int inode = 0; inode < ss.nnode; ++inode) {
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~      
  798 |    NodeState& ns = ss.ns[inode];
      |    ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                        
  799 |    if (ns.nmemb){
      |    ~~~~~~~~~~~~~~                                       
  800 |     ASSERTfwrite((char*)ns.type, sizeof(int), ns.nmemb, f);
      |     ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
  801 |    }
      |    ~                                                    
  802 |    if (ns.nstate) {
      |    ~~~~~~~~~~~~~~~~                                     
  803 |     ASSERTfwrite((char*)ns.state, sizeof(double), ns.nstate, f);
      |     ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
  804 |    }
      |    ~                                                    
  805 |   }
      |   ~                                                     
  806 |   if (ss.root) {
      |   ~~~~~~~~~~~~~~                                        
  807 |    fwrite_NodeState(ss.root, 1, f);
      |    ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                     
  808 |    NodeState& ns = *ss.root;
      |    ~~~~~~~~~~~~~~~~~~~~~~~~~                            
  809 |    if (ns.nmemb){
      |    ~~~~~~~~~~~~~~                                       
  810 |     ASSERTfwrite((char*)ns.type, sizeof(int), ns.nmemb, f);
      |     ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
  811 |    }
      |    ~                                                    
  812 |    if (ns.nstate) {
      |    ~~~~~~~~~~~~~~~~                                     
  813 |     ASSERTfwrite((char*)ns.state, sizeof(double), ns.nstate, f);
      |     ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
  814 |    }
      |    ~                                                    
  815 |   }
      |   ~                                                     
  816 |  }
      |  ~                                                      
  817 |  fprintf(f, "%d\n", nacell_);
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~                           
  818 |  for (int i=0, j=0; i < n_memb_func; ++i) if (nrn_is_artificial_[i]) {
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
  819 |   int sz = acell_[j].ncell * ssi[i].size;
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~               
  820 |   fprintf(f, "%d %d %d\n", acell_[j].type, acell_[j].ncell, sz);
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
  821 |   ASSERTfwrite((char*)acell_[j].state, sizeof(double), sz, f);
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
  822 |   ++j;
      |   ~~~~                                                  
  823 |  }
      |  ~                                                      
  824 |  fprintf(f, "%d\n", nprs_);
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~                             
  825 |  for (int i=0; i < nprs_; ++i) {
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                        
  826 |   fprintf(f, "%d %d\n", prs_[i]->pr_->type(), i);
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~       
  827 |   prs_[i]->savestate_write(f);
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~~                          
  828 |  }
      |  ~                                                      
  829 |  writenet(f);
      |  ~~~~~~~~~~~~                                           
  830 |  if (close) {
      |  ~~~~~~~~~~~~                                           
  831 |   ocf->close();
      |   ~~~~~~~~~~~~~                                         
  832 |  }
      |  ~                                                      
  833 | }
      | ~                                                       
  834 | 
      |                                                         
  835 | void SaveState::savenet() {
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~                             
  836 |  int i, j, n;
      |  ~~~~~~~~~~~~                                           
  837 |  double* w;
      |  ~~~~~~~~~~                                             
  838 |  hoc_Item* q;
      |  ~~~~~~~~~~~~                                           
  839 |  Object* ob;
      |  ~~~~~~~~~~~                                            
  840 |  NetCon* d;
      |  ~~~~~~~~~~                                             
  841 |  PreSyn* ps;
      |  ~~~~~~~~~~~                                            
  842 |  i = 0;
      |  ~~~~~~                                                 
  843 |  ITERATE(q, nct->olist) {
      |  ~~~~~~~~~~~~~~~~~~~~~~~~                               
  844 |   ob = OBJ(q);
      |   ~~~~~~~~~~~~                                          
  845 |   d = (NetCon*)ob->u.this_pointer;
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                      
  846 |   n = ncs_[i].nstate;
      |   ~~~~~~~~~~~~~~~~~~~                                   
  847 |   w = ncs_[i].state;
      |   ~~~~~~~~~~~~~~~~~~                                    
  848 |   for (j=0; j < n; ++j) {
      |   ~~~~~~~~~~~~~~~~~~~~~~~                               
  849 |    w[j] = d->weight_[j];
      |    ~~~~~~~~~~~~~~~~~~~~~                                
  850 |   }
      |   ~                                                     
  851 |   ++i;
      |   ~~~~                                                  
  852 |  }
      |  ~                                                      
  853 |  i = 0;
      |  ~~~~~~                                                 
  854 |  if (net_cvode_instance_psl()) ITERATE(q, net_cvode_instance_psl()) {
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
  855 |   ps = (PreSyn*)VOIDITM(q);
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~                             
  856 |   ps->hi_index_ = i;
      |   ~~~~~~~~~~~~~~~~~~                                    
  857 |   pss_[i].flag = ps->flag_;
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~                             
  858 |   pss_[i].valthresh = ps->valthresh_;
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                   
  859 |   pss_[i].valold = ps->valold_;
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                         
  860 |   pss_[i].told = ps->told_;
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~                             
  861 |   ++i;
      |   ~~~~                                                  
  862 |  }
      |  ~                                                      
  863 |  alloc_tq();
      |  ~~~~~~~~~~~                                            
  864 |  tqcnt_ = 0;
      |  ~~~~~~~~~~~                                            
  865 |  NrnThread* nt;
      |  ~~~~~~~~~~~~~~                                         
  866 |  FOR_THREADS(nt) {
      |  ~~~~~~~~~~~~~~~~~                                      
  867 |   TQueue* tq = net_cvode_instance_event_queue(nt);
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~      
  868 |   this_savestate = this; callback_mode = 1;
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~             
  869 |   tq->forall_callback(tqcallback);
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                      
  870 |  }
      |  ~                                                      
  871 | }
      | ~                                                       
  872 | 
      |                                                         
  873 | void SaveState::tqcount(const TQItem*, int) {
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~           
  874 |  ++tqcnt_;
      |  ~~~~~~~~~                                              
  875 | }
      | ~                                                       
  876 | 
      |                                                         
  877 | void SaveState::tqsave(const TQItem* q, int) {
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~          
  878 |  DiscreteEvent* de = (DiscreteEvent*)q->data_;
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~          
  879 |  tqs_->tdeliver[tqcnt_] = q->t_;
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                        
  880 |  tqs_->items[tqcnt_] = de->savestate_save();
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~            
  881 |  ++tqcnt_;
      |  ~~~~~~~~~                                              
  882 | }
      | ~                                                       
  883 | 
      |                                                         
  884 | void SaveState::restorenet() {
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                          
  885 |  int i, j, n;
      |  ~~~~~~~~~~~~                                           
  886 |  double* w;
      |  ~~~~~~~~~~                                             
  887 |  hoc_Item* q;
      |  ~~~~~~~~~~~~                                           
  888 |  Object* ob;
      |  ~~~~~~~~~~~                                            
  889 |  NetCon* d;
      |  ~~~~~~~~~~                                             
  890 |  PreSyn* ps;
      |  ~~~~~~~~~~~                                            
  891 |  // NetCon's
      |  ~~~~~~~~~~~                                            
  892 |  i = 0;
      |  ~~~~~~                                                 
  893 |  ITERATE(q, nct->olist) {
      |  ~~~~~~~~~~~~~~~~~~~~~~~~                               
  894 |   ob = OBJ(q);
      |   ~~~~~~~~~~~~                                          
  895 |   d = (NetCon*)ob->u.this_pointer;
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                      
  896 |   n = ncs_[i].nstate;
      |   ~~~~~~~~~~~~~~~~~~~                                   
  897 |   w = ncs_[i].state;
      |   ~~~~~~~~~~~~~~~~~~                                    
  898 |   for (j=0; j < n; ++j) {
      |   ~~~~~~~~~~~~~~~~~~~~~~~                               
  899 |    d->weight_[j] = w[j];
      |    ~~~~~~~~~~~~~~~~~~~~~                                
  900 |   }
      |   ~                                                     
  901 |   ++i;
      |   ~~~~                                                  
  902 |  }
      |  ~                                                      
  903 |  // PreSyn's
      |  ~~~~~~~~~~~                                            
  904 |  i = 0;
      |  ~~~~~~                                                 
  905 |  if (net_cvode_instance_psl()) ITERATE(q, net_cvode_instance_psl()) {
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
  906 |   ps = (PreSyn*)VOIDITM(q);
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~                             
  907 |   ps->hi_index_ = i;
      |   ~~~~~~~~~~~~~~~~~~                                    
  908 |   ps->flag_ = pss_[i].flag;
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~                             
  909 |   ps->valthresh_ = pss_[i].valthresh;
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                   
  910 |   ps->valold_ = pss_[i].valold;
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                         
  911 |   ps->told_ = pss_[i].told;
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~                             
  912 |   ++i;
      |   ~~~~                                                  
  913 |  }
      |  ~                                                      
  914 | 
      |                                                         
  915 |  // event queue
      |  ~~~~~~~~~~~~~~                                         
  916 |  // clear it
      |  ~~~~~~~~~~~                                            
  917 |  clear_event_queue();
      |  ~~~~~~~~~~~~~~~~~~~~                                   
  918 |  // restore it
      |  ~~~~~~~~~~~~~                                          
  919 |  n = tqs_->nstate;
      |  ~~~~~~~~~~~~~~~~~                                      
  920 |  for (i=0; i < n; ++i) {
      |  ~~~~~~~~~~~~~~~~~~~~~~~                                
  921 |   tqs_->items[i]->savestate_restore(tqs_->tdeliver[i], net_cvode_instance);
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
  922 |  }
      |  ~                                                      
  923 | }
      | ~                                                       
  924 | 
      |                                                         
  925 | void SaveState::readnet(FILE* f) {
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                      
  926 |  free_tq();
      |  ~~~~~~~~~~                                             
  927 |  char buf[200];
      |  ~~~~~~~~~~~~~~                                         
  928 |  ASSERTfgets(buf, 200, f);
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~                              
  929 |  sscanf(buf, "%d\n", &nncs_);
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~                           
  930 |  if (nncs_ != 0) {
      |  ~~~~~~~~~~~~~~~~~                                      
  931 |   ncs_ = new NetConState[nncs_];
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                        
  932 |  }
      |  ~                                                      
  933 |  int i, n, type;
      |  ~~~~~~~~~~~~~~~                                        
  934 |  for (i=0; i < nncs_; ++i) {
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~                            
  935 |   ASSERTfgets(buf, 200, f);
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~                             
  936 |   sscanf(buf, "%d %d\n", &ncs_[i].object_index, &ncs_[i].nstate);
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
  937 |   if (ncs_[i].nstate) {
      |   ~~~~~~~~~~~~~~~~~~~~~                                 
  938 |    ncs_[i].state = new double[ncs_[i].nstate];
      |    ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~          
  939 |    ASSERTfread((char*)ncs_[i].state, sizeof(double), ncs_[i].nstate, f);
      |    ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
  940 |   }
      |   ~                                                     
  941 |  }
      |  ~                                                      
  942 |  // PreSyn's
      |  ~~~~~~~~~~~                                            
  943 |  ASSERTfgets(buf, 200, f);
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~                              
  944 |  sscanf(buf, "%d\n", &npss_);
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~                           
  945 |  if (npss_ != 0) {
      |  ~~~~~~~~~~~~~~~~~                                      
  946 |   pss_ = new PreSynState[npss_];
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                        
  947 |   ASSERTfread((char*)pss_, sizeof(PreSynState), npss_, f);
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~   
/builddir/build/BUILD/nrn-7.8.1/src/oc/nrnassrt.h:23:33: note: in definition of macro 'nrn_assert'
   23 | #  define nrn_assert(ex) {if (!(ex)){fprintf(stderr,"Assertion failed: file %s, line %d\n", __FILE__,__LINE__);hoc_execerror(#ex, (char *)0);}}
      |                                 ^~
/builddir/build/BUILD/nrn-7.8.1/src/nrniv/savstate.cpp:947:3: note: in expansion of macro 'ASSERTfread'
  947 |   ASSERTfread((char*)pss_, sizeof(PreSynState), npss_, f);
      |   ^~~~~~~~~~~
/builddir/build/BUILD/nrn-7.8.1/src/nrniv/savstate.cpp:33:56: warning: comparison of integer expressions of different signedness: 'size_t' {aka 'long unsigned int'} and 'int' [-Wsign-compare]
   33 | #define ASSERTfread(a,b,c,d) nrn_assert(fread(a,b,c,d) == c)
      |                                         ~~~~~~~~~~~~~~~^~~~~
   34 | #define ASSERTfwrite(a,b,c,d) nrn_assert(fwrite(a,b,c,d) == c)
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
   35 | 
      |                                                         
   36 | class SaveState : public Resource {
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                     
   37 | public:
      | ~~~~~~~                                                 
   38 |  SaveState();
      |  ~~~~~~~~~~~~                                           
   39 |  ~SaveState();
      |  ~~~~~~~~~~~~~                                          
   40 |  virtual void save();
      |  ~~~~~~~~~~~~~~~~~~~~                                   
   41 |  virtual void restore(int type);
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                        
   42 |  virtual void read(OcFile*, bool close);
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                
   43 |  virtual void write(OcFile*, bool close);
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~               
   44 |  struct NodeState {
      |  ~~~~~~~~~~~~~~~~~~                                     
   45 |   double v;
      |   ~~~~~~~~~                                             
   46 |   int nmemb;
      |   ~~~~~~~~~~                                            
   47 |   int* type;
      |   ~~~~~~~~~~                                            
   48 |   int nstate;
      |   ~~~~~~~~~~~                                           
   49 |   double* state;
      |   ~~~~~~~~~~~~~~                                        
   50 |  };
      |  ~~                                                     
   51 |  struct SecState {
      |  ~~~~~~~~~~~~~~~~~                                      
   52 |   Section* sec;
      |   ~~~~~~~~~~~~~                                         
   53 |   int nnode;
      |   ~~~~~~~~~~                                            
   54 |   struct NodeState* ns;
      |   ~~~~~~~~~~~~~~~~~~~~~                                 
   55 |   struct NodeState* root; // non-zero for rootnode
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~      
   56 |  };
      |  ~~                                                     
   57 |  struct StateStructInfo {
      |  ~~~~~~~~~~~~~~~~~~~~~~~~                               
   58 |   int offset;
      |   ~~~~~~~~~~~                                           
   59 |   int size;
      |   ~~~~~~~~~                                             
   60 |  };
      |  ~~                                                     
   61 |  struct ACellState {
      |  ~~~~~~~~~~~~~~~~~~~                                    
   62 |   int type;
      |   ~~~~~~~~~                                             
   63 |   int ncell;
      |   ~~~~~~~~~~                                            
   64 |   double* state;
      |   ~~~~~~~~~~~~~~                                        
   65 |  };
      |  ~~                                                     
   66 |  struct NetConState {
      |  ~~~~~~~~~~~~~~~~~~~~                                   
   67 |   int object_index; // for checking
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                     
   68 |   int nstate;
      |   ~~~~~~~~~~~                                           
   69 |   double* state;
      |   ~~~~~~~~~~~~~~                                        
   70 |  };
      |  ~~                                                     
   71 |  struct PreSynState {
      |  ~~~~~~~~~~~~~~~~~~~~                                   
   72 |   bool flag; // is it firing?
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~                           
   73 |   double valthresh, valold, told;
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                       
   74 | 
      |                                                         
   75 |  };
      |  ~~                                                     
   76 |  struct TQState {
      |  ~~~~~~~~~~~~~~~~                                       
   77 |   int nstate;
      |   ~~~~~~~~~~~                                           
   78 |   double* tdeliver;
      |   ~~~~~~~~~~~~~~~~~                                     
   79 |   DiscreteEvent** items;
      |   ~~~~~~~~~~~~~~~~~~~~~~                                
   80 |  };
      |  ~~                                                     
   81 | private:
      | ~~~~~~~~                                                
   82 |  bool check(bool warn);
      |  ~~~~~~~~~~~~~~~~~~~~~~                                 
   83 |  void alloc();
      |  ~~~~~~~~~~~~~                                          
   84 |  void ssfree();
      |  ~~~~~~~~~~~~~~                                         
   85 |  void ssi_def();
      |  ~~~~~~~~~~~~~~~                                        
   86 | private:
      | ~~~~~~~~                                                
   87 |  void fread_NodeState(NodeState*, int, FILE*);
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~          
   88 |  void fwrite_NodeState(NodeState*, int, FILE*);
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~         
   89 |  void fread_SecState(SecState*, int, FILE*);
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~            
   90 |  void fwrite_SecState(SecState*, int, FILE*);
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~           
   91 | private:
      | ~~~~~~~~                                                
   92 |  double t_;
      |  ~~~~~~~~~~                                             
   93 |  int nroot_;
      |  ~~~~~~~~~~~                                            
   94 |  int nsec_;
      |  ~~~~~~~~~~                                             
   95 |  SecState* ss_;
      |  ~~~~~~~~~~~~~~                                         
   96 |  int nacell_; // number of types
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                        
   97 |  ACellState* acell_;
      |  ~~~~~~~~~~~~~~~~~~~                                    
   98 |  int nncs_;
      |  ~~~~~~~~~~                                             
   99 |  NetConState* ncs_;
      |  ~~~~~~~~~~~~~~~~~~                                     
  100 |  int npss_;
      |  ~~~~~~~~~~                                             
  101 |  PreSynState* pss_;
      |  ~~~~~~~~~~~~~~~~~~                                     
  102 |  TQState* tqs_;
      |  ~~~~~~~~~~~~~~                                         
  103 |  int tqcnt_; // volatile for index of forall_callback
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~   
  104 |  int nprs_;
      |  ~~~~~~~~~~                                             
  105 |  PlayRecordSave** prs_;
      |  ~~~~~~~~~~~~~~~~~~~~~~                                 
  106 |  static StateStructInfo* ssi;
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~                           
  107 |  static cTemplate* nct;
      |  ~~~~~~~~~~~~~~~~~~~~~~                                 
  108 | private:
      | ~~~~~~~~                                                
  109 |  void savenode(NodeState&, Node*);
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                      
  110 |  void restorenode(NodeState&, Node*);
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                   
  111 |  bool checknode(NodeState&, Node*, bool);
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~               
  112 |  void allocnode(NodeState&, Node*);
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                     
  113 | 
      |                                                         
  114 |  void saveacell(ACellState&, int type);
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                 
  115 |  void restoreacell(ACellState&, int type);
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~              
  116 |  bool checkacell(ACellState&, int type, bool);
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~          
  117 |  void allocacell(ACellState&, int type);
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                
  118 | 
      |                                                         
  119 |  void savenet();
      |  ~~~~~~~~~~~~~~~                                        
  120 |  void restorenet();
      |  ~~~~~~~~~~~~~~~~~~                                     
  121 |  void readnet(FILE*);
      |  ~~~~~~~~~~~~~~~~~~~~                                   
  122 |  void writenet(FILE*);
      |  ~~~~~~~~~~~~~~~~~~~~~                                  
  123 |  bool checknet(bool);
      |  ~~~~~~~~~~~~~~~~~~~~                                   
  124 |  void allocnet();
      |  ~~~~~~~~~~~~~~~~                                       
  125 |  void free_tq();
      |  ~~~~~~~~~~~~~~~                                        
  126 |  void alloc_tq();
      |  ~~~~~~~~~~~~~~~~                                       
  127 | public:
      | ~~~~~~~                                                 
  128 |  void tqcount(const TQItem*, int);
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                      
  129 |  void tqsave(const TQItem*, int);
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                       
  130 | };
      | ~~                                                      
  131 | 
      |                                                         
  132 | static SaveState* this_savestate;
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                       
  133 | static int callback_mode;
      | ~~~~~~~~~~~~~~~~~~~~~~~~~                               
  134 | 
      |                                                         
  135 | void tqcallback(const TQItem* tq, int i) {
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~              
  136 |  if (callback_mode == 0) {
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~                              
  137 |   this_savestate->tqcount(tq, i);
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                       
  138 |  }else{
      |  ~~~~~~                                                 
  139 |   this_savestate->tqsave(tq, i);
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                        
  140 |  }
      |  ~                                                      
  141 | }
      | ~                                                       
  142 | 
      |                                                         
  143 | #if __sgi && 0
      | ~~~~~~~~~~~~~~                                          
  144 | // fixed in version 5 of os
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~                             
  145 | StateStructInfo* SaveState::ssi;
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                        
  146 | #else
      | ~~~~~                                                   
  147 | SaveState::StateStructInfo* SaveState::ssi;
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~             
  148 | #endif
      | ~~~~~~                                                  
  149 | cTemplate* SaveState::nct;
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~                              
  150 | 
      |                                                         
  151 | SaveState::SaveState() {
      | ~~~~~~~~~~~~~~~~~~~~~~~~                                
  152 |  int i, j;
      |  ~~~~~~~~~                                              
  153 |  ssi_def();
      |  ~~~~~~~~~~                                             
  154 |  nroot_ = 0;
      |  ~~~~~~~~~~~                                            
  155 |  ss_ = NULL;
      |  ~~~~~~~~~~~                                            
  156 |  nsec_ = 0;
      |  ~~~~~~~~~~                                             
  157 |  nncs_ = 0;
      |  ~~~~~~~~~~                                             
  158 |  ncs_ = NULL;
      |  ~~~~~~~~~~~~                                           
  159 |  npss_ = 0;
      |  ~~~~~~~~~~                                             
  160 |  pss_ = NULL;
      |  ~~~~~~~~~~~~                                           
  161 |  tqs_ = new TQState();
      |  ~~~~~~~~~~~~~~~~~~~~~                                  
  162 |  tqs_->nstate = 0;
      |  ~~~~~~~~~~~~~~~~~                                      
  163 |  nprs_ = 0;
      |  ~~~~~~~~~~                                             
  164 |  prs_ = NULL;
      |  ~~~~~~~~~~~~                                           
  165 |  nacell_ = 0;
      |  ~~~~~~~~~~~~                                           
  166 |  for (i=0; i < n_memb_func; ++i) if (nrn_is_artificial_[i]) {
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
  167 |   ++nacell_;
      |   ~~~~~~~~~~                                            
  168 |  }
      |  ~                                                      
  169 |  acell_ = new ACellState[nacell_];
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                      
  170 |  for (i=0; i < nacell_; ++i) {
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                          
  171 |   acell_[i].ncell = 0;
      |   ~~~~~~~~~~~~~~~~~~~~                                  
  172 |   acell_[i].state = 0;
      |   ~~~~~~~~~~~~~~~~~~~~                                  
  173 |  }
      |  ~                                                      
  174 |  for (i=0, j=0; i < n_memb_func; ++i) if (nrn_is_artificial_[i]) {
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
  175 |   acell_[j].type = i;
      |   ~~~~~~~~~~~~~~~~~~~                                   
  176 |   ++j;
      |   ~~~~                                                  
  177 |  }
      |  ~                                                      
  178 | }
      | ~                                                       
  179 | 
      |                                                         
  180 | SaveState::~SaveState() {
      | ~~~~~~~~~~~~~~~~~~~~~~~~~                               
  181 |  ssfree();
      |  ~~~~~~~~~                                              
  182 |  delete tqs_;
      |  ~~~~~~~~~~~~                                           
  183 |  delete [] acell_;
      |  ~~~~~~~~~~~~~~~~~                                      
  184 | }
      | ~                                                       
  185 | 
      |                                                         
  186 | void SaveState::fread_NodeState(NodeState* ns, int cnt, FILE* f) {
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
  187 |  for (int i=0; i < cnt; ++i) {
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                          
  188 |   ASSERTfread(&ns[i].v, sizeof(double), 1, f);
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~          
  189 |   ASSERTfread(&ns[i].nmemb, sizeof(int), 1, f);
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~         
  190 |   ASSERTfread(&ns[i].nstate, sizeof(int), 1, f);
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~        
  191 |  }
      |  ~                                                      
  192 | }
      | ~                                                       
  193 | void SaveState::fwrite_NodeState(NodeState* ns, int cnt, FILE* f){
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
  194 |  for (int i=0; i < cnt; ++i) {
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                          
  195 |   ASSERTfwrite(&ns[i].v, sizeof(double), 1, f);
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~         
  196 |   ASSERTfwrite(&ns[i].nmemb, sizeof(int), 1, f);
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~        
  197 |   ASSERTfwrite(&ns[i].nstate, sizeof(int), 1, f);
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~       
  198 |  }
      |  ~                                                      
  199 | }
      | ~                                                       
  200 | void SaveState::fread_SecState(SecState* ss, int cnt, FILE* f){
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
  201 |  int b;
      |  ~~~~~~                                                 
  202 |  for (int i=0; i < cnt; ++i) {
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                          
  203 |   ASSERTfread(&ss[i].nnode, sizeof(int), 1, f);
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~         
  204 |   ASSERTfread(&b, sizeof(int), 1, f);
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                   
  205 |   if (b) {
      |   ~~~~~~~~                                              
  206 |    ss[i].root = new NodeState;
      |    ~~~~~~~~~~~~~~~~~~~~~~~~~~~                          
  207 |   }else{
      |   ~~~~~~                                                
  208 |    ss[i].root = 0;
      |    ~~~~~~~~~~~~~~~                                      
  209 |   }
      |   ~                                                     
  210 |  }
      |  ~                                                      
  211 | }
      | ~                                                       
  212 | void SaveState::fwrite_SecState(SecState* ss, int cnt, FILE* f){
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
  213 |  int b;
      |  ~~~~~~                                                 
  214 |  for (int i=0; i < cnt; ++i) {
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                          
  215 |   ASSERTfwrite(&ss[i].nnode, sizeof(int), 1, f);
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~        
  216 |   b = ss[i].root ? 1 : 0;
      |   ~~~~~~~~~~~~~~~~~~~~~~~                               
  217 |   ASSERTfwrite(&b, sizeof(int), 1, f);
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                  
  218 |  }
      |  ~                                                      
  219 | }
      | ~                                                       
  220 | 
      |                                                         
  221 | void SaveState::ssi_def() {
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~                             
  222 |  if (nct) { return; }
      |  ~~~~~~~~~~~~~~~~~~~~                                   
  223 |  Symbol* s = hoc_lookup("NetCon");
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                      
  224 |  nct = s->u.ctemplate;
      |  ~~~~~~~~~~~~~~~~~~~~~                                  
  225 |  ssi = new StateStructInfo[n_memb_func];
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                
  226 |  for (int im=0; im < n_memb_func; ++im) {
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~               
  227 |   ssi[im].offset = -1;
      |   ~~~~~~~~~~~~~~~~~~~~                                  
  228 |   ssi[im].size = 0;
      |   ~~~~~~~~~~~~~~~~~                                     
  229 |   if (!memb_func[im].sym) {
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~                             
  230 |    continue;
      |    ~~~~~~~~~                                            
  231 |   }
      |   ~                                                     
  232 |   NrnProperty* np = new NrnProperty(memb_func[im].sym->name);
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
  233 |   // generally we only save STATE variables. However for
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
  234 |   // models containing a NET_RECEIVE block, we also need to
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
  235 |   // save everything except the parameters
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~              
  236 |   // because they often contain
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                         
  237 |   // logic and analytic state values. Unfortunately, it is often
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
  238 |   // the case that the ASSIGNED variables are not declared as
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
  239 |   // RANGE variables so to avoid missing state, save the whole
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
  240 |   // param array including PARAMETERs.
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                  
  241 |      if  (pnt_receive[im]) {
      |      ~~~~~~~~~~~~~~~~~~~~~~~                            
  242 |   ssi[im].offset = 0;
      |   ~~~~~~~~~~~~~~~~~~~                                   
  243 |   ssi[im].size = np->prop()->param_size;
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                
  244 |      }else{
      |      ~~~~~~                                             
  245 |   int type = STATE;
      |   ~~~~~~~~~~~~~~~~~                                     
  246 |   for (Symbol* sym = np->first_var(); np->more_var(); sym = np->next_var()) {
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
  247 |    if (np->var_type(sym) == type
      |    ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                        
  248 |        || np->var_type(sym) == STATE
      |        ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                    
  249 |        || sym->subtype == _AMBIGUOUS) {
      |        ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                 
  250 |     if (ssi[im].offset < 0) {
      |     ~~~~~~~~~~~~~~~~~~~~~~~~~                           
  251 |      ssi[im].offset = np->prop_index(sym);
      |      ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~              
  252 |     }
      |     ~                                                   
  253 |     ssi[im].size += hoc_total_array_data(sym, 0);
      |     ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~       
  254 |    }
      |    ~                                                    
  255 |   }
      |   ~                                                     
  256 |      }
      |      ~                                                  
  257 |      delete np;
      |      ~~~~~~~~~~                                         
  258 |  }
      |  ~                                                      
  259 | }
      | ~                                                       
  260 | 
      |                                                         
  261 | bool SaveState::check(bool warn) {
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                      
  262 |  hoc_Item* qsec;
      |  ~~~~~~~~~~~~~~~                                        
  263 |  int isec;
      |  ~~~~~~~~~                                              
  264 |  if (nsec_ != section_count) {
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                          
  265 |   if (warn) {
      |   ~~~~~~~~~~~                                           
  266 | fprintf(stderr, "SaveState warning: %d sections exist but saved %d\n",
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
  267 |    section_count, nsec_);
      |    ~~~~~~~~~~~~~~~~~~~~~~                               
  268 |   }
      |   ~                                                     
  269 |   return false;
      |   ~~~~~~~~~~~~~                                         
  270 |  }
      |  ~                                                      
  271 |  if (nroot_ != nrn_global_ncell) {
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                      
  272 |   if (warn) {
      |   ~~~~~~~~~~~                                           
  273 | fprintf(stderr, "SaveState warning: %d cells exist but saved %d\n",
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
  274 |    nrn_global_ncell, nroot_);
      |    ~~~~~~~~~~~~~~~~~~~~~~~~~~                           
  275 |   }
      |   ~                                                     
  276 |   return false;
      |   ~~~~~~~~~~~~~                                         
  277 |  }
      |  ~                                                      
  278 |  if (nsec_ && ss_[0].sec == NULL) { // got the data from a read
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
  279 |   isec = 0; ForAllSections(sec)
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                         
  280 |    ss_[isec].sec = sec;
      |    ~~~~~~~~~~~~~~~~~~~~                                 
  281 |    section_ref(ss_[isec].sec);
      |    ~~~~~~~~~~~~~~~~~~~~~~~~~~~                          
  282 |    ++isec;
      |    ~~~~~~~                                              
  283 |   }
      |   ~                                                     
  284 |  }
      |  ~                                                      
  285 |  for (int i=0, j=0; i < n_memb_func; ++i) if (nrn_is_artificial_[i]) {
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
  286 |   if (!checkacell(acell_[j], i, warn)) {
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                
  287 |    return false;
      |    ~~~~~~~~~~~~~                                        
  288 |   }
      |   ~                                                     
  289 |   ++j;
      |   ~~~~                                                  
  290 |  }
      |  ~                                                      
  291 |  for (int isec=0; isec < nsec_; ++isec) {
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~               
  292 |   SecState& ss = ss_[isec];
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~                             
  293 |   Section* sec = ss.sec;
      |   ~~~~~~~~~~~~~~~~~~~~~~                                
  294 |   if (!sec->prop || sec->nnode != ss.nnode) {
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~           
  295 | if (warn) {
      | ~~~~~~~~~~~                                             
  296 | if (!sec->prop) {
      | ~~~~~~~~~~~~~~~~~                                       
  297 | fprintf(stderr, "SaveState warning: saved section no longer exists\n");
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
  298 | }else{
      | ~~~~~~                                                  
  299 | fprintf(stderr, "SaveState warning: %s has %d nodes but saved %d\n",
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
  300 |     secname(sec), sec->nnode, ss.nnode);
      |     ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                
  301 | }
      | ~                                                       
  302 | }
      | ~                                                       
  303 |    return false;
      |    ~~~~~~~~~~~~~                                        
  304 |   }
      |   ~                                                     
  305 |   for (int inode = 0; inode < ss.nnode; ++inode) {
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~      
  306 |    NodeState& ns = ss.ns[inode];
      |    ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                        
  307 |    Node* nd = sec->pnode[inode];
      |    ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                        
  308 |    int i=0;
      |    ~~~~~~~~                                             
  309 |    Prop* p;
      |    ~~~~~~~~                                             
  310 |    for (p = nd->prop; p; p = p->next) {
      |    ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                 
  311 |     if (ssi[p->type].size == 0) {
      |     ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                       
  312 |      continue;
      |      ~~~~~~~~~                                          
  313 |     }
      |     ~                                                   
  314 |     if (i >= ns.nmemb) {
      |     ~~~~~~~~~~~~~~~~~~~~                                
  315 | if (warn) {
      | ~~~~~~~~~~~                                             
  316 | fprintf(stderr,"SaveState warning: \
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                    
  317 | fewer mechanisms saved than exist at node %d of %s\n",
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~  
  318 |  inode, secname(sec));
      |  ~~~~~~~~~~~~~~~~~~~~~                                  
  319 | }
      | ~                                                       
  320 |      return false;
      |      ~~~~~~~~~~~~~                                      
  321 |     }
      |     ~                                                   
  322 |     if (p->type != ns.type[i]) {
      |     ~~~~~~~~~~~~~~~~~~~~~~~~~~~~                        
  323 | if (warn) {
      | ~~~~~~~~~~~                                             
  324 | fprintf(stderr, "SaveState warning: mechanisms out of order at node %d of %s\n\
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
  325 | saved %s but need %s\n",
      | ~~~~~~~~~~~~~~~~~~~~~~~~                                
  326 | inode, secname(sec), memb_func[i].sym->name, memb_func[p->type].sym->name);
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
  327 | }
      | ~                                                       
  328 |      return false;
      |      ~~~~~~~~~~~~~                                      
  329 |     }
      |     ~                                                   
  330 |     ++i;
      |     ~~~~                                                
  331 |    }
      |    ~                                                    
  332 |    if (i != ns.nmemb) {
      |    ~~~~~~~~~~~~~~~~~~~~                                 
  333 | if (warn) {
      | ~~~~~~~~~~~                                             
  334 | fprintf(stderr, "SaveState warning: more mechanisms saved than exist at node %d of %s\n",
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
  335 |  inode, secname(sec));
      |  ~~~~~~~~~~~~~~~~~~~~~                                  
  336 | }
      | ~                                                       
  337 |     return false;
      |     ~~~~~~~~~~~~~                                       
  338 |    }
      |    ~                                                    
  339 |   }
      |   ~                                                     
  340 |   if (!sec->parentsec || ss.root) {
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                     
  341 |    if (sec->parentsec || !ss.root) {
      |    ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                    
  342 | if (warn) {
      | ~~~~~~~~~~~                                             
  343 | fprintf(stderr, "SaveState warning: Saved section and %s are not both root sections.\n",
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
  344 |  secname(sec));
      |  ~~~~~~~~~~~~~~                                         
  345 | }
      | ~                                                       
  346 |    }
      |    ~                                                    
  347 |    if (!checknode(*ss.root, sec->parentnode, warn)) {
      |    ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~   
  348 |     return false;
      |     ~~~~~~~~~~~~~                                       
  349 |    }
      |    ~                                                    
  350 |   }
      |   ~                                                     
  351 | 
      |                                                         
  352 |  }
      |  ~                                                      
  353 |  if (!checknet(warn)) { return false; }
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                 
  354 |  return true;
      |  ~~~~~~~~~~~~                                           
  355 | }
      | ~                                                       
  356 | 
      |                                                         
  357 | bool SaveState::checknode(NodeState& ns, Node* nd, bool warn) {
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
  358 |  int i=0;
      |  ~~~~~~~~                                               
  359 |  Prop* p;
      |  ~~~~~~~~                                               
  360 |  for (p = nd->prop; p; p = p->next) {
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                   
  361 |   if (ssi[p->type].size == 0) {
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                         
  362 |    continue;
      |    ~~~~~~~~~                                            
  363 |   }
      |   ~                                                     
  364 |   if (i >= ns.nmemb) {
      |   ~~~~~~~~~~~~~~~~~~~~                                  
  365 | if (warn) {
      | ~~~~~~~~~~~                                             
  366 | fprintf(stderr,"SaveState warning: \
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                    
  367 | fewer mechanisms saved than exist at a root node\n");
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~   
  368 | }
      | ~                                                       
  369 |    return false;
      |    ~~~~~~~~~~~~~                                        
  370 |   }
      |   ~                                                     
  371 |   if (p->type != ns.type[i]) {
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~~                          
  372 | if (warn) {
      | ~~~~~~~~~~~                                             
  373 | fprintf(stderr, "SaveState warning: mechanisms out of order at a rootnode\n\
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
  374 | saved %s but need %s\n",
      | ~~~~~~~~~~~~~~~~~~~~~~~~                                
  375 | memb_func[i].sym->name, memb_func[p->type].sym->name);
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~  
  376 | }
      | ~                                                       
  377 |    return false;
      |    ~~~~~~~~~~~~~                                        
  378 |   }
      |   ~                                                     
  379 |   ++i;
      |   ~~~~                                                  
  380 |  }
      |  ~                                                      
  381 |  if (i != ns.nmemb) {
      |  ~~~~~~~~~~~~~~~~~~~~                                   
  382 | if (warn) {
      | ~~~~~~~~~~~                                             
  383 | fprintf(stderr, "SaveState warning: more mechanisms saved than exist at a rootnode\n");
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
  384 | }
      | ~                                                       
  385 |   return false;
      |   ~~~~~~~~~~~~~                                         
  386 |  }
      |  ~                                                      
  387 |  return true;
      |  ~~~~~~~~~~~~                                           
  388 | }
      | ~                                                       
  389 | 
      |                                                         
  390 | bool SaveState::checkacell(ACellState& ac, int type, bool warn) {
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
  391 |  if (memb_list[type].nodecount != ac.ncell) {
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~           
  392 | if (warn) {
      | ~~~~~~~~~~~                                             
  393 | fprintf(stderr, "SaveState warning: different number of %s saved than exist.\n",
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
  394 | memb_func[type].sym->name);
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~                             
  395 | }
      | ~                                                       
  396 |   return false;
      |   ~~~~~~~~~~~~~                                         
  397 |  }
      |  ~                                                      
  398 |  return true;
      |  ~~~~~~~~~~~~                                           
  399 | }
      | ~                                                       
  400 | 
      |                                                         
  401 | void SaveState::alloc() {
      | ~~~~~~~~~~~~~~~~~~~~~~~~~                               
  402 |  ssfree();
      |  ~~~~~~~~~                                              
  403 |  int inode, isec;
      |  ~~~~~~~~~~~~~~~~                                       
  404 |  hoc_Item* qsec;
      |  ~~~~~~~~~~~~~~~                                        
  405 |  nsec_ = section_count;
      |  ~~~~~~~~~~~~~~~~~~~~~~                                 
  406 |  ss_ = new SecState[nsec_];
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~                             
  407 |  nroot_ = 0;
      |  ~~~~~~~~~~~                                            
  408 |  isec = 0;
      |  ~~~~~~~~~                                              
  409 |  ForAllSections(sec)
      |  ~~~~~~~~~~~~~~~~~~~                                    
  410 |   SecState& ss = ss_[isec];
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~                             
  411 |   ss.sec = sec;
      |   ~~~~~~~~~~~~~                                         
  412 |   section_ref(ss.sec);
      |   ~~~~~~~~~~~~~~~~~~~~                                  
  413 |   ss.nnode = ss.sec->nnode;
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~                             
  414 |   ss.ns = new NodeState[ss.nnode];
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                      
  415 |   for (inode = 0; inode < ss.nnode; ++inode) {
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~          
  416 |    Node* nd = ss.sec->pnode[inode];
      |    ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                     
  417 |    NodeState& ns = ss.ns[inode];
      |    ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                        
  418 |    allocnode(ns, nd);
      |    ~~~~~~~~~~~~~~~~~~                                   
  419 |   }
      |   ~                                                     
  420 |   if (!sec->parentsec) {
      |   ~~~~~~~~~~~~~~~~~~~~~~                                
  421 |    assert(sec->parentnode);
      |    ~~~~~~~~~~~~~~~~~~~~~~~~                             
  422 |    ss.root = new NodeState;
      |    ~~~~~~~~~~~~~~~~~~~~~~~~                             
  423 |    allocnode(*ss.root, sec->parentnode);
      |    ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                
  424 |    ++nroot_;
      |    ~~~~~~~~~                                            
  425 |   }else{
      |   ~~~~~~                                                
  426 |    ss.root = 0;
      |    ~~~~~~~~~~~~                                         
  427 |   }
      |   ~                                                     
  428 |   ++isec;
      |   ~~~~~~~                                               
  429 |  }
      |  ~                                                      
  430 |  assert(isec == section_count);
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                         
  431 |  assert(nroot_ == nrn_global_ncell);
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                    
  432 |  for (int i=0, j=0; i < n_memb_func; ++i) if (nrn_is_artificial_[i]) {
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
  433 |   allocacell(acell_[j], i);
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~                             
  434 |   ++j;
      |   ~~~~                                                  
  435 |  }
      |  ~                                                      
  436 |  PlayRecList* prl = net_cvode_instance_prl();
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~           
  437 |  nprs_ = prl->count();
      |  ~~~~~~~~~~~~~~~~~~~~~                                  
  438 |  if (nprs_) {
      |  ~~~~~~~~~~~~                                           
  439 |   prs_ = new PlayRecordSave*[nprs_];
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                    
  440 |  }
      |  ~                                                      
  441 |  allocnet();
      |  ~~~~~~~~~~~                                            
  442 | }
      | ~                                                       
  443 | 
      |                                                         
  444 | void SaveState::allocnode(NodeState& ns, Node* nd) {
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~    
  445 |  ns.nmemb = 0;
      |  ~~~~~~~~~~~~~                                          
  446 |  ns.type = NULL;
      |  ~~~~~~~~~~~~~~~                                        
  447 |  ns.state = NULL;
      |  ~~~~~~~~~~~~~~~~                                       
  448 |  ns.nstate = 0;
      |  ~~~~~~~~~~~~~~                                         
  449 |  Prop* p;
      |  ~~~~~~~~                                               
  450 |  for (p = nd->prop; p; p = p->next) {
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                   
  451 |   if (ssi[p->type].size == 0) {
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                         
  452 |    continue;
      |    ~~~~~~~~~                                            
  453 |   }
      |   ~                                                     
  454 |   ++ns.nmemb;
      |   ~~~~~~~~~~~                                           
  455 |   ns.nstate += ssi[p->type].size;
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                       
  456 |  }
      |  ~                                                      
  457 |  if (ns.nmemb) {
      |  ~~~~~~~~~~~~~~~                                        
  458 |   ns.type = new int[ns.nmemb];
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~~                          
  459 |  }
      |  ~                                                      
  460 |  if (ns.nstate) {
      |  ~~~~~~~~~~~~~~~~                                       
  461 |   ns.state = new double[ns.nstate];
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                     
  462 |  }
      |  ~                                                      
  463 |  int i = 0;
      |  ~~~~~~~~~~                                             
  464 |  for (p = nd->prop; p; p = p->next) {
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                   
  465 |   if (ssi[p->type].size == 0) {
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                         
  466 |    continue;
      |    ~~~~~~~~~                                            
  467 |   }
      |   ~                                                     
  468 |   ns.type[i] = p->type;
      |   ~~~~~~~~~~~~~~~~~~~~~                                 
  469 |   ++i;
      |   ~~~~                                                  
  470 |  }
      |  ~                                                      
  471 | }
      | ~                                                       
  472 | 
      |                                                         
  473 | void SaveState::allocacell(ACellState& ac, int type) {
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~  
  474 |  Memb_list& ml = memb_list[type];
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                       
  475 |  ac.type = type;
      |  ~~~~~~~~~~~~~~~                                        
  476 |  ac.ncell = ml.nodecount;
      |  ~~~~~~~~~~~~~~~~~~~~~~~~                               
  477 |  ac.state = new double[ac.ncell * ssi[type].size];
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~      
  478 | }
      | ~                                                       
  479 | 
      |                                                         
  480 | void SaveState::ssfree() {
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~                              
  481 |  int i, isec, inode;
      |  ~~~~~~~~~~~~~~~~~~~                                    
  482 |  for (isec=0; isec < nsec_; ++isec) {
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                   
  483 |   SecState& ss = ss_[isec];
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~                             
  484 |   for (inode = 0; inode < ss.nnode; ++inode) {
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~          
  485 |    NodeState& ns = ss.ns[inode];
      |    ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                        
  486 |    if (ns.nmemb) {
      |    ~~~~~~~~~~~~~~~                                      
  487 |     delete [] ns.type;
      |     ~~~~~~~~~~~~~~~~~~                                  
  488 |    }
      |    ~                                                    
  489 |    if (ns.nstate) {
      |    ~~~~~~~~~~~~~~~~                                     
  490 |     delete [] ns.state;
      |     ~~~~~~~~~~~~~~~~~~~                                 
  491 |    }
      |    ~                                                    
  492 |   }
      |   ~                                                     
  493 |   if (ss.root) {
      |   ~~~~~~~~~~~~~~                                        
  494 |    NodeState& ns = *ss.root;
      |    ~~~~~~~~~~~~~~~~~~~~~~~~~                            
  495 |    if (ns.nmemb) {
      |    ~~~~~~~~~~~~~~~                                      
  496 |     delete [] ns.type;
      |     ~~~~~~~~~~~~~~~~~~                                  
  497 |    }
      |    ~                                                    
  498 |    if (ns.nstate) {
      |    ~~~~~~~~~~~~~~~~                                     
  499 |     delete [] ns.state;
      |     ~~~~~~~~~~~~~~~~~~~                                 
  500 |    }
      |    ~                                                    
  501 |    delete ss.root;
      |    ~~~~~~~~~~~~~~~                                      
  502 |   }
      |   ~                                                     
  503 |   if (ss.nnode) {
      |   ~~~~~~~~~~~~~~~                                       
  504 |    delete [] ss.ns;
      |    ~~~~~~~~~~~~~~~~                                     
  505 |   }
      |   ~                                                     
  506 |   if (ss.sec) { // got info from an fread but never checked it
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
  507 |    section_unref(ss.sec);
      |    ~~~~~~~~~~~~~~~~~~~~~~                               
  508 |   }
      |   ~                                                     
  509 |  }
      |  ~                                                      
  510 |  if (nsec_) {
      |  ~~~~~~~~~~~~                                           
  511 |   delete [] ss_;
      |   ~~~~~~~~~~~~~~                                        
  512 |  }
      |  ~                                                      
  513 |  nsec_ = 0;
      |  ~~~~~~~~~~                                             
  514 |  ss_ = NULL;
      |  ~~~~~~~~~~~                                            
  515 |  for (i=0; i < nacell_; ++i) {
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                          
  516 |   if (acell_[i].ncell) {
      |   ~~~~~~~~~~~~~~~~~~~~~~                                
  517 |    delete [] acell_[i].state;
      |    ~~~~~~~~~~~~~~~~~~~~~~~~~~                           
  518 |    acell_[i].state = 0;
      |    ~~~~~~~~~~~~~~~~~~~~                                 
  519 |    acell_[i].ncell = 0;
      |    ~~~~~~~~~~~~~~~~~~~~                                 
  520 |   }
      |   ~                                                     
  521 |  } // note we do not destroy the acell_.
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                
  522 |  if (nncs_) {
      |  ~~~~~~~~~~~~                                           
  523 |   for (i = 0; i < nncs_; ++i) {
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                         
  524 |    if (ncs_[i].nstate) {
      |    ~~~~~~~~~~~~~~~~~~~~~                                
  525 |     delete [] ncs_[i].state;
      |     ~~~~~~~~~~~~~~~~~~~~~~~~                            
  526 |    }
      |    ~                                                    
  527 |   }
      |   ~                                                     
  528 |   delete [] ncs_;
      |   ~~~~~~~~~~~~~~~                                       
  529 |  }
      |  ~                                                      
  530 |  nncs_ = 0;
      |  ~~~~~~~~~~                                             
  531 |  ncs_ = NULL;
      |  ~~~~~~~~~~~~                                           
  532 |  if (npss_) {
      |  ~~~~~~~~~~~~                                           
  533 |   delete [] pss_;
      |   ~~~~~~~~~~~~~~~                                       
  534 |  }
      |  ~                                                      
  535 |  npss_ = 0;
      |  ~~~~~~~~~~                                             
  536 |  pss_ = NULL;
      |  ~~~~~~~~~~~~                                           
  537 |  free_tq();
      |  ~~~~~~~~~~                                             
  538 |  if (nprs_) {
      |  ~~~~~~~~~~~~                                           
  539 |   for (i=0; i < nprs_; ++i) {
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~                           
  540 |    delete prs_[i];
      |    ~~~~~~~~~~~~~~~                                      
  541 |   }
      |   ~                                                     
  542 |   delete [] prs_;
      |   ~~~~~~~~~~~~~~~                                       
  543 |  }
      |  ~                                                      
  544 |  nprs_ = 0;
      |  ~~~~~~~~~~                                             
  545 | }
      | ~                                                       
  546 | 
      |                                                         
  547 | void SaveState::save() {
      | ~~~~~~~~~~~~~~~~~~~~~~~~                                
  548 |  NrnThread* nt;
      |  ~~~~~~~~~~~~~~                                         
  549 |  if (!check(false)) {
      |  ~~~~~~~~~~~~~~~~~~~~                                   
  550 |   alloc();
      |   ~~~~~~~~                                              
  551 |  }
      |  ~                                                      
  552 |  FOR_THREADS(nt) {
      |  ~~~~~~~~~~~~~~~~~                                      
  553 |   assert(t == nt->_t);
      |   ~~~~~~~~~~~~~~~~~~~~                                  
  554 |  }
      |  ~                                                      
  555 |  t_ = t;
      |  ~~~~~~~                                                
  556 |  int inode;
      |  ~~~~~~~~~~                                             
  557 |  for (int isec=0; isec < nsec_; ++isec) {
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~               
  558 |   SecState& ss = ss_[isec];
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~                             
  559 |   Section* sec = ss.sec;
      |   ~~~~~~~~~~~~~~~~~~~~~~                                
  560 |   for (inode = 0; inode < ss.nnode; ++inode) {
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~          
  561 |    NodeState& ns = ss.ns[inode];
      |    ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                        
  562 |    Node* nd = sec->pnode[inode];
      |    ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                        
  563 |    savenode(ns, nd);
      |    ~~~~~~~~~~~~~~~~~                                    
  564 |   }
      |   ~                                                     
  565 |   if (ss.root) {
      |   ~~~~~~~~~~~~~~                                        
  566 |    NodeState& ns = *ss.root;
      |    ~~~~~~~~~~~~~~~~~~~~~~~~~                            
  567 |    Node* nd = sec->parentnode;
      |    ~~~~~~~~~~~~~~~~~~~~~~~~~~~                          
  568 |    savenode(ns, nd);
      |    ~~~~~~~~~~~~~~~~~                                    
  569 |   }
      |   ~                                                     
  570 |  }
      |  ~                                                      
  571 |  for (int i=0, j=0; i < n_memb_func; ++i) if (nrn_is_artificial_[i]) {
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
  572 |   saveacell(acell_[j], i);
      |   ~~~~~~~~~~~~~~~~~~~~~~~~                              
  573 |   ++j;
      |   ~~~~                                                  
  574 |  }
      |  ~                                                      
  575 |  if (nprs_) {
      |  ~~~~~~~~~~~~                                           
  576 |   PlayRecList* prl = net_cvode_instance_prl();
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~          
  577 |   int i;
      |   ~~~~~~                                                
  578 |   assert(nprs_ == prl->count());
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                        
  579 |   for (i=0; i < nprs_; ++i) {
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~                           
  580 |    prs_[i] = prl->item(i)->savestate_save();
      |    ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~            
  581 |   }
      |   ~                                                     
  582 |  }
      |  ~                                                      
  583 |  savenet();
      |  ~~~~~~~~~~                                             
  584 | }
      | ~                                                       
  585 | 
      |                                                         
  586 | void SaveState::savenode(NodeState& ns, Node* nd) {
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~     
  587 |  ns.v = NODEV(nd);
      |  ~~~~~~~~~~~~~~~~~                                      
  588 |  int istate = 0;
      |  ~~~~~~~~~~~~~~~                                        
  589 |  Prop* p;
      |  ~~~~~~~~                                               
  590 |  for (p = nd->prop; p; p = p->next) {
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                   
  591 |   if (ssi[p->type].size == 0) {
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                         
  592 |    continue;
      |    ~~~~~~~~~                                            
  593 |   }
      |   ~                                                     
  594 |   int type = p->type;
      |   ~~~~~~~~~~~~~~~~~~~                                   
  595 |   int max = ssi[type].offset + ssi[type].size;
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~          
  596 | #if EXTRACELLULAR
      | ~~~~~~~~~~~~~~~~~                                       
  597 |   if (type == EXTRACELL) {
      |   ~~~~~~~~~~~~~~~~~~~~~~~~                              
  598 |    for (int i=0; i < nlayer; ++i) {
      |    ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                     
  599 |     ns.state[istate++] = nd->extnode->v[i];
      |     ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~             
  600 |    }
      |    ~                                                    
  601 |   }else
      |   ~~~~~                                                 
  602 | #endif
      | ~~~~~~                                                  
  603 |   {
      |   ~                                                     
  604 |    for (int ip=ssi[type].offset; ip < max; ++ip) {
      |    ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~      
  605 |     ns.state[istate++] = p->param[ip];
      |     ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                  
  606 |    }
      |    ~                                                    
  607 |   }
      |   ~                                                     
  608 |  }
      |  ~                                                      
  609 | }
      | ~                                                       
  610 | 
      |                                                         
  611 | void SaveState::saveacell(ACellState& ac, int type) {
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~   
  612 |  Memb_list& ml = memb_list[type];
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                       
  613 |  int sz = ssi[type].size;
      |  ~~~~~~~~~~~~~~~~~~~~~~~~                               
  614 |  double* p = ac.state;
      |  ~~~~~~~~~~~~~~~~~~~~~                                  
  615 |  for (int i = 0; i < ml.nodecount; ++i) {
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~               
  616 |   double* d = ml.data[i];
      |   ~~~~~~~~~~~~~~~~~~~~~~~                               
  617 |   for (int j=0; j < sz; ++j) {
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~~                          
  618 |    (*p++) = d[j];
      |    ~~~~~~~~~~~~~~                                       
  619 |   }
      |   ~                                                     
  620 |  }
      |  ~                                                      
  621 | }
      | ~                                                       
  622 | 
      |                                                         
  623 | void SaveState::restore(int type) {
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                     
  624 |  NrnThread* nt;
      |  ~~~~~~~~~~~~~~                                         
  625 |  if (!check(true)) {
      |  ~~~~~~~~~~~~~~~~~~~                                    
  626 |   hoc_execerror("SaveState:",
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~                           
  627 |   "Stored state inconsistent with current neuron structure");
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
  628 |  }
      |  ~                                                      
  629 |  t = t_;
      |  ~~~~~~~                                                
  630 |  FOR_THREADS(nt) {
      |  ~~~~~~~~~~~~~~~~~                                      
  631 |   nt->_t = t_;
      |   ~~~~~~~~~~~~                                          
  632 |  }
      |  ~                                                      
  633 |  int inode;
      |  ~~~~~~~~~~                                             
  634 |  for (int isec=0; isec < nsec_; ++isec) {
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~               
  635 |   SecState& ss = ss_[isec];
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~                             
  636 |   Section* sec = ss.sec;
      |   ~~~~~~~~~~~~~~~~~~~~~~                                
  637 |   for (inode = 0; inode < ss.nnode; ++inode) {
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~          
  638 |    NodeState& ns = ss.ns[inode];
      |    ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                        
  639 |    Node* nd = sec->pnode[inode];
      |    ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                        
  640 |    restorenode(ns, nd);
      |    ~~~~~~~~~~~~~~~~~~~~                                 
  641 |   }
      |   ~                                                     
  642 |   if (ss.root) {
      |   ~~~~~~~~~~~~~~                                        
  643 |    NodeState& ns = *ss.root;
      |    ~~~~~~~~~~~~~~~~~~~~~~~~~                            
  644 |    Node* nd = sec->parentnode;
      |    ~~~~~~~~~~~~~~~~~~~~~~~~~~~                          
  645 |    restorenode(ns, nd);
      |    ~~~~~~~~~~~~~~~~~~~~                                 
  646 |   }
      |   ~                                                     
  647 |  }
      |  ~                                                      
  648 |  for (int i=0, j=0; i < n_memb_func; ++i) if (nrn_is_artificial_[i]) {
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
  649 |   restoreacell(acell_[j], i);
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~                           
  650 |   ++j;
      |   ~~~~                                                  
  651 |  }
      |  ~                                                      
  652 |  if (type == 1) { return; }
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~                             
  653 |  PlayRecList* prl = net_cvode_instance_prl();
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~           
  654 |  // during a local step the PlayRecList is augmented with GLineRecord
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
  655 |  // assert(nprs_ == prl->count());
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                      
  656 |  assert(nprs_ <= prl->count());
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                         
  657 |  int i;
      |  ~~~~~~                                                 
  658 |  for (i = 0; i < nprs_; ++i) {
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                          
  659 |   prs_[i]->savestate_restore();
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                         
  660 |  }
      |  ~                                                      
  661 |  restorenet();
      |  ~~~~~~~~~~~~~                                          
  662 | }
      | ~                                                       
  663 | 
      |                                                         
  664 | void SaveState::restorenode(NodeState& ns, Node* nd) {
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~  
  665 |  NODEV(nd) = ns.v;;
      |  ~~~~~~~~~~~~~~~~~~                                     
  666 |  int istate = 0;
      |  ~~~~~~~~~~~~~~~                                        
  667 |  Prop* p;
      |  ~~~~~~~~                                               
  668 |  for (p = nd->prop; p; p = p->next) {
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                   
  669 |   if (ssi[p->type].size == 0) {
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                         
  670 |    continue;
      |    ~~~~~~~~~                                            
  671 |   }
      |   ~                                                     
  672 |   int type = p->type;
      |   ~~~~~~~~~~~~~~~~~~~                                   
  673 |   int max = ssi[type].offset + ssi[type].size;
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~          
  674 | #if EXTRACELLULAR
      | ~~~~~~~~~~~~~~~~~                                       
  675 |   if (type == EXTRACELL) {
      |   ~~~~~~~~~~~~~~~~~~~~~~~~                              
  676 |    for (int i=0; i < nlayer; ++i) {
      |    ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                     
  677 |     nd->extnode->v[i] = ns.state[istate++];
      |     ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~             
  678 |    }
      |    ~                                                    
  679 |   }else
      |   ~~~~~                                                 
  680 | #endif
      | ~~~~~~                                                  
  681 |   {
      |   ~                                                     
  682 |    for (int ip=ssi[type].offset; ip < max; ++ip) {
      |    ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~      
  683 |     p->param[ip] = ns.state[istate++];
      |     ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                  
  684 |    }
      |    ~                                                    
  685 |   }
      |   ~                                                     
  686 |  }
      |  ~                                                      
  687 | }
      | ~                                                       
  688 | 
      |                                                         
  689 | void SaveState::restoreacell(ACellState& ac, int type) {
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
  690 |  Memb_list& ml = memb_list[type];
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                       
  691 |  int sz = ssi[type].size;
      |  ~~~~~~~~~~~~~~~~~~~~~~~~                               
  692 |  double* p = ac.state;
      |  ~~~~~~~~~~~~~~~~~~~~~                                  
  693 |  for (int i = 0; i < ml.nodecount; ++i) {
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~               
  694 |   double* d = ml.data[i];
      |   ~~~~~~~~~~~~~~~~~~~~~~~                               
  695 |   for (int j=0; j < sz; ++j) {
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~~                          
  696 |    d[j] = (*p++);
      |    ~~~~~~~~~~~~~~                                       
  697 |   }
      |   ~                                                     
  698 |  }
      |  ~                                                      
  699 | }
      | ~                                                       
  700 | 
      |                                                         
  701 | void SaveState::read(OcFile* ocf, bool close) {
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~         
  702 |  if (!ocf->open(ocf->get_name(), "r")) {
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                
  703 |   hoc_execerror("Couldn't open file for reading:", ocf->get_name());
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
  704 |  }
      |  ~                                                      
  705 |  nrn_shape_update();
      |  ~~~~~~~~~~~~~~~~~~~                                    
  706 |  BinaryMode(ocf)
      |  ~~~~~~~~~~~~~~~                                        
  707 |  FILE* f = ocf->file();
      |  ~~~~~~~~~~~~~~~~~~~~~~                                 
  708 |  ssfree();
      |  ~~~~~~~~~                                              
  709 |  char buf[200];
      |  ~~~~~~~~~~~~~~                                         
  710 |  ASSERTfgets(buf, 200, f);
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~                              
  711 |  if (strcmp(buf, "SaveState binary file version 6.0\n") != 0) {
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
  712 |   ocf->close();
      |   ~~~~~~~~~~~~~                                         
  713 |   hoc_execerror("Bad SaveState binary file", " Not version 6.0");
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
  714 |  }
      |  ~                                                      
  715 |  ASSERTfread((char*)&t_, sizeof(double), 1, f);
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~         
  716 | // fscanf(f, "%d %d\n", &nsec_, &nrootnode_);
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~           
  717 | // on some os's fscanf leaves file pointer at wrong place for next fread
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
  718 | // can check it with ftell(f)
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                           
  719 |  ASSERTfgets(buf, 200, f);
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~                              
  720 |  sscanf(buf, "%d %d\n", &nsec_, &nroot_);
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~               
  721 |  // to enable comparison of SaveState files, we avoid
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~   
  722 |  // putting pointers in the files and instead explicitly read/write
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
  723 |  // structure elements.
      |  ~~~~~~~~~~~~~~~~~~~~~~                                 
  724 |  ss_ = new SecState[nsec_];
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~                             
  725 |  fread_SecState(ss_, nsec_, f);
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                         
  726 |  for (int isec=0; isec < nsec_; ++isec) {
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~               
  727 |   SecState& ss = ss_[isec];
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~                             
  728 |   ss.sec = NULL;
      |   ~~~~~~~~~~~~~~                                        
  729 |   ss.ns = new NodeState[ss.nnode];
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                      
  730 |   fread_NodeState(ss.ns, ss.nnode, f);
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                  
  731 |   for (int inode = 0; inode < ss.nnode; ++inode) {
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~      
  732 |    NodeState& ns = ss.ns[inode];
      |    ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                        
  733 |    if (ns.nmemb) {
      |    ~~~~~~~~~~~~~~~                                      
  734 |     ns.type = new int[ns.nmemb];
      |     ~~~~~~~~~~~~~~~~~~~~~~~~~~~~                        
  735 |     ASSERTfread((char*)ns.type, sizeof(int), ns.nmemb, f);
      |     ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
  736 |    }
      |    ~                                                    
  737 |    if (ns.nstate) {
      |    ~~~~~~~~~~~~~~~~                                     
  738 |     ns.state = new double[ns.nstate];
      |     ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                   
  739 |     ASSERTfread((char*)ns.state, sizeof(double), ns.nstate, f);
      |     ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
  740 |    }
      |    ~                                                    
  741 |   }
      |   ~                                                     
  742 |   if (ss.root) {
      |   ~~~~~~~~~~~~~~                                        
  743 |    fread_NodeState(ss.root, 1, f);
      |    ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                      
  744 |    NodeState& ns = *ss.root;
      |    ~~~~~~~~~~~~~~~~~~~~~~~~~                            
  745 |    if (ns.nmemb) {
      |    ~~~~~~~~~~~~~~~                                      
  746 |     ns.type = new int[ns.nmemb];
      |     ~~~~~~~~~~~~~~~~~~~~~~~~~~~~                        
  747 |     ASSERTfread((char*)ns.type, sizeof(int), ns.nmemb, f);
      |     ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
  748 |    }
      |    ~                                                    
  749 |    if (ns.nstate) {
      |    ~~~~~~~~~~~~~~~~                                     
  750 |     ns.state = new double[ns.nstate];
      |     ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                   
  751 |     ASSERTfread((char*)ns.state, sizeof(double), ns.nstate, f);
      |     ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
  752 |    }
      |    ~                                                    
  753 |   }
      |   ~                                                     
  754 |  }
      |  ~                                                      
  755 |  int n = 0;
      |  ~~~~~~~~~~                                             
  756 |  ASSERTfgets(buf, 20, f);
      |  ~~~~~~~~~~~~~~~~~~~~~~~~                               
  757 |  sscanf(buf, "%d\n", &n);
      |  ~~~~~~~~~~~~~~~~~~~~~~~~                               
  758 |  assert(n == nacell_);
      |  ~~~~~~~~~~~~~~~~~~~~~                                  
  759 |  for (int i=0, j=0; i < n_memb_func; ++i) if (nrn_is_artificial_[i]) {
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
  760 |   int nt = 0, nc = 0, ns = 0;
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~                           
  761 |   ASSERTfgets(buf, 200, f);
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~                             
  762 |   nrn_assert(sscanf(buf, "%d %d %d\n", &nt, &nc, &ns) == 3);
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
  763 |   assert(nt == i && nc == memb_list[i].nodecount);
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~      
  764 |   assert(ns == nc * ssi[i].size);
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                       
  765 |   acell_[j].ncell = nc;
      |   ~~~~~~~~~~~~~~~~~~~~~                                 
  766 |   acell_[j].state = new double[ns];
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                     
  767 |   ASSERTfread((char*)acell_[j].state, sizeof(double), ns, f);
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
  768 |   ++j;
      |   ~~~~                                                  
  769 |  }
      |  ~                                                      
  770 |  ASSERTfgets(buf, 20, f);
      |  ~~~~~~~~~~~~~~~~~~~~~~~~                               
  771 |  sscanf(buf, "%d\n", &nprs_);
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~                           
  772 |  if (nprs_) {
      |  ~~~~~~~~~~~~                                           
  773 |   prs_ = new PlayRecordSave*[nprs_];
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                    
  774 |   for (int i=0; i < nprs_; ++i) {
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                       
  775 |    prs_[i] = PlayRecord::savestate_read(f);
      |    ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~             
  776 |   }
      |   ~                                                     
  777 |  }
      |  ~                                                      
  778 |  readnet(f);
      |  ~~~~~~~~~~~                                            
  779 |  if (close) {
      |  ~~~~~~~~~~~~                                           
  780 |   ocf->close();
      |   ~~~~~~~~~~~~~                                         
  781 |  }
      |  ~                                                      
  782 | }
      | ~                                                       
  783 | 
      |                                                         
  784 | void SaveState::write(OcFile* ocf, bool close) {
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~        
  785 |  if (!ocf->open(ocf->get_name(), "w")) {
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                
  786 |   hoc_execerror("Couldn't open file for writing:", ocf->get_name());
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
  787 |  }
      |  ~                                                      
  788 |  BinaryMode(ocf)
      |  ~~~~~~~~~~~~~~~                                        
  789 |  FILE* f = ocf->file();
      |  ~~~~~~~~~~~~~~~~~~~~~~                                 
  790 |  fprintf(f, "SaveState binary file version 6.0\n");
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~     
  791 |  ASSERTfwrite((char*)&t_, sizeof(double), 1, f);
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~        
  792 |  fprintf(f, "%d %d\n", nsec_, nroot_);
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                  
  793 |  fwrite_SecState(ss_, nsec_, f);
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                        
  794 |  for (int isec=0; isec < nsec_; ++isec) {
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~               
  795 |   SecState& ss = ss_[isec];
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~                             
  796 |   fwrite_NodeState(ss.ns, ss.nnode, f);
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                 
  797 |   for (int inode = 0; inode < ss.nnode; ++inode) {
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~      
  798 |    NodeState& ns = ss.ns[inode];
      |    ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                        
  799 |    if (ns.nmemb){
      |    ~~~~~~~~~~~~~~                                       
  800 |     ASSERTfwrite((char*)ns.type, sizeof(int), ns.nmemb, f);
      |     ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
  801 |    }
      |    ~                                                    
  802 |    if (ns.nstate) {
      |    ~~~~~~~~~~~~~~~~                                     
  803 |     ASSERTfwrite((char*)ns.state, sizeof(double), ns.nstate, f);
      |     ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
  804 |    }
      |    ~                                                    
  805 |   }
      |   ~                                                     
  806 |   if (ss.root) {
      |   ~~~~~~~~~~~~~~                                        
  807 |    fwrite_NodeState(ss.root, 1, f);
      |    ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                     
  808 |    NodeState& ns = *ss.root;
      |    ~~~~~~~~~~~~~~~~~~~~~~~~~                            
  809 |    if (ns.nmemb){
      |    ~~~~~~~~~~~~~~                                       
  810 |     ASSERTfwrite((char*)ns.type, sizeof(int), ns.nmemb, f);
      |     ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
  811 |    }
      |    ~                                                    
  812 |    if (ns.nstate) {
      |    ~~~~~~~~~~~~~~~~                                     
  813 |     ASSERTfwrite((char*)ns.state, sizeof(double), ns.nstate, f);
      |     ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
  814 |    }
      |    ~                                                    
  815 |   }
      |   ~                                                     
  816 |  }
      |  ~                                                      
  817 |  fprintf(f, "%d\n", nacell_);
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~                           
  818 |  for (int i=0, j=0; i < n_memb_func; ++i) if (nrn_is_artificial_[i]) {
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
  819 |   int sz = acell_[j].ncell * ssi[i].size;
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~               
  820 |   fprintf(f, "%d %d %d\n", acell_[j].type, acell_[j].ncell, sz);
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
  821 |   ASSERTfwrite((char*)acell_[j].state, sizeof(double), sz, f);
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
  822 |   ++j;
      |   ~~~~                                                  
  823 |  }
      |  ~                                                      
  824 |  fprintf(f, "%d\n", nprs_);
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~                             
  825 |  for (int i=0; i < nprs_; ++i) {
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                        
  826 |   fprintf(f, "%d %d\n", prs_[i]->pr_->type(), i);
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~       
  827 |   prs_[i]->savestate_write(f);
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~~                          
  828 |  }
      |  ~                                                      
  829 |  writenet(f);
      |  ~~~~~~~~~~~~                                           
  830 |  if (close) {
      |  ~~~~~~~~~~~~                                           
  831 |   ocf->close();
      |   ~~~~~~~~~~~~~                                         
  832 |  }
      |  ~                                                      
  833 | }
      | ~                                                       
  834 | 
      |                                                         
  835 | void SaveState::savenet() {
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~                             
  836 |  int i, j, n;
      |  ~~~~~~~~~~~~                                           
  837 |  double* w;
      |  ~~~~~~~~~~                                             
  838 |  hoc_Item* q;
      |  ~~~~~~~~~~~~                                           
  839 |  Object* ob;
      |  ~~~~~~~~~~~                                            
  840 |  NetCon* d;
      |  ~~~~~~~~~~                                             
  841 |  PreSyn* ps;
      |  ~~~~~~~~~~~                                            
  842 |  i = 0;
      |  ~~~~~~                                                 
  843 |  ITERATE(q, nct->olist) {
      |  ~~~~~~~~~~~~~~~~~~~~~~~~                               
  844 |   ob = OBJ(q);
      |   ~~~~~~~~~~~~                                          
  845 |   d = (NetCon*)ob->u.this_pointer;
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                      
  846 |   n = ncs_[i].nstate;
      |   ~~~~~~~~~~~~~~~~~~~                                   
  847 |   w = ncs_[i].state;
      |   ~~~~~~~~~~~~~~~~~~                                    
  848 |   for (j=0; j < n; ++j) {
      |   ~~~~~~~~~~~~~~~~~~~~~~~                               
  849 |    w[j] = d->weight_[j];
      |    ~~~~~~~~~~~~~~~~~~~~~                                
  850 |   }
      |   ~                                                     
  851 |   ++i;
      |   ~~~~                                                  
  852 |  }
      |  ~                                                      
  853 |  i = 0;
      |  ~~~~~~                                                 
  854 |  if (net_cvode_instance_psl()) ITERATE(q, net_cvode_instance_psl()) {
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
  855 |   ps = (PreSyn*)VOIDITM(q);
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~                             
  856 |   ps->hi_index_ = i;
      |   ~~~~~~~~~~~~~~~~~~                                    
  857 |   pss_[i].flag = ps->flag_;
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~                             
  858 |   pss_[i].valthresh = ps->valthresh_;
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                   
  859 |   pss_[i].valold = ps->valold_;
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                         
  860 |   pss_[i].told = ps->told_;
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~                             
  861 |   ++i;
      |   ~~~~                                                  
  862 |  }
      |  ~                                                      
  863 |  alloc_tq();
      |  ~~~~~~~~~~~                                            
  864 |  tqcnt_ = 0;
      |  ~~~~~~~~~~~                                            
  865 |  NrnThread* nt;
      |  ~~~~~~~~~~~~~~                                         
  866 |  FOR_THREADS(nt) {
      |  ~~~~~~~~~~~~~~~~~                                      
  867 |   TQueue* tq = net_cvode_instance_event_queue(nt);
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~      
  868 |   this_savestate = this; callback_mode = 1;
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~             
  869 |   tq->forall_callback(tqcallback);
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                      
  870 |  }
      |  ~                                                      
  871 | }
      | ~                                                       
  872 | 
      |                                                         
  873 | void SaveState::tqcount(const TQItem*, int) {
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~           
  874 |  ++tqcnt_;
      |  ~~~~~~~~~                                              
  875 | }
      | ~                                                       
  876 | 
      |                                                         
  877 | void SaveState::tqsave(const TQItem* q, int) {
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~          
  878 |  DiscreteEvent* de = (DiscreteEvent*)q->data_;
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~          
  879 |  tqs_->tdeliver[tqcnt_] = q->t_;
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                        
  880 |  tqs_->items[tqcnt_] = de->savestate_save();
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~            
  881 |  ++tqcnt_;
      |  ~~~~~~~~~                                              
  882 | }
      | ~                                                       
  883 | 
      |                                                         
  884 | void SaveState::restorenet() {
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                          
  885 |  int i, j, n;
      |  ~~~~~~~~~~~~                                           
  886 |  double* w;
      |  ~~~~~~~~~~                                             
  887 |  hoc_Item* q;
      |  ~~~~~~~~~~~~                                           
  888 |  Object* ob;
      |  ~~~~~~~~~~~                                            
  889 |  NetCon* d;
      |  ~~~~~~~~~~                                             
  890 |  PreSyn* ps;
      |  ~~~~~~~~~~~                                            
  891 |  // NetCon's
      |  ~~~~~~~~~~~                                            
  892 |  i = 0;
      |  ~~~~~~                                                 
  893 |  ITERATE(q, nct->olist) {
      |  ~~~~~~~~~~~~~~~~~~~~~~~~                               
  894 |   ob = OBJ(q);
      |   ~~~~~~~~~~~~                                          
  895 |   d = (NetCon*)ob->u.this_pointer;
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                      
  896 |   n = ncs_[i].nstate;
      |   ~~~~~~~~~~~~~~~~~~~                                   
  897 |   w = ncs_[i].state;
      |   ~~~~~~~~~~~~~~~~~~                                    
  898 |   for (j=0; j < n; ++j) {
      |   ~~~~~~~~~~~~~~~~~~~~~~~                               
  899 |    d->weight_[j] = w[j];
      |    ~~~~~~~~~~~~~~~~~~~~~                                
  900 |   }
      |   ~                                                     
  901 |   ++i;
      |   ~~~~                                                  
  902 |  }
      |  ~                                                      
  903 |  // PreSyn's
      |  ~~~~~~~~~~~                                            
  904 |  i = 0;
      |  ~~~~~~                                                 
  905 |  if (net_cvode_instance_psl()) ITERATE(q, net_cvode_instance_psl()) {
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
  906 |   ps = (PreSyn*)VOIDITM(q);
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~                             
  907 |   ps->hi_index_ = i;
      |   ~~~~~~~~~~~~~~~~~~                                    
  908 |   ps->flag_ = pss_[i].flag;
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~                             
  909 |   ps->valthresh_ = pss_[i].valthresh;
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                   
  910 |   ps->valold_ = pss_[i].valold;
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                         
  911 |   ps->told_ = pss_[i].told;
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~                             
  912 |   ++i;
      |   ~~~~                                                  
  913 |  }
      |  ~                                                      
  914 | 
      |                                                         
  915 |  // event queue
      |  ~~~~~~~~~~~~~~                                         
  916 |  // clear it
      |  ~~~~~~~~~~~                                            
  917 |  clear_event_queue();
      |  ~~~~~~~~~~~~~~~~~~~~                                   
  918 |  // restore it
      |  ~~~~~~~~~~~~~                                          
  919 |  n = tqs_->nstate;
      |  ~~~~~~~~~~~~~~~~~                                      
  920 |  for (i=0; i < n; ++i) {
      |  ~~~~~~~~~~~~~~~~~~~~~~~                                
  921 |   tqs_->items[i]->savestate_restore(tqs_->tdeliver[i], net_cvode_instance);
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
  922 |  }
      |  ~                                                      
  923 | }
      | ~                                                       
  924 | 
      |                                                         
  925 | void SaveState::readnet(FILE* f) {
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                      
  926 |  free_tq();
      |  ~~~~~~~~~~                                             
  927 |  char buf[200];
      |  ~~~~~~~~~~~~~~                                         
  928 |  ASSERTfgets(buf, 200, f);
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~                              
  929 |  sscanf(buf, "%d\n", &nncs_);
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~                           
  930 |  if (nncs_ != 0) {
      |  ~~~~~~~~~~~~~~~~~                                      
  931 |   ncs_ = new NetConState[nncs_];
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                        
  932 |  }
      |  ~                                                      
  933 |  int i, n, type;
      |  ~~~~~~~~~~~~~~~                                        
  934 |  for (i=0; i < nncs_; ++i) {
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~                            
  935 |   ASSERTfgets(buf, 200, f);
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~                             
  936 |   sscanf(buf, "%d %d\n", &ncs_[i].object_index, &ncs_[i].nstate);
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
  937 |   if (ncs_[i].nstate) {
      |   ~~~~~~~~~~~~~~~~~~~~~                                 
  938 |    ncs_[i].state = new double[ncs_[i].nstate];
      |    ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~          
  939 |    ASSERTfread((char*)ncs_[i].state, sizeof(double), ncs_[i].nstate, f);
      |    ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
  940 |   }
      |   ~                                                     
  941 |  }
      |  ~                                                      
  942 |  // PreSyn's
      |  ~~~~~~~~~~~                                            
  943 |  ASSERTfgets(buf, 200, f);
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~                              
  944 |  sscanf(buf, "%d\n", &npss_);
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~                           
  945 |  if (npss_ != 0) {
      |  ~~~~~~~~~~~~~~~~~                                      
  946 |   pss_ = new PreSynState[npss_];
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                        
  947 |   ASSERTfread((char*)pss_, sizeof(PreSynState), npss_, f);
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
  948 |   PreSyn* ps;
      |   ~~~~~~~~~~~                                           
  949 |   i = 0;
      |   ~~~~~~                                                
  950 |   hoc_Item* q;
      |   ~~~~~~~~~~~~                                          
  951 |   if (net_cvode_instance_psl()) ITERATE(q, net_cvode_instance_psl()) {
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
  952 |    ps = (PreSyn*)VOIDITM(q);
      |    ~~~~~~~~~~~~~~~~~~~~~~~~~                            
  953 |    ps->hi_index_ = i;
      |    ~~~~~~~~~~~~~~~~~~                                   
  954 |    ++i;
      |    ~~~~                                                 
  955 |   }
      |   ~                                                     
  956 |   assert(npss_ == i);
      |   ~~~~~~~~~~~~~~~~~~~                                   
  957 |  }
      |  ~                                                      
  958 | 
      |                                                         
  959 |  ASSERTfgets(buf, 200, f);
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~                              
  960 |  sscanf(buf, "%d\n", &n);
      |  ~~~~~~~~~~~~~~~~~~~~~~~~                               
  961 |  tqs_->nstate = n;
      |  ~~~~~~~~~~~~~~~~~                                      
  962 |  if (n) {
      |  ~~~~~~~~                                               
  963 |   tqs_->items = new DiscreteEvent*[n];
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                  
  964 |   tqs_->tdeliver = new double[n];
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                       
  965 |   ASSERTfread((char*)tqs_->tdeliver, sizeof(double), n, f);
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~  
/builddir/build/BUILD/nrn-7.8.1/src/oc/nrnassrt.h:23:33: note: in definition of macro 'nrn_assert'
   23 | #  define nrn_assert(ex) {if (!(ex)){fprintf(stderr,"Assertion failed: file %s, line %d\n", __FILE__,__LINE__);hoc_execerror(#ex, (char *)0);}}
      |                                 ^~
/builddir/build/BUILD/nrn-7.8.1/src/nrniv/savstate.cpp:965:3: note: in expansion of macro 'ASSERTfread'
  965 |   ASSERTfread((char*)tqs_->tdeliver, sizeof(double), n, f);
      |   ^~~~~~~~~~~
/builddir/build/BUILD/nrn-7.8.1/src/nrniv/savstate.cpp: In member function 'void SaveState::writenet(FILE*)':
/builddir/build/BUILD/nrn-7.8.1/src/nrniv/savstate.cpp:34:58: warning: comparison of integer expressions of different signedness: 'size_t' {aka 'long unsigned int'} and 'int' [-Wsign-compare]
   34 | #define ASSERTfwrite(a,b,c,d) nrn_assert(fwrite(a,b,c,d) == c)
      |                                          ~~~~~~~~~~~~~~~~^~~~~
   35 | 
      |                                                           
   36 | class SaveState : public Resource {
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                       
   37 | public:
      | ~~~~~~~                                                   
   38 |  SaveState();
      |  ~~~~~~~~~~~~                                             
   39 |  ~SaveState();
      |  ~~~~~~~~~~~~~                                            
   40 |  virtual void save();
      |  ~~~~~~~~~~~~~~~~~~~~                                     
   41 |  virtual void restore(int type);
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                          
   42 |  virtual void read(OcFile*, bool close);
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                  
   43 |  virtual void write(OcFile*, bool close);
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                 
   44 |  struct NodeState {
      |  ~~~~~~~~~~~~~~~~~~                                       
   45 |   double v;
      |   ~~~~~~~~~                                               
   46 |   int nmemb;
      |   ~~~~~~~~~~                                              
   47 |   int* type;
      |   ~~~~~~~~~~                                              
   48 |   int nstate;
      |   ~~~~~~~~~~~                                             
   49 |   double* state;
      |   ~~~~~~~~~~~~~~                                          
   50 |  };
      |  ~~                                                       
   51 |  struct SecState {
      |  ~~~~~~~~~~~~~~~~~                                        
   52 |   Section* sec;
      |   ~~~~~~~~~~~~~                                           
   53 |   int nnode;
      |   ~~~~~~~~~~                                              
   54 |   struct NodeState* ns;
      |   ~~~~~~~~~~~~~~~~~~~~~                                   
   55 |   struct NodeState* root; // non-zero for rootnode
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~        
   56 |  };
      |  ~~                                                       
   57 |  struct StateStructInfo {
      |  ~~~~~~~~~~~~~~~~~~~~~~~~                                 
   58 |   int offset;
      |   ~~~~~~~~~~~                                             
   59 |   int size;
      |   ~~~~~~~~~                                               
   60 |  };
      |  ~~                                                       
   61 |  struct ACellState {
      |  ~~~~~~~~~~~~~~~~~~~                                      
   62 |   int type;
      |   ~~~~~~~~~                                               
   63 |   int ncell;
      |   ~~~~~~~~~~                                              
   64 |   double* state;
      |   ~~~~~~~~~~~~~~                                          
   65 |  };
      |  ~~                                                       
   66 |  struct NetConState {
      |  ~~~~~~~~~~~~~~~~~~~~                                     
   67 |   int object_index; // for checking
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                       
   68 |   int nstate;
      |   ~~~~~~~~~~~                                             
   69 |   double* state;
      |   ~~~~~~~~~~~~~~                                          
   70 |  };
      |  ~~                                                       
   71 |  struct PreSynState {
      |  ~~~~~~~~~~~~~~~~~~~~                                     
   72 |   bool flag; // is it firing?
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~                             
   73 |   double valthresh, valold, told;
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                         
   74 | 
      |                                                           
   75 |  };
      |  ~~                                                       
   76 |  struct TQState {
      |  ~~~~~~~~~~~~~~~~                                         
   77 |   int nstate;
      |   ~~~~~~~~~~~                                             
   78 |   double* tdeliver;
      |   ~~~~~~~~~~~~~~~~~                                       
   79 |   DiscreteEvent** items;
      |   ~~~~~~~~~~~~~~~~~~~~~~                                  
   80 |  };
      |  ~~                                                       
   81 | private:
      | ~~~~~~~~                                                  
   82 |  bool check(bool warn);
      |  ~~~~~~~~~~~~~~~~~~~~~~                                   
   83 |  void alloc();
      |  ~~~~~~~~~~~~~                                            
   84 |  void ssfree();
      |  ~~~~~~~~~~~~~~                                           
   85 |  void ssi_def();
      |  ~~~~~~~~~~~~~~~                                          
   86 | private:
      | ~~~~~~~~                                                  
   87 |  void fread_NodeState(NodeState*, int, FILE*);
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~            
   88 |  void fwrite_NodeState(NodeState*, int, FILE*);
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~           
   89 |  void fread_SecState(SecState*, int, FILE*);
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~              
   90 |  void fwrite_SecState(SecState*, int, FILE*);
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~             
   91 | private:
      | ~~~~~~~~                                                  
   92 |  double t_;
      |  ~~~~~~~~~~                                               
   93 |  int nroot_;
      |  ~~~~~~~~~~~                                              
   94 |  int nsec_;
      |  ~~~~~~~~~~                                               
   95 |  SecState* ss_;
      |  ~~~~~~~~~~~~~~                                           
   96 |  int nacell_; // number of types
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                          
   97 |  ACellState* acell_;
      |  ~~~~~~~~~~~~~~~~~~~                                      
   98 |  int nncs_;
      |  ~~~~~~~~~~                                               
   99 |  NetConState* ncs_;
      |  ~~~~~~~~~~~~~~~~~~                                       
  100 |  int npss_;
      |  ~~~~~~~~~~                                               
  101 |  PreSynState* pss_;
      |  ~~~~~~~~~~~~~~~~~~                                       
  102 |  TQState* tqs_;
      |  ~~~~~~~~~~~~~~                                           
  103 |  int tqcnt_; // volatile for index of forall_callback
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~     
  104 |  int nprs_;
      |  ~~~~~~~~~~                                               
  105 |  PlayRecordSave** prs_;
      |  ~~~~~~~~~~~~~~~~~~~~~~                                   
  106 |  static StateStructInfo* ssi;
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~                             
  107 |  static cTemplate* nct;
      |  ~~~~~~~~~~~~~~~~~~~~~~                                   
  108 | private:
      | ~~~~~~~~                                                  
  109 |  void savenode(NodeState&, Node*);
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                        
  110 |  void restorenode(NodeState&, Node*);
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                     
  111 |  bool checknode(NodeState&, Node*, bool);
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                 
  112 |  void allocnode(NodeState&, Node*);
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                       
  113 | 
      |                                                           
  114 |  void saveacell(ACellState&, int type);
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                   
  115 |  void restoreacell(ACellState&, int type);
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                
  116 |  bool checkacell(ACellState&, int type, bool);
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~            
  117 |  void allocacell(ACellState&, int type);
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                  
  118 | 
      |                                                           
  119 |  void savenet();
      |  ~~~~~~~~~~~~~~~                                          
  120 |  void restorenet();
      |  ~~~~~~~~~~~~~~~~~~                                       
  121 |  void readnet(FILE*);
      |  ~~~~~~~~~~~~~~~~~~~~                                     
  122 |  void writenet(FILE*);
      |  ~~~~~~~~~~~~~~~~~~~~~                                    
  123 |  bool checknet(bool);
      |  ~~~~~~~~~~~~~~~~~~~~                                     
  124 |  void allocnet();
      |  ~~~~~~~~~~~~~~~~                                         
  125 |  void free_tq();
      |  ~~~~~~~~~~~~~~~                                          
  126 |  void alloc_tq();
      |  ~~~~~~~~~~~~~~~~                                         
  127 | public:
      | ~~~~~~~                                                   
  128 |  void tqcount(const TQItem*, int);
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                        
  129 |  void tqsave(const TQItem*, int);
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                         
  130 | };
      | ~~                                                        
  131 | 
      |                                                           
  132 | static SaveState* this_savestate;
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                         
  133 | static int callback_mode;
      | ~~~~~~~~~~~~~~~~~~~~~~~~~                                 
  134 | 
      |                                                           
  135 | void tqcallback(const TQItem* tq, int i) {
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                
  136 |  if (callback_mode == 0) {
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~                                
  137 |   this_savestate->tqcount(tq, i);
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                         
  138 |  }else{
      |  ~~~~~~                                                   
  139 |   this_savestate->tqsave(tq, i);
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                          
  140 |  }
      |  ~                                                        
  141 | }
      | ~                                                         
  142 | 
      |                                                           
  143 | #if __sgi && 0
      | ~~~~~~~~~~~~~~                                            
  144 | // fixed in version 5 of os
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~                               
  145 | StateStructInfo* SaveState::ssi;
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                          
  146 | #else
      | ~~~~~                                                     
  147 | SaveState::StateStructInfo* SaveState::ssi;
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~               
  148 | #endif
      | ~~~~~~                                                    
  149 | cTemplate* SaveState::nct;
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~                                
  150 | 
      |                                                           
  151 | SaveState::SaveState() {
      | ~~~~~~~~~~~~~~~~~~~~~~~~                                  
  152 |  int i, j;
      |  ~~~~~~~~~                                                
  153 |  ssi_def();
      |  ~~~~~~~~~~                                               
  154 |  nroot_ = 0;
      |  ~~~~~~~~~~~                                              
  155 |  ss_ = NULL;
      |  ~~~~~~~~~~~                                              
  156 |  nsec_ = 0;
      |  ~~~~~~~~~~                                               
  157 |  nncs_ = 0;
      |  ~~~~~~~~~~                                               
  158 |  ncs_ = NULL;
      |  ~~~~~~~~~~~~                                             
  159 |  npss_ = 0;
      |  ~~~~~~~~~~                                               
  160 |  pss_ = NULL;
      |  ~~~~~~~~~~~~                                             
  161 |  tqs_ = new TQState();
      |  ~~~~~~~~~~~~~~~~~~~~~                                    
  162 |  tqs_->nstate = 0;
      |  ~~~~~~~~~~~~~~~~~                                        
  163 |  nprs_ = 0;
      |  ~~~~~~~~~~                                               
  164 |  prs_ = NULL;
      |  ~~~~~~~~~~~~                                             
  165 |  nacell_ = 0;
      |  ~~~~~~~~~~~~                                             
  166 |  for (i=0; i < n_memb_func; ++i) if (nrn_is_artificial_[i]) {
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
  167 |   ++nacell_;
      |   ~~~~~~~~~~                                              
  168 |  }
      |  ~                                                        
  169 |  acell_ = new ACellState[nacell_];
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                        
  170 |  for (i=0; i < nacell_; ++i) {
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                            
  171 |   acell_[i].ncell = 0;
      |   ~~~~~~~~~~~~~~~~~~~~                                    
  172 |   acell_[i].state = 0;
      |   ~~~~~~~~~~~~~~~~~~~~                                    
  173 |  }
      |  ~                                                        
  174 |  for (i=0, j=0; i < n_memb_func; ++i) if (nrn_is_artificial_[i]) {
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
  175 |   acell_[j].type = i;
      |   ~~~~~~~~~~~~~~~~~~~                                     
  176 |   ++j;
      |   ~~~~                                                    
  177 |  }
      |  ~                                                        
  178 | }
      | ~                                                         
  179 | 
      |                                                           
  180 | SaveState::~SaveState() {
      | ~~~~~~~~~~~~~~~~~~~~~~~~~                                 
  181 |  ssfree();
      |  ~~~~~~~~~                                                
  182 |  delete tqs_;
      |  ~~~~~~~~~~~~                                             
  183 |  delete [] acell_;
      |  ~~~~~~~~~~~~~~~~~                                        
  184 | }
      | ~                                                         
  185 | 
      |                                                           
  186 | void SaveState::fread_NodeState(NodeState* ns, int cnt, FILE* f) {
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
  187 |  for (int i=0; i < cnt; ++i) {
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                            
  188 |   ASSERTfread(&ns[i].v, sizeof(double), 1, f);
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~            
  189 |   ASSERTfread(&ns[i].nmemb, sizeof(int), 1, f);
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~           
  190 |   ASSERTfread(&ns[i].nstate, sizeof(int), 1, f);
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~          
  191 |  }
      |  ~                                                        
  192 | }
      | ~                                                         
  193 | void SaveState::fwrite_NodeState(NodeState* ns, int cnt, FILE* f){
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
  194 |  for (int i=0; i < cnt; ++i) {
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                            
  195 |   ASSERTfwrite(&ns[i].v, sizeof(double), 1, f);
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~           
  196 |   ASSERTfwrite(&ns[i].nmemb, sizeof(int), 1, f);
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~          
  197 |   ASSERTfwrite(&ns[i].nstate, sizeof(int), 1, f);
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~         
  198 |  }
      |  ~                                                        
  199 | }
      | ~                                                         
  200 | void SaveState::fread_SecState(SecState* ss, int cnt, FILE* f){
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
  201 |  int b;
      |  ~~~~~~                                                   
  202 |  for (int i=0; i < cnt; ++i) {
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                            
  203 |   ASSERTfread(&ss[i].nnode, sizeof(int), 1, f);
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~           
  204 |   ASSERTfread(&b, sizeof(int), 1, f);
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                     
  205 |   if (b) {
      |   ~~~~~~~~                                                
  206 |    ss[i].root = new NodeState;
      |    ~~~~~~~~~~~~~~~~~~~~~~~~~~~                            
  207 |   }else{
      |   ~~~~~~                                                  
  208 |    ss[i].root = 0;
      |    ~~~~~~~~~~~~~~~                                        
  209 |   }
      |   ~                                                       
  210 |  }
      |  ~                                                        
  211 | }
      | ~                                                         
  212 | void SaveState::fwrite_SecState(SecState* ss, int cnt, FILE* f){
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
  213 |  int b;
      |  ~~~~~~                                                   
  214 |  for (int i=0; i < cnt; ++i) {
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                            
  215 |   ASSERTfwrite(&ss[i].nnode, sizeof(int), 1, f);
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~          
  216 |   b = ss[i].root ? 1 : 0;
      |   ~~~~~~~~~~~~~~~~~~~~~~~                                 
  217 |   ASSERTfwrite(&b, sizeof(int), 1, f);
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                    
  218 |  }
      |  ~                                                        
  219 | }
      | ~                                                         
  220 | 
      |                                                           
  221 | void SaveState::ssi_def() {
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~                               
  222 |  if (nct) { return; }
      |  ~~~~~~~~~~~~~~~~~~~~                                     
  223 |  Symbol* s = hoc_lookup("NetCon");
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                        
  224 |  nct = s->u.ctemplate;
      |  ~~~~~~~~~~~~~~~~~~~~~                                    
  225 |  ssi = new StateStructInfo[n_memb_func];
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                  
  226 |  for (int im=0; im < n_memb_func; ++im) {
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                 
  227 |   ssi[im].offset = -1;
      |   ~~~~~~~~~~~~~~~~~~~~                                    
  228 |   ssi[im].size = 0;
      |   ~~~~~~~~~~~~~~~~~                                       
  229 |   if (!memb_func[im].sym) {
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~                               
  230 |    continue;
      |    ~~~~~~~~~                                              
  231 |   }
      |   ~                                                       
  232 |   NrnProperty* np = new NrnProperty(memb_func[im].sym->name);
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
  233 |   // generally we only save STATE variables. However for
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~  
  234 |   // models containing a NET_RECEIVE block, we also need to
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
  235 |   // save everything except the parameters
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                
  236 |   // because they often contain
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                           
  237 |   // logic and analytic state values. Unfortunately, it is often
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
  238 |   // the case that the ASSIGNED variables are not declared as
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
  239 |   // RANGE variables so to avoid missing state, save the whole
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
  240 |   // param array including PARAMETERs.
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                    
  241 |      if  (pnt_receive[im]) {
      |      ~~~~~~~~~~~~~~~~~~~~~~~                              
  242 |   ssi[im].offset = 0;
      |   ~~~~~~~~~~~~~~~~~~~                                     
  243 |   ssi[im].size = np->prop()->param_size;
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                  
  244 |      }else{
      |      ~~~~~~                                               
  245 |   int type = STATE;
      |   ~~~~~~~~~~~~~~~~~                                       
  246 |   for (Symbol* sym = np->first_var(); np->more_var(); sym = np->next_var()) {
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
  247 |    if (np->var_type(sym) == type
      |    ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                          
  248 |        || np->var_type(sym) == STATE
      |        ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                      
  249 |        || sym->subtype == _AMBIGUOUS) {
      |        ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                   
  250 |     if (ssi[im].offset < 0) {
      |     ~~~~~~~~~~~~~~~~~~~~~~~~~                             
  251 |      ssi[im].offset = np->prop_index(sym);
      |      ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                
  252 |     }
      |     ~                                                     
  253 |     ssi[im].size += hoc_total_array_data(sym, 0);
      |     ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~         
  254 |    }
      |    ~                                                      
  255 |   }
      |   ~                                                       
  256 |      }
      |      ~                                                    
  257 |      delete np;
      |      ~~~~~~~~~~                                           
  258 |  }
      |  ~                                                        
  259 | }
      | ~                                                         
  260 | 
      |                                                           
  261 | bool SaveState::check(bool warn) {
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                        
  262 |  hoc_Item* qsec;
      |  ~~~~~~~~~~~~~~~                                          
  263 |  int isec;
      |  ~~~~~~~~~                                                
  264 |  if (nsec_ != section_count) {
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                            
  265 |   if (warn) {
      |   ~~~~~~~~~~~                                             
  266 | fprintf(stderr, "SaveState warning: %d sections exist but saved %d\n",
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
  267 |    section_count, nsec_);
      |    ~~~~~~~~~~~~~~~~~~~~~~                                 
  268 |   }
      |   ~                                                       
  269 |   return false;
      |   ~~~~~~~~~~~~~                                           
  270 |  }
      |  ~                                                        
  271 |  if (nroot_ != nrn_global_ncell) {
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                        
  272 |   if (warn) {
      |   ~~~~~~~~~~~                                             
  273 | fprintf(stderr, "SaveState warning: %d cells exist but saved %d\n",
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
  274 |    nrn_global_ncell, nroot_);
      |    ~~~~~~~~~~~~~~~~~~~~~~~~~~                             
  275 |   }
      |   ~                                                       
  276 |   return false;
      |   ~~~~~~~~~~~~~                                           
  277 |  }
      |  ~                                                        
  278 |  if (nsec_ && ss_[0].sec == NULL) { // got the data from a read
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
  279 |   isec = 0; ForAllSections(sec)
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                           
  280 |    ss_[isec].sec = sec;
      |    ~~~~~~~~~~~~~~~~~~~~                                   
  281 |    section_ref(ss_[isec].sec);
      |    ~~~~~~~~~~~~~~~~~~~~~~~~~~~                            
  282 |    ++isec;
      |    ~~~~~~~                                                
  283 |   }
      |   ~                                                       
  284 |  }
      |  ~                                                        
  285 |  for (int i=0, j=0; i < n_memb_func; ++i) if (nrn_is_artificial_[i]) {
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
  286 |   if (!checkacell(acell_[j], i, warn)) {
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                  
  287 |    return false;
      |    ~~~~~~~~~~~~~                                          
  288 |   }
      |   ~                                                       
  289 |   ++j;
      |   ~~~~                                                    
  290 |  }
      |  ~                                                        
  291 |  for (int isec=0; isec < nsec_; ++isec) {
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                 
  292 |   SecState& ss = ss_[isec];
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~                               
  293 |   Section* sec = ss.sec;
      |   ~~~~~~~~~~~~~~~~~~~~~~                                  
  294 |   if (!sec->prop || sec->nnode != ss.nnode) {
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~             
  295 | if (warn) {
      | ~~~~~~~~~~~                                               
  296 | if (!sec->prop) {
      | ~~~~~~~~~~~~~~~~~                                         
  297 | fprintf(stderr, "SaveState warning: saved section no longer exists\n");
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
  298 | }else{
      | ~~~~~~                                                    
  299 | fprintf(stderr, "SaveState warning: %s has %d nodes but saved %d\n",
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
  300 |     secname(sec), sec->nnode, ss.nnode);
      |     ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                  
  301 | }
      | ~                                                         
  302 | }
      | ~                                                         
  303 |    return false;
      |    ~~~~~~~~~~~~~                                          
  304 |   }
      |   ~                                                       
  305 |   for (int inode = 0; inode < ss.nnode; ++inode) {
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~        
  306 |    NodeState& ns = ss.ns[inode];
      |    ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                          
  307 |    Node* nd = sec->pnode[inode];
      |    ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                          
  308 |    int i=0;
      |    ~~~~~~~~                                               
  309 |    Prop* p;
      |    ~~~~~~~~                                               
  310 |    for (p = nd->prop; p; p = p->next) {
      |    ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                   
  311 |     if (ssi[p->type].size == 0) {
      |     ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                         
  312 |      continue;
      |      ~~~~~~~~~                                            
  313 |     }
      |     ~                                                     
  314 |     if (i >= ns.nmemb) {
      |     ~~~~~~~~~~~~~~~~~~~~                                  
  315 | if (warn) {
      | ~~~~~~~~~~~                                               
  316 | fprintf(stderr,"SaveState warning: \
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                      
  317 | fewer mechanisms saved than exist at node %d of %s\n",
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~    
  318 |  inode, secname(sec));
      |  ~~~~~~~~~~~~~~~~~~~~~                                    
  319 | }
      | ~                                                         
  320 |      return false;
      |      ~~~~~~~~~~~~~                                        
  321 |     }
      |     ~                                                     
  322 |     if (p->type != ns.type[i]) {
      |     ~~~~~~~~~~~~~~~~~~~~~~~~~~~~                          
  323 | if (warn) {
      | ~~~~~~~~~~~                                               
  324 | fprintf(stderr, "SaveState warning: mechanisms out of order at node %d of %s\n\
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
  325 | saved %s but need %s\n",
      | ~~~~~~~~~~~~~~~~~~~~~~~~                                  
  326 | inode, secname(sec), memb_func[i].sym->name, memb_func[p->type].sym->name);
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
  327 | }
      | ~                                                         
  328 |      return false;
      |      ~~~~~~~~~~~~~                                        
  329 |     }
      |     ~                                                     
  330 |     ++i;
      |     ~~~~                                                  
  331 |    }
      |    ~                                                      
  332 |    if (i != ns.nmemb) {
      |    ~~~~~~~~~~~~~~~~~~~~                                   
  333 | if (warn) {
      | ~~~~~~~~~~~                                               
  334 | fprintf(stderr, "SaveState warning: more mechanisms saved than exist at node %d of %s\n",
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
  335 |  inode, secname(sec));
      |  ~~~~~~~~~~~~~~~~~~~~~                                    
  336 | }
      | ~                                                         
  337 |     return false;
      |     ~~~~~~~~~~~~~                                         
  338 |    }
      |    ~                                                      
  339 |   }
      |   ~                                                       
  340 |   if (!sec->parentsec || ss.root) {
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                       
  341 |    if (sec->parentsec || !ss.root) {
      |    ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                      
  342 | if (warn) {
      | ~~~~~~~~~~~                                               
  343 | fprintf(stderr, "SaveState warning: Saved section and %s are not both root sections.\n",
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
  344 |  secname(sec));
      |  ~~~~~~~~~~~~~~                                           
  345 | }
      | ~                                                         
  346 |    }
      |    ~                                                      
  347 |    if (!checknode(*ss.root, sec->parentnode, warn)) {
      |    ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~     
  348 |     return false;
      |     ~~~~~~~~~~~~~                                         
  349 |    }
      |    ~                                                      
  350 |   }
      |   ~                                                       
  351 | 
      |                                                           
  352 |  }
      |  ~                                                        
  353 |  if (!checknet(warn)) { return false; }
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                   
  354 |  return true;
      |  ~~~~~~~~~~~~                                             
  355 | }
      | ~                                                         
  356 | 
      |                                                           
  357 | bool SaveState::checknode(NodeState& ns, Node* nd, bool warn) {
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
  358 |  int i=0;
      |  ~~~~~~~~                                                 
  359 |  Prop* p;
      |  ~~~~~~~~                                                 
  360 |  for (p = nd->prop; p; p = p->next) {
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                     
  361 |   if (ssi[p->type].size == 0) {
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                           
  362 |    continue;
      |    ~~~~~~~~~                                              
  363 |   }
      |   ~                                                       
  364 |   if (i >= ns.nmemb) {
      |   ~~~~~~~~~~~~~~~~~~~~                                    
  365 | if (warn) {
      | ~~~~~~~~~~~                                               
  366 | fprintf(stderr,"SaveState warning: \
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                      
  367 | fewer mechanisms saved than exist at a root node\n");
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~     
  368 | }
      | ~                                                         
  369 |    return false;
      |    ~~~~~~~~~~~~~                                          
  370 |   }
      |   ~                                                       
  371 |   if (p->type != ns.type[i]) {
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~~                            
  372 | if (warn) {
      | ~~~~~~~~~~~                                               
  373 | fprintf(stderr, "SaveState warning: mechanisms out of order at a rootnode\n\
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
  374 | saved %s but need %s\n",
      | ~~~~~~~~~~~~~~~~~~~~~~~~                                  
  375 | memb_func[i].sym->name, memb_func[p->type].sym->name);
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~    
  376 | }
      | ~                                                         
  377 |    return false;
      |    ~~~~~~~~~~~~~                                          
  378 |   }
      |   ~                                                       
  379 |   ++i;
      |   ~~~~                                                    
  380 |  }
      |  ~                                                        
  381 |  if (i != ns.nmemb) {
      |  ~~~~~~~~~~~~~~~~~~~~                                     
  382 | if (warn) {
      | ~~~~~~~~~~~                                               
  383 | fprintf(stderr, "SaveState warning: more mechanisms saved than exist at a rootnode\n");
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
  384 | }
      | ~                                                         
  385 |   return false;
      |   ~~~~~~~~~~~~~                                           
  386 |  }
      |  ~                                                        
  387 |  return true;
      |  ~~~~~~~~~~~~                                             
  388 | }
      | ~                                                         
  389 | 
      |                                                           
  390 | bool SaveState::checkacell(ACellState& ac, int type, bool warn) {
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
  391 |  if (memb_list[type].nodecount != ac.ncell) {
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~             
  392 | if (warn) {
      | ~~~~~~~~~~~                                               
  393 | fprintf(stderr, "SaveState warning: different number of %s saved than exist.\n",
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
  394 | memb_func[type].sym->name);
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~                               
  395 | }
      | ~                                                         
  396 |   return false;
      |   ~~~~~~~~~~~~~                                           
  397 |  }
      |  ~                                                        
  398 |  return true;
      |  ~~~~~~~~~~~~                                             
  399 | }
      | ~                                                         
  400 | 
      |                                                           
  401 | void SaveState::alloc() {
      | ~~~~~~~~~~~~~~~~~~~~~~~~~                                 
  402 |  ssfree();
      |  ~~~~~~~~~                                                
  403 |  int inode, isec;
      |  ~~~~~~~~~~~~~~~~                                         
  404 |  hoc_Item* qsec;
      |  ~~~~~~~~~~~~~~~                                          
  405 |  nsec_ = section_count;
      |  ~~~~~~~~~~~~~~~~~~~~~~                                   
  406 |  ss_ = new SecState[nsec_];
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~                               
  407 |  nroot_ = 0;
      |  ~~~~~~~~~~~                                              
  408 |  isec = 0;
      |  ~~~~~~~~~                                                
  409 |  ForAllSections(sec)
      |  ~~~~~~~~~~~~~~~~~~~                                      
  410 |   SecState& ss = ss_[isec];
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~                               
  411 |   ss.sec = sec;
      |   ~~~~~~~~~~~~~                                           
  412 |   section_ref(ss.sec);
      |   ~~~~~~~~~~~~~~~~~~~~                                    
  413 |   ss.nnode = ss.sec->nnode;
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~                               
  414 |   ss.ns = new NodeState[ss.nnode];
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                        
  415 |   for (inode = 0; inode < ss.nnode; ++inode) {
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~            
  416 |    Node* nd = ss.sec->pnode[inode];
      |    ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                       
  417 |    NodeState& ns = ss.ns[inode];
      |    ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                          
  418 |    allocnode(ns, nd);
      |    ~~~~~~~~~~~~~~~~~~                                     
  419 |   }
      |   ~                                                       
  420 |   if (!sec->parentsec) {
      |   ~~~~~~~~~~~~~~~~~~~~~~                                  
  421 |    assert(sec->parentnode);
      |    ~~~~~~~~~~~~~~~~~~~~~~~~                               
  422 |    ss.root = new NodeState;
      |    ~~~~~~~~~~~~~~~~~~~~~~~~                               
  423 |    allocnode(*ss.root, sec->parentnode);
      |    ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                  
  424 |    ++nroot_;
      |    ~~~~~~~~~                                              
  425 |   }else{
      |   ~~~~~~                                                  
  426 |    ss.root = 0;
      |    ~~~~~~~~~~~~                                           
  427 |   }
      |   ~                                                       
  428 |   ++isec;
      |   ~~~~~~~                                                 
  429 |  }
      |  ~                                                        
  430 |  assert(isec == section_count);
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                           
  431 |  assert(nroot_ == nrn_global_ncell);
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                      
  432 |  for (int i=0, j=0; i < n_memb_func; ++i) if (nrn_is_artificial_[i]) {
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
  433 |   allocacell(acell_[j], i);
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~                               
  434 |   ++j;
      |   ~~~~                                                    
  435 |  }
      |  ~                                                        
  436 |  PlayRecList* prl = net_cvode_instance_prl();
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~             
  437 |  nprs_ = prl->count();
      |  ~~~~~~~~~~~~~~~~~~~~~                                    
  438 |  if (nprs_) {
      |  ~~~~~~~~~~~~                                             
  439 |   prs_ = new PlayRecordSave*[nprs_];
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                      
  440 |  }
      |  ~                                                        
  441 |  allocnet();
      |  ~~~~~~~~~~~                                              
  442 | }
      | ~                                                         
  443 | 
      |                                                           
  444 | void SaveState::allocnode(NodeState& ns, Node* nd) {
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~      
  445 |  ns.nmemb = 0;
      |  ~~~~~~~~~~~~~                                            
  446 |  ns.type = NULL;
      |  ~~~~~~~~~~~~~~~                                          
  447 |  ns.state = NULL;
      |  ~~~~~~~~~~~~~~~~                                         
  448 |  ns.nstate = 0;
      |  ~~~~~~~~~~~~~~                                           
  449 |  Prop* p;
      |  ~~~~~~~~                                                 
  450 |  for (p = nd->prop; p; p = p->next) {
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                     
  451 |   if (ssi[p->type].size == 0) {
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                           
  452 |    continue;
      |    ~~~~~~~~~                                              
  453 |   }
      |   ~                                                       
  454 |   ++ns.nmemb;
      |   ~~~~~~~~~~~                                             
  455 |   ns.nstate += ssi[p->type].size;
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                         
  456 |  }
      |  ~                                                        
  457 |  if (ns.nmemb) {
      |  ~~~~~~~~~~~~~~~                                          
  458 |   ns.type = new int[ns.nmemb];
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~~                            
  459 |  }
      |  ~                                                        
  460 |  if (ns.nstate) {
      |  ~~~~~~~~~~~~~~~~                                         
  461 |   ns.state = new double[ns.nstate];
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                       
  462 |  }
      |  ~                                                        
  463 |  int i = 0;
      |  ~~~~~~~~~~                                               
  464 |  for (p = nd->prop; p; p = p->next) {
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                     
  465 |   if (ssi[p->type].size == 0) {
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                           
  466 |    continue;
      |    ~~~~~~~~~                                              
  467 |   }
      |   ~                                                       
  468 |   ns.type[i] = p->type;
      |   ~~~~~~~~~~~~~~~~~~~~~                                   
  469 |   ++i;
      |   ~~~~                                                    
  470 |  }
      |  ~                                                        
  471 | }
      | ~                                                         
  472 | 
      |                                                           
  473 | void SaveState::allocacell(ACellState& ac, int type) {
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~    
  474 |  Memb_list& ml = memb_list[type];
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                         
  475 |  ac.type = type;
      |  ~~~~~~~~~~~~~~~                                          
  476 |  ac.ncell = ml.nodecount;
      |  ~~~~~~~~~~~~~~~~~~~~~~~~                                 
  477 |  ac.state = new double[ac.ncell * ssi[type].size];
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~        
  478 | }
      | ~                                                         
  479 | 
      |                                                           
  480 | void SaveState::ssfree() {
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~                                
  481 |  int i, isec, inode;
      |  ~~~~~~~~~~~~~~~~~~~                                      
  482 |  for (isec=0; isec < nsec_; ++isec) {
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                     
  483 |   SecState& ss = ss_[isec];
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~                               
  484 |   for (inode = 0; inode < ss.nnode; ++inode) {
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~            
  485 |    NodeState& ns = ss.ns[inode];
      |    ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                          
  486 |    if (ns.nmemb) {
      |    ~~~~~~~~~~~~~~~                                        
  487 |     delete [] ns.type;
      |     ~~~~~~~~~~~~~~~~~~                                    
  488 |    }
      |    ~                                                      
  489 |    if (ns.nstate) {
      |    ~~~~~~~~~~~~~~~~                                       
  490 |     delete [] ns.state;
      |     ~~~~~~~~~~~~~~~~~~~                                   
  491 |    }
      |    ~                                                      
  492 |   }
      |   ~                                                       
  493 |   if (ss.root) {
      |   ~~~~~~~~~~~~~~                                          
  494 |    NodeState& ns = *ss.root;
      |    ~~~~~~~~~~~~~~~~~~~~~~~~~                              
  495 |    if (ns.nmemb) {
      |    ~~~~~~~~~~~~~~~                                        
  496 |     delete [] ns.type;
      |     ~~~~~~~~~~~~~~~~~~                                    
  497 |    }
      |    ~                                                      
  498 |    if (ns.nstate) {
      |    ~~~~~~~~~~~~~~~~                                       
  499 |     delete [] ns.state;
      |     ~~~~~~~~~~~~~~~~~~~                                   
  500 |    }
      |    ~                                                      
  501 |    delete ss.root;
      |    ~~~~~~~~~~~~~~~                                        
  502 |   }
      |   ~                                                       
  503 |   if (ss.nnode) {
      |   ~~~~~~~~~~~~~~~                                         
  504 |    delete [] ss.ns;
      |    ~~~~~~~~~~~~~~~~                                       
  505 |   }
      |   ~                                                       
  506 |   if (ss.sec) { // got info from an fread but never checked it
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
  507 |    section_unref(ss.sec);
      |    ~~~~~~~~~~~~~~~~~~~~~~                                 
  508 |   }
      |   ~                                                       
  509 |  }
      |  ~                                                        
  510 |  if (nsec_) {
      |  ~~~~~~~~~~~~                                             
  511 |   delete [] ss_;
      |   ~~~~~~~~~~~~~~                                          
  512 |  }
      |  ~                                                        
  513 |  nsec_ = 0;
      |  ~~~~~~~~~~                                               
  514 |  ss_ = NULL;
      |  ~~~~~~~~~~~                                              
  515 |  for (i=0; i < nacell_; ++i) {
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                            
  516 |   if (acell_[i].ncell) {
      |   ~~~~~~~~~~~~~~~~~~~~~~                                  
  517 |    delete [] acell_[i].state;
      |    ~~~~~~~~~~~~~~~~~~~~~~~~~~                             
  518 |    acell_[i].state = 0;
      |    ~~~~~~~~~~~~~~~~~~~~                                   
  519 |    acell_[i].ncell = 0;
      |    ~~~~~~~~~~~~~~~~~~~~                                   
  520 |   }
      |   ~                                                       
  521 |  } // note we do not destroy the acell_.
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                  
  522 |  if (nncs_) {
      |  ~~~~~~~~~~~~                                             
  523 |   for (i = 0; i < nncs_; ++i) {
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                           
  524 |    if (ncs_[i].nstate) {
      |    ~~~~~~~~~~~~~~~~~~~~~                                  
  525 |     delete [] ncs_[i].state;
      |     ~~~~~~~~~~~~~~~~~~~~~~~~                              
  526 |    }
      |    ~                                                      
  527 |   }
      |   ~                                                       
  528 |   delete [] ncs_;
      |   ~~~~~~~~~~~~~~~                                         
  529 |  }
      |  ~                                                        
  530 |  nncs_ = 0;
      |  ~~~~~~~~~~                                               
  531 |  ncs_ = NULL;
      |  ~~~~~~~~~~~~                                             
  532 |  if (npss_) {
      |  ~~~~~~~~~~~~                                             
  533 |   delete [] pss_;
      |   ~~~~~~~~~~~~~~~                                         
  534 |  }
      |  ~                                                        
  535 |  npss_ = 0;
      |  ~~~~~~~~~~                                               
  536 |  pss_ = NULL;
      |  ~~~~~~~~~~~~                                             
  537 |  free_tq();
      |  ~~~~~~~~~~                                               
  538 |  if (nprs_) {
      |  ~~~~~~~~~~~~                                             
  539 |   for (i=0; i < nprs_; ++i) {
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~                             
  540 |    delete prs_[i];
      |    ~~~~~~~~~~~~~~~                                        
  541 |   }
      |   ~                                                       
  542 |   delete [] prs_;
      |   ~~~~~~~~~~~~~~~                                         
  543 |  }
      |  ~                                                        
  544 |  nprs_ = 0;
      |  ~~~~~~~~~~                                               
  545 | }
      | ~                                                         
  546 | 
      |                                                           
  547 | void SaveState::save() {
      | ~~~~~~~~~~~~~~~~~~~~~~~~                                  
  548 |  NrnThread* nt;
      |  ~~~~~~~~~~~~~~                                           
  549 |  if (!check(false)) {
      |  ~~~~~~~~~~~~~~~~~~~~                                     
  550 |   alloc();
      |   ~~~~~~~~                                                
  551 |  }
      |  ~                                                        
  552 |  FOR_THREADS(nt) {
      |  ~~~~~~~~~~~~~~~~~                                        
  553 |   assert(t == nt->_t);
      |   ~~~~~~~~~~~~~~~~~~~~                                    
  554 |  }
      |  ~                                                        
  555 |  t_ = t;
      |  ~~~~~~~                                                  
  556 |  int inode;
      |  ~~~~~~~~~~                                               
  557 |  for (int isec=0; isec < nsec_; ++isec) {
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                 
  558 |   SecState& ss = ss_[isec];
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~                               
  559 |   Section* sec = ss.sec;
      |   ~~~~~~~~~~~~~~~~~~~~~~                                  
  560 |   for (inode = 0; inode < ss.nnode; ++inode) {
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~            
  561 |    NodeState& ns = ss.ns[inode];
      |    ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                          
  562 |    Node* nd = sec->pnode[inode];
      |    ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                          
  563 |    savenode(ns, nd);
      |    ~~~~~~~~~~~~~~~~~                                      
  564 |   }
      |   ~                                                       
  565 |   if (ss.root) {
      |   ~~~~~~~~~~~~~~                                          
  566 |    NodeState& ns = *ss.root;
      |    ~~~~~~~~~~~~~~~~~~~~~~~~~                              
  567 |    Node* nd = sec->parentnode;
      |    ~~~~~~~~~~~~~~~~~~~~~~~~~~~                            
  568 |    savenode(ns, nd);
      |    ~~~~~~~~~~~~~~~~~                                      
  569 |   }
      |   ~                                                       
  570 |  }
      |  ~                                                        
  571 |  for (int i=0, j=0; i < n_memb_func; ++i) if (nrn_is_artificial_[i]) {
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
  572 |   saveacell(acell_[j], i);
      |   ~~~~~~~~~~~~~~~~~~~~~~~~                                
  573 |   ++j;
      |   ~~~~                                                    
  574 |  }
      |  ~                                                        
  575 |  if (nprs_) {
      |  ~~~~~~~~~~~~                                             
  576 |   PlayRecList* prl = net_cvode_instance_prl();
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~            
  577 |   int i;
      |   ~~~~~~                                                  
  578 |   assert(nprs_ == prl->count());
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                          
  579 |   for (i=0; i < nprs_; ++i) {
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~                             
  580 |    prs_[i] = prl->item(i)->savestate_save();
      |    ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~              
  581 |   }
      |   ~                                                       
  582 |  }
      |  ~                                                        
  583 |  savenet();
      |  ~~~~~~~~~~                                               
  584 | }
      | ~                                                         
  585 | 
      |                                                           
  586 | void SaveState::savenode(NodeState& ns, Node* nd) {
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~       
  587 |  ns.v = NODEV(nd);
      |  ~~~~~~~~~~~~~~~~~                                        
  588 |  int istate = 0;
      |  ~~~~~~~~~~~~~~~                                          
  589 |  Prop* p;
      |  ~~~~~~~~                                                 
  590 |  for (p = nd->prop; p; p = p->next) {
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                     
  591 |   if (ssi[p->type].size == 0) {
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                           
  592 |    continue;
      |    ~~~~~~~~~                                              
  593 |   }
      |   ~                                                       
  594 |   int type = p->type;
      |   ~~~~~~~~~~~~~~~~~~~                                     
  595 |   int max = ssi[type].offset + ssi[type].size;
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~            
  596 | #if EXTRACELLULAR
      | ~~~~~~~~~~~~~~~~~                                         
  597 |   if (type == EXTRACELL) {
      |   ~~~~~~~~~~~~~~~~~~~~~~~~                                
  598 |    for (int i=0; i < nlayer; ++i) {
      |    ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                       
  599 |     ns.state[istate++] = nd->extnode->v[i];
      |     ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~               
  600 |    }
      |    ~                                                      
  601 |   }else
      |   ~~~~~                                                   
  602 | #endif
      | ~~~~~~                                                    
  603 |   {
      |   ~                                                       
  604 |    for (int ip=ssi[type].offset; ip < max; ++ip) {
      |    ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~        
  605 |     ns.state[istate++] = p->param[ip];
      |     ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                    
  606 |    }
      |    ~                                                      
  607 |   }
      |   ~                                                       
  608 |  }
      |  ~                                                        
  609 | }
      | ~                                                         
  610 | 
      |                                                           
  611 | void SaveState::saveacell(ACellState& ac, int type) {
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~     
  612 |  Memb_list& ml = memb_list[type];
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                         
  613 |  int sz = ssi[type].size;
      |  ~~~~~~~~~~~~~~~~~~~~~~~~                                 
  614 |  double* p = ac.state;
      |  ~~~~~~~~~~~~~~~~~~~~~                                    
  615 |  for (int i = 0; i < ml.nodecount; ++i) {
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                 
  616 |   double* d = ml.data[i];
      |   ~~~~~~~~~~~~~~~~~~~~~~~                                 
  617 |   for (int j=0; j < sz; ++j) {
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~~                            
  618 |    (*p++) = d[j];
      |    ~~~~~~~~~~~~~~                                         
  619 |   }
      |   ~                                                       
  620 |  }
      |  ~                                                        
  621 | }
      | ~                                                         
  622 | 
      |                                                           
  623 | void SaveState::restore(int type) {
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                       
  624 |  NrnThread* nt;
      |  ~~~~~~~~~~~~~~                                           
  625 |  if (!check(true)) {
      |  ~~~~~~~~~~~~~~~~~~~                                      
  626 |   hoc_execerror("SaveState:",
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~                             
  627 |   "Stored state inconsistent with current neuron structure");
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
  628 |  }
      |  ~                                                        
  629 |  t = t_;
      |  ~~~~~~~                                                  
  630 |  FOR_THREADS(nt) {
      |  ~~~~~~~~~~~~~~~~~                                        
  631 |   nt->_t = t_;
      |   ~~~~~~~~~~~~                                            
  632 |  }
      |  ~                                                        
  633 |  int inode;
      |  ~~~~~~~~~~                                               
  634 |  for (int isec=0; isec < nsec_; ++isec) {
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                 
  635 |   SecState& ss = ss_[isec];
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~                               
  636 |   Section* sec = ss.sec;
      |   ~~~~~~~~~~~~~~~~~~~~~~                                  
  637 |   for (inode = 0; inode < ss.nnode; ++inode) {
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~            
  638 |    NodeState& ns = ss.ns[inode];
      |    ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                          
  639 |    Node* nd = sec->pnode[inode];
      |    ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                          
  640 |    restorenode(ns, nd);
      |    ~~~~~~~~~~~~~~~~~~~~                                   
  641 |   }
      |   ~                                                       
  642 |   if (ss.root) {
      |   ~~~~~~~~~~~~~~                                          
  643 |    NodeState& ns = *ss.root;
      |    ~~~~~~~~~~~~~~~~~~~~~~~~~                              
  644 |    Node* nd = sec->parentnode;
      |    ~~~~~~~~~~~~~~~~~~~~~~~~~~~                            
  645 |    restorenode(ns, nd);
      |    ~~~~~~~~~~~~~~~~~~~~                                   
  646 |   }
      |   ~                                                       
  647 |  }
      |  ~                                                        
  648 |  for (int i=0, j=0; i < n_memb_func; ++i) if (nrn_is_artificial_[i]) {
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
  649 |   restoreacell(acell_[j], i);
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~                             
  650 |   ++j;
      |   ~~~~                                                    
  651 |  }
      |  ~                                                        
  652 |  if (type == 1) { return; }
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~                               
  653 |  PlayRecList* prl = net_cvode_instance_prl();
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~             
  654 |  // during a local step the PlayRecList is augmented with GLineRecord
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
  655 |  // assert(nprs_ == prl->count());
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                        
  656 |  assert(nprs_ <= prl->count());
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                           
  657 |  int i;
      |  ~~~~~~                                                   
  658 |  for (i = 0; i < nprs_; ++i) {
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                            
  659 |   prs_[i]->savestate_restore();
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                           
  660 |  }
      |  ~                                                        
  661 |  restorenet();
      |  ~~~~~~~~~~~~~                                            
  662 | }
      | ~                                                         
  663 | 
      |                                                           
  664 | void SaveState::restorenode(NodeState& ns, Node* nd) {
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~    
  665 |  NODEV(nd) = ns.v;;
      |  ~~~~~~~~~~~~~~~~~~                                       
  666 |  int istate = 0;
      |  ~~~~~~~~~~~~~~~                                          
  667 |  Prop* p;
      |  ~~~~~~~~                                                 
  668 |  for (p = nd->prop; p; p = p->next) {
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                     
  669 |   if (ssi[p->type].size == 0) {
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                           
  670 |    continue;
      |    ~~~~~~~~~                                              
  671 |   }
      |   ~                                                       
  672 |   int type = p->type;
      |   ~~~~~~~~~~~~~~~~~~~                                     
  673 |   int max = ssi[type].offset + ssi[type].size;
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~            
  674 | #if EXTRACELLULAR
      | ~~~~~~~~~~~~~~~~~                                         
  675 |   if (type == EXTRACELL) {
      |   ~~~~~~~~~~~~~~~~~~~~~~~~                                
  676 |    for (int i=0; i < nlayer; ++i) {
      |    ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                       
  677 |     nd->extnode->v[i] = ns.state[istate++];
      |     ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~               
  678 |    }
      |    ~                                                      
  679 |   }else
      |   ~~~~~                                                   
  680 | #endif
      | ~~~~~~                                                    
  681 |   {
      |   ~                                                       
  682 |    for (int ip=ssi[type].offset; ip < max; ++ip) {
      |    ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~        
  683 |     p->param[ip] = ns.state[istate++];
      |     ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                    
  684 |    }
      |    ~                                                      
  685 |   }
      |   ~                                                       
  686 |  }
      |  ~                                                        
  687 | }
      | ~                                                         
  688 | 
      |                                                           
  689 | void SaveState::restoreacell(ACellState& ac, int type) {
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~  
  690 |  Memb_list& ml = memb_list[type];
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                         
  691 |  int sz = ssi[type].size;
      |  ~~~~~~~~~~~~~~~~~~~~~~~~                                 
  692 |  double* p = ac.state;
      |  ~~~~~~~~~~~~~~~~~~~~~                                    
  693 |  for (int i = 0; i < ml.nodecount; ++i) {
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                 
  694 |   double* d = ml.data[i];
      |   ~~~~~~~~~~~~~~~~~~~~~~~                                 
  695 |   for (int j=0; j < sz; ++j) {
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~~                            
  696 |    d[j] = (*p++);
      |    ~~~~~~~~~~~~~~                                         
  697 |   }
      |   ~                                                       
  698 |  }
      |  ~                                                        
  699 | }
      | ~                                                         
  700 | 
      |                                                           
  701 | void SaveState::read(OcFile* ocf, bool close) {
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~           
  702 |  if (!ocf->open(ocf->get_name(), "r")) {
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                  
  703 |   hoc_execerror("Couldn't open file for reading:", ocf->get_name());
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
  704 |  }
      |  ~                                                        
  705 |  nrn_shape_update();
      |  ~~~~~~~~~~~~~~~~~~~                                      
  706 |  BinaryMode(ocf)
      |  ~~~~~~~~~~~~~~~                                          
  707 |  FILE* f = ocf->file();
      |  ~~~~~~~~~~~~~~~~~~~~~~                                   
  708 |  ssfree();
      |  ~~~~~~~~~                                                
  709 |  char buf[200];
      |  ~~~~~~~~~~~~~~                                           
  710 |  ASSERTfgets(buf, 200, f);
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~                                
  711 |  if (strcmp(buf, "SaveState binary file version 6.0\n") != 0) {
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
  712 |   ocf->close();
      |   ~~~~~~~~~~~~~                                           
  713 |   hoc_execerror("Bad SaveState binary file", " Not version 6.0");
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
  714 |  }
      |  ~                                                        
  715 |  ASSERTfread((char*)&t_, sizeof(double), 1, f);
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~           
  716 | // fscanf(f, "%d %d\n", &nsec_, &nrootnode_);
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~             
  717 | // on some os's fscanf leaves file pointer at wrong place for next fread
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
  718 | // can check it with ftell(f)
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                             
  719 |  ASSERTfgets(buf, 200, f);
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~                                
  720 |  sscanf(buf, "%d %d\n", &nsec_, &nroot_);
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                 
  721 |  // to enable comparison of SaveState files, we avoid
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~     
  722 |  // putting pointers in the files and instead explicitly read/write
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
  723 |  // structure elements.
      |  ~~~~~~~~~~~~~~~~~~~~~~                                   
  724 |  ss_ = new SecState[nsec_];
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~                               
  725 |  fread_SecState(ss_, nsec_, f);
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                           
  726 |  for (int isec=0; isec < nsec_; ++isec) {
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                 
  727 |   SecState& ss = ss_[isec];
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~                               
  728 |   ss.sec = NULL;
      |   ~~~~~~~~~~~~~~                                          
  729 |   ss.ns = new NodeState[ss.nnode];
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                        
  730 |   fread_NodeState(ss.ns, ss.nnode, f);
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                    
  731 |   for (int inode = 0; inode < ss.nnode; ++inode) {
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~        
  732 |    NodeState& ns = ss.ns[inode];
      |    ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                          
  733 |    if (ns.nmemb) {
      |    ~~~~~~~~~~~~~~~                                        
  734 |     ns.type = new int[ns.nmemb];
      |     ~~~~~~~~~~~~~~~~~~~~~~~~~~~~                          
  735 |     ASSERTfread((char*)ns.type, sizeof(int), ns.nmemb, f);
      |     ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
  736 |    }
      |    ~                                                      
  737 |    if (ns.nstate) {
      |    ~~~~~~~~~~~~~~~~                                       
  738 |     ns.state = new double[ns.nstate];
      |     ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                     
  739 |     ASSERTfread((char*)ns.state, sizeof(double), ns.nstate, f);
      |     ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
  740 |    }
      |    ~                                                      
  741 |   }
      |   ~                                                       
  742 |   if (ss.root) {
      |   ~~~~~~~~~~~~~~                                          
  743 |    fread_NodeState(ss.root, 1, f);
      |    ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                        
  744 |    NodeState& ns = *ss.root;
      |    ~~~~~~~~~~~~~~~~~~~~~~~~~                              
  745 |    if (ns.nmemb) {
      |    ~~~~~~~~~~~~~~~                                        
  746 |     ns.type = new int[ns.nmemb];
      |     ~~~~~~~~~~~~~~~~~~~~~~~~~~~~                          
  747 |     ASSERTfread((char*)ns.type, sizeof(int), ns.nmemb, f);
      |     ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
  748 |    }
      |    ~                                                      
  749 |    if (ns.nstate) {
      |    ~~~~~~~~~~~~~~~~                                       
  750 |     ns.state = new double[ns.nstate];
      |     ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                     
  751 |     ASSERTfread((char*)ns.state, sizeof(double), ns.nstate, f);
      |     ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
  752 |    }
      |    ~                                                      
  753 |   }
      |   ~                                                       
  754 |  }
      |  ~                                                        
  755 |  int n = 0;
      |  ~~~~~~~~~~                                               
  756 |  ASSERTfgets(buf, 20, f);
      |  ~~~~~~~~~~~~~~~~~~~~~~~~                                 
  757 |  sscanf(buf, "%d\n", &n);
      |  ~~~~~~~~~~~~~~~~~~~~~~~~                                 
  758 |  assert(n == nacell_);
      |  ~~~~~~~~~~~~~~~~~~~~~                                    
  759 |  for (int i=0, j=0; i < n_memb_func; ++i) if (nrn_is_artificial_[i]) {
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
  760 |   int nt = 0, nc = 0, ns = 0;
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~                             
  761 |   ASSERTfgets(buf, 200, f);
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~                               
  762 |   nrn_assert(sscanf(buf, "%d %d %d\n", &nt, &nc, &ns) == 3);
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
  763 |   assert(nt == i && nc == memb_list[i].nodecount);
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~        
  764 |   assert(ns == nc * ssi[i].size);
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                         
  765 |   acell_[j].ncell = nc;
      |   ~~~~~~~~~~~~~~~~~~~~~                                   
  766 |   acell_[j].state = new double[ns];
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                       
  767 |   ASSERTfread((char*)acell_[j].state, sizeof(double), ns, f);
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
  768 |   ++j;
      |   ~~~~                                                    
  769 |  }
      |  ~                                                        
  770 |  ASSERTfgets(buf, 20, f);
      |  ~~~~~~~~~~~~~~~~~~~~~~~~                                 
  771 |  sscanf(buf, "%d\n", &nprs_);
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~                             
  772 |  if (nprs_) {
      |  ~~~~~~~~~~~~                                             
  773 |   prs_ = new PlayRecordSave*[nprs_];
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                      
  774 |   for (int i=0; i < nprs_; ++i) {
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                         
  775 |    prs_[i] = PlayRecord::savestate_read(f);
      |    ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~               
  776 |   }
      |   ~                                                       
  777 |  }
      |  ~                                                        
  778 |  readnet(f);
      |  ~~~~~~~~~~~                                              
  779 |  if (close) {
      |  ~~~~~~~~~~~~                                             
  780 |   ocf->close();
      |   ~~~~~~~~~~~~~                                           
  781 |  }
      |  ~                                                        
  782 | }
      | ~                                                         
  783 | 
      |                                                           
  784 | void SaveState::write(OcFile* ocf, bool close) {
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~          
  785 |  if (!ocf->open(ocf->get_name(), "w")) {
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                  
  786 |   hoc_execerror("Couldn't open file for writing:", ocf->get_name());
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
  787 |  }
      |  ~                                                        
  788 |  BinaryMode(ocf)
      |  ~~~~~~~~~~~~~~~                                          
  789 |  FILE* f = ocf->file();
      |  ~~~~~~~~~~~~~~~~~~~~~~                                   
  790 |  fprintf(f, "SaveState binary file version 6.0\n");
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~       
  791 |  ASSERTfwrite((char*)&t_, sizeof(double), 1, f);
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~          
  792 |  fprintf(f, "%d %d\n", nsec_, nroot_);
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                    
  793 |  fwrite_SecState(ss_, nsec_, f);
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                          
  794 |  for (int isec=0; isec < nsec_; ++isec) {
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                 
  795 |   SecState& ss = ss_[isec];
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~                               
  796 |   fwrite_NodeState(ss.ns, ss.nnode, f);
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                   
  797 |   for (int inode = 0; inode < ss.nnode; ++inode) {
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~        
  798 |    NodeState& ns = ss.ns[inode];
      |    ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                          
  799 |    if (ns.nmemb){
      |    ~~~~~~~~~~~~~~                                         
  800 |     ASSERTfwrite((char*)ns.type, sizeof(int), ns.nmemb, f);
      |     ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
  801 |    }
      |    ~                                                      
  802 |    if (ns.nstate) {
      |    ~~~~~~~~~~~~~~~~                                       
  803 |     ASSERTfwrite((char*)ns.state, sizeof(double), ns.nstate, f);
      |     ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
  804 |    }
      |    ~                                                      
  805 |   }
      |   ~                                                       
  806 |   if (ss.root) {
      |   ~~~~~~~~~~~~~~                                          
  807 |    fwrite_NodeState(ss.root, 1, f);
      |    ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                       
  808 |    NodeState& ns = *ss.root;
      |    ~~~~~~~~~~~~~~~~~~~~~~~~~                              
  809 |    if (ns.nmemb){
      |    ~~~~~~~~~~~~~~                                         
  810 |     ASSERTfwrite((char*)ns.type, sizeof(int), ns.nmemb, f);
      |     ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
  811 |    }
      |    ~                                                      
  812 |    if (ns.nstate) {
      |    ~~~~~~~~~~~~~~~~                                       
  813 |     ASSERTfwrite((char*)ns.state, sizeof(double), ns.nstate, f);
      |     ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
  814 |    }
      |    ~                                                      
  815 |   }
      |   ~                                                       
  816 |  }
      |  ~                                                        
  817 |  fprintf(f, "%d\n", nacell_);
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~                             
  818 |  for (int i=0, j=0; i < n_memb_func; ++i) if (nrn_is_artificial_[i]) {
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
  819 |   int sz = acell_[j].ncell * ssi[i].size;
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                 
  820 |   fprintf(f, "%d %d %d\n", acell_[j].type, acell_[j].ncell, sz);
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
  821 |   ASSERTfwrite((char*)acell_[j].state, sizeof(double), sz, f);
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
  822 |   ++j;
      |   ~~~~                                                    
  823 |  }
      |  ~                                                        
  824 |  fprintf(f, "%d\n", nprs_);
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~                               
  825 |  for (int i=0; i < nprs_; ++i) {
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                          
  826 |   fprintf(f, "%d %d\n", prs_[i]->pr_->type(), i);
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~         
  827 |   prs_[i]->savestate_write(f);
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~~                            
  828 |  }
      |  ~                                                        
  829 |  writenet(f);
      |  ~~~~~~~~~~~~                                             
  830 |  if (close) {
      |  ~~~~~~~~~~~~                                             
  831 |   ocf->close();
      |   ~~~~~~~~~~~~~                                           
  832 |  }
      |  ~                                                        
  833 | }
      | ~                                                         
  834 | 
      |                                                           
  835 | void SaveState::savenet() {
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~                               
  836 |  int i, j, n;
      |  ~~~~~~~~~~~~                                             
  837 |  double* w;
      |  ~~~~~~~~~~                                               
  838 |  hoc_Item* q;
      |  ~~~~~~~~~~~~                                             
  839 |  Object* ob;
      |  ~~~~~~~~~~~                                              
  840 |  NetCon* d;
      |  ~~~~~~~~~~                                               
  841 |  PreSyn* ps;
      |  ~~~~~~~~~~~                                              
  842 |  i = 0;
      |  ~~~~~~                                                   
  843 |  ITERATE(q, nct->olist) {
      |  ~~~~~~~~~~~~~~~~~~~~~~~~                                 
  844 |   ob = OBJ(q);
      |   ~~~~~~~~~~~~                                            
  845 |   d = (NetCon*)ob->u.this_pointer;
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                        
  846 |   n = ncs_[i].nstate;
      |   ~~~~~~~~~~~~~~~~~~~                                     
  847 |   w = ncs_[i].state;
      |   ~~~~~~~~~~~~~~~~~~                                      
  848 |   for (j=0; j < n; ++j) {
      |   ~~~~~~~~~~~~~~~~~~~~~~~                                 
  849 |    w[j] = d->weight_[j];
      |    ~~~~~~~~~~~~~~~~~~~~~                                  
  850 |   }
      |   ~                                                       
  851 |   ++i;
      |   ~~~~                                                    
  852 |  }
      |  ~                                                        
  853 |  i = 0;
      |  ~~~~~~                                                   
  854 |  if (net_cvode_instance_psl()) ITERATE(q, net_cvode_instance_psl()) {
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
  855 |   ps = (PreSyn*)VOIDITM(q);
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~                               
  856 |   ps->hi_index_ = i;
      |   ~~~~~~~~~~~~~~~~~~                                      
  857 |   pss_[i].flag = ps->flag_;
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~                               
  858 |   pss_[i].valthresh = ps->valthresh_;
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                     
  859 |   pss_[i].valold = ps->valold_;
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                           
  860 |   pss_[i].told = ps->told_;
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~                               
  861 |   ++i;
      |   ~~~~                                                    
  862 |  }
      |  ~                                                        
  863 |  alloc_tq();
      |  ~~~~~~~~~~~                                              
  864 |  tqcnt_ = 0;
      |  ~~~~~~~~~~~                                              
  865 |  NrnThread* nt;
      |  ~~~~~~~~~~~~~~                                           
  866 |  FOR_THREADS(nt) {
      |  ~~~~~~~~~~~~~~~~~                                        
  867 |   TQueue* tq = net_cvode_instance_event_queue(nt);
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~        
  868 |   this_savestate = this; callback_mode = 1;
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~               
  869 |   tq->forall_callback(tqcallback);
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                        
  870 |  }
      |  ~                                                        
  871 | }
      | ~                                                         
  872 | 
      |                                                           
  873 | void SaveState::tqcount(const TQItem*, int) {
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~             
  874 |  ++tqcnt_;
      |  ~~~~~~~~~                                                
  875 | }
      | ~                                                         
  876 | 
      |                                                           
  877 | void SaveState::tqsave(const TQItem* q, int) {
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~            
  878 |  DiscreteEvent* de = (DiscreteEvent*)q->data_;
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~            
  879 |  tqs_->tdeliver[tqcnt_] = q->t_;
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                          
  880 |  tqs_->items[tqcnt_] = de->savestate_save();
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~              
  881 |  ++tqcnt_;
      |  ~~~~~~~~~                                                
  882 | }
      | ~                                                         
  883 | 
      |                                                           
  884 | void SaveState::restorenet() {
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                            
  885 |  int i, j, n;
      |  ~~~~~~~~~~~~                                             
  886 |  double* w;
      |  ~~~~~~~~~~                                               
  887 |  hoc_Item* q;
      |  ~~~~~~~~~~~~                                             
  888 |  Object* ob;
      |  ~~~~~~~~~~~                                              
  889 |  NetCon* d;
      |  ~~~~~~~~~~                                               
  890 |  PreSyn* ps;
      |  ~~~~~~~~~~~                                              
  891 |  // NetCon's
      |  ~~~~~~~~~~~                                              
  892 |  i = 0;
      |  ~~~~~~                                                   
  893 |  ITERATE(q, nct->olist) {
      |  ~~~~~~~~~~~~~~~~~~~~~~~~                                 
  894 |   ob = OBJ(q);
      |   ~~~~~~~~~~~~                                            
  895 |   d = (NetCon*)ob->u.this_pointer;
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                        
  896 |   n = ncs_[i].nstate;
      |   ~~~~~~~~~~~~~~~~~~~                                     
  897 |   w = ncs_[i].state;
      |   ~~~~~~~~~~~~~~~~~~                                      
  898 |   for (j=0; j < n; ++j) {
      |   ~~~~~~~~~~~~~~~~~~~~~~~                                 
  899 |    d->weight_[j] = w[j];
      |    ~~~~~~~~~~~~~~~~~~~~~                                  
  900 |   }
      |   ~                                                       
  901 |   ++i;
      |   ~~~~                                                    
  902 |  }
      |  ~                                                        
  903 |  // PreSyn's
      |  ~~~~~~~~~~~                                              
  904 |  i = 0;
      |  ~~~~~~                                                   
  905 |  if (net_cvode_instance_psl()) ITERATE(q, net_cvode_instance_psl()) {
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
  906 |   ps = (PreSyn*)VOIDITM(q);
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~                               
  907 |   ps->hi_index_ = i;
      |   ~~~~~~~~~~~~~~~~~~                                      
  908 |   ps->flag_ = pss_[i].flag;
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~                               
  909 |   ps->valthresh_ = pss_[i].valthresh;
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                     
  910 |   ps->valold_ = pss_[i].valold;
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                           
  911 |   ps->told_ = pss_[i].told;
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~                               
  912 |   ++i;
      |   ~~~~                                                    
  913 |  }
      |  ~                                                        
  914 | 
      |                                                           
  915 |  // event queue
      |  ~~~~~~~~~~~~~~                                           
  916 |  // clear it
      |  ~~~~~~~~~~~                                              
  917 |  clear_event_queue();
      |  ~~~~~~~~~~~~~~~~~~~~                                     
  918 |  // restore it
      |  ~~~~~~~~~~~~~                                            
  919 |  n = tqs_->nstate;
      |  ~~~~~~~~~~~~~~~~~                                        
  920 |  for (i=0; i < n; ++i) {
      |  ~~~~~~~~~~~~~~~~~~~~~~~                                  
  921 |   tqs_->items[i]->savestate_restore(tqs_->tdeliver[i], net_cvode_instance);
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
  922 |  }
      |  ~                                                        
  923 | }
      | ~                                                         
  924 | 
      |                                                           
  925 | void SaveState::readnet(FILE* f) {
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                        
  926 |  free_tq();
      |  ~~~~~~~~~~                                               
  927 |  char buf[200];
      |  ~~~~~~~~~~~~~~                                           
  928 |  ASSERTfgets(buf, 200, f);
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~                                
  929 |  sscanf(buf, "%d\n", &nncs_);
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~                             
  930 |  if (nncs_ != 0) {
      |  ~~~~~~~~~~~~~~~~~                                        
  931 |   ncs_ = new NetConState[nncs_];
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                          
  932 |  }
      |  ~                                                        
  933 |  int i, n, type;
      |  ~~~~~~~~~~~~~~~                                          
  934 |  for (i=0; i < nncs_; ++i) {
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~                              
  935 |   ASSERTfgets(buf, 200, f);
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~                               
  936 |   sscanf(buf, "%d %d\n", &ncs_[i].object_index, &ncs_[i].nstate);
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
  937 |   if (ncs_[i].nstate) {
      |   ~~~~~~~~~~~~~~~~~~~~~                                   
  938 |    ncs_[i].state = new double[ncs_[i].nstate];
      |    ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~            
  939 |    ASSERTfread((char*)ncs_[i].state, sizeof(double), ncs_[i].nstate, f);
      |    ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
  940 |   }
      |   ~                                                       
  941 |  }
      |  ~                                                        
  942 |  // PreSyn's
      |  ~~~~~~~~~~~                                              
  943 |  ASSERTfgets(buf, 200, f);
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~                                
  944 |  sscanf(buf, "%d\n", &npss_);
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~                             
  945 |  if (npss_ != 0) {
      |  ~~~~~~~~~~~~~~~~~                                        
  946 |   pss_ = new PreSynState[npss_];
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                          
  947 |   ASSERTfread((char*)pss_, sizeof(PreSynState), npss_, f);
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
  948 |   PreSyn* ps;
      |   ~~~~~~~~~~~                                             
  949 |   i = 0;
      |   ~~~~~~                                                  
  950 |   hoc_Item* q;
      |   ~~~~~~~~~~~~                                            
  951 |   if (net_cvode_instance_psl()) ITERATE(q, net_cvode_instance_psl()) {
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
  952 |    ps = (PreSyn*)VOIDITM(q);
      |    ~~~~~~~~~~~~~~~~~~~~~~~~~                              
  953 |    ps->hi_index_ = i;
      |    ~~~~~~~~~~~~~~~~~~                                     
  954 |    ++i;
      |    ~~~~                                                   
  955 |   }
      |   ~                                                       
  956 |   assert(npss_ == i);
      |   ~~~~~~~~~~~~~~~~~~~                                     
  957 |  }
      |  ~                                                        
  958 | 
      |                                                           
  959 |  ASSERTfgets(buf, 200, f);
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~                                
  960 |  sscanf(buf, "%d\n", &n);
      |  ~~~~~~~~~~~~~~~~~~~~~~~~                                 
  961 |  tqs_->nstate = n;
      |  ~~~~~~~~~~~~~~~~~                                        
  962 |  if (n) {
      |  ~~~~~~~~                                                 
  963 |   tqs_->items = new DiscreteEvent*[n];
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                    
  964 |   tqs_->tdeliver = new double[n];
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                         
  965 |   ASSERTfread((char*)tqs_->tdeliver, sizeof(double), n, f);
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
  966 |   for (i=0; i < n; ++i) {
      |   ~~~~~~~~~~~~~~~~~~~~~~~                                 
  967 |    DiscreteEvent* de = NULL;
      |    ~~~~~~~~~~~~~~~~~~~~~~~~~                              
  968 |    ASSERTfgets(buf, 200, f);
      |    ~~~~~~~~~~~~~~~~~~~~~~~~~                              
  969 |    sscanf(buf, "%d\n", &type);
      |    ~~~~~~~~~~~~~~~~~~~~~~~~~~~                            
  970 |    switch(type) {
      |    ~~~~~~~~~~~~~~                                         
  971 |    case DiscreteEventType:
      |    ~~~~~~~~~~~~~~~~~~~~~~~                                
  972 |     de = DiscreteEvent::savestate_read(f);
      |     ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                
  973 |     break;
      |     ~~~~~~                                                
  974 |    case TstopEventType:
      |    ~~~~~~~~~~~~~~~~~~~~                                   
  975 |     de = TstopEvent::savestate_read(f);
      |     ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                   
  976 |     break;
      |     ~~~~~~                                                
  977 |    case NetConType:
      |    ~~~~~~~~~~~~~~~~                                       
  978 |     de = NetCon::savestate_read(f);
      |     ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                       
  979 |     break;
      |     ~~~~~~                                                
  980 |    case SelfEventType:
      |    ~~~~~~~~~~~~~~~~~~~                                    
  981 |     de = SelfEvent::savestate_read(f);
      |     ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                    
  982 |     break;
      |     ~~~~~~                                                
  983 |    case PreSynType:
      |    ~~~~~~~~~~~~~~~~                                       
  984 |     de = PreSyn::savestate_read(f);
      |     ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                       
  985 |     break;
      |     ~~~~~~                                                
  986 |    case HocEventType:
      |    ~~~~~~~~~~~~~~~~~~                                     
  987 |     de = HocEvent::savestate_read(f);
      |     ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                     
  988 |     break;
      |     ~~~~~~                                                
  989 |    case PlayRecordEventType:
      |    ~~~~~~~~~~~~~~~~~~~~~~~~~                              
  990 |     de = PlayRecordEvent::savestate_read(f);
      |     ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~              
  991 |     break;
      |     ~~~~~~                                                
  992 |    case NetParEventType:
      |    ~~~~~~~~~~~~~~~~~~~~~                                  
  993 |     de = NetParEvent::savestate_read(f);
      |     ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                  
  994 |     break;
      |     ~~~~~~                                                
  995 |    default:
      |    ~~~~~~~~                                               
  996 |     hoc_execerror("SaveState::readnet", "Unimplemented DiscreteEvent type");
      |     ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
  997 |     break;
      |     ~~~~~~                                                
  998 |    }
      |    ~                                                      
  999 |    tqs_->items[i] = de;
      |    ~~~~~~~~~~~~~~~~~~~~                                   
 1000 |   }
      |   ~                                                       
 1001 |  }
      |  ~                                                        
 1002 | }
      | ~                                                         
 1003 | 
      |                                                           
 1004 | void SaveState::writenet(FILE* f) {
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                       
 1005 |  fprintf(f, "%d\n", nncs_);
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~                               
 1006 |  int i, n;
      |  ~~~~~~~~~                                                
 1007 |  for (i=0; i < nncs_; ++i) {
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~                              
 1008 |   fprintf(f, "%d %d\n", ncs_[i].object_index, ncs_[i].nstate);
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
 1009 |   if (ncs_[i].nstate) {
      |   ~~~~~~~~~~~~~~~~~~~~~                                   
 1010 |    ASSERTfwrite((char*)ncs_[i].state, sizeof(double), ncs_[i].nstate, f);
      |    ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
/builddir/build/BUILD/nrn-7.8.1/src/oc/nrnassrt.h:23:33: note: in definition of macro 'nrn_assert'
   23 | #  define nrn_assert(ex) {if (!(ex)){fprintf(stderr,"Assertion failed: file %s, line %d\n", __FILE__,__LINE__);hoc_execerror(#ex, (char *)0);}}
      |                                 ^~
/builddir/build/BUILD/nrn-7.8.1/src/nrniv/savstate.cpp:1010:4: note: in expansion of macro 'ASSERTfwrite'
 1010 |    ASSERTfwrite((char*)ncs_[i].state, sizeof(double), ncs_[i].nstate, f);
      |    ^~~~~~~~~~~~
/builddir/build/BUILD/nrn-7.8.1/src/nrniv/savstate.cpp:34:58: warning: comparison of integer expressions of different signedness: 'size_t' {aka 'long unsigned int'} and 'int' [-Wsign-compare]
   34 | #define ASSERTfwrite(a,b,c,d) nrn_assert(fwrite(a,b,c,d) == c)
      |                                          ~~~~~~~~~~~~~~~~^~~~~
   35 | 
      |                                                           
   36 | class SaveState : public Resource {
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                       
   37 | public:
      | ~~~~~~~                                                   
   38 |  SaveState();
      |  ~~~~~~~~~~~~                                             
   39 |  ~SaveState();
      |  ~~~~~~~~~~~~~                                            
   40 |  virtual void save();
      |  ~~~~~~~~~~~~~~~~~~~~                                     
   41 |  virtual void restore(int type);
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                          
   42 |  virtual void read(OcFile*, bool close);
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                  
   43 |  virtual void write(OcFile*, bool close);
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                 
   44 |  struct NodeState {
      |  ~~~~~~~~~~~~~~~~~~                                       
   45 |   double v;
      |   ~~~~~~~~~                                               
   46 |   int nmemb;
      |   ~~~~~~~~~~                                              
   47 |   int* type;
      |   ~~~~~~~~~~                                              
   48 |   int nstate;
      |   ~~~~~~~~~~~                                             
   49 |   double* state;
      |   ~~~~~~~~~~~~~~                                          
   50 |  };
      |  ~~                                                       
   51 |  struct SecState {
      |  ~~~~~~~~~~~~~~~~~                                        
   52 |   Section* sec;
      |   ~~~~~~~~~~~~~                                           
   53 |   int nnode;
      |   ~~~~~~~~~~                                              
   54 |   struct NodeState* ns;
      |   ~~~~~~~~~~~~~~~~~~~~~                                   
   55 |   struct NodeState* root; // non-zero for rootnode
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~        
   56 |  };
      |  ~~                                                       
   57 |  struct StateStructInfo {
      |  ~~~~~~~~~~~~~~~~~~~~~~~~                                 
   58 |   int offset;
      |   ~~~~~~~~~~~                                             
   59 |   int size;
      |   ~~~~~~~~~                                               
   60 |  };
      |  ~~                                                       
   61 |  struct ACellState {
      |  ~~~~~~~~~~~~~~~~~~~                                      
   62 |   int type;
      |   ~~~~~~~~~                                               
   63 |   int ncell;
      |   ~~~~~~~~~~                                              
   64 |   double* state;
      |   ~~~~~~~~~~~~~~                                          
   65 |  };
      |  ~~                                                       
   66 |  struct NetConState {
      |  ~~~~~~~~~~~~~~~~~~~~                                     
   67 |   int object_index; // for checking
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                       
   68 |   int nstate;
      |   ~~~~~~~~~~~                                             
   69 |   double* state;
      |   ~~~~~~~~~~~~~~                                          
   70 |  };
      |  ~~                                                       
   71 |  struct PreSynState {
      |  ~~~~~~~~~~~~~~~~~~~~                                     
   72 |   bool flag; // is it firing?
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~                             
   73 |   double valthresh, valold, told;
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                         
   74 | 
      |                                                           
   75 |  };
      |  ~~                                                       
   76 |  struct TQState {
      |  ~~~~~~~~~~~~~~~~                                         
   77 |   int nstate;
      |   ~~~~~~~~~~~                                             
   78 |   double* tdeliver;
      |   ~~~~~~~~~~~~~~~~~                                       
   79 |   DiscreteEvent** items;
      |   ~~~~~~~~~~~~~~~~~~~~~~                                  
   80 |  };
      |  ~~                                                       
   81 | private:
      | ~~~~~~~~                                                  
   82 |  bool check(bool warn);
      |  ~~~~~~~~~~~~~~~~~~~~~~                                   
   83 |  void alloc();
      |  ~~~~~~~~~~~~~                                            
   84 |  void ssfree();
      |  ~~~~~~~~~~~~~~                                           
   85 |  void ssi_def();
      |  ~~~~~~~~~~~~~~~                                          
   86 | private:
      | ~~~~~~~~                                                  
   87 |  void fread_NodeState(NodeState*, int, FILE*);
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~            
   88 |  void fwrite_NodeState(NodeState*, int, FILE*);
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~           
   89 |  void fread_SecState(SecState*, int, FILE*);
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~              
   90 |  void fwrite_SecState(SecState*, int, FILE*);
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~             
   91 | private:
      | ~~~~~~~~                                                  
   92 |  double t_;
      |  ~~~~~~~~~~                                               
   93 |  int nroot_;
      |  ~~~~~~~~~~~                                              
   94 |  int nsec_;
      |  ~~~~~~~~~~                                               
   95 |  SecState* ss_;
      |  ~~~~~~~~~~~~~~                                           
   96 |  int nacell_; // number of types
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                          
   97 |  ACellState* acell_;
      |  ~~~~~~~~~~~~~~~~~~~                                      
   98 |  int nncs_;
      |  ~~~~~~~~~~                                               
   99 |  NetConState* ncs_;
      |  ~~~~~~~~~~~~~~~~~~                                       
  100 |  int npss_;
      |  ~~~~~~~~~~                                               
  101 |  PreSynState* pss_;
      |  ~~~~~~~~~~~~~~~~~~                                       
  102 |  TQState* tqs_;
      |  ~~~~~~~~~~~~~~                                           
  103 |  int tqcnt_; // volatile for index of forall_callback
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~     
  104 |  int nprs_;
      |  ~~~~~~~~~~                                               
  105 |  PlayRecordSave** prs_;
      |  ~~~~~~~~~~~~~~~~~~~~~~                                   
  106 |  static StateStructInfo* ssi;
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~                             
  107 |  static cTemplate* nct;
      |  ~~~~~~~~~~~~~~~~~~~~~~                                   
  108 | private:
      | ~~~~~~~~                                                  
  109 |  void savenode(NodeState&, Node*);
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                        
  110 |  void restorenode(NodeState&, Node*);
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                     
  111 |  bool checknode(NodeState&, Node*, bool);
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                 
  112 |  void allocnode(NodeState&, Node*);
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                       
  113 | 
      |                                                           
  114 |  void saveacell(ACellState&, int type);
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                   
  115 |  void restoreacell(ACellState&, int type);
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                
  116 |  bool checkacell(ACellState&, int type, bool);
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~            
  117 |  void allocacell(ACellState&, int type);
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                  
  118 | 
      |                                                           
  119 |  void savenet();
      |  ~~~~~~~~~~~~~~~                                          
  120 |  void restorenet();
      |  ~~~~~~~~~~~~~~~~~~                                       
  121 |  void readnet(FILE*);
      |  ~~~~~~~~~~~~~~~~~~~~                                     
  122 |  void writenet(FILE*);
      |  ~~~~~~~~~~~~~~~~~~~~~                                    
  123 |  bool checknet(bool);
      |  ~~~~~~~~~~~~~~~~~~~~                                     
  124 |  void allocnet();
      |  ~~~~~~~~~~~~~~~~                                         
  125 |  void free_tq();
      |  ~~~~~~~~~~~~~~~                                          
  126 |  void alloc_tq();
      |  ~~~~~~~~~~~~~~~~                                         
  127 | public:
      | ~~~~~~~                                                   
  128 |  void tqcount(const TQItem*, int);
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                        
  129 |  void tqsave(const TQItem*, int);
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                         
  130 | };
      | ~~                                                        
  131 | 
      |                                                           
  132 | static SaveState* this_savestate;
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                         
  133 | static int callback_mode;
      | ~~~~~~~~~~~~~~~~~~~~~~~~~                                 
  134 | 
      |                                                           
  135 | void tqcallback(const TQItem* tq, int i) {
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                
  136 |  if (callback_mode == 0) {
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~                                
  137 |   this_savestate->tqcount(tq, i);
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                         
  138 |  }else{
      |  ~~~~~~                                                   
  139 |   this_savestate->tqsave(tq, i);
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                          
  140 |  }
      |  ~                                                        
  141 | }
      | ~                                                         
  142 | 
      |                                                           
  143 | #if __sgi && 0
      | ~~~~~~~~~~~~~~                                            
  144 | // fixed in version 5 of os
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~                               
  145 | StateStructInfo* SaveState::ssi;
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                          
  146 | #else
      | ~~~~~                                                     
  147 | SaveState::StateStructInfo* SaveState::ssi;
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~               
  148 | #endif
      | ~~~~~~                                                    
  149 | cTemplate* SaveState::nct;
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~                                
  150 | 
      |                                                           
  151 | SaveState::SaveState() {
      | ~~~~~~~~~~~~~~~~~~~~~~~~                                  
  152 |  int i, j;
      |  ~~~~~~~~~                                                
  153 |  ssi_def();
      |  ~~~~~~~~~~                                               
  154 |  nroot_ = 0;
      |  ~~~~~~~~~~~                                              
  155 |  ss_ = NULL;
      |  ~~~~~~~~~~~                                              
  156 |  nsec_ = 0;
      |  ~~~~~~~~~~                                               
  157 |  nncs_ = 0;
      |  ~~~~~~~~~~                                               
  158 |  ncs_ = NULL;
      |  ~~~~~~~~~~~~                                             
  159 |  npss_ = 0;
      |  ~~~~~~~~~~                                               
  160 |  pss_ = NULL;
      |  ~~~~~~~~~~~~                                             
  161 |  tqs_ = new TQState();
      |  ~~~~~~~~~~~~~~~~~~~~~                                    
  162 |  tqs_->nstate = 0;
      |  ~~~~~~~~~~~~~~~~~                                        
  163 |  nprs_ = 0;
      |  ~~~~~~~~~~                                               
  164 |  prs_ = NULL;
      |  ~~~~~~~~~~~~                                             
  165 |  nacell_ = 0;
      |  ~~~~~~~~~~~~                                             
  166 |  for (i=0; i < n_memb_func; ++i) if (nrn_is_artificial_[i]) {
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
  167 |   ++nacell_;
      |   ~~~~~~~~~~                                              
  168 |  }
      |  ~                                                        
  169 |  acell_ = new ACellState[nacell_];
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                        
  170 |  for (i=0; i < nacell_; ++i) {
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                            
  171 |   acell_[i].ncell = 0;
      |   ~~~~~~~~~~~~~~~~~~~~                                    
  172 |   acell_[i].state = 0;
      |   ~~~~~~~~~~~~~~~~~~~~                                    
  173 |  }
      |  ~                                                        
  174 |  for (i=0, j=0; i < n_memb_func; ++i) if (nrn_is_artificial_[i]) {
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
  175 |   acell_[j].type = i;
      |   ~~~~~~~~~~~~~~~~~~~                                     
  176 |   ++j;
      |   ~~~~                                                    
  177 |  }
      |  ~                                                        
  178 | }
      | ~                                                         
  179 | 
      |                                                           
  180 | SaveState::~SaveState() {
      | ~~~~~~~~~~~~~~~~~~~~~~~~~                                 
  181 |  ssfree();
      |  ~~~~~~~~~                                                
  182 |  delete tqs_;
      |  ~~~~~~~~~~~~                                             
  183 |  delete [] acell_;
      |  ~~~~~~~~~~~~~~~~~                                        
  184 | }
      | ~                                                         
  185 | 
      |                                                           
  186 | void SaveState::fread_NodeState(NodeState* ns, int cnt, FILE* f) {
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
  187 |  for (int i=0; i < cnt; ++i) {
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                            
  188 |   ASSERTfread(&ns[i].v, sizeof(double), 1, f);
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~            
  189 |   ASSERTfread(&ns[i].nmemb, sizeof(int), 1, f);
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~           
  190 |   ASSERTfread(&ns[i].nstate, sizeof(int), 1, f);
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~          
  191 |  }
      |  ~                                                        
  192 | }
      | ~                                                         
  193 | void SaveState::fwrite_NodeState(NodeState* ns, int cnt, FILE* f){
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
  194 |  for (int i=0; i < cnt; ++i) {
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                            
  195 |   ASSERTfwrite(&ns[i].v, sizeof(double), 1, f);
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~           
  196 |   ASSERTfwrite(&ns[i].nmemb, sizeof(int), 1, f);
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~          
  197 |   ASSERTfwrite(&ns[i].nstate, sizeof(int), 1, f);
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~         
  198 |  }
      |  ~                                                        
  199 | }
      | ~                                                         
  200 | void SaveState::fread_SecState(SecState* ss, int cnt, FILE* f){
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
  201 |  int b;
      |  ~~~~~~                                                   
  202 |  for (int i=0; i < cnt; ++i) {
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                            
  203 |   ASSERTfread(&ss[i].nnode, sizeof(int), 1, f);
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~           
  204 |   ASSERTfread(&b, sizeof(int), 1, f);
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                     
  205 |   if (b) {
      |   ~~~~~~~~                                                
  206 |    ss[i].root = new NodeState;
      |    ~~~~~~~~~~~~~~~~~~~~~~~~~~~                            
  207 |   }else{
      |   ~~~~~~                                                  
  208 |    ss[i].root = 0;
      |    ~~~~~~~~~~~~~~~                                        
  209 |   }
      |   ~                                                       
  210 |  }
      |  ~                                                        
  211 | }
      | ~                                                         
  212 | void SaveState::fwrite_SecState(SecState* ss, int cnt, FILE* f){
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
  213 |  int b;
      |  ~~~~~~                                                   
  214 |  for (int i=0; i < cnt; ++i) {
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                            
  215 |   ASSERTfwrite(&ss[i].nnode, sizeof(int), 1, f);
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~          
  216 |   b = ss[i].root ? 1 : 0;
      |   ~~~~~~~~~~~~~~~~~~~~~~~                                 
  217 |   ASSERTfwrite(&b, sizeof(int), 1, f);
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                    
  218 |  }
      |  ~                                                        
  219 | }
      | ~                                                         
  220 | 
      |                                                           
  221 | void SaveState::ssi_def() {
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~                               
  222 |  if (nct) { return; }
      |  ~~~~~~~~~~~~~~~~~~~~                                     
  223 |  Symbol* s = hoc_lookup("NetCon");
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                        
  224 |  nct = s->u.ctemplate;
      |  ~~~~~~~~~~~~~~~~~~~~~                                    
  225 |  ssi = new StateStructInfo[n_memb_func];
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                  
  226 |  for (int im=0; im < n_memb_func; ++im) {
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                 
  227 |   ssi[im].offset = -1;
      |   ~~~~~~~~~~~~~~~~~~~~                                    
  228 |   ssi[im].size = 0;
      |   ~~~~~~~~~~~~~~~~~                                       
  229 |   if (!memb_func[im].sym) {
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~                               
  230 |    continue;
      |    ~~~~~~~~~                                              
  231 |   }
      |   ~                                                       
  232 |   NrnProperty* np = new NrnProperty(memb_func[im].sym->name);
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
  233 |   // generally we only save STATE variables. However for
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~  
  234 |   // models containing a NET_RECEIVE block, we also need to
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
  235 |   // save everything except the parameters
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                
  236 |   // because they often contain
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                           
  237 |   // logic and analytic state values. Unfortunately, it is often
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
  238 |   // the case that the ASSIGNED variables are not declared as
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
  239 |   // RANGE variables so to avoid missing state, save the whole
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
  240 |   // param array including PARAMETERs.
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                    
  241 |      if  (pnt_receive[im]) {
      |      ~~~~~~~~~~~~~~~~~~~~~~~                              
  242 |   ssi[im].offset = 0;
      |   ~~~~~~~~~~~~~~~~~~~                                     
  243 |   ssi[im].size = np->prop()->param_size;
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                  
  244 |      }else{
      |      ~~~~~~                                               
  245 |   int type = STATE;
      |   ~~~~~~~~~~~~~~~~~                                       
  246 |   for (Symbol* sym = np->first_var(); np->more_var(); sym = np->next_var()) {
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
  247 |    if (np->var_type(sym) == type
      |    ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                          
  248 |        || np->var_type(sym) == STATE
      |        ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                      
  249 |        || sym->subtype == _AMBIGUOUS) {
      |        ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                   
  250 |     if (ssi[im].offset < 0) {
      |     ~~~~~~~~~~~~~~~~~~~~~~~~~                             
  251 |      ssi[im].offset = np->prop_index(sym);
      |      ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                
  252 |     }
      |     ~                                                     
  253 |     ssi[im].size += hoc_total_array_data(sym, 0);
      |     ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~         
  254 |    }
      |    ~                                                      
  255 |   }
      |   ~                                                       
  256 |      }
      |      ~                                                    
  257 |      delete np;
      |      ~~~~~~~~~~                                           
  258 |  }
      |  ~                                                        
  259 | }
      | ~                                                         
  260 | 
      |                                                           
  261 | bool SaveState::check(bool warn) {
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                        
  262 |  hoc_Item* qsec;
      |  ~~~~~~~~~~~~~~~                                          
  263 |  int isec;
      |  ~~~~~~~~~                                                
  264 |  if (nsec_ != section_count) {
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                            
  265 |   if (warn) {
      |   ~~~~~~~~~~~                                             
  266 | fprintf(stderr, "SaveState warning: %d sections exist but saved %d\n",
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
  267 |    section_count, nsec_);
      |    ~~~~~~~~~~~~~~~~~~~~~~                                 
  268 |   }
      |   ~                                                       
  269 |   return false;
      |   ~~~~~~~~~~~~~                                           
  270 |  }
      |  ~                                                        
  271 |  if (nroot_ != nrn_global_ncell) {
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                        
  272 |   if (warn) {
      |   ~~~~~~~~~~~                                             
  273 | fprintf(stderr, "SaveState warning: %d cells exist but saved %d\n",
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
  274 |    nrn_global_ncell, nroot_);
      |    ~~~~~~~~~~~~~~~~~~~~~~~~~~                             
  275 |   }
      |   ~                                                       
  276 |   return false;
      |   ~~~~~~~~~~~~~                                           
  277 |  }
      |  ~                                                        
  278 |  if (nsec_ && ss_[0].sec == NULL) { // got the data from a read
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
  279 |   isec = 0; ForAllSections(sec)
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                           
  280 |    ss_[isec].sec = sec;
      |    ~~~~~~~~~~~~~~~~~~~~                                   
  281 |    section_ref(ss_[isec].sec);
      |    ~~~~~~~~~~~~~~~~~~~~~~~~~~~                            
  282 |    ++isec;
      |    ~~~~~~~                                                
  283 |   }
      |   ~                                                       
  284 |  }
      |  ~                                                        
  285 |  for (int i=0, j=0; i < n_memb_func; ++i) if (nrn_is_artificial_[i]) {
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
  286 |   if (!checkacell(acell_[j], i, warn)) {
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                  
  287 |    return false;
      |    ~~~~~~~~~~~~~                                          
  288 |   }
      |   ~                                                       
  289 |   ++j;
      |   ~~~~                                                    
  290 |  }
      |  ~                                                        
  291 |  for (int isec=0; isec < nsec_; ++isec) {
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                 
  292 |   SecState& ss = ss_[isec];
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~                               
  293 |   Section* sec = ss.sec;
      |   ~~~~~~~~~~~~~~~~~~~~~~                                  
  294 |   if (!sec->prop || sec->nnode != ss.nnode) {
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~             
  295 | if (warn) {
      | ~~~~~~~~~~~                                               
  296 | if (!sec->prop) {
      | ~~~~~~~~~~~~~~~~~                                         
  297 | fprintf(stderr, "SaveState warning: saved section no longer exists\n");
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
  298 | }else{
      | ~~~~~~                                                    
  299 | fprintf(stderr, "SaveState warning: %s has %d nodes but saved %d\n",
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
  300 |     secname(sec), sec->nnode, ss.nnode);
      |     ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                  
  301 | }
      | ~                                                         
  302 | }
      | ~                                                         
  303 |    return false;
      |    ~~~~~~~~~~~~~                                          
  304 |   }
      |   ~                                                       
  305 |   for (int inode = 0; inode < ss.nnode; ++inode) {
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~        
  306 |    NodeState& ns = ss.ns[inode];
      |    ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                          
  307 |    Node* nd = sec->pnode[inode];
      |    ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                          
  308 |    int i=0;
      |    ~~~~~~~~                                               
  309 |    Prop* p;
      |    ~~~~~~~~                                               
  310 |    for (p = nd->prop; p; p = p->next) {
      |    ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                   
  311 |     if (ssi[p->type].size == 0) {
      |     ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                         
  312 |      continue;
      |      ~~~~~~~~~                                            
  313 |     }
      |     ~                                                     
  314 |     if (i >= ns.nmemb) {
      |     ~~~~~~~~~~~~~~~~~~~~                                  
  315 | if (warn) {
      | ~~~~~~~~~~~                                               
  316 | fprintf(stderr,"SaveState warning: \
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                      
  317 | fewer mechanisms saved than exist at node %d of %s\n",
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~    
  318 |  inode, secname(sec));
      |  ~~~~~~~~~~~~~~~~~~~~~                                    
  319 | }
      | ~                                                         
  320 |      return false;
      |      ~~~~~~~~~~~~~                                        
  321 |     }
      |     ~                                                     
  322 |     if (p->type != ns.type[i]) {
      |     ~~~~~~~~~~~~~~~~~~~~~~~~~~~~                          
  323 | if (warn) {
      | ~~~~~~~~~~~                                               
  324 | fprintf(stderr, "SaveState warning: mechanisms out of order at node %d of %s\n\
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
  325 | saved %s but need %s\n",
      | ~~~~~~~~~~~~~~~~~~~~~~~~                                  
  326 | inode, secname(sec), memb_func[i].sym->name, memb_func[p->type].sym->name);
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
  327 | }
      | ~                                                         
  328 |      return false;
      |      ~~~~~~~~~~~~~                                        
  329 |     }
      |     ~                                                     
  330 |     ++i;
      |     ~~~~                                                  
  331 |    }
      |    ~                                                      
  332 |    if (i != ns.nmemb) {
      |    ~~~~~~~~~~~~~~~~~~~~                                   
  333 | if (warn) {
      | ~~~~~~~~~~~                                               
  334 | fprintf(stderr, "SaveState warning: more mechanisms saved than exist at node %d of %s\n",
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
  335 |  inode, secname(sec));
      |  ~~~~~~~~~~~~~~~~~~~~~                                    
  336 | }
      | ~                                                         
  337 |     return false;
      |     ~~~~~~~~~~~~~                                         
  338 |    }
      |    ~                                                      
  339 |   }
      |   ~                                                       
  340 |   if (!sec->parentsec || ss.root) {
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                       
  341 |    if (sec->parentsec || !ss.root) {
      |    ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                      
  342 | if (warn) {
      | ~~~~~~~~~~~                                               
  343 | fprintf(stderr, "SaveState warning: Saved section and %s are not both root sections.\n",
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
  344 |  secname(sec));
      |  ~~~~~~~~~~~~~~                                           
  345 | }
      | ~                                                         
  346 |    }
      |    ~                                                      
  347 |    if (!checknode(*ss.root, sec->parentnode, warn)) {
      |    ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~     
  348 |     return false;
      |     ~~~~~~~~~~~~~                                         
  349 |    }
      |    ~                                                      
  350 |   }
      |   ~                                                       
  351 | 
      |                                                           
  352 |  }
      |  ~                                                        
  353 |  if (!checknet(warn)) { return false; }
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                   
  354 |  return true;
      |  ~~~~~~~~~~~~                                             
  355 | }
      | ~                                                         
  356 | 
      |                                                           
  357 | bool SaveState::checknode(NodeState& ns, Node* nd, bool warn) {
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
  358 |  int i=0;
      |  ~~~~~~~~                                                 
  359 |  Prop* p;
      |  ~~~~~~~~                                                 
  360 |  for (p = nd->prop; p; p = p->next) {
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                     
  361 |   if (ssi[p->type].size == 0) {
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                           
  362 |    continue;
      |    ~~~~~~~~~                                              
  363 |   }
      |   ~                                                       
  364 |   if (i >= ns.nmemb) {
      |   ~~~~~~~~~~~~~~~~~~~~                                    
  365 | if (warn) {
      | ~~~~~~~~~~~                                               
  366 | fprintf(stderr,"SaveState warning: \
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                      
  367 | fewer mechanisms saved than exist at a root node\n");
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~     
  368 | }
      | ~                                                         
  369 |    return false;
      |    ~~~~~~~~~~~~~                                          
  370 |   }
      |   ~                                                       
  371 |   if (p->type != ns.type[i]) {
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~~                            
  372 | if (warn) {
      | ~~~~~~~~~~~                                               
  373 | fprintf(stderr, "SaveState warning: mechanisms out of order at a rootnode\n\
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
  374 | saved %s but need %s\n",
      | ~~~~~~~~~~~~~~~~~~~~~~~~                                  
  375 | memb_func[i].sym->name, memb_func[p->type].sym->name);
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~    
  376 | }
      | ~                                                         
  377 |    return false;
      |    ~~~~~~~~~~~~~                                          
  378 |   }
      |   ~                                                       
  379 |   ++i;
      |   ~~~~                                                    
  380 |  }
      |  ~                                                        
  381 |  if (i != ns.nmemb) {
      |  ~~~~~~~~~~~~~~~~~~~~                                     
  382 | if (warn) {
      | ~~~~~~~~~~~                                               
  383 | fprintf(stderr, "SaveState warning: more mechanisms saved than exist at a rootnode\n");
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
  384 | }
      | ~                                                         
  385 |   return false;
      |   ~~~~~~~~~~~~~                                           
  386 |  }
      |  ~                                                        
  387 |  return true;
      |  ~~~~~~~~~~~~                                             
  388 | }
      | ~                                                         
  389 | 
      |                                                           
  390 | bool SaveState::checkacell(ACellState& ac, int type, bool warn) {
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
  391 |  if (memb_list[type].nodecount != ac.ncell) {
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~             
  392 | if (warn) {
      | ~~~~~~~~~~~                                               
  393 | fprintf(stderr, "SaveState warning: different number of %s saved than exist.\n",
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
  394 | memb_func[type].sym->name);
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~                               
  395 | }
      | ~                                                         
  396 |   return false;
      |   ~~~~~~~~~~~~~                                           
  397 |  }
      |  ~                                                        
  398 |  return true;
      |  ~~~~~~~~~~~~                                             
  399 | }
      | ~                                                         
  400 | 
      |                                                           
  401 | void SaveState::alloc() {
      | ~~~~~~~~~~~~~~~~~~~~~~~~~                                 
  402 |  ssfree();
      |  ~~~~~~~~~                                                
  403 |  int inode, isec;
      |  ~~~~~~~~~~~~~~~~                                         
  404 |  hoc_Item* qsec;
      |  ~~~~~~~~~~~~~~~                                          
  405 |  nsec_ = section_count;
      |  ~~~~~~~~~~~~~~~~~~~~~~                                   
  406 |  ss_ = new SecState[nsec_];
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~                               
  407 |  nroot_ = 0;
      |  ~~~~~~~~~~~                                              
  408 |  isec = 0;
      |  ~~~~~~~~~                                                
  409 |  ForAllSections(sec)
      |  ~~~~~~~~~~~~~~~~~~~                                      
  410 |   SecState& ss = ss_[isec];
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~                               
  411 |   ss.sec = sec;
      |   ~~~~~~~~~~~~~                                           
  412 |   section_ref(ss.sec);
      |   ~~~~~~~~~~~~~~~~~~~~                                    
  413 |   ss.nnode = ss.sec->nnode;
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~                               
  414 |   ss.ns = new NodeState[ss.nnode];
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                        
  415 |   for (inode = 0; inode < ss.nnode; ++inode) {
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~            
  416 |    Node* nd = ss.sec->pnode[inode];
      |    ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                       
  417 |    NodeState& ns = ss.ns[inode];
      |    ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                          
  418 |    allocnode(ns, nd);
      |    ~~~~~~~~~~~~~~~~~~                                     
  419 |   }
      |   ~                                                       
  420 |   if (!sec->parentsec) {
      |   ~~~~~~~~~~~~~~~~~~~~~~                                  
  421 |    assert(sec->parentnode);
      |    ~~~~~~~~~~~~~~~~~~~~~~~~                               
  422 |    ss.root = new NodeState;
      |    ~~~~~~~~~~~~~~~~~~~~~~~~                               
  423 |    allocnode(*ss.root, sec->parentnode);
      |    ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                  
  424 |    ++nroot_;
      |    ~~~~~~~~~                                              
  425 |   }else{
      |   ~~~~~~                                                  
  426 |    ss.root = 0;
      |    ~~~~~~~~~~~~                                           
  427 |   }
      |   ~                                                       
  428 |   ++isec;
      |   ~~~~~~~                                                 
  429 |  }
      |  ~                                                        
  430 |  assert(isec == section_count);
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                           
  431 |  assert(nroot_ == nrn_global_ncell);
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                      
  432 |  for (int i=0, j=0; i < n_memb_func; ++i) if (nrn_is_artificial_[i]) {
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
  433 |   allocacell(acell_[j], i);
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~                               
  434 |   ++j;
      |   ~~~~                                                    
  435 |  }
      |  ~                                                        
  436 |  PlayRecList* prl = net_cvode_instance_prl();
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~             
  437 |  nprs_ = prl->count();
      |  ~~~~~~~~~~~~~~~~~~~~~                                    
  438 |  if (nprs_) {
      |  ~~~~~~~~~~~~                                             
  439 |   prs_ = new PlayRecordSave*[nprs_];
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                      
  440 |  }
      |  ~                                                        
  441 |  allocnet();
      |  ~~~~~~~~~~~                                              
  442 | }
      | ~                                                         
  443 | 
      |                                                           
  444 | void SaveState::allocnode(NodeState& ns, Node* nd) {
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~      
  445 |  ns.nmemb = 0;
      |  ~~~~~~~~~~~~~                                            
  446 |  ns.type = NULL;
      |  ~~~~~~~~~~~~~~~                                          
  447 |  ns.state = NULL;
      |  ~~~~~~~~~~~~~~~~                                         
  448 |  ns.nstate = 0;
      |  ~~~~~~~~~~~~~~                                           
  449 |  Prop* p;
      |  ~~~~~~~~                                                 
  450 |  for (p = nd->prop; p; p = p->next) {
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                     
  451 |   if (ssi[p->type].size == 0) {
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                           
  452 |    continue;
      |    ~~~~~~~~~                                              
  453 |   }
      |   ~                                                       
  454 |   ++ns.nmemb;
      |   ~~~~~~~~~~~                                             
  455 |   ns.nstate += ssi[p->type].size;
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                         
  456 |  }
      |  ~                                                        
  457 |  if (ns.nmemb) {
      |  ~~~~~~~~~~~~~~~                                          
  458 |   ns.type = new int[ns.nmemb];
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~~                            
  459 |  }
      |  ~                                                        
  460 |  if (ns.nstate) {
      |  ~~~~~~~~~~~~~~~~                                         
  461 |   ns.state = new double[ns.nstate];
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                       
  462 |  }
      |  ~                                                        
  463 |  int i = 0;
      |  ~~~~~~~~~~                                               
  464 |  for (p = nd->prop; p; p = p->next) {
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                     
  465 |   if (ssi[p->type].size == 0) {
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                           
  466 |    continue;
      |    ~~~~~~~~~                                              
  467 |   }
      |   ~                                                       
  468 |   ns.type[i] = p->type;
      |   ~~~~~~~~~~~~~~~~~~~~~                                   
  469 |   ++i;
      |   ~~~~                                                    
  470 |  }
      |  ~                                                        
  471 | }
      | ~                                                         
  472 | 
      |                                                           
  473 | void SaveState::allocacell(ACellState& ac, int type) {
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~    
  474 |  Memb_list& ml = memb_list[type];
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                         
  475 |  ac.type = type;
      |  ~~~~~~~~~~~~~~~                                          
  476 |  ac.ncell = ml.nodecount;
      |  ~~~~~~~~~~~~~~~~~~~~~~~~                                 
  477 |  ac.state = new double[ac.ncell * ssi[type].size];
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~        
  478 | }
      | ~                                                         
  479 | 
      |                                                           
  480 | void SaveState::ssfree() {
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~                                
  481 |  int i, isec, inode;
      |  ~~~~~~~~~~~~~~~~~~~                                      
  482 |  for (isec=0; isec < nsec_; ++isec) {
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                     
  483 |   SecState& ss = ss_[isec];
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~                               
  484 |   for (inode = 0; inode < ss.nnode; ++inode) {
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~            
  485 |    NodeState& ns = ss.ns[inode];
      |    ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                          
  486 |    if (ns.nmemb) {
      |    ~~~~~~~~~~~~~~~                                        
  487 |     delete [] ns.type;
      |     ~~~~~~~~~~~~~~~~~~                                    
  488 |    }
      |    ~                                                      
  489 |    if (ns.nstate) {
      |    ~~~~~~~~~~~~~~~~                                       
  490 |     delete [] ns.state;
      |     ~~~~~~~~~~~~~~~~~~~                                   
  491 |    }
      |    ~                                                      
  492 |   }
      |   ~                                                       
  493 |   if (ss.root) {
      |   ~~~~~~~~~~~~~~                                          
  494 |    NodeState& ns = *ss.root;
      |    ~~~~~~~~~~~~~~~~~~~~~~~~~                              
  495 |    if (ns.nmemb) {
      |    ~~~~~~~~~~~~~~~                                        
  496 |     delete [] ns.type;
      |     ~~~~~~~~~~~~~~~~~~                                    
  497 |    }
      |    ~                                                      
  498 |    if (ns.nstate) {
      |    ~~~~~~~~~~~~~~~~                                       
  499 |     delete [] ns.state;
      |     ~~~~~~~~~~~~~~~~~~~                                   
  500 |    }
      |    ~                                                      
  501 |    delete ss.root;
      |    ~~~~~~~~~~~~~~~                                        
  502 |   }
      |   ~                                                       
  503 |   if (ss.nnode) {
      |   ~~~~~~~~~~~~~~~                                         
  504 |    delete [] ss.ns;
      |    ~~~~~~~~~~~~~~~~                                       
  505 |   }
      |   ~                                                       
  506 |   if (ss.sec) { // got info from an fread but never checked it
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
  507 |    section_unref(ss.sec);
      |    ~~~~~~~~~~~~~~~~~~~~~~                                 
  508 |   }
      |   ~                                                       
  509 |  }
      |  ~                                                        
  510 |  if (nsec_) {
      |  ~~~~~~~~~~~~                                             
  511 |   delete [] ss_;
      |   ~~~~~~~~~~~~~~                                          
  512 |  }
      |  ~                                                        
  513 |  nsec_ = 0;
      |  ~~~~~~~~~~                                               
  514 |  ss_ = NULL;
      |  ~~~~~~~~~~~                                              
  515 |  for (i=0; i < nacell_; ++i) {
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                            
  516 |   if (acell_[i].ncell) {
      |   ~~~~~~~~~~~~~~~~~~~~~~                                  
  517 |    delete [] acell_[i].state;
      |    ~~~~~~~~~~~~~~~~~~~~~~~~~~                             
  518 |    acell_[i].state = 0;
      |    ~~~~~~~~~~~~~~~~~~~~                                   
  519 |    acell_[i].ncell = 0;
      |    ~~~~~~~~~~~~~~~~~~~~                                   
  520 |   }
      |   ~                                                       
  521 |  } // note we do not destroy the acell_.
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                  
  522 |  if (nncs_) {
      |  ~~~~~~~~~~~~                                             
  523 |   for (i = 0; i < nncs_; ++i) {
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                           
  524 |    if (ncs_[i].nstate) {
      |    ~~~~~~~~~~~~~~~~~~~~~                                  
  525 |     delete [] ncs_[i].state;
      |     ~~~~~~~~~~~~~~~~~~~~~~~~                              
  526 |    }
      |    ~                                                      
  527 |   }
      |   ~                                                       
  528 |   delete [] ncs_;
      |   ~~~~~~~~~~~~~~~                                         
  529 |  }
      |  ~                                                        
  530 |  nncs_ = 0;
      |  ~~~~~~~~~~                                               
  531 |  ncs_ = NULL;
      |  ~~~~~~~~~~~~                                             
  532 |  if (npss_) {
      |  ~~~~~~~~~~~~                                             
  533 |   delete [] pss_;
      |   ~~~~~~~~~~~~~~~                                         
  534 |  }
      |  ~                                                        
  535 |  npss_ = 0;
      |  ~~~~~~~~~~                                               
  536 |  pss_ = NULL;
      |  ~~~~~~~~~~~~                                             
  537 |  free_tq();
      |  ~~~~~~~~~~                                               
  538 |  if (nprs_) {
      |  ~~~~~~~~~~~~                                             
  539 |   for (i=0; i < nprs_; ++i) {
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~                             
  540 |    delete prs_[i];
      |    ~~~~~~~~~~~~~~~                                        
  541 |   }
      |   ~                                                       
  542 |   delete [] prs_;
      |   ~~~~~~~~~~~~~~~                                         
  543 |  }
      |  ~                                                        
  544 |  nprs_ = 0;
      |  ~~~~~~~~~~                                               
  545 | }
      | ~                                                         
  546 | 
      |                                                           
  547 | void SaveState::save() {
      | ~~~~~~~~~~~~~~~~~~~~~~~~                                  
  548 |  NrnThread* nt;
      |  ~~~~~~~~~~~~~~                                           
  549 |  if (!check(false)) {
      |  ~~~~~~~~~~~~~~~~~~~~                                     
  550 |   alloc();
      |   ~~~~~~~~                                                
  551 |  }
      |  ~                                                        
  552 |  FOR_THREADS(nt) {
      |  ~~~~~~~~~~~~~~~~~                                        
  553 |   assert(t == nt->_t);
      |   ~~~~~~~~~~~~~~~~~~~~                                    
  554 |  }
      |  ~                                                        
  555 |  t_ = t;
      |  ~~~~~~~                                                  
  556 |  int inode;
      |  ~~~~~~~~~~                                               
  557 |  for (int isec=0; isec < nsec_; ++isec) {
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                 
  558 |   SecState& ss = ss_[isec];
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~                               
  559 |   Section* sec = ss.sec;
      |   ~~~~~~~~~~~~~~~~~~~~~~                                  
  560 |   for (inode = 0; inode < ss.nnode; ++inode) {
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~            
  561 |    NodeState& ns = ss.ns[inode];
      |    ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                          
  562 |    Node* nd = sec->pnode[inode];
      |    ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                          
  563 |    savenode(ns, nd);
      |    ~~~~~~~~~~~~~~~~~                                      
  564 |   }
      |   ~                                                       
  565 |   if (ss.root) {
      |   ~~~~~~~~~~~~~~                                          
  566 |    NodeState& ns = *ss.root;
      |    ~~~~~~~~~~~~~~~~~~~~~~~~~                              
  567 |    Node* nd = sec->parentnode;
      |    ~~~~~~~~~~~~~~~~~~~~~~~~~~~                            
  568 |    savenode(ns, nd);
      |    ~~~~~~~~~~~~~~~~~                                      
  569 |   }
      |   ~                                                       
  570 |  }
      |  ~                                                        
  571 |  for (int i=0, j=0; i < n_memb_func; ++i) if (nrn_is_artificial_[i]) {
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
  572 |   saveacell(acell_[j], i);
      |   ~~~~~~~~~~~~~~~~~~~~~~~~                                
  573 |   ++j;
      |   ~~~~                                                    
  574 |  }
      |  ~                                                        
  575 |  if (nprs_) {
      |  ~~~~~~~~~~~~                                             
  576 |   PlayRecList* prl = net_cvode_instance_prl();
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~            
  577 |   int i;
      |   ~~~~~~                                                  
  578 |   assert(nprs_ == prl->count());
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                          
  579 |   for (i=0; i < nprs_; ++i) {
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~                             
  580 |    prs_[i] = prl->item(i)->savestate_save();
      |    ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~              
  581 |   }
      |   ~                                                       
  582 |  }
      |  ~                                                        
  583 |  savenet();
      |  ~~~~~~~~~~                                               
  584 | }
      | ~                                                         
  585 | 
      |                                                           
  586 | void SaveState::savenode(NodeState& ns, Node* nd) {
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~       
  587 |  ns.v = NODEV(nd);
      |  ~~~~~~~~~~~~~~~~~                                        
  588 |  int istate = 0;
      |  ~~~~~~~~~~~~~~~                                          
  589 |  Prop* p;
      |  ~~~~~~~~                                                 
  590 |  for (p = nd->prop; p; p = p->next) {
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                     
  591 |   if (ssi[p->type].size == 0) {
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                           
  592 |    continue;
      |    ~~~~~~~~~                                              
  593 |   }
      |   ~                                                       
  594 |   int type = p->type;
      |   ~~~~~~~~~~~~~~~~~~~                                     
  595 |   int max = ssi[type].offset + ssi[type].size;
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~            
  596 | #if EXTRACELLULAR
      | ~~~~~~~~~~~~~~~~~                                         
  597 |   if (type == EXTRACELL) {
      |   ~~~~~~~~~~~~~~~~~~~~~~~~                                
  598 |    for (int i=0; i < nlayer; ++i) {
      |    ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                       
  599 |     ns.state[istate++] = nd->extnode->v[i];
      |     ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~               
  600 |    }
      |    ~                                                      
  601 |   }else
      |   ~~~~~                                                   
  602 | #endif
      | ~~~~~~                                                    
  603 |   {
      |   ~                                                       
  604 |    for (int ip=ssi[type].offset; ip < max; ++ip) {
      |    ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~        
  605 |     ns.state[istate++] = p->param[ip];
      |     ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                    
  606 |    }
      |    ~                                                      
  607 |   }
      |   ~                                                       
  608 |  }
      |  ~                                                        
  609 | }
      | ~                                                         
  610 | 
      |                                                           
  611 | void SaveState::saveacell(ACellState& ac, int type) {
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~     
  612 |  Memb_list& ml = memb_list[type];
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                         
  613 |  int sz = ssi[type].size;
      |  ~~~~~~~~~~~~~~~~~~~~~~~~                                 
  614 |  double* p = ac.state;
      |  ~~~~~~~~~~~~~~~~~~~~~                                    
  615 |  for (int i = 0; i < ml.nodecount; ++i) {
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                 
  616 |   double* d = ml.data[i];
      |   ~~~~~~~~~~~~~~~~~~~~~~~                                 
  617 |   for (int j=0; j < sz; ++j) {
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~~                            
  618 |    (*p++) = d[j];
      |    ~~~~~~~~~~~~~~                                         
  619 |   }
      |   ~                                                       
  620 |  }
      |  ~                                                        
  621 | }
      | ~                                                         
  622 | 
      |                                                           
  623 | void SaveState::restore(int type) {
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                       
  624 |  NrnThread* nt;
      |  ~~~~~~~~~~~~~~                                           
  625 |  if (!check(true)) {
      |  ~~~~~~~~~~~~~~~~~~~                                      
  626 |   hoc_execerror("SaveState:",
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~                             
  627 |   "Stored state inconsistent with current neuron structure");
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
  628 |  }
      |  ~                                                        
  629 |  t = t_;
      |  ~~~~~~~                                                  
  630 |  FOR_THREADS(nt) {
      |  ~~~~~~~~~~~~~~~~~                                        
  631 |   nt->_t = t_;
      |   ~~~~~~~~~~~~                                            
  632 |  }
      |  ~                                                        
  633 |  int inode;
      |  ~~~~~~~~~~                                               
  634 |  for (int isec=0; isec < nsec_; ++isec) {
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                 
  635 |   SecState& ss = ss_[isec];
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~                               
  636 |   Section* sec = ss.sec;
      |   ~~~~~~~~~~~~~~~~~~~~~~                                  
  637 |   for (inode = 0; inode < ss.nnode; ++inode) {
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~            
  638 |    NodeState& ns = ss.ns[inode];
      |    ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                          
  639 |    Node* nd = sec->pnode[inode];
      |    ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                          
  640 |    restorenode(ns, nd);
      |    ~~~~~~~~~~~~~~~~~~~~                                   
  641 |   }
      |   ~                                                       
  642 |   if (ss.root) {
      |   ~~~~~~~~~~~~~~                                          
  643 |    NodeState& ns = *ss.root;
      |    ~~~~~~~~~~~~~~~~~~~~~~~~~                              
  644 |    Node* nd = sec->parentnode;
      |    ~~~~~~~~~~~~~~~~~~~~~~~~~~~                            
  645 |    restorenode(ns, nd);
      |    ~~~~~~~~~~~~~~~~~~~~                                   
  646 |   }
      |   ~                                                       
  647 |  }
      |  ~                                                        
  648 |  for (int i=0, j=0; i < n_memb_func; ++i) if (nrn_is_artificial_[i]) {
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
  649 |   restoreacell(acell_[j], i);
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~                             
  650 |   ++j;
      |   ~~~~                                                    
  651 |  }
      |  ~                                                        
  652 |  if (type == 1) { return; }
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~                               
  653 |  PlayRecList* prl = net_cvode_instance_prl();
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~             
  654 |  // during a local step the PlayRecList is augmented with GLineRecord
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
  655 |  // assert(nprs_ == prl->count());
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                        
  656 |  assert(nprs_ <= prl->count());
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                           
  657 |  int i;
      |  ~~~~~~                                                   
  658 |  for (i = 0; i < nprs_; ++i) {
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                            
  659 |   prs_[i]->savestate_restore();
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                           
  660 |  }
      |  ~                                                        
  661 |  restorenet();
      |  ~~~~~~~~~~~~~                                            
  662 | }
      | ~                                                         
  663 | 
      |                                                           
  664 | void SaveState::restorenode(NodeState& ns, Node* nd) {
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~    
  665 |  NODEV(nd) = ns.v;;
      |  ~~~~~~~~~~~~~~~~~~                                       
  666 |  int istate = 0;
      |  ~~~~~~~~~~~~~~~                                          
  667 |  Prop* p;
      |  ~~~~~~~~                                                 
  668 |  for (p = nd->prop; p; p = p->next) {
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                     
  669 |   if (ssi[p->type].size == 0) {
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                           
  670 |    continue;
      |    ~~~~~~~~~                                              
  671 |   }
      |   ~                                                       
  672 |   int type = p->type;
      |   ~~~~~~~~~~~~~~~~~~~                                     
  673 |   int max = ssi[type].offset + ssi[type].size;
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~            
  674 | #if EXTRACELLULAR
      | ~~~~~~~~~~~~~~~~~                                         
  675 |   if (type == EXTRACELL) {
      |   ~~~~~~~~~~~~~~~~~~~~~~~~                                
  676 |    for (int i=0; i < nlayer; ++i) {
      |    ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                       
  677 |     nd->extnode->v[i] = ns.state[istate++];
      |     ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~               
  678 |    }
      |    ~                                                      
  679 |   }else
      |   ~~~~~                                                   
  680 | #endif
      | ~~~~~~                                                    
  681 |   {
      |   ~                                                       
  682 |    for (int ip=ssi[type].offset; ip < max; ++ip) {
      |    ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~        
  683 |     p->param[ip] = ns.state[istate++];
      |     ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                    
  684 |    }
      |    ~                                                      
  685 |   }
      |   ~                                                       
  686 |  }
      |  ~                                                        
  687 | }
      | ~                                                         
  688 | 
      |                                                           
  689 | void SaveState::restoreacell(ACellState& ac, int type) {
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~  
  690 |  Memb_list& ml = memb_list[type];
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                         
  691 |  int sz = ssi[type].size;
      |  ~~~~~~~~~~~~~~~~~~~~~~~~                                 
  692 |  double* p = ac.state;
      |  ~~~~~~~~~~~~~~~~~~~~~                                    
  693 |  for (int i = 0; i < ml.nodecount; ++i) {
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                 
  694 |   double* d = ml.data[i];
      |   ~~~~~~~~~~~~~~~~~~~~~~~                                 
  695 |   for (int j=0; j < sz; ++j) {
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~~                            
  696 |    d[j] = (*p++);
      |    ~~~~~~~~~~~~~~                                         
  697 |   }
      |   ~                                                       
  698 |  }
      |  ~                                                        
  699 | }
      | ~                                                         
  700 | 
      |                                                           
  701 | void SaveState::read(OcFile* ocf, bool close) {
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~           
  702 |  if (!ocf->open(ocf->get_name(), "r")) {
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                  
  703 |   hoc_execerror("Couldn't open file for reading:", ocf->get_name());
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
  704 |  }
      |  ~                                                        
  705 |  nrn_shape_update();
      |  ~~~~~~~~~~~~~~~~~~~                                      
  706 |  BinaryMode(ocf)
      |  ~~~~~~~~~~~~~~~                                          
  707 |  FILE* f = ocf->file();
      |  ~~~~~~~~~~~~~~~~~~~~~~                                   
  708 |  ssfree();
      |  ~~~~~~~~~                                                
  709 |  char buf[200];
      |  ~~~~~~~~~~~~~~                                           
  710 |  ASSERTfgets(buf, 200, f);
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~                                
  711 |  if (strcmp(buf, "SaveState binary file version 6.0\n") != 0) {
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
  712 |   ocf->close();
      |   ~~~~~~~~~~~~~                                           
  713 |   hoc_execerror("Bad SaveState binary file", " Not version 6.0");
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
  714 |  }
      |  ~                                                        
  715 |  ASSERTfread((char*)&t_, sizeof(double), 1, f);
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~           
  716 | // fscanf(f, "%d %d\n", &nsec_, &nrootnode_);
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~             
  717 | // on some os's fscanf leaves file pointer at wrong place for next fread
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
  718 | // can check it with ftell(f)
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                             
  719 |  ASSERTfgets(buf, 200, f);
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~                                
  720 |  sscanf(buf, "%d %d\n", &nsec_, &nroot_);
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                 
  721 |  // to enable comparison of SaveState files, we avoid
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~     
  722 |  // putting pointers in the files and instead explicitly read/write
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
  723 |  // structure elements.
      |  ~~~~~~~~~~~~~~~~~~~~~~                                   
  724 |  ss_ = new SecState[nsec_];
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~                               
  725 |  fread_SecState(ss_, nsec_, f);
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                           
  726 |  for (int isec=0; isec < nsec_; ++isec) {
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                 
  727 |   SecState& ss = ss_[isec];
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~                               
  728 |   ss.sec = NULL;
      |   ~~~~~~~~~~~~~~                                          
  729 |   ss.ns = new NodeState[ss.nnode];
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                        
  730 |   fread_NodeState(ss.ns, ss.nnode, f);
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                    
  731 |   for (int inode = 0; inode < ss.nnode; ++inode) {
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~        
  732 |    NodeState& ns = ss.ns[inode];
      |    ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                          
  733 |    if (ns.nmemb) {
      |    ~~~~~~~~~~~~~~~                                        
  734 |     ns.type = new int[ns.nmemb];
      |     ~~~~~~~~~~~~~~~~~~~~~~~~~~~~                          
  735 |     ASSERTfread((char*)ns.type, sizeof(int), ns.nmemb, f);
      |     ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
  736 |    }
      |    ~                                                      
  737 |    if (ns.nstate) {
      |    ~~~~~~~~~~~~~~~~                                       
  738 |     ns.state = new double[ns.nstate];
      |     ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                     
  739 |     ASSERTfread((char*)ns.state, sizeof(double), ns.nstate, f);
      |     ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
  740 |    }
      |    ~                                                      
  741 |   }
      |   ~                                                       
  742 |   if (ss.root) {
      |   ~~~~~~~~~~~~~~                                          
  743 |    fread_NodeState(ss.root, 1, f);
      |    ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                        
  744 |    NodeState& ns = *ss.root;
      |    ~~~~~~~~~~~~~~~~~~~~~~~~~                              
  745 |    if (ns.nmemb) {
      |    ~~~~~~~~~~~~~~~                                        
  746 |     ns.type = new int[ns.nmemb];
      |     ~~~~~~~~~~~~~~~~~~~~~~~~~~~~                          
  747 |     ASSERTfread((char*)ns.type, sizeof(int), ns.nmemb, f);
      |     ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
  748 |    }
      |    ~                                                      
  749 |    if (ns.nstate) {
      |    ~~~~~~~~~~~~~~~~                                       
  750 |     ns.state = new double[ns.nstate];
      |     ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                     
  751 |     ASSERTfread((char*)ns.state, sizeof(double), ns.nstate, f);
      |     ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
  752 |    }
      |    ~                                                      
  753 |   }
      |   ~                                                       
  754 |  }
      |  ~                                                        
  755 |  int n = 0;
      |  ~~~~~~~~~~                                               
  756 |  ASSERTfgets(buf, 20, f);
      |  ~~~~~~~~~~~~~~~~~~~~~~~~                                 
  757 |  sscanf(buf, "%d\n", &n);
      |  ~~~~~~~~~~~~~~~~~~~~~~~~                                 
  758 |  assert(n == nacell_);
      |  ~~~~~~~~~~~~~~~~~~~~~                                    
  759 |  for (int i=0, j=0; i < n_memb_func; ++i) if (nrn_is_artificial_[i]) {
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
  760 |   int nt = 0, nc = 0, ns = 0;
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~                             
  761 |   ASSERTfgets(buf, 200, f);
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~                               
  762 |   nrn_assert(sscanf(buf, "%d %d %d\n", &nt, &nc, &ns) == 3);
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
  763 |   assert(nt == i && nc == memb_list[i].nodecount);
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~        
  764 |   assert(ns == nc * ssi[i].size);
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                         
  765 |   acell_[j].ncell = nc;
      |   ~~~~~~~~~~~~~~~~~~~~~                                   
  766 |   acell_[j].state = new double[ns];
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                       
  767 |   ASSERTfread((char*)acell_[j].state, sizeof(double), ns, f);
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
  768 |   ++j;
      |   ~~~~                                                    
  769 |  }
      |  ~                                                        
  770 |  ASSERTfgets(buf, 20, f);
      |  ~~~~~~~~~~~~~~~~~~~~~~~~                                 
  771 |  sscanf(buf, "%d\n", &nprs_);
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~                             
  772 |  if (nprs_) {
      |  ~~~~~~~~~~~~                                             
  773 |   prs_ = new PlayRecordSave*[nprs_];
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                      
  774 |   for (int i=0; i < nprs_; ++i) {
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                         
  775 |    prs_[i] = PlayRecord::savestate_read(f);
      |    ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~               
  776 |   }
      |   ~                                                       
  777 |  }
      |  ~                                                        
  778 |  readnet(f);
      |  ~~~~~~~~~~~                                              
  779 |  if (close) {
      |  ~~~~~~~~~~~~                                             
  780 |   ocf->close();
      |   ~~~~~~~~~~~~~                                           
  781 |  }
      |  ~                                                        
  782 | }
      | ~                                                         
  783 | 
      |                                                           
  784 | void SaveState::write(OcFile* ocf, bool close) {
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~          
  785 |  if (!ocf->open(ocf->get_name(), "w")) {
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                  
  786 |   hoc_execerror("Couldn't open file for writing:", ocf->get_name());
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
  787 |  }
      |  ~                                                        
  788 |  BinaryMode(ocf)
      |  ~~~~~~~~~~~~~~~                                          
  789 |  FILE* f = ocf->file();
      |  ~~~~~~~~~~~~~~~~~~~~~~                                   
  790 |  fprintf(f, "SaveState binary file version 6.0\n");
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~       
  791 |  ASSERTfwrite((char*)&t_, sizeof(double), 1, f);
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~          
  792 |  fprintf(f, "%d %d\n", nsec_, nroot_);
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                    
  793 |  fwrite_SecState(ss_, nsec_, f);
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                          
  794 |  for (int isec=0; isec < nsec_; ++isec) {
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                 
  795 |   SecState& ss = ss_[isec];
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~                               
  796 |   fwrite_NodeState(ss.ns, ss.nnode, f);
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                   
  797 |   for (int inode = 0; inode < ss.nnode; ++inode) {
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~        
  798 |    NodeState& ns = ss.ns[inode];
      |    ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                          
  799 |    if (ns.nmemb){
      |    ~~~~~~~~~~~~~~                                         
  800 |     ASSERTfwrite((char*)ns.type, sizeof(int), ns.nmemb, f);
      |     ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
  801 |    }
      |    ~                                                      
  802 |    if (ns.nstate) {
      |    ~~~~~~~~~~~~~~~~                                       
  803 |     ASSERTfwrite((char*)ns.state, sizeof(double), ns.nstate, f);
      |     ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
  804 |    }
      |    ~                                                      
  805 |   }
      |   ~                                                       
  806 |   if (ss.root) {
      |   ~~~~~~~~~~~~~~                                          
  807 |    fwrite_NodeState(ss.root, 1, f);
      |    ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                       
  808 |    NodeState& ns = *ss.root;
      |    ~~~~~~~~~~~~~~~~~~~~~~~~~                              
  809 |    if (ns.nmemb){
      |    ~~~~~~~~~~~~~~                                         
  810 |     ASSERTfwrite((char*)ns.type, sizeof(int), ns.nmemb, f);
      |     ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
  811 |    }
      |    ~                                                      
  812 |    if (ns.nstate) {
      |    ~~~~~~~~~~~~~~~~                                       
  813 |     ASSERTfwrite((char*)ns.state, sizeof(double), ns.nstate, f);
      |     ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
  814 |    }
      |    ~                                                      
  815 |   }
      |   ~                                                       
  816 |  }
      |  ~                                                        
  817 |  fprintf(f, "%d\n", nacell_);
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~                             
  818 |  for (int i=0, j=0; i < n_memb_func; ++i) if (nrn_is_artificial_[i]) {
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
  819 |   int sz = acell_[j].ncell * ssi[i].size;
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                 
  820 |   fprintf(f, "%d %d %d\n", acell_[j].type, acell_[j].ncell, sz);
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
  821 |   ASSERTfwrite((char*)acell_[j].state, sizeof(double), sz, f);
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
  822 |   ++j;
      |   ~~~~                                                    
  823 |  }
      |  ~                                                        
  824 |  fprintf(f, "%d\n", nprs_);
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~                               
  825 |  for (int i=0; i < nprs_; ++i) {
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                          
  826 |   fprintf(f, "%d %d\n", prs_[i]->pr_->type(), i);
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~         
  827 |   prs_[i]->savestate_write(f);
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~~                            
  828 |  }
      |  ~                                                        
  829 |  writenet(f);
      |  ~~~~~~~~~~~~                                             
  830 |  if (close) {
      |  ~~~~~~~~~~~~                                             
  831 |   ocf->close();
      |   ~~~~~~~~~~~~~                                           
  832 |  }
      |  ~                                                        
  833 | }
      | ~                                                         
  834 | 
      |                                                           
  835 | void SaveState::savenet() {
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~                               
  836 |  int i, j, n;
      |  ~~~~~~~~~~~~                                             
  837 |  double* w;
      |  ~~~~~~~~~~                                               
  838 |  hoc_Item* q;
      |  ~~~~~~~~~~~~                                             
  839 |  Object* ob;
      |  ~~~~~~~~~~~                                              
  840 |  NetCon* d;
      |  ~~~~~~~~~~                                               
  841 |  PreSyn* ps;
      |  ~~~~~~~~~~~                                              
  842 |  i = 0;
      |  ~~~~~~                                                   
  843 |  ITERATE(q, nct->olist) {
      |  ~~~~~~~~~~~~~~~~~~~~~~~~                                 
  844 |   ob = OBJ(q);
      |   ~~~~~~~~~~~~                                            
  845 |   d = (NetCon*)ob->u.this_pointer;
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                        
  846 |   n = ncs_[i].nstate;
      |   ~~~~~~~~~~~~~~~~~~~                                     
  847 |   w = ncs_[i].state;
      |   ~~~~~~~~~~~~~~~~~~                                      
  848 |   for (j=0; j < n; ++j) {
      |   ~~~~~~~~~~~~~~~~~~~~~~~                                 
  849 |    w[j] = d->weight_[j];
      |    ~~~~~~~~~~~~~~~~~~~~~                                  
  850 |   }
      |   ~                                                       
  851 |   ++i;
      |   ~~~~                                                    
  852 |  }
      |  ~                                                        
  853 |  i = 0;
      |  ~~~~~~                                                   
  854 |  if (net_cvode_instance_psl()) ITERATE(q, net_cvode_instance_psl()) {
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
  855 |   ps = (PreSyn*)VOIDITM(q);
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~                               
  856 |   ps->hi_index_ = i;
      |   ~~~~~~~~~~~~~~~~~~                                      
  857 |   pss_[i].flag = ps->flag_;
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~                               
  858 |   pss_[i].valthresh = ps->valthresh_;
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                     
  859 |   pss_[i].valold = ps->valold_;
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                           
  860 |   pss_[i].told = ps->told_;
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~                               
  861 |   ++i;
      |   ~~~~                                                    
  862 |  }
      |  ~                                                        
  863 |  alloc_tq();
      |  ~~~~~~~~~~~                                              
  864 |  tqcnt_ = 0;
      |  ~~~~~~~~~~~                                              
  865 |  NrnThread* nt;
      |  ~~~~~~~~~~~~~~                                           
  866 |  FOR_THREADS(nt) {
      |  ~~~~~~~~~~~~~~~~~                                        
  867 |   TQueue* tq = net_cvode_instance_event_queue(nt);
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~        
  868 |   this_savestate = this; callback_mode = 1;
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~               
  869 |   tq->forall_callback(tqcallback);
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                        
  870 |  }
      |  ~                                                        
  871 | }
      | ~                                                         
  872 | 
      |                                                           
  873 | void SaveState::tqcount(const TQItem*, int) {
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~             
  874 |  ++tqcnt_;
      |  ~~~~~~~~~                                                
  875 | }
      | ~                                                         
  876 | 
      |                                                           
  877 | void SaveState::tqsave(const TQItem* q, int) {
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~            
  878 |  DiscreteEvent* de = (DiscreteEvent*)q->data_;
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~            
  879 |  tqs_->tdeliver[tqcnt_] = q->t_;
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                          
  880 |  tqs_->items[tqcnt_] = de->savestate_save();
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~              
  881 |  ++tqcnt_;
      |  ~~~~~~~~~                                                
  882 | }
      | ~                                                         
  883 | 
      |                                                           
  884 | void SaveState::restorenet() {
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                            
  885 |  int i, j, n;
      |  ~~~~~~~~~~~~                                             
  886 |  double* w;
      |  ~~~~~~~~~~                                               
  887 |  hoc_Item* q;
      |  ~~~~~~~~~~~~                                             
  888 |  Object* ob;
      |  ~~~~~~~~~~~                                              
  889 |  NetCon* d;
      |  ~~~~~~~~~~                                               
  890 |  PreSyn* ps;
      |  ~~~~~~~~~~~                                              
  891 |  // NetCon's
      |  ~~~~~~~~~~~                                              
  892 |  i = 0;
      |  ~~~~~~                                                   
  893 |  ITERATE(q, nct->olist) {
      |  ~~~~~~~~~~~~~~~~~~~~~~~~                                 
  894 |   ob = OBJ(q);
      |   ~~~~~~~~~~~~                                            
  895 |   d = (NetCon*)ob->u.this_pointer;
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                        
  896 |   n = ncs_[i].nstate;
      |   ~~~~~~~~~~~~~~~~~~~                                     
  897 |   w = ncs_[i].state;
      |   ~~~~~~~~~~~~~~~~~~                                      
  898 |   for (j=0; j < n; ++j) {
      |   ~~~~~~~~~~~~~~~~~~~~~~~                                 
  899 |    d->weight_[j] = w[j];
      |    ~~~~~~~~~~~~~~~~~~~~~                                  
  900 |   }
      |   ~                                                       
  901 |   ++i;
      |   ~~~~                                                    
  902 |  }
      |  ~                                                        
  903 |  // PreSyn's
      |  ~~~~~~~~~~~                                              
  904 |  i = 0;
      |  ~~~~~~                                                   
  905 |  if (net_cvode_instance_psl()) ITERATE(q, net_cvode_instance_psl()) {
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
  906 |   ps = (PreSyn*)VOIDITM(q);
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~                               
  907 |   ps->hi_index_ = i;
      |   ~~~~~~~~~~~~~~~~~~                                      
  908 |   ps->flag_ = pss_[i].flag;
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~                               
  909 |   ps->valthresh_ = pss_[i].valthresh;
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                     
  910 |   ps->valold_ = pss_[i].valold;
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                           
  911 |   ps->told_ = pss_[i].told;
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~                               
  912 |   ++i;
      |   ~~~~                                                    
  913 |  }
      |  ~                                                        
  914 | 
      |                                                           
  915 |  // event queue
      |  ~~~~~~~~~~~~~~                                           
  916 |  // clear it
      |  ~~~~~~~~~~~                                              
  917 |  clear_event_queue();
      |  ~~~~~~~~~~~~~~~~~~~~                                     
  918 |  // restore it
      |  ~~~~~~~~~~~~~                                            
  919 |  n = tqs_->nstate;
      |  ~~~~~~~~~~~~~~~~~                                        
  920 |  for (i=0; i < n; ++i) {
      |  ~~~~~~~~~~~~~~~~~~~~~~~                                  
  921 |   tqs_->items[i]->savestate_restore(tqs_->tdeliver[i], net_cvode_instance);
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
  922 |  }
      |  ~                                                        
  923 | }
      | ~                                                         
  924 | 
      |                                                           
  925 | void SaveState::readnet(FILE* f) {
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                        
  926 |  free_tq();
      |  ~~~~~~~~~~                                               
  927 |  char buf[200];
      |  ~~~~~~~~~~~~~~                                           
  928 |  ASSERTfgets(buf, 200, f);
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~                                
  929 |  sscanf(buf, "%d\n", &nncs_);
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~                             
  930 |  if (nncs_ != 0) {
      |  ~~~~~~~~~~~~~~~~~                                        
  931 |   ncs_ = new NetConState[nncs_];
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                          
  932 |  }
      |  ~                                                        
  933 |  int i, n, type;
      |  ~~~~~~~~~~~~~~~                                          
  934 |  for (i=0; i < nncs_; ++i) {
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~                              
  935 |   ASSERTfgets(buf, 200, f);
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~                               
  936 |   sscanf(buf, "%d %d\n", &ncs_[i].object_index, &ncs_[i].nstate);
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
  937 |   if (ncs_[i].nstate) {
      |   ~~~~~~~~~~~~~~~~~~~~~                                   
  938 |    ncs_[i].state = new double[ncs_[i].nstate];
      |    ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~            
  939 |    ASSERTfread((char*)ncs_[i].state, sizeof(double), ncs_[i].nstate, f);
      |    ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
  940 |   }
      |   ~                                                       
  941 |  }
      |  ~                                                        
  942 |  // PreSyn's
      |  ~~~~~~~~~~~                                              
  943 |  ASSERTfgets(buf, 200, f);
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~                                
  944 |  sscanf(buf, "%d\n", &npss_);
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~                             
  945 |  if (npss_ != 0) {
      |  ~~~~~~~~~~~~~~~~~                                        
  946 |   pss_ = new PreSynState[npss_];
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                          
  947 |   ASSERTfread((char*)pss_, sizeof(PreSynState), npss_, f);
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
  948 |   PreSyn* ps;
      |   ~~~~~~~~~~~                                             
  949 |   i = 0;
      |   ~~~~~~                                                  
  950 |   hoc_Item* q;
      |   ~~~~~~~~~~~~                                            
  951 |   if (net_cvode_instance_psl()) ITERATE(q, net_cvode_instance_psl()) {
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
  952 |    ps = (PreSyn*)VOIDITM(q);
      |    ~~~~~~~~~~~~~~~~~~~~~~~~~                              
  953 |    ps->hi_index_ = i;
      |    ~~~~~~~~~~~~~~~~~~                                     
  954 |    ++i;
      |    ~~~~                                                   
  955 |   }
      |   ~                                                       
  956 |   assert(npss_ == i);
      |   ~~~~~~~~~~~~~~~~~~~                                     
  957 |  }
      |  ~                                                        
  958 | 
      |                                                           
  959 |  ASSERTfgets(buf, 200, f);
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~                                
  960 |  sscanf(buf, "%d\n", &n);
      |  ~~~~~~~~~~~~~~~~~~~~~~~~                                 
  961 |  tqs_->nstate = n;
      |  ~~~~~~~~~~~~~~~~~                                        
  962 |  if (n) {
      |  ~~~~~~~~                                                 
  963 |   tqs_->items = new DiscreteEvent*[n];
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                    
  964 |   tqs_->tdeliver = new double[n];
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                         
  965 |   ASSERTfread((char*)tqs_->tdeliver, sizeof(double), n, f);
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
  966 |   for (i=0; i < n; ++i) {
      |   ~~~~~~~~~~~~~~~~~~~~~~~                                 
  967 |    DiscreteEvent* de = NULL;
      |    ~~~~~~~~~~~~~~~~~~~~~~~~~                              
  968 |    ASSERTfgets(buf, 200, f);
      |    ~~~~~~~~~~~~~~~~~~~~~~~~~                              
  969 |    sscanf(buf, "%d\n", &type);
      |    ~~~~~~~~~~~~~~~~~~~~~~~~~~~                            
  970 |    switch(type) {
      |    ~~~~~~~~~~~~~~                                         
  971 |    case DiscreteEventType:
      |    ~~~~~~~~~~~~~~~~~~~~~~~                                
  972 |     de = DiscreteEvent::savestate_read(f);
      |     ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                
  973 |     break;
      |     ~~~~~~                                                
  974 |    case TstopEventType:
      |    ~~~~~~~~~~~~~~~~~~~~                                   
  975 |     de = TstopEvent::savestate_read(f);
      |     ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                   
  976 |     break;
      |     ~~~~~~                                                
  977 |    case NetConType:
      |    ~~~~~~~~~~~~~~~~                                       
  978 |     de = NetCon::savestate_read(f);
      |     ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                       
  979 |     break;
      |     ~~~~~~                                                
  980 |    case SelfEventType:
      |    ~~~~~~~~~~~~~~~~~~~                                    
  981 |     de = SelfEvent::savestate_read(f);
      |     ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                    
  982 |     break;
      |     ~~~~~~                                                
  983 |    case PreSynType:
      |    ~~~~~~~~~~~~~~~~                                       
  984 |     de = PreSyn::savestate_read(f);
      |     ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                       
  985 |     break;
      |     ~~~~~~                                                
  986 |    case HocEventType:
      |    ~~~~~~~~~~~~~~~~~~                                     
  987 |     de = HocEvent::savestate_read(f);
      |     ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                     
  988 |     break;
      |     ~~~~~~                                                
  989 |    case PlayRecordEventType:
      |    ~~~~~~~~~~~~~~~~~~~~~~~~~                              
  990 |     de = PlayRecordEvent::savestate_read(f);
      |     ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~              
  991 |     break;
      |     ~~~~~~                                                
  992 |    case NetParEventType:
      |    ~~~~~~~~~~~~~~~~~~~~~                                  
  993 |     de = NetParEvent::savestate_read(f);
      |     ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                  
  994 |     break;
      |     ~~~~~~                                                
  995 |    default:
      |    ~~~~~~~~                                               
  996 |     hoc_execerror("SaveState::readnet", "Unimplemented DiscreteEvent type");
      |     ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
  997 |     break;
      |     ~~~~~~                                                
  998 |    }
      |    ~                                                      
  999 |    tqs_->items[i] = de;
      |    ~~~~~~~~~~~~~~~~~~~~                                   
 1000 |   }
      |   ~                                                       
 1001 |  }
      |  ~                                                        
 1002 | }
      | ~                                                         
 1003 | 
      |                                                           
 1004 | void SaveState::writenet(FILE* f) {
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                       
 1005 |  fprintf(f, "%d\n", nncs_);
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~                               
 1006 |  int i, n;
      |  ~~~~~~~~~                                                
 1007 |  for (i=0; i < nncs_; ++i) {
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~                              
 1008 |   fprintf(f, "%d %d\n", ncs_[i].object_index, ncs_[i].nstate);
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
 1009 |   if (ncs_[i].nstate) {
      |   ~~~~~~~~~~~~~~~~~~~~~                                   
 1010 |    ASSERTfwrite((char*)ncs_[i].state, sizeof(double), ncs_[i].nstate, f);
      |    ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
 1011 |   }
      |   ~                                                       
 1012 |  }
      |  ~                                                        
 1013 |  fprintf(f, "%d\n", npss_);
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~                               
 1014 |  if (npss_) {
      |  ~~~~~~~~~~~~                                             
 1015 |   ASSERTfwrite((char*)pss_, sizeof(PreSynState), npss_, f);
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~    
/builddir/build/BUILD/nrn-7.8.1/src/oc/nrnassrt.h:23:33: note: in definition of macro 'nrn_assert'
   23 | #  define nrn_assert(ex) {if (!(ex)){fprintf(stderr,"Assertion failed: file %s, line %d\n", __FILE__,__LINE__);hoc_execerror(#ex, (char *)0);}}
      |                                 ^~
/builddir/build/BUILD/nrn-7.8.1/src/nrniv/savstate.cpp:1015:3: note: in expansion of macro 'ASSERTfwrite'
 1015 |   ASSERTfwrite((char*)pss_, sizeof(PreSynState), npss_, f);
      |   ^~~~~~~~~~~~
/builddir/build/BUILD/nrn-7.8.1/src/nrniv/savstate.cpp:34:58: warning: comparison of integer expressions of different signedness: 'size_t' {aka 'long unsigned int'} and 'int' [-Wsign-compare]
   34 | #define ASSERTfwrite(a,b,c,d) nrn_assert(fwrite(a,b,c,d) == c)
      |                                          ~~~~~~~~~~~~~~~~^~~~~
   35 | 
      |                                                           
   36 | class SaveState : public Resource {
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                       
   37 | public:
      | ~~~~~~~                                                   
   38 |  SaveState();
      |  ~~~~~~~~~~~~                                             
   39 |  ~SaveState();
      |  ~~~~~~~~~~~~~                                            
   40 |  virtual void save();
      |  ~~~~~~~~~~~~~~~~~~~~                                     
   41 |  virtual void restore(int type);
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                          
   42 |  virtual void read(OcFile*, bool close);
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                  
   43 |  virtual void write(OcFile*, bool close);
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                 
   44 |  struct NodeState {
      |  ~~~~~~~~~~~~~~~~~~                                       
   45 |   double v;
      |   ~~~~~~~~~                                               
   46 |   int nmemb;
      |   ~~~~~~~~~~                                              
   47 |   int* type;
      |   ~~~~~~~~~~                                              
   48 |   int nstate;
      |   ~~~~~~~~~~~                                             
   49 |   double* state;
      |   ~~~~~~~~~~~~~~                                          
   50 |  };
      |  ~~                                                       
   51 |  struct SecState {
      |  ~~~~~~~~~~~~~~~~~                                        
   52 |   Section* sec;
      |   ~~~~~~~~~~~~~                                           
   53 |   int nnode;
      |   ~~~~~~~~~~                                              
   54 |   struct NodeState* ns;
      |   ~~~~~~~~~~~~~~~~~~~~~                                   
   55 |   struct NodeState* root; // non-zero for rootnode
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~        
   56 |  };
      |  ~~                                                       
   57 |  struct StateStructInfo {
      |  ~~~~~~~~~~~~~~~~~~~~~~~~                                 
   58 |   int offset;
      |   ~~~~~~~~~~~                                             
   59 |   int size;
      |   ~~~~~~~~~                                               
   60 |  };
      |  ~~                                                       
   61 |  struct ACellState {
      |  ~~~~~~~~~~~~~~~~~~~                                      
   62 |   int type;
      |   ~~~~~~~~~                                               
   63 |   int ncell;
      |   ~~~~~~~~~~                                              
   64 |   double* state;
      |   ~~~~~~~~~~~~~~                                          
   65 |  };
      |  ~~                                                       
   66 |  struct NetConState {
      |  ~~~~~~~~~~~~~~~~~~~~                                     
   67 |   int object_index; // for checking
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                       
   68 |   int nstate;
      |   ~~~~~~~~~~~                                             
   69 |   double* state;
      |   ~~~~~~~~~~~~~~                                          
   70 |  };
      |  ~~                                                       
   71 |  struct PreSynState {
      |  ~~~~~~~~~~~~~~~~~~~~                                     
   72 |   bool flag; // is it firing?
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~                             
   73 |   double valthresh, valold, told;
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                         
   74 | 
      |                                                           
   75 |  };
      |  ~~                                                       
   76 |  struct TQState {
      |  ~~~~~~~~~~~~~~~~                                         
   77 |   int nstate;
      |   ~~~~~~~~~~~                                             
   78 |   double* tdeliver;
      |   ~~~~~~~~~~~~~~~~~                                       
   79 |   DiscreteEvent** items;
      |   ~~~~~~~~~~~~~~~~~~~~~~                                  
   80 |  };
      |  ~~                                                       
   81 | private:
      | ~~~~~~~~                                                  
   82 |  bool check(bool warn);
      |  ~~~~~~~~~~~~~~~~~~~~~~                                   
   83 |  void alloc();
      |  ~~~~~~~~~~~~~                                            
   84 |  void ssfree();
      |  ~~~~~~~~~~~~~~                                           
   85 |  void ssi_def();
      |  ~~~~~~~~~~~~~~~                                          
   86 | private:
      | ~~~~~~~~                                                  
   87 |  void fread_NodeState(NodeState*, int, FILE*);
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~            
   88 |  void fwrite_NodeState(NodeState*, int, FILE*);
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~           
   89 |  void fread_SecState(SecState*, int, FILE*);
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~              
   90 |  void fwrite_SecState(SecState*, int, FILE*);
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~             
   91 | private:
      | ~~~~~~~~                                                  
   92 |  double t_;
      |  ~~~~~~~~~~                                               
   93 |  int nroot_;
      |  ~~~~~~~~~~~                                              
   94 |  int nsec_;
      |  ~~~~~~~~~~                                               
   95 |  SecState* ss_;
      |  ~~~~~~~~~~~~~~                                           
   96 |  int nacell_; // number of types
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                          
   97 |  ACellState* acell_;
      |  ~~~~~~~~~~~~~~~~~~~                                      
   98 |  int nncs_;
      |  ~~~~~~~~~~                                               
   99 |  NetConState* ncs_;
      |  ~~~~~~~~~~~~~~~~~~                                       
  100 |  int npss_;
      |  ~~~~~~~~~~                                               
  101 |  PreSynState* pss_;
      |  ~~~~~~~~~~~~~~~~~~                                       
  102 |  TQState* tqs_;
      |  ~~~~~~~~~~~~~~                                           
  103 |  int tqcnt_; // volatile for index of forall_callback
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~     
  104 |  int nprs_;
      |  ~~~~~~~~~~                                               
  105 |  PlayRecordSave** prs_;
      |  ~~~~~~~~~~~~~~~~~~~~~~                                   
  106 |  static StateStructInfo* ssi;
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~                             
  107 |  static cTemplate* nct;
      |  ~~~~~~~~~~~~~~~~~~~~~~                                   
  108 | private:
      | ~~~~~~~~                                                  
  109 |  void savenode(NodeState&, Node*);
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                        
  110 |  void restorenode(NodeState&, Node*);
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                     
  111 |  bool checknode(NodeState&, Node*, bool);
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                 
  112 |  void allocnode(NodeState&, Node*);
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                       
  113 | 
      |                                                           
  114 |  void saveacell(ACellState&, int type);
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                   
  115 |  void restoreacell(ACellState&, int type);
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                
  116 |  bool checkacell(ACellState&, int type, bool);
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~            
  117 |  void allocacell(ACellState&, int type);
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                  
  118 | 
      |                                                           
  119 |  void savenet();
      |  ~~~~~~~~~~~~~~~                                          
  120 |  void restorenet();
      |  ~~~~~~~~~~~~~~~~~~                                       
  121 |  void readnet(FILE*);
      |  ~~~~~~~~~~~~~~~~~~~~                                     
  122 |  void writenet(FILE*);
      |  ~~~~~~~~~~~~~~~~~~~~~                                    
  123 |  bool checknet(bool);
      |  ~~~~~~~~~~~~~~~~~~~~                                     
  124 |  void allocnet();
      |  ~~~~~~~~~~~~~~~~                                         
  125 |  void free_tq();
      |  ~~~~~~~~~~~~~~~                                          
  126 |  void alloc_tq();
      |  ~~~~~~~~~~~~~~~~                                         
  127 | public:
      | ~~~~~~~                                                   
  128 |  void tqcount(const TQItem*, int);
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                        
  129 |  void tqsave(const TQItem*, int);
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                         
  130 | };
      | ~~                                                        
  131 | 
      |                                                           
  132 | static SaveState* this_savestate;
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                         
  133 | static int callback_mode;
      | ~~~~~~~~~~~~~~~~~~~~~~~~~                                 
  134 | 
      |                                                           
  135 | void tqcallback(const TQItem* tq, int i) {
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                
  136 |  if (callback_mode == 0) {
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~                                
  137 |   this_savestate->tqcount(tq, i);
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                         
  138 |  }else{
      |  ~~~~~~                                                   
  139 |   this_savestate->tqsave(tq, i);
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                          
  140 |  }
      |  ~                                                        
  141 | }
      | ~                                                         
  142 | 
      |                                                           
  143 | #if __sgi && 0
      | ~~~~~~~~~~~~~~                                            
  144 | // fixed in version 5 of os
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~                               
  145 | StateStructInfo* SaveState::ssi;
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                          
  146 | #else
      | ~~~~~                                                     
  147 | SaveState::StateStructInfo* SaveState::ssi;
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~               
  148 | #endif
      | ~~~~~~                                                    
  149 | cTemplate* SaveState::nct;
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~                                
  150 | 
      |                                                           
  151 | SaveState::SaveState() {
      | ~~~~~~~~~~~~~~~~~~~~~~~~                                  
  152 |  int i, j;
      |  ~~~~~~~~~                                                
  153 |  ssi_def();
      |  ~~~~~~~~~~                                               
  154 |  nroot_ = 0;
      |  ~~~~~~~~~~~                                              
  155 |  ss_ = NULL;
      |  ~~~~~~~~~~~                                              
  156 |  nsec_ = 0;
      |  ~~~~~~~~~~                                               
  157 |  nncs_ = 0;
      |  ~~~~~~~~~~                                               
  158 |  ncs_ = NULL;
      |  ~~~~~~~~~~~~                                             
  159 |  npss_ = 0;
      |  ~~~~~~~~~~                                               
  160 |  pss_ = NULL;
      |  ~~~~~~~~~~~~                                             
  161 |  tqs_ = new TQState();
      |  ~~~~~~~~~~~~~~~~~~~~~                                    
  162 |  tqs_->nstate = 0;
      |  ~~~~~~~~~~~~~~~~~                                        
  163 |  nprs_ = 0;
      |  ~~~~~~~~~~                                               
  164 |  prs_ = NULL;
      |  ~~~~~~~~~~~~                                             
  165 |  nacell_ = 0;
      |  ~~~~~~~~~~~~                                             
  166 |  for (i=0; i < n_memb_func; ++i) if (nrn_is_artificial_[i]) {
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
  167 |   ++nacell_;
      |   ~~~~~~~~~~                                              
  168 |  }
      |  ~                                                        
  169 |  acell_ = new ACellState[nacell_];
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                        
  170 |  for (i=0; i < nacell_; ++i) {
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                            
  171 |   acell_[i].ncell = 0;
      |   ~~~~~~~~~~~~~~~~~~~~                                    
  172 |   acell_[i].state = 0;
      |   ~~~~~~~~~~~~~~~~~~~~                                    
  173 |  }
      |  ~                                                        
  174 |  for (i=0, j=0; i < n_memb_func; ++i) if (nrn_is_artificial_[i]) {
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
  175 |   acell_[j].type = i;
      |   ~~~~~~~~~~~~~~~~~~~                                     
  176 |   ++j;
      |   ~~~~                                                    
  177 |  }
      |  ~                                                        
  178 | }
      | ~                                                         
  179 | 
      |                                                           
  180 | SaveState::~SaveState() {
      | ~~~~~~~~~~~~~~~~~~~~~~~~~                                 
  181 |  ssfree();
      |  ~~~~~~~~~                                                
  182 |  delete tqs_;
      |  ~~~~~~~~~~~~                                             
  183 |  delete [] acell_;
      |  ~~~~~~~~~~~~~~~~~                                        
  184 | }
      | ~                                                         
  185 | 
      |                                                           
  186 | void SaveState::fread_NodeState(NodeState* ns, int cnt, FILE* f) {
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
  187 |  for (int i=0; i < cnt; ++i) {
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                            
  188 |   ASSERTfread(&ns[i].v, sizeof(double), 1, f);
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~            
  189 |   ASSERTfread(&ns[i].nmemb, sizeof(int), 1, f);
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~           
  190 |   ASSERTfread(&ns[i].nstate, sizeof(int), 1, f);
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~          
  191 |  }
      |  ~                                                        
  192 | }
      | ~                                                         
  193 | void SaveState::fwrite_NodeState(NodeState* ns, int cnt, FILE* f){
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
  194 |  for (int i=0; i < cnt; ++i) {
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                            
  195 |   ASSERTfwrite(&ns[i].v, sizeof(double), 1, f);
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~           
  196 |   ASSERTfwrite(&ns[i].nmemb, sizeof(int), 1, f);
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~          
  197 |   ASSERTfwrite(&ns[i].nstate, sizeof(int), 1, f);
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~         
  198 |  }
      |  ~                                                        
  199 | }
      | ~                                                         
  200 | void SaveState::fread_SecState(SecState* ss, int cnt, FILE* f){
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
  201 |  int b;
      |  ~~~~~~                                                   
  202 |  for (int i=0; i < cnt; ++i) {
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                            
  203 |   ASSERTfread(&ss[i].nnode, sizeof(int), 1, f);
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~           
  204 |   ASSERTfread(&b, sizeof(int), 1, f);
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                     
  205 |   if (b) {
      |   ~~~~~~~~                                                
  206 |    ss[i].root = new NodeState;
      |    ~~~~~~~~~~~~~~~~~~~~~~~~~~~                            
  207 |   }else{
      |   ~~~~~~                                                  
  208 |    ss[i].root = 0;
      |    ~~~~~~~~~~~~~~~                                        
  209 |   }
      |   ~                                                       
  210 |  }
      |  ~                                                        
  211 | }
      | ~                                                         
  212 | void SaveState::fwrite_SecState(SecState* ss, int cnt, FILE* f){
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
  213 |  int b;
      |  ~~~~~~                                                   
  214 |  for (int i=0; i < cnt; ++i) {
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                            
  215 |   ASSERTfwrite(&ss[i].nnode, sizeof(int), 1, f);
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~          
  216 |   b = ss[i].root ? 1 : 0;
      |   ~~~~~~~~~~~~~~~~~~~~~~~                                 
  217 |   ASSERTfwrite(&b, sizeof(int), 1, f);
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                    
  218 |  }
      |  ~                                                        
  219 | }
      | ~                                                         
  220 | 
      |                                                           
  221 | void SaveState::ssi_def() {
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~                               
  222 |  if (nct) { return; }
      |  ~~~~~~~~~~~~~~~~~~~~                                     
  223 |  Symbol* s = hoc_lookup("NetCon");
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                        
  224 |  nct = s->u.ctemplate;
      |  ~~~~~~~~~~~~~~~~~~~~~                                    
  225 |  ssi = new StateStructInfo[n_memb_func];
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                  
  226 |  for (int im=0; im < n_memb_func; ++im) {
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                 
  227 |   ssi[im].offset = -1;
      |   ~~~~~~~~~~~~~~~~~~~~                                    
  228 |   ssi[im].size = 0;
      |   ~~~~~~~~~~~~~~~~~                                       
  229 |   if (!memb_func[im].sym) {
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~                               
  230 |    continue;
      |    ~~~~~~~~~                                              
  231 |   }
      |   ~                                                       
  232 |   NrnProperty* np = new NrnProperty(memb_func[im].sym->name);
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
  233 |   // generally we only save STATE variables. However for
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~  
  234 |   // models containing a NET_RECEIVE block, we also need to
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
  235 |   // save everything except the parameters
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                
  236 |   // because they often contain
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                           
  237 |   // logic and analytic state values. Unfortunately, it is often
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
  238 |   // the case that the ASSIGNED variables are not declared as
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
  239 |   // RANGE variables so to avoid missing state, save the whole
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
  240 |   // param array including PARAMETERs.
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                    
  241 |      if  (pnt_receive[im]) {
      |      ~~~~~~~~~~~~~~~~~~~~~~~                              
  242 |   ssi[im].offset = 0;
      |   ~~~~~~~~~~~~~~~~~~~                                     
  243 |   ssi[im].size = np->prop()->param_size;
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                  
  244 |      }else{
      |      ~~~~~~                                               
  245 |   int type = STATE;
      |   ~~~~~~~~~~~~~~~~~                                       
  246 |   for (Symbol* sym = np->first_var(); np->more_var(); sym = np->next_var()) {
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
  247 |    if (np->var_type(sym) == type
      |    ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                          
  248 |        || np->var_type(sym) == STATE
      |        ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                      
  249 |        || sym->subtype == _AMBIGUOUS) {
      |        ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                   
  250 |     if (ssi[im].offset < 0) {
      |     ~~~~~~~~~~~~~~~~~~~~~~~~~                             
  251 |      ssi[im].offset = np->prop_index(sym);
      |      ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                
  252 |     }
      |     ~                                                     
  253 |     ssi[im].size += hoc_total_array_data(sym, 0);
      |     ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~         
  254 |    }
      |    ~                                                      
  255 |   }
      |   ~                                                       
  256 |      }
      |      ~                                                    
  257 |      delete np;
      |      ~~~~~~~~~~                                           
  258 |  }
      |  ~                                                        
  259 | }
      | ~                                                         
  260 | 
      |                                                           
  261 | bool SaveState::check(bool warn) {
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                        
  262 |  hoc_Item* qsec;
      |  ~~~~~~~~~~~~~~~                                          
  263 |  int isec;
      |  ~~~~~~~~~                                                
  264 |  if (nsec_ != section_count) {
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                            
  265 |   if (warn) {
      |   ~~~~~~~~~~~                                             
  266 | fprintf(stderr, "SaveState warning: %d sections exist but saved %d\n",
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
  267 |    section_count, nsec_);
      |    ~~~~~~~~~~~~~~~~~~~~~~                                 
  268 |   }
      |   ~                                                       
  269 |   return false;
      |   ~~~~~~~~~~~~~                                           
  270 |  }
      |  ~                                                        
  271 |  if (nroot_ != nrn_global_ncell) {
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                        
  272 |   if (warn) {
      |   ~~~~~~~~~~~                                             
  273 | fprintf(stderr, "SaveState warning: %d cells exist but saved %d\n",
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
  274 |    nrn_global_ncell, nroot_);
      |    ~~~~~~~~~~~~~~~~~~~~~~~~~~                             
  275 |   }
      |   ~                                                       
  276 |   return false;
      |   ~~~~~~~~~~~~~                                           
  277 |  }
      |  ~                                                        
  278 |  if (nsec_ && ss_[0].sec == NULL) { // got the data from a read
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
  279 |   isec = 0; ForAllSections(sec)
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                           
  280 |    ss_[isec].sec = sec;
      |    ~~~~~~~~~~~~~~~~~~~~                                   
  281 |    section_ref(ss_[isec].sec);
      |    ~~~~~~~~~~~~~~~~~~~~~~~~~~~                            
  282 |    ++isec;
      |    ~~~~~~~                                                
  283 |   }
      |   ~                                                       
  284 |  }
      |  ~                                                        
  285 |  for (int i=0, j=0; i < n_memb_func; ++i) if (nrn_is_artificial_[i]) {
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
  286 |   if (!checkacell(acell_[j], i, warn)) {
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                  
  287 |    return false;
      |    ~~~~~~~~~~~~~                                          
  288 |   }
      |   ~                                                       
  289 |   ++j;
      |   ~~~~                                                    
  290 |  }
      |  ~                                                        
  291 |  for (int isec=0; isec < nsec_; ++isec) {
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                 
  292 |   SecState& ss = ss_[isec];
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~                               
  293 |   Section* sec = ss.sec;
      |   ~~~~~~~~~~~~~~~~~~~~~~                                  
  294 |   if (!sec->prop || sec->nnode != ss.nnode) {
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~             
  295 | if (warn) {
      | ~~~~~~~~~~~                                               
  296 | if (!sec->prop) {
      | ~~~~~~~~~~~~~~~~~                                         
  297 | fprintf(stderr, "SaveState warning: saved section no longer exists\n");
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
  298 | }else{
      | ~~~~~~                                                    
  299 | fprintf(stderr, "SaveState warning: %s has %d nodes but saved %d\n",
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
  300 |     secname(sec), sec->nnode, ss.nnode);
      |     ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                  
  301 | }
      | ~                                                         
  302 | }
      | ~                                                         
  303 |    return false;
      |    ~~~~~~~~~~~~~                                          
  304 |   }
      |   ~                                                       
  305 |   for (int inode = 0; inode < ss.nnode; ++inode) {
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~        
  306 |    NodeState& ns = ss.ns[inode];
      |    ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                          
  307 |    Node* nd = sec->pnode[inode];
      |    ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                          
  308 |    int i=0;
      |    ~~~~~~~~                                               
  309 |    Prop* p;
      |    ~~~~~~~~                                               
  310 |    for (p = nd->prop; p; p = p->next) {
      |    ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                   
  311 |     if (ssi[p->type].size == 0) {
      |     ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                         
  312 |      continue;
      |      ~~~~~~~~~                                            
  313 |     }
      |     ~                                                     
  314 |     if (i >= ns.nmemb) {
      |     ~~~~~~~~~~~~~~~~~~~~                                  
  315 | if (warn) {
      | ~~~~~~~~~~~                                               
  316 | fprintf(stderr,"SaveState warning: \
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                      
  317 | fewer mechanisms saved than exist at node %d of %s\n",
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~    
  318 |  inode, secname(sec));
      |  ~~~~~~~~~~~~~~~~~~~~~                                    
  319 | }
      | ~                                                         
  320 |      return false;
      |      ~~~~~~~~~~~~~                                        
  321 |     }
      |     ~                                                     
  322 |     if (p->type != ns.type[i]) {
      |     ~~~~~~~~~~~~~~~~~~~~~~~~~~~~                          
  323 | if (warn) {
      | ~~~~~~~~~~~                                               
  324 | fprintf(stderr, "SaveState warning: mechanisms out of order at node %d of %s\n\
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
  325 | saved %s but need %s\n",
      | ~~~~~~~~~~~~~~~~~~~~~~~~                                  
  326 | inode, secname(sec), memb_func[i].sym->name, memb_func[p->type].sym->name);
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
  327 | }
      | ~                                                         
  328 |      return false;
      |      ~~~~~~~~~~~~~                                        
  329 |     }
      |     ~                                                     
  330 |     ++i;
      |     ~~~~                                                  
  331 |    }
      |    ~                                                      
  332 |    if (i != ns.nmemb) {
      |    ~~~~~~~~~~~~~~~~~~~~                                   
  333 | if (warn) {
      | ~~~~~~~~~~~                                               
  334 | fprintf(stderr, "SaveState warning: more mechanisms saved than exist at node %d of %s\n",
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
  335 |  inode, secname(sec));
      |  ~~~~~~~~~~~~~~~~~~~~~                                    
  336 | }
      | ~                                                         
  337 |     return false;
      |     ~~~~~~~~~~~~~                                         
  338 |    }
      |    ~                                                      
  339 |   }
      |   ~                                                       
  340 |   if (!sec->parentsec || ss.root) {
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                       
  341 |    if (sec->parentsec || !ss.root) {
      |    ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                      
  342 | if (warn) {
      | ~~~~~~~~~~~                                               
  343 | fprintf(stderr, "SaveState warning: Saved section and %s are not both root sections.\n",
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
  344 |  secname(sec));
      |  ~~~~~~~~~~~~~~                                           
  345 | }
      | ~                                                         
  346 |    }
      |    ~                                                      
  347 |    if (!checknode(*ss.root, sec->parentnode, warn)) {
      |    ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~     
  348 |     return false;
      |     ~~~~~~~~~~~~~                                         
  349 |    }
      |    ~                                                      
  350 |   }
      |   ~                                                       
  351 | 
      |                                                           
  352 |  }
      |  ~                                                        
  353 |  if (!checknet(warn)) { return false; }
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                   
  354 |  return true;
      |  ~~~~~~~~~~~~                                             
  355 | }
      | ~                                                         
  356 | 
      |                                                           
  357 | bool SaveState::checknode(NodeState& ns, Node* nd, bool warn) {
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
  358 |  int i=0;
      |  ~~~~~~~~                                                 
  359 |  Prop* p;
      |  ~~~~~~~~                                                 
  360 |  for (p = nd->prop; p; p = p->next) {
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                     
  361 |   if (ssi[p->type].size == 0) {
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                           
  362 |    continue;
      |    ~~~~~~~~~                                              
  363 |   }
      |   ~                                                       
  364 |   if (i >= ns.nmemb) {
      |   ~~~~~~~~~~~~~~~~~~~~                                    
  365 | if (warn) {
      | ~~~~~~~~~~~                                               
  366 | fprintf(stderr,"SaveState warning: \
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                      
  367 | fewer mechanisms saved than exist at a root node\n");
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~     
  368 | }
      | ~                                                         
  369 |    return false;
      |    ~~~~~~~~~~~~~                                          
  370 |   }
      |   ~                                                       
  371 |   if (p->type != ns.type[i]) {
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~~                            
  372 | if (warn) {
      | ~~~~~~~~~~~                                               
  373 | fprintf(stderr, "SaveState warning: mechanisms out of order at a rootnode\n\
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
  374 | saved %s but need %s\n",
      | ~~~~~~~~~~~~~~~~~~~~~~~~                                  
  375 | memb_func[i].sym->name, memb_func[p->type].sym->name);
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~    
  376 | }
      | ~                                                         
  377 |    return false;
      |    ~~~~~~~~~~~~~                                          
  378 |   }
      |   ~                                                       
  379 |   ++i;
      |   ~~~~                                                    
  380 |  }
      |  ~                                                        
  381 |  if (i != ns.nmemb) {
      |  ~~~~~~~~~~~~~~~~~~~~                                     
  382 | if (warn) {
      | ~~~~~~~~~~~                                               
  383 | fprintf(stderr, "SaveState warning: more mechanisms saved than exist at a rootnode\n");
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
  384 | }
      | ~                                                         
  385 |   return false;
      |   ~~~~~~~~~~~~~                                           
  386 |  }
      |  ~                                                        
  387 |  return true;
      |  ~~~~~~~~~~~~                                             
  388 | }
      | ~                                                         
  389 | 
      |                                                           
  390 | bool SaveState::checkacell(ACellState& ac, int type, bool warn) {
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
  391 |  if (memb_list[type].nodecount != ac.ncell) {
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~             
  392 | if (warn) {
      | ~~~~~~~~~~~                                               
  393 | fprintf(stderr, "SaveState warning: different number of %s saved than exist.\n",
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
  394 | memb_func[type].sym->name);
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~                               
  395 | }
      | ~                                                         
  396 |   return false;
      |   ~~~~~~~~~~~~~                                           
  397 |  }
      |  ~                                                        
  398 |  return true;
      |  ~~~~~~~~~~~~                                             
  399 | }
      | ~                                                         
  400 | 
      |                                                           
  401 | void SaveState::alloc() {
      | ~~~~~~~~~~~~~~~~~~~~~~~~~                                 
  402 |  ssfree();
      |  ~~~~~~~~~                                                
  403 |  int inode, isec;
      |  ~~~~~~~~~~~~~~~~                                         
  404 |  hoc_Item* qsec;
      |  ~~~~~~~~~~~~~~~                                          
  405 |  nsec_ = section_count;
      |  ~~~~~~~~~~~~~~~~~~~~~~                                   
  406 |  ss_ = new SecState[nsec_];
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~                               
  407 |  nroot_ = 0;
      |  ~~~~~~~~~~~                                              
  408 |  isec = 0;
      |  ~~~~~~~~~                                                
  409 |  ForAllSections(sec)
      |  ~~~~~~~~~~~~~~~~~~~                                      
  410 |   SecState& ss = ss_[isec];
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~                               
  411 |   ss.sec = sec;
      |   ~~~~~~~~~~~~~                                           
  412 |   section_ref(ss.sec);
      |   ~~~~~~~~~~~~~~~~~~~~                                    
  413 |   ss.nnode = ss.sec->nnode;
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~                               
  414 |   ss.ns = new NodeState[ss.nnode];
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                        
  415 |   for (inode = 0; inode < ss.nnode; ++inode) {
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~            
  416 |    Node* nd = ss.sec->pnode[inode];
      |    ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                       
  417 |    NodeState& ns = ss.ns[inode];
      |    ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                          
  418 |    allocnode(ns, nd);
      |    ~~~~~~~~~~~~~~~~~~                                     
  419 |   }
      |   ~                                                       
  420 |   if (!sec->parentsec) {
      |   ~~~~~~~~~~~~~~~~~~~~~~                                  
  421 |    assert(sec->parentnode);
      |    ~~~~~~~~~~~~~~~~~~~~~~~~                               
  422 |    ss.root = new NodeState;
      |    ~~~~~~~~~~~~~~~~~~~~~~~~                               
  423 |    allocnode(*ss.root, sec->parentnode);
      |    ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                  
  424 |    ++nroot_;
      |    ~~~~~~~~~                                              
  425 |   }else{
      |   ~~~~~~                                                  
  426 |    ss.root = 0;
      |    ~~~~~~~~~~~~                                           
  427 |   }
      |   ~                                                       
  428 |   ++isec;
      |   ~~~~~~~                                                 
  429 |  }
      |  ~                                                        
  430 |  assert(isec == section_count);
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                           
  431 |  assert(nroot_ == nrn_global_ncell);
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                      
  432 |  for (int i=0, j=0; i < n_memb_func; ++i) if (nrn_is_artificial_[i]) {
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
  433 |   allocacell(acell_[j], i);
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~                               
  434 |   ++j;
      |   ~~~~                                                    
  435 |  }
      |  ~                                                        
  436 |  PlayRecList* prl = net_cvode_instance_prl();
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~             
  437 |  nprs_ = prl->count();
      |  ~~~~~~~~~~~~~~~~~~~~~                                    
  438 |  if (nprs_) {
      |  ~~~~~~~~~~~~                                             
  439 |   prs_ = new PlayRecordSave*[nprs_];
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                      
  440 |  }
      |  ~                                                        
  441 |  allocnet();
      |  ~~~~~~~~~~~                                              
  442 | }
      | ~                                                         
  443 | 
      |                                                           
  444 | void SaveState::allocnode(NodeState& ns, Node* nd) {
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~      
  445 |  ns.nmemb = 0;
      |  ~~~~~~~~~~~~~                                            
  446 |  ns.type = NULL;
      |  ~~~~~~~~~~~~~~~                                          
  447 |  ns.state = NULL;
      |  ~~~~~~~~~~~~~~~~                                         
  448 |  ns.nstate = 0;
      |  ~~~~~~~~~~~~~~                                           
  449 |  Prop* p;
      |  ~~~~~~~~                                                 
  450 |  for (p = nd->prop; p; p = p->next) {
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                     
  451 |   if (ssi[p->type].size == 0) {
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                           
  452 |    continue;
      |    ~~~~~~~~~                                              
  453 |   }
      |   ~                                                       
  454 |   ++ns.nmemb;
      |   ~~~~~~~~~~~                                             
  455 |   ns.nstate += ssi[p->type].size;
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                         
  456 |  }
      |  ~                                                        
  457 |  if (ns.nmemb) {
      |  ~~~~~~~~~~~~~~~                                          
  458 |   ns.type = new int[ns.nmemb];
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~~                            
  459 |  }
      |  ~                                                        
  460 |  if (ns.nstate) {
      |  ~~~~~~~~~~~~~~~~                                         
  461 |   ns.state = new double[ns.nstate];
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                       
  462 |  }
      |  ~                                                        
  463 |  int i = 0;
      |  ~~~~~~~~~~                                               
  464 |  for (p = nd->prop; p; p = p->next) {
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                     
  465 |   if (ssi[p->type].size == 0) {
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                           
  466 |    continue;
      |    ~~~~~~~~~                                              
  467 |   }
      |   ~                                                       
  468 |   ns.type[i] = p->type;
      |   ~~~~~~~~~~~~~~~~~~~~~                                   
  469 |   ++i;
      |   ~~~~                                                    
  470 |  }
      |  ~                                                        
  471 | }
      | ~                                                         
  472 | 
      |                                                           
  473 | void SaveState::allocacell(ACellState& ac, int type) {
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~    
  474 |  Memb_list& ml = memb_list[type];
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                         
  475 |  ac.type = type;
      |  ~~~~~~~~~~~~~~~                                          
  476 |  ac.ncell = ml.nodecount;
      |  ~~~~~~~~~~~~~~~~~~~~~~~~                                 
  477 |  ac.state = new double[ac.ncell * ssi[type].size];
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~        
  478 | }
      | ~                                                         
  479 | 
      |                                                           
  480 | void SaveState::ssfree() {
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~                                
  481 |  int i, isec, inode;
      |  ~~~~~~~~~~~~~~~~~~~                                      
  482 |  for (isec=0; isec < nsec_; ++isec) {
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                     
  483 |   SecState& ss = ss_[isec];
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~                               
  484 |   for (inode = 0; inode < ss.nnode; ++inode) {
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~            
  485 |    NodeState& ns = ss.ns[inode];
      |    ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                          
  486 |    if (ns.nmemb) {
      |    ~~~~~~~~~~~~~~~                                        
  487 |     delete [] ns.type;
      |     ~~~~~~~~~~~~~~~~~~                                    
  488 |    }
      |    ~                                                      
  489 |    if (ns.nstate) {
      |    ~~~~~~~~~~~~~~~~                                       
  490 |     delete [] ns.state;
      |     ~~~~~~~~~~~~~~~~~~~                                   
  491 |    }
      |    ~                                                      
  492 |   }
      |   ~                                                       
  493 |   if (ss.root) {
      |   ~~~~~~~~~~~~~~                                          
  494 |    NodeState& ns = *ss.root;
      |    ~~~~~~~~~~~~~~~~~~~~~~~~~                              
  495 |    if (ns.nmemb) {
      |    ~~~~~~~~~~~~~~~                                        
  496 |     delete [] ns.type;
      |     ~~~~~~~~~~~~~~~~~~                                    
  497 |    }
      |    ~                                                      
  498 |    if (ns.nstate) {
      |    ~~~~~~~~~~~~~~~~                                       
  499 |     delete [] ns.state;
      |     ~~~~~~~~~~~~~~~~~~~                                   
  500 |    }
      |    ~                                                      
  501 |    delete ss.root;
      |    ~~~~~~~~~~~~~~~                                        
  502 |   }
      |   ~                                                       
  503 |   if (ss.nnode) {
      |   ~~~~~~~~~~~~~~~                                         
  504 |    delete [] ss.ns;
      |    ~~~~~~~~~~~~~~~~                                       
  505 |   }
      |   ~                                                       
  506 |   if (ss.sec) { // got info from an fread but never checked it
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
  507 |    section_unref(ss.sec);
      |    ~~~~~~~~~~~~~~~~~~~~~~                                 
  508 |   }
      |   ~                                                       
  509 |  }
      |  ~                                                        
  510 |  if (nsec_) {
      |  ~~~~~~~~~~~~                                             
  511 |   delete [] ss_;
      |   ~~~~~~~~~~~~~~                                          
  512 |  }
      |  ~                                                        
  513 |  nsec_ = 0;
      |  ~~~~~~~~~~                                               
  514 |  ss_ = NULL;
      |  ~~~~~~~~~~~                                              
  515 |  for (i=0; i < nacell_; ++i) {
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                            
  516 |   if (acell_[i].ncell) {
      |   ~~~~~~~~~~~~~~~~~~~~~~                                  
  517 |    delete [] acell_[i].state;
      |    ~~~~~~~~~~~~~~~~~~~~~~~~~~                             
  518 |    acell_[i].state = 0;
      |    ~~~~~~~~~~~~~~~~~~~~                                   
  519 |    acell_[i].ncell = 0;
      |    ~~~~~~~~~~~~~~~~~~~~                                   
  520 |   }
      |   ~                                                       
  521 |  } // note we do not destroy the acell_.
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                  
  522 |  if (nncs_) {
      |  ~~~~~~~~~~~~                                             
  523 |   for (i = 0; i < nncs_; ++i) {
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                           
  524 |    if (ncs_[i].nstate) {
      |    ~~~~~~~~~~~~~~~~~~~~~                                  
  525 |     delete [] ncs_[i].state;
      |     ~~~~~~~~~~~~~~~~~~~~~~~~                              
  526 |    }
      |    ~                                                      
  527 |   }
      |   ~                                                       
  528 |   delete [] ncs_;
      |   ~~~~~~~~~~~~~~~                                         
  529 |  }
      |  ~                                                        
  530 |  nncs_ = 0;
      |  ~~~~~~~~~~                                               
  531 |  ncs_ = NULL;
      |  ~~~~~~~~~~~~                                             
  532 |  if (npss_) {
      |  ~~~~~~~~~~~~                                             
  533 |   delete [] pss_;
      |   ~~~~~~~~~~~~~~~                                         
  534 |  }
      |  ~                                                        
  535 |  npss_ = 0;
      |  ~~~~~~~~~~                                               
  536 |  pss_ = NULL;
      |  ~~~~~~~~~~~~                                             
  537 |  free_tq();
      |  ~~~~~~~~~~                                               
  538 |  if (nprs_) {
      |  ~~~~~~~~~~~~                                             
  539 |   for (i=0; i < nprs_; ++i) {
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~                             
  540 |    delete prs_[i];
      |    ~~~~~~~~~~~~~~~                                        
  541 |   }
      |   ~                                                       
  542 |   delete [] prs_;
      |   ~~~~~~~~~~~~~~~                                         
  543 |  }
      |  ~                                                        
  544 |  nprs_ = 0;
      |  ~~~~~~~~~~                                               
  545 | }
      | ~                                                         
  546 | 
      |                                                           
  547 | void SaveState::save() {
      | ~~~~~~~~~~~~~~~~~~~~~~~~                                  
  548 |  NrnThread* nt;
      |  ~~~~~~~~~~~~~~                                           
  549 |  if (!check(false)) {
      |  ~~~~~~~~~~~~~~~~~~~~                                     
  550 |   alloc();
      |   ~~~~~~~~                                                
  551 |  }
      |  ~                                                        
  552 |  FOR_THREADS(nt) {
      |  ~~~~~~~~~~~~~~~~~                                        
  553 |   assert(t == nt->_t);
      |   ~~~~~~~~~~~~~~~~~~~~                                    
  554 |  }
      |  ~                                                        
  555 |  t_ = t;
      |  ~~~~~~~                                                  
  556 |  int inode;
      |  ~~~~~~~~~~                                               
  557 |  for (int isec=0; isec < nsec_; ++isec) {
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                 
  558 |   SecState& ss = ss_[isec];
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~                               
  559 |   Section* sec = ss.sec;
      |   ~~~~~~~~~~~~~~~~~~~~~~                                  
  560 |   for (inode = 0; inode < ss.nnode; ++inode) {
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~            
  561 |    NodeState& ns = ss.ns[inode];
      |    ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                          
  562 |    Node* nd = sec->pnode[inode];
      |    ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                          
  563 |    savenode(ns, nd);
      |    ~~~~~~~~~~~~~~~~~                                      
  564 |   }
      |   ~                                                       
  565 |   if (ss.root) {
      |   ~~~~~~~~~~~~~~                                          
  566 |    NodeState& ns = *ss.root;
      |    ~~~~~~~~~~~~~~~~~~~~~~~~~                              
  567 |    Node* nd = sec->parentnode;
      |    ~~~~~~~~~~~~~~~~~~~~~~~~~~~                            
  568 |    savenode(ns, nd);
      |    ~~~~~~~~~~~~~~~~~                                      
  569 |   }
      |   ~                                                       
  570 |  }
      |  ~                                                        
  571 |  for (int i=0, j=0; i < n_memb_func; ++i) if (nrn_is_artificial_[i]) {
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
  572 |   saveacell(acell_[j], i);
      |   ~~~~~~~~~~~~~~~~~~~~~~~~                                
  573 |   ++j;
      |   ~~~~                                                    
  574 |  }
      |  ~                                                        
  575 |  if (nprs_) {
      |  ~~~~~~~~~~~~                                             
  576 |   PlayRecList* prl = net_cvode_instance_prl();
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~            
  577 |   int i;
      |   ~~~~~~                                                  
  578 |   assert(nprs_ == prl->count());
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                          
  579 |   for (i=0; i < nprs_; ++i) {
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~                             
  580 |    prs_[i] = prl->item(i)->savestate_save();
      |    ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~              
  581 |   }
      |   ~                                                       
  582 |  }
      |  ~                                                        
  583 |  savenet();
      |  ~~~~~~~~~~                                               
  584 | }
      | ~                                                         
  585 | 
      |                                                           
  586 | void SaveState::savenode(NodeState& ns, Node* nd) {
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~       
  587 |  ns.v = NODEV(nd);
      |  ~~~~~~~~~~~~~~~~~                                        
  588 |  int istate = 0;
      |  ~~~~~~~~~~~~~~~                                          
  589 |  Prop* p;
      |  ~~~~~~~~                                                 
  590 |  for (p = nd->prop; p; p = p->next) {
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                     
  591 |   if (ssi[p->type].size == 0) {
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                           
  592 |    continue;
      |    ~~~~~~~~~                                              
  593 |   }
      |   ~                                                       
  594 |   int type = p->type;
      |   ~~~~~~~~~~~~~~~~~~~                                     
  595 |   int max = ssi[type].offset + ssi[type].size;
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~            
  596 | #if EXTRACELLULAR
      | ~~~~~~~~~~~~~~~~~                                         
  597 |   if (type == EXTRACELL) {
      |   ~~~~~~~~~~~~~~~~~~~~~~~~                                
  598 |    for (int i=0; i < nlayer; ++i) {
      |    ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                       
  599 |     ns.state[istate++] = nd->extnode->v[i];
      |     ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~               
  600 |    }
      |    ~                                                      
  601 |   }else
      |   ~~~~~                                                   
  602 | #endif
      | ~~~~~~                                                    
  603 |   {
      |   ~                                                       
  604 |    for (int ip=ssi[type].offset; ip < max; ++ip) {
      |    ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~        
  605 |     ns.state[istate++] = p->param[ip];
      |     ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                    
  606 |    }
      |    ~                                                      
  607 |   }
      |   ~                                                       
  608 |  }
      |  ~                                                        
  609 | }
      | ~                                                         
  610 | 
      |                                                           
  611 | void SaveState::saveacell(ACellState& ac, int type) {
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~     
  612 |  Memb_list& ml = memb_list[type];
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                         
  613 |  int sz = ssi[type].size;
      |  ~~~~~~~~~~~~~~~~~~~~~~~~                                 
  614 |  double* p = ac.state;
      |  ~~~~~~~~~~~~~~~~~~~~~                                    
  615 |  for (int i = 0; i < ml.nodecount; ++i) {
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                 
  616 |   double* d = ml.data[i];
      |   ~~~~~~~~~~~~~~~~~~~~~~~                                 
  617 |   for (int j=0; j < sz; ++j) {
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~~                            
  618 |    (*p++) = d[j];
      |    ~~~~~~~~~~~~~~                                         
  619 |   }
      |   ~                                                       
  620 |  }
      |  ~                                                        
  621 | }
      | ~                                                         
  622 | 
      |                                                           
  623 | void SaveState::restore(int type) {
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                       
  624 |  NrnThread* nt;
      |  ~~~~~~~~~~~~~~                                           
  625 |  if (!check(true)) {
      |  ~~~~~~~~~~~~~~~~~~~                                      
  626 |   hoc_execerror("SaveState:",
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~                             
  627 |   "Stored state inconsistent with current neuron structure");
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
  628 |  }
      |  ~                                                        
  629 |  t = t_;
      |  ~~~~~~~                                                  
  630 |  FOR_THREADS(nt) {
      |  ~~~~~~~~~~~~~~~~~                                        
  631 |   nt->_t = t_;
      |   ~~~~~~~~~~~~                                            
  632 |  }
      |  ~                                                        
  633 |  int inode;
      |  ~~~~~~~~~~                                               
  634 |  for (int isec=0; isec < nsec_; ++isec) {
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                 
  635 |   SecState& ss = ss_[isec];
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~                               
  636 |   Section* sec = ss.sec;
      |   ~~~~~~~~~~~~~~~~~~~~~~                                  
  637 |   for (inode = 0; inode < ss.nnode; ++inode) {
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~            
  638 |    NodeState& ns = ss.ns[inode];
      |    ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                          
  639 |    Node* nd = sec->pnode[inode];
      |    ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                          
  640 |    restorenode(ns, nd);
      |    ~~~~~~~~~~~~~~~~~~~~                                   
  641 |   }
      |   ~                                                       
  642 |   if (ss.root) {
      |   ~~~~~~~~~~~~~~                                          
  643 |    NodeState& ns = *ss.root;
      |    ~~~~~~~~~~~~~~~~~~~~~~~~~                              
  644 |    Node* nd = sec->parentnode;
      |    ~~~~~~~~~~~~~~~~~~~~~~~~~~~                            
  645 |    restorenode(ns, nd);
      |    ~~~~~~~~~~~~~~~~~~~~                                   
  646 |   }
      |   ~                                                       
  647 |  }
      |  ~                                                        
  648 |  for (int i=0, j=0; i < n_memb_func; ++i) if (nrn_is_artificial_[i]) {
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
  649 |   restoreacell(acell_[j], i);
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~                             
  650 |   ++j;
      |   ~~~~                                                    
  651 |  }
      |  ~                                                        
  652 |  if (type == 1) { return; }
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~                               
  653 |  PlayRecList* prl = net_cvode_instance_prl();
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~             
  654 |  // during a local step the PlayRecList is augmented with GLineRecord
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
  655 |  // assert(nprs_ == prl->count());
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                        
  656 |  assert(nprs_ <= prl->count());
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                           
  657 |  int i;
      |  ~~~~~~                                                   
  658 |  for (i = 0; i < nprs_; ++i) {
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                            
  659 |   prs_[i]->savestate_restore();
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                           
  660 |  }
      |  ~                                                        
  661 |  restorenet();
      |  ~~~~~~~~~~~~~                                            
  662 | }
      | ~                                                         
  663 | 
      |                                                           
  664 | void SaveState::restorenode(NodeState& ns, Node* nd) {
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~    
  665 |  NODEV(nd) = ns.v;;
      |  ~~~~~~~~~~~~~~~~~~                                       
  666 |  int istate = 0;
      |  ~~~~~~~~~~~~~~~                                          
  667 |  Prop* p;
      |  ~~~~~~~~                                                 
  668 |  for (p = nd->prop; p; p = p->next) {
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                     
  669 |   if (ssi[p->type].size == 0) {
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                           
  670 |    continue;
      |    ~~~~~~~~~                                              
  671 |   }
      |   ~                                                       
  672 |   int type = p->type;
      |   ~~~~~~~~~~~~~~~~~~~                                     
  673 |   int max = ssi[type].offset + ssi[type].size;
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~            
  674 | #if EXTRACELLULAR
      | ~~~~~~~~~~~~~~~~~                                         
  675 |   if (type == EXTRACELL) {
      |   ~~~~~~~~~~~~~~~~~~~~~~~~                                
  676 |    for (int i=0; i < nlayer; ++i) {
      |    ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                       
  677 |     nd->extnode->v[i] = ns.state[istate++];
      |     ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~               
  678 |    }
      |    ~                                                      
  679 |   }else
      |   ~~~~~                                                   
  680 | #endif
      | ~~~~~~                                                    
  681 |   {
      |   ~                                                       
  682 |    for (int ip=ssi[type].offset; ip < max; ++ip) {
      |    ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~        
  683 |     p->param[ip] = ns.state[istate++];
      |     ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                    
  684 |    }
      |    ~                                                      
  685 |   }
      |   ~                                                       
  686 |  }
      |  ~                                                        
  687 | }
      | ~                                                         
  688 | 
      |                                                           
  689 | void SaveState::restoreacell(ACellState& ac, int type) {
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~  
  690 |  Memb_list& ml = memb_list[type];
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                         
  691 |  int sz = ssi[type].size;
      |  ~~~~~~~~~~~~~~~~~~~~~~~~                                 
  692 |  double* p = ac.state;
      |  ~~~~~~~~~~~~~~~~~~~~~                                    
  693 |  for (int i = 0; i < ml.nodecount; ++i) {
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                 
  694 |   double* d = ml.data[i];
      |   ~~~~~~~~~~~~~~~~~~~~~~~                                 
  695 |   for (int j=0; j < sz; ++j) {
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~~                            
  696 |    d[j] = (*p++);
      |    ~~~~~~~~~~~~~~                                         
  697 |   }
      |   ~                                                       
  698 |  }
      |  ~                                                        
  699 | }
      | ~                                                         
  700 | 
      |                                                           
  701 | void SaveState::read(OcFile* ocf, bool close) {
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~           
  702 |  if (!ocf->open(ocf->get_name(), "r")) {
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                  
  703 |   hoc_execerror("Couldn't open file for reading:", ocf->get_name());
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
  704 |  }
      |  ~                                                        
  705 |  nrn_shape_update();
      |  ~~~~~~~~~~~~~~~~~~~                                      
  706 |  BinaryMode(ocf)
      |  ~~~~~~~~~~~~~~~                                          
  707 |  FILE* f = ocf->file();
      |  ~~~~~~~~~~~~~~~~~~~~~~                                   
  708 |  ssfree();
      |  ~~~~~~~~~                                                
  709 |  char buf[200];
      |  ~~~~~~~~~~~~~~                                           
  710 |  ASSERTfgets(buf, 200, f);
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~                                
  711 |  if (strcmp(buf, "SaveState binary file version 6.0\n") != 0) {
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
  712 |   ocf->close();
      |   ~~~~~~~~~~~~~                                           
  713 |   hoc_execerror("Bad SaveState binary file", " Not version 6.0");
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
  714 |  }
      |  ~                                                        
  715 |  ASSERTfread((char*)&t_, sizeof(double), 1, f);
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~           
  716 | // fscanf(f, "%d %d\n", &nsec_, &nrootnode_);
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~             
  717 | // on some os's fscanf leaves file pointer at wrong place for next fread
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
  718 | // can check it with ftell(f)
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                             
  719 |  ASSERTfgets(buf, 200, f);
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~                                
  720 |  sscanf(buf, "%d %d\n", &nsec_, &nroot_);
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                 
  721 |  // to enable comparison of SaveState files, we avoid
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~     
  722 |  // putting pointers in the files and instead explicitly read/write
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
  723 |  // structure elements.
      |  ~~~~~~~~~~~~~~~~~~~~~~                                   
  724 |  ss_ = new SecState[nsec_];
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~                               
  725 |  fread_SecState(ss_, nsec_, f);
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                           
  726 |  for (int isec=0; isec < nsec_; ++isec) {
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                 
  727 |   SecState& ss = ss_[isec];
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~                               
  728 |   ss.sec = NULL;
      |   ~~~~~~~~~~~~~~                                          
  729 |   ss.ns = new NodeState[ss.nnode];
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                        
  730 |   fread_NodeState(ss.ns, ss.nnode, f);
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                    
  731 |   for (int inode = 0; inode < ss.nnode; ++inode) {
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~        
  732 |    NodeState& ns = ss.ns[inode];
      |    ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                          
  733 |    if (ns.nmemb) {
      |    ~~~~~~~~~~~~~~~                                        
  734 |     ns.type = new int[ns.nmemb];
      |     ~~~~~~~~~~~~~~~~~~~~~~~~~~~~                          
  735 |     ASSERTfread((char*)ns.type, sizeof(int), ns.nmemb, f);
      |     ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
  736 |    }
      |    ~                                                      
  737 |    if (ns.nstate) {
      |    ~~~~~~~~~~~~~~~~                                       
  738 |     ns.state = new double[ns.nstate];
      |     ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                     
  739 |     ASSERTfread((char*)ns.state, sizeof(double), ns.nstate, f);
      |     ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
  740 |    }
      |    ~                                                      
  741 |   }
      |   ~                                                       
  742 |   if (ss.root) {
      |   ~~~~~~~~~~~~~~                                          
  743 |    fread_NodeState(ss.root, 1, f);
      |    ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                        
  744 |    NodeState& ns = *ss.root;
      |    ~~~~~~~~~~~~~~~~~~~~~~~~~                              
  745 |    if (ns.nmemb) {
      |    ~~~~~~~~~~~~~~~                                        
  746 |     ns.type = new int[ns.nmemb];
      |     ~~~~~~~~~~~~~~~~~~~~~~~~~~~~                          
  747 |     ASSERTfread((char*)ns.type, sizeof(int), ns.nmemb, f);
      |     ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
  748 |    }
      |    ~                                                      
  749 |    if (ns.nstate) {
      |    ~~~~~~~~~~~~~~~~                                       
  750 |     ns.state = new double[ns.nstate];
      |     ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                     
  751 |     ASSERTfread((char*)ns.state, sizeof(double), ns.nstate, f);
      |     ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
  752 |    }
      |    ~                                                      
  753 |   }
      |   ~                                                       
  754 |  }
      |  ~                                                        
  755 |  int n = 0;
      |  ~~~~~~~~~~                                               
  756 |  ASSERTfgets(buf, 20, f);
      |  ~~~~~~~~~~~~~~~~~~~~~~~~                                 
  757 |  sscanf(buf, "%d\n", &n);
      |  ~~~~~~~~~~~~~~~~~~~~~~~~                                 
  758 |  assert(n == nacell_);
      |  ~~~~~~~~~~~~~~~~~~~~~                                    
  759 |  for (int i=0, j=0; i < n_memb_func; ++i) if (nrn_is_artificial_[i]) {
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
  760 |   int nt = 0, nc = 0, ns = 0;
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~                             
  761 |   ASSERTfgets(buf, 200, f);
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~                               
  762 |   nrn_assert(sscanf(buf, "%d %d %d\n", &nt, &nc, &ns) == 3);
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
  763 |   assert(nt == i && nc == memb_list[i].nodecount);
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~        
  764 |   assert(ns == nc * ssi[i].size);
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                         
  765 |   acell_[j].ncell = nc;
      |   ~~~~~~~~~~~~~~~~~~~~~                                   
  766 |   acell_[j].state = new double[ns];
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                       
  767 |   ASSERTfread((char*)acell_[j].state, sizeof(double), ns, f);
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
  768 |   ++j;
      |   ~~~~                                                    
  769 |  }
      |  ~                                                        
  770 |  ASSERTfgets(buf, 20, f);
      |  ~~~~~~~~~~~~~~~~~~~~~~~~                                 
  771 |  sscanf(buf, "%d\n", &nprs_);
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~                             
  772 |  if (nprs_) {
      |  ~~~~~~~~~~~~                                             
  773 |   prs_ = new PlayRecordSave*[nprs_];
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                      
  774 |   for (int i=0; i < nprs_; ++i) {
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                         
  775 |    prs_[i] = PlayRecord::savestate_read(f);
      |    ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~               
  776 |   }
      |   ~                                                       
  777 |  }
      |  ~                                                        
  778 |  readnet(f);
      |  ~~~~~~~~~~~                                              
  779 |  if (close) {
      |  ~~~~~~~~~~~~                                             
  780 |   ocf->close();
      |   ~~~~~~~~~~~~~                                           
  781 |  }
      |  ~                                                        
  782 | }
      | ~                                                         
  783 | 
      |                                                           
  784 | void SaveState::write(OcFile* ocf, bool close) {
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~          
  785 |  if (!ocf->open(ocf->get_name(), "w")) {
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                  
  786 |   hoc_execerror("Couldn't open file for writing:", ocf->get_name());
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
  787 |  }
      |  ~                                                        
  788 |  BinaryMode(ocf)
      |  ~~~~~~~~~~~~~~~                                          
  789 |  FILE* f = ocf->file();
      |  ~~~~~~~~~~~~~~~~~~~~~~                                   
  790 |  fprintf(f, "SaveState binary file version 6.0\n");
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~       
  791 |  ASSERTfwrite((char*)&t_, sizeof(double), 1, f);
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~          
  792 |  fprintf(f, "%d %d\n", nsec_, nroot_);
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                    
  793 |  fwrite_SecState(ss_, nsec_, f);
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                          
  794 |  for (int isec=0; isec < nsec_; ++isec) {
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                 
  795 |   SecState& ss = ss_[isec];
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~                               
  796 |   fwrite_NodeState(ss.ns, ss.nnode, f);
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                   
  797 |   for (int inode = 0; inode < ss.nnode; ++inode) {
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~        
  798 |    NodeState& ns = ss.ns[inode];
      |    ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                          
  799 |    if (ns.nmemb){
      |    ~~~~~~~~~~~~~~                                         
  800 |     ASSERTfwrite((char*)ns.type, sizeof(int), ns.nmemb, f);
      |     ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
  801 |    }
      |    ~                                                      
  802 |    if (ns.nstate) {
      |    ~~~~~~~~~~~~~~~~                                       
  803 |     ASSERTfwrite((char*)ns.state, sizeof(double), ns.nstate, f);
      |     ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
  804 |    }
      |    ~                                                      
  805 |   }
      |   ~                                                       
  806 |   if (ss.root) {
      |   ~~~~~~~~~~~~~~                                          
  807 |    fwrite_NodeState(ss.root, 1, f);
      |    ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                       
  808 |    NodeState& ns = *ss.root;
      |    ~~~~~~~~~~~~~~~~~~~~~~~~~                              
  809 |    if (ns.nmemb){
      |    ~~~~~~~~~~~~~~                                         
  810 |     ASSERTfwrite((char*)ns.type, sizeof(int), ns.nmemb, f);
      |     ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
  811 |    }
      |    ~                                                      
  812 |    if (ns.nstate) {
      |    ~~~~~~~~~~~~~~~~                                       
  813 |     ASSERTfwrite((char*)ns.state, sizeof(double), ns.nstate, f);
      |     ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
  814 |    }
      |    ~                                                      
  815 |   }
      |   ~                                                       
  816 |  }
      |  ~                                                        
  817 |  fprintf(f, "%d\n", nacell_);
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~                             
  818 |  for (int i=0, j=0; i < n_memb_func; ++i) if (nrn_is_artificial_[i]) {
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
  819 |   int sz = acell_[j].ncell * ssi[i].size;
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                 
  820 |   fprintf(f, "%d %d %d\n", acell_[j].type, acell_[j].ncell, sz);
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
  821 |   ASSERTfwrite((char*)acell_[j].state, sizeof(double), sz, f);
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
  822 |   ++j;
      |   ~~~~                                                    
  823 |  }
      |  ~                                                        
  824 |  fprintf(f, "%d\n", nprs_);
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~                               
  825 |  for (int i=0; i < nprs_; ++i) {
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                          
  826 |   fprintf(f, "%d %d\n", prs_[i]->pr_->type(), i);
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~         
  827 |   prs_[i]->savestate_write(f);
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~~                            
  828 |  }
      |  ~                                                        
  829 |  writenet(f);
      |  ~~~~~~~~~~~~                                             
  830 |  if (close) {
      |  ~~~~~~~~~~~~                                             
  831 |   ocf->close();
      |   ~~~~~~~~~~~~~                                           
  832 |  }
      |  ~                                                        
  833 | }
      | ~                                                         
  834 | 
      |                                                           
  835 | void SaveState::savenet() {
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~                               
  836 |  int i, j, n;
      |  ~~~~~~~~~~~~                                             
  837 |  double* w;
      |  ~~~~~~~~~~                                               
  838 |  hoc_Item* q;
      |  ~~~~~~~~~~~~                                             
  839 |  Object* ob;
      |  ~~~~~~~~~~~                                              
  840 |  NetCon* d;
      |  ~~~~~~~~~~                                               
  841 |  PreSyn* ps;
      |  ~~~~~~~~~~~                                              
  842 |  i = 0;
      |  ~~~~~~                                                   
  843 |  ITERATE(q, nct->olist) {
      |  ~~~~~~~~~~~~~~~~~~~~~~~~                                 
  844 |   ob = OBJ(q);
      |   ~~~~~~~~~~~~                                            
  845 |   d = (NetCon*)ob->u.this_pointer;
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                        
  846 |   n = ncs_[i].nstate;
      |   ~~~~~~~~~~~~~~~~~~~                                     
  847 |   w = ncs_[i].state;
      |   ~~~~~~~~~~~~~~~~~~                                      
  848 |   for (j=0; j < n; ++j) {
      |   ~~~~~~~~~~~~~~~~~~~~~~~                                 
  849 |    w[j] = d->weight_[j];
      |    ~~~~~~~~~~~~~~~~~~~~~                                  
  850 |   }
      |   ~                                                       
  851 |   ++i;
      |   ~~~~                                                    
  852 |  }
      |  ~                                                        
  853 |  i = 0;
      |  ~~~~~~                                                   
  854 |  if (net_cvode_instance_psl()) ITERATE(q, net_cvode_instance_psl()) {
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
  855 |   ps = (PreSyn*)VOIDITM(q);
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~                               
  856 |   ps->hi_index_ = i;
      |   ~~~~~~~~~~~~~~~~~~                                      
  857 |   pss_[i].flag = ps->flag_;
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~                               
  858 |   pss_[i].valthresh = ps->valthresh_;
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                     
  859 |   pss_[i].valold = ps->valold_;
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                           
  860 |   pss_[i].told = ps->told_;
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~                               
  861 |   ++i;
      |   ~~~~                                                    
  862 |  }
      |  ~                                                        
  863 |  alloc_tq();
      |  ~~~~~~~~~~~                                              
  864 |  tqcnt_ = 0;
      |  ~~~~~~~~~~~                                              
  865 |  NrnThread* nt;
      |  ~~~~~~~~~~~~~~                                           
  866 |  FOR_THREADS(nt) {
      |  ~~~~~~~~~~~~~~~~~                                        
  867 |   TQueue* tq = net_cvode_instance_event_queue(nt);
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~        
  868 |   this_savestate = this; callback_mode = 1;
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~               
  869 |   tq->forall_callback(tqcallback);
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                        
  870 |  }
      |  ~                                                        
  871 | }
      | ~                                                         
  872 | 
      |                                                           
  873 | void SaveState::tqcount(const TQItem*, int) {
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~             
  874 |  ++tqcnt_;
      |  ~~~~~~~~~                                                
  875 | }
      | ~                                                         
  876 | 
      |                                                           
  877 | void SaveState::tqsave(const TQItem* q, int) {
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~            
  878 |  DiscreteEvent* de = (DiscreteEvent*)q->data_;
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~            
  879 |  tqs_->tdeliver[tqcnt_] = q->t_;
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                          
  880 |  tqs_->items[tqcnt_] = de->savestate_save();
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~              
  881 |  ++tqcnt_;
      |  ~~~~~~~~~                                                
  882 | }
      | ~                                                         
  883 | 
      |                                                           
  884 | void SaveState::restorenet() {
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                            
  885 |  int i, j, n;
      |  ~~~~~~~~~~~~                                             
  886 |  double* w;
      |  ~~~~~~~~~~                                               
  887 |  hoc_Item* q;
      |  ~~~~~~~~~~~~                                             
  888 |  Object* ob;
      |  ~~~~~~~~~~~                                              
  889 |  NetCon* d;
      |  ~~~~~~~~~~                                               
  890 |  PreSyn* ps;
      |  ~~~~~~~~~~~                                              
  891 |  // NetCon's
      |  ~~~~~~~~~~~                                              
  892 |  i = 0;
      |  ~~~~~~                                                   
  893 |  ITERATE(q, nct->olist) {
      |  ~~~~~~~~~~~~~~~~~~~~~~~~                                 
  894 |   ob = OBJ(q);
      |   ~~~~~~~~~~~~                                            
  895 |   d = (NetCon*)ob->u.this_pointer;
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                        
  896 |   n = ncs_[i].nstate;
      |   ~~~~~~~~~~~~~~~~~~~                                     
  897 |   w = ncs_[i].state;
      |   ~~~~~~~~~~~~~~~~~~                                      
  898 |   for (j=0; j < n; ++j) {
      |   ~~~~~~~~~~~~~~~~~~~~~~~                                 
  899 |    d->weight_[j] = w[j];
      |    ~~~~~~~~~~~~~~~~~~~~~                                  
  900 |   }
      |   ~                                                       
  901 |   ++i;
      |   ~~~~                                                    
  902 |  }
      |  ~                                                        
  903 |  // PreSyn's
      |  ~~~~~~~~~~~                                              
  904 |  i = 0;
      |  ~~~~~~                                                   
  905 |  if (net_cvode_instance_psl()) ITERATE(q, net_cvode_instance_psl()) {
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
  906 |   ps = (PreSyn*)VOIDITM(q);
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~                               
  907 |   ps->hi_index_ = i;
      |   ~~~~~~~~~~~~~~~~~~                                      
  908 |   ps->flag_ = pss_[i].flag;
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~                               
  909 |   ps->valthresh_ = pss_[i].valthresh;
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                     
  910 |   ps->valold_ = pss_[i].valold;
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                           
  911 |   ps->told_ = pss_[i].told;
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~                               
  912 |   ++i;
      |   ~~~~                                                    
  913 |  }
      |  ~                                                        
  914 | 
      |                                                           
  915 |  // event queue
      |  ~~~~~~~~~~~~~~                                           
  916 |  // clear it
      |  ~~~~~~~~~~~                                              
  917 |  clear_event_queue();
      |  ~~~~~~~~~~~~~~~~~~~~                                     
  918 |  // restore it
      |  ~~~~~~~~~~~~~                                            
  919 |  n = tqs_->nstate;
      |  ~~~~~~~~~~~~~~~~~                                        
  920 |  for (i=0; i < n; ++i) {
      |  ~~~~~~~~~~~~~~~~~~~~~~~                                  
  921 |   tqs_->items[i]->savestate_restore(tqs_->tdeliver[i], net_cvode_instance);
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
  922 |  }
      |  ~                                                        
  923 | }
      | ~                                                         
  924 | 
      |                                                           
  925 | void SaveState::readnet(FILE* f) {
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                        
  926 |  free_tq();
      |  ~~~~~~~~~~                                               
  927 |  char buf[200];
      |  ~~~~~~~~~~~~~~                                           
  928 |  ASSERTfgets(buf, 200, f);
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~                                
  929 |  sscanf(buf, "%d\n", &nncs_);
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~                             
  930 |  if (nncs_ != 0) {
      |  ~~~~~~~~~~~~~~~~~                                        
  931 |   ncs_ = new NetConState[nncs_];
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                          
  932 |  }
      |  ~                                                        
  933 |  int i, n, type;
      |  ~~~~~~~~~~~~~~~                                          
  934 |  for (i=0; i < nncs_; ++i) {
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~                              
  935 |   ASSERTfgets(buf, 200, f);
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~                               
  936 |   sscanf(buf, "%d %d\n", &ncs_[i].object_index, &ncs_[i].nstate);
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
  937 |   if (ncs_[i].nstate) {
      |   ~~~~~~~~~~~~~~~~~~~~~                                   
  938 |    ncs_[i].state = new double[ncs_[i].nstate];
      |    ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~            
  939 |    ASSERTfread((char*)ncs_[i].state, sizeof(double), ncs_[i].nstate, f);
      |    ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
  940 |   }
      |   ~                                                       
  941 |  }
      |  ~                                                        
  942 |  // PreSyn's
      |  ~~~~~~~~~~~                                              
  943 |  ASSERTfgets(buf, 200, f);
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~                                
  944 |  sscanf(buf, "%d\n", &npss_);
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~                             
  945 |  if (npss_ != 0) {
      |  ~~~~~~~~~~~~~~~~~                                        
  946 |   pss_ = new PreSynState[npss_];
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                          
  947 |   ASSERTfread((char*)pss_, sizeof(PreSynState), npss_, f);
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
  948 |   PreSyn* ps;
      |   ~~~~~~~~~~~                                             
  949 |   i = 0;
      |   ~~~~~~                                                  
  950 |   hoc_Item* q;
      |   ~~~~~~~~~~~~                                            
  951 |   if (net_cvode_instance_psl()) ITERATE(q, net_cvode_instance_psl()) {
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
  952 |    ps = (PreSyn*)VOIDITM(q);
      |    ~~~~~~~~~~~~~~~~~~~~~~~~~                              
  953 |    ps->hi_index_ = i;
      |    ~~~~~~~~~~~~~~~~~~                                     
  954 |    ++i;
      |    ~~~~                                                   
  955 |   }
      |   ~                                                       
  956 |   assert(npss_ == i);
      |   ~~~~~~~~~~~~~~~~~~~                                     
  957 |  }
      |  ~                                                        
  958 | 
      |                                                           
  959 |  ASSERTfgets(buf, 200, f);
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~                                
  960 |  sscanf(buf, "%d\n", &n);
      |  ~~~~~~~~~~~~~~~~~~~~~~~~                                 
  961 |  tqs_->nstate = n;
      |  ~~~~~~~~~~~~~~~~~                                        
  962 |  if (n) {
      |  ~~~~~~~~                                                 
  963 |   tqs_->items = new DiscreteEvent*[n];
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                    
  964 |   tqs_->tdeliver = new double[n];
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                         
  965 |   ASSERTfread((char*)tqs_->tdeliver, sizeof(double), n, f);
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
  966 |   for (i=0; i < n; ++i) {
      |   ~~~~~~~~~~~~~~~~~~~~~~~                                 
  967 |    DiscreteEvent* de = NULL;
      |    ~~~~~~~~~~~~~~~~~~~~~~~~~                              
  968 |    ASSERTfgets(buf, 200, f);
      |    ~~~~~~~~~~~~~~~~~~~~~~~~~                              
  969 |    sscanf(buf, "%d\n", &type);
      |    ~~~~~~~~~~~~~~~~~~~~~~~~~~~                            
  970 |    switch(type) {
      |    ~~~~~~~~~~~~~~                                         
  971 |    case DiscreteEventType:
      |    ~~~~~~~~~~~~~~~~~~~~~~~                                
  972 |     de = DiscreteEvent::savestate_read(f);
      |     ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                
  973 |     break;
      |     ~~~~~~                                                
  974 |    case TstopEventType:
      |    ~~~~~~~~~~~~~~~~~~~~                                   
  975 |     de = TstopEvent::savestate_read(f);
      |     ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                   
  976 |     break;
      |     ~~~~~~                                                
  977 |    case NetConType:
      |    ~~~~~~~~~~~~~~~~                                       
  978 |     de = NetCon::savestate_read(f);
      |     ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                       
  979 |     break;
      |     ~~~~~~                                                
  980 |    case SelfEventType:
      |    ~~~~~~~~~~~~~~~~~~~                                    
  981 |     de = SelfEvent::savestate_read(f);
      |     ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                    
  982 |     break;
      |     ~~~~~~                                                
  983 |    case PreSynType:
      |    ~~~~~~~~~~~~~~~~                                       
  984 |     de = PreSyn::savestate_read(f);
      |     ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                       
  985 |     break;
      |     ~~~~~~                                                
  986 |    case HocEventType:
      |    ~~~~~~~~~~~~~~~~~~                                     
  987 |     de = HocEvent::savestate_read(f);
      |     ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                     
  988 |     break;
      |     ~~~~~~                                                
  989 |    case PlayRecordEventType:
      |    ~~~~~~~~~~~~~~~~~~~~~~~~~                              
  990 |     de = PlayRecordEvent::savestate_read(f);
      |     ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~              
  991 |     break;
      |     ~~~~~~                                                
  992 |    case NetParEventType:
      |    ~~~~~~~~~~~~~~~~~~~~~                                  
  993 |     de = NetParEvent::savestate_read(f);
      |     ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                  
  994 |     break;
      |     ~~~~~~                                                
  995 |    default:
      |    ~~~~~~~~                                               
  996 |     hoc_execerror("SaveState::readnet", "Unimplemented DiscreteEvent type");
      |     ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
  997 |     break;
      |     ~~~~~~                                                
  998 |    }
      |    ~                                                      
  999 |    tqs_->items[i] = de;
      |    ~~~~~~~~~~~~~~~~~~~~                                   
 1000 |   }
      |   ~                                                       
 1001 |  }
      |  ~                                                        
 1002 | }
      | ~                                                         
 1003 | 
      |                                                           
 1004 | void SaveState::writenet(FILE* f) {
      | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                       
 1005 |  fprintf(f, "%d\n", nncs_);
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~                               
 1006 |  int i, n;
      |  ~~~~~~~~~                                                
 1007 |  for (i=0; i < nncs_; ++i) {
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~~                              
 1008 |   fprintf(f, "%d %d\n", ncs_[i].object_index, ncs_[i].nstate);
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
 1009 |   if (ncs_[i].nstate) {
      |   ~~~~~~~~~~~~~~~~~~~~~                                   
 1010 |    ASSERTfwrite((char*)ncs_[i].state, sizeof(double), ncs_[i].nstate, f);
      |    ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
 1011 |   }
      |   ~                                                       
 1012 |  }
      |  ~                                                        
 1013 |  fprintf(f, "%d\n", npss_);
      |  ~~~~~~~~~~~~~~~~~~~~~~~~~~                               
 1014 |  if (npss_) {
      |  ~~~~~~~~~~~~                                             
 1015 |   ASSERTfwrite((char*)pss_, sizeof(PreSynState), npss_, f);
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
 1016 |  }
      |  ~                                                        
 1017 |  n = tqs_->nstate;
      |  ~~~~~~~~~~~~~~~~~                                        
 1018 |  fprintf(f, "%d\n", n);
      |  ~~~~~~~~~~~~~~~~~~~~~~                                   
 1019 |  if (n) {
      |  ~~~~~~~~                                                 
 1020 |   ASSERTfwrite((char*)tqs_->tdeliver, sizeof(double), n, f);
      |   ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~   
/builddir/build/BUILD/nrn-7.8.1/src/oc/nrnassrt.h:23:33: note: in definition of macro 'nrn_assert'
   23 | #  define nrn_assert(ex) {if (!(ex)){fprintf(stderr,"Assertion failed: file %s, line %d\n", __FILE__,__LINE__);hoc_execerror(#ex, (char *)0);}}
      |                                 ^~
/builddir/build/BUILD/nrn-7.8.1/src/nrniv/savstate.cpp:1020:3: note: in expansion of macro 'ASSERTfwrite'
 1020 |   ASSERTfwrite((char*)tqs_->tdeliver, sizeof(double), n, f);
      |   ^~~~~~~~~~~~
/builddir/build/BUILD/nrn-7.8.1/src/nrniv/savstate.cpp: In member function 'void SaveState::allocnet()':
/builddir/build/BUILD/nrn-7.8.1/src/nrniv/savstate.cpp:1079:9: warning: unused variable 'n' [-Wunused-variable]
 1079 |  int i, n;
      |         ^
/builddir/build/BUILD/nrn-7.8.1/src/nrniv/shape.cpp: In member function 'virtual void OcShape::select_section(Section*)':
/builddir/build/BUILD/nrn-7.8.1/src/nrniv/shape.cpp:743:11: warning: unused variable 's' [-Wunused-variable]
  743 |  Section* s;
      |           ^
/builddir/build/BUILD/nrn-7.8.1/src/nrniv/shape.cpp:744:15: warning: unused variable 'c' [-Wunused-variable]
  744 |  const Color* c;
      |               ^
/builddir/build/BUILD/nrn-7.8.1/src/nrniv/shape.cpp: In member function 'virtual void ShapeScene::observe(SectionList*)':
/builddir/build/BUILD/nrn-7.8.1/src/nrniv/shape.cpp:832:16: warning: unused variable 'cnt' [-Wunused-variable]
  832 |  GlyphIndex i, cnt;
      |                ^~~
/builddir/build/BUILD/nrn-7.8.1/src/nrniv/shape.cpp: In member function 'virtual void ShapeScene::transform3d(Rubberband*)':
/builddir/build/BUILD/nrn-7.8.1/src/nrniv/shape.cpp:1000:8: warning: unused variable 'x' [-Wunused-variable]
 1000 |  Coord x, y;
      |        ^
/builddir/build/BUILD/nrn-7.8.1/src/nrniv/shape.cpp:1000:11: warning: unused variable 'y' [-Wunused-variable]
 1000 |  Coord x, y;
      |           ^
/builddir/build/BUILD/nrn-7.8.1/src/nrniv/shape.cpp: In member function 'virtual void ShapeScene::wholeplot(ivCoord&, ivCoord&, ivCoord&, ivCoord&) const':
/builddir/build/BUILD/nrn-7.8.1/src/nrniv/shape.cpp:1025:10: warning: unused variable 'j' [-Wunused-variable]
 1025 |  long i, j, n = sg_->count();
      |          ^
/builddir/build/BUILD/nrn-7.8.1/src/nrniv/shape.cpp: In destructor 'virtual ShapeSection::~ShapeSection()':
/builddir/build/BUILD/nrn-7.8.1/src/nrniv/shape.cpp:1294:6: warning: unused variable 'n' [-Wunused-variable]
 1294 |  int n = sec_->npt3d -1;
      |      ^
/builddir/build/BUILD/nrn-7.8.1/src/nrniv/shape.cpp: In member function 'virtual void ShapeSection::set_range_variable(Symbol*)':
/builddir/build/BUILD/nrn-7.8.1/src/nrniv/shape.cpp:1514:7: warning: variable 'any' set but not used [-Wunused-but-set-variable]
 1514 |  bool any = false;
      |       ^~~
/builddir/build/BUILD/nrn-7.8.1/src/nrniv/shape.cpp: In member function 'virtual void ShapeSection::draw(ivCanvas*, const ivAllocation&) const':
/builddir/build/BUILD/nrn-7.8.1/src/nrniv/shape.cpp:1554:8: warning: unused variable 'e' [-Wunused-variable]
 1554 |  float e = 1e-2;
      |        ^
/builddir/build/BUILD/nrn-7.8.1/src/nrniv/shape.cpp: In member function 'virtual void ShapeSection::fast_draw(ivCanvas*, ivCoord, ivCoord, bool) const':
/builddir/build/BUILD/nrn-7.8.1/src/nrniv/shape.cpp:1612:9: warning: variable 'a3dold' set but not used [-Wunused-but-set-variable]
 1612 |  double a3dold; // the arc length at i3d-1
      |         ^~~~~~
/builddir/build/BUILD/nrn-7.8.1/src/nrniv/shape.cpp: In member function 'void ShapeSection::fastidious_draw(ivCanvas*, const ivColor*, int, float, float) const':
/builddir/build/BUILD/nrn-7.8.1/src/nrniv/shape.cpp:1698:8: warning: unused variable 'len' [-Wunused-variable]
 1698 |  float len, f1, f2, d, x1, x2, y1, y2, a, aa;
      |        ^~~
/builddir/build/BUILD/nrn-7.8.1/src/nrniv/shape.cpp: In member function 'ShapeSection::fast_draw(ivCanvas*, float, float, bool) const':
/builddir/build/BUILD/nrn-7.8.1/src/nrniv/shape.cpp:1631:26: warning: 'cv' may be used uninitialized in this function [-Wmaybe-uninitialized]
 1631 |     color = cv->get_color(*pvar_[iseg]);
      |             ~~~~~~~~~~~~~^~~~~~~~~~~~~~
/builddir/build/BUILD/nrn-7.8.1/src/nrniv/shape.cpp: In member function 'ShapeSection::arc_position(float, float) const':
/builddir/build/BUILD/nrn-7.8.1/src/nrniv/shape.cpp:2003:25: warning: 'ic' may be used uninitialized in this function [-Wmaybe-uninitialized]
 2003 |  len = MyMath::norm2(x_[ic] - x_[ic+1], y_[ic] - y_[ic+1]);
      |                         ^~
/builddir/build/BUILD/nrn-7.8.1/src/nrniv/shapeplt.cpp: In member function 'ivGlyph* ColorValue::make_glyph()':
/builddir/build/BUILD/nrn-7.8.1/src/nrniv/shapeplt.cpp:1108:13: warning: unused variable 'wk' [-Wunused-variable]
 1108 |  WidgetKit& wk = *WidgetKit::instance();
      |             ^~
In file included from /builddir/build/BUILD/nrn-7.8.1/src/oc/hocdec.h:13,
                 from /builddir/build/BUILD/nrn-7.8.1/src/oc/classreg.h:5,
                 from /builddir/build/BUILD/nrn-7.8.1/src/nrniv/shapeplt.cpp:2:
/builddir/build/BUILD/nrn-7.8.1/src/nrniv/shapeplt.cpp: In member function 'Hinton::request(ivRequisition&) const':
/builddir/build/BUILD/nrn-7.8.1/src/oc/hocassrt.h:19:22: warning: 'nonnull' argument 'this' compared to NULL [-Wnonnull-compare]
   19 | # define assert(ex) {if (!(ex)){fprintf(stderr,"Assertion failed: file %s, line %d\n", __FILE__,__LINE__);hoc_execerror(#ex, (char *)0);}}
      |                      ^~
make[2]: Leaving directory '/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu'
make[2]: Entering directory '/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu'
[ 35%] Building CXX object src/nrniv/CMakeFiles/nrniv_lib.dir/shape.cpp.o
cd /builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/nrniv && /usr/bin/g++ -DHAVE_CONFIG_H -Dnrniv_lib_EXPORTS -DCABLE=1 -DOOP=1 -DUSEBBS=1 -DUSECVODE=1 -DUSEMATRIX=1 -I/builddir/build/BUILD/nrn-7.8.1/src/ivoc -I/builddir/build/BUILD/nrn-7.8.1/src/nrniv -I/builddir/build/BUILD/nrn-7.8.1/src/nrnoc -I/builddir/build/BUILD/nrn-7.8.1/src/oc -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/nrncvode -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/nrnjava -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/nrnoc -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/nrnpython -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/oc -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/parallel -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/sundials -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/sundials/shared -I/builddir/build/BUILD/nrn-7.8.1/src -I/builddir/build/BUILD/nrn-7.8.1/src/gnu -I/builddir/build/BUILD/nrn-7.8.1/src/memacs -I/builddir/build/BUILD/nrn-7.8.1/src/mesch -I/builddir/build/BUILD/nrn-7.8.1/src/nrncvode -I/builddir/build/BUILD/nrn-7.8.1/src/nrnmpi -I/builddir/build/BUILD/nrn-7.8.1/src/nrnpython -I/builddir/build/BUILD/nrn-7.8.1/src/parallel -I/builddir/build/BUILD/nrn-7.8.1/src/sparse -I/builddir/build/BUILD/nrn-7.8.1/src/sparse13 -I/builddir/build/BUILD/nrn-7.8.1/src/sundials -I/builddir/build/BUILD/nrn-7.8.1/src/sundials/cvodes -I/builddir/build/BUILD/nrn-7.8.1/src/sundials/ida -I/builddir/build/BUILD/nrn-7.8.1/src/sundials/shared -I/usr/include/python3.9 -O2 -flto=auto -ffat-lto-objects -fexceptions -g -grecord-gcc-switches -pipe -Wall -Werror=format-security -Wp,-D_FORTIFY_SOURCE=2 -Wp,-D_GLIBCXX_ASSERTIONS -specs=/usr/lib/rpm/redhat/redhat-hardened-cc1 -fstack-protector-strong -specs=/usr/lib/rpm/redhat/redhat-annobin-cc1  -fasynchronous-unwind-tables -fstack-clash-protection -fPIC -std=c++98 -o CMakeFiles/nrniv_lib.dir/shape.cpp.o -c /builddir/build/BUILD/nrn-7.8.1/src/nrniv/shape.cpp
make[2]: Leaving directory '/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu'
make[2]: Entering directory '/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu'
[ 35%] Building CXX object src/nrniv/CMakeFiles/nrniv_lib.dir/shapeplt.cpp.o
cd /builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/nrniv && /usr/bin/g++ -DHAVE_CONFIG_H -Dnrniv_lib_EXPORTS -DCABLE=1 -DOOP=1 -DUSEBBS=1 -DUSECVODE=1 -DUSEMATRIX=1 -I/builddir/build/BUILD/nrn-7.8.1/src/ivoc -I/builddir/build/BUILD/nrn-7.8.1/src/nrniv -I/builddir/build/BUILD/nrn-7.8.1/src/nrnoc -I/builddir/build/BUILD/nrn-7.8.1/src/oc -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/nrncvode -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/nrnjava -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/nrnoc -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/nrnpython -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/oc -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/parallel -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/sundials -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/sundials/shared -I/builddir/build/BUILD/nrn-7.8.1/src -I/builddir/build/BUILD/nrn-7.8.1/src/gnu -I/builddir/build/BUILD/nrn-7.8.1/src/memacs -I/builddir/build/BUILD/nrn-7.8.1/src/mesch -I/builddir/build/BUILD/nrn-7.8.1/src/nrncvode -I/builddir/build/BUILD/nrn-7.8.1/src/nrnmpi -I/builddir/build/BUILD/nrn-7.8.1/src/nrnpython -I/builddir/build/BUILD/nrn-7.8.1/src/parallel -I/builddir/build/BUILD/nrn-7.8.1/src/sparse -I/builddir/build/BUILD/nrn-7.8.1/src/sparse13 -I/builddir/build/BUILD/nrn-7.8.1/src/sundials -I/builddir/build/BUILD/nrn-7.8.1/src/sundials/cvodes -I/builddir/build/BUILD/nrn-7.8.1/src/sundials/ida -I/builddir/build/BUILD/nrn-7.8.1/src/sundials/shared -I/usr/include/python3.9 -O2 -flto=auto -ffat-lto-objects -fexceptions -g -grecord-gcc-switches -pipe -Wall -Werror=format-security -Wp,-D_FORTIFY_SOURCE=2 -Wp,-D_GLIBCXX_ASSERTIONS -specs=/usr/lib/rpm/redhat/redhat-hardened-cc1 -fstack-protector-strong -specs=/usr/lib/rpm/redhat/redhat-annobin-cc1  -fasynchronous-unwind-tables -fstack-clash-protection -fPIC -std=c++98 -o CMakeFiles/nrniv_lib.dir/shapeplt.cpp.o -c /builddir/build/BUILD/nrn-7.8.1/src/nrniv/shapeplt.cpp
make[2]: Leaving directory '/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu'
make[2]: Entering directory '/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu'
[ 35%] Building CXX object src/nrniv/CMakeFiles/nrniv_lib.dir/singlech.cpp.o
cd /builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/nrniv && /usr/bin/g++ -DHAVE_CONFIG_H -Dnrniv_lib_EXPORTS -DCABLE=1 -DOOP=1 -DUSEBBS=1 -DUSECVODE=1 -DUSEMATRIX=1 -I/builddir/build/BUILD/nrn-7.8.1/src/ivoc -I/builddir/build/BUILD/nrn-7.8.1/src/nrniv -I/builddir/build/BUILD/nrn-7.8.1/src/nrnoc -I/builddir/build/BUILD/nrn-7.8.1/src/oc -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/nrncvode -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/nrnjava -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/nrnoc -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/nrnpython -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/oc -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/parallel -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/sundials -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/sundials/shared -I/builddir/build/BUILD/nrn-7.8.1/src -I/builddir/build/BUILD/nrn-7.8.1/src/gnu -I/builddir/build/BUILD/nrn-7.8.1/src/memacs -I/builddir/build/BUILD/nrn-7.8.1/src/mesch -I/builddir/build/BUILD/nrn-7.8.1/src/nrncvode -I/builddir/build/BUILD/nrn-7.8.1/src/nrnmpi -I/builddir/build/BUILD/nrn-7.8.1/src/nrnpython -I/builddir/build/BUILD/nrn-7.8.1/src/parallel -I/builddir/build/BUILD/nrn-7.8.1/src/sparse -I/builddir/build/BUILD/nrn-7.8.1/src/sparse13 -I/builddir/build/BUILD/nrn-7.8.1/src/sundials -I/builddir/build/BUILD/nrn-7.8.1/src/sundials/cvodes -I/builddir/build/BUILD/nrn-7.8.1/src/sundials/ida -I/builddir/build/BUILD/nrn-7.8.1/src/sundials/shared -I/usr/include/python3.9 -O2 -flto=auto -ffat-lto-objects -fexceptions -g -grecord-gcc-switches -pipe -Wall -Werror=format-security -Wp,-D_FORTIFY_SOURCE=2 -Wp,-D_GLIBCXX_ASSERTIONS -specs=/usr/lib/rpm/redhat/redhat-hardened-cc1 -fstack-protector-strong -specs=/usr/lib/rpm/redhat/redhat-annobin-cc1  -fasynchronous-unwind-tables -fstack-clash-protection -fPIC -std=c++98 -o CMakeFiles/nrniv_lib.dir/singlech.cpp.o -c /builddir/build/BUILD/nrn-7.8.1/src/nrniv/singlech.cpp
make[2]: Leaving directory '/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu'
make[2]: Entering directory '/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu'
[ 36%] Building CXX object src/nrniv/CMakeFiles/nrniv_lib.dir/splitcell.cpp.o
cd /builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/nrniv && /usr/bin/g++ -DHAVE_CONFIG_H -Dnrniv_lib_EXPORTS -DCABLE=1 -DOOP=1 -DUSEBBS=1 -DUSECVODE=1 -DUSEMATRIX=1 -I/builddir/build/BUILD/nrn-7.8.1/src/ivoc -I/builddir/build/BUILD/nrn-7.8.1/src/nrniv -I/builddir/build/BUILD/nrn-7.8.1/src/nrnoc -I/builddir/build/BUILD/nrn-7.8.1/src/oc -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/nrncvode -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/nrnjava -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/nrnoc -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/nrnpython -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/oc -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/parallel -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/sundials -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/sundials/shared -I/builddir/build/BUILD/nrn-7.8.1/src -I/builddir/build/BUILD/nrn-7.8.1/src/gnu -I/builddir/build/BUILD/nrn-7.8.1/src/memacs -I/builddir/build/BUILD/nrn-7.8.1/src/mesch -I/builddir/build/BUILD/nrn-7.8.1/src/nrncvode -I/builddir/build/BUILD/nrn-7.8.1/src/nrnmpi -I/builddir/build/BUILD/nrn-7.8.1/src/nrnpython -I/builddir/build/BUILD/nrn-7.8.1/src/parallel -I/builddir/build/BUILD/nrn-7.8.1/src/sparse -I/builddir/build/BUILD/nrn-7.8.1/src/sparse13 -I/builddir/build/BUILD/nrn-7.8.1/src/sundials -I/builddir/build/BUILD/nrn-7.8.1/src/sundials/cvodes -I/builddir/build/BUILD/nrn-7.8.1/src/sundials/ida -I/builddir/build/BUILD/nrn-7.8.1/src/sundials/shared -I/usr/include/python3.9 -O2 -flto=auto -ffat-lto-objects -fexceptions -g -grecord-gcc-switches -pipe -Wall -Werror=format-security -Wp,-D_FORTIFY_SOURCE=2 -Wp,-D_GLIBCXX_ASSERTIONS -specs=/usr/lib/rpm/redhat/redhat-hardened-cc1 -fstack-protector-strong -specs=/usr/lib/rpm/redhat/redhat-annobin-cc1  -fasynchronous-unwind-tables -fstack-clash-protection -fPIC -std=c++98 -o CMakeFiles/nrniv_lib.dir/splitcell.cpp.o -c /builddir/build/BUILD/nrn-7.8.1/src/nrniv/splitcell.cpp
make[2]: Leaving directory '/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu'
make[2]: Entering directory '/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu'
[ 36%] Building CXX object src/nrniv/CMakeFiles/nrniv_lib.dir/symdir.cpp.o
cd /builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/nrniv && /usr/bin/g++ -DHAVE_CONFIG_H -Dnrniv_lib_EXPORTS -DCABLE=1 -DOOP=1 -DUSEBBS=1 -DUSECVODE=1 -DUSEMATRIX=1 -I/builddir/build/BUILD/nrn-7.8.1/src/ivoc -I/builddir/build/BUILD/nrn-7.8.1/src/nrniv -I/builddir/build/BUILD/nrn-7.8.1/src/nrnoc -I/builddir/build/BUILD/nrn-7.8.1/src/oc -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/nrncvode -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/nrnjava -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/nrnoc -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/nrnpython -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/oc -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/parallel -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/sundials -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/sundials/shared -I/builddir/build/BUILD/nrn-7.8.1/src -I/builddir/build/BUILD/nrn-7.8.1/src/gnu -I/builddir/build/BUILD/nrn-7.8.1/src/memacs -I/builddir/build/BUILD/nrn-7.8.1/src/mesch -I/builddir/build/BUILD/nrn-7.8.1/src/nrncvode -I/builddir/build/BUILD/nrn-7.8.1/src/nrnmpi -I/builddir/build/BUILD/nrn-7.8.1/src/nrnpython -I/builddir/build/BUILD/nrn-7.8.1/src/parallel -I/builddir/build/BUILD/nrn-7.8.1/src/sparse -I/builddir/build/BUILD/nrn-7.8.1/src/sparse13 -I/builddir/build/BUILD/nrn-7.8.1/src/sundials -I/builddir/build/BUILD/nrn-7.8.1/src/sundials/cvodes -I/builddir/build/BUILD/nrn-7.8.1/src/sundials/ida -I/builddir/build/BUILD/nrn-7.8.1/src/sundials/shared -I/usr/include/python3.9 -O2 -flto=auto -ffat-lto-objects -fexceptions -g -grecord-gcc-switches -pipe -Wall -Werror=format-security -Wp,-D_FORTIFY_SOURCE=2 -Wp,-D_GLIBCXX_ASSERTIONS -specs=/usr/lib/rpm/redhat/redhat-hardened-cc1 -fstack-protector-strong -specs=/usr/lib/rpm/redhat/redhat-annobin-cc1  -fasynchronous-unwind-tables -fstack-clash-protection -fPIC -std=c++98 -o CMakeFiles/nrniv_lib.dir/symdir.cpp.o -c /builddir/build/BUILD/nrn-7.8.1/src/nrniv/symdir.cpp
make[2]: Leaving directory '/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu'
In file included from /builddir/build/BUILD/nrn-7.8.1/src/nrniv/symdir.cpp:5:
/builddir/build/BUILD/nrn-7.8.1/src/nrniv/../ivoc/symdir.cpp: In constructor 'SymDirectory::SymDirectory(Object*)':
/builddir/build/BUILD/nrn-7.8.1/src/nrniv/../ivoc/symdir.cpp:172:6: warning: unused variable 'suffix' [-Wunused-variable]
  172 |  int suffix = '.';
      |      ^~~~~~
/builddir/build/BUILD/nrn-7.8.1/src/nrniv/../ivoc/symdir.cpp: In member function 'void SymDirectoryImpl::load_section()':
/builddir/build/BUILD/nrn-7.8.1/src/nrniv/../ivoc/symdir.cpp:549:6: warning: unused variable 'n' [-Wunused-variable]
  549 |  int n = sec->nnode;
      |      ^
make[2]: Entering directory '/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu'
[ 35%] Building CXX object src/nrniv/CMakeFiles/nrniv_lib.dir/tqueue.cpp.o
cd /builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/nrniv && /usr/bin/g++ -DHAVE_CONFIG_H -Dnrniv_lib_EXPORTS -DCABLE=1 -DOOP=1 -DUSEBBS=1 -DUSECVODE=1 -DUSEMATRIX=1 -I/builddir/build/BUILD/nrn-7.8.1/src/ivoc -I/builddir/build/BUILD/nrn-7.8.1/src/nrniv -I/builddir/build/BUILD/nrn-7.8.1/src/nrnoc -I/builddir/build/BUILD/nrn-7.8.1/src/oc -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/nrncvode -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/nrnjava -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/nrnoc -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/nrnpython -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/oc -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/parallel -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/sundials -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/sundials/shared -I/builddir/build/BUILD/nrn-7.8.1/src -I/builddir/build/BUILD/nrn-7.8.1/src/gnu -I/builddir/build/BUILD/nrn-7.8.1/src/memacs -I/builddir/build/BUILD/nrn-7.8.1/src/mesch -I/builddir/build/BUILD/nrn-7.8.1/src/nrncvode -I/builddir/build/BUILD/nrn-7.8.1/src/nrnmpi -I/builddir/build/BUILD/nrn-7.8.1/src/nrnpython -I/builddir/build/BUILD/nrn-7.8.1/src/parallel -I/builddir/build/BUILD/nrn-7.8.1/src/sparse -I/builddir/build/BUILD/nrn-7.8.1/src/sparse13 -I/builddir/build/BUILD/nrn-7.8.1/src/sundials -I/builddir/build/BUILD/nrn-7.8.1/src/sundials/cvodes -I/builddir/build/BUILD/nrn-7.8.1/src/sundials/ida -I/builddir/build/BUILD/nrn-7.8.1/src/sundials/shared -I/usr/include/python3.9 -O2 -flto=auto -ffat-lto-objects -fexceptions -g -grecord-gcc-switches -pipe -Wall -Werror=format-security -Wp,-D_FORTIFY_SOURCE=2 -Wp,-D_GLIBCXX_ASSERTIONS -specs=/usr/lib/rpm/redhat/redhat-hardened-cc1 -fstack-protector-strong -specs=/usr/lib/rpm/redhat/redhat-annobin-cc1  -fasynchronous-unwind-tables -fstack-clash-protection -fPIC -std=c++98 -o CMakeFiles/nrniv_lib.dir/tqueue.cpp.o -c /builddir/build/BUILD/nrn-7.8.1/src/nrniv/tqueue.cpp
make[2]: Leaving directory '/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu'
In file included from /builddir/build/BUILD/nrn-7.8.1/src/nrncvode/sptbinq.cpp:391,
                 from /builddir/build/BUILD/nrn-7.8.1/src/nrniv/../nrncvode/tqueue.cpp:133,
                 from /builddir/build/BUILD/nrn-7.8.1/src/nrniv/tqueue.cpp:5:
/builddir/build/BUILD/nrn-7.8.1/src/nrncvode/sptree.c: In function 'TQItem* sptq_spenq(TQItem*, SPTREE*)':
/builddir/build/BUILD/nrn-7.8.1/src/nrncvode/sptree.c:104:18: warning: unused variable 'Sct' [-Wunused-variable]
  104 |     register int Sct;  /* Strcmp value */
      |                  ^~~
/builddir/build/BUILD/nrn-7.8.1/src/nrncvode/sptree.c: In function 'TQItem* sptq_spenqprior(TQItem*, SPTREE*)':
/builddir/build/BUILD/nrn-7.8.1/src/nrncvode/sptree.c:329:18: warning: unused variable 'Sct' [-Wunused-variable]
  329 |     register int Sct;  /* Strcmp value */
      |                  ^~~
In file included from /builddir/build/BUILD/nrn-7.8.1/src/nrniv/../nrncvode/tqueue.cpp:133,
                 from /builddir/build/BUILD/nrn-7.8.1/src/nrniv/tqueue.cpp:5:
/builddir/build/BUILD/nrn-7.8.1/src/nrncvode/sptbinq.cpp: At global scope:
/builddir/build/BUILD/nrn-7.8.1/src/nrncvode/sptbinq.cpp:56:13: warning: 'void chk(TQItem*, int)' defined but not used [-Wunused-function]
   56 | static void chk(TQItem* b, int level) {
      |             ^~~
make[2]: Entering directory '/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu'
[ 36%] Building CXX object src/nrniv/CMakeFiles/nrniv_lib.dir/spaceplt.cpp.o
cd /builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/nrniv && /usr/bin/g++ -DHAVE_CONFIG_H -Dnrniv_lib_EXPORTS -DCABLE=1 -DOOP=1 -DUSEBBS=1 -DUSECVODE=1 -DUSEMATRIX=1 -I/builddir/build/BUILD/nrn-7.8.1/src/ivoc -I/builddir/build/BUILD/nrn-7.8.1/src/nrniv -I/builddir/build/BUILD/nrn-7.8.1/src/nrnoc -I/builddir/build/BUILD/nrn-7.8.1/src/oc -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/nrncvode -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/nrnjava -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/nrnoc -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/nrnpython -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/oc -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/parallel -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/sundials -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/sundials/shared -I/builddir/build/BUILD/nrn-7.8.1/src -I/builddir/build/BUILD/nrn-7.8.1/src/gnu -I/builddir/build/BUILD/nrn-7.8.1/src/memacs -I/builddir/build/BUILD/nrn-7.8.1/src/mesch -I/builddir/build/BUILD/nrn-7.8.1/src/nrncvode -I/builddir/build/BUILD/nrn-7.8.1/src/nrnmpi -I/builddir/build/BUILD/nrn-7.8.1/src/nrnpython -I/builddir/build/BUILD/nrn-7.8.1/src/parallel -I/builddir/build/BUILD/nrn-7.8.1/src/sparse -I/builddir/build/BUILD/nrn-7.8.1/src/sparse13 -I/builddir/build/BUILD/nrn-7.8.1/src/sundials -I/builddir/build/BUILD/nrn-7.8.1/src/sundials/cvodes -I/builddir/build/BUILD/nrn-7.8.1/src/sundials/ida -I/builddir/build/BUILD/nrn-7.8.1/src/sundials/shared -I/usr/include/python3.9 -O2 -flto=auto -ffat-lto-objects -fexceptions -g -grecord-gcc-switches -pipe -Wall -Werror=format-security -Wp,-D_FORTIFY_SOURCE=2 -Wp,-D_GLIBCXX_ASSERTIONS -specs=/usr/lib/rpm/redhat/redhat-hardened-cc1 -fstack-protector-strong -specs=/usr/lib/rpm/redhat/redhat-annobin-cc1  -fasynchronous-unwind-tables -fstack-clash-protection -fPIC -std=c++98 -o CMakeFiles/nrniv_lib.dir/spaceplt.cpp.o -c /builddir/build/BUILD/nrn-7.8.1/src/nrniv/spaceplt.cpp
make[2]: Leaving directory '/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu'
/builddir/build/BUILD/nrn-7.8.1/src/nrniv/spaceplt.cpp: In member function 'RangeVarPlot::fill_pointers()':
/builddir/build/BUILD/nrn-7.8.1/src/nrniv/spaceplt.cpp:531:24: warning: 'sym' may be used uninitialized in this function [-Wmaybe-uninitialized]
  531 | does_exist = nrn_exists(sym, node_exact(sec, hoc_ac_));
      |              ~~~~~~~~~~^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
make[2]: Entering directory '/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu'
[ 37%] Building C object src/nrniv/CMakeFiles/nrniv_lib.dir/__/nrnoc/capac.c.o
cd /builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/nrniv && /usr/bin/gcc -DHAVE_CONFIG_H -Dnrniv_lib_EXPORTS -I/builddir/build/BUILD/nrn-7.8.1/src/ivoc -I/builddir/build/BUILD/nrn-7.8.1/src/nrniv -I/builddir/build/BUILD/nrn-7.8.1/src/nrnoc -I/builddir/build/BUILD/nrn-7.8.1/src/oc -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/nrncvode -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/nrnjava -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/nrnoc -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/nrnpython -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/oc -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/parallel -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/sundials -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/sundials/shared -I/builddir/build/BUILD/nrn-7.8.1/src -I/builddir/build/BUILD/nrn-7.8.1/src/gnu -I/builddir/build/BUILD/nrn-7.8.1/src/memacs -I/builddir/build/BUILD/nrn-7.8.1/src/mesch -I/builddir/build/BUILD/nrn-7.8.1/src/nrncvode -I/builddir/build/BUILD/nrn-7.8.1/src/nrnmpi -I/builddir/build/BUILD/nrn-7.8.1/src/nrnpython -I/builddir/build/BUILD/nrn-7.8.1/src/parallel -I/builddir/build/BUILD/nrn-7.8.1/src/sparse -I/builddir/build/BUILD/nrn-7.8.1/src/sparse13 -I/builddir/build/BUILD/nrn-7.8.1/src/sundials -I/builddir/build/BUILD/nrn-7.8.1/src/sundials/cvodes -I/builddir/build/BUILD/nrn-7.8.1/src/sundials/ida -I/builddir/build/BUILD/nrn-7.8.1/src/sundials/shared -I/usr/include/python3.9 -O2 -flto=auto -ffat-lto-objects -fexceptions -g -grecord-gcc-switches -pipe -Wall -Werror=format-security -Wp,-D_FORTIFY_SOURCE=2 -Wp,-D_GLIBCXX_ASSERTIONS -specs=/usr/lib/rpm/redhat/redhat-hardened-cc1 -fstack-protector-strong -specs=/usr/lib/rpm/redhat/redhat-annobin-cc1  -fasynchronous-unwind-tables -fstack-clash-protection -fPIC -o CMakeFiles/nrniv_lib.dir/__/nrnoc/capac.c.o -c /builddir/build/BUILD/nrn-7.8.1/src/nrnoc/capac.c
make[2]: Leaving directory '/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu'
make[2]: Entering directory '/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu'
[ 37%] Building C object src/nrniv/CMakeFiles/nrniv_lib.dir/__/nrnoc/clamp.c.o
cd /builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/nrniv && /usr/bin/gcc -DHAVE_CONFIG_H -Dnrniv_lib_EXPORTS -I/builddir/build/BUILD/nrn-7.8.1/src/ivoc -I/builddir/build/BUILD/nrn-7.8.1/src/nrniv -I/builddir/build/BUILD/nrn-7.8.1/src/nrnoc -I/builddir/build/BUILD/nrn-7.8.1/src/oc -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/nrncvode -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/nrnjava -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/nrnoc -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/nrnpython -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/oc -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/parallel -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/sundials -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/sundials/shared -I/builddir/build/BUILD/nrn-7.8.1/src -I/builddir/build/BUILD/nrn-7.8.1/src/gnu -I/builddir/build/BUILD/nrn-7.8.1/src/memacs -I/builddir/build/BUILD/nrn-7.8.1/src/mesch -I/builddir/build/BUILD/nrn-7.8.1/src/nrncvode -I/builddir/build/BUILD/nrn-7.8.1/src/nrnmpi -I/builddir/build/BUILD/nrn-7.8.1/src/nrnpython -I/builddir/build/BUILD/nrn-7.8.1/src/parallel -I/builddir/build/BUILD/nrn-7.8.1/src/sparse -I/builddir/build/BUILD/nrn-7.8.1/src/sparse13 -I/builddir/build/BUILD/nrn-7.8.1/src/sundials -I/builddir/build/BUILD/nrn-7.8.1/src/sundials/cvodes -I/builddir/build/BUILD/nrn-7.8.1/src/sundials/ida -I/builddir/build/BUILD/nrn-7.8.1/src/sundials/shared -I/usr/include/python3.9 -O2 -flto=auto -ffat-lto-objects -fexceptions -g -grecord-gcc-switches -pipe -Wall -Werror=format-security -Wp,-D_FORTIFY_SOURCE=2 -Wp,-D_GLIBCXX_ASSERTIONS -specs=/usr/lib/rpm/redhat/redhat-hardened-cc1 -fstack-protector-strong -specs=/usr/lib/rpm/redhat/redhat-annobin-cc1  -fasynchronous-unwind-tables -fstack-clash-protection -fPIC -o CMakeFiles/nrniv_lib.dir/__/nrnoc/clamp.c.o -c /builddir/build/BUILD/nrn-7.8.1/src/nrnoc/clamp.c
make[2]: Leaving directory '/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu'
/builddir/build/BUILD/nrn-7.8.1/src/nrnoc/clamp.c: In function 'activclamp_lhs':
/builddir/build/BUILD/nrn-7.8.1/src/nrnoc/clamp.c:180:9: warning: unused variable 'v' [-Wunused-variable]
  180 |  double v;
      |         ^
make[2]: Entering directory '/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu'
[ 36%] Building CXX object src/nrniv/CMakeFiles/nrniv_lib.dir/vrecord.cpp.o
cd /builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/nrniv && /usr/bin/g++ -DHAVE_CONFIG_H -Dnrniv_lib_EXPORTS -DCABLE=1 -DOOP=1 -DUSEBBS=1 -DUSECVODE=1 -DUSEMATRIX=1 -I/builddir/build/BUILD/nrn-7.8.1/src/ivoc -I/builddir/build/BUILD/nrn-7.8.1/src/nrniv -I/builddir/build/BUILD/nrn-7.8.1/src/nrnoc -I/builddir/build/BUILD/nrn-7.8.1/src/oc -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/nrncvode -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/nrnjava -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/nrnoc -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/nrnpython -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/oc -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/parallel -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/sundials -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/sundials/shared -I/builddir/build/BUILD/nrn-7.8.1/src -I/builddir/build/BUILD/nrn-7.8.1/src/gnu -I/builddir/build/BUILD/nrn-7.8.1/src/memacs -I/builddir/build/BUILD/nrn-7.8.1/src/mesch -I/builddir/build/BUILD/nrn-7.8.1/src/nrncvode -I/builddir/build/BUILD/nrn-7.8.1/src/nrnmpi -I/builddir/build/BUILD/nrn-7.8.1/src/nrnpython -I/builddir/build/BUILD/nrn-7.8.1/src/parallel -I/builddir/build/BUILD/nrn-7.8.1/src/sparse -I/builddir/build/BUILD/nrn-7.8.1/src/sparse13 -I/builddir/build/BUILD/nrn-7.8.1/src/sundials -I/builddir/build/BUILD/nrn-7.8.1/src/sundials/cvodes -I/builddir/build/BUILD/nrn-7.8.1/src/sundials/ida -I/builddir/build/BUILD/nrn-7.8.1/src/sundials/shared -I/usr/include/python3.9 -O2 -flto=auto -ffat-lto-objects -fexceptions -g -grecord-gcc-switches -pipe -Wall -Werror=format-security -Wp,-D_FORTIFY_SOURCE=2 -Wp,-D_GLIBCXX_ASSERTIONS -specs=/usr/lib/rpm/redhat/redhat-hardened-cc1 -fstack-protector-strong -specs=/usr/lib/rpm/redhat/redhat-annobin-cc1  -fasynchronous-unwind-tables -fstack-clash-protection -fPIC -std=c++98 -o CMakeFiles/nrniv_lib.dir/vrecord.cpp.o -c /builddir/build/BUILD/nrn-7.8.1/src/nrniv/vrecord.cpp
make[2]: Leaving directory '/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu'
make[2]: Entering directory '/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu'
[ 37%] Building C object src/nrniv/CMakeFiles/nrniv_lib.dir/__/nrnoc/eion.c.o
cd /builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/nrniv && /usr/bin/gcc -DHAVE_CONFIG_H -Dnrniv_lib_EXPORTS -I/builddir/build/BUILD/nrn-7.8.1/src/ivoc -I/builddir/build/BUILD/nrn-7.8.1/src/nrniv -I/builddir/build/BUILD/nrn-7.8.1/src/nrnoc -I/builddir/build/BUILD/nrn-7.8.1/src/oc -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/nrncvode -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/nrnjava -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/nrnoc -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/nrnpython -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/oc -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/parallel -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/sundials -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/sundials/shared -I/builddir/build/BUILD/nrn-7.8.1/src -I/builddir/build/BUILD/nrn-7.8.1/src/gnu -I/builddir/build/BUILD/nrn-7.8.1/src/memacs -I/builddir/build/BUILD/nrn-7.8.1/src/mesch -I/builddir/build/BUILD/nrn-7.8.1/src/nrncvode -I/builddir/build/BUILD/nrn-7.8.1/src/nrnmpi -I/builddir/build/BUILD/nrn-7.8.1/src/nrnpython -I/builddir/build/BUILD/nrn-7.8.1/src/parallel -I/builddir/build/BUILD/nrn-7.8.1/src/sparse -I/builddir/build/BUILD/nrn-7.8.1/src/sparse13 -I/builddir/build/BUILD/nrn-7.8.1/src/sundials -I/builddir/build/BUILD/nrn-7.8.1/src/sundials/cvodes -I/builddir/build/BUILD/nrn-7.8.1/src/sundials/ida -I/builddir/build/BUILD/nrn-7.8.1/src/sundials/shared -I/usr/include/python3.9 -O2 -flto=auto -ffat-lto-objects -fexceptions -g -grecord-gcc-switches -pipe -Wall -Werror=format-security -Wp,-D_FORTIFY_SOURCE=2 -Wp,-D_GLIBCXX_ASSERTIONS -specs=/usr/lib/rpm/redhat/redhat-hardened-cc1 -fstack-protector-strong -specs=/usr/lib/rpm/redhat/redhat-annobin-cc1  -fasynchronous-unwind-tables -fstack-clash-protection -fPIC -o CMakeFiles/nrniv_lib.dir/__/nrnoc/eion.c.o -c /builddir/build/BUILD/nrn-7.8.1/src/nrnoc/eion.c
make[2]: Leaving directory '/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu'
/builddir/build/BUILD/nrn-7.8.1/src/nrnoc/eion.c:25:28: warning: missing braces around initializer [-Wmissing-braces]
   25 | static DoubScal scdoub[] = { /* just a template*/
      |                            ^
   26 |  "ci0_na_ion", 0,
      |  {              }
   27 |  "co0_na_ion", 0,
      |  {              }
   28 |  0, 0
      |  {
   29 | };
      | }
/builddir/build/BUILD/nrn-7.8.1/src/nrnoc/eion.c: In function 'ion_cur':
/builddir/build/BUILD/nrn-7.8.1/src/nrnoc/eion.c:521:9: warning: unused variable 'vnode' [-Wunused-variable]
  521 |  Node** vnode = ml->nodelist;
      |         ^~~~~
/builddir/build/BUILD/nrn-7.8.1/src/nrnoc/eion.c: In function 'ion_init':
/builddir/build/BUILD/nrn-7.8.1/src/nrnoc/eion.c:543:9: warning: unused variable 'vnode' [-Wunused-variable]
  543 |  Node** vnode = ml->nodelist;
      |         ^~~~~
/builddir/build/BUILD/nrn-7.8.1/src/nrnoc/eion.c: In function 'second_order_cur':
/builddir/build/BUILD/nrn-7.8.1/src/nrnoc/eion.c:605:6: warning: unused variable 'j' [-Wunused-variable]
  605 |  int j, i, i2;
      |      ^
make[2]: Entering directory '/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu'
[ 36%] Building C object src/nrniv/CMakeFiles/nrniv_lib.dir/__/nrnoc/cabcode.c.o
cd /builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/nrniv && /usr/bin/gcc -DHAVE_CONFIG_H -Dnrniv_lib_EXPORTS -I/builddir/build/BUILD/nrn-7.8.1/src/ivoc -I/builddir/build/BUILD/nrn-7.8.1/src/nrniv -I/builddir/build/BUILD/nrn-7.8.1/src/nrnoc -I/builddir/build/BUILD/nrn-7.8.1/src/oc -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/nrncvode -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/nrnjava -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/nrnoc -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/nrnpython -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/oc -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/parallel -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/sundials -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/sundials/shared -I/builddir/build/BUILD/nrn-7.8.1/src -I/builddir/build/BUILD/nrn-7.8.1/src/gnu -I/builddir/build/BUILD/nrn-7.8.1/src/memacs -I/builddir/build/BUILD/nrn-7.8.1/src/mesch -I/builddir/build/BUILD/nrn-7.8.1/src/nrncvode -I/builddir/build/BUILD/nrn-7.8.1/src/nrnmpi -I/builddir/build/BUILD/nrn-7.8.1/src/nrnpython -I/builddir/build/BUILD/nrn-7.8.1/src/parallel -I/builddir/build/BUILD/nrn-7.8.1/src/sparse -I/builddir/build/BUILD/nrn-7.8.1/src/sparse13 -I/builddir/build/BUILD/nrn-7.8.1/src/sundials -I/builddir/build/BUILD/nrn-7.8.1/src/sundials/cvodes -I/builddir/build/BUILD/nrn-7.8.1/src/sundials/ida -I/builddir/build/BUILD/nrn-7.8.1/src/sundials/shared -I/usr/include/python3.9 -O2 -flto=auto -ffat-lto-objects -fexceptions -g -grecord-gcc-switches -pipe -Wall -Werror=format-security -Wp,-D_FORTIFY_SOURCE=2 -Wp,-D_GLIBCXX_ASSERTIONS -specs=/usr/lib/rpm/redhat/redhat-hardened-cc1 -fstack-protector-strong -specs=/usr/lib/rpm/redhat/redhat-annobin-cc1  -fasynchronous-unwind-tables -fstack-clash-protection -fPIC -o CMakeFiles/nrniv_lib.dir/__/nrnoc/cabcode.c.o -c /builddir/build/BUILD/nrn-7.8.1/src/nrnoc/cabcode.c
make[2]: Leaving directory '/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu'
/builddir/build/BUILD/nrn-7.8.1/src/nrnoc/cabcode.c: In function 'nrn_rootnode_alloc':
/builddir/build/BUILD/nrn-7.8.1/src/nrnoc/cabcode.c:1654:11: warning: unused variable 'nde' [-Wunused-variable]
 1654 |  Extnode* nde;
      |           ^~~
/builddir/build/BUILD/nrn-7.8.1/src/nrnoc/cabcode.c: In function 'ismembrane':
/builddir/build/BUILD/nrn-7.8.1/src/nrnoc/cabcode.c:2254:8: warning: unused variable 'p' [-Wunused-variable]
 2254 |  Prop *p;
      |        ^
/builddir/build/BUILD/nrn-7.8.1/src/nrnoc/cabcode.c: In function 'section_exists':
/builddir/build/BUILD/nrn-7.8.1/src/nrnoc/cabcode.c:2466:14: warning: unused variable 'cp' [-Wunused-variable]
 2466 |  char *str, *cp, buf[100];
      |              ^~
make[2]: Entering directory '/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu'
[ 37%] Building C object src/nrniv/CMakeFiles/nrniv_lib.dir/__/nrnoc/extcelln.c.o
cd /builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/nrniv && /usr/bin/gcc -DHAVE_CONFIG_H -Dnrniv_lib_EXPORTS -I/builddir/build/BUILD/nrn-7.8.1/src/ivoc -I/builddir/build/BUILD/nrn-7.8.1/src/nrniv -I/builddir/build/BUILD/nrn-7.8.1/src/nrnoc -I/builddir/build/BUILD/nrn-7.8.1/src/oc -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/nrncvode -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/nrnjava -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/nrnoc -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/nrnpython -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/oc -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/parallel -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/sundials -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/sundials/shared -I/builddir/build/BUILD/nrn-7.8.1/src -I/builddir/build/BUILD/nrn-7.8.1/src/gnu -I/builddir/build/BUILD/nrn-7.8.1/src/memacs -I/builddir/build/BUILD/nrn-7.8.1/src/mesch -I/builddir/build/BUILD/nrn-7.8.1/src/nrncvode -I/builddir/build/BUILD/nrn-7.8.1/src/nrnmpi -I/builddir/build/BUILD/nrn-7.8.1/src/nrnpython -I/builddir/build/BUILD/nrn-7.8.1/src/parallel -I/builddir/build/BUILD/nrn-7.8.1/src/sparse -I/builddir/build/BUILD/nrn-7.8.1/src/sparse13 -I/builddir/build/BUILD/nrn-7.8.1/src/sundials -I/builddir/build/BUILD/nrn-7.8.1/src/sundials/cvodes -I/builddir/build/BUILD/nrn-7.8.1/src/sundials/ida -I/builddir/build/BUILD/nrn-7.8.1/src/sundials/shared -I/usr/include/python3.9 -O2 -flto=auto -ffat-lto-objects -fexceptions -g -grecord-gcc-switches -pipe -Wall -Werror=format-security -Wp,-D_FORTIFY_SOURCE=2 -Wp,-D_GLIBCXX_ASSERTIONS -specs=/usr/lib/rpm/redhat/redhat-hardened-cc1 -fstack-protector-strong -specs=/usr/lib/rpm/redhat/redhat-annobin-cc1  -fasynchronous-unwind-tables -fstack-clash-protection -fPIC -o CMakeFiles/nrniv_lib.dir/__/nrnoc/extcelln.c.o -c /builddir/build/BUILD/nrn-7.8.1/src/nrnoc/extcelln.c
make[2]: Leaving directory '/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu'
/builddir/build/BUILD/nrn-7.8.1/src/nrnoc/extcelln.c:26:33: warning: missing braces around initializer [-Wmissing-braces]
   26 | static HocParmLimits limits[] = {
      |                                 ^
   27 |  "xraxial", 1e-9, 1e15,
      |  {          {         }}
   28 |  "xg", 0., 1e15,
      |  {     {       }}
   29 |  "xc", 0., 1e15,
      |  {     {       }}
   30 |  0,0.,0.
      |  { {
   31 | };
      | }}
/builddir/build/BUILD/nrn-7.8.1/src/nrnoc/extcelln.c:33:31: warning: missing braces around initializer [-Wmissing-braces]
   33 | static HocParmUnits units[] = {
      |                               ^
   34 |  "xraxial", "MOhm/cm",
      |  {                   }
   35 |  "xg", "S/cm2",
      |  {            }
   36 |  "xc", "uF/cm2",
      |  {             }
   37 |  "e_extracellular", "mV",
      |  {                      }
   38 |  "vext", "mV",
      |  {           }
   39 |  "i_membrane", "mA/cm2",
      |  {                     }
   40 |  0,0
      |  {
   41 | };
      | }
/builddir/build/BUILD/nrn-7.8.1/src/nrnoc/extcelln.c: In function 'nrn_update_2d':
/builddir/build/BUILD/nrn-7.8.1/src/nrnoc/extcelln.c:94:9: warning: variable 'cfac' set but not used [-Wunused-but-set-variable]
   94 |  double cfac;
      |         ^~~~
/builddir/build/BUILD/nrn-7.8.1/src/nrnoc/extcelln.c:90:13: warning: unused variable 'secondorder' [-Wunused-variable]
   90 |  extern int secondorder;
      |             ^~~~~~~~~~~
/builddir/build/BUILD/nrn-7.8.1/src/nrnoc/extcelln.c: In function 'extcell_node_create':
/builddir/build/BUILD/nrn-7.8.1/src/nrnoc/extcelln.c:197:6: warning: unused variable 'i' [-Wunused-variable]
  197 |  int i, j;
      |      ^
/builddir/build/BUILD/nrn-7.8.1/src/nrnoc/extcelln.c: In function 'extcell_2d_alloc':
/builddir/build/BUILD/nrn-7.8.1/src/nrnoc/extcelln.c:240:8: warning: unused variable 'p' [-Wunused-variable]
  240 |  Prop* p;
      |        ^
/builddir/build/BUILD/nrn-7.8.1/src/nrnoc/extcelln.c:239:11: warning: unused variable 'nde' [-Wunused-variable]
  239 |  Extnode *nde;
      |           ^~~
/builddir/build/BUILD/nrn-7.8.1/src/nrnoc/extcelln.c:238:8: warning: unused variable 'nd' [-Wunused-variable]
  238 |  Node *nd;
      |        ^~
/builddir/build/BUILD/nrn-7.8.1/src/nrnoc/extcelln.c:237:9: warning: unused variable 'j' [-Wunused-variable]
  237 |  int i, j;
      |         ^
make[2]: Entering directory '/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu'
[ 38%] Building C object src/nrniv/CMakeFiles/nrniv_lib.dir/__/nrnoc/fstim.c.o
cd /builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/nrniv && /usr/bin/gcc -DHAVE_CONFIG_H -Dnrniv_lib_EXPORTS -I/builddir/build/BUILD/nrn-7.8.1/src/ivoc -I/builddir/build/BUILD/nrn-7.8.1/src/nrniv -I/builddir/build/BUILD/nrn-7.8.1/src/nrnoc -I/builddir/build/BUILD/nrn-7.8.1/src/oc -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/nrncvode -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/nrnjava -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/nrnoc -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/nrnpython -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/oc -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/parallel -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/sundials -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/sundials/shared -I/builddir/build/BUILD/nrn-7.8.1/src -I/builddir/build/BUILD/nrn-7.8.1/src/gnu -I/builddir/build/BUILD/nrn-7.8.1/src/memacs -I/builddir/build/BUILD/nrn-7.8.1/src/mesch -I/builddir/build/BUILD/nrn-7.8.1/src/nrncvode -I/builddir/build/BUILD/nrn-7.8.1/src/nrnmpi -I/builddir/build/BUILD/nrn-7.8.1/src/nrnpython -I/builddir/build/BUILD/nrn-7.8.1/src/parallel -I/builddir/build/BUILD/nrn-7.8.1/src/sparse -I/builddir/build/BUILD/nrn-7.8.1/src/sparse13 -I/builddir/build/BUILD/nrn-7.8.1/src/sundials -I/builddir/build/BUILD/nrn-7.8.1/src/sundials/cvodes -I/builddir/build/BUILD/nrn-7.8.1/src/sundials/ida -I/builddir/build/BUILD/nrn-7.8.1/src/sundials/shared -I/usr/include/python3.9 -O2 -flto=auto -ffat-lto-objects -fexceptions -g -grecord-gcc-switches -pipe -Wall -Werror=format-security -Wp,-D_FORTIFY_SOURCE=2 -Wp,-D_GLIBCXX_ASSERTIONS -specs=/usr/lib/rpm/redhat/redhat-hardened-cc1 -fstack-protector-strong -specs=/usr/lib/rpm/redhat/redhat-annobin-cc1  -fasynchronous-unwind-tables -fstack-clash-protection -fPIC -o CMakeFiles/nrniv_lib.dir/__/nrnoc/fstim.c.o -c /builddir/build/BUILD/nrn-7.8.1/src/nrnoc/fstim.c
make[2]: Leaving directory '/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu'
make[2]: Entering directory '/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu'
[ 38%] Building C object src/nrniv/CMakeFiles/nrniv_lib.dir/__/nrnoc/hocprax.c.o
cd /builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/nrniv && /usr/bin/gcc -DHAVE_CONFIG_H -Dnrniv_lib_EXPORTS -I/builddir/build/BUILD/nrn-7.8.1/src/ivoc -I/builddir/build/BUILD/nrn-7.8.1/src/nrniv -I/builddir/build/BUILD/nrn-7.8.1/src/nrnoc -I/builddir/build/BUILD/nrn-7.8.1/src/oc -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/nrncvode -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/nrnjava -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/nrnoc -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/nrnpython -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/oc -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/parallel -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/sundials -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/sundials/shared -I/builddir/build/BUILD/nrn-7.8.1/src -I/builddir/build/BUILD/nrn-7.8.1/src/gnu -I/builddir/build/BUILD/nrn-7.8.1/src/memacs -I/builddir/build/BUILD/nrn-7.8.1/src/mesch -I/builddir/build/BUILD/nrn-7.8.1/src/nrncvode -I/builddir/build/BUILD/nrn-7.8.1/src/nrnmpi -I/builddir/build/BUILD/nrn-7.8.1/src/nrnpython -I/builddir/build/BUILD/nrn-7.8.1/src/parallel -I/builddir/build/BUILD/nrn-7.8.1/src/sparse -I/builddir/build/BUILD/nrn-7.8.1/src/sparse13 -I/builddir/build/BUILD/nrn-7.8.1/src/sundials -I/builddir/build/BUILD/nrn-7.8.1/src/sundials/cvodes -I/builddir/build/BUILD/nrn-7.8.1/src/sundials/ida -I/builddir/build/BUILD/nrn-7.8.1/src/sundials/shared -I/usr/include/python3.9 -O2 -flto=auto -ffat-lto-objects -fexceptions -g -grecord-gcc-switches -pipe -Wall -Werror=format-security -Wp,-D_FORTIFY_SOURCE=2 -Wp,-D_GLIBCXX_ASSERTIONS -specs=/usr/lib/rpm/redhat/redhat-hardened-cc1 -fstack-protector-strong -specs=/usr/lib/rpm/redhat/redhat-annobin-cc1  -fasynchronous-unwind-tables -fstack-clash-protection -fPIC -o CMakeFiles/nrniv_lib.dir/__/nrnoc/hocprax.c.o -c /builddir/build/BUILD/nrn-7.8.1/src/nrnoc/hocprax.c
make[2]: Leaving directory '/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu'
/builddir/build/BUILD/nrn-7.8.1/src/nrnoc/hocprax.c: In function 'fit_praxis':
/builddir/build/BUILD/nrn-7.8.1/src/nrnoc/hocprax.c:101:25: warning: variable 'nvarsav' set but not used [-Wunused-but-set-variable]
  101 |  long int printmodesav, nvarsav;
      |                         ^~~~~~~
/builddir/build/BUILD/nrn-7.8.1/src/nrnoc/hocprax.c: In function 'efun':
/builddir/build/BUILD/nrn-7.8.1/src/nrnoc/hocprax.c:279:6: warning: unused variable 'i' [-Wunused-variable]
  279 |  int i;
      |      ^
make[2]: Entering directory '/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu'
[ 38%] Building C object src/nrniv/CMakeFiles/nrniv_lib.dir/__/nrnoc/fadvance.c.o
cd /builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/nrniv && /usr/bin/gcc -DHAVE_CONFIG_H -Dnrniv_lib_EXPORTS -I/builddir/build/BUILD/nrn-7.8.1/src/ivoc -I/builddir/build/BUILD/nrn-7.8.1/src/nrniv -I/builddir/build/BUILD/nrn-7.8.1/src/nrnoc -I/builddir/build/BUILD/nrn-7.8.1/src/oc -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/nrncvode -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/nrnjava -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/nrnoc -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/nrnpython -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/oc -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/parallel -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/sundials -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/sundials/shared -I/builddir/build/BUILD/nrn-7.8.1/src -I/builddir/build/BUILD/nrn-7.8.1/src/gnu -I/builddir/build/BUILD/nrn-7.8.1/src/memacs -I/builddir/build/BUILD/nrn-7.8.1/src/mesch -I/builddir/build/BUILD/nrn-7.8.1/src/nrncvode -I/builddir/build/BUILD/nrn-7.8.1/src/nrnmpi -I/builddir/build/BUILD/nrn-7.8.1/src/nrnpython -I/builddir/build/BUILD/nrn-7.8.1/src/parallel -I/builddir/build/BUILD/nrn-7.8.1/src/sparse -I/builddir/build/BUILD/nrn-7.8.1/src/sparse13 -I/builddir/build/BUILD/nrn-7.8.1/src/sundials -I/builddir/build/BUILD/nrn-7.8.1/src/sundials/cvodes -I/builddir/build/BUILD/nrn-7.8.1/src/sundials/ida -I/builddir/build/BUILD/nrn-7.8.1/src/sundials/shared -I/usr/include/python3.9 -O2 -flto=auto -ffat-lto-objects -fexceptions -g -grecord-gcc-switches -pipe -Wall -Werror=format-security -Wp,-D_FORTIFY_SOURCE=2 -Wp,-D_GLIBCXX_ASSERTIONS -specs=/usr/lib/rpm/redhat/redhat-hardened-cc1 -fstack-protector-strong -specs=/usr/lib/rpm/redhat/redhat-annobin-cc1  -fasynchronous-unwind-tables -fstack-clash-protection -fPIC -o CMakeFiles/nrniv_lib.dir/__/nrnoc/fadvance.c.o -c /builddir/build/BUILD/nrn-7.8.1/src/nrnoc/fadvance.c
make[2]: Leaving directory '/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu'
/builddir/build/BUILD/nrn-7.8.1/src/nrnoc/fadvance.c: In function 'nrn_daspk_init_step':
/builddir/build/BUILD/nrn-7.8.1/src/nrnoc/fadvance.c:284:6: warning: unused variable 'i' [-Wunused-variable]
  284 |  int i;
      |      ^
/builddir/build/BUILD/nrn-7.8.1/src/nrnoc/fadvance.c: In function 'nrn_fixed_step':
/builddir/build/BUILD/nrn-7.8.1/src/nrnoc/fadvance.c:301:6: warning: unused variable 'i' [-Wunused-variable]
  301 |  int i;
      |      ^
/builddir/build/BUILD/nrn-7.8.1/src/nrnoc/fadvance.c: In function 'fcurrent':
/builddir/build/BUILD/nrn-7.8.1/src/nrnoc/fadvance.c:607:6: warning: unused variable 'i' [-Wunused-variable]
  607 |  int i;
      |      ^
/builddir/build/BUILD/nrn-7.8.1/src/nrnoc/fadvance.c: In function 'nrn_ba':
/builddir/build/BUILD/nrn-7.8.1/src/nrnoc/fadvance.c:1015:7: warning: unused variable 'type' [-Wunused-variable]
 1015 |   int type = tbl->bam->type;
      |       ^~~~
/builddir/build/BUILD/nrn-7.8.1/src/nrnoc/fadvance.c: In function 'nrn_finitialize':
/builddir/build/BUILD/nrn-7.8.1/src/nrnoc/fadvance.c:783:2: warning: '_nt' is used uninitialized in this function [-Wuninitialized]
  783 |  nrn_random_play(_nt);
      |  ^~~~~~~~~~~~~~~~~~~~
make[2]: Entering directory '/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu'
[ 38%] Building C object src/nrniv/CMakeFiles/nrniv_lib.dir/__/nrnoc/hocusr.c.o
cd /builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/nrniv && /usr/bin/gcc -DHAVE_CONFIG_H -Dnrniv_lib_EXPORTS -I/builddir/build/BUILD/nrn-7.8.1/src/ivoc -I/builddir/build/BUILD/nrn-7.8.1/src/nrniv -I/builddir/build/BUILD/nrn-7.8.1/src/nrnoc -I/builddir/build/BUILD/nrn-7.8.1/src/oc -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/nrncvode -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/nrnjava -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/nrnoc -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/nrnpython -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/oc -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/parallel -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/sundials -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/sundials/shared -I/builddir/build/BUILD/nrn-7.8.1/src -I/builddir/build/BUILD/nrn-7.8.1/src/gnu -I/builddir/build/BUILD/nrn-7.8.1/src/memacs -I/builddir/build/BUILD/nrn-7.8.1/src/mesch -I/builddir/build/BUILD/nrn-7.8.1/src/nrncvode -I/builddir/build/BUILD/nrn-7.8.1/src/nrnmpi -I/builddir/build/BUILD/nrn-7.8.1/src/nrnpython -I/builddir/build/BUILD/nrn-7.8.1/src/parallel -I/builddir/build/BUILD/nrn-7.8.1/src/sparse -I/builddir/build/BUILD/nrn-7.8.1/src/sparse13 -I/builddir/build/BUILD/nrn-7.8.1/src/sundials -I/builddir/build/BUILD/nrn-7.8.1/src/sundials/cvodes -I/builddir/build/BUILD/nrn-7.8.1/src/sundials/ida -I/builddir/build/BUILD/nrn-7.8.1/src/sundials/shared -I/usr/include/python3.9 -O2 -flto=auto -ffat-lto-objects -fexceptions -g -grecord-gcc-switches -pipe -Wall -Werror=format-security -Wp,-D_FORTIFY_SOURCE=2 -Wp,-D_GLIBCXX_ASSERTIONS -specs=/usr/lib/rpm/redhat/redhat-hardened-cc1 -fstack-protector-strong -specs=/usr/lib/rpm/redhat/redhat-annobin-cc1  -fasynchronous-unwind-tables -fstack-clash-protection -fPIC -o CMakeFiles/nrniv_lib.dir/__/nrnoc/hocusr.c.o -c /builddir/build/BUILD/nrn-7.8.1/src/nrnoc/hocusr.c
make[2]: Leaving directory '/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu'
In file included from /builddir/build/BUILD/nrn-7.8.1/src/nrnoc/../oc/hocusr.c:9,
                 from /builddir/build/BUILD/nrn-7.8.1/src/nrnoc/hocusr.c:6:
/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/nrnoc/hocusr.h:32:30: warning: missing braces around initializer [-Wmissing-braces]
   32 | static VoidFunc function[] = {
      |                              ^
   33 | 
   34 | "node_data", node_data,
      | {                     }
   35 | "disconnect", disconnect,
      | {                       }
   36 | "batch_run", batch_run,
      | {                     }
   37 | "batch_save", batch_save,
      | {                       }
   38 | "pt3dclear", pt3dclear,
      | {                     }
   39 | "pt3dadd", pt3dadd,
      | {                 }
   40 | "n3d", n3d,
      | {         }
   41 | "x3d", x3d,
      | {         }
   42 | "y3d", y3d,
      | {         }
   43 | "z3d", z3d,
      | {         }
   44 | "arc3d", arc3d,
      | {             }
   45 | "diam3d", diam3d,
      | {               }
   46 | "pt3dinsert", pt3dinsert,
      | {                       }
   47 | "pt3dremove", pt3dremove,
      | {                       }
   48 | "pt3dchange", pt3dchange,
      | {                       }
   49 | "define_shape", define_shape,
      | {                           }
   50 | "pt3dconst", pt3dconst,
      | {                     }
   51 | "pt3dstyle", pt3dstyle,
      | {                     }
   52 | "spine3d", spine3d,
      | {                 }
   53 | "setSpineArea", setSpineArea,
      | {                           }
   54 | "getSpineArea", getSpineArea,
      | {                           }
   55 | "area", area,
      | {           }
   56 | "ri", ri,
      | {       }
   57 | "initnrn", initnrn,
      | {                 }
   58 | "topology", nrnhoc_topology,
      | {                          }
   59 | "fadvance", fadvance,
      | {                   }
   60 | "distance", distance,
      | {                   }
   61 | "finitialize", finitialize,
      | {                         }
   62 | "fstim", fstim,
      | {             }
   63 | "fstimi", fstimi,
      | {               }
   64 | "ion_style", ion_style,
      | {                     }
   65 | "ion_register", ion_register,
      | {                           }
   66 | "ion_charge", ion_charge,
      | {                       }
   67 | "nernst", nernst,
      | {               }
   68 | "ghk", ghk,
      | {         }
   69 | "section_owner", section_owner,
      | {                             }
   70 | "make_mechanism", make_mechanism,
      | {                               }
   71 | "make_pointprocess", make_pointprocess,
      | {                                     }
   72 | "nrnpython", nrnpython,
      | {                     }
   73 | "fsyn", fsyn,
      | {           }
   74 | "fsyng", fsyng,
      | {             }
   75 | "fsyni", fsyni,
      | {             }
   76 | "fclamp", fclamp,
      | {               }
   77 | "fclampi", fclampi,
      | {                 }
   78 | "fclampv", fclampv,
      | {                 }
   79 | "prstim", prstim,
      | {               }
   80 | "fcurrent", fcurrent,
      | {                   }
   81 | "fmatrix", fmatrix,
      | {                 }
   82 | "frecord_init", frecord_init,
      | {                           }
   83 | "issection", issection,
      | {                     }
   84 | "ismembrane", ismembrane,
      | {                       }
   85 | "sectionname", sectionname,
      | {                         }
   86 | "psection", psection,
      | {                   }
   87 | "pop_section", pop_section,
      | {                         }
   88 | "push_section", push_section,
      | {                           }
   89 | "section_exists", section_exists,
      | {                               }
   90 | "delete_section", delete_section,
      | {                               }
   91 | "fit_praxis", fit_praxis,
      | {                       }
   92 | "attr_praxis", attr_praxis,
      | {                         }
   93 | "pval_praxis", pval_praxis,
      | {                         }
   94 | "stop_praxis", stop_praxis,
      | {                         }
   95 | "keep_nseg_parm", keep_nseg_parm,
      | {                               }
   96 | "nrnallsectionmenu", nrnallsectionmenu,
      | {                                     }
   97 | "nrnallpointmenu", nrnallpointmenu,
      | {                                 }
   98 | "nrnsecmenu", nrnsecmenu,
      | {                       }
   99 | "nrnglobalmechmenu", nrnglobalmechmenu,
      | {                                     }
  100 | "nrnmechmenu", nrnmechmenu,
      | {                         }
  101 | "nrnpointmenu", nrnpointmenu,
      | {                           }
  102 | "this_section", this_section,
      | {                           }
  103 | "this_node", this_node,
      | {                     }
  104 | "parent_section", parent_section,
      | {                               }
  105 | "parent_node", parent_node,
      | {                         }
  106 | "parent_connection", parent_connection,
      | {                                     }
  107 | "section_orientation", section_orientation,
      | {                                         }
  108 | 0, 0
      | {
  109 | };
      | }
/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/nrnoc/hocusr.h:114:13: warning: missing braces around initializer [-Wmissing-braces]
  114 | } scint[] = {
      |             ^
  115 | 
  116 | "secondorder", &secondorder,
      | {                          }
  117 | "diam_changed", &diam_changed,
      | {                            }
  118 | "nrn_shape_changed_", &nrn_shape_changed_,
      | {                                        }
  119 | "nrn_netrec_state_adjust", &nrn_netrec_state_adjust,
      | {                                                  }
  120 | "nrn_sparse_partrans", &nrn_sparse_partrans,
      | {                                          }
  121 | "stoprun", &stoprun,
      | {                  }
  122 | 0, 0
      | {
  123 | };
      | }
/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/nrnoc/hocusr.h:129:12: warning: missing braces around initializer [-Wmissing-braces]
  129 | } vint[] = {
      |            ^
  130 | 
  131 | 0,0
      | {
  132 | };
      | }
/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/nrnoc/hocusr.h:137:15: warning: missing braces around initializer [-Wmissing-braces]
  137 | } scfloat[] = {
      |               ^
  138 | 
  139 | 0, 0
      | {
  140 | };
      | }
/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/nrnoc/hocusr.h:146:14: warning: missing braces around initializer [-Wmissing-braces]
  146 | } vfloat[] = {
      |              ^
  147 | 
  148 | 0,0,0
      | {
  149 | };
      | }
/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/nrnoc/hocusr.h:152:21: warning: missing braces around initializer [-Wmissing-braces]
  152 | DoubScal scdoub[] = {
      |                     ^
  153 | 
  154 | "clamp_resist", &clamp_resist,
      | {                            }
  155 | "celsius", &celsius,
      | {                  }
  156 | 0,0
      | {
  157 | };
      | }
/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/nrnoc/hocusr.h:160:19: warning: missing braces around initializer [-Wmissing-braces]
  160 | DoubVec vdoub[] = {
      |                   ^
  161 | 
  162 | 0, 0, 0
      | {
  163 | };
      | }
/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/nrnoc/hocusr.h:170:14: warning: missing braces around initializer [-Wmissing-braces]
  170 | } ardoub[] = {
      |              ^
  171 | 
  172 | 0, 0, 0, 0
      | {
  173 | };
      | }
/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/nrnoc/hocusr.h:181:15: warning: missing braces around initializer [-Wmissing-braces]
  181 | } thredim[] = {
      |               ^
  182 | 
  183 | 0, 0, 0, 0, 0
      | {
  184 | };
      | }
make[2]: Entering directory '/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu'
[ 39%] Building C object src/nrniv/CMakeFiles/nrniv_lib.dir/__/nrnoc/hoc_init.c.o
cd /builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/nrniv && /usr/bin/gcc -DHAVE_CONFIG_H -Dnrniv_lib_EXPORTS -DCABLE=1 -I/builddir/build/BUILD/nrn-7.8.1/src/ivoc -I/builddir/build/BUILD/nrn-7.8.1/src/nrniv -I/builddir/build/BUILD/nrn-7.8.1/src/nrnoc -I/builddir/build/BUILD/nrn-7.8.1/src/oc -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/nrncvode -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/nrnjava -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/nrnoc -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/nrnpython -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/oc -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/parallel -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/sundials -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/sundials/shared -I/builddir/build/BUILD/nrn-7.8.1/src -I/builddir/build/BUILD/nrn-7.8.1/src/gnu -I/builddir/build/BUILD/nrn-7.8.1/src/memacs -I/builddir/build/BUILD/nrn-7.8.1/src/mesch -I/builddir/build/BUILD/nrn-7.8.1/src/nrncvode -I/builddir/build/BUILD/nrn-7.8.1/src/nrnmpi -I/builddir/build/BUILD/nrn-7.8.1/src/nrnpython -I/builddir/build/BUILD/nrn-7.8.1/src/parallel -I/builddir/build/BUILD/nrn-7.8.1/src/sparse -I/builddir/build/BUILD/nrn-7.8.1/src/sparse13 -I/builddir/build/BUILD/nrn-7.8.1/src/sundials -I/builddir/build/BUILD/nrn-7.8.1/src/sundials/cvodes -I/builddir/build/BUILD/nrn-7.8.1/src/sundials/ida -I/builddir/build/BUILD/nrn-7.8.1/src/sundials/shared -I/usr/include/python3.9 -O2 -flto=auto -ffat-lto-objects -fexceptions -g -grecord-gcc-switches -pipe -Wall -Werror=format-security -Wp,-D_FORTIFY_SOURCE=2 -Wp,-D_GLIBCXX_ASSERTIONS -specs=/usr/lib/rpm/redhat/redhat-hardened-cc1 -fstack-protector-strong -specs=/usr/lib/rpm/redhat/redhat-annobin-cc1  -fasynchronous-unwind-tables -fstack-clash-protection -fPIC -o CMakeFiles/nrniv_lib.dir/__/nrnoc/hoc_init.c.o -c /builddir/build/BUILD/nrn-7.8.1/src/nrnoc/hoc_init.c
make[2]: Leaving directory '/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu'
In file included from /builddir/build/BUILD/nrn-7.8.1/src/nrnoc/hoc_init.c:6:
/builddir/build/BUILD/nrn-7.8.1/src/nrnoc/../oc/hoc_init.c:34:16: warning: missing braces around initializer [-Wmissing-braces]
   34 | } keywords[] = {
      |                ^
   35 |  "proc",  parsePROC,
      |  {                 }
   36 |  "func",  FUNC,
      |  {            }
   37 |  "obfunc", HOCOBJFUNC,
      |  {                   }
   38 |  "return", RETURN,
      |  {               }
   39 |  "break", BREAK,
      |  {             }
   40 |  "continue", CONTINUE,
      |  {                   }
   41 |  "stop",  STOPSTMT,
      |  {                }
   42 |  "if",  IF,
      |  {        }
   43 |  "else",  ELSE,
      |  {            }
   44 |  "while", WHILE,
      |  {             }
   45 |  "for",  FOR,
      |  {          }
   46 |  "print", PRINT,
      |  {             }
   47 |  "delete", parseDELETE,
      |  {                    }
   48 |  "read",  READ,
      |  {            }
   49 |  "debug", DEBUG,
      |  {             }
   50 |  "double", parseDOUBLE,
      |  {                    }
   51 |  "em",  EDIT,
      |  {          }
   52 |  "depvar", DEPENDENT,
      |  {                  }
   53 |  "eqn",  EQUATION,
      |  {               }
   54 |  "local", LOCAL,
      |  {             }
   55 |  "localobj", LOCALOBJ,
      |  {                   }
   56 |  "strdef", STRDEF,
      |  {               }
   57 |  "parallel", PARALLEL,
      |  {                   }
   58 |  "help",  HELP,
      |  {            }
   59 |  "iterator", ITERKEYWORD,
      |  {                      }
   60 |  "iterator_statement", ITERSTMT,
      |  {                             }
   61 | #if CABLE
   62 |  "create", SECTIONKEYWORD,
      |  {                       }
   63 |  "connect", CONNECTKEYWORD,
      |  {                        }
   64 |  "setpointer", SETPOINTERKEYWORD,
      |  {                              }
   65 |  "access", ACCESSKEYWORD,
      |  {                      }
   66 |  "insert", INSERTKEYWORD,
      |  {                      }
   67 |  "uninsert", UNINSERTKEYWORD,
      |  {                          }
   68 |  "forall", FORALL,
      |  {               }
   69 |  "ifsec", IFSEC,
      |  {             }
   70 |  "forsec", FORSEC,
      |  {               }
......
   73 |  "begintemplate", BEGINTEMPLATE,
      |  {                             }
   74 |  "endtemplate", ENDTEMPLATE,
      |  {                         }
   75 |  "objectvar", OBJVARDECL,
      |  {                      }
   76 |  "objref", OBJVARDECL,
      |  {                   }
   77 |  "public", PUBLICDECL,
      |  {                   }
   78 |  "external", EXTERNALDECL,
      |  {                       }
   79 |  "new",  NEW,
      |  {          }
   80 | #endif
   81 |  0,  0
      |  {
   82 | };
      | }
/builddir/build/BUILD/nrn-7.8.1/src/nrnoc/../oc/hoc_init.c:86:14: warning: missing braces around initializer [-Wmissing-braces]
   86 | } consts[] = {
      |              ^
   87 |  "PI", 3.14159265358979323846,
      |  {                           }
   88 |  "E", 2.71828182845904523536,
      |  {                          }
   89 |  "GAMMA",0.57721566490153286060, /* Euler */
      |  {                             }
   90 |  "DEG", 57.29577951308232087680, /* deg/radian */
      |  {                             }
   91 |  "PHI", 1.61803398874989484820, /* golden ratio */
      |  {                            }
   92 | #if defined(LegacyFR) && LegacyFR == 1
   93 |  "FARADAY", 96485.309, /*coulombs/mole*/
      |  {                   }
   94 |  "R", 8.31441,  /*molar gas constant, joules/mole/deg-K*/
      |  {           }
......
  101 |  0, 0
      |  {
  102 | };
      | }
/builddir/build/BUILD/nrn-7.8.1/src/nrnoc/../oc/hoc_init.c:107:16: warning: missing braces around initializer [-Wmissing-braces]
  107 | } builtins[] = {
      |                ^
  108 |  "sin", sin,
      |  {         }
  109 |  "cos", cos,
      |  {         }
  110 |  "atan", atan,
      |  {           }
  111 |  "tanh", tanh,
      |  {           }
  112 |  "log", Log, /* checks argument */
      |  {         }
  113 |  "log10",Log10, /* checks argument */
      |  {            }
  114 |  "exp", hoc1_Exp, /* checks argument */
      |  {              }
  115 |  "sqrt", Sqrt, /* checks argument */
      |  {           }
  116 |  "int", integer,
      |  {             }
......
  122 |  "abs", fabs,
      |  {          }
  123 |  "erf", erf,
      |  {         }
  124 |  "erfc", erfc,
      |  {           }
  125 | #endif
  126 |  0, 0
      |  {
  127 | };
      | }
/builddir/build/BUILD/nrn-7.8.1/src/nrnoc/../oc/hoc_init.c:131:17: warning: missing braces around initializer [-Wmissing-braces]
  131 | } fun_bltin[] = {
      |                 ^
  132 |  "atan2", hoc_atan2,
      |  {                 }
  133 |  "system", hoc_System,
      |  {                   }
  134 |  "prmat", hoc_Prmat,
      |  {                 }
  135 |  "solve", hoc_solve,
      |  {                 }
  136 |  "eqinit", hoc_eqinit,
      |  {                   }
  137 |  "plt",  hoc_Plt,
      |  {              }
  138 |  "axis",  hoc_axis,
      |  {                }
  139 |  "plot",  hoc_Plot,
      |  {                }
  140 |  "plotx", hoc_plotx,
      |  {                 }
  141 |  "ploty", hoc_ploty,
      |  {                 }
  142 |  "regraph", hoc_regraph,
      |  {                     }
  143 |  "symbols", hoc_symbols,
      |  {                     }
  144 |  "printf", hoc_PRintf,
      |  {                   }
  145 |  "xred",  hoc_Xred,
      |  {                }
  146 |  "sred",  hoc_Sred,
      |  {                }
  147 |  "ropen", hoc_ropen,
      |  {                 }
  148 |  "wopen", hoc_wopen,
      |  {                 }
  149 |  "xopen", hoc_xopen,
      |  {                 }
  150 |  "hoc_stdout", hoc_stdout,
      |  {                       }
  151 |  "chdir", hoc_Chdir,
      |  {                 }
  152 |  "fprint", hoc_Fprint,
      |  {                   }
  153 |  "fscan", hoc_Fscan,
      |  {                 }
  154 |  "sscanf", hoc_sscanf,
      |  {                   }
  155 |  "sprint", hoc_Sprint,
      |  {                   }
  156 |  "graph", hoc_Graph,
      |  {                 }
  157 |  "graphmode", hoc_Graphmode,
      |  {                         }
  158 |  "fmenu", hoc_fmenu,
      |  {                 }
  159 |  "lw",  hoc_Lw,
      |  {            }
  160 |  "getstr", hoc_Getstr,
      |  {                   }
  161 |  "strcmp", hoc_Strcmp,
      |  {                   }
  162 |  "setcolor", hoc_Setcolor,
      |  {                       }
  163 |  "startsw", hoc_startsw,
      |  {                     }
  164 |  "stopsw", hoc_stopsw,
      |  {                   }
  165 |  "object_id", hoc_object_id,
      |  {                         }
  166 |  "allobjectvars", hoc_allobjectvars,
      |  {                                 }
  167 |  "allobjects", hoc_allobjects,
      |  {                           }
  168 |  "xpanel", hoc_xpanel,
      |  {                   }
  169 |  "xbutton", hoc_xbutton,
      |  {                     }
  170 |  "xcheckbox",    hoc_xcheckbox,
      |  {                            }
  171 |  "xstatebutton", hoc_xstatebutton,
      |  {                               }
  172 |  "xlabel", hoc_xlabel,
      |  {                   }
  173 |  "xmenu", hoc_xmenu,
      |  {                 }
  174 |  "xvalue", hoc_xvalue,
      |  {                   }
  175 |  "xpvalue", hoc_xpvalue,
      |  {                     }
  176 |  "xradiobutton", hoc_xradiobutton,
      |  {                               }
  177 |  "xfixedvalue", hoc_xfixedvalue,
      |  {                             }
  178 |  "xvarlabel", hoc_xvarlabel,
      |  {                         }
  179 |  "xslider", hoc_xslider,
      |  {                     }
  180 |  "boolean_dialog", hoc_boolean_dialog,
      |  {                                   }
  181 |  "continue_dialog", hoc_continue_dialog,
      |  {                                     }
  182 |  "string_dialog", hoc_string_dialog,
      |  {                                 }
  183 |  "doEvents", hoc_single_event_run,
      |  {                               }
  184 |  "doNotify", hoc_notify_iv,
      |  {                        }
  185 |  "nrniv_bind_thread", nrniv_bind_thread,
      |  {                                     }
  186 |  "ivoc_style", ivoc_style,
      |  {                       }
  187 |  "numarg", hoc_Numarg,
      |  {                   }
  188 |  "argtype", hoc_Argtype,
      |  {                     }
  189 |  "hoc_pointer_", hoc_pointer,  /* for internal use */
      |  {                          }
  190 |  "nrn_mallinfo", hoc_mallinfo,
      |  {                           }
  191 |  "execute", hoc_exec_cmd,
      |  {                      }
  192 |  "execute1", hoc_execute1,
      |  {                       }
  193 |  "load_proc", hoc_load_proc,
      |  {                         }
  194 |  "load_func", hoc_load_func,
      |  {                         }
  195 |  "load_template", hoc_load_template,
      |  {                                 }
  196 |  "load_file", hoc_load_file,
      |  {                         }
  197 |  "load_java", hoc_load_java,
      |  {                         }
  198 |  "unix_mac_pc", hoc_unix_mac_pc,
      |  {                             }
  199 |  "show_winio", hoc_show_winio,
      |  {                           }
  200 |  "nrn_load_dll", hoc_nrn_load_dll,
      |  {                               }
  201 |  "machine_name", hoc_machine_name,
      |  {                               }
  202 |  "saveaudit", hoc_Saveaudit,
      |  {                         }
  203 |  "retrieveaudit", hoc_Retrieveaudit,
      |  {                                 }
  204 |  "coredump_on_error", hoc_coredump_on_error,
      |  {                                         }
  205 |  "checkpoint", hoc_checkpoint,
      |  {                           }
  206 |  "quit",   hoc_quit,
      |  {                 }
  207 |  "object_push", hoc_object_push,
      |  {                             }
  208 |  "object_pop", hoc_object_pop,
      |  {                           }
  209 |  "pwman_place", hoc_pwman_place,
      |  {                             }
  210 |  "save_session", hoc_save_session,
      |  {                               }
  211 |  "print_session", hoc_print_session,
      |  {                                 }
  212 |  "show_errmess_always", hoc_show_errmess_always,
      |  {                                             }
  213 |  "execerror", hoc_Execerror,
      |  {                         }
  214 |  "variable_domain", hoc_Symbol_limits,
      |  {                                   }
  215 |  "name_declared", hoc_name_declared,
      |  {                                 }
  216 |  "use_mcell_ran4", hoc_usemcran4,
      |  {                              }
  217 |  "mcell_ran4", hoc_mcran4,
      |  {                       }
  218 |  "mcell_ran4_init", hoc_mcran4init,
      |  {                                }
  219 |  "nrn_feenableexcept", nrn_feenableexcept,
      |  {                                       }
  220 |  "nrnmpi_init", hoc_nrnmpi_init,
      |  {                             }
......
  232 |  0, 0
      |  {
  233 | };
      | }
/builddir/build/BUILD/nrn-7.8.1/src/nrnoc/../oc/hoc_init.c:238:20: warning: missing braces around initializer [-Wmissing-braces]
  238 | } strfun_bltin[] = {
      |                    ^
  239 |  "secname", hoc_secname,
      |  {                     }
  240 |  "units", hoc_Symbol_units,
      |  {                        }
  241 |  "neuronhome", hoc_neuronhome,
      |  {                           }
  242 |  "getcwd", hoc_getcwd,
      |  {                   }
  243 |  "nrnversion", hoc_nrnversion,
      |  {                           }
  244 |  0, 0
      |  {
  245 | };
      | }
/builddir/build/BUILD/nrn-7.8.1/src/nrnoc/../oc/hoc_init.c:250:20: warning: missing braces around initializer [-Wmissing-braces]
  250 | } objfun_bltin[] = {
      |                    ^
  251 |  "object_pushed", hoc_object_pushed,
      |  {                                 }
  252 |  0, 0
      |  {
  253 | };
      | }
/builddir/build/BUILD/nrn-7.8.1/src/nrnoc/../oc/hoc_init.c: In function 'hoc_show_winio':
/builddir/build/BUILD/nrn-7.8.1/src/nrnoc/../oc/hoc_init.c:355:9: warning: variable 'b' set but not used [-Wunused-but-set-variable]
  355 |     int b;
      |         ^
make[2]: Entering directory '/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu'
[ 37%] Building C object src/nrniv/CMakeFiles/nrniv_lib.dir/__/nrnoc/code.c.o
cd /builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/nrniv && /usr/bin/gcc -DHAVE_CONFIG_H -Dnrniv_lib_EXPORTS -DCABLE=1 -I/builddir/build/BUILD/nrn-7.8.1/src/ivoc -I/builddir/build/BUILD/nrn-7.8.1/src/nrniv -I/builddir/build/BUILD/nrn-7.8.1/src/nrnoc -I/builddir/build/BUILD/nrn-7.8.1/src/oc -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/nrncvode -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/nrnjava -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/nrnoc -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/nrnpython -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/oc -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/parallel -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/sundials -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/sundials/shared -I/builddir/build/BUILD/nrn-7.8.1/src -I/builddir/build/BUILD/nrn-7.8.1/src/gnu -I/builddir/build/BUILD/nrn-7.8.1/src/memacs -I/builddir/build/BUILD/nrn-7.8.1/src/mesch -I/builddir/build/BUILD/nrn-7.8.1/src/nrncvode -I/builddir/build/BUILD/nrn-7.8.1/src/nrnmpi -I/builddir/build/BUILD/nrn-7.8.1/src/nrnpython -I/builddir/build/BUILD/nrn-7.8.1/src/parallel -I/builddir/build/BUILD/nrn-7.8.1/src/sparse -I/builddir/build/BUILD/nrn-7.8.1/src/sparse13 -I/builddir/build/BUILD/nrn-7.8.1/src/sundials -I/builddir/build/BUILD/nrn-7.8.1/src/sundials/cvodes -I/builddir/build/BUILD/nrn-7.8.1/src/sundials/ida -I/builddir/build/BUILD/nrn-7.8.1/src/sundials/shared -I/usr/include/python3.9 -O2 -flto=auto -ffat-lto-objects -fexceptions -g -grecord-gcc-switches -pipe -Wall -Werror=format-security -Wp,-D_FORTIFY_SOURCE=2 -Wp,-D_GLIBCXX_ASSERTIONS -specs=/usr/lib/rpm/redhat/redhat-hardened-cc1 -fstack-protector-strong -specs=/usr/lib/rpm/redhat/redhat-annobin-cc1  -fasynchronous-unwind-tables -fstack-clash-protection -fPIC -o CMakeFiles/nrniv_lib.dir/__/nrnoc/code.c.o -c /builddir/build/BUILD/nrn-7.8.1/src/nrnoc/code.c
make[2]: Leaving directory '/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu'
In file included from /builddir/build/BUILD/nrn-7.8.1/src/nrnoc/code.c:6:
/builddir/build/BUILD/nrn-7.8.1/src/nrnoc/../oc/code.c: In function 'hoc_pop_defer':
/builddir/build/BUILD/nrn-7.8.1/src/nrnoc/../oc/code.c:237:10: warning: unused variable 'obj' [-Wunused-variable]
  237 |  Object* obj;
      |          ^~~
/builddir/build/BUILD/nrn-7.8.1/src/nrnoc/../oc/code.c: In function 'frameobj_clean':
/builddir/build/BUILD/nrn-7.8.1/src/nrnoc/../oc/code.c:273:9: warning: unused variable 'narg' [-Wunused-variable]
  273 |  int i, narg;
      |         ^~~~
In file included from /builddir/build/BUILD/nrn-7.8.1/src/nrnoc/code.c:6:
/builddir/build/BUILD/nrn-7.8.1/src/nrnoc/../oc/code.c: In function 'hoc_Argtype':
/builddir/build/BUILD/nrn-7.8.1/src/nrnoc/../oc/code.c:1509:6: warning: unused variable 'narg' [-Wunused-variable]
 1509 |  int narg, iarg, type, itype=0;
      |      ^~~~
/builddir/build/BUILD/nrn-7.8.1/src/nrnoc/../oc/code.c: In function 'hoc_autoobject':
/builddir/build/BUILD/nrn-7.8.1/src/nrnoc/../oc/code.c:1760:11: warning: unused variable 'obp' [-Wunused-variable]
 1760 |  Object **obp;
      |           ^~~
/builddir/build/BUILD/nrn-7.8.1/src/nrnoc/../oc/code.c:1758:6: warning: unused variable 'i' [-Wunused-variable]
 1758 |  int i;
      |      ^
/builddir/build/BUILD/nrn-7.8.1/src/nrnoc/../oc/code.c: In function 'hoc_delete_symbol':
/builddir/build/BUILD/nrn-7.8.1/src/nrnoc/../oc/code.c:2507:14: warning: unused variable 'sp' [-Wunused-variable]
 2507 |            * sp;
      |              ^~
make[2]: Entering directory '/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu'
[ 39%] Building C object src/nrniv/CMakeFiles/nrniv_lib.dir/__/nrnoc/method3.c.o
cd /builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/nrniv && /usr/bin/gcc -DHAVE_CONFIG_H -Dnrniv_lib_EXPORTS -I/builddir/build/BUILD/nrn-7.8.1/src/ivoc -I/builddir/build/BUILD/nrn-7.8.1/src/nrniv -I/builddir/build/BUILD/nrn-7.8.1/src/nrnoc -I/builddir/build/BUILD/nrn-7.8.1/src/oc -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/nrncvode -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/nrnjava -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/nrnoc -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/nrnpython -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/oc -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/parallel -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/sundials -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/sundials/shared -I/builddir/build/BUILD/nrn-7.8.1/src -I/builddir/build/BUILD/nrn-7.8.1/src/gnu -I/builddir/build/BUILD/nrn-7.8.1/src/memacs -I/builddir/build/BUILD/nrn-7.8.1/src/mesch -I/builddir/build/BUILD/nrn-7.8.1/src/nrncvode -I/builddir/build/BUILD/nrn-7.8.1/src/nrnmpi -I/builddir/build/BUILD/nrn-7.8.1/src/nrnpython -I/builddir/build/BUILD/nrn-7.8.1/src/parallel -I/builddir/build/BUILD/nrn-7.8.1/src/sparse -I/builddir/build/BUILD/nrn-7.8.1/src/sparse13 -I/builddir/build/BUILD/nrn-7.8.1/src/sundials -I/builddir/build/BUILD/nrn-7.8.1/src/sundials/cvodes -I/builddir/build/BUILD/nrn-7.8.1/src/sundials/ida -I/builddir/build/BUILD/nrn-7.8.1/src/sundials/shared -I/usr/include/python3.9 -O2 -flto=auto -ffat-lto-objects -fexceptions -g -grecord-gcc-switches -pipe -Wall -Werror=format-security -Wp,-D_FORTIFY_SOURCE=2 -Wp,-D_GLIBCXX_ASSERTIONS -specs=/usr/lib/rpm/redhat/redhat-hardened-cc1 -fstack-protector-strong -specs=/usr/lib/rpm/redhat/redhat-annobin-cc1  -fasynchronous-unwind-tables -fstack-clash-protection -fPIC -o CMakeFiles/nrniv_lib.dir/__/nrnoc/method3.c.o -c /builddir/build/BUILD/nrn-7.8.1/src/nrnoc/method3.c
make[2]: Leaving directory '/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu'
make[2]: Entering directory '/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu'
[ 40%] Building C object src/nrniv/CMakeFiles/nrniv_lib.dir/__/nrnoc/nrnnemo.c.o
cd /builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/nrniv && /usr/bin/gcc -DHAVE_CONFIG_H -Dnrniv_lib_EXPORTS -I/builddir/build/BUILD/nrn-7.8.1/src/ivoc -I/builddir/build/BUILD/nrn-7.8.1/src/nrniv -I/builddir/build/BUILD/nrn-7.8.1/src/nrnoc -I/builddir/build/BUILD/nrn-7.8.1/src/oc -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/nrncvode -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/nrnjava -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/nrnoc -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/nrnpython -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/oc -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/parallel -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/sundials -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/sundials/shared -I/builddir/build/BUILD/nrn-7.8.1/src -I/builddir/build/BUILD/nrn-7.8.1/src/gnu -I/builddir/build/BUILD/nrn-7.8.1/src/memacs -I/builddir/build/BUILD/nrn-7.8.1/src/mesch -I/builddir/build/BUILD/nrn-7.8.1/src/nrncvode -I/builddir/build/BUILD/nrn-7.8.1/src/nrnmpi -I/builddir/build/BUILD/nrn-7.8.1/src/nrnpython -I/builddir/build/BUILD/nrn-7.8.1/src/parallel -I/builddir/build/BUILD/nrn-7.8.1/src/sparse -I/builddir/build/BUILD/nrn-7.8.1/src/sparse13 -I/builddir/build/BUILD/nrn-7.8.1/src/sundials -I/builddir/build/BUILD/nrn-7.8.1/src/sundials/cvodes -I/builddir/build/BUILD/nrn-7.8.1/src/sundials/ida -I/builddir/build/BUILD/nrn-7.8.1/src/sundials/shared -I/usr/include/python3.9 -O2 -flto=auto -ffat-lto-objects -fexceptions -g -grecord-gcc-switches -pipe -Wall -Werror=format-security -Wp,-D_FORTIFY_SOURCE=2 -Wp,-D_GLIBCXX_ASSERTIONS -specs=/usr/lib/rpm/redhat/redhat-hardened-cc1 -fstack-protector-strong -specs=/usr/lib/rpm/redhat/redhat-annobin-cc1  -fasynchronous-unwind-tables -fstack-clash-protection -fPIC -o CMakeFiles/nrniv_lib.dir/__/nrnoc/nrnnemo.c.o -c /builddir/build/BUILD/nrn-7.8.1/src/nrnoc/nrnnemo.c
make[2]: Leaving directory '/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu'
make[2]: Entering directory '/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu'
[ 40%] Building C object src/nrniv/CMakeFiles/nrniv_lib.dir/__/nrnoc/nrntimeout.c.o
cd /builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/nrniv && /usr/bin/gcc -DHAVE_CONFIG_H -Dnrniv_lib_EXPORTS -I/builddir/build/BUILD/nrn-7.8.1/src/ivoc -I/builddir/build/BUILD/nrn-7.8.1/src/nrniv -I/builddir/build/BUILD/nrn-7.8.1/src/nrnoc -I/builddir/build/BUILD/nrn-7.8.1/src/oc -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/nrncvode -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/nrnjava -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/nrnoc -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/nrnpython -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/oc -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/parallel -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/sundials -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/sundials/shared -I/builddir/build/BUILD/nrn-7.8.1/src -I/builddir/build/BUILD/nrn-7.8.1/src/gnu -I/builddir/build/BUILD/nrn-7.8.1/src/memacs -I/builddir/build/BUILD/nrn-7.8.1/src/mesch -I/builddir/build/BUILD/nrn-7.8.1/src/nrncvode -I/builddir/build/BUILD/nrn-7.8.1/src/nrnmpi -I/builddir/build/BUILD/nrn-7.8.1/src/nrnpython -I/builddir/build/BUILD/nrn-7.8.1/src/parallel -I/builddir/build/BUILD/nrn-7.8.1/src/sparse -I/builddir/build/BUILD/nrn-7.8.1/src/sparse13 -I/builddir/build/BUILD/nrn-7.8.1/src/sundials -I/builddir/build/BUILD/nrn-7.8.1/src/sundials/cvodes -I/builddir/build/BUILD/nrn-7.8.1/src/sundials/ida -I/builddir/build/BUILD/nrn-7.8.1/src/sundials/shared -I/usr/include/python3.9 -O2 -flto=auto -ffat-lto-objects -fexceptions -g -grecord-gcc-switches -pipe -Wall -Werror=format-security -Wp,-D_FORTIFY_SOURCE=2 -Wp,-D_GLIBCXX_ASSERTIONS -specs=/usr/lib/rpm/redhat/redhat-hardened-cc1 -fstack-protector-strong -specs=/usr/lib/rpm/redhat/redhat-annobin-cc1  -fasynchronous-unwind-tables -fstack-clash-protection -fPIC -o CMakeFiles/nrniv_lib.dir/__/nrnoc/nrntimeout.c.o -c /builddir/build/BUILD/nrn-7.8.1/src/nrnoc/nrntimeout.c
make[2]: Leaving directory '/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu'
make[2]: Entering directory '/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu'
[ 39%] Building C object src/nrniv/CMakeFiles/nrniv_lib.dir/__/nrnoc/ldifus.c.o
cd /builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/nrniv && /usr/bin/gcc -DHAVE_CONFIG_H -Dnrniv_lib_EXPORTS -I/builddir/build/BUILD/nrn-7.8.1/src/ivoc -I/builddir/build/BUILD/nrn-7.8.1/src/nrniv -I/builddir/build/BUILD/nrn-7.8.1/src/nrnoc -I/builddir/build/BUILD/nrn-7.8.1/src/oc -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/nrncvode -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/nrnjava -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/nrnoc -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/nrnpython -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/oc -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/parallel -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/sundials -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/sundials/shared -I/builddir/build/BUILD/nrn-7.8.1/src -I/builddir/build/BUILD/nrn-7.8.1/src/gnu -I/builddir/build/BUILD/nrn-7.8.1/src/memacs -I/builddir/build/BUILD/nrn-7.8.1/src/mesch -I/builddir/build/BUILD/nrn-7.8.1/src/nrncvode -I/builddir/build/BUILD/nrn-7.8.1/src/nrnmpi -I/builddir/build/BUILD/nrn-7.8.1/src/nrnpython -I/builddir/build/BUILD/nrn-7.8.1/src/parallel -I/builddir/build/BUILD/nrn-7.8.1/src/sparse -I/builddir/build/BUILD/nrn-7.8.1/src/sparse13 -I/builddir/build/BUILD/nrn-7.8.1/src/sundials -I/builddir/build/BUILD/nrn-7.8.1/src/sundials/cvodes -I/builddir/build/BUILD/nrn-7.8.1/src/sundials/ida -I/builddir/build/BUILD/nrn-7.8.1/src/sundials/shared -I/usr/include/python3.9 -O2 -flto=auto -ffat-lto-objects -fexceptions -g -grecord-gcc-switches -pipe -Wall -Werror=format-security -Wp,-D_FORTIFY_SOURCE=2 -Wp,-D_GLIBCXX_ASSERTIONS -specs=/usr/lib/rpm/redhat/redhat-hardened-cc1 -fstack-protector-strong -specs=/usr/lib/rpm/redhat/redhat-annobin-cc1  -fasynchronous-unwind-tables -fstack-clash-protection -fPIC -o CMakeFiles/nrniv_lib.dir/__/nrnoc/ldifus.c.o -c /builddir/build/BUILD/nrn-7.8.1/src/nrnoc/ldifus.c
make[2]: Leaving directory '/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu'
/builddir/build/BUILD/nrn-7.8.1/src/nrnoc/ldifus.c: In function 'longdifus_diamchange':
/builddir/build/BUILD/nrn-7.8.1/src/nrnoc/ldifus.c:147:39: warning: variable 'vnodecount' set but not used [-Wunused-but-set-variable]
  147 |  int i, n, mi, mpi, j, index, pindex, vnodecount;
      |                                       ^~~~~~~~~~
/builddir/build/BUILD/nrn-7.8.1/src/nrnoc/ldifus.c:147:24: warning: unused variable 'index' [-Wunused-variable]
  147 |  int i, n, mi, mpi, j, index, pindex, vnodecount;
      |                        ^~~~~
/builddir/build/BUILD/nrn-7.8.1/src/nrnoc/ldifus.c:147:21: warning: unused variable 'j' [-Wunused-variable]
  147 |  int i, n, mi, mpi, j, index, pindex, vnodecount;
      |                     ^
/builddir/build/BUILD/nrn-7.8.1/src/nrnoc/ldifus.c: In function 'longdifusalloc':
/builddir/build/BUILD/nrn-7.8.1/src/nrnoc/ldifus.c:192:12: warning: unused variable 'qsec' [-Wunused-variable]
  192 |  hoc_Item* qsec;
      |            ^~~~
/builddir/build/BUILD/nrn-7.8.1/src/nrnoc/ldifus.c:191:8: warning: unused variable 'nd' [-Wunused-variable]
  191 |  Node* nd, *pnd;
      |        ^~
/builddir/build/BUILD/nrn-7.8.1/src/nrnoc/ldifus.c:189:24: warning: unused variable 'index' [-Wunused-variable]
  189 |  int i, n, mi, mpi, j, index, pindex, vnodecount;
      |                        ^~~~~
/builddir/build/BUILD/nrn-7.8.1/src/nrnoc/ldifus.c:189:16: warning: unused variable 'mpi' [-Wunused-variable]
  189 |  int i, n, mi, mpi, j, index, pindex, vnodecount;
      |                ^~~
/builddir/build/BUILD/nrn-7.8.1/src/nrnoc/ldifus.c:189:12: warning: unused variable 'mi' [-Wunused-variable]
  189 |  int i, n, mi, mpi, j, index, pindex, vnodecount;
      |            ^~
/builddir/build/BUILD/nrn-7.8.1/src/nrnoc/ldifus.c: In function 'stagger':
/builddir/build/BUILD/nrn-7.8.1/src/nrnoc/ldifus.c:369:7: warning: unused variable 'mi' [-Wunused-variable]
  369 |   int mi = pld->mindex[i];
      |       ^~
/builddir/build/BUILD/nrn-7.8.1/src/nrnoc/ldifus.c:329:24: warning: unused variable 'dx' [-Wunused-variable]
  329 |  double dc, vol, dfdi, dx;
      |                        ^~
/builddir/build/BUILD/nrn-7.8.1/src/nrnoc/ldifus.c:329:13: warning: unused variable 'vol' [-Wunused-variable]
  329 |  double dc, vol, dfdi, dx;
      |             ^~~
/builddir/build/BUILD/nrn-7.8.1/src/nrnoc/ldifus.c:328:12: warning: variable 'di' set but not used [-Wunused-but-set-variable]
  328 |  int i, n, di;
      |            ^~
/builddir/build/BUILD/nrn-7.8.1/src/nrnoc/ldifus.c: In function 'ode':
/builddir/build/BUILD/nrn-7.8.1/src/nrnoc/ldifus.c:401:13: warning: unused variable 'vol' [-Wunused-variable]
  401 |  double dc, vol, dfdi;
      |             ^~~
/builddir/build/BUILD/nrn-7.8.1/src/nrnoc/ldifus.c: In function 'matsol':
/builddir/build/BUILD/nrn-7.8.1/src/nrnoc/ldifus.c:459:13: warning: unused variable 'vol' [-Wunused-variable]
  459 |  double dc, vol, dfdi;
      |             ^~~
make[2]: Entering directory '/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu'
[ 40%] Building C object src/nrniv/CMakeFiles/nrniv_lib.dir/__/nrnoc/nrnversion.c.o
cd /builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/nrniv && /usr/bin/gcc -DHAVE_CONFIG_H -Dnrniv_lib_EXPORTS -I/builddir/build/BUILD/nrn-7.8.1/src/ivoc -I/builddir/build/BUILD/nrn-7.8.1/src/nrniv -I/builddir/build/BUILD/nrn-7.8.1/src/nrnoc -I/builddir/build/BUILD/nrn-7.8.1/src/oc -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/nrncvode -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/nrnjava -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/nrnoc -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/nrnpython -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/oc -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/parallel -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/sundials -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/sundials/shared -I/builddir/build/BUILD/nrn-7.8.1/src -I/builddir/build/BUILD/nrn-7.8.1/src/gnu -I/builddir/build/BUILD/nrn-7.8.1/src/memacs -I/builddir/build/BUILD/nrn-7.8.1/src/mesch -I/builddir/build/BUILD/nrn-7.8.1/src/nrncvode -I/builddir/build/BUILD/nrn-7.8.1/src/nrnmpi -I/builddir/build/BUILD/nrn-7.8.1/src/nrnpython -I/builddir/build/BUILD/nrn-7.8.1/src/parallel -I/builddir/build/BUILD/nrn-7.8.1/src/sparse -I/builddir/build/BUILD/nrn-7.8.1/src/sparse13 -I/builddir/build/BUILD/nrn-7.8.1/src/sundials -I/builddir/build/BUILD/nrn-7.8.1/src/sundials/cvodes -I/builddir/build/BUILD/nrn-7.8.1/src/sundials/ida -I/builddir/build/BUILD/nrn-7.8.1/src/sundials/shared -I/usr/include/python3.9 -O2 -flto=auto -ffat-lto-objects -fexceptions -g -grecord-gcc-switches -pipe -Wall -Werror=format-security -Wp,-D_FORTIFY_SOURCE=2 -Wp,-D_GLIBCXX_ASSERTIONS -specs=/usr/lib/rpm/redhat/redhat-hardened-cc1 -fstack-protector-strong -specs=/usr/lib/rpm/redhat/redhat-annobin-cc1  -fasynchronous-unwind-tables -fstack-clash-protection -fPIC -o CMakeFiles/nrniv_lib.dir/__/nrnoc/nrnversion.c.o -c /builddir/build/BUILD/nrn-7.8.1/src/nrnoc/nrnversion.c
make[2]: Leaving directory '/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu'
/builddir/build/BUILD/nrn-7.8.1/src/nrnoc/nrnversion.c: In function 'nrn_version':
/builddir/build/BUILD/nrn-7.8.1/src/nrnoc/nrnversion.c:54:12: warning: unused variable 'size' [-Wunused-variable]
   54 |     int j, size;
      |            ^~~~
/builddir/build/BUILD/nrn-7.8.1/src/nrnoc/nrnversion.c:29:7: warning: unused variable 'b' [-Wunused-variable]
   29 |   int b;
      |       ^
/builddir/build/BUILD/nrn-7.8.1/src/nrnoc/nrnversion.c:28:9: warning: unused variable 'cp' [-Wunused-variable]
   28 |   char *cp;
      |         ^~
make[2]: Entering directory '/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu'
[ 39%] Building C object src/nrniv/CMakeFiles/nrniv_lib.dir/__/nrnoc/init.c.o
cd /builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/nrniv && /usr/bin/gcc -DHAVE_CONFIG_H -Dnrniv_lib_EXPORTS -I/builddir/build/BUILD/nrn-7.8.1/src/ivoc -I/builddir/build/BUILD/nrn-7.8.1/src/nrniv -I/builddir/build/BUILD/nrn-7.8.1/src/nrnoc -I/builddir/build/BUILD/nrn-7.8.1/src/oc -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/nrncvode -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/nrnjava -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/nrnoc -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/nrnpython -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/oc -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/parallel -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/sundials -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/sundials/shared -I/builddir/build/BUILD/nrn-7.8.1/src -I/builddir/build/BUILD/nrn-7.8.1/src/gnu -I/builddir/build/BUILD/nrn-7.8.1/src/memacs -I/builddir/build/BUILD/nrn-7.8.1/src/mesch -I/builddir/build/BUILD/nrn-7.8.1/src/nrncvode -I/builddir/build/BUILD/nrn-7.8.1/src/nrnmpi -I/builddir/build/BUILD/nrn-7.8.1/src/nrnpython -I/builddir/build/BUILD/nrn-7.8.1/src/parallel -I/builddir/build/BUILD/nrn-7.8.1/src/sparse -I/builddir/build/BUILD/nrn-7.8.1/src/sparse13 -I/builddir/build/BUILD/nrn-7.8.1/src/sundials -I/builddir/build/BUILD/nrn-7.8.1/src/sundials/cvodes -I/builddir/build/BUILD/nrn-7.8.1/src/sundials/ida -I/builddir/build/BUILD/nrn-7.8.1/src/sundials/shared -I/usr/include/python3.9 -O2 -flto=auto -ffat-lto-objects -fexceptions -g -grecord-gcc-switches -pipe -Wall -Werror=format-security -Wp,-D_FORTIFY_SOURCE=2 -Wp,-D_GLIBCXX_ASSERTIONS -specs=/usr/lib/rpm/redhat/redhat-hardened-cc1 -fstack-protector-strong -specs=/usr/lib/rpm/redhat/redhat-annobin-cc1  -fasynchronous-unwind-tables -fstack-clash-protection -fPIC -o CMakeFiles/nrniv_lib.dir/__/nrnoc/init.c.o -c /builddir/build/BUILD/nrn-7.8.1/src/nrnoc/init.c
make[2]: Leaving directory '/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu'
In file included from /builddir/build/BUILD/nrn-7.8.1/src/nrnoc/init.c:22:
/builddir/build/BUILD/nrn-7.8.1/src/nrnoc/cabvars.h:8:15: warning: missing braces around initializer [-Wmissing-braces]
    8 | } usrprop[] = {
      |               ^
    9 |  "nseg", 0, 0,
      |  {           }
   10 |  "L", 1, 2,
      |  {        }
   11 |  "rallbranch", 1, 4,
      |  {                 }
   12 |  "Ra", 1, 7,
      |  {         }
   13 |  0, 0, 0
      |  {
   14 | };
      | }
/builddir/build/BUILD/nrn-7.8.1/src/nrnoc/init.c:109:43: warning: missing braces around initializer [-Wmissing-braces]
  109 | static HocParmLimits _hoc_parm_limits[] = {
      |                                           ^
  110 |  "Ra", 1e-6, 1e9,
      |  {     {        }}
  111 |  "L", 1e-4, 1e20,
      |  {    {         }}
  112 |  "diam", 1e-9, 1e9,
      |  {       {        }}
  113 |  "cm", 0., 1e9,
      |  {     {      }}
  114 |  "rallbranch", 1., 1e9,
      |  {             {      }}
  115 |  "nseg", 1., 1e9,
      |  {       {      }}
  116 |  "celsius", -273., 1e6,
      |  {          {         }}
  117 |  "dt", 1e-9, 1e15,
      |  {     {         }}
  118 |  0, 0., 0.
      |  {  {
  119 | };
      | }}
/builddir/build/BUILD/nrn-7.8.1/src/nrnoc/init.c:121:41: warning: missing braces around initializer [-Wmissing-braces]
  121 | static HocParmUnits _hoc_parm_units[] = {
      |                                         ^
  122 |  "Ra", "ohm-cm",
      |  {             }
  123 |  "L", "um",
      |  {        }
  124 |  "diam", "um",
      |  {           }
  125 |  "cm", "uF/cm2",
      |  {             }
  126 |  "celsius", "degC",
      |  {                }
  127 |  "dt", "ms",
      |  {         }
  128 |  "t", "ms",
      |  {        }
  129 |  "v", "mV",
      |  {        }
  130 |  "i_cap", "mA/cm2",
      |  {                }
  131 |  0, 0
      |  {
  132 | };
      | }
/builddir/build/BUILD/nrn-7.8.1/src/nrnoc/init.c:287:28: warning: missing braces around initializer [-Wmissing-braces]
  287 | static DoubScal scdoub[] = {
      |                            ^
  288 |  "t", &t,
      |  {      }
  289 |  "dt", &dt,
      |  {        }
  290 |  0,0
      |  {
  291 | };
      | }
make[2]: Entering directory '/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu'
[ 40%] Building C object src/nrniv/CMakeFiles/nrniv_lib.dir/__/nrnoc/passive0.c.o
cd /builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/nrniv && /usr/bin/gcc -DHAVE_CONFIG_H -Dnrniv_lib_EXPORTS -I/builddir/build/BUILD/nrn-7.8.1/src/ivoc -I/builddir/build/BUILD/nrn-7.8.1/src/nrniv -I/builddir/build/BUILD/nrn-7.8.1/src/nrnoc -I/builddir/build/BUILD/nrn-7.8.1/src/oc -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/nrncvode -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/nrnjava -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/nrnoc -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/nrnpython -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/oc -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/parallel -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/sundials -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/sundials/shared -I/builddir/build/BUILD/nrn-7.8.1/src -I/builddir/build/BUILD/nrn-7.8.1/src/gnu -I/builddir/build/BUILD/nrn-7.8.1/src/memacs -I/builddir/build/BUILD/nrn-7.8.1/src/mesch -I/builddir/build/BUILD/nrn-7.8.1/src/nrncvode -I/builddir/build/BUILD/nrn-7.8.1/src/nrnmpi -I/builddir/build/BUILD/nrn-7.8.1/src/nrnpython -I/builddir/build/BUILD/nrn-7.8.1/src/parallel -I/builddir/build/BUILD/nrn-7.8.1/src/sparse -I/builddir/build/BUILD/nrn-7.8.1/src/sparse13 -I/builddir/build/BUILD/nrn-7.8.1/src/sundials -I/builddir/build/BUILD/nrn-7.8.1/src/sundials/cvodes -I/builddir/build/BUILD/nrn-7.8.1/src/sundials/ida -I/builddir/build/BUILD/nrn-7.8.1/src/sundials/shared -I/usr/include/python3.9 -O2 -flto=auto -ffat-lto-objects -fexceptions -g -grecord-gcc-switches -pipe -Wall -Werror=format-security -Wp,-D_FORTIFY_SOURCE=2 -Wp,-D_GLIBCXX_ASSERTIONS -specs=/usr/lib/rpm/redhat/redhat-hardened-cc1 -fstack-protector-strong -specs=/usr/lib/rpm/redhat/redhat-annobin-cc1  -fasynchronous-unwind-tables -fstack-clash-protection -fPIC -o CMakeFiles/nrniv_lib.dir/__/nrnoc/passive0.c.o -c /builddir/build/BUILD/nrn-7.8.1/src/nrnoc/passive0.c
make[2]: Leaving directory '/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu'
/builddir/build/BUILD/nrn-7.8.1/src/nrnoc/passive0.c: In function 'pas_cur':
/builddir/build/BUILD/nrn-7.8.1/src/nrnoc/passive0.c:31:10: warning: unused variable 'vpdata' [-Wunused-variable]
   31 |  Datum **vpdata = ml->pdata;
      |          ^~~~~~
/builddir/build/BUILD/nrn-7.8.1/src/nrnoc/passive0.c: In function 'pas_jacob':
/builddir/build/BUILD/nrn-7.8.1/src/nrnoc/passive0.c:45:10: warning: unused variable 'vpdata' [-Wunused-variable]
   45 |  Datum **vpdata = ml->pdata;
      |          ^~~~~~
make[2]: Entering directory '/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu'
[ 41%] Building C object src/nrniv/CMakeFiles/nrniv_lib.dir/__/nrnoc/psection.c.o
cd /builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/nrniv && /usr/bin/gcc -DHAVE_CONFIG_H -Dnrniv_lib_EXPORTS -I/builddir/build/BUILD/nrn-7.8.1/src/ivoc -I/builddir/build/BUILD/nrn-7.8.1/src/nrniv -I/builddir/build/BUILD/nrn-7.8.1/src/nrnoc -I/builddir/build/BUILD/nrn-7.8.1/src/oc -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/nrncvode -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/nrnjava -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/nrnoc -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/nrnpython -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/oc -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/parallel -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/sundials -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/sundials/shared -I/builddir/build/BUILD/nrn-7.8.1/src -I/builddir/build/BUILD/nrn-7.8.1/src/gnu -I/builddir/build/BUILD/nrn-7.8.1/src/memacs -I/builddir/build/BUILD/nrn-7.8.1/src/mesch -I/builddir/build/BUILD/nrn-7.8.1/src/nrncvode -I/builddir/build/BUILD/nrn-7.8.1/src/nrnmpi -I/builddir/build/BUILD/nrn-7.8.1/src/nrnpython -I/builddir/build/BUILD/nrn-7.8.1/src/parallel -I/builddir/build/BUILD/nrn-7.8.1/src/sparse -I/builddir/build/BUILD/nrn-7.8.1/src/sparse13 -I/builddir/build/BUILD/nrn-7.8.1/src/sundials -I/builddir/build/BUILD/nrn-7.8.1/src/sundials/cvodes -I/builddir/build/BUILD/nrn-7.8.1/src/sundials/ida -I/builddir/build/BUILD/nrn-7.8.1/src/sundials/shared -I/usr/include/python3.9 -O2 -flto=auto -ffat-lto-objects -fexceptions -g -grecord-gcc-switches -pipe -Wall -Werror=format-security -Wp,-D_FORTIFY_SOURCE=2 -Wp,-D_GLIBCXX_ASSERTIONS -specs=/usr/lib/rpm/redhat/redhat-hardened-cc1 -fstack-protector-strong -specs=/usr/lib/rpm/redhat/redhat-annobin-cc1  -fasynchronous-unwind-tables -fstack-clash-protection -fPIC -o CMakeFiles/nrniv_lib.dir/__/nrnoc/psection.c.o -c /builddir/build/BUILD/nrn-7.8.1/src/nrnoc/psection.c
make[2]: Leaving directory '/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu'
make[2]: Entering directory '/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu'
[ 40%] Building C object src/nrniv/CMakeFiles/nrniv_lib.dir/__/nrnoc/point.c.o
cd /builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/nrniv && /usr/bin/gcc -DHAVE_CONFIG_H -Dnrniv_lib_EXPORTS -I/builddir/build/BUILD/nrn-7.8.1/src/ivoc -I/builddir/build/BUILD/nrn-7.8.1/src/nrniv -I/builddir/build/BUILD/nrn-7.8.1/src/nrnoc -I/builddir/build/BUILD/nrn-7.8.1/src/oc -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/nrncvode -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/nrnjava -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/nrnoc -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/nrnpython -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/oc -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/parallel -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/sundials -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/sundials/shared -I/builddir/build/BUILD/nrn-7.8.1/src -I/builddir/build/BUILD/nrn-7.8.1/src/gnu -I/builddir/build/BUILD/nrn-7.8.1/src/memacs -I/builddir/build/BUILD/nrn-7.8.1/src/mesch -I/builddir/build/BUILD/nrn-7.8.1/src/nrncvode -I/builddir/build/BUILD/nrn-7.8.1/src/nrnmpi -I/builddir/build/BUILD/nrn-7.8.1/src/nrnpython -I/builddir/build/BUILD/nrn-7.8.1/src/parallel -I/builddir/build/BUILD/nrn-7.8.1/src/sparse -I/builddir/build/BUILD/nrn-7.8.1/src/sparse13 -I/builddir/build/BUILD/nrn-7.8.1/src/sundials -I/builddir/build/BUILD/nrn-7.8.1/src/sundials/cvodes -I/builddir/build/BUILD/nrn-7.8.1/src/sundials/ida -I/builddir/build/BUILD/nrn-7.8.1/src/sundials/shared -I/usr/include/python3.9 -O2 -flto=auto -ffat-lto-objects -fexceptions -g -grecord-gcc-switches -pipe -Wall -Werror=format-security -Wp,-D_FORTIFY_SOURCE=2 -Wp,-D_GLIBCXX_ASSERTIONS -specs=/usr/lib/rpm/redhat/redhat-hardened-cc1 -fstack-protector-strong -specs=/usr/lib/rpm/redhat/redhat-annobin-cc1  -fasynchronous-unwind-tables -fstack-clash-protection -fPIC -o CMakeFiles/nrniv_lib.dir/__/nrnoc/point.c.o -c /builddir/build/BUILD/nrn-7.8.1/src/nrnoc/point.c
make[2]: Leaving directory '/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu'
make[2]: Entering directory '/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu'
[ 39%] Building C object src/nrniv/CMakeFiles/nrniv_lib.dir/__/nrnoc/hoc_oop.c.o
cd /builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/nrniv && /usr/bin/gcc -DHAVE_CONFIG_H -Dnrniv_lib_EXPORTS -DCABLE=1 -I/builddir/build/BUILD/nrn-7.8.1/src/ivoc -I/builddir/build/BUILD/nrn-7.8.1/src/nrniv -I/builddir/build/BUILD/nrn-7.8.1/src/nrnoc -I/builddir/build/BUILD/nrn-7.8.1/src/oc -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/nrncvode -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/nrnjava -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/nrnoc -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/nrnpython -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/oc -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/parallel -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/sundials -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/sundials/shared -I/builddir/build/BUILD/nrn-7.8.1/src -I/builddir/build/BUILD/nrn-7.8.1/src/gnu -I/builddir/build/BUILD/nrn-7.8.1/src/memacs -I/builddir/build/BUILD/nrn-7.8.1/src/mesch -I/builddir/build/BUILD/nrn-7.8.1/src/nrncvode -I/builddir/build/BUILD/nrn-7.8.1/src/nrnmpi -I/builddir/build/BUILD/nrn-7.8.1/src/nrnpython -I/builddir/build/BUILD/nrn-7.8.1/src/parallel -I/builddir/build/BUILD/nrn-7.8.1/src/sparse -I/builddir/build/BUILD/nrn-7.8.1/src/sparse13 -I/builddir/build/BUILD/nrn-7.8.1/src/sundials -I/builddir/build/BUILD/nrn-7.8.1/src/sundials/cvodes -I/builddir/build/BUILD/nrn-7.8.1/src/sundials/ida -I/builddir/build/BUILD/nrn-7.8.1/src/sundials/shared -I/usr/include/python3.9 -O2 -flto=auto -ffat-lto-objects -fexceptions -g -grecord-gcc-switches -pipe -Wall -Werror=format-security -Wp,-D_FORTIFY_SOURCE=2 -Wp,-D_GLIBCXX_ASSERTIONS -specs=/usr/lib/rpm/redhat/redhat-hardened-cc1 -fstack-protector-strong -specs=/usr/lib/rpm/redhat/redhat-annobin-cc1  -fasynchronous-unwind-tables -fstack-clash-protection -fPIC -o CMakeFiles/nrniv_lib.dir/__/nrnoc/hoc_oop.c.o -c /builddir/build/BUILD/nrn-7.8.1/src/nrnoc/hoc_oop.c
make[2]: Leaving directory '/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu'
In file included from /builddir/build/BUILD/nrn-7.8.1/src/nrnoc/hoc_oop.c:6:
/builddir/build/BUILD/nrn-7.8.1/src/nrnoc/../oc/hoc_oop.c: In function 'hoc_newobj':
/builddir/build/BUILD/nrn-7.8.1/src/nrnoc/../oc/hoc_oop.c:612:11: warning: unused variable 'o' [-Wunused-variable]
  612 |   Object* o = hoc_obj_look_inside_stack(narg);
      |           ^
/builddir/build/BUILD/nrn-7.8.1/src/nrnoc/../oc/hoc_oop.c:594:9: warning: unused variable 'total' [-Wunused-variable]
  594 |  int i, total;
      |         ^~~~~
/builddir/build/BUILD/nrn-7.8.1/src/nrnoc/../oc/hoc_oop.c:594:6: warning: unused variable 'i' [-Wunused-variable]
  594 |  int i, total;
      |      ^
/builddir/build/BUILD/nrn-7.8.1/src/nrnoc/../oc/hoc_oop.c:593:16: warning: unused variable 's' [-Wunused-variable]
  593 |  Symbol *sym, *s;
      |                ^
/builddir/build/BUILD/nrn-7.8.1/src/nrnoc/../oc/hoc_oop.c:592:14: warning: unused variable 'obd' [-Wunused-variable]
  592 |  Objectdata *obd;
      |              ^~~
/builddir/build/BUILD/nrn-7.8.1/src/nrnoc/../oc/hoc_oop.c: In function 'hoc_cmp_otype':
/builddir/build/BUILD/nrn-7.8.1/src/nrnoc/../oc/hoc_oop.c:804:6: warning: variable 'type' set but not used [-Wunused-but-set-variable]
  804 |  int type;
      |      ^~~~
/builddir/build/BUILD/nrn-7.8.1/src/nrnoc/../oc/hoc_oop.c: In function 'hoc_known_type':
/builddir/build/BUILD/nrn-7.8.1/src/nrnoc/../oc/hoc_oop.c:809:6: warning: variable 'type' set but not used [-Wunused-but-set-variable]
  809 |  int type;
      |      ^~~~
/builddir/build/BUILD/nrn-7.8.1/src/nrnoc/../oc/hoc_oop.c: In function 'hoc_name2obj':
/builddir/build/BUILD/nrn-7.8.1/src/nrnoc/../oc/hoc_oop.c:881:7: warning: unused variable 'buf' [-Wunused-variable]
  881 |  char buf[200];
      |       ^~~
/builddir/build/BUILD/nrn-7.8.1/src/nrnoc/../oc/hoc_oop.c: In function 'hoc_ob_pointer':
/builddir/build/BUILD/nrn-7.8.1/src/nrnoc/../oc/hoc_oop.c:1275:10: warning: unused variable 'sym' [-Wunused-variable]
 1275 |  Symbol* sym;
      |          ^~~
/builddir/build/BUILD/nrn-7.8.1/src/nrnoc/../oc/hoc_oop.c: In function 'java2nrn_class':
/builddir/build/BUILD/nrn-7.8.1/src/nrnoc/../oc/hoc_oop.c:1563:41: warning: unused variable 'buf' [-Wunused-variable]
 1563 |  char mname[256], signature[256], *cn, *buf;
      |                                         ^~~
make[2]: Entering directory '/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu'
[ 41%] Building C object src/nrniv/CMakeFiles/nrniv_lib.dir/__/nrnoc/seclist.c.o
cd /builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/nrniv && /usr/bin/gcc -DHAVE_CONFIG_H -Dnrniv_lib_EXPORTS -I/builddir/build/BUILD/nrn-7.8.1/src/ivoc -I/builddir/build/BUILD/nrn-7.8.1/src/nrniv -I/builddir/build/BUILD/nrn-7.8.1/src/nrnoc -I/builddir/build/BUILD/nrn-7.8.1/src/oc -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/nrncvode -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/nrnjava -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/nrnoc -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/nrnpython -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/oc -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/parallel -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/sundials -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/sundials/shared -I/builddir/build/BUILD/nrn-7.8.1/src -I/builddir/build/BUILD/nrn-7.8.1/src/gnu -I/builddir/build/BUILD/nrn-7.8.1/src/memacs -I/builddir/build/BUILD/nrn-7.8.1/src/mesch -I/builddir/build/BUILD/nrn-7.8.1/src/nrncvode -I/builddir/build/BUILD/nrn-7.8.1/src/nrnmpi -I/builddir/build/BUILD/nrn-7.8.1/src/nrnpython -I/builddir/build/BUILD/nrn-7.8.1/src/parallel -I/builddir/build/BUILD/nrn-7.8.1/src/sparse -I/builddir/build/BUILD/nrn-7.8.1/src/sparse13 -I/builddir/build/BUILD/nrn-7.8.1/src/sundials -I/builddir/build/BUILD/nrn-7.8.1/src/sundials/cvodes -I/builddir/build/BUILD/nrn-7.8.1/src/sundials/ida -I/builddir/build/BUILD/nrn-7.8.1/src/sundials/shared -I/usr/include/python3.9 -O2 -flto=auto -ffat-lto-objects -fexceptions -g -grecord-gcc-switches -pipe -Wall -Werror=format-security -Wp,-D_FORTIFY_SOURCE=2 -Wp,-D_GLIBCXX_ASSERTIONS -specs=/usr/lib/rpm/redhat/redhat-hardened-cc1 -fstack-protector-strong -specs=/usr/lib/rpm/redhat/redhat-annobin-cc1  -fasynchronous-unwind-tables -fstack-clash-protection -fPIC -o CMakeFiles/nrniv_lib.dir/__/nrnoc/seclist.c.o -c /builddir/build/BUILD/nrn-7.8.1/src/nrnoc/seclist.c
make[2]: Leaving directory '/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu'
/builddir/build/BUILD/nrn-7.8.1/src/nrnoc/seclist.c: In function 'wholetree':
/builddir/build/BUILD/nrn-7.8.1/src/nrnoc/seclist.c:124:24: warning: unused variable 'last' [-Wunused-variable]
  124 |  Item* i, *j, *first, *last;
      |                        ^~~~
/builddir/build/BUILD/nrn-7.8.1/src/nrnoc/seclist.c:124:16: warning: unused variable 'first' [-Wunused-variable]
  124 |  Item* i, *j, *first, *last;
      |                ^~~~~
/builddir/build/BUILD/nrn-7.8.1/src/nrnoc/seclist.c:124:12: warning: unused variable 'j' [-Wunused-variable]
  124 |  Item* i, *j, *first, *last;
      |            ^
/builddir/build/BUILD/nrn-7.8.1/src/nrnoc/seclist.c:124:8: warning: unused variable 'i' [-Wunused-variable]
  124 |  Item* i, *j, *first, *last;
      |        ^
/builddir/build/BUILD/nrn-7.8.1/src/nrnoc/seclist.c:123:21: warning: unused variable 'ch' [-Wunused-variable]
  123 |  Section* s, *sec, *ch;
      |                     ^~
/builddir/build/BUILD/nrn-7.8.1/src/nrnoc/seclist.c: At top level:
/builddir/build/BUILD/nrn-7.8.1/src/nrnoc/seclist.c:254:32: warning: missing braces around initializer [-Wmissing-braces]
  254 | static Member_func members[] = {
      |                                ^
  255 |  "append", append,
      |  {               }
  256 |  "remove", seclist_remove,
      |  {                       }
  257 |  "wholetree", wholetree,
      |  {                     }
  258 |  "subtree", subtree,
      |  {                 }
  259 |  "children", children,
      |  {                   }
  260 |  "unique", unique,
      |  {               }
  261 |  "printnames", printnames,
      |  {                       }
  262 |  "contains", contains,
      |  {                   }
  263 |  "allroots", allroots,
      |  {                   }
  264 |  0,0
      |  {
  265 | };
      | }
make[2]: Entering directory '/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu'
[ 41%] Building C object src/nrniv/CMakeFiles/nrniv_lib.dir/__/nrnoc/secref.c.o
cd /builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/nrniv && /usr/bin/gcc -DHAVE_CONFIG_H -Dnrniv_lib_EXPORTS -I/builddir/build/BUILD/nrn-7.8.1/src/ivoc -I/builddir/build/BUILD/nrn-7.8.1/src/nrniv -I/builddir/build/BUILD/nrn-7.8.1/src/nrnoc -I/builddir/build/BUILD/nrn-7.8.1/src/oc -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/nrncvode -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/nrnjava -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/nrnoc -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/nrnpython -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/oc -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/parallel -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/sundials -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/sundials/shared -I/builddir/build/BUILD/nrn-7.8.1/src -I/builddir/build/BUILD/nrn-7.8.1/src/gnu -I/builddir/build/BUILD/nrn-7.8.1/src/memacs -I/builddir/build/BUILD/nrn-7.8.1/src/mesch -I/builddir/build/BUILD/nrn-7.8.1/src/nrncvode -I/builddir/build/BUILD/nrn-7.8.1/src/nrnmpi -I/builddir/build/BUILD/nrn-7.8.1/src/nrnpython -I/builddir/build/BUILD/nrn-7.8.1/src/parallel -I/builddir/build/BUILD/nrn-7.8.1/src/sparse -I/builddir/build/BUILD/nrn-7.8.1/src/sparse13 -I/builddir/build/BUILD/nrn-7.8.1/src/sundials -I/builddir/build/BUILD/nrn-7.8.1/src/sundials/cvodes -I/builddir/build/BUILD/nrn-7.8.1/src/sundials/ida -I/builddir/build/BUILD/nrn-7.8.1/src/sundials/shared -I/usr/include/python3.9 -O2 -flto=auto -ffat-lto-objects -fexceptions -g -grecord-gcc-switches -pipe -Wall -Werror=format-security -Wp,-D_FORTIFY_SOURCE=2 -Wp,-D_GLIBCXX_ASSERTIONS -specs=/usr/lib/rpm/redhat/redhat-hardened-cc1 -fstack-protector-strong -specs=/usr/lib/rpm/redhat/redhat-annobin-cc1  -fasynchronous-unwind-tables -fstack-clash-protection -fPIC -o CMakeFiles/nrniv_lib.dir/__/nrnoc/secref.c.o -c /builddir/build/BUILD/nrn-7.8.1/src/nrnoc/secref.c
make[2]: Leaving directory '/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu'
/builddir/build/BUILD/nrn-7.8.1/src/nrnoc/secref.c: In function 's_rename':
/builddir/build/BUILD/nrn-7.8.1/src/nrnoc/secref.c:81:17: warning: unused variable 'hoc_thisobject' [-Wunused-variable]
   81 |  extern Object* hoc_thisobject, **hoc_objgetarg();
      |                 ^~~~~~~~~~~~~~
/builddir/build/BUILD/nrn-7.8.1/src/nrnoc/secref.c: In function 's_nchild':
/builddir/build/BUILD/nrn-7.8.1/src/nrnoc/secref.c:230:6: warning: unused variable 'n' [-Wunused-variable]
  230 |  int n;
      |      ^
/builddir/build/BUILD/nrn-7.8.1/src/nrnoc/secref.c: In function 's_has_parent':
/builddir/build/BUILD/nrn-7.8.1/src/nrnoc/secref.c:236:6: warning: unused variable 'n' [-Wunused-variable]
  236 |  int n;
      |      ^
/builddir/build/BUILD/nrn-7.8.1/src/nrnoc/secref.c: In function 's_has_trueparent':
/builddir/build/BUILD/nrn-7.8.1/src/nrnoc/secref.c:246:6: warning: unused variable 'n' [-Wunused-variable]
  246 |  int n;
      |      ^
/builddir/build/BUILD/nrn-7.8.1/src/nrnoc/secref.c: In function 's_exists':
/builddir/build/BUILD/nrn-7.8.1/src/nrnoc/secref.c:256:6: warning: unused variable 'n' [-Wunused-variable]
  256 |  int n;
      |      ^
/builddir/build/BUILD/nrn-7.8.1/src/nrnoc/secref.c: At top level:
/builddir/build/BUILD/nrn-7.8.1/src/nrnoc/secref.c:275:32: warning: missing braces around initializer [-Wmissing-braces]
  275 | static Member_func members[] = {
      |                                ^
  276 |  "sec", s_rename, /* will actually become a SECTIONREF below */
      |  {              }
  277 |  "parent", s_rename,
      |  {                 }
  278 |  "trueparent", s_rename,
      |  {                     }
  279 |  "root", s_rename,
      |  {               }
  280 |  "child", s_rename,
      |  {                }
  281 |  "nchild", s_nchild,
      |  {                 }
  282 |  "has_parent", s_has_parent,
      |  {                         }
  283 |  "has_trueparent", s_has_trueparent,
      |  {                                 }
  284 |  "exists", s_exists,
      |  {                 }
  285 |  "rename", s_rename,
      |  {                 }
  286 |  "unname", s_unname,
      |  {                 }
  287 |  "is_cas", s_cas,
      |  {              }
  288 |  0, 0
      |  {
  289 | };
      | }
make[2]: Entering directory '/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu'
[ 41%] Building C object src/nrniv/CMakeFiles/nrniv_lib.dir/__/nrnoc/synapse.c.o
cd /builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/nrniv && /usr/bin/gcc -DHAVE_CONFIG_H -Dnrniv_lib_EXPORTS -I/builddir/build/BUILD/nrn-7.8.1/src/ivoc -I/builddir/build/BUILD/nrn-7.8.1/src/nrniv -I/builddir/build/BUILD/nrn-7.8.1/src/nrnoc -I/builddir/build/BUILD/nrn-7.8.1/src/oc -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/nrncvode -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/nrnjava -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/nrnoc -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/nrnpython -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/oc -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/parallel -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/sundials -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/sundials/shared -I/builddir/build/BUILD/nrn-7.8.1/src -I/builddir/build/BUILD/nrn-7.8.1/src/gnu -I/builddir/build/BUILD/nrn-7.8.1/src/memacs -I/builddir/build/BUILD/nrn-7.8.1/src/mesch -I/builddir/build/BUILD/nrn-7.8.1/src/nrncvode -I/builddir/build/BUILD/nrn-7.8.1/src/nrnmpi -I/builddir/build/BUILD/nrn-7.8.1/src/nrnpython -I/builddir/build/BUILD/nrn-7.8.1/src/parallel -I/builddir/build/BUILD/nrn-7.8.1/src/sparse -I/builddir/build/BUILD/nrn-7.8.1/src/sparse13 -I/builddir/build/BUILD/nrn-7.8.1/src/sundials -I/builddir/build/BUILD/nrn-7.8.1/src/sundials/cvodes -I/builddir/build/BUILD/nrn-7.8.1/src/sundials/ida -I/builddir/build/BUILD/nrn-7.8.1/src/sundials/shared -I/usr/include/python3.9 -O2 -flto=auto -ffat-lto-objects -fexceptions -g -grecord-gcc-switches -pipe -Wall -Werror=format-security -Wp,-D_FORTIFY_SOURCE=2 -Wp,-D_GLIBCXX_ASSERTIONS -specs=/usr/lib/rpm/redhat/redhat-hardened-cc1 -fstack-protector-strong -specs=/usr/lib/rpm/redhat/redhat-annobin-cc1  -fasynchronous-unwind-tables -fstack-clash-protection -fPIC -o CMakeFiles/nrniv_lib.dir/__/nrnoc/synapse.c.o -c /builddir/build/BUILD/nrn-7.8.1/src/nrnoc/synapse.c
make[2]: Leaving directory '/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu'
make[2]: Entering directory '/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu'
[ 42%] Building C object src/nrniv/CMakeFiles/nrniv_lib.dir/__/oc/isaac64.c.o
cd /builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/nrniv && /usr/bin/gcc -DHAVE_CONFIG_H -Dnrniv_lib_EXPORTS -DHOC=1 -DINTERVIEWS=1 -DOOP=1 -I/builddir/build/BUILD/nrn-7.8.1/src/ivoc -I/builddir/build/BUILD/nrn-7.8.1/src/nrniv -I/builddir/build/BUILD/nrn-7.8.1/src/nrnoc -I/builddir/build/BUILD/nrn-7.8.1/src/oc -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/nrncvode -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/nrnjava -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/nrnoc -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/nrnpython -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/oc -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/parallel -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/sundials -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/sundials/shared -I/builddir/build/BUILD/nrn-7.8.1/src -I/builddir/build/BUILD/nrn-7.8.1/src/gnu -I/builddir/build/BUILD/nrn-7.8.1/src/memacs -I/builddir/build/BUILD/nrn-7.8.1/src/mesch -I/builddir/build/BUILD/nrn-7.8.1/src/nrncvode -I/builddir/build/BUILD/nrn-7.8.1/src/nrnmpi -I/builddir/build/BUILD/nrn-7.8.1/src/nrnpython -I/builddir/build/BUILD/nrn-7.8.1/src/parallel -I/builddir/build/BUILD/nrn-7.8.1/src/sparse -I/builddir/build/BUILD/nrn-7.8.1/src/sparse13 -I/builddir/build/BUILD/nrn-7.8.1/src/sundials -I/builddir/build/BUILD/nrn-7.8.1/src/sundials/cvodes -I/builddir/build/BUILD/nrn-7.8.1/src/sundials/ida -I/builddir/build/BUILD/nrn-7.8.1/src/sundials/shared -I/usr/include/python3.9 -O2 -flto=auto -ffat-lto-objects -fexceptions -g -grecord-gcc-switches -pipe -Wall -Werror=format-security -Wp,-D_FORTIFY_SOURCE=2 -Wp,-D_GLIBCXX_ASSERTIONS -specs=/usr/lib/rpm/redhat/redhat-hardened-cc1 -fstack-protector-strong -specs=/usr/lib/rpm/redhat/redhat-annobin-cc1  -fasynchronous-unwind-tables -fstack-clash-protection -fPIC -o CMakeFiles/nrniv_lib.dir/__/oc/isaac64.c.o -c /builddir/build/BUILD/nrn-7.8.1/src/oc/isaac64.c
make[2]: Leaving directory '/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu'
make[2]: Entering directory '/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu'
[ 42%] Building C object src/nrniv/CMakeFiles/nrniv_lib.dir/__/oc/mcran4.c.o
cd /builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/nrniv && /usr/bin/gcc -DHAVE_CONFIG_H -Dnrniv_lib_EXPORTS -DHOC=1 -DINTERVIEWS=1 -DOOP=1 -I/builddir/build/BUILD/nrn-7.8.1/src/ivoc -I/builddir/build/BUILD/nrn-7.8.1/src/nrniv -I/builddir/build/BUILD/nrn-7.8.1/src/nrnoc -I/builddir/build/BUILD/nrn-7.8.1/src/oc -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/nrncvode -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/nrnjava -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/nrnoc -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/nrnpython -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/oc -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/parallel -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/sundials -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/sundials/shared -I/builddir/build/BUILD/nrn-7.8.1/src -I/builddir/build/BUILD/nrn-7.8.1/src/gnu -I/builddir/build/BUILD/nrn-7.8.1/src/memacs -I/builddir/build/BUILD/nrn-7.8.1/src/mesch -I/builddir/build/BUILD/nrn-7.8.1/src/nrncvode -I/builddir/build/BUILD/nrn-7.8.1/src/nrnmpi -I/builddir/build/BUILD/nrn-7.8.1/src/nrnpython -I/builddir/build/BUILD/nrn-7.8.1/src/parallel -I/builddir/build/BUILD/nrn-7.8.1/src/sparse -I/builddir/build/BUILD/nrn-7.8.1/src/sparse13 -I/builddir/build/BUILD/nrn-7.8.1/src/sundials -I/builddir/build/BUILD/nrn-7.8.1/src/sundials/cvodes -I/builddir/build/BUILD/nrn-7.8.1/src/sundials/ida -I/builddir/build/BUILD/nrn-7.8.1/src/sundials/shared -I/usr/include/python3.9 -O2 -flto=auto -ffat-lto-objects -fexceptions -g -grecord-gcc-switches -pipe -Wall -Werror=format-security -Wp,-D_FORTIFY_SOURCE=2 -Wp,-D_GLIBCXX_ASSERTIONS -specs=/usr/lib/rpm/redhat/redhat-hardened-cc1 -fstack-protector-strong -specs=/usr/lib/rpm/redhat/redhat-annobin-cc1  -fasynchronous-unwind-tables -fstack-clash-protection -fPIC -o CMakeFiles/nrniv_lib.dir/__/oc/mcran4.c.o -c /builddir/build/BUILD/nrn-7.8.1/src/oc/mcran4.c
make[2]: Leaving directory '/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu'
/builddir/build/BUILD/nrn-7.8.1/src/oc/mcran4.c: In function 'nrnRan4dbl':
/builddir/build/BUILD/nrn-7.8.1/src/oc/mcran4.c:163:23: warning: unused variable 'extra' [-Wunused-variable]
  163 |     uint32_t  hi, lo, extra;
      |                       ^~~~~
/builddir/build/BUILD/nrn-7.8.1/src/oc/mcran4.c:163:19: warning: unused variable 'lo' [-Wunused-variable]
  163 |     uint32_t  hi, lo, extra;
      |                   ^~
make[2]: Entering directory '/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu'
[ 42%] Building C object src/nrniv/CMakeFiles/nrniv_lib.dir/__/oc/nrnisaac.c.o
cd /builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/nrniv && /usr/bin/gcc -DHAVE_CONFIG_H -Dnrniv_lib_EXPORTS -DHOC=1 -DINTERVIEWS=1 -DOOP=1 -I/builddir/build/BUILD/nrn-7.8.1/src/ivoc -I/builddir/build/BUILD/nrn-7.8.1/src/nrniv -I/builddir/build/BUILD/nrn-7.8.1/src/nrnoc -I/builddir/build/BUILD/nrn-7.8.1/src/oc -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/nrncvode -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/nrnjava -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/nrnoc -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/nrnpython -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/oc -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/parallel -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/sundials -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/sundials/shared -I/builddir/build/BUILD/nrn-7.8.1/src -I/builddir/build/BUILD/nrn-7.8.1/src/gnu -I/builddir/build/BUILD/nrn-7.8.1/src/memacs -I/builddir/build/BUILD/nrn-7.8.1/src/mesch -I/builddir/build/BUILD/nrn-7.8.1/src/nrncvode -I/builddir/build/BUILD/nrn-7.8.1/src/nrnmpi -I/builddir/build/BUILD/nrn-7.8.1/src/nrnpython -I/builddir/build/BUILD/nrn-7.8.1/src/parallel -I/builddir/build/BUILD/nrn-7.8.1/src/sparse -I/builddir/build/BUILD/nrn-7.8.1/src/sparse13 -I/builddir/build/BUILD/nrn-7.8.1/src/sundials -I/builddir/build/BUILD/nrn-7.8.1/src/sundials/cvodes -I/builddir/build/BUILD/nrn-7.8.1/src/sundials/ida -I/builddir/build/BUILD/nrn-7.8.1/src/sundials/shared -I/usr/include/python3.9 -O2 -flto=auto -ffat-lto-objects -fexceptions -g -grecord-gcc-switches -pipe -Wall -Werror=format-security -Wp,-D_FORTIFY_SOURCE=2 -Wp,-D_GLIBCXX_ASSERTIONS -specs=/usr/lib/rpm/redhat/redhat-hardened-cc1 -fstack-protector-strong -specs=/usr/lib/rpm/redhat/redhat-annobin-cc1  -fasynchronous-unwind-tables -fstack-clash-protection -fPIC -o CMakeFiles/nrniv_lib.dir/__/oc/nrnisaac.c.o -c /builddir/build/BUILD/nrn-7.8.1/src/oc/nrnisaac.c
make[2]: Leaving directory '/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu'
make[2]: Entering directory '/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu'
[ 41%] Building C object src/nrniv/CMakeFiles/nrniv_lib.dir/__/nrnoc/solve.c.o
cd /builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/nrniv && /usr/bin/gcc -DHAVE_CONFIG_H -Dnrniv_lib_EXPORTS -I/builddir/build/BUILD/nrn-7.8.1/src/ivoc -I/builddir/build/BUILD/nrn-7.8.1/src/nrniv -I/builddir/build/BUILD/nrn-7.8.1/src/nrnoc -I/builddir/build/BUILD/nrn-7.8.1/src/oc -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/nrncvode -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/nrnjava -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/nrnoc -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/nrnpython -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/oc -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/parallel -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/sundials -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/sundials/shared -I/builddir/build/BUILD/nrn-7.8.1/src -I/builddir/build/BUILD/nrn-7.8.1/src/gnu -I/builddir/build/BUILD/nrn-7.8.1/src/memacs -I/builddir/build/BUILD/nrn-7.8.1/src/mesch -I/builddir/build/BUILD/nrn-7.8.1/src/nrncvode -I/builddir/build/BUILD/nrn-7.8.1/src/nrnmpi -I/builddir/build/BUILD/nrn-7.8.1/src/nrnpython -I/builddir/build/BUILD/nrn-7.8.1/src/parallel -I/builddir/build/BUILD/nrn-7.8.1/src/sparse -I/builddir/build/BUILD/nrn-7.8.1/src/sparse13 -I/builddir/build/BUILD/nrn-7.8.1/src/sundials -I/builddir/build/BUILD/nrn-7.8.1/src/sundials/cvodes -I/builddir/build/BUILD/nrn-7.8.1/src/sundials/ida -I/builddir/build/BUILD/nrn-7.8.1/src/sundials/shared -I/usr/include/python3.9 -O2 -flto=auto -ffat-lto-objects -fexceptions -g -grecord-gcc-switches -pipe -Wall -Werror=format-security -Wp,-D_FORTIFY_SOURCE=2 -Wp,-D_GLIBCXX_ASSERTIONS -specs=/usr/lib/rpm/redhat/redhat-hardened-cc1 -fstack-protector-strong -specs=/usr/lib/rpm/redhat/redhat-annobin-cc1  -fasynchronous-unwind-tables -fstack-clash-protection -fPIC -o CMakeFiles/nrniv_lib.dir/__/nrnoc/solve.c.o -c /builddir/build/BUILD/nrn-7.8.1/src/nrnoc/solve.c
make[2]: Leaving directory '/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu'
/builddir/build/BUILD/nrn-7.8.1/src/nrnoc/solve.c: In function 'node_destruct':
/builddir/build/BUILD/nrn-7.8.1/src/nrnoc/solve.c:648:8: warning: unused variable 'nd' [-Wunused-variable]
  648 |  Node* nd;
      |        ^~
/builddir/build/BUILD/nrn-7.8.1/src/nrnoc/solve.c: In function 'node_realloc':
/builddir/build/BUILD/nrn-7.8.1/src/nrnoc/solve.c:724:22: warning: unused variable 'i' [-Wunused-variable]
  724 |  int n1, n2, i1, i2, i;
      |                      ^
At top level:
/builddir/build/BUILD/nrn-7.8.1/src/nrnoc/solve.c:710:14: warning: 'node_interp' defined but not used [-Wunused-function]
  710 | static Node* node_interp(Node* nd1, Node* nd2, double frac)
      |              ^~~~~~~~~~~
/builddir/build/BUILD/nrn-7.8.1/src/nrnoc/solve.c: In function 'distance':
/builddir/build/BUILD/nrn-7.8.1/src/nrnoc/solve.c:271:7: warning: 'my_origin_node' may be used uninitialized in this function [-Wmaybe-uninitialized]
  271 |   d = topol_distance(my_origin_sec, my_origin_node, sec, node,
      |       ^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
  272 |    &sec, &node );
      |    ~~~~~~~~~~~~~
make[2]: Entering directory '/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu'
[ 42%] Building C object src/nrniv/CMakeFiles/nrniv_lib.dir/__/oc/nrnran123.c.o
cd /builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/nrniv && /usr/bin/gcc -DHAVE_CONFIG_H -Dnrniv_lib_EXPORTS -DHOC=1 -DINTERVIEWS=1 -DOOP=1 -I/builddir/build/BUILD/nrn-7.8.1/src/ivoc -I/builddir/build/BUILD/nrn-7.8.1/src/nrniv -I/builddir/build/BUILD/nrn-7.8.1/src/nrnoc -I/builddir/build/BUILD/nrn-7.8.1/src/oc -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/nrncvode -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/nrnjava -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/nrnoc -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/nrnpython -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/oc -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/parallel -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/sundials -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/sundials/shared -I/builddir/build/BUILD/nrn-7.8.1/src -I/builddir/build/BUILD/nrn-7.8.1/src/gnu -I/builddir/build/BUILD/nrn-7.8.1/src/memacs -I/builddir/build/BUILD/nrn-7.8.1/src/mesch -I/builddir/build/BUILD/nrn-7.8.1/src/nrncvode -I/builddir/build/BUILD/nrn-7.8.1/src/nrnmpi -I/builddir/build/BUILD/nrn-7.8.1/src/nrnpython -I/builddir/build/BUILD/nrn-7.8.1/src/parallel -I/builddir/build/BUILD/nrn-7.8.1/src/sparse -I/builddir/build/BUILD/nrn-7.8.1/src/sparse13 -I/builddir/build/BUILD/nrn-7.8.1/src/sundials -I/builddir/build/BUILD/nrn-7.8.1/src/sundials/cvodes -I/builddir/build/BUILD/nrn-7.8.1/src/sundials/ida -I/builddir/build/BUILD/nrn-7.8.1/src/sundials/shared -I/usr/include/python3.9 -O2 -flto=auto -ffat-lto-objects -fexceptions -g -grecord-gcc-switches -pipe -Wall -Werror=format-security -Wp,-D_FORTIFY_SOURCE=2 -Wp,-D_GLIBCXX_ASSERTIONS -specs=/usr/lib/rpm/redhat/redhat-hardened-cc1 -fstack-protector-strong -specs=/usr/lib/rpm/redhat/redhat-annobin-cc1  -fasynchronous-unwind-tables -fstack-clash-protection -fPIC -o CMakeFiles/nrniv_lib.dir/__/oc/nrnran123.c.o -c /builddir/build/BUILD/nrn-7.8.1/src/oc/nrnran123.c
make[2]: Leaving directory '/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu'
In file included from /usr/include/Random123/features/compilerfeatures.h:211,
                 from /usr/include/Random123/philox.h:37,
                 from /builddir/build/BUILD/nrn-7.8.1/src/oc/nrnran123.c:7:
/usr/include/Random123/features/gccfeatures.h:38:4: error: #error "This code has only been tested on x86 and powerpc platforms."
   38 | #  error "This code has only been tested on x86 and powerpc platforms."
      |    ^~~~~
/usr/include/Random123/features/gccfeatures.h:39:10: fatal error: including_a_nonexistent_file_will_stop_some_compilers_from_continuing_with_a_hopeless_task: No such file or directory
   39 | #include <including_a_nonexistent_file_will_stop_some_compilers_from_continuing_with_a_hopeless_task>
      |          ^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
compilation terminated.
make[2]: *** [src/nrniv/CMakeFiles/nrniv_lib.dir/build.make:2002: src/nrniv/CMakeFiles/nrniv_lib.dir/__/oc/nrnran123.c.o] Error 1
make[2]: *** Waiting for unfinished jobs....
make[2]: Entering directory '/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu'
[ 43%] Building C object src/nrniv/CMakeFiles/nrniv_lib.dir/__/oc/audit.c.o
cd /builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/nrniv && /usr/bin/gcc -DHAVE_CONFIG_H -Dnrniv_lib_EXPORTS -DHOC=1 -DINTERVIEWS=1 -DOOP=1 -I/builddir/build/BUILD/nrn-7.8.1/src/ivoc -I/builddir/build/BUILD/nrn-7.8.1/src/nrniv -I/builddir/build/BUILD/nrn-7.8.1/src/nrnoc -I/builddir/build/BUILD/nrn-7.8.1/src/oc -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/nrncvode -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/nrnjava -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/nrnoc -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/nrnpython -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/oc -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/parallel -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/sundials -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/sundials/shared -I/builddir/build/BUILD/nrn-7.8.1/src -I/builddir/build/BUILD/nrn-7.8.1/src/gnu -I/builddir/build/BUILD/nrn-7.8.1/src/memacs -I/builddir/build/BUILD/nrn-7.8.1/src/mesch -I/builddir/build/BUILD/nrn-7.8.1/src/nrncvode -I/builddir/build/BUILD/nrn-7.8.1/src/nrnmpi -I/builddir/build/BUILD/nrn-7.8.1/src/nrnpython -I/builddir/build/BUILD/nrn-7.8.1/src/parallel -I/builddir/build/BUILD/nrn-7.8.1/src/sparse -I/builddir/build/BUILD/nrn-7.8.1/src/sparse13 -I/builddir/build/BUILD/nrn-7.8.1/src/sundials -I/builddir/build/BUILD/nrn-7.8.1/src/sundials/cvodes -I/builddir/build/BUILD/nrn-7.8.1/src/sundials/ida -I/builddir/build/BUILD/nrn-7.8.1/src/sundials/shared -I/usr/include/python3.9 -O2 -flto=auto -ffat-lto-objects -fexceptions -g -grecord-gcc-switches -pipe -Wall -Werror=format-security -Wp,-D_FORTIFY_SOURCE=2 -Wp,-D_GLIBCXX_ASSERTIONS -specs=/usr/lib/rpm/redhat/redhat-hardened-cc1 -fstack-protector-strong -specs=/usr/lib/rpm/redhat/redhat-annobin-cc1  -fasynchronous-unwind-tables -fstack-clash-protection -fPIC -o CMakeFiles/nrniv_lib.dir/__/oc/audit.c.o -c /builddir/build/BUILD/nrn-7.8.1/src/oc/audit.c
make[2]: Leaving directory '/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu'
In file included from /usr/include/stdio.h:866,
                 from /builddir/build/BUILD/nrn-7.8.1/src/oc/audit.c:2:
In function 'fgets',
    inlined from 'xopen_audit' at /builddir/build/BUILD/nrn-7.8.1/src/oc/audit.c:243:2:
/usr/include/bits/stdio2.h:270:10: warning: '*fgets' writing 200 bytes into a region of size 197 overflows the destination [-Wstringop-overflow=]
  270 |   return __fgets_alias (__s, __n, __stream);
      |          ^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
In file included from /usr/include/features.h:465,
                 from /usr/include/bits/libc-header-start.h:33,
                 from /usr/include/stdio.h:27,
                 from /builddir/build/BUILD/nrn-7.8.1/src/oc/audit.c:2:
/usr/include/bits/stdio2.h: In function 'xopen_audit':
/usr/include/bits/stdio2.h:249:14: note: in a call to function '*fgets' declared with attribute 'write_only (1, 2)'
  249 | extern char *__REDIRECT (__fgets_alias,
      |              ^~~~~~~~~~
make[2]: Entering directory '/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu'
[ 43%] Building C object src/nrniv/CMakeFiles/nrniv_lib.dir/__/oc/axis.c.o
cd /builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/nrniv && /usr/bin/gcc -DHAVE_CONFIG_H -Dnrniv_lib_EXPORTS -DHOC=1 -DINTERVIEWS=1 -DOOP=1 -I/builddir/build/BUILD/nrn-7.8.1/src/ivoc -I/builddir/build/BUILD/nrn-7.8.1/src/nrniv -I/builddir/build/BUILD/nrn-7.8.1/src/nrnoc -I/builddir/build/BUILD/nrn-7.8.1/src/oc -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/nrncvode -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/nrnjava -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/nrnoc -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/nrnpython -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/oc -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/parallel -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/sundials -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/sundials/shared -I/builddir/build/BUILD/nrn-7.8.1/src -I/builddir/build/BUILD/nrn-7.8.1/src/gnu -I/builddir/build/BUILD/nrn-7.8.1/src/memacs -I/builddir/build/BUILD/nrn-7.8.1/src/mesch -I/builddir/build/BUILD/nrn-7.8.1/src/nrncvode -I/builddir/build/BUILD/nrn-7.8.1/src/nrnmpi -I/builddir/build/BUILD/nrn-7.8.1/src/nrnpython -I/builddir/build/BUILD/nrn-7.8.1/src/parallel -I/builddir/build/BUILD/nrn-7.8.1/src/sparse -I/builddir/build/BUILD/nrn-7.8.1/src/sparse13 -I/builddir/build/BUILD/nrn-7.8.1/src/sundials -I/builddir/build/BUILD/nrn-7.8.1/src/sundials/cvodes -I/builddir/build/BUILD/nrn-7.8.1/src/sundials/ida -I/builddir/build/BUILD/nrn-7.8.1/src/sundials/shared -I/usr/include/python3.9 -O2 -flto=auto -ffat-lto-objects -fexceptions -g -grecord-gcc-switches -pipe -Wall -Werror=format-security -Wp,-D_FORTIFY_SOURCE=2 -Wp,-D_GLIBCXX_ASSERTIONS -specs=/usr/lib/rpm/redhat/redhat-hardened-cc1 -fstack-protector-strong -specs=/usr/lib/rpm/redhat/redhat-annobin-cc1  -fasynchronous-unwind-tables -fstack-clash-protection -fPIC -o CMakeFiles/nrniv_lib.dir/__/oc/axis.c.o -c /builddir/build/BUILD/nrn-7.8.1/src/oc/axis.c
make[2]: Leaving directory '/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu'
make[2]: Entering directory '/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu'
[ 42%] Building C object src/nrniv/CMakeFiles/nrniv_lib.dir/__/nrnoc/treeset.c.o
cd /builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/nrniv && /usr/bin/gcc -DHAVE_CONFIG_H -Dnrniv_lib_EXPORTS -I/builddir/build/BUILD/nrn-7.8.1/src/ivoc -I/builddir/build/BUILD/nrn-7.8.1/src/nrniv -I/builddir/build/BUILD/nrn-7.8.1/src/nrnoc -I/builddir/build/BUILD/nrn-7.8.1/src/oc -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/nrncvode -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/nrnjava -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/nrnoc -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/nrnpython -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/oc -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/parallel -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/sundials -I/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu/src/sundials/shared -I/builddir/build/BUILD/nrn-7.8.1/src -I/builddir/build/BUILD/nrn-7.8.1/src/gnu -I/builddir/build/BUILD/nrn-7.8.1/src/memacs -I/builddir/build/BUILD/nrn-7.8.1/src/mesch -I/builddir/build/BUILD/nrn-7.8.1/src/nrncvode -I/builddir/build/BUILD/nrn-7.8.1/src/nrnmpi -I/builddir/build/BUILD/nrn-7.8.1/src/nrnpython -I/builddir/build/BUILD/nrn-7.8.1/src/parallel -I/builddir/build/BUILD/nrn-7.8.1/src/sparse -I/builddir/build/BUILD/nrn-7.8.1/src/sparse13 -I/builddir/build/BUILD/nrn-7.8.1/src/sundials -I/builddir/build/BUILD/nrn-7.8.1/src/sundials/cvodes -I/builddir/build/BUILD/nrn-7.8.1/src/sundials/ida -I/builddir/build/BUILD/nrn-7.8.1/src/sundials/shared -I/usr/include/python3.9 -O2 -flto=auto -ffat-lto-objects -fexceptions -g -grecord-gcc-switches -pipe -Wall -Werror=format-security -Wp,-D_FORTIFY_SOURCE=2 -Wp,-D_GLIBCXX_ASSERTIONS -specs=/usr/lib/rpm/redhat/redhat-hardened-cc1 -fstack-protector-strong -specs=/usr/lib/rpm/redhat/redhat-annobin-cc1  -fasynchronous-unwind-tables -fstack-clash-protection -fPIC -o CMakeFiles/nrniv_lib.dir/__/nrnoc/treeset.c.o -c /builddir/build/BUILD/nrn-7.8.1/src/nrnoc/treeset.c
make[2]: Leaving directory '/builddir/build/BUILD/nrn-7.8.1/riscv64-redhat-linux-gnu'
/builddir/build/BUILD/nrn-7.8.1/src/nrnoc/treeset.c: In function 'nrn_lhs':
/builddir/build/BUILD/nrn-7.8.1/src/nrnoc/treeset.c:481:10: warning: variable 'neqn' set but not used [-Wunused-but-set-variable]
  481 |   int i, neqn;
      |          ^~~~
/builddir/build/BUILD/nrn-7.8.1/src/nrnoc/treeset.c:481:7: warning: unused variable 'i' [-Wunused-variable]
  481 |   int i, neqn;
      |       ^
/builddir/build/BUILD/nrn-7.8.1/src/nrnoc/treeset.c: In function 'connection_coef':
/builddir/build/BUILD/nrn-7.8.1/src/nrnoc/treeset.c:816:8: warning: unused variable 'p' [-Wunused-variable]
  816 |  Prop *p;
      |        ^
/builddir/build/BUILD/nrn-7.8.1/src/nrnoc/treeset.c:813:25: warning: unused variable 'ra' [-Wunused-variable]
  813 |  double dx, diam, area, ra;
      |                         ^~
/builddir/build/BUILD/nrn-7.8.1/src/nrnoc/treeset.c:813:13: warning: unused variable 'diam' [-Wunused-variable]
  813 |  double dx, diam, area, ra;
      |             ^~~~
/builddir/build/BUILD/nrn-7.8.1/src/nrnoc/treeset.c:813:9: warning: unused variable 'dx' [-Wunused-variable]
  813 |  double dx, diam, area, ra;
      |         ^~
/builddir/build/BUILD/nrn-7.8.1/src/nrnoc/treeset.c: In function 'pt3dinsert':
/builddir/build/BUILD/nrn-7.8.1/src/nrnoc/treeset.c:1118:6: warning: unused variable 'i' [-Wunused-variable]
 1118 |  int i, n, i0;
      |      ^
/builddir/build/BUILD/nrn-7.8.1/src/nrnoc/treeset.c: In function 'pt3dremove':
/builddir/build/BUILD/nrn-7.8.1/src/nrnoc/treeset.c:1169:6: warning: unused variable 'i' [-Wunused-variable]
 1169 |  int i, i0, n;
      |      ^
In file included from /builddir/build/BUILD/nrn-7.8.1/src/nrnoc/treeset.c:1598:
/builddir/build/BUILD/nrn-7.8.1/src/nrnoc/multicore.c: In function 'setaffinity':
/builddir/build/BUILD/nrn-7.8.1/src/nrnoc/multicore.c:288:6: warning: unused variable 'mask' [-Wunused-variable]
  288 |  int mask;
      |      ^~~~
/builddir/build/BUILD/nrn-7.8.1/src/nrnoc/multicore.c: In function 'reorder_secorder':
/builddir/build/BUILD/nrn-7.8.1/src/nrnoc/multicore.c:879:19: warning: unused variable 'i' [-Wunused-variable]
  879 |  int order, isec, i, j, inode;
      |                   ^
In file included from /builddir/build/BUILD/nrn-7.8.1/src/nrnoc/treeset.c:1598:
/builddir/build/BUILD/nrn-7.8.1/src/nrnoc/multicore.c: In function 'nrn_how_many_processors':
/builddir/build/BUILD/nrn-7.8.1/src/nrnoc/multicore.c:1288:6: warning: unused variable 'i' [-Wunused-variable]
 1288 |  int i, ip;
      |      ^
/builddir/build/BUILD/nrn-7.8.1/src/nrnoc/treeset.c: In function 'v_setup_vectors':
/builddir/build/BUILD/nrn-7.8.1/src/nrnoc/treeset.c:1605:8: warning: unused variable 'nd' [-Wunused-variable]
 1605 |  Node* nd;
      |        ^~
/builddir/build/BUILD/nrn-7.8.1/src/nrnoc/treeset.c:1604:11: warning: unused variable 'sec' [-Wunused-variable]
 1604 |  Section* sec;
      |           ^~~
/builddir/build/BUILD/nrn-7.8.1/src/nrnoc/treeset.c:1603:6: warning: unused variable 'isec' [-Wunused-variable]
 1603 |  int isec;
      |      ^~~~
/builddir/build/BUILD/nrn-7.8.1/src/nrnoc/treeset.c: In function 'nrn_modeltype':
/builddir/build/BUILD/nrn-7.8.1/src/nrnoc/treeset.c:1914:19: warning: unused variable 'lm' [-Wunused-variable]
 1914 |  static Template* lm = (Template*)0;
      |                   ^~
/builddir/build/BUILD/nrn-7.8.1/src/nrnoc/treeset.c: In function 'nrn_matrix_node_alloc':
/builddir/build/BUILD/nrn-7.8.1/src/nrnoc/treeset.c:1979:8: warning: unused variable 'nd' [-Wunused-variable]
 1979 |  Node* nd;
      |        ^~
/builddir/build/BUILD/nrn-7.8.1/src/nrnoc/treeset.c:1978:9: warning: unused variable 'b' [-Wunused-variable]
 1978 |  int i, b;
      |         ^
/builddir/build/BUILD/nrn-7.8.1/src/nrnoc/treeset.c: In function 'nrn_recalc_node_ptrs':
/builddir/build/BUILD/nrn-7.8.1/src/nrnoc/treeset.c:2204:10: warning: unused variable 'd' [-Wunused-variable]
 2204 |   Datum* d;
      |          ^
At top level:
/builddir/build/BUILD/nrn-7.8.1/src/nrnoc/treeset.c:1914:19: warning: 'lm' defined but not used [-Wunused-variable]
 1914 |  static Template* lm = (Template*)0;
      |                   ^~
In file included from /builddir/build/BUILD/nrn-7.8.1/src/nrnoc/treeset.c:1598:
/builddir/build/BUILD/nrn-7.8.1/src/nrnoc/multicore.c:268:13: warning: 'wait_for_workers_timeit' defined but not used [-Wunused-function]
  268 | static void wait_for_workers_timeit() {
      |             ^~~~~~~~~~~~~~~~~~~~~~~
make[1]: *** [CMakeFiles/Makefile2:1080: src/nrniv/CMakeFiles/nrniv_lib.dir/all] Error 2
RPM build errors:
make: *** [Makefile:163: all] Error 2
error: Bad exit status from /var/tmp/rpm-tmp.R7JYNP (%build)
    Bad exit status from /var/tmp/rpm-tmp.R7JYNP (%build)
Child return code was: 1
EXCEPTION: [Error()]
Traceback (most recent call last):
  File "/usr/lib/python3.8/site-packages/mockbuild/trace_decorator.py", line 95, in trace
    result = func(*args, **kw)
  File "/usr/lib/python3.8/site-packages/mockbuild/util.py", line 746, in do_with_status
    raise exception.Error("Command failed: \n # %s\n%s" % (command, output), child.returncode)
mockbuild.exception.Error: Command failed: 
 # bash --login -c /usr/bin/rpmbuild -bb --target riscv64 --nodeps /builddir/build/SPECS/neuron.spec