text: #include "cinterface"
  static struct {
      TLint4	dummy;
      char	dummy2[1745];
  } TLFTAB =
      { 30,
      {'/', 'e', 'x', 'p', 'o', 'r', 't', '/', 'h', 'o', 'm', 'e', '/', 't', 'u', 'r', 'i', 'n', 'g', '/', 'o', 'o', 't', '/', 's', 'r', 'c', '/', 'l', 'a', 'n', 'g', 'u', 'a', 'g', 'e', '/', 'c', 'o', 'm', 'p', 'i', 'l', 'e', 'r', '/', 'l', 'i', 's', 't', 's', '.', 'b', 'd', '\0',
      '/', 'e', 'x', 'p', 'o', 'r', 't', '/', 'h', 'o', 'm', 'e', '/', 't', 'u', 'r', 'i', 'n', 'g', '/', 'o', 'o', 't', '/', 's', 'r', 'c', '/', 'l', 'a', 'n', 'g', 'u', 'a', 'g', 'e', '/', 'c', 'o', 'm', 'p', 'i', 'l', 'e', 'r', '/', 'l', 'i', 's', 't', 's', '.', 's', 't', '\0',
      '/', 'e', 'x', 'p', 'o', 'r', 't', '/', 'h', 'o', 'm', 'e', '/', 't', 'u', 'r', 'i', 'n', 'g', '/', 'o', 'o', 't', '/', 's', 'r', 'c', '/', 'l', 'a', 'n', 'g', 'u', 'a', 'g', 'e', '/', 'c', 'o', 'm', 'p', 'i', 'l', 'e', 'r', '/', '.', '.', '/', '.', '.', '/', 'f', 'i', 'l', 'e', 'm', 'a', 'n', '/', 'f', 'i', 'l', 'e', 'm', 'a', 'n', '.', 's', 't', '\0',
      '/', 'e', 'x', 'p', 'o', 'r', 't', '/', 'h', 'o', 'm', 'e', '/', 't', 'u', 'r', 'i', 'n', 'g', '/', 'o', 'o', 't', '/', 's', 'r', 'c', '/', 'l', 'a', 'n', 'g', 'u', 'a', 'g', 'e', '/', 'c', 'o', 'm', 'p', 'i', 'l', 'e', 'r', '/', '.', '.', '/', 'd', 'u', 'm', 'm', 'y', '.', 't', '\0',
      '/', 'e', 'x', 'p', 'o', 'r', 't', '/', 'h', 'o', 'm', 'e', '/', 't', 'u', 'r', 'i', 'n', 'g', '/', 'o', 'o', 't', '/', 's', 'r', 'c', '/', 'l', 'a', 'n', 'g', 'u', 'a', 'g', 'e', '/', 'c', 'o', 'm', 'p', 'i', 'l', 'e', 'r', '/', '.', '.', '/', 'e', 'n', 'v', 'i', 'r', 'o', 'n', '.', 's', 't', '\0',
      '/', 'e', 'x', 'p', 'o', 'r', 't', '/', 'h', 'o', 'm', 'e', '/', 't', 'u', 'r', 'i', 'n', 'g', '/', 'o', 'o', 't', '/', 's', 'r', 'c', '/', 'l', 'a', 'n', 'g', 'u', 'a', 'g', 'e', '/', 'c', 'o', 'm', 'p', 'i', 'l', 'e', 'r', '/', '.', '.', '/', 'm', 's', 'g', 's', '.', 'd', 'e', 'f', '\0',
      '/', 'e', 'x', 'p', 'o', 'r', 't', '/', 'h', 'o', 'm', 'e', '/', 't', 'u', 'r', 'i', 'n', 'g', '/', 'o', 'o', 't', '/', 's', 'r', 'c', '/', 'l', 'a', 'n', 'g', 'u', 'a', 'g', 'e', '/', 'c', 'o', 'm', 'p', 'i', 'l', 'e', 'r', '/', '.', '.', '/', 'd', 'e', 'b', 'u', 'g', '.', 'd', 'e', 'f', '\0',
      '/', 'e', 'x', 'p', 'o', 'r', 't', '/', 'h', 'o', 'm', 'e', '/', 't', 'u', 'r', 'i', 'n', 'g', '/', 'o', 'o', 't', '/', 's', 'r', 'c', '/', 'l', 'a', 'n', 'g', 'u', 'a', 'g', 'e', '/', 'c', 'o', 'm', 'p', 'i', 'l', 'e', 'r', '/', '.', '.', '/', 'l', 'a', 'n', 'g', 'u', 'a', 'g', 'e', '.', 's', 't', '\0',
      '/', 'e', 'x', 'p', 'o', 'r', 't', '/', 'h', 'o', 'm', 'e', '/', 't', 'u', 'r', 'i', 'n', 'g', '/', 'o', 'o', 't', '/', 's', 'r', 'c', '/', 'l', 'a', 'n', 'g', 'u', 'a', 'g', 'e', '/', 'c', 'o', 'm', 'p', 'i', 'l', 'e', 'r', '/', '.', '.', '/', 'l', 'a', 'n', 'g', 'u', 'a', 'g', 'e', '.', 'b', 'd', '\0',
      '/', 'e', 'x', 'p', 'o', 'r', 't', '/', 'h', 'o', 'm', 'e', '/', 't', 'u', 'r', 'i', 'n', 'g', '/', 'o', 'o', 't', '/', 's', 'r', 'c', '/', 'l', 'a', 'n', 'g', 'u', 'a', 'g', 'e', '/', 'c', 'o', 'm', 'p', 'i', 'l', 'e', 'r', '/', '.', '.', '/', 'u', 'n', 'i', 't', 'm', 'a', 'n', '/', 'u', 'n', 'i', 't', 'm', 'a', 'n', '.', 's', 't', '\0',
      '/', 'e', 'x', 'p', 'o', 'r', 't', '/', 'h', 'o', 'm', 'e', '/', 't', 'u', 'r', 'i', 'n', 'g', '/', 'o', 'o', 't', '/', 's', 'r', 'c', '/', 'l', 'a', 'n', 'g', 'u', 'a', 'g', 'e', '/', 'c', 'o', 'm', 'p', 'i', 'l', 'e', 'r', '/', '.', '.', '/', 'e', 'r', 'r', 'o', 'r', '.', 's', 't', '\0',
      '/', 'e', 'x', 'p', 'o', 'r', 't', '/', 'h', 'o', 'm', 'e', '/', 't', 'u', 'r', 'i', 'n', 'g', '/', 'o', 'o', 't', '/', 's', 'r', 'c', '/', 'l', 'a', 'n', 'g', 'u', 'a', 'g', 'e', '/', 'c', 'o', 'm', 'p', 'i', 'l', 'e', 'r', '/', '.', '.', '/', 'e', 'x', 'e', 'c', 'u', 't', 'o', 'r', '/', 'p', 's', 'e', 'u', 'd', 'o', '.', 'd', 'e', 'f', '\0',
      '/', 'e', 'x', 'p', 'o', 'r', 't', '/', 'h', 'o', 'm', 'e', '/', 't', 'u', 'r', 'i', 'n', 'g', '/', 'o', 'o', 't', '/', 's', 'r', 'c', '/', 'l', 'a', 'n', 'g', 'u', 'a', 'g', 'e', '/', 'c', 'o', 'm', 'p', 'i', 'l', 'e', 'r', '/', '.', '.', '/', 'e', 'x', 'e', 'c', 'u', 't', 'o', 'r', '/', 'o', 'p', 'c', 'o', 'd', 'e', '.', 'i', 'n', '\0',
      '/', 'e', 'x', 'p', 'o', 'r', 't', '/', 'h', 'o', 'm', 'e', '/', 't', 'u', 'r', 'i', 'n', 'g', '/', 'o', 'o', 't', '/', 's', 'r', 'c', '/', 'l', 'a', 'n', 'g', 'u', 'a', 'g', 'e', '/', 'c', 'o', 'm', 'p', 'i', 'l', 'e', 'r', '/', '.', '.', '/', 'd', 'e', 'b', 'u', 'g', '.', 's', 't', '\0',
      '/', 'e', 'x', 'p', 'o', 'r', 't', '/', 'h', 'o', 'm', 'e', '/', 't', 'u', 'r', 'i', 'n', 'g', '/', 'o', 'o', 't', '/', 's', 'r', 'c', '/', 'l', 'a', 'n', 'g', 'u', 'a', 'g', 'e', '/', 'c', 'o', 'm', 'p', 'i', 'l', 'e', 'r', '/', 'c', 'o', 'm', 'p', 'i', 'l', 'e', '.', 's', 't', '\0',
      '/', 'e', 'x', 'p', 'o', 'r', 't', '/', 'h', 'o', 'm', 'e', '/', 't', 'u', 'r', 'i', 'n', 'g', '/', 'o', 'o', 't', '/', 's', 'r', 'c', '/', 'l', 'a', 'n', 'g', 'u', 'a', 'g', 'e', '/', 'c', 'o', 'm', 'p', 'i', 'l', 'e', 'r', '/', 'c', 'o', 'm', 'p', 'i', 'l', 'e', '.', 'b', 'd', '\0',
      '/', 'l', 'o', 'c', 'a', 'l', '/', 'i', 'n', 'c', 'l', 'u', 'd', 'e', '/', 't', 'p', 'l', 'u', 's', '/', 'D', 'O', 'S', '3', '2', '/', 'm', 'e', 'm', 'o', 'r', 'y', '\0',
      '/', 'e', 'x', 'p', 'o', 'r', 't', '/', 'h', 'o', 'm', 'e', '/', 't', 'u', 'r', 'i', 'n', 'g', '/', 'o', 'o', 't', '/', 's', 'r', 'c', '/', 'l', 'a', 'n', 'g', 'u', 'a', 'g', 'e', '/', 'c', 'o', 'm', 'p', 'i', 'l', 'e', 'r', '/', 'g', 'l', 'o', 'b', 'a', 'l', '.', 'i', 'n', '\0',
      '/', 'e', 'x', 'p', 'o', 'r', 't', '/', 'h', 'o', 'm', 'e', '/', 't', 'u', 'r', 'i', 'n', 'g', '/', 'o', 'o', 't', '/', 's', 'r', 'c', '/', 'l', 'a', 'n', 'g', 'u', 'a', 'g', 'e', '/', 'c', 'o', 'm', 'p', 'i', 'l', 'e', 'r', '/', 'c', 'o', 'm', 'p', 'e', 'r', 'r', '.', 'd', 'e', 'f', '\0',
      '/', 'e', 'x', 'p', 'o', 'r', 't', '/', 'h', 'o', 'm', 'e', '/', 't', 'u', 'r', 'i', 'n', 'g', '/', 'o', 'o', 't', '/', 's', 'r', 'c', '/', 'l', 'a', 'n', 'g', 'u', 'a', 'g', 'e', '/', 'c', 'o', 'm', 'p', 'i', 'l', 'e', 'r', '/', 'c', 'o', 'm', 'p', 'e', 'r', 'r', '.', 'd', 'f', '2', '\0',
      '/', 'e', 'x', 'p', 'o', 'r', 't', '/', 'h', 'o', 'm', 'e', '/', 't', 'u', 'r', 'i', 'n', 'g', '/', 'o', 'o', 't', '/', 's', 'r', 'c', '/', 'l', 'a', 'n', 'g', 'u', 'a', 'g', 'e', '/', 'c', 'o', 'm', 'p', 'i', 'l', 'e', 'r', '/', 'c', 'o', 'm', 'p', 'e', 'r', 'r', '.', 's', 't', '\0',
      '/', 'e', 'x', 'p', 'o', 'r', 't', '/', 'h', 'o', 'm', 'e', '/', 't', 'u', 'r', 'i', 'n', 'g', '/', 'o', 'o', 't', '/', 's', 'r', 'c', '/', 'l', 'a', 'n', 'g', 'u', 'a', 'g', 'e', '/', 'c', 'o', 'm', 'p', 'i', 'l', 'e', 'r', '/', 'm', 'e', 'm', 'o', 'r', 'y', '.', 's', 't', '\0',
      '/', 'e', 'x', 'p', 'o', 'r', 't', '/', 'h', 'o', 'm', 'e', '/', 't', 'u', 'r', 'i', 'n', 'g', '/', 'o', 'o', 't', '/', 's', 'r', 'c', '/', 'l', 'a', 'n', 'g', 'u', 'a', 'g', 'e', '/', 'c', 'o', 'm', 'p', 'i', 'l', 'e', 'r', '/', 's', 'c', 'a', 'n', 'n', 'e', 'r', '/', 's', 'c', 'a', 'n', 'n', 'e', 'r', '.', 's', 't', '\0',
      '/', 'e', 'x', 'p', 'o', 'r', 't', '/', 'h', 'o', 'm', 'e', '/', 't', 'u', 'r', 'i', 'n', 'g', '/', 'o', 'o', 't', '/', 's', 'r', 'c', '/', 'l', 'a', 'n', 'g', 'u', 'a', 'g', 'e', '/', 'c', 'o', 'm', 'p', 'i', 'l', 'e', 'r', '/', 'p', 'r', 'e', 's', 'c', 'a', 'n', '.', 's', 't', '\0',
      '/', 'e', 'x', 'p', 'o', 'r', 't', '/', 'h', 'o', 'm', 'e', '/', 't', 'u', 'r', 'i', 'n', 'g', '/', 'o', 'o', 't', '/', 's', 'r', 'c', '/', 'l', 'a', 'n', 'g', 'u', 'a', 'g', 'e', '/', 'c', 'o', 'm', 'p', 'i', 'l', 'e', 'r', '/', 's', 'c', 'o', 'p', 'e', '.', 's', 't', '\0',
      '/', 'e', 'x', 'p', 'o', 'r', 't', '/', 'h', 'o', 'm', 'e', '/', 't', 'u', 'r', 'i', 'n', 'g', '/', 'o', 'o', 't', '/', 's', 'r', 'c', '/', 'l', 'a', 'n', 'g', 'u', 'a', 'g', 'e', '/', 'c', 'o', 'm', 'p', 'i', 'l', 'e', 'r', '/', 'v', 'a', 'l', 'u', 'e', '.', 's', 't', '\0',
      '/', 'e', 'x', 'p', 'o', 'r', 't', '/', 'h', 'o', 'm', 'e', '/', 't', 'u', 'r', 'i', 'n', 'g', '/', 'o', 'o', 't', '/', 's', 'r', 'c', '/', 'l', 'a', 'n', 'g', 'u', 'a', 'g', 'e', '/', 'c', 'o', 'm', 'p', 'i', 'l', 'e', 'r', '/', 't', 'y', 'p', 'e', 's', '.', 's', 't', '\0',
      '/', 'e', 'x', 'p', 'o', 'r', 't', '/', 'h', 'o', 'm', 'e', '/', 't', 'u', 'r', 'i', 'n', 'g', '/', 'o', 'o', 't', '/', 's', 'r', 'c', '/', 'l', 'a', 'n', 'g', 'u', 'a', 'g', 'e', '/', 'c', 'o', 'm', 'p', 'i', 'l', 'e', 'r', '/', 's', 'y', 'm', 'b', 'o', 'l', '.', 's', 't', '\0',
      '/', 'e', 'x', 'p', 'o', 'r', 't', '/', 'h', 'o', 'm', 'e', '/', 't', 'u', 'r', 'i', 'n', 'g', '/', 'o', 'o', 't', '/', 's', 'r', 'c', '/', 'l', 'a', 'n', 'g', 'u', 'a', 'g', 'e', '/', 'c', 'o', 'm', 'p', 'i', 'l', 'e', 'r', '/', 'c', 'o', 'd', 'e', 'r', '.', 's', 't', '\0',
      '/', 'e', 'x', 'p', 'o', 'r', 't', '/', 'h', 'o', 'm', 'e', '/', 't', 'u', 'r', 'i', 'n', 'g', '/', 'o', 'o', 't', '/', 's', 'r', 'c', '/', 'l', 'a', 'n', 'g', 'u', 'a', 'g', 'e', '/', 'c', 'o', 'm', 'p', 'i', 'l', 'e', 'r', '/', 'p', 'r', 'e', 'd', 'e', 'f', '.', 's', 't', '\0'
      }};
  typedef	TLnat2	FileManager_FileNoType;
  typedef	TLnat4	FileManager_FileTimeStamp;
  typedef	TLint2	FileManager_ResultCode;
  
  extern void FileManager_OpenNamedHandle ();
  
  extern void FileManager_OpenUnnamedHandle ();
  
  extern void FileManager_OpenFileHandle ();
  
  extern void FileManager_SetModified ();
  
  extern void FileManager_WriteFile ();
  
  extern void FileManager_WriteBackup ();
  
  extern void FileManager_WriteTemp ();
  
  extern void FileManager_RmTemp ();
  
  extern void FileManager_CloseFileHandle ();
  
  extern void FileManager_OpenNamedText ();
  
  extern void FileManager_OpenFileText ();
  
  extern void FileManager_CloseFileText ();
  
  extern void FileManager_CloseAllText ();
  
  extern void FileManager_ChangeDirectory ();
  
  extern void FileManager_GetDirectory ();
  
  extern void FileManager_ChangeExecDirectory ();
  
  extern void FileManager_GetExecDirectory ();
  
  extern void FileManager_ShortName ();
  
  extern void FileManager_RelativeName ();
  
  extern void FileManager_PathName ();
  
  extern void FileManager_ExecPathName ();
  
  extern void FileManager_ExtendName ();
  
  extern void FileManager_FileName ();
  
  extern TLboolean FileManager_IsUnnamed ();
  
  extern TLboolean FileManager_IsOnDisk ();
  
  extern TLboolean FileManager_IsSameFile ();
  
  extern TLboolean FileManager_IsReadOK ();
  
  extern TLboolean FileManager_IsWriteOK ();
  
  extern TLboolean FileManager_IsOlder ();
  
  extern TLboolean FileManager_FileExists ();
  
  extern void FileManager_AddReference ();
  
  extern void FileManager_DeleteReference ();
  
  extern void FileManager_ReadTimeStamp ();
  
  extern void FileManager_FlushUnreferencedFiles ();
  
  extern void FileManager_CheckReferencedFiles ();
  
  extern void FileManager_RmFile ();
  
  extern void FileManager_SetDefaultInclude ();
  
  extern void FileManager_AssertTextClosed ();
  
  extern void FileManager_Dump ();
  
  extern TLboolean AbortCheck ();
  
  extern void FeedBack ();
  struct	SrcPosition {
      TLnat2	lineNo;
      FileManager_FileNoType	fileNo;
      TLnat2	linePos;
      TLnat2	tokLen;
  };
  typedef	TLchar	__x2697[256];
  struct	ErrMsgDef {
      struct ErrMsgDef	*next;
      struct SrcPosition	srcPos;
      __x2697	text;
  };
  typedef	TLint4	CookieKind;
  struct	Cookie {
      CookieKind	kind;
      TLaddressint	item;
      TLaddressint	fp;
      TLaddressint	data;
  };
  struct	CallDef {
      struct CallDef	*next;
      TLstring	routineName;
      struct SrcPosition	srcPos;
      struct Cookie	cookie;
  };
  struct	ThreadDef {
      struct ThreadDef	*next;
      TLaddressint	threadId;
      TLaddressint	threadName;
      struct CallDef	*traceback;
  };
  struct	ThreadQueueDef {
      struct ThreadQueueDef	*next;
      TLaddressint	queueId;
      TLstring	queueName;
      struct ThreadDef	*threadList;
  };
  struct	DumpIndexDef {
      struct DumpIndexDef	*next;
      TLint4	lowerBound;
      TLint4	upperBound;
  };
  struct	DumpSymbolDef {
      struct DumpSymbolDef	*next;
      TLaddressint	symbolName;
      TLaddressint	typeName;
      struct SrcPosition	srcPos;
      TLstring	value;
      struct Cookie	cookie;
      TLboolean	isPredef;
  };
  struct	DumpScopeDef {
      struct DumpSymbolDef	symbolInfo;
      struct Cookie	expandCookie;
      struct DumpSymbolDef	*parameters;
      struct DumpSymbolDef	*declarations;
  };
  
  extern void Language_Debugging ();
  
  extern void Language_Paragraph ();
  
  extern void Language_Reset ();
  
  extern void Language_SetMaxErrorCount ();
  typedef	TLstring	__x2698[20];
  
  extern void Language_EnterPreprocSymbols ();
  
  extern void Language_CompileUnit ();
  
  extern void Language_CompileProgram ();
  
  extern void Language_WriteObjectFile ();
  typedef	TLstring	__x2701[21];
  typedef	TLstring	__x2705[21];
  
  extern void Language_SetupExecution ();
  typedef	TLint1	Language_Step;
  
  extern void Language_SetStep ();
  typedef	TLint1	Language_ReturnState;
  struct	Language_RunStatus {
      Language_ReturnState	state;
      struct SrcPosition	srcPos;
      TLaddressint	threadId;
  };
  
  extern void Language_ExecuteProgram ();
  
  extern void Language_EndExecution ();
  
  extern void Language_StopExecution ();
  
  extern void Language_DumpThreadList ();
  
  extern void Language_DumpUnitList ();
  
  extern void Language_DumpScopeInfo ();
  
  extern void Language_DumpSymbolInfo ();
  
  extern void Language_DumpArrayBounds ();
  
  extern void Language_DumpArrayValues ();
  extern TLboolean	Language_debug;
  extern struct SrcPosition	Language_nullSrcPosition;
  extern struct Cookie	Language_nullCookie;
  extern struct DumpSymbolDef	Language_nullSymbolDef;
  extern struct DumpScopeDef	Language_nullScopeDef;
  typedef	TLint1	Language_UnitManager_UnitKind;
  typedef	TLint1	Language_UnitManager_UnitStatus;
  
  extern void Language_UnitManager_AddDepend ();
  
  extern void Language_UnitManager_AddIncludeFile ();
  
  extern void Language_UnitManager_AllocateCompileChunk ();
  
  extern void * Language_UnitManager_BodyUnit ();
  
  extern void Language_UnitManager_ClearAllMarks ();
  
  extern void Language_UnitManager_ClearConfiguration ();
  
  extern TLaddressint Language_UnitManager_CodeTable ();
  
  extern FileManager_FileNoType Language_UnitManager_FileNo ();
  
  extern void Language_UnitManager_FlushOldUnits ();
  
  extern void Language_UnitManager_GetNextDepend ();
  
  extern void Language_UnitManager_GetNextUnit ();
  
  extern void Language_UnitManager_GetUnitPtr ();
  
  extern TLaddressint Language_UnitManager_GlobalArea ();
  
  extern TLint4 Language_UnitManager_GlobalSize ();
  
  extern TLboolean Language_UnitManager_IsCompiled ();
  
  extern TLboolean Language_UnitManager_IsMarked ();
  
  extern TLboolean Language_UnitManager_IsPredef ();
  
  extern Language_UnitManager_UnitKind Language_UnitManager_Kind ();
  
  extern TLaddressint Language_UnitManager_ManifestTable ();
  
  extern void * Language_UnitManager_OverrideBody ();
  
  extern void Language_UnitManager_PrepareForCompile ();
  
  extern void Language_UnitManager_PrepareForDepends ();
  
  extern void Language_UnitManager_PrepareForScan ();
  
  extern void Language_UnitManager_Reset ();
  
  extern void Language_UnitManager_RewindDependList ();
  
  extern void Language_UnitManager_RewindUnitList ();
  
  extern void Language_UnitManager_SetCodeTable ();
  
  extern void Language_UnitManager_SetDefaultBody ();
  
  extern void Language_UnitManager_SetGlobalArea ();
  
  extern void Language_UnitManager_SetKind ();
  
  extern void Language_UnitManager_SetManifestTable ();
  
  extern void Language_UnitManager_SetMark ();
  
  extern void Language_UnitManager_SetOverrideBody ();
  
  extern void Language_UnitManager_SetPredef ();
  
  extern void Language_UnitManager_SetStub ();
  
  extern void Language_UnitManager_SetSymbolTable ();
  
  extern void Language_UnitManager_StartNewProgram ();
  
  extern void * Language_UnitManager_StubUnit ();
  
  extern void Language_UnitManager_SuccessfulCompile ();
  
  extern TLaddressint Language_UnitManager_SymbolTable ();
  typedef	TLint1	Language_ErrorModule_Severity;
  
  extern void Language_ErrorModule_Initialize ();
  
  extern void Language_ErrorModule_SetMaxErrors ();
  
  extern void Language_ErrorModule_Message ();
  
  extern void Language_ErrorModule_AbortIfErrors ();
  
  extern void Language_ErrorModule_ReturnErrors ();
  typedef	Language_ErrorModule_Severity	Language_ErrorSeverity;
  typedef	TLstring	Language_StringDef;
  typedef	TLnat4	Language_Offset;
  extern TLint4	Language_codeOprSize;
  extern TLint4	Language_codeInt1Size;
  extern TLint4	Language_codeInt2Size;
  extern TLint4	Language_codeIntSize;
  extern TLint4	Language_codeRealSize;
  extern TLint4	Language_codeAddrSize;
  extern TLint4	Language_codeOffsetSize;
  typedef	TLchar	Language_string1[2];
  typedef	TLnat1	Language_set8;
  typedef	TLnat2	Language_set16;
  typedef	TLnat4	Language_set32;
  typedef	TLint2	Language_Opcode;
  typedef	TLchar	Language___x2709[22];
  typedef	Language___x2709	Language___x2708[255];
  extern Language___x2708	Language_OpcodeName;
  struct	Language_CodeHeader {
      TLaddressint	bodyCode;
  };
  struct	Language___x2711 {
      TLint4	lower, range;
  };
  typedef	struct Language___x2711	Language___x2710[255];
  struct	Language_ArrayDescriptor {
      TLnat4	sizeArray;
      TLnat4	sizeElement;
      TLnat4	elementCount;
      TLnat4	numDimensions;
      Language___x2710	dim;
  };
  struct	Language_ForDescriptor {
      TLint4	counter;
      TLint4	right;
      TLint4	step;
      TLaddressint	savedSP;
  };
  typedef	Language_Offset	Language___x2712[1001];
  struct	Language_CaseDescriptor {
      TLint4	lower, upper;
      Language_Offset	otherwise;
      Language___x2712	caseVector;
  };
  struct	Language_PointerDescriptor {
      TLaddressint	dataPtr;
      TLint4	timestamp;
  };
  typedef	TLnat2	Language___x2713[301];
  struct	Language_UnionMapDescriptor {
      TLint4	lower, upper;
      Language___x2713	map;
  };
  typedef	TLnat4	Language_ClassAttr;
  struct	Language_ClassDescriptor {
      TLaddressint	baseClass;
      TLaddressint	expandClass;
      Language_ClassAttr	attributes;
      TLnat4	objSize;
      TLaddressint	classId;
      TLaddressint	initRoutine;
      TLnat4	numOperations;
  };
  typedef	TLint1	Language_OpenKind;
  typedef	TLint1	Language_PutKind;
  typedef	TLint1	Language_GetKind;
  typedef	TLint1	Language_SetStreamKind;
  typedef	TLnat1	Language_StreamModeSet;
  typedef	TLint1	Language_SubstringKind;
  typedef	TLint1	Language_RangeCheckKind;
  typedef	TLint1	Language_ConditionKind;
  
  extern void Language_DebugModule_Initialize ();
  
  extern void Language_DebugModule_NewQueue ();
  
  extern void Language_DebugModule_NewThread ();
  
  extern void Language_DebugModule_NewCall ();
  
  extern void Language_DebugModule_ReturnThreadDump ();
  
  extern void Language_DebugModule_NewSymbolList ();
  
  extern void Language_DebugModule_NewSymbol ();
  
  extern void Language_DebugModule_ReturnSymbolDump ();
  
  extern void Language_DebugModule_NewIndexList ();
  
  extern void Language_DebugModule_NewIndex ();
  
  extern void Language_DebugModule_ReturnIndexDump ();
  
  extern void Language_Compile_Reset ();
  
  extern void Language_Compile_Initialize ();
  typedef	TLstring	__x2716[20];
  
  extern void Language_Compile_EnterPreprocSymbols ();
  
  extern void Language_Compile_ScanUnit ();
  
  extern void Language_Compile_CompileUnit ();
  
  extern void Language_Compile_InstallUnit ();
  
  extern void Language_Compile_CallInfo ();
  
  extern void Language_Compile_DumpUnitList ();
  
  extern void Language_Compile_DumpScopeInfo ();
  
  extern void Language_Compile_DumpSymbolInfo ();
  
  extern void Language_Compile_DumpArrayBounds ();
  
  extern void Language_Compile_DumpArrayValues ();
  
  extern void Language_Compile_SetObjectFileStream ();
  
  extern TLaddressint malloc ();
  
  extern TLaddressint realloc ();
  
  extern void free ();
  typedef	TLnat1	Language_Compile_Tok;
  typedef	TLchar	Language_Compile___x2721[16];
  struct	Language_Compile___x2720 {
      Language_Compile___x2721	Name;
      TLnat2	Precedence;
  };
  typedef	struct Language_Compile___x2720	Language_Compile___x2719[159];
  extern Language_Compile___x2719	Language_Compile_TokData;
  typedef	TLint1	Language_Compile_PPTok;
  typedef	TLchar	Language_Compile___x2723[8];
  typedef	Language_Compile___x2723	Language_Compile___x2722[16];
  extern Language_Compile___x2722	Language_Compile_PPTokName;
  typedef	TLint1	Language_Compile_TypeKind;
  typedef	TLchar	Language_Compile___x2725[16];
  typedef	Language_Compile___x2725	Language_Compile___x2724[33];
  extern Language_Compile___x2724	Language_Compile_TypeKindName;
  typedef	TLchar	Language_Compile___x2727[16];
  typedef	Language_Compile___x2727	Language_Compile___x2726[33];
  extern Language_Compile___x2726	Language_Compile_TypeKindKeyword;
  typedef	TLint1	Language_Compile_TyModes;
  typedef	TLchar	Language_Compile___x2729[12];
  typedef	Language_Compile___x2729	Language_Compile___x2728[10];
  extern Language_Compile___x2728	Language_Compile_TyModeName;
  typedef	TLnat2	Language_Compile_TyModesSet;
  typedef	TLint2	Language_Compile_PredType;
  typedef	Language_Compile_TypeKind	Language_Compile___x2730[27];
  extern Language_Compile___x2730	Language_Compile_PredTypeKind;
  typedef	Language_Compile_TyModesSet	Language_Compile___x2731[27];
  extern Language_Compile___x2731	Language_Compile_PredTypeMode;
  typedef	TLint2	Language_Compile_FormalType;
  typedef	TLint2	Language_Compile_Predef;
  typedef	TLchar	Language_Compile___x2734[20];
  struct	Language_Compile___x2733 {
      Language_Compile___x2734	Name;
      Language_Compile_FormalType	FormalList;
      Language_Compile_PredType	ResultType;
  };
  typedef	struct Language_Compile___x2733	Language_Compile___x2732[25];
  extern Language_Compile___x2732	Language_Compile_PredefData;
  typedef	TLchar	Language_Compile___x2735[256];
  struct	Language_Compile_CharDef {
      TLint4	len;
      Language_Compile___x2735	val;
  };
  struct	Language_Compile_IdentDef {
      struct Language_Compile_IdentDef	*nextIdent;
      Language_Compile_Tok	tok;
      Language_Compile_PPTok	ppTok;
      Language_StringDef	str;
  };
  typedef	TLint1	Language_Compile_SymbolKind;
  typedef	TLchar	Language_Compile___x2737[14];
  typedef	Language_Compile___x2737	Language_Compile___x2736[10];
  extern Language_Compile___x2736	Language_Compile_SymbolKindName;
  typedef	TLint1	Language_Compile_Access;
  typedef	TLchar	Language_Compile___x2739[6];
  typedef	Language_Compile___x2739	Language_Compile___x2738[3];
  extern Language_Compile___x2738	Language_Compile_AccessName;
  typedef	TLint1	Language_Compile_SyAttributes;
  typedef	TLchar	Language_Compile___x2741[16];
  typedef	Language_Compile___x2741	Language_Compile___x2740[20];
  extern Language_Compile___x2740	Language_Compile_SyAttribName;
  typedef	TLnat4	Language_Compile_SyAttributeSet;
  typedef	TLnat1	Language_Compile_ImportDepthType;
  struct	Language_Compile_IndexDef {
      struct Language_Compile_IndexDef	*next;
      struct Language_Compile_TypeDef	*ty;
  };
  typedef	TLint1	Language_Compile_ExportKind;
  typedef	TLchar	Language_Compile___x2743[16];
  typedef	Language_Compile___x2743	Language_Compile___x2742[4];
  extern Language_Compile___x2742	Language_Compile_ExportKindName;
  typedef	TLnat1	Language_Compile_ExportKindSet;
  struct	Language_Compile_ExportDef {
      struct Language_Compile_ExportDef	*next;
      struct Language_Compile_IdentDef	*identPtr;
      struct Language_Compile_SymbolDef	*symbolPtr;
      struct Language_Compile_TypeDef	*opaqueTypePtr;
      Language_Compile_ExportKindSet	kind;
  };
  struct	Language_Compile_ImportDef {
      struct Language_Compile_ImportDef	*next;
      struct Language_Compile_SymbolDef	*sy;
      Language_Compile_Access	newAccess;
      Language_Compile_Access	oldAccess;
      Language_Compile_ImportDepthType	oldImportDepth;
      TLboolean	overridesExpand;
  };
  struct	Language_Compile_DynamicDef {
      struct Language_Compile_DynamicDef	*next;
      struct Language_Compile_SymbolDef	*sy;
  };
  typedef	TLint1	Language_Compile_BlockKind;
  typedef	TLchar	Language_Compile___x2745[10];
  typedef	Language_Compile___x2745	Language_Compile___x2744[16];
  extern Language_Compile___x2744	Language_Compile_BlockKindName;
  struct	Language_Compile_BlockDef {
      struct Language_Compile_BlockDef	*parentBlock;
      struct Language_Compile_BlockDef	*siblingBlock;
      struct Language_Compile_BlockDef	*childBlock;
      struct Language_Compile_BlockDef	*expandBlock;
      struct Language_Compile_SymbolDef	*internalSymbols;
      struct Language_Compile_SymbolDef	*parentSymbols;
      struct Language_Compile_SymbolDef	*definingSymbol;
      Language_Offset	codeStartOffset;
      Language_Offset	codeEndOffset;
      struct Language_Compile_DynamicDef	*dynamics;
      Language_Compile_BlockKind	kind;
      TLboolean	reachable;
      TLboolean	resolvingNeeded;
  };
  typedef	TLint1	Language_Compile_Base;
  typedef	TLchar	Language_Compile___x2747[12];
  typedef	Language_Compile___x2747	Language_Compile___x2746[10];
  extern Language_Compile___x2746	Language_Compile_BaseName;
  typedef	TLint1	Language_Compile_Indirection;
  typedef	TLchar	Language_Compile___x2749[10];
  typedef	Language_Compile___x2749	Language_Compile___x2748[3];
  extern Language_Compile___x2748	Language_Compile_IndirName;
  struct	Language_Compile_Location {
      void	*unitPtr;
      Language_Compile_Base	base;
      Language_Compile_Indirection	indir;
      Language_Offset	offset;
  };
  extern struct Language_Compile_Location	Language_Compile_nullLocation;
  struct	Language_Compile_DeferredLocDef {
      struct Language_Compile_DeferredLocDef	*next;
      struct Language_Compile_SymbolDef	*sy;
      struct Language_Compile_Location	loc;
  };
  struct	Language_Compile___x2750 {
      Language_Compile_SymbolKind	syTag;
      union {
  	struct {
  	    struct Language_Compile_SymbolDef	*mExpandSy;
  	    struct Language_Compile_ImportDef	*mImportsOf;
  	    struct Language_Compile_ExportDef	*mExportsOf;
  	    Language_Compile_ExportKindSet	mExportAllKind;
  	    struct Language_Compile_SymbolDef	*mMonitorVar;
  	    struct Language_Compile_SymbolDef	*mClassTagSy;
  	    TLint4	mDeferredNum;
  	    struct Language_Compile_DeferredLocDef	*mDeferredLocs;
  	} __u2;
  	struct {
  	    struct Language_Compile_ValueDef	*cValue;
  	} __u3;
  	struct {
  	    struct Language_Compile_SymbolDef	*fFormalsOf;
  	    struct Language_Compile_ImportDef	*fImportsOf;
  	    struct Language_Compile_SymbolDef	*ResultsId;
  	    struct Language_Compile_TypeDef	*ResultType;
  	} __u4;
  	struct {
  	    struct Language_Compile_SymbolDef	*pFormalsOf;
  	    struct Language_Compile_ImportDef	*pImportsOf;
  	    struct Language_Compile_ValueDef	*pValue;
  	} __u5;
  	struct {
  	    TLint4	unionNumber;
  	} __u6;
      } __u1;
  } ;
  struct	Language_Compile_SymbolDef {
      struct Language_Compile_SymbolDef	*next;
      struct Language_Compile_IdentDef	*identPtr;
      struct Language_Compile_TypeDef	*tyPtr;
      Language_Compile_Access	access;
      Language_Compile_ImportDepthType	importDepth;
      Language_Compile_Predef	predefined;
      Language_Compile_SyAttributeSet	attributes;
      struct Language_Compile_SymbolDef	*definingSy;
      struct Language_Compile_BlockDef	*blockScope;
      struct Language_Compile_Location	loc;
      struct SrcPosition	srcPos;
      Language_Offset	definingOffset;
      struct Language_Compile___x2750	u;
  };
  struct	Language_Compile_IntListDef {
      struct Language_Compile_IntListDef	*next;
      TLint4	value;
  };
  struct	Language_Compile_UnionDef {
      struct Language_Compile_UnionDef	*next;
      struct Language_Compile_SymbolDef	*firstSym;
      TLint4	numSyms;
      struct Language_Compile_IntListDef	*values;
      TLint4	uloc;
  };
  struct	Language_Compile___x2751 {
      Language_Compile_TypeKind	tyTag;
      union {
  	struct {
  	    struct Language_Compile_IndexDef	*IndexOf;
  	    struct Language_Compile_TypeDef	*aElementOf;
  	    struct Language_Compile_Location	aDescriptor;
  	} __u8;
  	struct {
  	    struct Language_Compile_SymbolDef	*cNameOf;
  	    struct Language_Compile_TypeDef	*cPointerTy;
  	    struct Language_Compile_TypeDef	*cUPointerTy;
  	} __u9;
  	struct {
  	    struct Language_Compile_SymbolDef	*EnumIds;
  	    struct Language_Compile_Location	eDescriptor;
  	} __u10;
  	struct {
  	    struct Language_Compile_BlockDef	*blockLevel;
  	} __u11;
  	struct {
  	    struct Language_Compile_SymbolDef	*sNameOf;
  	} __u12;
  	struct {
  	    struct Language_Compile_SymbolDef	*oNameOf;
  	    struct Language_Compile_TypeDef	*tyOf;
  	} __u13;
  	struct {
  	    struct Language_Compile_SymbolDef	*pNameOf;
  	    struct Language_Compile_TypeDef	*pElementOf;
  	} __u14;
  	struct {
  	    struct Language_Compile_SymbolDef	*rFieldsOf;
  	} __u15;
  	struct {
  	    struct Language_Compile_TypeDef	*BaseOf;
  	    TLboolean	sIsScalar;
  	} __u16;
  	struct {
  	    TLint4	stringSize;
  	} __u17;
  	struct {
  	    struct Language_Compile_Location	sDescriptor;
  	} __u18;
  	struct {
  	    TLint4	low;
  	    TLint4	high;
  	    struct Language_Compile_TypeDef	*Root;
  	} __u19;
  	struct {
  	    struct Language_Compile_SymbolDef	*TagOf;
  	    struct Language_Compile_SymbolDef	*uFieldsOf;
  	    struct Language_Compile_UnionDef	*map;
  	    struct Language_Compile_Location	mapLocation;
  	    struct Language_Compile_Location	uninitMap;
  	} __u20;
  	struct {
  	    struct Language_Compile_TypeDef	*tyPtr;
  	} __u21;
      } __u7;
  } ;
  struct	Language_Compile_TypeDef {
      struct Language_Compile_SymbolDef	*typeName;
      Language_Compile_TyModesSet	mode;
      TLint1	alignment;
      struct Language_Compile_Location	uninitTableLoc;
      TLint4	tSize;
      struct Language_Compile___x2751	u;
  };
  typedef	TLint1	Language_Compile_ValueKind;
  typedef	TLchar	Language_Compile___x2753[16];
  typedef	Language_Compile___x2753	Language_Compile___x2752[9];
  extern Language_Compile___x2752	Language_Compile_ValueKindName;
  typedef	TLnat4	Language_Compile_ValueSetType;
  struct	Language_Compile___x2754 {
      Language_Compile_ValueKind	valTag;
      union {
  	struct {
  	    struct Language_Compile_ValueDef	*next;
  	} __u23;
  	struct {
  	    TLboolean	boolVal;
  	} __u24;
  	struct {
  	    TLchar	charVal;
  	} __u25;
  	struct {
  	    struct Language_Compile_CharDef	*cstrVal;
  	} __u26;
  	struct {
  	    TLboolean	negative;
  	    TLnat4	natVal;
  	} __u27;
  	struct {
  	    TLreal8	realVal;
  	} __u28;
  	struct {
  	    Language_Compile_ValueSetType	setVal;
  	} __u29;
  	struct {
  	    Language_StringDef	*stringVal;
  	} __u30;
      } __u22;
  } ;
  struct	Language_Compile_ValueDef {
      TLboolean	saved;
      struct Language_Compile___x2754	u;
  };
  struct	Language_Compile___x2755 {
      Language_Compile_Tok	tok;
      union {
  	struct {
  	    struct Language_Compile_CharDef	*cstrPtr;
  	} __u32;
  	struct {
  	    TLnat4	natVal;
  	} __u33;
  	struct {
  	    TLreal8	realVal;
  	} __u34;
  	struct {
  	    Language_StringDef	*strPtr;
  	} __u35;
      } __u31;
  } ;
  struct	Language_Compile_TokRecord {
      struct SrcPosition	srcPos;
      struct Language_Compile_IdentDef	*identPtr;
      struct Language_Compile___x2755	u;
  };
  extern struct Language_Compile_TokRecord	Language_Compile_newTok;
  extern struct Language_Compile_TokRecord	Language_Compile_oldTok;
  
  extern char *strcpy ();
  
  void Language_Compile_CleanChar ();
  
  void Language_Compile_CleanCString ();
  
  void Language_Compile_IdentToName ();
  
  void Language_Compile_TokenToName ();
  
  void Language_Compile_SymbolToName ();
  extern void	*Language_Compile_compilingUnit;
  extern void	*Language_Compile_predefUnit;
  
  extern void Language_Compile_CompileError_Add ();
  
  extern void Language_Compile_CompileError_Initialize ();
  
  extern TLnat4 Language_Compile_CompileError_Count ();
  
  extern void Language_Compile_Memory_Initialize ();
  
  extern void Language_Compile_Memory_Allocate ();
  
  extern void Language_Compile_Memory_Trim ();
  typedef	struct Language_Compile_IdentDef	*Language_Compile___x2776[118];
  extern Language_Compile___x2776	Language_Compile_keywordIdent;
  struct	Language_Compile___x2777 {
      struct Language_Compile_IdentDef	*anyclass;
      struct Language_Compile_IdentDef	*main;
      struct Language_Compile_IdentDef	*unit;
  };
  extern struct Language_Compile___x2777	Language_Compile_specialIdent;
  
  extern void Language_Compile_Scanner_Reset ();
  
  extern void Language_Compile_Scanner_EnterTok ();
  
  extern void Language_Compile_Scanner_Initialize ();
  
  extern void Language_Compile_Scanner_Scan ();
  
  extern void Language_Compile_Scanner_GetFileUnit ();
  typedef	TLstring	__x2778[20];
  
  extern void Language_Compile_Scanner_EnterPreprocSymbols ();
  
  void Language_Compile_DemandToken ();
  
  void Language_Compile_ExpectToken ();
  
  void Language_Compile_ExpectEnd ();
  
  void Language_Compile_EqWantColonEq ();
  
  void Language_Compile_GetUnitFile ();
  
  void Language_Compile_InitializeScan ();
  
  extern void Language_Compile_ScanUnit ();
  
  extern void Language_Compile_PreScan_VerifyConfiguration ();
  
  extern void Language_Compile_PreScan_VerifyPredefList ();
  extern struct Language_Compile_BlockDef	*Language_Compile_rootBlock;
  extern struct Language_Compile_BlockDef	*Language_Compile_blockStack;
  extern struct Language_Compile_SymbolDef	*Language_Compile_compilingSymbol;
  extern struct Language_Compile_SymbolDef	*Language_Compile_monitorSymbol;
  extern struct Language_Compile_SymbolDef	*Language_Compile_classSymbol;
  extern struct Language_Compile_SymbolDef	*Language_Compile_subprogramSymbol;
  extern Language_Compile_ImportDepthType	Language_Compile_currentImportDepth;
  extern struct Language_Compile_ValueDef	*Language_Compile_nonCompileTimeValue;
  extern struct Language_Compile_ValueDef	*Language_Compile_intValueOne;
  typedef	struct Language_Compile_TypeDef	*Language_Compile___x2787[27];
  extern Language_Compile___x2787	Language_Compile_predType;
  extern TLint4	Language_Compile_debugFile;
  extern void 	(*Language_Compile_DumpAll)();
  extern void 	(*Language_Compile_procDumpSym)();
  extern void 	(*Language_Compile_procDumpSymList)();
  extern void 	(*Language_Compile_procTargetType)();
  
  void Language_Compile_OutputIndent ();
  
  extern TLboolean Language_Compile_Scope_AncestorOf ();
  
  extern TLboolean Language_Compile_Scope_AtTopLevel ();
  
  extern TLboolean Language_Compile_Scope_ExpandScopeOk ();
  
  extern struct Language_Compile_ExportDef * Language_Compile_Scope_IdentInExportList ();
  
  extern struct Language_Compile_SymbolDef * Language_Compile_Scope_IdentInImmediateScope ();
  
  extern struct Language_Compile_SymbolDef * Language_Compile_Scope_IdentInImportList ();
  
  extern struct Language_Compile_SymbolDef * Language_Compile_Scope_IdentInList ();
  
  extern struct Language_Compile_SymbolDef * Language_Compile_Scope_IdentInScope ();
  
  extern TLboolean Language_Compile_Scope_InBlock ();
  
  extern void Language_Compile_Scope_DumpBlocks ();
  
  extern struct Language_Compile_CharDef * Language_Compile_Value_CharValue ();
  
  extern void Language_Compile_Value_Chr ();
  
  extern void Language_Compile_Value_ConvertToChar ();
  
  extern void Language_Compile_Value_ConvertToCharString ();
  
  extern void Language_Compile_Value_ConvertToReal ();
  
  extern void Language_Compile_Value_ConvertToString ();
  
  extern void Language_Compile_Value_EnterSetValue ();
  
  extern void Language_Compile_Value_Initialize ();
  
  extern TLint4 Language_Compile_Value_IntValue ();
  
  extern Language_Compile_ValueKind Language_Compile_Value_Kind ();
  
  extern void Language_Compile_Value_NonCompileTimeOperation ();
  
  extern void Language_Compile_Value_Ord ();
  
  extern void Language_Compile_Value_PerformOperation ();
  
  extern void Language_Compile_Value_PerformUnaryOperation ();
  
  extern void Language_Compile_Value_Pop ();
  
  extern void Language_Compile_Value_Push ();
  
  extern void Language_Compile_Value_PushCopy ();
  
  extern void Language_Compile_Value_PushInt ();
  
  extern void Language_Compile_Value_PushSet ();
  
  extern void Language_Compile_Value_PushToken ();
  
  extern TLreal8 Language_Compile_Value_RealValue ();
  
  extern void Language_Compile_Value_ReplaceLowHighWithEmptySet ();
  
  extern void Language_Compile_Value_ReplaceLowHighWithSetAll ();
  
  extern void Language_Compile_Value_ReplaceNonCompileTime ();
  
  extern void Language_Compile_Value_Save ();
  
  extern struct Language_Compile_ValueDef * Language_Compile_Value_Second ();
  
  extern Language_StringDef * Language_Compile_Value_StringValue ();
  
  extern void Language_Compile_Value_Swap ();
  
  extern struct Language_Compile_ValueDef * Language_Compile_Value_Top ();
  
  extern Language_Compile_ValueKind Language_Compile_Value_ValKind ();
  
  extern struct Language_Compile_TypeDef * Language_Compile_Value_ValueType ();
  
  extern void Language_Compile_Value_AssertStackEmpty ();
  
  extern void Language_Compile_Value_DumpValue ();
  
  extern void Language_Compile_Value_DumpValueStack ();
  
  extern TLint4 Language_Compile_Types_Alignment ();
  
  extern TLboolean Language_Compile_Types_Assignable ();
  
  extern void Language_Compile_Types_ClearMode ();
  
  extern void Language_Compile_Types_EnterAlignment ();
  
  extern void Language_Compile_Types_EnterDescriptorLocation ();
  
  extern void Language_Compile_Types_EnterElementType ();
  
  extern void Language_Compile_Types_EnterIndices ();
  
  extern void Language_Compile_Types_EnterMode ();
  
  extern void Language_Compile_Types_EnterPointerType ();
  
  extern void Language_Compile_Types_EnterPointerUncheckedType ();
  
  extern void Language_Compile_Types_EnterSetBase ();
  
  extern void Language_Compile_Types_EnterSize ();
  
  extern void Language_Compile_Types_EnterStorageSize ();
  
  extern void Language_Compile_Types_EnterTypeName ();
  
  extern void Language_Compile_Types_EnterUnionInfo ();
  
  extern void Language_Compile_Types_EnterUnionTag ();
  
  extern struct Language_Compile_SymbolDef * Language_Compile_Types_EnumIds ();
  
  extern TLboolean Language_Compile_Types_EquivVarType ();
  
  extern struct Language_Compile_SymbolDef * Language_Compile_Types_FieldsOf ();
  
  extern TLboolean Language_Compile_Types_HasMode ();
  
  extern TLint4 Language_Compile_Types_High ();
  
  extern struct Language_Compile_IndexDef * Language_Compile_Types_IndexOf ();
  
  extern void Language_Compile_Types_Initialize ();
  
  extern TLboolean Language_Compile_Types_IsCondition ();
  
  extern TLboolean Language_Compile_Types_IsDynamicType ();
  
  extern TLboolean Language_Compile_Types_IsIntType ();
  
  extern TLboolean Language_Compile_Types_IsNumeric ();
  
  extern TLboolean Language_Compile_Types_IsScalar ();
  
  extern Language_Compile_TypeKind Language_Compile_Types_Kind ();
  
  extern void Language_Compile_Types_LinkIdentListToType ();
  
  extern TLint4 Language_Compile_Types_Low ();
  
  extern void Language_Compile_Types_MakeTypeOpaque ();
  
  extern struct Language_Compile_SymbolDef * Language_Compile_Types_NameOf ();
  
  extern Language_Compile_TypeKind Language_Compile_Types_NumericKind ();
  
  extern void Language_Compile_Types_NumericType ();
  
  extern void Language_Compile_Types_Pack ();
  
  extern void Language_Compile_Types_Pop ();
  
  extern void Language_Compile_Types_PushBaseOf ();
  
  extern void Language_Compile_Types_PushElementType ();
  
  extern void Language_Compile_Types_PushNew ();
  
  extern void Language_Compile_Types_PushTagType ();
  
  extern void Language_Compile_Types_PushType ();
  
  extern void Language_Compile_Types_ReplaceCopy ();
  
  extern void Language_Compile_Types_ReplaceElementType ();
  
  extern void Language_Compile_Types_ReplacePointerType ();
  
  extern void Language_Compile_Types_ReplaceRootType ();
  
  extern void Language_Compile_Types_ReplaceSecondRootType ();
  
  extern void Language_Compile_Types_ReplaceType ();
  
  extern void Language_Compile_Types_ResetPredefines ();
  
  extern void Language_Compile_Types_ResolveForward ();
  
  extern struct Language_Compile_TypeDef * Language_Compile_Types_RootType ();
  
  extern Language_Compile_TypeKind Language_Compile_Types_RootTypeKind ();
  
  extern TLboolean Language_Compile_Types_Same ();
  
  extern TLboolean Language_Compile_Types_SameType ();
  
  extern struct Language_Compile_TypeDef * Language_Compile_Types_Second ();
  
  extern Language_Compile_TypeKind Language_Compile_Types_SecondKind ();
  
  extern TLint4 Language_Compile_Types_StrSize ();
  
  extern TLboolean Language_Compile_Types_StringComparisonTypes ();
  
  extern TLboolean Language_Compile_Types_StringTypes ();
  
  extern void Language_Compile_Types_Swap ();
  
  extern struct Language_Compile_SymbolDef * Language_Compile_Types_Tag ();
  
  extern struct Language_Compile_TypeDef * Language_Compile_Types_Third ();
  
  extern struct Language_Compile_TypeDef * Language_Compile_Types_Top ();
  
  extern TLint4 Language_Compile_Types_TypeSize ();
  
  extern struct Language_Compile_UnionDef * Language_Compile_Types_UnionMap ();
  
  extern void Language_Compile_Types_UnmakeTypeOpaque ();
  
  extern struct Language_Compile_TypeDef * Language_Compile_Types_UnOpaqueType ();
  
  extern TLboolean Language_Compile_Types_UnresolvedCollection ();
  
  extern void Language_Compile_Types_AssertStackEmpty ();
  
  extern void Language_Compile_Types_DumpType ();
  
  extern void Language_Compile_Types_DumpTypeStack ();
  typedef	TLint2	Language_Compile_Symbol_NewSymKinds;
  
  extern void Language_Compile_Symbol_AddDeferredLocation ();
  
  extern void Language_Compile_Symbol_AddExport ();
  
  extern void Language_Compile_Symbol_AddImport ();
  
  extern struct Language_Compile_BlockDef * Language_Compile_Symbol_BlockScope ();
  
  extern struct Language_Compile_SymbolDef * Language_Compile_Symbol_ClassTagSy ();
  
  extern void Language_Compile_Symbol_ClearAttribute ();
  
  extern void Language_Compile_Symbol_ClearSubprogramImports ();
  
  extern void Language_Compile_Symbol_EnterAttribute ();
  
  extern void Language_Compile_Symbol_EnterBlockScope ();
  
  extern void Language_Compile_Symbol_EnterClassTag ();
  
  extern void Language_Compile_Symbol_EnterExpand ();
  
  extern void Language_Compile_Symbol_EnterFormals ();
  
  extern void Language_Compile_Symbol_EnterInterruptProcedureValue ();
  
  extern void Language_Compile_Symbol_EnterKind ();
  
  extern void Language_Compile_Symbol_EnterLocation ();
  
  extern void Language_Compile_Symbol_EnterMonitorVar ();
  
  extern void Language_Compile_Symbol_EnterResultType ();
  
  extern void Language_Compile_Symbol_EnterResultsId ();
  
  extern void Language_Compile_Symbol_EnterType ();
  
  extern void Language_Compile_Symbol_EnterValue ();
  
  extern struct Language_Compile_SymbolDef * Language_Compile_Symbol_ExpandSy ();
  
  extern struct Language_Compile_ExportDef * Language_Compile_Symbol_ExportedIdent ();
  
  extern struct Language_Compile_ExportDef * Language_Compile_Symbol_ExportsOf ();
  
  extern void Language_Compile_Symbol_FixImportedSymbols ();
  
  extern struct Language_Compile_SymbolDef * Language_Compile_Symbol_FormalsOf ();
  
  extern TLboolean Language_Compile_Symbol_HasAttribute ();
  
  extern struct Language_Compile_ImportDef * Language_Compile_Symbol_ImportsOf ();
  
  extern void Language_Compile_Symbol_Initialize ();
  
  extern TLboolean Language_Compile_Symbol_IsDoubleIndirect ();
  
  extern Language_Compile_SymbolKind Language_Compile_Symbol_Kind ();
  
  extern struct Language_Compile_SymbolDef * Language_Compile_Symbol_MonitorVar ();
  
  extern struct Language_Compile_SymbolDef * Language_Compile_Symbol_Nth ();
  
  extern Language_Compile_Predef Language_Compile_Symbol_Predefined ();
  
  extern void Language_Compile_Symbol_Pop ();
  
  extern void Language_Compile_Symbol_PushDummy ();
  
  extern void Language_Compile_Symbol_PushIdent ();
  
  extern void Language_Compile_Symbol_PushLimitedNew ();
  
  extern void Language_Compile_Symbol_PushNamedNew ();
  
  extern void Language_Compile_Symbol_PushNew ();
  
  extern void Language_Compile_Symbol_PushPointerTarget ();
  
  extern void Language_Compile_Symbol_PushSymbol ();
  
  extern void Language_Compile_Symbol_ReplaceDummy ();
  
  extern void Language_Compile_Symbol_ResetSymbolList ();
  
  extern void Language_Compile_Symbol_ResolveExport ();
  
  extern struct Language_Compile_TypeDef * Language_Compile_Symbol_ResultType ();
  
  extern struct Language_Compile_SymbolDef * Language_Compile_Symbol_ResultsId ();
  
  extern struct Language_Compile_SymbolDef * Language_Compile_Symbol_Second ();
  
  extern Language_Compile_SymbolKind Language_Compile_Symbol_SecondKind ();
  
  extern struct Language_Compile_TypeDef * Language_Compile_Symbol_SecondType ();
  
  extern void Language_Compile_Symbol_SetExportAll ();
  
  extern void Language_Compile_Symbol_SetPervasive ();
  
  extern TLboolean Language_Compile_Symbol_SubprogramVariable ();
  
  extern Language_Compile_Access Language_Compile_Symbol_SyAccess ();
  
  extern struct Language_Compile_ValueDef * Language_Compile_Symbol_SyValue ();
  
  extern struct Language_Compile_SymbolDef * Language_Compile_Symbol_Top ();
  
  extern struct Language_Compile_TypeDef * Language_Compile_Symbol_Type ();
  
  extern void Language_Compile_Symbol_AssertStackEmpty ();
  
  extern void Language_Compile_Symbol_DumpSymbol ();
  
  extern void Language_Compile_Symbol_DumpSymbolList ();
  
  extern void Language_Compile_Symbol_DumpSymbolStack ();
  
  extern void Language_Compile_Coder_AddSetElement ();
  
  extern void Language_Compile_Coder_All ();
  
  extern void Language_Compile_Coder_AllocateConstant ();
  
  extern void Language_Compile_Coder_AllocateDeferredSubprogram ();
  
  extern void Language_Compile_Coder_AllocateParameters ();
  
  extern void Language_Compile_Coder_AllocateType ();
  
  extern void Language_Compile_Coder_AllocateVariable ();
  
  extern void Language_Compile_Coder_ArraySubscript ();
  
  extern void Language_Compile_Coder_Assertion ();
  
  extern void Language_Compile_Coder_Assign ();
  
  extern void Language_Compile_Coder_AssignInverted ();
  
  extern void Language_Compile_Coder_AssignOp ();
  
  extern void Language_Compile_Coder_BeforeElse ();
  
  extern void Language_Compile_Coder_BeginBlock ();
  
  extern void Language_Compile_Coder_BeginFor ();
  
  extern void Language_Compile_Coder_BeginHandler ();
  
  extern void Language_Compile_Coder_BeginInitList ();
  
  extern void Language_Compile_Coder_BeginLoop ();
  
  extern void Language_Compile_Coder_BeginModule ();
  
  extern void Language_Compile_Coder_BeginModuleInvariant ();
  
  extern void Language_Compile_Coder_BeginPostInvariant ();
  
  extern void Language_Compile_Coder_BeginUnion ();
  
  extern void Language_Compile_Coder_BeginUnit ();
  
  extern void Language_Compile_Coder_Bind ();
  
  extern void Language_Compile_Coder_BitsExtract ();
  
  extern void Language_Compile_Coder_Case ();
  
  extern void Language_Compile_Coder_CaseValue ();
  
  extern void Language_Compile_Coder_CheckSubrange ();
  
  extern void Language_Compile_Coder_ClassSubprogramField ();
  
  extern void Language_Compile_Coder_Close ();
  
  extern void Language_Compile_Coder_CoerceForNumericOperator ();
  
  extern void Language_Compile_Coder_CoerceToType ();
  
  extern void Language_Compile_Coder_CopyArrayDescriptor ();
  
  extern void Language_Compile_Coder_CreateArrayDescriptor ();
  
  extern void Language_Compile_Coder_CreateEnumDescriptor ();
  
  extern void Language_Compile_Coder_CreateUnionMap ();
  
  extern void Language_Compile_Coder_DeallocateFlexibleArray ();
  
  extern void Language_Compile_Coder_Else ();
  
  extern void Language_Compile_Coder_Elsif ();
  
  extern void Language_Compile_Coder_EmptySet ();
  
  extern void Language_Compile_Coder_EndBlock ();
  
  extern void Language_Compile_Coder_EndCase ();
  
  extern void Language_Compile_Coder_EndCaseAlternative ();
  
  extern void Language_Compile_Coder_EndCaseValue ();
  
  extern void Language_Compile_Coder_EndFor ();
  
  extern void Language_Compile_Coder_EndHandler ();
  
  extern void Language_Compile_Coder_EndIf ();
  
  extern void Language_Compile_Coder_EndInitList ();
  
  extern void Language_Compile_Coder_EndIo ();
  
  extern void Language_Compile_Coder_EndLoop ();
  
  extern void Language_Compile_Coder_EndModule ();
  
  extern void Language_Compile_Coder_EndStatement ();
  
  extern void Language_Compile_Coder_EndSubprogram ();
  
  extern void Language_Compile_Coder_EndUnion ();
  
  extern void Language_Compile_Coder_EndUnit ();
  
  extern void Language_Compile_Coder_EnterExternalAddress ();
  
  extern void Language_Compile_Coder_EnterExternalName ();
  
  extern void Language_Compile_Coder_EnterInitValue ();
  
  extern void Language_Compile_Coder_Exit ();
  
  extern void Language_Compile_Coder_ExitMainProgram ();
  
  extern void Language_Compile_Coder_ExplicitClassSubprogramField ();
  
  extern void Language_Compile_Coder_ExplicitFriendSubprogram ();
  
  extern void Language_Compile_Coder_ExpnHash ();
  
  extern void Language_Compile_Coder_Fetch ();
  
  extern void Language_Compile_Coder_Field ();
  
  extern void Language_Compile_Coder_FillInCharStarDescriptor ();
  
  extern void Language_Compile_Coder_ForceToTemporaryPushAddress ();
  
  extern void Language_Compile_Coder_Fork ();
  
  extern void Language_Compile_Coder_Free ();
  
  extern void Language_Compile_Coder_FunctionCall ();
  
  extern void Language_Compile_Coder_Get ();
  
  extern void Language_Compile_Coder_If ();
  
  extern TLboolean Language_Compile_Coder_IllegalPredefined ();
  
  extern void Language_Compile_Coder_Indirect ();
  
  extern void Language_Compile_Coder_InfixOperator ();
  
  extern void Language_Compile_Coder_Initialize ();
  
  extern void Language_Compile_Coder_InitializeBuiltins ();
  
  extern void Language_Compile_Coder_Invariant ();
  
  extern void Language_Compile_Coder_LoadSymbol ();
  
  extern void Language_Compile_Coder_LocateClassDescriptor ();
  
  extern void Language_Compile_Coder_LocateSymbol ();
  
  extern void Language_Compile_Coder_New ();
  
  extern void Language_Compile_Coder_Objectclass ();
  
  extern void Language_Compile_Coder_OpAssign ();
  
  extern void Language_Compile_Coder_Open ();
  
  extern void Language_Compile_Coder_Operator ();
  
  extern void Language_Compile_Coder_Ord ();
  
  extern void Language_Compile_Coder_Otherwise ();
  
  extern void Language_Compile_Coder_Pause ();
  
  extern void Language_Compile_Coder_PointerDereference ();
  
  extern void Language_Compile_Coder_PopState ();
  
  extern void Language_Compile_Coder_ProcedureCall ();
  
  extern void Language_Compile_Coder_PushArrayUpperBound ();
  
  extern void Language_Compile_Coder_PushClassSelf ();
  
  extern void Language_Compile_Coder_PushInitAddress ();
  
  extern void Language_Compile_Coder_PushInt ();
  
  extern void Language_Compile_Coder_PushNewParameter ();
  
  extern void Language_Compile_Coder_PushReferenceParameter ();
  
  extern void Language_Compile_Coder_PushSelfParameter ();
  
  extern void Language_Compile_Coder_PushSize ();
  
  extern void Language_Compile_Coder_PushState ();
  
  extern void Language_Compile_Coder_PushStringSize ();
  
  extern void Language_Compile_Coder_PushValue ();
  
  extern void Language_Compile_Coder_Put ();
  
  extern void Language_Compile_Coder_Quit ();
  
  extern void Language_Compile_Coder_Read ();
  
  extern void Language_Compile_Coder_RestoreState ();
  
  extern void Language_Compile_Coder_Result ();
  
  extern void Language_Compile_Coder_Return ();
  
  extern void Language_Compile_Coder_Seek ();
  
  extern void Language_Compile_Coder_SetInputStream ();
  
  extern void Language_Compile_Coder_SetOutputStream ();
  
  extern void Language_Compile_Coder_SetStream ();
  
  extern void Language_Compile_Coder_SetUninitTable ();
  
  extern void Language_Compile_Coder_Signal ();
  
  extern void Language_Compile_Coder_StartParameters ();
  
  extern void Language_Compile_Coder_StartSubprogram ();
  
  extern void Language_Compile_Coder_Substring ();
  
  extern void Language_Compile_Coder_Tag ();
  
  extern void Language_Compile_Coder_Tell ();
  
  extern void Language_Compile_Coder_UnionField ();
  
  extern void Language_Compile_Coder_Wait ();
  
  extern void Language_Compile_Coder_Write ();
  
  extern void Language_Compile_Coder_SetObjectFileStream ();
  
  extern void Language_Compile_Coder_EnterDefiningOffset ();
  
  extern TLaddressint Language_Compile_Coder_FetchAddress ();
  
  extern TLaddressint Language_Compile_Coder_FetchArrayElementAddr ();
  
  extern TLint4 Language_Compile_Coder_FetchArrayUpper ();
  
  extern TLaddressint Language_Compile_Coder_FetchClassSelf ();
  
  extern TLaddressint Language_Compile_Coder_FetchClassSelfParamAddr ();
  
  extern TLaddressint Language_Compile_Coder_FetchPointerValue ();
  
  extern TLint4 Language_Compile_Coder_FetchUnionNumber ();
  
  extern void Language_Compile_Coder_FetchValue ();
  typedef	TLint4	Language_Compile_Coder_InitState;
  
  extern Language_Compile_Coder_InitState Language_Compile_Coder_UnitInitState ();
  
  extern void Language_Compile_PredefRoutines_Reset ();
  
  extern void Language_Compile_PredefRoutines_Initialize ();
  
  void Language_Compile_Lists_Initialize ();
  
  void Language_Compile_Lists_PushIdentList ();
  
  void Language_Compile_Lists_InputIdentList ();
  
  void Language_Compile_Lists_InputEnumList ();
  
  void Language_Compile_Lists_InputRecordList ();
  
  void Language_Compile_Lists_InputUnionList ();
  
  void Language_Compile_Lists_InputParameterList ();
  
  void Language_Compile_Lists_AddSymbolToIdentList ();
  
  void Language_Compile_Lists_MergeTopIdentLists ();
  
  void Language_Compile_Lists_PopIdentList ();
  
  void Language_Compile_Lists_AddIdentListToBlock ();
  
  void Language_Compile_Lists_TypeIdentList ();
  
  void Language_Compile_Lists_TypeCollectionList ();
  
  void Language_Compile_Lists_EnterCollectionType ();
  
  void Language_Compile_Lists_EnterRecordOffsets ();
  
  void Language_Compile_Lists_AllocateIdentList ();
  
  void Language_Compile_Lists_EnterExternalVarAddress ();
  
  void Language_Compile_Lists_EnterExternalVarName ();
  
  void Language_Compile_Lists_AssignValuesToEnumIds ();
  
  struct Language_Compile_SymbolDef * Language_Compile_Lists_IdentListTop ();
  
  void Language_Compile_Lists_AssignIdentList ();
  
  void Language_Compile_Lists_SetPervasive ();
  
  void Language_Compile_Lists_EnterSymbolAttribute ();
  
  void Language_Compile_Lists_LabelUnionBody ();
  
  TLint4 Language_Compile_Lists_SymbolCount ();
  
  void Language_Compile_Lists_PushIndexList ();
  
  void Language_Compile_Lists_AddTypeToIndexList ();
  
  void Language_Compile_Lists_PopIndexList ();
  
  struct Language_Compile_IndexDef * Language_Compile_Lists_IndexListTop ();
  struct	Language_Compile_Lists_IdentListDescriptor {
      struct Language_Compile_SymbolDef	*head, *tail;
  };
  static TLint2	Language_Compile_Lists_identTop;
  typedef	struct Language_Compile_Lists_IdentListDescriptor	Language_Compile_Lists___x2792[16];
  static Language_Compile_Lists___x2792	Language_Compile_Lists_identStack;
  
  void Language_Compile_Lists_PushIdentList () {
      TLBINDREG((*id), struct Language_Compile_Lists_IdentListDescriptor);
      TLSTKCHKSLF(100029);
      TLSETF();
      TLSETL(100029);
      if (Language_Compile_Lists_identTop == 16) {
  	TLSETL(100032);
  	Language_Compile_CompileError_Add((TLint2) 10275, &(Language_Compile_oldTok.srcPos), "", "", (Language_ErrorSeverity) 3);
      };
      TLSETL(100033);
      Language_Compile_Lists_identTop += 1;
      TLINCL();
      id = &(Language_Compile_Lists_identStack[TLINRANGELOW(Language_Compile_Lists_identTop, 1, 16, 1)]);
      TLINCL();
      (*id).head = (struct Language_Compile_SymbolDef *) 0;
      TLINCL();
      (*id).tail = (struct Language_Compile_SymbolDef *) 0;
      TLRESTORELF();
  }
  
  void Language_Compile_Lists_AddSymbolToIdentList () {
      TLBINDREG((*id), struct Language_Compile_Lists_IdentListDescriptor);
      TLSTKCHKSLF(100041);
      TLSETF();
      TLSETL(100041);
      id = &(Language_Compile_Lists_identStack[TLINRANGELOW(Language_Compile_Lists_identTop, 1, 16, 1)]);
      TLSETL(100043);
      if (((*id).head) == ((struct Language_Compile_SymbolDef *) 0)) {
  	TLSETL(100044);
  	(*id).head = Language_Compile_Symbol_Top();
  	TLINCL();
  	(*id).tail = (*id).head;
      } else {
  	TLSETL(100047);
  	(*id).tail->next = Language_Compile_Symbol_Top();
  	TLINCL();
  	(*id).tail = (*id).tail->next;
      };
      TLSETL(100050);
      (*id).tail->next = (struct Language_Compile_SymbolDef *) 0;
      TLRESTORELF();
  }
  
  void Language_Compile_Lists_InputIdentList () {
      TLSTKCHKSLF(100056);
      TLSETF();
      TLSETL(100056);
      for(;;) {
  	struct Language_Compile_SymbolDef	*sy;
  	TLSETL(100057);
  	Language_Compile_ExpectToken((Language_Compile_Tok) 0);
  	sy = Language_Compile_Scope_IdentInList(Language_Compile_Lists_identStack[TLINRANGELOW(Language_Compile_Lists_identTop, 1, 16, 1)].head);
  	TLINCL();
  	if (sy != ((struct Language_Compile_SymbolDef *) 0)) {
  	    TLSETL(100061);
  	    {
  		TLstring	__x2793;
  		Language_Compile_SymbolToName(sy, __x2793);
  		Language_Compile_CompileError_Add((TLint2) 10261, &(Language_Compile_oldTok.srcPos), __x2793, "", (Language_ErrorSeverity) 2);
  	    };
  	};
  	TLSETL(100063);
  	Language_Compile_Symbol_PushNew((Language_Compile_Symbol_NewSymKinds) 0);
  	TLINCL();
  	Language_Compile_Lists_AddSymbolToIdentList();
  	TLINCL();
  	Language_Compile_Symbol_Pop();
  	if ((Language_Compile_newTok.u.tok) != 11) {
  	    break;
  	};
  	TLSETL(100067);
  	Language_Compile_Scanner_Scan();
      };
      TLRESTORELF();
  }
  
  void Language_Compile_Lists_InputEnumList () {
      TLSTKCHKSLF(100073);
      TLSETF();
      TLSETL(100073);
      for(;;) {
  	TLSETL(100074);
  	Language_Compile_ExpectToken((Language_Compile_Tok) 0);
  	TLINCL();
  	Language_Compile_Symbol_PushNamedNew(Language_Compile_oldTok.identPtr);
  	if (Language_Compile_Scope_IdentInList(Language_Compile_Lists_identStack[TLINRANGELOW(Language_Compile_Lists_identTop, 1, 16, 1)].head) != ((struct Language_Compile_SymbolDef *) 0)) {
  	    TLSETL(100078);
  	    {
  		TLstring	__x2794;
  		Language_Compile_SymbolToName(Language_Compile_Symbol_Top(), __x2794);
  		Language_Compile_CompileError_Add((TLint2) 10261, &(Language_Compile_oldTok.srcPos), __x2794, "", (Language_ErrorSeverity) 2);
  	    };
  	};
  	TLSETL(100080);
  	Language_Compile_Lists_AddSymbolToIdentList();
  	TLINCL();
  	Language_Compile_Symbol_Pop();
  	if ((Language_Compile_newTok.u.tok) != 11) {
  	    break;
  	};
  	TLSETL(100083);
  	Language_Compile_Scanner_Scan();
      };
      TLRESTORELF();
  }
  
  void Language_Compile_Lists_InputRecordList () {
      TLSTKCHKSLF(100089);
      TLSETF();
      TLSETL(100089);
      for(;;) {
  	TLSETL(100090);
  	Language_Compile_ExpectToken((Language_Compile_Tok) 0);
  	TLINCL();
  	Language_Compile_Symbol_PushNamedNew(Language_Compile_oldTok.identPtr);
  	if ((Language_Compile_Scope_IdentInList(Language_Compile_Lists_identStack[TLINRANGELOW(Language_Compile_Lists_identTop, 1, 16, 1)].head) != ((struct Language_Compile_SymbolDef *) 0)) || (Language_Compile_Scope_IdentInList(Language_Compile_Lists_identStack[TLINRANGELOW(Language_Compile_Lists_identTop - 1, 1, 16, 1)].head) != ((struct Language_Compile_SymbolDef *) 0))) {
  	    TLSETL(100096);
  	    {
  		TLstring	__x2795;
  		Language_Compile_SymbolToName(Language_Compile_Symbol_Top(), __x2795);
  		Language_Compile_CompileError_Add((TLint2) 10261, &(Language_Compile_oldTok.srcPos), __x2795, "", (Language_ErrorSeverity) 2);
  	    };
  	};
  	TLSETL(100098);
  	Language_Compile_Lists_AddSymbolToIdentList();
  	TLINCL();
  	Language_Compile_Symbol_Pop();
  	if ((Language_Compile_newTok.u.tok) != 11) {
  	    break;
  	};
  	TLSETL(100101);
  	Language_Compile_Scanner_Scan();
      };
      TLRESTORELF();
  }
  
  void Language_Compile_Lists_InputParameterList () {
      struct Language_Compile_IdentDef	*routineIdent;
      TLSTKCHKSLF(100106);
      TLSETF();
      TLSETL(100106);
      routineIdent = Language_Compile_Symbol_Top()->identPtr;
      TLSETL(100108);
      for(;;) {
  	TLSETL(100109);
  	Language_Compile_ExpectToken((Language_Compile_Tok) 0);
  	TLINCL();
  	Language_Compile_Symbol_PushNamedNew(Language_Compile_oldTok.identPtr);
  	if (((routineIdent == (Language_Compile_oldTok.identPtr)) || (Language_Compile_Scope_IdentInList(Language_Compile_Lists_identStack[TLINRANGELOW(Language_Compile_Lists_identTop, 1, 16, 1)].head) != ((struct Language_Compile_SymbolDef *) 0))) || (Language_Compile_Scope_IdentInList(Language_Compile_Lists_identStack[TLINRANGELOW(Language_Compile_Lists_identTop - 1, 1, 16, 1)].head) != ((struct Language_Compile_SymbolDef *) 0))) {
  	    TLSETL(100117);
  	    {
  		TLstring	__x2796;
  		Language_Compile_SymbolToName(Language_Compile_Symbol_Top(), __x2796);
  		Language_Compile_CompileError_Add((TLint2) 10261, &(Language_Compile_oldTok.srcPos), __x2796, "", (Language_ErrorSeverity) 2);
  	    };
  	};
  	TLSETL(100119);
  	Language_Compile_Lists_AddSymbolToIdentList();
  	TLINCL();
  	Language_Compile_Symbol_Pop();
  	if ((Language_Compile_newTok.u.tok) != 11) {
  	    break;
  	};
  	TLSETL(100122);
  	Language_Compile_Scanner_Scan();
      };
      TLRESTORELF();
  }
  
  void Language_Compile_Lists_InputUnionList () {
      struct Language_Compile_IdentDef	*tagIdent;
      TLSTKCHKSLF(100127);
      TLSETF();
      TLSETL(100127);
      tagIdent = Language_Compile_Symbol_Top()->identPtr;
      TLSETL(100129);
      for(;;) {
  	TLSETL(100130);
  	Language_Compile_ExpectToken((Language_Compile_Tok) 0);
  	TLINCL();
  	Language_Compile_Symbol_PushNamedNew(Language_Compile_oldTok.identPtr);
  	if ((((tagIdent == (Language_Compile_oldTok.identPtr)) || (Language_Compile_Scope_IdentInList(Language_Compile_Lists_identStack[TLINRANGELOW(Language_Compile_Lists_identTop, 1, 16, 1)].head) != ((struct Language_Compile_SymbolDef *) 0))) || (Language_Compile_Scope_IdentInList(Language_Compile_Lists_identStack[TLINRANGELOW(Language_Compile_Lists_identTop - 1, 1, 16, 1)].head) != ((struct Language_Compile_SymbolDef *) 0))) || (Language_Compile_Scope_IdentInList(Language_Compile_Lists_identStack[TLINRANGELOW(Language_Compile_Lists_identTop - 2, 1, 16, 1)].head) != ((struct Language_Compile_SymbolDef *) 0))) {
  	    TLSETL(100140);
  	    {
  		TLstring	__x2797;
  		Language_Compile_SymbolToName(Language_Compile_Symbol_Top(), __x2797);
  		Language_Compile_CompileError_Add((TLint2) 10261, &(Language_Compile_oldTok.srcPos), __x2797, "", (Language_ErrorSeverity) 2);
  	    };
  	};
  	TLSETL(100142);
  	Language_Compile_Lists_AddSymbolToIdentList();
  	TLINCL();
  	Language_Compile_Symbol_Pop();
  	if ((Language_Compile_newTok.u.tok) != 11) {
  	    break;
  	};
  	TLSETL(100145);
  	Language_Compile_Scanner_Scan();
      };
      TLRESTORELF();
  }
  
  struct Language_Compile_SymbolDef * Language_Compile_Lists_IdentListTop () {
      TLSTKCHKSLF(100150);
      TLSETF();
      TLSETL(100150);
      TLRESTORELF();
      return (Language_Compile_Lists_identStack[TLINRANGELOW(Language_Compile_Lists_identTop, 1, 16, 1)].head);
      TLRESTORELF();
      /* NOTREACHED */
      TLFCNRESULTABORT;
  }
  
  void Language_Compile_Lists_MergeTopIdentLists () {
      TLBINDREG((*id2), struct Language_Compile_Lists_IdentListDescriptor);
      TLBINDREG((*id), struct Language_Compile_Lists_IdentListDescriptor);
      TLSTKCHKSLF(100155);
      TLSETF();
      TLSETL(100155);
      id2 = &(Language_Compile_Lists_identStack[TLINRANGELOW(Language_Compile_Lists_identTop - 1, 1, 16, 1)]);
      id = &(Language_Compile_Lists_identStack[TLINRANGELOW(Language_Compile_Lists_identTop, 1, 16, 1)]);
      TLSETL(100157);
      if (((*id2).head) == ((struct Language_Compile_SymbolDef *) 0)) {
  	TLSETL(100158);
  	TLSTRCTASS((*id2), (*id), struct Language_Compile_Lists_IdentListDescriptor);
      } else {
  	TLSETL(100159);
  	if (((*id).head) != ((struct Language_Compile_SymbolDef *) 0)) {
  	    TLSETL(100160);
  	    (*id2).tail->next = (*id).head;
  	    TLINCL();
  	    (*id2).tail = (*id).tail;
  	};
      };
      TLSETL(100163);
      Language_Compile_Lists_identTop -= 1;
      TLRESTORELF();
  }
  
  void Language_Compile_Lists_PopIdentList () {
      TLSTKCHKSLF(100168);
      TLSETF();
      TLSETL(100168);
      Language_Compile_Lists_identTop -= 1;
      TLRESTORELF();
  }
  
  void Language_Compile_Lists_AddIdentListToBlock () {
      TLBINDREG((*id), struct Language_Compile_Lists_IdentListDescriptor);
      TLSTKCHKSLF(100173);
      TLSETF();
      TLSETL(100173);
      id = &(Language_Compile_Lists_identStack[TLINRANGELOW(Language_Compile_Lists_identTop, 1, 16, 1)]);
      TLINCL();
      if (((*id).head) != ((struct Language_Compile_SymbolDef *) 0)) {
  	TLSETL(100175);
  	if (Language_Compile_Scope_AtTopLevel()) {
  	    register struct Language_Compile_SymbolDef	*sy;
  	    TLSETL(100176);
  	    sy = (*id).head;
  	    TLSETL(100178);
  	    for(;;) {
  		TLSETL(100179);
  		Language_Compile_Symbol_PushSymbol(sy);
  		TLINCL();
  		Language_Compile_Symbol_ResolveExport();
  		TLINCL();
  		Language_Compile_Symbol_Pop();
  		if (sy == ((*id).tail)) {
  		    break;
  		};
  		TLSETL(100182);
  		sy = sy->next;
  	    };
  	};
  	TLSETL(100185);
  	(*id).tail->next = Language_Compile_blockStack->internalSymbols;
  	TLINCL();
  	Language_Compile_blockStack->internalSymbols = (*id).head;
      };
      TLRESTORELF();
  }
  
  void Language_Compile_Lists_AssignIdentList () {
      register struct Language_Compile_SymbolDef	*id;
      register struct Language_Compile_SymbolDef	*firstId;
      struct Language_Compile_SymbolDef	*lastId;
      Language_Compile_TypeKind	tKind;
      TLSTKCHKSLF(100192);
      TLSETF();
      TLSETL(100192);
      id = Language_Compile_Lists_identStack[TLINRANGELOW(Language_Compile_Lists_identTop, 1, 16, 1)].head;
      TLINCL();
      firstId = id;
      TLINCL();
      lastId = Language_Compile_Lists_identStack[TLINRANGELOW(Language_Compile_Lists_identTop, 1, 16, 1)].tail;
      TLINCL();
      tKind = Language_Compile_Types_Kind();
      TLSETL(100197);
      TLASSERT (id != ((struct Language_Compile_SymbolDef *) 0));
      TLSETL(100201);
      Language_Compile_Coder_LocateSymbol(id);
      TLSETL(100204);
      Language_Compile_Coder_AssignInverted();
      TLSETL(100206);
      for(;;) {
  	TLSETL(100208);
  	Language_Compile_Coder_EnterDefiningOffset(id);
  	if (id == lastId) {
  	    break;
  	};
  	TLSETL(100209);
  	id = id->next;
  	TLSETL(100211);
  	Language_Compile_Coder_LocateSymbol(id);
  	TLINCL();
  	Language_Compile_Coder_LoadSymbol(firstId);
  	TLINCL();
  	Language_Compile_Coder_Assign(Language_Compile_Types_Top());
      };
      TLRESTORELF();
  }
  
  void Language_Compile_Lists_LabelUnionBody (unionBodyNumber)
  TLint4	unionBodyNumber;
  {
      register struct Language_Compile_SymbolDef	*id;
      TLSTKCHKSLF(100218);
      TLSETF();
      TLSETL(100218);
      id = Language_Compile_Lists_identStack[TLINRANGELOW(Language_Compile_Lists_identTop, 1, 16, 1)].head;
      TLSETL(100220);
      for(;;) {
  	TLSETL(100220);
  	if (id == ((struct Language_Compile_SymbolDef *) 0)) {
  	    break;
  	};
  	TLSETL(100221);
  	TLASSERT ((id->u.syTag) == 9);
  	TLINCL();
  	id->u.__u1.__u6.unionNumber = unionBodyNumber;
  	TLINCL();
  	id = id->next;
      };
      TLRESTORELF();
  }
  
  TLint4 Language_Compile_Lists_SymbolCount () {
      register struct Language_Compile_SymbolDef	*id;
      register TLint4	count;
      TLSTKCHKSLF(100229);
      TLSETF();
      TLSETL(100229);
      id = Language_Compile_Lists_identStack[TLINRANGELOW(Language_Compile_Lists_identTop, 1, 16, 1)].head;
      TLINCL();
      count = 0;
      TLSETL(100232);
      for(;;) {
  	TLSETL(100232);
  	if (id == ((struct Language_Compile_SymbolDef *) 0)) {
  	    break;
  	};
  	TLSETL(100233);
  	count += 1;
  	TLINCL();
  	id = id->next;
      };
      TLSETL(100236);
      TLRESTORELF();
      return (count);
      TLRESTORELF();
      /* NOTREACHED */
      TLFCNRESULTABORT;
  }
  
  void Language_Compile_Lists_TypeIdentList (syTag, isParameter)
  Language_Compile_SymbolKind	syTag;
  TLboolean	isParameter;
  {
      register struct Language_Compile_SymbolDef	*id;
      TLboolean	isTypeCheat;
      TLboolean	needsUniqueType;
      Language_Compile_Access	access;
      TLSTKCHKSLF(100241);
      TLSETF();
      TLSETL(100241);
      id = Language_Compile_Lists_identStack[TLINRANGELOW(Language_Compile_Lists_identTop, 1, 16, 1)].head;
      TLINCL();
      if (id == ((struct Language_Compile_SymbolDef *) 0)) {
  	TLSETL(100244);
  	TLRESTORELF();
  	return;
      };
      TLSETL(100245);
      isTypeCheat = Language_Compile_Types_HasMode((Language_Compile_TyModes) 7);
      TLINCL();
      needsUniqueType = Language_Compile_Types_HasMode((Language_Compile_TyModes) 3) || (isParameter && Language_Compile_Types_HasMode((Language_Compile_TyModes) 2));
      TLSETL(100249);
      if (syTag == 9) {
  	TLSETL(100250);
  	access = 2;
      } else {
  	TLSETL(100252);
  	TLASSERT (syTag == 3);
  	TLINCL();
  	access = 1;
      };
      TLSETL(100256);
      for(;;) {
  	TLSETL(100257);
  	Language_Compile_Symbol_PushSymbol(id);
  	TLINCL();
  	Language_Compile_Symbol_EnterKind((Language_Compile_SymbolKind) syTag, (Language_Compile_Access) access);
  	TLINCL();
  	Language_Compile_Symbol_EnterType();
  	if (syTag == 3) {
  	    TLSETL(100261);
  	    Language_Compile_Symbol_EnterValue(Language_Compile_nonCompileTimeValue);
  	};
  	TLSETL(100262);
  	if (isTypeCheat) {
  	    TLSETL(100264);
  	    Language_Compile_Symbol_EnterAttribute((Language_Compile_SyAttributes) 19);
  	};
  	TLSETL(100266);
  	Language_Compile_Symbol_EnterBlockScope();
  	TLSETL(100268);
  	Language_Compile_Symbol_Pop();
  	id = id->next;
  	TLINCL();
  	if (id == ((struct Language_Compile_SymbolDef *) 0)) {
  	    break;
  	};
  	TLSETL(100271);
  	if (needsUniqueType) {
  	    TLSETL(100274);
  	    Language_Compile_Types_ReplaceCopy();
  	    if (Language_Compile_Types_HasMode((Language_Compile_TyModes) 3) && (!isParameter)) {
  		TLSETL(100276);
  		Language_Compile_Coder_CopyArrayDescriptor();
  	    };
  	};
      };
      TLRESTORELF();
  }
  
  void Language_Compile_Lists_TypeCollectionList () {
      register struct Language_Compile_SymbolDef	*id;
      struct Language_Compile_SymbolDef	*lastId;
      TLSTKCHKSLF(100283);
      TLSETF();
      TLSETL(100283);
      id = Language_Compile_Lists_identStack[TLINRANGELOW(Language_Compile_Lists_identTop, 1, 16, 1)].head;
      TLINCL();
      lastId = Language_Compile_Lists_identStack[TLINRANGELOW(Language_Compile_Lists_identTop, 1, 16, 1)].tail;
      TLINCL();
      TLASSERT (id != ((struct Language_Compile_SymbolDef *) 0));
      TLSETL(100287);
      for(;;) {
  	TLSETL(100288);
  	Language_Compile_Symbol_PushSymbol(id);
  	TLINCL();
  	Language_Compile_Symbol_EnterKind((Language_Compile_SymbolKind) 2, (Language_Compile_Access) 2);
  	TLINCL();
  	Language_Compile_Types_LinkIdentListToType(Language_Compile_Symbol_Top());
  	TLSETL(100292);
  	Language_Compile_Symbol_EnterType();
  	if (Language_Compile_Types_HasMode((Language_Compile_TyModes) 8)) {
  	    TLSETL(100294);
  	    Language_Compile_Types_PushNew((Language_Compile_TypeKind) 21);
  	    TLINCL();
  	    Language_Compile_Types_EnterMode((Language_Compile_TyModes) 8);
  	    TLINCL();
  	    Language_Compile_Types_EnterSize((TLint4) 4);
  	} else {
  	    TLSETL(100298);
  	    Language_Compile_Types_PushNew((Language_Compile_TypeKind) 21);
  	};
  	TLSETL(100300);
  	Language_Compile_Types_LinkIdentListToType(Language_Compile_Symbol_Top());
  	TLINCL();
  	Language_Compile_Types_EnterPointerType();
  	TLSETL(100303);
  	Language_Compile_Types_Pop();
  	TLSETL(100305);
  	Language_Compile_Coder_EnterDefiningOffset(id);
  	TLSETL(100307);
  	Language_Compile_Symbol_Pop();
  	if (id == lastId) {
  	    break;
  	};
  	TLSETL(100308);
  	id = id->next;
  	TLSETL(100312);
  	Language_Compile_Types_ReplaceCopy();
      };
      TLRESTORELF();
  }
  
  void Language_Compile_Lists_EnterCollectionType () {
      register struct Language_Compile_SymbolDef	*id;
      struct Language_Compile_SymbolDef	*lastId;
      TLSTKCHKSLF(100317);
      TLSETF();
      TLSETL(100317);
      id = Language_Compile_Lists_identStack[TLINRANGELOW(Language_Compile_Lists_identTop, 1, 16, 1)].head;
      TLINCL();
      lastId = Language_Compile_Lists_identStack[TLINRANGELOW(Language_Compile_Lists_identTop, 1, 16, 1)].tail;
      TLINCL();
      TLASSERT (id != ((struct Language_Compile_SymbolDef *) 0));
      TLSETL(100321);
      for(;;) {
  	TLSETL(100322);
  	Language_Compile_Types_PushType(id->tyPtr);
  	TLASSERT (Language_Compile_Types_Kind() == 8);
  	TLSETL(100324);
  	Language_Compile_Types_ReplacePointerType((TLboolean) 0);
  	TLINCL();
  	Language_Compile_Types_Swap();
  	TLINCL();
  	Language_Compile_Types_EnterElementType();
  	TLINCL();
  	Language_Compile_Types_Swap();
  	TLINCL();
  	Language_Compile_Types_Pop();
  	if (id == lastId) {
  	    break;
  	};
  	TLSETL(100329);
  	id = id->next;
      };
      TLRESTORELF();
  }
  
  void Language_Compile_Lists_EnterRecordOffsets (offset)
  Language_Offset	*offset;
  {
      register struct Language_Compile_SymbolDef	*id;
      register TLint4	tSize;
      register TLint4	alignment;
      struct Language_Compile_Location	loc;
      TLSTKCHKSLF(100335);
      TLSETF();
      TLSETL(100335);
      id = Language_Compile_Lists_identStack[TLINRANGELOW(Language_Compile_Lists_identTop, 1, 16, 1)].head;
      TLINCL();
      tSize = Language_Compile_Types_TypeSize();
      TLINCL();
      alignment = Language_Compile_Types_Alignment();
      TLSETL(100339);
      if (((*offset) % alignment) != 0) {
  	TLSETL(100340);
  	(*offset) += alignment - ((*offset) % alignment);
      };
      TLSETL(100342);
      TLSTRCTASS(loc, Language_Compile_nullLocation, struct Language_Compile_Location);
      TLINCL();
      loc.offset = (*offset);
      TLSETL(100345);
      for(;;) {
  	TLSETL(100345);
  	if (id == ((struct Language_Compile_SymbolDef *) 0)) {
  	    break;
  	};
  	TLSETL(100347);
  	Language_Compile_Symbol_PushSymbol(id);
  	TLINCL();
  	Language_Compile_Symbol_EnterLocation(&(loc));
  	loc.offset += tSize;
  	TLSETL(100350);
  	Language_Compile_Symbol_Pop();
  	id = id->next;
      };
      TLSETL(100352);
      (*offset) = loc.offset;
      TLRESTORELF();
  }
  
  void Language_Compile_Lists_AllocateIdentList (initialized)
  TLboolean	initialized;
  {
      register struct Language_Compile_SymbolDef	*id;
      struct Language_Compile_SymbolDef	*lastId;
      TLSTKCHKSLF(100357);
      TLSETF();
      TLSETL(100357);
      id = Language_Compile_Lists_identStack[TLINRANGELOW(Language_Compile_Lists_identTop, 1, 16, 1)].head;
      TLINCL();
      lastId = Language_Compile_Lists_identStack[TLINRANGELOW(Language_Compile_Lists_identTop, 1, 16, 1)].tail;
      TLSETL(100360);
      for(;;) {
  	TLSETL(100361);
  	Language_Compile_Coder_AllocateVariable(id, (TLboolean) initialized);
  	if (initialized) {
  	    TLSETL(100362);
  	    id->attributes |= 0x1000;
  	};
  	TLSETL(100365);
  	if (id == lastId) {
  	    break;
  	};
  	TLSETL(100366);
  	id = id->next;
      };
      TLRESTORELF();
  }
  
  void Language_Compile_Lists_EnterExternalVarAddress (loc)
  TLint4	loc;
  {
      register struct Language_Compile_SymbolDef	*id;
      struct Language_Compile_SymbolDef	*lastId;
      TLSTKCHKSLF(100372);
      TLSETF();
      TLSETL(100372);
      id = Language_Compile_Lists_identStack[TLINRANGELOW(Language_Compile_Lists_identTop, 1, 16, 1)].head;
      TLINCL();
      lastId = Language_Compile_Lists_identStack[TLINRANGELOW(Language_Compile_Lists_identTop, 1, 16, 1)].tail;
      TLSETL(100375);
      for(;;) {
  	TLSETL(100376);
  	Language_Compile_Coder_EnterExternalAddress(id, (TLint4) loc);
  	if (id == lastId) {
  	    break;
  	};
  	TLSETL(100377);
  	id = id->next;
      };
      TLRESTORELF();
  }
  
  void Language_Compile_Lists_EnterExternalVarName (nameAddress)
  TLstring	nameAddress;
  {
      register struct Language_Compile_SymbolDef	*id;
      struct Language_Compile_SymbolDef	*lastId;
      TLSTKCHKSLF(100383);
      TLSETF();
      TLSETL(100383);
      id = Language_Compile_Lists_identStack[TLINRANGELOW(Language_Compile_Lists_identTop, 1, 16, 1)].head;
      TLINCL();
      lastId = Language_Compile_Lists_identStack[TLINRANGELOW(Language_Compile_Lists_identTop, 1, 16, 1)].tail;
      TLSETL(100386);
      for(;;) {
  	TLSETL(100386);
  	if (strcmp(nameAddress, "") == 0) {
  	    TLSETL(100389);
  	    Language_Compile_Coder_EnterExternalName(id, id->identPtr->str);
  	} else {
  	    TLSETL(100391);
  	    Language_Compile_Coder_EnterExternalName(id, nameAddress);
  	};
  	TLSETL(100392);
  	if (id == lastId) {
  	    break;
  	};
  	TLSETL(100393);
  	id = id->next;
      };
      TLRESTORELF();
  }
  
  void Language_Compile_Lists_AssignValuesToEnumIds () {
      register struct Language_Compile_SymbolDef	*id;
      TLint4	val;
      TLSTKCHKSLF(100399);
      TLSETF();
      TLSETL(100399);
      id = Language_Compile_Lists_identStack[TLINRANGELOW(Language_Compile_Lists_identTop, 1, 16, 1)].head;
      TLINCL();
      val = 0;
      TLSETL(100402);
      for(;;) {
  	TLSETL(100402);
  	if (id == ((struct Language_Compile_SymbolDef *) 0)) {
  	    break;
  	};
  	TLSETL(100404);
  	Language_Compile_Value_PushInt((TLint4) val);
  	TLINCL();
  	Language_Compile_Value_Save((TLint2) 0);
  	id->u.__u1.__u3.cValue = Language_Compile_Value_Top();
  	TLSETL(100407);
  	Language_Compile_Value_Pop();
  	id = id->next;
  	TLINCL();
  	val += 1;
      };
      TLRESTORELF();
  }
  
  void Language_Compile_Lists_SetPervasive () {
      register struct Language_Compile_SymbolDef	*id;
      TLSTKCHKSLF(100414);
      TLSETF();
      TLSETL(100414);
      id = Language_Compile_Lists_identStack[TLINRANGELOW(Language_Compile_Lists_identTop, 1, 16, 1)].head;
      TLSETL(100416);
      for(;;) {
  	TLSETL(100416);
  	if (id == ((struct Language_Compile_SymbolDef *) 0)) {
  	    break;
  	};
  	TLSETL(100417);
  	id->importDepth = 255;
  	TLINCL();
  	id->attributes |= 0x20000;
  	TLINCL();
  	id = id->next;
      };
      TLRESTORELF();
  }
  
  void Language_Compile_Lists_EnterSymbolAttribute (attr)
  Language_Compile_SyAttributes	attr;
  {
      register struct Language_Compile_SymbolDef	*id;
      TLSTKCHKSLF(100425);
      TLSETF();
      TLSETL(100425);
      id = Language_Compile_Lists_identStack[TLINRANGELOW(Language_Compile_Lists_identTop, 1, 16, 1)].head;
      TLSETL(100427);
      for(;;) {
  	TLSETL(100427);
  	if (id == ((struct Language_Compile_SymbolDef *) 0)) {
  	    break;
  	};
  	TLSETL(100428);
  	id->attributes |= (TLSMLSETCONST(TLINRANGELOW(attr, 0, 19, 19)));
  	TLINCL();
  	id = id->next;
      };
      TLRESTORELF();
  }
  struct	Language_Compile_Lists_IndexListDescriptor {
      struct Language_Compile_IndexDef	*head, *tail;
  };
  static TLint4	Language_Compile_Lists_indexTop;
  typedef	struct Language_Compile_Lists_IndexListDescriptor	Language_Compile_Lists___x2798[8];
  static Language_Compile_Lists___x2798	Language_Compile_Lists_indexStack;
  
  void Language_Compile_Lists_PushIndexList () {
      TLBINDREG((*id), struct Language_Compile_Lists_IndexListDescriptor);
      TLSTKCHKSLF(100445);
      TLSETF();
      TLSETL(100445);
      if (Language_Compile_Lists_indexTop == 8) {
  	TLSETL(100448);
  	Language_Compile_CompileError_Add((TLint2) 10276, &(Language_Compile_oldTok.srcPos), "", "", (Language_ErrorSeverity) 3);
      };
      TLSETL(100449);
      Language_Compile_Lists_indexTop += 1;
      TLINCL();
      id = &(Language_Compile_Lists_indexStack[TLINRANGELOW(Language_Compile_Lists_indexTop, 1, 8, 1)]);
      TLINCL();
      (*id).head = (struct Language_Compile_IndexDef *) 0;
      TLINCL();
      (*id).tail = (struct Language_Compile_IndexDef *) 0;
      TLRESTORELF();
  }
  
  struct Language_Compile_IndexDef * Language_Compile_Lists_IndexListTop () {
      TLSTKCHKSLF(100457);
      TLSETF();
      TLSETL(100457);
      TLRESTORELF();
      return (Language_Compile_Lists_indexStack[TLINRANGELOW(Language_Compile_Lists_indexTop, 1, 8, 1)].head);
      TLRESTORELF();
      /* NOTREACHED */
      TLFCNRESULTABORT;
  }
  
  void Language_Compile_Lists_AddTypeToIndexList () {
      TLBINDREG((*t), struct Language_Compile_Lists_IndexListDescriptor);
      register struct Language_Compile_IndexDef	*tl;
      struct Language_Compile_IndexDef	*nt;
      TLSTKCHKSLF(100462);
      TLSETF();
      TLSETL(100462);
      t = &(Language_Compile_Lists_indexStack[TLINRANGELOW(Language_Compile_Lists_indexTop, 1, 8, 1)]);
      TLSETL(100467);
      Language_Compile_Memory_Allocate(&(nt), (TLint2) sizeof(struct Language_Compile_IndexDef));
      tl = nt;
      TLINCL();
      if (((*t).head) == ((struct Language_Compile_IndexDef *) 0)) {
  	TLSETL(100469);
  	(*t).head = tl;
  	TLINCL();
  	(*t).tail = (*t).head;
      } else {
  	TLSETL(100472);
  	(*t).tail->next = tl;
  	TLINCL();
  	(*t).tail = tl;
      };
      TLSETL(100475);
      tl->next = (struct Language_Compile_IndexDef *) 0;
      TLINCL();
      tl->ty = Language_Compile_Types_Top();
      TLRESTORELF();
  }
  
  void Language_Compile_Lists_PopIndexList () {
      TLSTKCHKSLF(100481);
      TLSETF();
      TLSETL(100481);
      Language_Compile_Lists_indexTop -= 1;
      TLRESTORELF();
  }
  
  void Language_Compile_Lists_Initialize () {
      TLSTKCHKSLF(100486);
      TLSETF();
      TLSETL(100486);
      Language_Compile_Lists_identTop = 0;
      TLINCL();
      Language_Compile_Lists_indexTop = 0;
      TLRESTORELF();
  }
  
  void Language_Compile_Lists () {
      TLSAVELF();
      TLSETF();
      TLRESTORELF();
  }
  