paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-27 11:50:30 +02:00
Code Issues Packages Projects Releases Wiki Activity

Fix two obvious compilation errors

Browse Source 
git-svn-id: trunk@36831 -
This commit is contained in:
pierre 2017-08-04 12:26:24 +00:00
parent a1b956f778
commit db00b1e554
2 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
rtl/emx/dos.pas
View File

@ -195,7 +195,7 @@ begin
dirlist:=''; dirlist:='';
end; end;
if (newdir<>'') and if (newdir<>'') and
not (newdir[length(newdir)] in AllowDirectorySeparators+DriveSeparator) then not (newdir[length(newdir)] in AllowDirectorySeparators+AllowDriveSeparators) then
newdir:=newdir+DirectorySeparator; newdir:=newdir+DirectorySeparator;
if CheckFile (NewDir + Path + #0) then if CheckFile (NewDir + Path + #0) then
NewDir := NewDir + Path NewDir := NewDir + Path

2
rtl/emx/sysutils.pp
View File

@ -475,7 +475,7 @@ asm
xor eax, 112 xor eax, 112
jz @FOpenDefSharing jz @FOpenDefSharing
cmp eax, 64 cmp eax, 64
jbe FOpen1 jbe @FOpen1
@FOpenDefSharing: @FOpenDefSharing:
or ecx, 64 or ecx, 64
@FOpen1: @FOpen1: