Mercurial > hg > Members > kono > os9 > sbc09
diff TL1/test/t4.tl1 @ 177:3770e86114aa
TL/1 fix
author | Shinji KONO <kono@ie.u-ryukyu.ac.jp> |
---|---|
date | Mon, 15 Apr 2019 04:27:18 +0900 |
parents | 6ef317714ae8 |
children | 4d83154d2a78 |
line wrap: on
line diff
--- a/TL1/test/t4.tl1 Mon Apr 15 00:25:58 2019 +0900 +++ b/TL1/test/t4.tl1 Mon Apr 15 04:27:18 2019 +0900 @@ -24,20 +24,20 @@ ARRAY BEND BEGIN VAL := SEEK(DICT,TEND) - POSITION(BUF,BEND) + D:=POSITION(BUF,BEND) WHILE VAL#0 DO [ - C:=SEEKR(BUF,-1) - K:=SEEKR(DICT,-1) + C:=SEEKR(BUF,0-1) + K:=SEEKR(DICT,0-1) IF K.LT.0 THEN [ - IF C=-K THEN + IF C=0-K THEN RETURN VAL % FOUND - VAL := SEEKR(DICT,-1) + VAL := SEEKR(DICT,0-1) ] ELSE IF C#K THEN [ D:=SEEK(BUF,BEND) REPEAT - K:=SEEKR(DICT,-1) + K:=SEEKR(DICT,0-1) UNTIL K.LT.0 - VAL := SEEKR(DICT,-1) + VAL := SEEKR(DICT,0-1) ] ] RETURN VAL % NOT FOUND