* Fix non-unix compilation

rtl/inc/exeinfo.pp

@@ -98,7 +98,7 @@ uses
 {$else}
     TST: array[0..Max_Path] of AnsiChar;
 {$endif FPC_OS_UNICODE}
-  procedure GetModuleByAddr(addr: pointer; var baseaddr: pointer; var filename: shortstring);
+  procedure GetModuleByAddr(addr: pointer; var baseaddr: pointer; var filename: ansistring);
     begin
       baseaddr:=nil;
       if VirtualQuery(addr, @Tmm, SizeOf(Tmm))<>sizeof(Tmm) then
@@ -123,7 +123,7 @@ uses
 
   procedure startsymbol; external name '_start';
 
-  procedure GetModuleByAddr(addr: pointer; var baseaddr: pointer; var filename: string);
+  procedure GetModuleByAddr(addr: pointer; var baseaddr: pointer; var filename: ansistring);
     begin
       baseaddr:= @startsymbol;
 {$ifdef FPC_HAS_FEATURE_COMMANDARGS}
@@ -135,7 +135,7 @@ uses
 
 {$elseif defined(msdos)}
 
-  procedure GetModuleByAddr(addr: farpointer; var baseaddr: farpointer; var filename: string);
+  procedure GetModuleByAddr(addr: farpointer; var baseaddr: farpointer; var filename: ansistring);
     begin
       baseaddr:=Ptr(PrefixSeg+16,0);
       filename:=ParamStr(0);
@@ -148,7 +148,7 @@ uses
 
   function get_next_image_info(team: team_id; var cookie:longint; var info:image_info; size: size_t) : status_t;cdecl; external 'root' name '_get_next_image_info';
 
-  procedure GetModuleByAddr(addr: pointer; var baseaddr: pointer; var filename: shortstring);
+  procedure GetModuleByAddr(addr: pointer; var baseaddr: pointer; var filename: ansistring);
     const
       B_OK = 0;
     var
@@ -175,9 +175,9 @@ uses
 {$else}
 
 {$ifdef CPUI8086}
-  procedure GetModuleByAddr(addr: farpointer; var baseaddr: farpointer; var filename: string);
+  procedure GetModuleByAddr(addr: farpointer; var baseaddr: farpointer; var filename: ansistring);
 {$else CPUI8086}
-  procedure GetModuleByAddr(addr: pointer; var baseaddr: pointer; var filename: string);
+  procedure GetModuleByAddr(addr: pointer; var baseaddr: pointer; var filename: ansistring);
 {$endif CPUI8086}
     begin
       baseaddr:= nil;