bugfixes for generics; new threads implementation still broken
This commit is contained in:
parent
dc3ace4f37
commit
fd62116f6e
19 changed files with 260 additions and 126 deletions
|
|
@ -279,8 +279,8 @@ type
|
|||
|
||||
TTypeFlags* = set[TTypeFlag]
|
||||
|
||||
TSymKind* = enum # the different symbols (start with the prefix sk);
|
||||
# order is important for the documentation generator!
|
||||
TSymKind* = enum # the different symbols (start with the prefix sk);
|
||||
# order is important for the documentation generator!
|
||||
skUnknown, # unknown symbol: used for parsing assembler blocks
|
||||
# and first phase symbol lookup in generics
|
||||
skConditional, # symbol for the preprocessor (may become obsolete)
|
||||
|
|
@ -848,6 +848,10 @@ proc initNodeTable(x: var TNodeTable) =
|
|||
proc sonsLen(n: PType): int =
|
||||
if isNil(n.sons): result = 0
|
||||
else: result = len(n.sons)
|
||||
|
||||
proc len*(n: PType): int =
|
||||
if isNil(n.sons): result = 0
|
||||
else: result = len(n.sons)
|
||||
|
||||
proc newSons(father: PType, length: int) =
|
||||
if isNil(father.sons): father.sons = @[]
|
||||
|
|
|
|||
Loading…
Add table
Add a link
Reference in a new issue