Bläddra i källkod

* Fix compilation

Michael VAN CANNEYT 2 år sedan
förälder
incheckning
2339db3b00
1 ändrade filer med 7 tillägg och 7 borttagningar
  1. 7 7
      rtl/inc/exeinfo.pp

+ 7 - 7
rtl/inc/exeinfo.pp

@@ -60,12 +60,12 @@ type
 function OpenExeFile(var e:TExeFile;const fn:shortstring):boolean;
 function FindExeSection(var e:TExeFile;const secname:shortstring;var secofs,seclen:longint):boolean;
 function CloseExeFile(var e:TExeFile):boolean;
-function ReadDebugLink(var e:TExeFile;var dbgfn:shortstring):boolean;
+function ReadDebugLink(var e:TExeFile;var dbgfn:ansistring):boolean;
 
 {$ifdef CPUI8086}
-procedure GetModuleByAddr(addr: farpointer; var baseaddr: farpointer; var filename: shortstring);
+procedure GetModuleByAddr(addr: farpointer; var baseaddr: farpointer; var filename: ansistring);
 {$else CPUI8086}
-procedure GetModuleByAddr(addr: pointer; var baseaddr: pointer; var filename: shortstring);
+procedure GetModuleByAddr(addr: pointer; var baseaddr: pointer; var filename: ansistring);
 {$endif CPUI8086}
 
 implementation
@@ -78,7 +78,7 @@ uses
 
 {$if defined(unix) and not defined(beos) and not defined(haiku)}
 
-  procedure GetModuleByAddr(addr: pointer; var baseaddr: pointer; var filename: shortstring);
+  procedure GetModuleByAddr(addr: pointer; var baseaddr: pointer; var filename: ansistring);
     begin
       if assigned(UnixGetModuleByAddrHook) then
         UnixGetModuleByAddrHook(addr,baseaddr,filename)
@@ -906,7 +906,7 @@ begin
 end;
 
 procedure GetExeInMemoryBaseAddr(addr : pointer; var BaseAddr : pointer;
-                                 var filename : openstring);
+                                 var filename : ansistring);
 type
   AT_HDR = record
     typ : ptruint;
@@ -1588,7 +1588,7 @@ begin
 end;
 
 {$ifndef darwin}
-function ReadDebugLink(var e:TExeFile;var dbgfn:shortstring):boolean;
+function ReadDebugLink(var e:TExeFile;var dbgfn:ansistring):boolean;
 var
   dbglink : array[0..255] of AnsiChar;
   i,
@@ -1632,7 +1632,7 @@ begin
     end;
 end;
 {$else}
-function ReadDebugLink(var e:TExeFile;var dbgfn:shortstring):boolean;
+function ReadDebugLink(var e:TExeFile;var dbgfn:ansistring):boolean;
 var
    dsymexefile: TExeFile;
    execmd, dsymcmd: pmach_load_command;