On Mon, Jul 19, 2010 at 10:09 PM, Mattias Gaertner <[email protected]> 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
lclproc.patch
Description: Binary data
-- _______________________________________________ Lazarus mailing list [email protected] http://lists.lazarus.freepascal.org/mailman/listinfo/lazarus
