Code cleanup at function TAOptBase.RegInInstruction

compiler/aoptbase.pas has

  Function TAOptBase.RegInInstruction(Reg: TRegister; p1: tai): Boolean;
    Var
      Count: longint;
    Begin
      result:=false;
      if p1.typ<>ait_instruction then
        exit;
      for Count:=0 to TInstr(p1).ops-1 do
        if RegInOp(Reg, TInstr(p1).oper[Count]^) then
          exit(true);
      result:=false;
    End;

The presence of the last "result:=false;" is useless because false is already assigned at the beginning of the function. The following patch removes it. patch.diff

To upload designs, you'll need to enable LFS and have an admin enable hashed storage. More information