Add SDL_atomic.inc

Author: Free-Pascal-meets-SDL-Website

units/SDL3.pas

@@ -110,6 +110,7 @@ interface
 {$I SDL_dialog.inc}                       // 3.2.0
 {$I SDL_time.inc}                         // 3.2.0
 {$I SDL_filesystem.inc}                   // 3.2.0
+{$I SDL_atomic.inc}                       // 3.2.0
 
 
 implementation
@@ -313,5 +314,16 @@ function SDL_WINDOWPOS_ISCENTERED(X: Integer): Boolean;
   Result := (X and $FFFF0000) = SDL_WINDOWPOS_CENTERED_MASK;
 end;
 
+{ Macros from SDL_atomic.h }
+function SDL_AtomicIncRef(a: PSDL_AtomicInt): cint;
+begin
+  SDL_AtomicIncRef:=SDL_AddAtomicInt(a,1);
+end;
+
+function SDL_AtomicDecRef(a: PSDL_AtomicInt): cbool;
+begin
+  SDL_AtomicDecRef:=(SDL_AddAtomicInt(a,-1)=1);
+end;
+
 end.