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

* fixed compilation of win16 in medium memory model

Browse Source 
git-svn-id: trunk@37697 -
This commit is contained in:
nickysn 2017-12-07 17:29:06 +00:00
parent 08062a2eb4
commit 9e6209db3a
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/win16/system.pp
View File

@ -249,7 +249,7 @@ begin
Writeln(debug_output,'Dos command line is #',CmdLine,'#'); Writeln(debug_output,'Dos command line is #',CmdLine,'#');
{$EndIf} {$EndIf}
{ find argv0len } { find argv0len }
argv0len:=GetModuleFileName(hInstance,@argv0_arr,SizeOf(argv0_arr)); argv0len:=GetModuleFileName(hInstance,FarAddr(argv0_arr),SizeOf(argv0_arr));
{$IfDef SYSTEM_DEBUG_STARTUP} {$IfDef SYSTEM_DEBUG_STARTUP}
Writeln(debug_output,'arv0 is #',argv0_arr,'# len=', argv0len); Writeln(debug_output,'arv0 is #',argv0_arr,'# len=', argv0len);
{$EndIf} {$EndIf}