名前: 角藤 日時: 2006-07-13 01:00:35 IPアドレス: 61.22.250.*
>>43774 >r は初期化されていないわけではなくて、少し上の > loop@+ begin @<If instruction |cur_i| is a kern with |cur_c|, attach > the kern after~|q|; or if it is a ligature with |cur_c|, combine > noads |q| and~|p| appropriately; then |return| if the cursor has > moved past a noad, or |goto restart|@>; >の部分で >r:=new_noad; >のように決められています(条件つきのようですが...)。 >従って、不具合は別に原因があるのかもしれません。 >rr で正しく動いているのならば、それが正しいのかもしれませんが。 システムによっては、r の初期値が 0 になっている かもしれませんから、一番最初だけ r:=min_halfword のように明示的に初期化しておくとどうなりますか? --- ptex-base.ch.orig Mon May 29 11:13:56 2006 +++ ptex-base.ch Thu Jul 13 00:51:10 2006 @@ -3847,7 +3847,7 @@ var a:integer; {address of lig/kern instruction} @!gp,@!gq,@!p,@!r:pointer; {temporary registers for list manipulation} @!rr:halfword; -begin restart:@t@>@;@/ +begin r:=min_halfword; restart:@t@>@;@/ if (math_type(subscr(q))=empty)and(math_type(supscr(q))=empty)and@| ((math_type(nucleus(q))=math_char)or(math_type(nucleus(q))=math_jchar)) then begin p:=link(q);
この書き込みへの返事：