Browse Source

Fix two obvious compilation errors

git-svn-id: trunk@36831 -
pierre 8 years ago
parent
commit
db00b1e554
2 changed files with 2 additions and 2 deletions
  1. 1 1
      rtl/emx/dos.pas
  2. 1 1
      rtl/emx/sysutils.pp

+ 1 - 1
rtl/emx/dos.pas

@@ -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

+ 1 - 1
rtl/emx/sysutils.pp

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