another optimization of Romance VP. Effect on Fre over 50% in compilation and parse speed. Somewhat smaller on Spa,Ita,Cat.

This commit is contained in:
aarne
2014-11-30 15:05:00 +00:00
parent 76abd1e66f
commit 0ea47b76c4
9 changed files with 95 additions and 54 deletions

View File

@@ -103,10 +103,15 @@ incomplete concrete SentenceRomance of Sentence =
ext = vp.ext ! b ;
part = case vp.agr of {
VPAgrSubj => verb ! VPart agr.g agr.n ;
VPAgrClit g n => verb ! VPart g n
---- VPAgr : this is where it really matters
part = case vp.agr.p2 of {
False => vp.agr.p1 ;
True => verb ! VPart agr.g agr.n
} ;
---- part = case vp.agr of {
---- VPAgrSubj => verb ! VPart agr.g agr.n ;
---- VPAgrClit g n => verb ! VPart g n
---- } ;
vpss : Str * Str = case <te,a> of {