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

* Replace string -> shortstring

Browse Source
This commit is contained in:
Michaël Van Canneyt 2023-07-13 10:48:46 +02:00 committed by Michael Van Canneyt
parent 4c529287c6
commit 28b8d069ba
1 changed files with 5 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
rtl/go32v2/dpmiexcp.pp
View File

@ -14,6 +14,7 @@
**********************************************************************}
{$ifndef IN_SYSTEM}
{$GOTO ON}
{$define IN_DPMIEXCP_UNIT}
{$ifndef NO_EXCEPTIONS_IN_SYSTEM}
@ -474,12 +475,12 @@ const
Helpers
****************************************************************************}
procedure err(const x : string);
procedure err(const x : shortstring);
begin
write(stderr, x);
end;
procedure errln(const x : string);
procedure errln(const x : shortstring);
begin
writeln(stderr, x);
end;
@ -487,7 +488,7 @@ end;
procedure itox(v,len : longint);
var
st : string;
st : shortstring;
begin
st:=hexstr(v,len);
err(st);
@ -861,7 +862,7 @@ const
old_video_mode : byte = 3;
procedure dump_selector(const name : string; sel : word);
procedure dump_selector(const name : shortstring; sel : word);
var
base,limit : longint;
begin