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

* slight change to the OpenBSD startup code, to allow Low(__progname_storage)<>0

Browse Source 
(not that it's going to be changed that way, but it doesn't hurt for the code
  to be more robust; and it doesn't affect performance, since the compiler
  optimizes x-0 to x)

git-svn-id: trunk@41737 -
This commit is contained in:
nickysn 2019-03-19 13:34:42 +00:00
parent 60d21cc041
commit cf2aa6fdb7
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
rtl/openbsd/x86_64/si_prc.inc
View File

@ -53,7 +53,7 @@ procedure _FPC_proc___start(argc: LongInt; argv: PPChar; envp: Pointer; para1, p
I:=Low(__progname_storage);
while (I<High(__progname_storage)) and (__progname[I]<>#0) do
begin
__progname_storage[I]:=__progname[I];
__progname_storage[I]:=__progname[I-Low(__progname_storage)];
Inc(I);
end;
__progname_storage[I]:=#0;