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

* Make sure it compiles with previous release

Browse Source
This commit is contained in:
Michael VAN CANNEYT 2023-05-23 10:14:14 +02:00
parent a7578e144d
commit b2f2c5671c
1 changed files with 6 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
packages/fpmkunit/src/fpmkunit.pp
View File

@ -110,6 +110,10 @@ uses
{$endif HAS_UNIT_ZIPPER}
;
{$IF DECLARED(VOLATILE)}
{$DEFINE HAVE_VOLATILE}
{$ENDIF}
Type
TFileType = (ftSource,ftUnit,ftObject,ftResource,ftExecutable,ftStaticLibrary,
ftSharedLibrary);
@ -7429,7 +7433,7 @@ begin
{ prevent FCachedlibcPath getting freed by thread 2 while thread 1 is
concatenating it to -Fl below }
try
if volatile(FCachedlibcPath)='' then
if {$IFDEF HAVE_VOLATILE}volatile{$ENDIF}(FCachedlibcPath)='' then
begin
{$endif NO_THREADING}
FCachedlibcPath:=s;
@ -7449,7 +7453,7 @@ begin
{$ifdef NO_THREADING}
Args.Add('-Fl'+FCachedlibcPath);
{$ELSE}
Args.Add('-Fl'+volatile(FCachedlibcPath));
Args.Add('-Fl'+{$IFDEF HAVE_VOLATILE}volatile{$ENDIF}(FCachedlibcPath));
{$ENDIF}
end;