[Lazarus] tail on windows

[dmitry boyarintsev]

On Mon, Jul 19, 2010 at 10:09 PM, Mattias Gaertner
<nc-gaertnma at netcologne.de> wrote:
> Can you create a new patch?

Here you go. Has just tested it on Vista64.

Index: lclproc.pas
===================================================================
--- lclproc.pas	(revision 26738)
+++ lclproc.pas	(working copy)
@@ -2051,13 +2051,18 @@
       Result := ExpandFileNameUTF8(Result);
   end;

+var
+  fm : Byte;
+
 begin
   DebugText := nil;
   DebugFileName := GetDebugFileName;
   if (length(DebugFileName)>0) and
     (DirPathExists(ExtractFileDir(DebugFileName))) then begin
+    fm:=Filemode;
     new(DebugText);
     try
+      Filemode:=fmShareDenyNone;
       Assign(DebugText^, DebugFileName);
       if FileExistsUTF8(DebugFileName) then
         Append(DebugText^)
@@ -2069,6 +2074,7 @@
       // Add extra line ending: a dialog will be shown in windows gui
application
       writeln(StdOut, 'Cannot open file: ', DebugFileName+LineEnding);
     end;
+    Filemode:=fm;
   end;
   if DebugText=nil then
   begin
-------------- next part --------------
A non-text attachment was scrubbed...
Name: lclproc.patch
Type: application/octet-stream
Size: 868 bytes
Desc: not available
URL: <http://lists.lazarus-ide.org/pipermail/lazarus/attachments/20100719/56dae45a/attachment-0004.obj>