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

*arm: TPECoffLinker is TInternalLinkerWin

Browse Source 
+arm : InterlockedCompareExchangePointer

git-svn-id: trunk@3993 -
This commit is contained in:
oro06 2006-06-29 07:39:54 +00:00
parent c3d99528e7
commit 3afad32966
2 changed files with 8 additions and 1 deletions
compiler/systems
t_win.pas
rtl/arm
arm.inc

2
compiler/systems/t_win.pas
View File

@ -1792,7 +1792,7 @@ initialization
{$endif x86_64}
{$ifdef arm}
RegisterExternalLinker(system_arm_wince_info,TExternalLinkerWin);
RegisterInternalLinker(system_arm_wince_info,TPECoffLinker);
RegisterInternalLinker(system_arm_wince_info,TInternalLinkerWin);
RegisterImport(system_arm_wince,TImportLibWin);
RegisterExport(system_arm_wince,TExportLibWin);
RegisterRes(res_gnu_wince_windres_info);

7
rtl/arm/arm.inc
View File

@ -211,3 +211,10 @@ function InterLockedExchangeAdd (var Target: longint;Source : longint) : longint
Result:=Target;
inc(Target,Source);
end;
function InterlockedCompareExchange(var Target: longint; NewValue: longint; Comperand: longint): longint;
begin
Result:=Target; //return initial value
if (Target=Comperand)
then Target:=NewValue;
end;