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

sinclairql: turn the anyKey string const into a pchar, this reduces the final binary size by 200-odd bytes

Browse Source 
git-svn-id: trunk@49196 -
This commit is contained in:
Károly Balogh 2021-04-13 10:20:29 +00:00
parent f90324a02a
commit da252e2f4b
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
rtl/sinclairql/system.pp
View File

@ -302,14 +302,14 @@ procedure haltproc(e:longint); external name '_haltproc';
procedure system_exit; procedure system_exit;
const const
anyKey: string = 'Press any key to exit'; anyKey: pchar = 'Press any key to exit';
begin begin
if assigned(args) then if assigned(args) then
FreeMem(args); FreeMem(args);
if assigned(argv) then if assigned(argv) then
FreeMem(argv); FreeMem(argv);
io_sstrg(stdOutputHandle, -1, @anyKey[1], ord(anyKey[0])); io_sstrg(stdOutputHandle, -1, anyKey, length(anykey));
io_fbyte(stdInputHandle, -1); io_fbyte(stdInputHandle, -1);
stdInputHandle:=UnusedHandle; stdInputHandle:=UnusedHandle;