/***************************************************************************//*                                                                         *//*  ftsystem.c                                                             *//*                                                                         *//*    Amiga-specific FreeType low-level system interface (body).           *//*                                                                         *//*  Copyright 1996-2001, 2002 by                                           *//*  David Turner, Robert Wilhelm, and Werner Lemberg.                      *//*                                                                         *//*  This file is part of the FreeType project, and may only be used,       *//*  modified, and distributed under the terms of the FreeType project      *//*  license, LICENSE.TXT.  By continuing to use, modify, or distribute     *//*  this file you indicate that you have read the license and              *//*  understand and accept it fully.                                        *//*                                                                         *//***************************************************************************/  /*************************************************************************/  /*                                                                       */  /* This file contains the Amiga interface used by FreeType to access     */  /* low-level, i.e. memory management, i/o access as well as thread       */  /* synchronisation.                                                      */  /*                                                                       */  /*************************************************************************/// Maintained by Detlef W黵kner <TetiSoft@apg.lahn.de>// TetiSoft: Modified to avoid fopen() fclose() fread() fseek() ftell()// malloc() realloc() and free() which can't be used in an amiga// shared run-time library linked with libinit.o#include <exec/memory.h>#ifdef __GNUC__// Avoid warnings "struct X declared inside parameter list"#include <exec/devices.h>#include <exec/io.h>#include <exec/semaphores.h>#include <dos/exall.h>#endif// Necessary with OS3.9 includes#define __USE_SYSBASE#include <proto/exec.h>#include <proto/dos.h>#ifndef __GNUC__/* TetiSoft: Missing in alib_protos.h, see amiga.lib autodoc * (These amiga.lib functions work under AmigaOS V33 and up) */extern APTR __asmAsmCreatePool( register __d0 ULONG             memFlags,               register __d1 ULONG             puddleSize,               register __d2 ULONG             threshSize,               register __a6 struct ExecBase*  SysBase );extern VOID __asmAsmDeletePool( register __a0 APTR              poolHeader,               register __a6 struct ExecBase*  SysBase );extern APTR __asmAsmAllocPooled( register __a0 APTR              poolHeader,                register __d0 ULONG             memSize,                register __a6 struct ExecBase*  SysBase );extern VOID __asmAsmFreePooled( register __a0 APTR              poolHeader,               register __a1 APTR              memory,               register __d0 ULONG             memSize,               register __a6 struct ExecBase*  SysBase);#endif// TetiSoft: C implementation of AllocVecPooled (see autodoc exec/AllocPooled)APTRAllocVecPooled( APTR   poolHeader,                ULONG  memSize ){  ULONG  newSize = memSize + sizeof ( ULONG );#ifdef __GNUC__  ULONG  *mem = AllocPooled( poolHeader, newSize );#else  ULONG  *mem = AsmAllocPooled( poolHeader, newSize, SysBase );#endif  if ( !mem )    return NULL;  *mem = newSize;  return mem + 1;}// TetiSoft: C implementation of FreeVecPooled (see autodoc exec/AllocPooled)voidFreeVecPooled( APTR  poolHeader,               APTR  memory ){  ULONG  *realmem = (ULONG *)memory - 1;#ifdef __GNUC__  FreePooled( poolHeader, realmem, *realmem );#else AsmFreePooled( poolHeader, realmem, *realmem, SysBase );#endif}#include <ft2build.h>#include FT_CONFIG_CONFIG_H#include FT_INTERNAL_DEBUG_H#include FT_SYSTEM_H#include FT_ERRORS_H#include FT_TYPES_H#include <stdio.h>#include <stdlib.h>#include <string.h>  /*************************************************************************/  /*                                                                       */  /*                       MEMORY MANAGEMENT INTERFACE                     */  /*                                                                       */  /*************************************************************************/  /*************************************************************************/  /*                                                                       */  /* It is not necessary to do any error checking for the                  */  /* allocation-related functions.  This will be done by the higher level  */  /* routines like FT_Alloc() or FT_Realloc().                             */  /*                                                                       */  /*************************************************************************/  /*************************************************************************/  /*                                                                       */  /* <Function>                                                            */  /*    ft_alloc                                                           */  /*                                                                       */  /* <Description>                                                         */  /*    The memory allocation function.                                    */  /*                                                                       */  /* <Input>                                                               */  /*    memory :: A pointer to the memory object.                          */  /*                                                                       */  /*    size   :: The requested size in bytes.                             */  /*                                                                       */  /* <Return>                                                              */  /*    The address of newly allocated block.                              */  /*                                                                       */  FT_CALLBACK_DEF( void* )  ft_alloc( FT_Memory  memory,            long       size )  {//  FT_UNUSED( memory );//  return malloc( size );    return AllocVecPooled( memory->user, size );  }  /*************************************************************************/  /*                                                                       */  /* <Function>                                                            */  /*    ft_realloc                                                         */  /*                                                                       */  /* <Description>                                                         */  /*    The memory reallocation function.                                  */  /*                                                                       */  /* <Input>                                                               */  /*    memory   :: A pointer to the memory object.                        */  /*                                                                       */  /*    cur_size :: The current size of the allocated memory block.        */  /*                                                                       */  /*    new_size :: The newly requested size in bytes.                     */  /*                                                                       */  /*    block    :: The current address of the block in memory.            */  /*                                                                       */  /* <Return>                                                              */  /*    The address of the reallocated memory block.                       */  /*                                                                       */  FT_CALLBACK_DEF( void* )  ft_realloc( FT_Memory  memory,              long       cur_size,              long       new_size,              void*      block )  {//  FT_UNUSED( memory );//  FT_UNUSED( cur_size );//  return realloc( block, new_size );    void* new_block;    new_block = AllocVecPooled ( memory->user, new_size );    if ( new_block != NULL )    {      CopyMem ( block, new_block,                ( new_size > cur_size ) ? cur_size : new_size );      FreeVecPooled ( memory->user, block );    }    return new_block;  }  /*************************************************************************/  /*                                                                       */  /* <Function>                                                            */  /*    ft_free                                                            */  /*                                                                       */  /* <Description>                                                         */  /*    The memory release function.                                       */  /*                                                                       */  /* <Input>                                                               */  /*    memory :: A pointer to the memory object.                          */  /*                                                                       */  /*    block  :: The address of block in memory to be freed.              */  /*                                                                       */  FT_CALLBACK_DEF( void )  ft_free( FT_Memory  memory,           void*      block )  {//  FT_UNUSED( memory );