Parent Directory | Revision Log | Patch
revision 1.190.2.11 by handa, Mon Oct 4 01:19:47 2004 UTC | revision 1.190.2.12 by miles, Fri Nov 12 02:52:56 2004 UTC | |
---|---|---|
# | Line 2183 print_object (obj, printcharfun, escapef | Line 2183 print_object (obj, printcharfun, escapef |
2183 | PRINTCHAR ('>'); | PRINTCHAR ('>'); |
2184 | break; | break; |
2185 | ||
2186 | case Lisp_Misc_Save_Value: | |
2187 | strout ("#<save_value ", -1, -1, printcharfun, 0); | |
2188 | sprintf(buf, "ptr=0x%08lx int=%d", | |
2189 | (unsigned long) XSAVE_VALUE (obj)->pointer, | |
2190 | XSAVE_VALUE (obj)->integer); | |
2191 | strout (buf, -1, -1, printcharfun, 0); | |
2192 | PRINTCHAR ('>'); | |
2193 | break; | |
2194 | ||
2195 | default: | default: |
2196 | goto badtype; | goto badtype; |
2197 | } | } |
|
savannah-hackers-public@gnu.org | ViewVC Help |
Powered by ViewVC 1.1.26 |