paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-10-30 01:31:31 +01:00
Code Issues Packages Projects Releases Wiki Activity

* default sharing mode changed to DenyNone

Browse Source
This commit is contained in:
Tomas Hajny 2003-01-15 22:16:12 +00:00
parent 7b1d508f3a
commit 5e2e0e48d2
1 changed files with 6 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
rtl/os2/system.pas
View File

@ -589,9 +589,9 @@ begin
exit; exit;
end; end;
Action := Action or (Flags and $FF); Action := Action or (Flags and $FF);
(* DenyAll if sharing not specified. *) (* DenyNone if sharing not specified. *)
if Flags and 112 = 0 then if Flags and 112 = 0 then
Action := Action or 16; Action := Action or 64;
asm asm
movl $0x7f2b, %eax movl $0x7f2b, %eax
movl Action, %ecx movl Action, %ecx
@ -1237,7 +1237,10 @@ begin
end. end.
{ {
$Log$ $Log$
Revision 1.30 2002-12-15 22:41:41 hajny Revision 1.31 2003-01-15 22:16:12 hajny
* default sharing mode changed to DenyNone
Revision 1.30 2002/12/15 22:41:41 hajny
* First_Meg fixed + Environment initialization under Dos * First_Meg fixed + Environment initialization under Dos
Revision 1.29 2002/12/08 16:39:58 hajny Revision 1.29 2002/12/08 16:39:58 hajny