Browse Source

+ add cardinal test

git-svn-id: trunk@13308 -
Jonas Maebe 16 years ago
parent
commit
fce899388f
1 changed files with 5 additions and 0 deletions
  1. 5 0
      tests/test/units/system/interlocked1.pp

+ 5 - 0
tests/test/units/system/interlocked1.pp

@@ -1,10 +1,15 @@
 var
   target : longint;
+  ctarget : cardinal;
 
 begin
   target:=1234;
   InterLockedCompareExchange(target,4321,1234);
   if target<>4321 then
     halt(1);
+  ctarget:=1234;
+  InterLockedCompareExchange(ctarget,4321,1234);
+  if ctarget<>4321 then
+    halt(1);
   writeln('ok');
 end.