Skip to content
Snippets Groups Projects
Commit 1484dfe2 authored by rtoy's avatar rtoy
Browse files

Gdb on OS X 10.2.8 (at least) doesn't like local variables names with

the same name as a structure name.  So change the name of the local.
(Stupid gdb.)
parent ced8187e
No related branches found
No related tags found
No related merge requests found
/* $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/lisp/alloc.c,v 1.8 2004/07/08 17:49:04 rtoy Exp $ */ /* $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/lisp/alloc.c,v 1.9 2005/04/16 02:05:06 rtoy Exp $ */
#include <string.h> #include <string.h>
...@@ -123,11 +123,11 @@ lispobj alloc_string(char *str) ...@@ -123,11 +123,11 @@ lispobj alloc_string(char *str)
lispobj alloc_sap(void *ptr) lispobj alloc_sap(void *ptr)
{ {
#ifndef alpha #ifndef alpha
struct sap *sap = (struct sap *)alloc_unboxed(type_Sap, 1); struct sap *sap_ptr = (struct sap *)alloc_unboxed(type_Sap, 1);
#else #else
struct sap *sap = (struct sap *)alloc_unboxed(type_Sap, 3); struct sap *sap_ptr = (struct sap *)alloc_unboxed(type_Sap, 3);
#endif #endif
sap->pointer = ptr; sap_ptr->pointer = ptr;
return (lispobj) sap | type_OtherPointer; return (lispobj) sap_ptr | type_OtherPointer;
} }
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment