<> <> <> <> <> DIRECTORY ConvertUnsafe: TYPE USING [SubString], Rope: TYPE USING [ROPE], Symbols: TYPE USING [Name, ISEIndex], Tree: TYPE USING [Index, Link]; Log: DEFINITIONS = { ErrorCode: TYPE = { <> compilerError, unimplemented, other, aborted, <> bodyEntries, bodyType, catchLabel, descriptor, discrimForm, exit, exportedVars, fieldSize, illDefinedReturn, implicitCall, inlineType, instLength, interfaceEntries, keys, long, machDep, misplacedCatch, misplacedEntry, misplacedMonitorRef, misplacedResume, misplacedReturn, misplacedStop, misplacedType, mixedPositions, noAccess, nonOrderedType, nonTypeCons, nonVoidStmt, relative, staticNesting, stringLength, subrangeBounds, subrangeNesting, unreachable, unsafeBlock, var, <> unknownId, unknownField, <> ambiguousId, duplicateId, missingImport, unknownTag, duplicateTag, unknownVariant, unknownKey, duplicateKey, omittedKey, openId, fileName, fileVersion, fileWrong, moduleId, <> addressOverflow, circularType, circularValue, elision, enumOrder, exportAttr, fieldPosition, forwardRef, inlineRhs, internalCall, missingBase, missingInit, missingLock, nonDefinition, nonTagType, nonTypeId, notImported, position, recordGap, recordOverlap, recursiveInline, typeLength, varExport, voided, <> boundsFault, controlId, defaultForm, duplicateLabel, exportClash, missingBinding, missingCoercion, misusedInline, mixedRepresentation, noApplication, nonAddressable, nonConstant, nonLHS, nonVariantLabel, noTarget, notPortable, noVariants, overflow, relationType, scopeFault, sizeClash, spuriousBinding, typeClash, unknownLabel, unsafeOperation, unsafeSelection, <> listShort, listLong, <> attrClash, pointerInit, stateVector, unsafeArgs, <> privateExport, uninitialized, unusedExport, unusedId, unusedImport, voidExport, <> replString, replId, <> unsignedCompare }; Error: PROC [ErrorCode]; ErrorHti: PROC [ErrorCode, Symbols.Name]; ErrorN: PROC [ErrorCode, INTEGER]; ErrorNode: PROC [ErrorCode, Tree.Index]; ErrorSei: PROC [ErrorCode, Symbols.ISEIndex]; ErrorTree: PROC [ErrorCode, Tree.Link]; Warning: PROC [ErrorCode]; WarningNode: PROC [ErrorCode, Tree.Index]; WarningSei: PROC [ErrorCode, Symbols.ISEIndex]; WarningSubString: PROC [ErrorCode, ConvertUnsafe.SubString]; WarningRope: PROC [ErrorCode, Rope.ROPE]; WarningTree: PROC [ErrorCode, Tree.Link]; }.