anchor.diff:          }
   
   type
  +  PSDLColor = ^TSDLColor;
     TSDLColor = record
       r: UInt8;
       g: UInt8;
  
positive.code:    *  0 on success, or -1 if not all of the colors could be set.
     *}
  
  function SDL_SetPaletteColors(palette: PSDLPalette; const colors: PSDLColor; int firstcolor; int ncolors): SInt32 cdecl external {$IFDEF GPC} name 'SDL_SetPaletteColors' {$ELSE} SDL_LibName {$ENDIF};
  
    {**
     *  Free a palette created with SDL_AllocPalette().
  
negative.code:   PSDLDisplayMode = ^TSDLDisplayMode;
    TSDLDisplayMode = record
      format: Uint32;              {**< pixel format *}
      w: SInt32;                   {**< width *}
      h: SInt32;                   {**< height *}
      refresh_rate: SInt32;        {**< refresh rate (or zero for unspecified) *}
      driverdata: Pointer;         {**< driver-specific data, initialize to 0 *}
    end;
  
    {**
  