CydandClaude Fable 5
63312e07f9
- BORLAND/: Borland C++ 4.52 (chosen over 4.5 by byte-match: CODE/RP/CW32.LIB
is identical to 4.52's install lib). BCC32/TLINK32/TLIB/MAKE run natively on
Win11; CODE/BT/OPT.MAK is the shipped BTL4OPT.EXE's exact flag recipe
(extender = Borland PowerPack DPMI32, not Phar Lap TNT).
- restoration/source410/: the literal 1995-form reconstruction of the missing
BT game source (never mixed into CODE/). Round 1-3 state:
* 6 of 10 surviving original TUs COMPILE CLEAN under the period toolchain
(BTMSSN, BTCNSL, BTSCNRL, BTTEAM, BTL4MODE, BTL4ARND) - first builds
since 1996.
* BT_L4/BTL4APP.CPP pilot reconstruction: 12/12 functions, Fail() lands on
its binary-recorded line 400 exactly.
* BT/BTCNSL.HPP: console wire IDs recovered from the binary's ctors
(Killed=9, Damaged=10, ScoreUpdate=13, DeathWithoutHonor=15 [T1];
TeamScore=12 flagged [T4]).
* MUNGA/: 8 engine-header backfills back-dated from the BT412 WinTesla tree
(VDATA numbering decomp-verified; AUDREND's OpenAL-era virtual removed -
the period compiler is the drift detector).
* Tooling: backdate.py (WinTesla->1995 header transform), compile410.sh
(per-TU verification sweep under authentic OPT.MAK flags).
* README: corrected roadmap - MECH.HPP is the capstone grown with the mech
TU reconstructions; BTREG.CPP green = the header-family milestone.
Co-Authored-By: Claude Fable 5 <noreply@anthropic.com>
214 lines
7.4 KiB
C++
214 lines
7.4 KiB
C++
/*--------------------------------------------------------------------*/
|
|
/* */
|
|
/* ALLOCTR.H */
|
|
/* */
|
|
/* Copyright (c) 1992, 1994 Borland International */
|
|
/* All Rights Reserved */
|
|
/* */
|
|
/*--------------------------------------------------------------------*/
|
|
|
|
#if !defined( CLASSLIB_ALLOCTR_H )
|
|
#define CLASSLIB_ALLOCTR_H
|
|
|
|
#if !defined(___DEFS_H)
|
|
#include <_defs.h>
|
|
#endif
|
|
|
|
#if !defined( __STDLIB_H )
|
|
#include <stdlib.h>
|
|
#endif
|
|
|
|
#if !defined( CLASSLIB_DEFS_H )
|
|
#include <classlib/defs.h>
|
|
#endif
|
|
|
|
#if defined( BI_CLASSLIB_NO_po )
|
|
#pragma option -po-
|
|
#endif
|
|
|
|
/*------------------------------------------------------------------------*/
|
|
/* */
|
|
/* class TStandardAllocator */
|
|
/* */
|
|
/* Provides class-specific operator new and operator delete that */
|
|
/* simply call the global operator new and operator delete. That */
|
|
/* is, TStandardAllocator does not provide any specialized behavior. */
|
|
/* It is used in the non-managed versions of the parametrized */
|
|
/* containers. */
|
|
/* */
|
|
/*------------------------------------------------------------------------*/
|
|
|
|
class _BIDSCLASS TStandardAllocator
|
|
{
|
|
public:
|
|
friend void _BIDSFAR * _RTLENTRY _EXPFUNC32
|
|
operator new( size_t sz, const TStandardAllocator& )
|
|
{ return ::operator new( sz ); }
|
|
friend void _BIDSFAR * _RTLENTRY _EXPFUNC32
|
|
operator new [] ( size_t sz, const TStandardAllocator& )
|
|
{ return ::operator new [] ( sz ); }
|
|
friend void _BIDSFAR * _RTLENTRY _EXPFUNC32
|
|
operator new( unsigned, void *ptr )
|
|
{ return ptr; }
|
|
friend void _BIDSFAR * _RTLENTRY _EXPFUNC32
|
|
operator new [] ( unsigned, void *ptr )
|
|
{ return ptr; }
|
|
void _RTLENTRY _EXPFUNC32 operator delete( void _BIDSFAR *ptr )
|
|
{ ::operator delete( ptr ); }
|
|
void _RTLENTRY _EXPFUNC32 operator delete [] ( void _BIDSFAR *ptr )
|
|
{ ::operator delete [] ( ptr ); }
|
|
};
|
|
|
|
#if defined( BI_OLDNAMES )
|
|
#define BI_StandardAllocator TStandardAllocator
|
|
#endif
|
|
|
|
/*------------------------------------------------------------------------*/
|
|
/* */
|
|
/* class TSharedAllocator */
|
|
/* */
|
|
/* Provides class-specific operator new and operator delete that */
|
|
/* allocate from shared memory. */
|
|
/* */
|
|
/*------------------------------------------------------------------------*/
|
|
|
|
class _BIDSFARCLASS TSharedAllocator
|
|
{
|
|
public:
|
|
friend void _BIDSFARDATA *operator new( size_t sz, const TSharedAllocator& );
|
|
friend void _BIDSFARDATA *operator new [] ( size_t sz, const TSharedAllocator& );
|
|
void operator delete( void _BIDSFARDATA *ptr );
|
|
void operator delete [] ( void _BIDSFARDATA *ptr );
|
|
};
|
|
|
|
#if defined( BI_OLDNAMES )
|
|
#define BI_SharedAllocator TSharedAllocator
|
|
#endif
|
|
|
|
/*------------------------------------------------------------------------*/
|
|
/* */
|
|
/* template <class T, class Alloc> class TManaged_T */
|
|
/* */
|
|
/* Provides a parametrized wrapper for type T which uses a */
|
|
/* class-specific operator new and operator delete supplied */
|
|
/* by Alloc. */
|
|
/* */
|
|
/*------------------------------------------------------------------------*/
|
|
|
|
template <class T, class Alloc> class TManaged_T : private Alloc
|
|
{
|
|
|
|
public:
|
|
|
|
Alloc::operator delete;
|
|
Alloc::operator delete [];
|
|
|
|
TManaged_T() {}
|
|
TManaged_T( const T& t ) : data(t)
|
|
{
|
|
}
|
|
|
|
const TManaged_T& operator = ( const TManaged_T& t )
|
|
{
|
|
data = t.data;
|
|
return *this;
|
|
}
|
|
|
|
operator T&()
|
|
{
|
|
return data;
|
|
}
|
|
|
|
private:
|
|
|
|
T data;
|
|
|
|
};
|
|
|
|
#if defined( BI_OLDNAMES )
|
|
#define BI_Managed_T TManaged_T
|
|
#endif
|
|
|
|
/*------------------------------------------------------------------------*/
|
|
/* */
|
|
/* TSharedAllocator::operator new */
|
|
/* TSharedAllocator::operator delete */
|
|
/* */
|
|
/* When compiling for WINDOWS, allocates memory as GMEM_DDESHARE. */
|
|
/* When compiling for DOS, uses the global operator new and */
|
|
/* operator delete. */
|
|
/* */
|
|
/*------------------------------------------------------------------------*/
|
|
|
|
#if !defined( BI_PLAT_WIN32 ) && !defined( BI_PLAT_OS2 )
|
|
// Can't test for BI_PLAT_WIN16, because some memory models
|
|
// of the classlib aren't built with Windows switches
|
|
|
|
#if !defined( __WINDOWS_H )
|
|
#define STRICT
|
|
#include <windows.h>
|
|
#endif
|
|
|
|
#if !defined( __DOS_H )
|
|
#include <dos.h>
|
|
#endif
|
|
|
|
inline void _BIDSFARDATA *operator new( size_t sz,
|
|
const TSharedAllocator& )
|
|
{
|
|
return GlobalLock( GlobalAlloc( GPTR | GMEM_DDESHARE, sz ) );
|
|
}
|
|
|
|
inline void _BIDSFARDATA *operator new [] ( size_t sz,
|
|
const TSharedAllocator& )
|
|
{
|
|
return GlobalLock( GlobalAlloc( GPTR | GMEM_DDESHARE, sz ) );
|
|
}
|
|
|
|
inline void TSharedAllocator::operator delete( void _BIDSFARDATA *ptr )
|
|
{
|
|
HGLOBAL hMem = (HGLOBAL)GlobalHandle(FP_SEG(ptr));
|
|
if( GlobalUnlock(hMem) == 0 )
|
|
GlobalFree(hMem);
|
|
}
|
|
|
|
inline void TSharedAllocator::operator delete [] ( void _BIDSFARDATA *ptr )
|
|
{
|
|
HGLOBAL hMem = (HGLOBAL)GlobalHandle(FP_SEG(ptr));
|
|
if( GlobalUnlock(hMem) == 0 )
|
|
GlobalFree(hMem);
|
|
}
|
|
|
|
#else
|
|
|
|
inline void _BIDSFAR *operator new( size_t sz,
|
|
const TSharedAllocator& )
|
|
{
|
|
return ::operator new( sz );
|
|
}
|
|
|
|
inline void _BIDSFAR *operator new [] ( size_t sz,
|
|
const TSharedAllocator& )
|
|
{
|
|
return ::operator new [] ( sz );
|
|
}
|
|
|
|
inline void TSharedAllocator::operator delete( void _BIDSFAR *ptr )
|
|
{
|
|
::operator delete( ptr );
|
|
}
|
|
|
|
inline void TSharedAllocator::operator delete [] ( void _BIDSFAR *ptr )
|
|
{
|
|
::operator delete [] ( ptr );
|
|
}
|
|
|
|
#endif // !BI_PLAT_WIN32 && !BI_PLAT_OS2
|
|
|
|
#if defined( BI_CLASSLIB_NO_po )
|
|
#pragma option -po.
|
|
#endif
|
|
|
|
#endif // CLASSLIB_ALLOCTR_H
|
|
|