|
@@ -94,15 +94,13 @@ procedure IncreaseChangeStamp(var Stamp: TChangeStamp);
|
|
|
|
|
|
|
|
implementation
|
|
implementation
|
|
|
|
|
|
|
|
-{$IFDEF FPC_DOTTEDUNITS}
|
|
|
|
|
{$IFDEF Windows}
|
|
{$IFDEF Windows}
|
|
|
-uses WinApi.Windows, Pas2Js.Utils;
|
|
|
|
|
-{$ENDIF}
|
|
|
|
|
|
|
+{$IFDEF FPC_DOTTEDUNITS}
|
|
|
|
|
+uses WinApi.Windows;
|
|
|
{$ELSE FPC_DOTTEDUNITS}
|
|
{$ELSE FPC_DOTTEDUNITS}
|
|
|
-{$IFDEF Windows}
|
|
|
|
|
-uses Windows, pas2jsutils;
|
|
|
|
|
-{$ENDIF}
|
|
|
|
|
|
|
+uses Windows;
|
|
|
{$ENDIF FPC_DOTTEDUNITS}
|
|
{$ENDIF FPC_DOTTEDUNITS}
|
|
|
|
|
+{$ENDIF}
|
|
|
|
|
|
|
|
|
|
|
|
|
function FilenameIsWinAbsolute(const aFilename: string): boolean;
|
|
function FilenameIsWinAbsolute(const aFilename: string): boolean;
|
Michaël Van Canneyt