paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-09-13 10:29:17 +02:00
Code Issues Packages Projects Releases Wiki Activity

* string -> shortstring

Browse Source
This commit is contained in:
Michael VAN CANNEYT 2023-01-06 11:02:55 +01:00 committed by Michaël Van Canneyt
parent 216c55871a
commit 53b50327e9
1 changed files with 5 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
rtl/msdos/system.pp
View File

@ -100,8 +100,8 @@ const
implementation
procedure DebugWrite(const S: string); forward;
procedure DebugWriteLn(const S: string); forward;
procedure DebugWrite(const S: shortstring); forward;
procedure DebugWriteLn(const S: shortstring); forward;
const
fCarry = 1;
@ -266,7 +266,7 @@ Procedure SysInitFPU;
{$I ports.inc}
procedure DebugWrite(const S: string);
procedure DebugWrite(const S: shortstring);
begin
asm
{$if defined(FPC_X86_DATA_FAR) or defined(FPC_X86_DATA_HUGE)}
@ -296,7 +296,7 @@ begin
end ['ax','bx','cx','dx','si','di'];
end;
procedure DebugWriteLn(const S: string);
procedure DebugWriteLn(const S: shortstring);
begin
DebugWrite(S);
DebugWrite(#13#10);
@ -567,7 +567,7 @@ begin
end;
function paramstr(l : longint) : string;
function paramstr(l : longint) : shortstring;
begin
if argv=nil then
setup_arguments;