(find_tag): find external references, we can't handle those, so tell
user that instead of crashing git-svn-id: svn://svn.h5l.se/heimdal/trunk/heimdal@15659 ec53bebd-3082-4978-b11e-865c3cabbd6b
This commit is contained in:
@@ -32,6 +32,7 @@
|
|||||||
*/
|
*/
|
||||||
|
|
||||||
#include "gen_locl.h"
|
#include "gen_locl.h"
|
||||||
|
#include "lex.h"
|
||||||
|
|
||||||
RCSID("$Id$");
|
RCSID("$Id$");
|
||||||
|
|
||||||
@@ -160,6 +161,14 @@ find_tag (const Type *t,
|
|||||||
*tag = t->tag.tagvalue;
|
*tag = t->tag.tagvalue;
|
||||||
break;
|
break;
|
||||||
case TType:
|
case TType:
|
||||||
|
if ((t->symbol->stype == Stype && t->symbol->type == NULL)
|
||||||
|
|| t->symbol->stype == SUndefined) {
|
||||||
|
error_message("%s is imported or still undefined, "
|
||||||
|
" can't generate tag checking data in CHOICE "
|
||||||
|
"without this information",
|
||||||
|
t->symbol->name);
|
||||||
|
exit(1);
|
||||||
|
}
|
||||||
find_tag(t->symbol->type, cl, ty, tag);
|
find_tag(t->symbol->type, cl, ty, tag);
|
||||||
return;
|
return;
|
||||||
case TUTCTime:
|
case TUTCTime:
|
||||||
|
Reference in New Issue
Block a user