Explorar o código

Always use phdr if found_addr is still -1

Pierre Muller hai 1 semana
pai
achega
a359c7b4a8
Modificáronse 1 ficheiros con 1 adicións e 1 borrados
  1. 1 1
      rtl/inc/exeinfo.pp

+ 1 - 1
rtl/inc/exeinfo.pp

@@ -1013,7 +1013,7 @@ begin
           end;
           end;
       end;
       end;
 
 
-    if ((found_addr=ptruint(-1)) or (found_addr < ptruint(phdr))) and (ptruint(phdr)<ptruint(addr)) then
+    if (found_addr=ptruint(-1)) or ((found_addr < ptruint(phdr)) and (ptruint(phdr)<ptruint(addr))) then
       found_addr:=ptruint(phdr);
       found_addr:=ptruint(phdr);
     { Set pagesize to a default small value }
     { Set pagesize to a default small value }
     if (pagesize=ptruint(-1)) then
     if (pagesize=ptruint(-1)) then