paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-12 22:49:34 +02:00
Code Issues Packages Projects Releases Wiki Activity

* Some forgotten string -> shortstring instances

Browse Source
This commit is contained in:
Michael VAN CANNEYT 2023-01-07 19:59:02 +01:00 committed by Michaël Van Canneyt
parent 11e3b12354
commit 6084bb6d09
4 changed files with 12 additions and 12 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
rtl/inc/lineinfo.pp
View File

@ -29,7 +29,7 @@ type
{$ENDIF}
function GetLineInfo(addr:ptruint;var func,source:string;var line:longint) : boolean;
function StabBackTraceStr(addr:CodePointer):string;
function StabBackTraceStr(addr:CodePointer):shortstring;
procedure CloseStabs;
var
@ -277,7 +277,7 @@ begin
seek(e.f,stabstrofs+dirstab.strpos);
blockread(e.f,source[1],high(source)-1,res);
dirlength:=strlen(@source[1]);
source[0]:=chr(dirlength);
SetLength(source,dirlength);
end
else
dirlength:=0;
@ -285,13 +285,13 @@ begin
begin
seek(e.f,stabstrofs+filestab.strpos);
blockread(e.f,source[dirlength+1],high(source)-(dirlength+1),res);
source[0]:=chr(strlen(@source[1]));
SetLength(source,strlen(@source[1]));
end;
if funcstab.ntype<>0 then
begin
seek(e.f,stabstrofs+funcstab.strpos);
blockread(e.f,func[1],high(func)-1,res);
func[0]:=chr(strlen(@func[1]));
SetLength(func,strlen(@func[1]));
i:=pos(':',func);
if i>0 then
Delete(func,i,255);
@ -304,7 +304,7 @@ begin
end;
function StabBackTraceStr(addr:CodePointer):string;
function StabBackTraceStr(addr:CodePointer):shortstring;
var
func,
source : string;

4
rtl/inc/lnfodwrf.pp
View File

@ -32,7 +32,7 @@ type
{$ENDIF}
function GetLineInfo(addr:codeptruint;var func,source:string;var line:longint) : boolean;
function DwarfBackTraceStr(addr: CodePointer): string;
function DwarfBackTraceStr(addr: CodePointer): shortstring;
procedure CloseDwarf;
var
@ -1415,7 +1415,7 @@ begin
end;
function DwarfBackTraceStr(addr: CodePointer): string;
function DwarfBackTraceStr(addr: CodePointer): shortstring;
var
func,
source : string;

6
rtl/unix/dos.pp
View File

@ -685,7 +685,7 @@ End;
--- File ---
******************************************************************************}
Function FSearch(path : pathstr;dirlist : string) : pathstr;
Function FSearch(path : pathstr;dirlist : shortstring) : pathstr;
Var
info : BaseUnix.stat;
Begin
@ -806,7 +806,7 @@ Begin
End;
Function EnvStr (Index: longint): String;
Function EnvStr (Index: longint): ShortString;
Var
i : longint;
p : PPAnsiChar;
@ -830,7 +830,7 @@ Begin
end;
Function GetEnv(EnvVar: String): String;
Function GetEnv(EnvVar: ShortString): ShortString;
var
p : PAnsiChar;
Begin

4
rtl/unix/timezone.inc
View File

@ -252,7 +252,7 @@ begin
TimeZoneDir:=TimeZoneDir+'/';
end;
function ReadTimezoneFile(fn:shortstring) : Boolean;
function ReadTimezoneFile(fn:string) : Boolean;
function decode(const l:longint):longint;
begin
@ -489,7 +489,7 @@ Const
{$ifndef FPC_HAS_GETTIMEZONEFILE}
function GetTimezoneFile:shortstring;
function GetTimezoneFile:string;
var
f,len : longint;
fn,s : shortstring;