AmigaOS4, MorphOS: added missing RemBob macro

packages/morphunits/src/agraphics.pas

@@ -2170,6 +2170,7 @@ procedure SetAfPt(w: pRastPort;p: Pointer; n: Byte);
 procedure SetDrPt(w: pRastPort;p: Word);
 procedure SetOPen(w: pRastPort;c: Byte);
 procedure SetWrMsk(w: pRastPort; m: Byte);
+procedure RemBob(Bob: PBob); inline;
 
 procedure SafeSetOutlinePen(w: pRastPort; c: byte);
 procedure SafeSetWriteMask( w: pRastPort ; m: smallint ) ;
@@ -2193,6 +2194,11 @@ function InitGraphicsLibrary: boolean;
 
 implementation
 
+procedure RemBob(Bob: PBob);
+begin
+  Bob^.Flags := Bob^.Flags or BOBSAWAY;
+end;
+
 function VideoControlTags(ColorMap: PColorMap; const Tags: array of PtrUInt): LongBool; inline;
 begin
   VideoControlTags := VideoControl(ColorMap, @Tags);

packages/os4units/src/agraphics.pas

@@ -2521,6 +2521,7 @@ procedure SetAfPt(w: PRastPort; p: Pointer; n: Byte);
 procedure SetDrPt(w: PRastPort; p: Word);
 procedure SetOPen(w: PRastPort; c: Byte);
 procedure SetWrMsk(w: PRastPort; m: Byte);
+procedure RemBob(Bob: PBob); inline;
 
 procedure SafeSetOutlinePen(w: PRastPort; c: Byte);
 procedure SafeSetWriteMask(w: PRastPort; m: SmallInt) ;
@@ -2539,6 +2540,11 @@ function RasSize(w, h: Word): Integer;
 
 implementation
 
+procedure RemBob(Bob: PBob);
+begin
+  Bob^.Flags := Bob^.Flags or BOBSAWAY;
+end;
+
 function AllocSpriteData(bm: PBitMap; const argv: array of PtrUInt): PExtSprite;
 begin
   AllocSpriteData := AllocSpriteDataA(bm, @argv);