unofficial mirror of emacs-devel@gnu.org 
 help / color / mirror / code / Atom feed
From: Andreas Schwab <schwab@suse.de>
To: Ted Zlatanov <tzz@lifelogs.com>
Cc: emacs-devel@gnu.org
Subject: Re: hash-table-{to, from}-alist
Date: Tue, 02 Dec 2008 22:27:37 +0100	[thread overview]
Message-ID: <jeoczu1d4m.fsf@sykes.suse.de> (raw)
In-Reply-To: <86r64q70v3.fsf@lifelogs.com> (Ted Zlatanov's message of "Tue, 02 Dec 2008 14:56:00 -0600")

Ted Zlatanov <tzz@lifelogs.com> writes:

> I ended up with this code to put a list into Fmake_hash_table format
> ('params' is a Lisp_Object that holds a bunch of conses).
>
> 	      int param_count = 0;
> 	      Lisp_Object *pa = (Lisp_Object*) xmalloc(XFASTINT(Flength(params)) * sizeof(Lisp_Object));
>
> 	      while (!NILP(params))
> 		{
> 		  pa[param_count++] = CAR_SAFE(params);
> 		  params = CDR_SAFE(params);
> 		}
>
> 	      Lisp_Object ht = Fmake_hash_table(param_count, pa);

This is of course a memory leak, since pa is never freed.

> I would prefer it if I could avoid all that work, but it seems (from
> reading lisp.h and hunting for similar code) that it must be done as
> above.  I don't see a macro to convert a Lisp_Object that holds a list
> into the Lisp_Object* that a lot of functions need.

Since you know the max size of the array, just declare it as such.

(One more reason to implement it in Lisp.)

Andreas.

-- 
Andreas Schwab, SuSE Labs, schwab@suse.de
SuSE Linux Products GmbH, Maxfeldstraße 5, 90409 Nürnberg, Germany
PGP key fingerprint = 58CA 54C7 6D53 942B 1756  01D3 44D5 214B 8276 4ED5
"And now for something completely different."




  reply	other threads:[~2008-12-02 21:27 UTC|newest]

Thread overview: 86+ messages / expand[flat|nested]  mbox.gz  Atom feed  top
     [not found] <34f9604c-a23b-4ad9-9c84-f45884a6df23@x16g2000prn.googlegroups.com>
     [not found] ` <mailman.17732.1219901096.18990.help-gnu-emacs@gnu.org>
     [not found]   ` <bbbc0efc-affc-42dd-bfc0-ebe217ad7073@z6g2000pre.googlegroups.com>
     [not found]     ` <86od3dfd86.fsf@lifelogs.com>
     [not found]       ` <mailman.17796.1219947087.18990.help-gnu-emacs@gnu.org>
     [not found]         ` <868wuflxv9.fsf@lifelogs.com>
     [not found]           ` <mailman.17897.1220021571.18990.help-gnu-emacs@gnu.org>
2008-08-29 18:10             ` print hash table to disk and reread in hash table Ted Zlatanov
2008-08-30  5:18               ` tomas
2008-08-30  9:17                 ` Ted Zlatanov
2008-08-30 12:03                   ` tomas
2008-11-17 17:15                   ` Ted Zlatanov
2008-11-19 21:37                     ` hash-table-{to, from}-alist (was: print hash table to disk and reread in hash table) Ted Zlatanov
2008-11-19 21:57                       ` hash-table-{to, from}-alist Glenn Morris
2008-11-20 19:07                         ` Ted Zlatanov
2008-11-21 22:02                       ` Stefan Monnier
2008-11-21 22:22                         ` Ted Zlatanov
2008-11-22  3:18                           ` Stefan Monnier
2008-11-22  5:45                             ` tomas
2008-11-22 12:27                               ` Stephen J. Turnbull
2008-11-22 15:21                                 ` tomas
2008-11-22 17:38                                   ` Stephen J. Turnbull
2008-11-24 15:44                                     ` Richard M Stallman
2008-11-24 16:58                                       ` Stefan Monnier
2008-11-24 17:21                                       ` Ted Zlatanov
2008-11-25  1:50                                         ` Stephen J. Turnbull
2008-11-25 17:33                                           ` Ted Zlatanov
2008-11-25 23:50                                             ` Ted Zlatanov
2008-11-26  1:46                                               ` Stefan Monnier
2008-11-26  2:16                                                 ` David De La Harpe Golden
2008-11-26  3:48                                                   ` Stefan Monnier
2008-11-26  5:46                                                     ` David De La Harpe Golden
2008-11-26  2:29                                             ` Stephen J. Turnbull
2008-11-26  3:34                                               ` David De La Harpe Golden
2008-11-26 16:06                                               ` Ted Zlatanov
2008-11-26 18:10                                                 ` Stefan Monnier
2008-11-26 20:37                                                   ` Ted Zlatanov
2008-11-26 21:16                                                     ` Ted Zlatanov
2008-12-01 22:01                                                       ` Ted Zlatanov
2008-12-02  0:13                                                         ` Andreas Schwab
2008-12-02 14:27                                                           ` Ted Zlatanov
2008-12-02 21:59                                                           ` Stefan Monnier
2008-12-02 22:20                                                             ` Andreas Schwab
2008-12-02 20:56                                                         ` Ted Zlatanov
2008-12-02 21:27                                                           ` Andreas Schwab [this message]
2008-12-02 21:58                                                         ` Stefan Monnier
2008-12-03 19:25                                                           ` Ted Zlatanov
2008-12-04  2:05                                                             ` Stefan Monnier
2008-12-04  6:23                                                               ` Stephen J. Turnbull
2008-12-04  6:34                                                                 ` Miles Bader
2008-12-04  9:08                                                                   ` Andreas Schwab
2008-12-04 13:18                                                                   ` Stefan Monnier
2008-12-04 15:02                                                               ` Ted Zlatanov
2008-12-04 19:34                                                                 ` Stefan Monnier
2008-12-04 19:57                                                                   ` Ted Zlatanov
2009-07-30 18:24                                                                 ` Ted Zlatanov
2009-07-30 19:08                                                                   ` Chong Yidong
2009-07-30 19:22                                                                     ` Ted Zlatanov
2009-07-30 19:40                                                                       ` Chong Yidong
2009-07-30 21:04                                                                         ` Stefan Monnier
2009-07-31  1:30                                                                           ` Stefan Monnier
2009-07-31 17:49                                                                             ` Ted Zlatanov
2009-07-31 19:03                                                                               ` Stefan Monnier
2009-07-31 20:25                                                                                 ` Ted Zlatanov
2009-08-01  2:22                                                                                   ` Stephen J. Turnbull
2009-08-01 11:35                                                                                   ` Chong Yidong
2009-08-03 14:53                                                                                     ` Ted Zlatanov
2009-08-05  9:20                                                                                       ` Ted Zlatanov
2009-08-05 13:48                                                                                         ` Chong Yidong
2009-08-05 16:48                                                                                           ` Ted Zlatanov
2009-08-06 16:30                                                                                             ` Stefan Monnier
2009-08-06 16:47                                                                                               ` Ted Zlatanov
2009-08-08 18:36                                                                                                 ` Chong Yidong
2009-08-06 10:13                                                                                         ` Dan Nicolaescu
2009-08-06 16:58                                                                                         ` Florian Beck
2009-08-03 21:23                                                                                   ` Stefan Monnier
2009-07-31 18:10                                                                           ` Ted Zlatanov
2008-11-27  0:24                                                     ` Stephen J. Turnbull
2008-12-01 21:53                                                       ` Ted Zlatanov
2008-12-02  9:05                                                         ` Stephen J. Turnbull
2008-12-02 14:21                                                           ` Ted Zlatanov
2008-12-02 15:54                                                             ` Stephen J. Turnbull
2008-12-02 16:10                                                               ` Ted Zlatanov
2008-12-02 16:54                                                                 ` Stephen J. Turnbull
2008-12-02 22:19                                                         ` Stefan Monnier
2008-12-02 23:27                                                           ` Ted Zlatanov
2008-11-26 19:44                                                 ` Davis Herring
2008-11-26 20:41                                                   ` Ted Zlatanov
2008-11-25  2:57                                         ` Stefan Monnier
2008-11-25  7:02                                           ` Stephen J. Turnbull
2008-11-22  6:07                             ` Miles Bader
2008-11-22 15:27                               ` tomas
2008-11-22 18:57                             ` Ted Zlatanov

Reply instructions:

You may reply publicly to this message via plain-text email
using any one of the following methods:

* Save the following mbox file, import it into your mail client,
  and reply-to-all from there: mbox

  Avoid top-posting and favor interleaved quoting:
  https://en.wikipedia.org/wiki/Posting_style#Interleaved_style

  List information: https://www.gnu.org/software/emacs/

* Reply using the --to, --cc, and --in-reply-to
  switches of git-send-email(1):

  git send-email \
    --in-reply-to=jeoczu1d4m.fsf@sykes.suse.de \
    --to=schwab@suse.de \
    --cc=emacs-devel@gnu.org \
    --cc=tzz@lifelogs.com \
    /path/to/YOUR_REPLY

  https://kernel.org/pub/software/scm/git/docs/git-send-email.html

* If your mail client supports setting the In-Reply-To header
  via mailto: links, try the mailto: link
Be sure your reply has a Subject: header at the top and a blank line before the message body.
Code repositories for project(s) associated with this public inbox

	https://git.savannah.gnu.org/cgit/emacs.git

This is a public inbox, see mirroring instructions
for how to clone and mirror all data and code used for this inbox;
as well as URLs for read-only IMAP folder(s) and NNTP newsgroup(s).