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

* string -> shortstring

Browse Source
This commit is contained in:
Michael VAN CANNEYT 2023-01-06 10:58:11 +01:00 committed by Michaël Van Canneyt
parent 0f7f9a73a8
commit ef98dd877a
2 changed files with 9 additions and 9 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
rtl/beos/ossysc.inc
View File

@ -250,7 +250,7 @@ const
myheaprealsize=$20000;
var
myheapstart:pointer;
s : string;
s : shortstring;
begin
WriteLn('fpmmap');
Str(len, s);

16
rtl/beos/system.pp
View File

@ -88,7 +88,7 @@ end ['EAX'];*)
{ must return the first address of new data space or nil if fail }
(*function Sbrk(size : longint):pointer;
var newsize,newrealsize:longint;
s : string;
s : shortstring;
begin
WriteLn('SBRK');
Str(size, s);
@ -133,7 +133,7 @@ function sys_resize_area (handle:cardinal; size:longint):longint; cdecl; externa
{ must return the first address of new data space or nil if fail }
//function Sbrk(size : longint):pointer;
//var newsize,newrealsize:longint;
// s : string;
// s : shortstring;
//begin
// sbrk := sbrk2(size);
(* sbrk := nil;
@ -202,7 +202,7 @@ function sys_resize_area (handle:cardinal; size:longint):longint; cdecl; externa
Function ParamCount: Longint;
var
s : string;
s : shortstring;
Begin
ParamCount := 0;
Paramcount:=argc - 1;
@ -240,7 +240,7 @@ var
cookie: longint;
image : image_info;
index : byte;
s : string;
s : shortstring;
begin
cookie:=0;
fillchar(image, sizeof(image_info), 0);
@ -260,10 +260,10 @@ begin
end;
end;
function paramstr(l: longint) : string;
function paramstr(l: longint) : shortstring;
var
s: string;
s1: string;
s: shortstring;
s1: shortstring;
begin
{ stricly conforming POSIX applications }
@ -370,7 +370,7 @@ begin
end;
var
s : string;
s : shortstring;
begin
IsConsole := TRUE;
StackLength := CheckInitialStkLen(InitialStkLen);