paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-09-01 20:32:02 +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} {$ifndef IN_SYSTEM}
{$GOTO ON} {$GOTO ON}
{$define IN_DPMIEXCP_UNIT} {$define IN_DPMIEXCP_UNIT}
{$ifndef NO_EXCEPTIONS_IN_SYSTEM} {$ifndef NO_EXCEPTIONS_IN_SYSTEM}
@ -474,12 +475,12 @@ const
Helpers Helpers
****************************************************************************} ****************************************************************************}
procedure err(const x : string); procedure err(const x : shortstring);
begin begin
write(stderr, x); write(stderr, x);
end; end;
procedure errln(const x : string); procedure errln(const x : shortstring);
begin begin
writeln(stderr, x); writeln(stderr, x);
end; end;
@ -487,7 +488,7 @@ end;
procedure itox(v,len : longint); procedure itox(v,len : longint);
var var
st : string; st : shortstring;
begin begin
st:=hexstr(v,len); st:=hexstr(v,len);
err(st); err(st);
@ -861,7 +862,7 @@ const
old_video_mode : byte = 3; old_video_mode : byte = 3;
procedure dump_selector(const name : string; sel : word); procedure dump_selector(const name : shortstring; sel : word);
var var
base,limit : longint; base,limit : longint;
begin begin