GitHub/gf-core
1
0
Fork 1
mirror of https://github.com/GrammaticalFramework/gf-core.git synced 2026-04-23 19:42:50 -06:00
Code Issues Packages Projects Releases Wiki Activity

the symbol for nonExist in the GF runtime should be the last. this simplifies the binary search in the C runtime

Browse Source
This commit is contained in:
kr.angelov
2013-10-03 08:21:31 +00:00
parent 84c1422e6f
commit 357ddfb5d3
2 changed files with 4 additions and 4 deletions
Download Patch File Download Diff File Expand all files Collapse all files

4
src/runtime/c/pgf/data.h
View File

@@ -178,8 +178,8 @@ typedef enum {
PGF_SYMBOL_VAR, PGF_SYMBOL_VAR,
PGF_SYMBOL_KS, PGF_SYMBOL_KS,
PGF_SYMBOL_KP, PGF_SYMBOL_KP,
PGF_SYMBOL_NE, PGF_SYMBOL_BIND,
PGF_SYMBOL_BIND PGF_SYMBOL_NE
} PgfSymbolTag; } PgfSymbolTag;
typedef struct { typedef struct {

4
src/runtime/haskell/PGF/Data.hs
View File

@@ -59,9 +59,9 @@ data Symbol
| SymLit {-# UNPACK #-} !Int {-# UNPACK #-} !LIndex | SymLit {-# UNPACK #-} !Int {-# UNPACK #-} !LIndex
| SymVar {-# UNPACK #-} !Int {-# UNPACK #-} !Int | SymVar {-# UNPACK #-} !Int {-# UNPACK #-} !Int
| SymKS Token | SymKS Token
| SymNE -- non exist
| SymBIND -- the special BIND token
| SymKP [Symbol] [([Symbol],[String])] | SymKP [Symbol] [([Symbol],[String])]
| SymBIND -- the special BIND token
| SymNE -- non exist (this should be last constructor to simplify the binary search in the runtime)
deriving (Eq,Ord,Show) deriving (Eq,Ord,Show)
data Production data Production
= PApply {-# UNPACK #-} !FunId [PArg] = PApply {-# UNPACK #-} !FunId [PArg]