paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-06-06 19:18:23 +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; myheaprealsize=$20000;
var var
myheapstart:pointer; myheapstart:pointer;
s : string; s : shortstring;
begin begin
WriteLn('fpmmap'); WriteLn('fpmmap');
Str(len, s); 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 } { must return the first address of new data space or nil if fail }
(*function Sbrk(size : longint):pointer; (*function Sbrk(size : longint):pointer;
var newsize,newrealsize:longint; var newsize,newrealsize:longint;
s : string; s : shortstring;
begin begin
WriteLn('SBRK'); WriteLn('SBRK');
Str(size, s); 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 } { must return the first address of new data space or nil if fail }
//function Sbrk(size : longint):pointer; //function Sbrk(size : longint):pointer;
//var newsize,newrealsize:longint; //var newsize,newrealsize:longint;
// s : string; // s : shortstring;
//begin //begin
// sbrk := sbrk2(size); // sbrk := sbrk2(size);
(* sbrk := nil; (* sbrk := nil;
@ -202,7 +202,7 @@ function sys_resize_area (handle:cardinal; size:longint):longint; cdecl; externa
Function ParamCount: Longint; Function ParamCount: Longint;
var var
s : string; s : shortstring;
Begin Begin
ParamCount := 0; ParamCount := 0;
Paramcount:=argc - 1; Paramcount:=argc - 1;
@ -240,7 +240,7 @@ var
cookie: longint; cookie: longint;
image : image_info; image : image_info;
index : byte; index : byte;
s : string; s : shortstring;
begin begin
cookie:=0; cookie:=0;
fillchar(image, sizeof(image_info), 0); fillchar(image, sizeof(image_info), 0);
@ -260,10 +260,10 @@ begin
end; end;
end; end;
function paramstr(l: longint) : string; function paramstr(l: longint) : shortstring;
var var
s: string; s: shortstring;
s1: string; s1: shortstring;
begin begin
{ stricly conforming POSIX applications } { stricly conforming POSIX applications }
@ -370,7 +370,7 @@ begin
end; end;
var var
s : string; s : shortstring;
begin begin
IsConsole := TRUE; IsConsole := TRUE;
StackLength := CheckInitialStkLen(InitialStkLen); StackLength := CheckInitialStkLen(InitialStkLen);