DataMuseum.dk

top - download

    Length: 7983 (0x1f2f)
    Types: TextFile
    Names: »V«

└─⟦149519bd4⟧ Bits:30000546 8mm tape, Rational 1000, !projects 93-07-13
    └─ ⟦124ff5788⟧ »DATA« 
        └─⟦this⟧ 
└─⟦a7d1ea751⟧ Bits:30000550 8mm tape, Rational 1000, !users!projects 94_04_11
    └─ ⟦129cab021⟧ »DATA« 
        └─⟦this⟧ 
└─⟦f64eaa120⟧ Bits:30000752 8mm tape, Rational 1000, !projects 93 02 16
    └─ ⟦6f12a12be⟧ »DATA« 
        └─⟦this⟧ 
└─⟦2f6cfab89⟧ Bits:30000547 8mm tape, Rational 1000, !projects 94-01-04
    └─ ⟦d65440be7⟧ »DATA« 
        └─⟦this⟧ 

TextFile

--      Copyright (c) 1990 Meridian Software Systems, Inc.      --
with Mac_Types;
use Mac_Types;
package Memory is

    Maxsize : constant := 16#800000#;

    type Zone is
        record
            Bklim : Ptr;
            Purgeptr : Ptr;
            Hfstfree : Ptr;
            Zcbfree : Longint;
            Gzproc : Procptr;
            Moremast : Mac_Types.Integer;
            Flags : Mac_Types.Integer;
            Cntrel : Mac_Types.Integer;
            Maxrel : Mac_Types.Integer;
            Cntnrel : Mac_Types.Integer;
            Maxnrel : Mac_Types.Integer;
            Cntempty : Mac_Types.Integer;
            Cnthandles : Mac_Types.Integer;
            Mincbfree : Longint;
            Purgeproc : Procptr;
            Spareptr : Ptr;
            Allocptr : Ptr;
            Heapdata : Mac_Types.Integer;
        end record;
    type Thz is access Zone;

    subtype Size is Longint;
    type Varsize is access Size;

    function Getappllimit return Ptr;
    pragma Interface (Mpwpascal, Getappllimit, "16#2EB8#,16#0130#");

    function Getzone return Thz;
    pragma Interface (Mpwpascal, Getzone, "GETZONE");

    function Systemzone return Thz;
    pragma Interface (Mpwpascal, Systemzone, "16#2EB8#,16#02A6#");

    function Appliczone return Thz;
    pragma Interface (Mpwpascal, Appliczone, "16#2EB8#,16#02AA#");

    function Newhandle (Bytecount : Size) return Handle;
    pragma Interface (Mpwpascal, Newhandle, "NEWHANDLE");

    function Newhandlesys (Bytecount : Size) return Handle;
    pragma Interface (Mpwpascal, Newhandlesys, "NEWHANDLESYS");

    function Newhandleclear (Bytecount : Size) return Handle;
    pragma Interface (Mpwpascal, Newhandleclear, "NEWHANDLECLEAR");

    function Newhandlesysclear (Bytecount : Size) return Handle;
    pragma Interface (Mpwpascal, Newhandlesysclear, "NEWHANDLESYSCLEAR");

    function Handlezone (H : Handle) return Thz;
    pragma Interface (Mpwpascal, Handlezone, "HANDLEZONE");

    function Recoverhandle (P : Ptr) return Handle;
    pragma Interface (Mpwpascal, Recoverhandle, "RECOVERHANDLE");

    function Newptr (Bytecount : Size) return Ptr;
    pragma Interface (Mpwpascal, Newptr, "NEWPTR");

    function Newptrsys (Bytecount : Size) return Ptr;
    pragma Interface (Mpwpascal, Newptrsys, "NEWPTRSYS");

    function Newptrclear (Bytecount : Size) return Ptr;
    pragma Interface (Mpwpascal, Newptrclear, "NEWPTRCLEAR");

    function Newptrsysclear (Bytecount : Size) return Ptr;
    pragma Interface (Mpwpascal, Newptrsysclear, "NEWPTRSYSCLEAR");

    function Ptrzone (P : Ptr) return Thz;
    pragma Interface (Mpwpascal, Ptrzone, "PTRZONE");

    function Gzsavehnd return Handle;
    pragma Interface (Mpwpascal, Gzsavehnd, "16#2EB8#,16#0328#");

    function Topmem return Ptr;
    pragma Interface (Mpwpascal, Topmem, "16#2EB8#,16#0108#");

    function Maxblock return Longint;
    pragma Interface (Mpwpascal, Maxblock, "MAXBLOCK");

    function Stackspace return Longint;
    pragma Interface (Mpwpascal, Stackspace, "STACKSPACE");

    function Newemptyhandle return Handle;
    pragma Interface (Mpwpascal, Newemptyhandle, "NEWEMPTYHANDLE");

    procedure Hlock (H : Handle);
    pragma Interface (Mpwpascal, Hlock, "HLOCK");

    procedure Hunlock (H : Handle);
    pragma Interface (Mpwpascal, Hunlock, "HUNLOCK");

    procedure Hpurge (H : Handle);
    pragma Interface (Mpwpascal, Hpurge, "HPURGE");

    procedure Hnopurge (H : Handle);
    pragma Interface (Mpwpascal, Hnopurge, "HNOPURGE");

    function Stripaddress (Theaddress : Ptr) return Ptr;
    pragma Interface (Mpwpascal, Stripaddress, "STRIPADDRESS");

    function Mfmaxmem (Grow : Varsize) return Size;
    pragma Interface (Mpwpascal, Mfmaxmem, "16#3F3C#,16#0015#,16#A88F#");

    function Mffreemem return Longint;
    pragma Interface (Mpwpascal, Mffreemem, "16#3F3C#,16#0018#,16#A88F#");

    function Mftempnewhandle
                (Logicalsize : Size; Resultcode : Varoserr) return Handle;
    pragma Interface (Mpwpascal, Mftempnewhandle, "16#3F3C#,16#001D#,16#A88F#");

    procedure Mftemphlock (H : Handle; Resultcode : in out Oserr);
    pragma Interface (Mpwpascal, Mftemphlock, "16#3F3C#,16#001E#,16#A88F#");

    procedure Mftemphunlock (H : Handle; Resultcode : in out Oserr);
    pragma Interface (Mpwpascal, Mftemphunlock, "16#3F3C#,16#001F#,16#A88F#");

    procedure Mftempdisposhandle (H : Handle; Resultcode : in out Oserr);
    pragma Interface (Mpwpascal, Mftempdisposhandle,
                      "16#3F3C#,16#0020#,16#A88F#");

    function Mftopmem return Ptr;
    pragma Interface (Mpwpascal, Mftopmem, "16#3F3C#,16#0016#,16#A88F#");

    procedure Initapplzone;
    pragma Interface (Mpwpascal, Initapplzone, "INITAPPLZONE");

    procedure Initzone (Pgrowzone : Procptr;
                        Cmoremasters : Mac_Types.Integer;
                        Limitptr : Ptr;
                        Startptr : Ptr);
    pragma Interface (Mpwpascal, Initzone, "INITZONE");

    procedure Setzone (Hz : Thz);
    pragma Interface (Mpwpascal, Setzone, "SETZONE");

    function Compactmem (Cbneeded : Size) return Size;
    pragma Interface (Mpwpascal, Compactmem, "COMPACTMEM");

    procedure Purgemem (Cbneeded : Size);
    pragma Interface (Mpwpascal, Purgemem, "PURGEMEM");

    function Freemem return Longint;
    pragma Interface (Mpwpascal, Freemem, "FREEMEM");

    procedure Resrvmem (Cbneeded : Size);
    pragma Interface (Mpwpascal, Resrvmem, "RESRVMEM");

    function Maxmem (Grow : Varsize) return Size;
    pragma Interface (Mpwpascal, Maxmem, "MAXMEM");

    procedure Setgrowzone (Growzone : Procptr);
    pragma Interface (Mpwpascal, Setgrowzone, "SETGROWZONE");

    procedure Setappllimit (Zonelimit : Ptr);
    pragma Interface (Mpwpascal, Setappllimit, "SETAPPLLIMIT");

    procedure Movehhi (H : Handle);
    pragma Interface (Mpwpascal, Movehhi, "MOVEHHI");

    procedure Disposptr (P : Ptr);
    pragma Interface (Mpwpascal, Disposptr, "DISPOSPTR");

    function Getptrsize (P : Ptr) return Size;
    pragma Interface (Mpwpascal, Getptrsize, "GETPTRSIZE");

    procedure Setptrsize (P : Ptr; Newsize : Size);
    pragma Interface (Mpwpascal, Setptrsize, "SETPTRSIZE");

    procedure Disposhandle (H : Handle);
    pragma Interface (Mpwpascal, Disposhandle, "DISPOSHANDLE");

    function Gethandlesize (H : Handle) return Size;
    pragma Interface (Mpwpascal, Gethandlesize, "GETHANDLESIZE");

    procedure Sethandlesize (H : Handle; Newsize : Size);
    pragma Interface (Mpwpascal, Sethandlesize, "SETHANDLESIZE");

    procedure Emptyhandle (H : Handle);
    pragma Interface (Mpwpascal, Emptyhandle, "EMPTYHANDLE");

    procedure Reallochandle (H : Handle; Bytecount : Size);
    pragma Interface (Mpwpascal, Reallochandle, "REALLOCHANDLE");

    procedure Hsetrbit (H : Handle);
    pragma Interface (Mpwpascal, Hsetrbit, "HSETRBIT");

    procedure Hclrrbit (H : Handle);
    pragma Interface (Mpwpascal, Hclrrbit, "HCLRRBIT");

    procedure Moremasters;
    pragma Interface (Mpwpascal, Moremasters, "MOREMASTERS");

    procedure Blockmove (Srcptr : Ptr; Destptr : Ptr; Bytecount : Size);
    pragma Interface (Mpwpascal, Blockmove, "BLOCKMOVE");

    function Memerror return Oserr;
    pragma Interface (Mpwpascal, Memerror, "16#3EB8#,16#0220#");

    procedure Purgespace (Total : in out Longint; Contig : in out Longint);
    pragma Interface (Mpwpascal, Purgespace, "PURGESPACE");

    function Hgetstate (H : Handle) return Signedbyte;
    pragma Interface (Mpwpascal, Hgetstate, "HGETSTATE");

    procedure Hsetstate (H : Handle; Flags : Signedbyte);
    pragma Interface (Mpwpascal, Hsetstate, "HSETSTATE");

    procedure Setapplbase (Startptr : Ptr);
    pragma Interface (Mpwpascal, Setapplbase, "SETAPPLBASE");

    procedure Maxapplzone;
    pragma Interface (Mpwpascal, Maxapplzone, "MAXAPPLZONE");

    generic
        with function Routine (Cbneeded : Size) return Longint;
    procedure Usergrowroutine;

end Memory;