mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-08-24 12:09:25 +02:00
Fix two obvious compilation errors
git-svn-id: trunk@36831 -
This commit is contained in:
parent
a1b956f778
commit
db00b1e554
@ -195,7 +195,7 @@ begin
|
||||
dirlist:='';
|
||||
end;
|
||||
if (newdir<>'') and
|
||||
not (newdir[length(newdir)] in AllowDirectorySeparators+DriveSeparator) then
|
||||
not (newdir[length(newdir)] in AllowDirectorySeparators+AllowDriveSeparators) then
|
||||
newdir:=newdir+DirectorySeparator;
|
||||
if CheckFile (NewDir + Path + #0) then
|
||||
NewDir := NewDir + Path
|
||||
|
@ -475,7 +475,7 @@ asm
|
||||
xor eax, 112
|
||||
jz @FOpenDefSharing
|
||||
cmp eax, 64
|
||||
jbe FOpen1
|
||||
jbe @FOpen1
|
||||
@FOpenDefSharing:
|
||||
or ecx, 64
|
||||
@FOpen1:
|
||||
|
Loading…
Reference in New Issue
Block a user