|
@@ -1264,12 +1264,13 @@ type
|
|
{$endif}
|
|
{$endif}
|
|
|
|
|
|
function GetModuleName:string;
|
|
function GetModuleName:string;
|
|
-var
|
|
|
|
{$ifdef MSWINDOWS}
|
|
{$ifdef MSWINDOWS}
|
|
|
|
+var
|
|
sz:cardinal;
|
|
sz:cardinal;
|
|
buf:array[0..8191] of char;
|
|
buf:array[0..8191] of char;
|
|
{$endif}
|
|
{$endif}
|
|
{$if defined(LINUX) or defined(BSD)}
|
|
{$if defined(LINUX) or defined(BSD)}
|
|
|
|
+var
|
|
res:integer;
|
|
res:integer;
|
|
dli:dl_info;
|
|
dli:dl_info;
|
|
{$endif}
|
|
{$endif}
|