Fix disabling hintProcessing

This commit is contained in:
Eduardo Bart 2016-06-20 18:57:45 -03:00
commit 48d37900a9
2 changed files with 3 additions and 2 deletions

View file

@ -185,6 +185,7 @@ proc processSpecificNote(arg: string, state: TSpecialWord, pass: TCmdLinePass,
of wOff: of wOff:
excl(gNotes, n) excl(gNotes, n)
incl(disableNotes, n) incl(disableNotes, n)
excl(ForeignPackageNotes, n)
else: localError(info, errOnOrOffExpectedButXFound, arg) else: localError(info, errOnOrOffExpectedButXFound, arg)
proc processCompile(filename: string) = proc processCompile(filename: string) =

View file

@ -502,8 +502,6 @@ type
ESuggestDone* = object of Exception ESuggestDone* = object of Exception
const const
ForeignPackageNotes*: TNoteKinds = {hintProcessing, warnUnknownMagic,
hintQuitCalled}
NotesVerbosity*: array[0..3, TNoteKinds] = [ NotesVerbosity*: array[0..3, TNoteKinds] = [
{low(TNoteKind)..high(TNoteKind)} - {warnShadowIdent, warnUninit, {low(TNoteKind)..high(TNoteKind)} - {warnShadowIdent, warnUninit,
warnProveField, warnProveIndex, warnProveField, warnProveIndex,
@ -531,6 +529,8 @@ const
InvalidFileIDX* = int32(-1) InvalidFileIDX* = int32(-1)
var var
ForeignPackageNotes*: TNoteKinds = {hintProcessing, warnUnknownMagic,
hintQuitCalled}
filenameToIndexTbl = initTable[string, int32]() filenameToIndexTbl = initTable[string, int32]()
fileInfos*: seq[TFileInfo] = @[] fileInfos*: seq[TFileInfo] = @[]
systemFileIdx*: int32 systemFileIdx*: int32