Explorar el Código

+ add cardinal test

git-svn-id: trunk@13308 -
Jonas Maebe hace 16 años
padre
commit
fce899388f
Se han modificado 1 ficheros con 5 adiciones y 0 borrados
  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.