diff options
Diffstat (limited to 'Build/source/texk/web2c/ptexdir/ptex-base.ch')
-rw-r--r-- | Build/source/texk/web2c/ptexdir/ptex-base.ch | 16 |
1 files changed, 8 insertions, 8 deletions
diff --git a/Build/source/texk/web2c/ptexdir/ptex-base.ch b/Build/source/texk/web2c/ptexdir/ptex-base.ch index 759e4b5bbd0..c62b9ac59c3 100644 --- a/Build/source/texk/web2c/ptexdir/ptex-base.ch +++ b/Build/source/texk/web2c/ptexdir/ptex-base.ch @@ -1581,8 +1581,8 @@ begin switch: if loc<=limit then {current line not yet finished} @^inner loop@> begin switch: if loc<=limit then {current line not yet finished} begin cur_chr:=buffer[loc]; incr(loc); - if multistrlen(stringcast(buffer), limit+1, loc-1)=2 then - begin cur_chr:=fromBUFF(stringcast(buffer), limit+1, loc-1); + if multistrlen(ustringcast(buffer), limit+1, loc-1)=2 then + begin cur_chr:=fromBUFF(ustringcast(buffer), limit+1, loc-1); cur_cmd:=kcat_code(kcatcodekey(cur_chr)); incr(loc); end @@ -1671,8 +1671,8 @@ end @<Scan a control...@>= begin if loc>limit then cur_cs:=null_cs {|state| is irrelevant in this case} else begin k:=loc; cur_chr:=buffer[k]; incr(k); - if multistrlen(stringcast(buffer), limit+1, k-1)=2 then - begin cat:=kcat_code(kcatcodekey(fromBUFF(stringcast(buffer), limit+1, k-1))); incr(k); + if multistrlen(ustringcast(buffer), limit+1, k-1)=2 then + begin cat:=kcat_code(kcatcodekey(fromBUFF(ustringcast(buffer), limit+1, k-1))); incr(k); end else cat:=cat_code(cur_chr); start_cs: @@ -1755,8 +1755,8 @@ end @y @ @<Scan ahead in the buffer...@>= begin repeat cur_chr:=buffer[k]; incr(k); - if multistrlen(stringcast(buffer), limit+1, k-1)=2 then - begin cat:=kcat_code(kcatcodekey(fromBUFF(stringcast(buffer), limit+1, k-1))); incr(k); + if multistrlen(ustringcast(buffer), limit+1, k-1)=2 then + begin cat:=kcat_code(kcatcodekey(fromBUFF(ustringcast(buffer), limit+1, k-1))); incr(k); end else cat:=cat_code(cur_chr); while (buffer[k]=cur_chr)and(cat=sup_mark)and(k<limit) do @@ -2193,8 +2193,8 @@ else if scan_keyword("sp") then goto done if t=" " then t:=space_token else t:=other_token+t; @y - if multistrlen(stringcast(str_pool), pool_ptr, k)=2 then - begin t:=fromBUFF(stringcast(str_pool), pool_ptr, k); incr(k); + if multistrlen(ustringcast(str_pool), pool_ptr, k)=2 then + begin t:=fromBUFF(ustringcast(str_pool), pool_ptr, k); incr(k); end else if t=" " then t:=space_token else t:=other_token+t; |