anchor.diff:     if regcode <> @regdummy then begin
         off := (Result + REOpSz + RENextOffSz)
          - (regcode - REOpSz - RENextOffSz); // back to Atom after LOOPENTRY
  -      PREBracesArg (regcode)^ := ABracesMin;
  +      PREBracesArg (AlignToInt(regcode))^ := ABracesMin;
         inc (regcode, REBracesArgSz);
  -      PREBracesArg (regcode)^ := ABracesMax;
  +      PREBracesArg (AlignToInt(regcode))^ := ABracesMax;
         inc (regcode, REBracesArgSz);
  -      PRENextOff (regcode)^ := off;
  +      PRENextOff (AlignToPtr(regcode))^ := off;
         inc (regcode, RENextOffSz);
         {$IFDEF DebugSynRegExpr}
         if regcode-programm>regsize then
  
positive.code:  {$ELSE}
   XIgnoredChars = [' ', #9, #$d, #$a];
   {$ENDIF}
  
  {=============================================================}
  {=================== WideString functions ====================}
  
negative.code:            EXIT;
            end;
           LOOP, LOOPNG: begin //###0.940
             opnd := scan + PRENextOff (AlignToPtr(scan + REOpSz + RENextOffSz + REBracesArgSz * 2))^;
             min_cnt := PREBracesArg (AlignToPtr(scan + REOpSz + RENextOffSz))^;
             FillFirstCharSet (opnd);
             if min_cnt = 0
              then FillFirstCharSet (next);
  