paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-07 18:47:52 +02:00
Code Issues Packages Projects Releases Wiki Activity

* Fix windows compilation

Browse Source
This commit is contained in:
Michaël Van Canneyt 2023-10-24 17:25:42 +02:00
parent 39ef628a77
commit 1866aa1515
1 changed files with 4 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
packages/pastojs/src/pas2jsfileutils.pp
View File

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