Mercurial > octave
view liboctave/util/oct-locbuf.cc @ 23457:21baad6b35c4
maint: Use C++11 nullptr rather than 0 or NULL when possible.
* FigureWindow.h, Logger.cc, Menu.cc, MouseModeActionGroup.h, Object.h,
ObjectFactory.cc, ObjectProxy.h, color-picker.h, documentation-dock-widget.h,
files-dock-widget.h, find-files-dialog.h, history-dock-widget.h,
file-editor-tab.cc, file-editor.cc, file-editor.h, find-dialog.h,
main-window.cc, main-window.h, octave-dock-widget.h, parser.cc, parser.h,
webinfo.h, resource-manager.cc, shortcut-manager.cc, shortcut-manager.h,
terminal-dock-widget.h, welcome-wizard.cc, welcome-wizard.h, workspace-model.h,
workspace-view.h, __magick_read__.cc, call-stack.cc, call-stack.h, cdisplay.c,
display.cc, dlmread.cc, dynamic-ld.cc, ft-text-renderer.cc, gl2ps-print.cc,
graphics.cc, graphics.in.h, input.h, interpreter.cc, interpreter.h, ls-hdf5.cc,
mex.cc, mxarray.in.h, oct-errno.in.cc, oct-fstrm.cc, oct-iostrm.h,
oct-procbuf.cc, oct-stdstrm.h, oct-stream.cc, oct-stream.h, octave-link.cc,
pager.cc, pr-output.cc, profiler.h, qz.cc, sighandlers.cc, strfns.cc,
symtab.cc, symtab.h, typecast.cc, urlwrite.cc, variables.cc, __eigs__.cc,
__init_fltk__.cc, __ode15__.cc, colamd.cc, ov-base-int.cc, ov-base.cc,
ov-bool-mat.cc, ov-bool-sparse.cc, ov-builtin.cc, ov-class.cc, ov-classdef.cc,
ov-complex.cc, ov-cx-diag.cc, ov-cx-mat.cc, ov-cx-sparse.cc, ov-fcn-handle.cc,
ov-fcn-inline.cc, ov-flt-complex.cc, ov-flt-cx-diag.cc, ov-flt-cx-mat.cc,
ov-flt-re-diag.cc, ov-flt-re-mat.cc, ov-java.cc, ov-java.h, ov-lazy-idx.cc,
ov-perm.cc, ov-range.cc, ov-re-diag.cc, ov-re-mat.cc, ov-re-sparse.cc,
ov-str-mat.cc, ov-struct.cc, ov-usr-fcn.h, octave.cc, octave.h, bp-table.cc,
jit-ir.cc, jit-ir.h, jit-typeinfo.cc, jit-typeinfo.h, lex.h, pt-arg-list.cc,
pt-arg-list.h, pt-array-list.h, pt-cell.h, pt-classdef.h, pt-colon.cc,
pt-decl.h, pt-eval.cc, pt-eval.h, pt-except.h, pt-idx.h, pt-jit.cc, pt-jit.h,
pt-loop.h, pt-mat.h, pt-select.h, pt.h, CSparse.cc, dSparse.cc, DASPK.cc,
DASRT.cc, DASSL.cc, oct-fftw.cc, oct-rand.cc, oct-spparms.cc, child-list.cc,
file-ops.cc, mach-info.cc, oct-env.cc, oct-time.cc, cmd-edit.cc, cmd-hist.cc,
oct-locbuf.cc, oct-shlib.cc, pathsearch.cc, singleton-cleanup.cc,
unwind-prot.h, url-transfer.cc:
Use C++11 nullptr rather than 0 or NULL when possible.
author | Rik <rik@octave.org> |
---|---|
date | Fri, 28 Apr 2017 13:19:12 -0700 |
parents | 5e0350f5e2dd |
children | 08036a7f3660 |
line wrap: on
line source
/* Copyright (C) 2008-2017 Jaroslav Hajek This file is part of Octave. Octave is free software; you can redistribute it and/or modify it under the terms of the GNU General Public License as published by the Free Software Foundation; either version 3 of the License, or (at your option) any later version. Octave is distributed in the hope that it will be useful, but WITHOUT ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License for more details. You should have received a copy of the GNU General Public License along with Octave; see the file COPYING. If not, see <http://www.gnu.org/licenses/>. */ #if defined (HAVE_CONFIG_H) # include "config.h" #endif #include <iostream> #include "lo-error.h" #include "oct-locbuf.h" // FIXME: Maybe we should querying for available physical memory? #if ! defined (OCTAVE_LOCBUF_CHUNKSIZE_MB) # define OCTAVE_LOCBUF_CHUNKSIZE_MB 32 #endif namespace octave { // Each chunk will be at least this big. const size_t octave::chunk_buffer::chunk_size = static_cast<size_t> (OCTAVE_LOCBUF_CHUNKSIZE_MB) << 20; char *chunk_buffer::top = nullptr; char *chunk_buffer::chunk = nullptr; size_t chunk_buffer::left = 0; size_t chunk_buffer::active = 0; chunk_buffer::chunk_buffer (size_t size) : cnk (0), dat (0) { // Alignment mask. The size of double or long int, whichever is // greater. All data will be aligned to this size. If it's not // enough for a type, that type should not be declared as POD. static const size_t align_mask = (sizeof (long) < sizeof (double) ? sizeof (double) : sizeof (long)) - 1; // Always allocate, even for zero-size buffers so that local buffers // always have valid addresses, same as for directly using operator // new. active++; // Align size. Note that size_t is unsigned, so size-1 must correctly // wrap around. size = ((size - 1) | align_mask) + 1; if (size > left) { // Big buffers (> 1/8 chunk) will be allocated as stand-alone and // won't disrupt the chain. if (size > chunk_size >> 3) { // Use new [] to get std::bad_alloc if out of memory. dat = new char [size]; return; } dat = new char [chunk_size]; chunk = top = dat; left = chunk_size; } // Now allocate memory from the chunk and update state. cnk = chunk; dat = top; left -= size; top += size; } chunk_buffer::~chunk_buffer (void) { active--; if (cnk == chunk) { // Our chunk is still the active one. Just restore the state. left += top - dat; top = dat; } else { if (cnk) { // Responsible for deletion. delete [] chunk; chunk = cnk; top = dat; // FIXME: the following calcuation of remaining data will // only work if each chunk has the same chunk_size. left = chunk_size - (dat - cnk); } else { // We were a stand-alone buffer. delete [] dat; } } } // Clear the final chunk of allocated memory. void chunk_buffer::clear (void) { if (active == 0) { delete [] chunk; chunk = 0; top = 0; left = 0; } else { // FIXME: Doesn't this situation represent a programming error of // some kind? If so, maybe this should be a fatal error? (*current_liboctave_warning_with_id_handler) ("Octave:local-buffer-inconsistency", "chunk_buffer::clear: %d active allocations remain!", active); } } }