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

* revert to the initial implementation of GetCommandLine as the code generator

Browse Source 
bug mentioned in the comment has been fixed

git-svn-id: trunk@27173 -
This commit is contained in:
nickysn 2014-03-17 20:33:32 +00:00
parent 5f985602fb
commit 517f802ccc
1 changed files with 0 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
rtl/msdos/system.pp
View File

@ -195,16 +195,9 @@ var
len, I: Integer; len, I: Integer;
begin begin
len := PFarByte(Ptr(dos_psp, $80))^; len := PFarByte(Ptr(dos_psp, $80))^;
{$ifdef CG_BUG}
{ doesn't work due to a code generator bug }
SetLength(GetCommandLine, len); SetLength(GetCommandLine, len);
for I := 1 to len do for I := 1 to len do
GetCommandLine[I] := PFarChar(Ptr(dos_psp, $80 + I))^; GetCommandLine[I] := PFarChar(Ptr(dos_psp, $80 + I))^;
{$else CG_BUG}
GetCommandLine := '';
for I := 1 to len do
GetCommandLine := GetCommandLine + PFarChar(Ptr(dos_psp, $80 + I))^;
{$endif CG_BUG}
end; end;