From 9e6209db3a28f7b263d137d852b9dde89267e188 Mon Sep 17 00:00:00 2001
From: nickysn <nickysn@gmail.com>
Date: Thu, 7 Dec 2017 17:29:06 +0000
Subject: [PATCH] * fixed compilation of win16 in medium memory model

git-svn-id: trunk@37697 -
---
 rtl/win16/system.pp | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/rtl/win16/system.pp b/rtl/win16/system.pp
index c02c318dd7..098378418d 100644
--- a/rtl/win16/system.pp
+++ b/rtl/win16/system.pp
@@ -249,7 +249,7 @@ begin
   Writeln(debug_output,'Dos command line is #',CmdLine,'#');
 {$EndIf}
   { find argv0len }
-  argv0len:=GetModuleFileName(hInstance,@argv0_arr,SizeOf(argv0_arr));
+  argv0len:=GetModuleFileName(hInstance,FarAddr(argv0_arr),SizeOf(argv0_arr));
 {$IfDef SYSTEM_DEBUG_STARTUP}
   Writeln(debug_output,'arv0 is #',argv0_arr,'# len=', argv0len);
 {$EndIf}