100 lines
3.8 KiB
Plaintext
100 lines
3.8 KiB
Plaintext
compile insert rti_Get_Proc_Info_Equates
|
|
/*
|
|
** Copyright (C) 2013-2021 Revelation Software Inc. All Rights Reserved **
|
|
|
|
Author : Mr C
|
|
Date : Oct 2013
|
|
Purpose : Equates for use rti_Get_Proc_Info function
|
|
|
|
Comments
|
|
========
|
|
|
|
|
|
Amended Date Reason
|
|
======= ==== ======
|
|
Mr C 27 May 21 Added GPI_OESOURCEHASH$
|
|
Mr C 26 May 21 Added GPI_OENOLINEMARKS$
|
|
Mr C 17 Dec 20 Added GPI_OECOMPILEVER$
|
|
Mr C 11 Apr 15 Updated comments
|
|
Mr C 12 Feb 15 Added object code and literal pool size fields to retVal
|
|
|
|
*/
|
|
///////////////////////////////////////////////////////////////////////////////
|
|
///////////////////////////////////////////////////////////////////////////////
|
|
#ifndef _RTI_GET_PROC_INFO_EQUATES_
|
|
#define _RTI_GET_PROC_INFO_EQUATES_
|
|
///////////////////////////////////////////////////////////////////////////////
|
|
///////////////////////////////////////////////////////////////////////////////
|
|
|
|
declare function rti_Get_Proc_Info
|
|
|
|
///////////////////////////////////////////////////////////////////////////////
|
|
///////////////////////////////////////////////////////////////////////////////
|
|
|
|
// Returned info equates
|
|
//
|
|
// <1> Proc type
|
|
// <2> Argument count
|
|
// <3> Variable count
|
|
// <4> Expendable flag
|
|
// <5> DLL name
|
|
// <6> DLL exported function name
|
|
// <7> DLL Return Type
|
|
// <8> DLL Calling convention
|
|
// <9> DLL argument list type
|
|
// <10> OE DLL Internal pointer number
|
|
// <11> Basic+ Proc Type ( subroutine (1), function(2), routine(3) )
|
|
// <12> Compile User
|
|
// <13> Compile Time
|
|
// <14> ArgNames
|
|
// <15> ArgTypes
|
|
// <16> RowDef
|
|
// <17> Object Code Size
|
|
// <18> Literal Pool Size
|
|
// <19> Compiler Engine Version
|
|
// <20> Strip Linemarks flag
|
|
// <21> Source Hash
|
|
|
|
equ GPI_PROCTYPE$ to 1
|
|
equ GPI_ARGCOUNT$ to 2
|
|
equ GPI_VARCOUNT$ to 3
|
|
equ GPI_EXPENDABLEFLAG$ to 4
|
|
equ GPI_DLLNAME$ to 5
|
|
equ GPI_DLLFUNCTION$ to 6
|
|
equ GPI_DLLRETTYPE$ to 7
|
|
equ GPI_DLLCALLCONV$ to 8
|
|
equ GPI_DLLARGTYPES$ to 9
|
|
equ GPI_OECALLNO$ to 10
|
|
equ GPI_OEPROCTYPE$ to 11
|
|
equ GPI_OECOMPILEUSER$ to 12
|
|
equ GPI_OECOMPILETIME$ to 13
|
|
equ GPI_OEARGNAMES$ to 14 ; // @vm delimited
|
|
equ GPI_OEARGTYPES$ to 15 ; // @vm delimited
|
|
equ GPI_OEROWDEF$ to 16
|
|
equ GPI_OECODESEGSIZE$ to 17
|
|
equ GPI_OEDATASEGSIZE$ to 18
|
|
equ GPI_OECOMPILEVER$ to 19
|
|
equ GPI_OENOLINEMARKS$ to 20
|
|
equ GPI_OESOURCEHASH$ to 21
|
|
|
|
///////////////////////////////////////////////////////////////////////////////
|
|
///////////////////////////////////////////////////////////////////////////////
|
|
|
|
equ GPI_PROCTYPE_OE_SUB$ to 0 ; // Basic+ Subroutine/Function
|
|
equ GPI_PROCTYPE_OE_MAIN$ to 1 ; // Basic+ Main
|
|
equ GPI_PROCTYPE_DLL$ to 2 ; // DLL/OECall/ASM
|
|
equ GPI_PROCTYPE_OE_EXPEND$ to 3 ; // Basic+ Expendable
|
|
|
|
///////////////////////////////////////////////////////////////////////////////
|
|
///////////////////////////////////////////////////////////////////////////////
|
|
|
|
equ GPI_OEPROCTYPE_SUB$ to 1
|
|
equ GPI_OEPROCTYPE_FUNC$ to 2
|
|
equ GPI_OEPROCTYPE_ROUTINE$ to 3
|
|
|
|
///////////////////////////////////////////////////////////////////////////////
|
|
///////////////////////////////////////////////////////////////////////////////
|
|
#endif
|
|
///////////////////////////////////////////////////////////////////////////////
|
|
///////////////////////////////////////////////////////////////////////////////
|