[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] feature/aptel/dynamic-modules-rc3 89c8287 11/35: opaque: a
From: |
Noah Friedman |
Subject: |
[Emacs-diffs] feature/aptel/dynamic-modules-rc3 89c8287 11/35: opaque: add comments. |
Date: |
Mon, 8 May 2017 19:46:27 -0400 (EDT) |
branch: feature/aptel/dynamic-modules-rc3
commit 89c82878cd467ab73ff037268fb9710a4825e619
Author: Aurélien Aptel <address@hidden>
Commit: Aurélien Aptel <address@hidden>
opaque: add comments.
---
modules/opaque/opaque.c | 12 +++++++++---
1 file changed, 9 insertions(+), 3 deletions(-)
diff --git a/modules/opaque/opaque.c b/modules/opaque/opaque.c
index f1ba759..d20ebeb 100644
--- a/modules/opaque/opaque.c
+++ b/modules/opaque/opaque.c
@@ -19,15 +19,21 @@ DEFUN ("opaque-make", Fopaque_make, Sopaque_make, 3, 3, 0,
p->a = XINT (a);
p->b = XINT (b);
p->c = XINT (c);
+
+ /*
+ store p as a the first slot (index 0) of a Lisp_Save_Value (which
+ is a Lisp_Misc)
+ */
return make_save_ptr ((void*)p);
}
EXFUN (Fopaque_free, 1);
DEFUN ("opaque-free", Fopaque_free, Sopaque_free, 1, 1, 0,
- doc: "Free opaque type.")
- (Lisp_Object p)
+ doc: "Free opaque object OBJ.")
+ (Lisp_Object obj)
{
- free (XSAVE_POINTER (p, 0));
+ /* the pointer is in the first slot (index 0) */
+ free (XSAVE_POINTER (obj, 0));
return Qnil;
}
- [Emacs-diffs] branch feature/aptel/dynamic-modules-rc3 created (now c59f2de), Noah Friedman, 2017/05/08
- [Emacs-diffs] feature/aptel/dynamic-modules-rc3 fc0f6ec 02/35: add `load-module' function to emacs lisp., Noah Friedman, 2017/05/08
- [Emacs-diffs] feature/aptel/dynamic-modules-rc3 0526616 04/35: add sample module `fmod'., Noah Friedman, 2017/05/08
- [Emacs-diffs] feature/aptel/dynamic-modules-rc3 19705b8 06/35: alloc.c: protect doc field from GC., Noah Friedman, 2017/05/08
- [Emacs-diffs] feature/aptel/dynamic-modules-rc3 1b98be3 09/35: move fmod module in modules/fmod/., Noah Friedman, 2017/05/08
- [Emacs-diffs] feature/aptel/dynamic-modules-rc3 772cb16 01/35: add libltdl configure option/dependency., Noah Friedman, 2017/05/08
- [Emacs-diffs] feature/aptel/dynamic-modules-rc3 6478a32 03/35: intern literal strings as regular string., Noah Friedman, 2017/05/08
- [Emacs-diffs] feature/aptel/dynamic-modules-rc3 b8286d2 08/35: doc.c: don't prefix doc path by ../etc/ for modules, Noah Friedman, 2017/05/08
- [Emacs-diffs] feature/aptel/dynamic-modules-rc3 89c8287 11/35: opaque: add comments.,
Noah Friedman <=
- [Emacs-diffs] feature/aptel/dynamic-modules-rc3 79e2c28 05/35: change Subr doc field from char* to Lisp_Object., Noah Friedman, 2017/05/08
- [Emacs-diffs] feature/aptel/dynamic-modules-rc3 8254721 16/35: make `load' look for and handle dynamic modules., Noah Friedman, 2017/05/08
- [Emacs-diffs] feature/aptel/dynamic-modules-rc3 092a6d2 22/35: configure.ac: dynamic modules off by default., Noah Friedman, 2017/05/08
- [Emacs-diffs] feature/aptel/dynamic-modules-rc3 0cfb066 07/35: doc.c: use DOC format sanity checks instead of bytecompiled checks on module doc files., Noah Friedman, 2017/05/08
- [Emacs-diffs] feature/aptel/dynamic-modules-rc3 4000103 20/35: yaml module: add `yaml-parse-string'., Noah Friedman, 2017/05/08
- [Emacs-diffs] feature/aptel/dynamic-modules-rc3 4e1ad37 19/35: new yaml parsing module using libyaml, Noah Friedman, 2017/05/08
- [Emacs-diffs] feature/aptel/dynamic-modules-rc3 8147699 15/35: fix docstring., Noah Friedman, 2017/05/08
- [Emacs-diffs] feature/aptel/dynamic-modules-rc3 bfe16af 10/35: new module: opaque, Noah Friedman, 2017/05/08
- [Emacs-diffs] feature/aptel/dynamic-modules-rc3 582704c 14/35: curl: use url arg., Noah Friedman, 2017/05/08
- [Emacs-diffs] feature/aptel/dynamic-modules-rc3 9330ca6 12/35: new module: elisp, Noah Friedman, 2017/05/08