mercurylang/mercury
1
0
Fork 0
mirror of https://github.com/Mercury-Language/mercury.git synced 2025-12-06 07:49:02 +00:00
Code Issues Projects Releases Wiki Activity

Catch GOTO(NULL), to make debugging easier.

Browse Source
This commit is contained in:
Fergus Henderson
1993-10-19 23:30:50 +00:00
parent 3eb8435b01
commit 28ad1217e9
1 changed files with 8 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files

8
runtime/imp.h
View File

@@ -155,12 +155,20 @@ static Word deref(Word p) {
#ifdef __GNUC__
#define LABEL(label) (&&label)
#ifdef SPEED
#define GOTO(label) goto *(label)
#else
#define GOTO(label) do { assert(label); goto *(label); } while(0)
#endif
#else
#define LABEL(label) (label)
#ifdef SPEED
#define GOTO(label) return (label)
#else
#define GOTO(label) do { assert(label); return (label); } while(0)
#endif
#endif