Mercurial > hg > xemacs-beta
comparison src/lisp.h @ 4914:1628e3b9601a
When aborting due to unknown opcode, output more descriptive msg
-------------------- ChangeLog entries follow: --------------------
src/ChangeLog addition:
2010-02-02 Ben Wing <ben@xemacs.org>
* bytecode.c (execute_rare_opcode):
* lisp.h (abort_with_msg): New.
When aborting due to unknown opcode, output more descriptive msg.
author | Ben Wing <ben@xemacs.org> |
---|---|
date | Tue, 02 Feb 2010 15:19:15 -0600 |
parents | 6bc1f3f6cf0d |
children | 17362f371cc2 |
comparison
equal
deleted
inserted
replaced
4913:fc28cc192c91 | 4914:1628e3b9601a |
---|---|
1251 and line of the inline function, which is not very useful. */ | 1251 and line of the inline function, which is not very useful. */ |
1252 | 1252 |
1253 /* Highly dubious kludge */ | 1253 /* Highly dubious kludge */ |
1254 /* (thanks, Jamie, I feel better now -- ben) */ | 1254 /* (thanks, Jamie, I feel better now -- ben) */ |
1255 MODULE_API void assert_failed (const Ascbyte *, int, const Ascbyte *); | 1255 MODULE_API void assert_failed (const Ascbyte *, int, const Ascbyte *); |
1256 #define ABORT() (assert_failed (__FILE__, __LINE__, "ABORT()")) | 1256 #define ABORT() assert_failed (__FILE__, __LINE__, "ABORT()") |
1257 #define abort_with_msg(msg) assert_failed (__FILE__, __LINE__, msg) | |
1257 | 1258 |
1258 /* This used to be ((void) (0)) but that triggers lots of unused variable | 1259 /* This used to be ((void) (0)) but that triggers lots of unused variable |
1259 warnings. It's pointless to force all that code to be rewritten, with | 1260 warnings. It's pointless to force all that code to be rewritten, with |
1260 added ifdefs. Any reasonable compiler will eliminate an expression with | 1261 added ifdefs. Any reasonable compiler will eliminate an expression with |
1261 no effects. We keep this abstracted out like this in case we want to | 1262 no effects. We keep this abstracted out like this in case we want to |