Bug in LMDFileCreate (LMDFiles.pas) when getting SVN-Version

Comments

• Alexander Hramov

  January 2012

  We haven't such lines in LMDFiles.pas from svn.

  
  

  function LMDFileCreate(const FileName: TLMDString): THandle;

  begin

    {$IFDEF LMD_UNICODE}

    Result := Integer(CreateFileW(PWideChar(FileName), GENERIC_READ or GENERIC_WRITE, 0,

      nil, CREATE_ALWAYS, FILE_ATTRIBUTE_NORMAL, 0));

    {$ELSE}

    Result := Integer(Windows.CreateFile(PChar(FileName), GENERIC_READ or GENERIC_WRITE, 0,

      nil, CREATE_ALWAYS, FILE_ATTRIBUTE_NORMAL, 0));

    {$ENDIF}

  end;
• BernhardGeyer

  January 2012 edited January 2012

  Ok. So it seem that there was done a merge on my checkout-directory.