better error message for implicit pragmas
This commit is contained in:
parent
c3c215a6fa
commit
d5f40ee70d
1 changed files with 2 additions and 0 deletions
|
|
@ -865,9 +865,11 @@ proc implicitPragmas*(c: PContext, sym: PSym, n: PNode,
|
||||||
while it != nil:
|
while it != nil:
|
||||||
let o = it.otherPragmas
|
let o = it.otherPragmas
|
||||||
if not o.isNil:
|
if not o.isNil:
|
||||||
|
pushInfoContext(n.info)
|
||||||
for i in countup(0, sonsLen(o) - 1):
|
for i in countup(0, sonsLen(o) - 1):
|
||||||
if singlePragma(c, sym, o, i, validPragmas):
|
if singlePragma(c, sym, o, i, validPragmas):
|
||||||
internalError(n.info, "implicitPragmas")
|
internalError(n.info, "implicitPragmas")
|
||||||
|
popInfoContext()
|
||||||
it = it.next.POptionEntry
|
it = it.next.POptionEntry
|
||||||
|
|
||||||
if lfExportLib in sym.loc.flags and sfExportc notin sym.flags:
|
if lfExportLib in sym.loc.flags and sfExportc notin sym.flags:
|
||||||
|
|
|
||||||
Loading…
Add table
Add a link
Reference in a new issue