From f52b0393111d0030c0f645cb5585ebf094c78c0a Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?K=C3=A1roly=20Balogh?= <karoly@freepascal.org>
Date: Sun, 24 May 2015 21:43:13 +0000
Subject: [PATCH] Amiga/m68k: made m68kamiga.inc to even compile, and maybe
 look like if it was Pascal code

git-svn-id: trunk@30902 -
---
 rtl/amiga/m68k/m68kamiga.inc | 20 ++++++++++----------
 1 file changed, 10 insertions(+), 10 deletions(-)

diff --git a/rtl/amiga/m68k/m68kamiga.inc b/rtl/amiga/m68k/m68kamiga.inc
index 2cc85f2870..aa0b4ed748 100644
--- a/rtl/amiga/m68k/m68kamiga.inc
+++ b/rtl/amiga/m68k/m68kamiga.inc
@@ -22,45 +22,45 @@
 
 function InterLockedDecrement (var Target: longint) : longint;
   begin
-    Forbid();
+    Forbid;
     Dec(Target);
     Result := Target;
-    Permit();
+    Permit;
   end;
 
 
 function InterLockedIncrement (var Target: longint) : longint;
   begin
-    Forbid()
+    Forbid;
     Inc(Target);
     Result := Target;
-    Permit();
+    Permit;
   end;
 
 
 function InterLockedExchange (var Target: longint;Source : longint) : longint;
   begin
-    Forbid();
+    Forbid;
     Result := Target;
     Target := Source;
-    Permit();
+    Permit;
   end;
 
 
 function InterLockedExchangeAdd (var Target: longint;Source : longint) : longint;
   begin
-    Forbid();
+    Forbid;
     Result := Target;
     Target := Target + Source;
-    Permit();
+    Permit;
   end;
 
 
 function InterlockedCompareExchange(var Target: longint; NewValue: longint; Comperand: longint): longint;
   begin
-    Forbid();
+    Forbid;
     Result := Target;
     if Target = Comperand then
       Target := NewValue;
-    Permit();
+    Permit;
   end;