Mercurial > octave

changeset 30759:25d08ca386a7 stable

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
* make_int.cc (octave_integer): Derive from octave_base_dld_value.
author John W. Eaton <jwe@octave.org>
date Fri, 18 Feb 2022 15:45:58 -0500
parents 1b96856b88ef
children fc530ec01070
files examples/code/make_int.cc
diffstat 1 files changed, 10 insertions(+), 5 deletions(-) [+]
line wrap: on
line diff
--- a/examples/code/make_int.cc	Fri Feb 18 19:15:04 2022 +0900
+++ b/examples/code/make_int.cc	Fri Feb 18 15:45:58 2022 -0500
@@ -26,19 +26,25 @@
 
 // Integer values.
 
+// Derive from octave_base_dld_value instead of octave_base_value
+// so that octave_integer values created by that dynamically loaded
+// make_int.oct file will be tracked automatically and the .oct file
+// will not be closed until all functions and values that it creates are
+// deleted.
+
 class
-octave_integer : public octave_base_value
+octave_integer : public octave_base_dld_value
 {
 public:
 
   octave_integer (void)
-    : octave_base_value (), scalar (0) { }
+    : octave_base_dld_value (), scalar (0) { }
 
   octave_integer (int i)
-    : octave_base_value (), scalar (i) { }
+    : octave_base_dld_value (), scalar (i) { }
 
   octave_integer (const octave_integer& s)
-    : octave_base_value (), scalar (s.scalar) { }
+    : octave_base_dld_value (), scalar (s.scalar) { }
 
   ~octave_integer (void) = default;
 
@@ -219,7 +225,6 @@
   if (! type_loaded)
     {
       octave_integer::register_type ();
-      interp.mlock ();
 
       octave_stdout << "installing integer type at type-id = "
                     << octave_integer::static_type_id () << "\n";