mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-09-12 05:29:10 +02:00
symconst is now a unit
This commit is contained in:
pierre
parent
e252bf8bef
commit
4decca16cf
@ -1,201 +0,0 @@
|
||||
{
|
||||
$Id$
|
||||
Copyright (c) 1993-98 by Florian Klaempfl, Pierre Muller
|
||||
|
||||
Symbol table constants
|
||||
|
||||
This program is free software; you can redistribute it and/or modify
|
||||
it under the terms of the GNU General Public License as published by
|
||||
the Free Software Foundation; either version 2 of the License, or
|
||||
(at your option) any later version.
|
||||
|
||||
This program is distributed in the hope that it will be useful,
|
||||
but WITHOUT ANY WARRANTY; without even the implied warranty of
|
||||
MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
|
||||
GNU General Public License for more details.
|
||||
|
||||
You should have received a copy of the GNU General Public License
|
||||
along with this program; if not, write to the Free Software
|
||||
Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
|
||||
****************************************************************************
|
||||
}
|
||||
unit symconst;
|
||||
interface
|
||||
|
||||
type
|
||||
{ calling convention for tprocdef and tprocvardef }
|
||||
pocalloption=(pocall_none,
|
||||
pocall_clearstack, { Use IBM flat calling convention. (Used by GCC.) }
|
||||
pocall_leftright, { Push parameters from left to right }
|
||||
pocall_cdecl, { procedure uses C styled calling }
|
||||
pocall_register, { procedure uses register (fastcall) calling }
|
||||
pocall_stdcall, { procedure uses stdcall call }
|
||||
pocall_safecall, { safe call calling conventions }
|
||||
pocall_palmossyscall { procedure is a PalmOS system call }
|
||||
);
|
||||
|
||||
{ basic type for tprocdef and tprocvardef }
|
||||
potypeoption=(potype_none,
|
||||
potype_proginit, { Program initialization }
|
||||
potype_unitinit, { unit initialization }
|
||||
potype_unitfinalize, { unit finalization }
|
||||
potype_constructor, { Procedure is a constructor }
|
||||
potype_destructor, { Procedure is a destructor }
|
||||
potype_internproc, { Procedure has compiler magic}
|
||||
potype_internconst, { procedure has constant evaluator intern }
|
||||
potype_operator { Procedure defines an operator }
|
||||
);
|
||||
|
||||
{ other options for tprocdef and tprocvardef }
|
||||
pooption=(po_none,
|
||||
po_classmethod, { class method }
|
||||
po_virtualmethod, { Procedure is a virtual method }
|
||||
po_abstractmethod, { Procedure is an abstract method }
|
||||
po_staticmethod, { static method }
|
||||
po_overridingmethod, { method with override directive }
|
||||
po_inline, { Procedure is an assembler macro }
|
||||
po_methodpointer, { method pointer, only in procvardef, also used for 'with object do' }
|
||||
po_containsself, { self is passed explicit to the compiler }
|
||||
po_interrupt, { Procedure is an interrupt handler }
|
||||
po_iocheck, { IO checking should be done after a call to the procedure }
|
||||
po_assembler, { Procedure is written in assembler }
|
||||
po_msgstr, { method for string message handling }
|
||||
po_msgint, { method for int message handling }
|
||||
po_exports, { Procedure has export directive (needed for OS/2) }
|
||||
po_external, { Procedure is external (in other object or lib)}
|
||||
po_savestdregs, { save std regs cdecl and stdcall need that ! }
|
||||
po_saveregisters { save all registers }
|
||||
);
|
||||
pooptions=set of pooption;
|
||||
|
||||
{ symbol options }
|
||||
spoption=(sp_none,
|
||||
sp_public,
|
||||
sp_private,
|
||||
sp_published,
|
||||
sp_protected,
|
||||
sp_forwarddef,
|
||||
sp_static
|
||||
sp_primary_typesym; { this is for typesym, to know who is the primary symbol of a def }
|
||||
);
|
||||
spoptions=set of spoption;
|
||||
|
||||
{ options for objects and classes }
|
||||
oooption=(
|
||||
oo_is_class,
|
||||
oo_is_forward, { the class is only a forward declared yet }
|
||||
oo_has_virtual, { the object/class has virtual methods }
|
||||
oo_has_private,
|
||||
oo_has_protected,
|
||||
oo_has_constructor, { the object/class has a constructor }
|
||||
oo_has_destructor, { the object/class has a destructor }
|
||||
oo_has_vmt, { the object/class has a vmt }
|
||||
oo_has_msgstr,
|
||||
oo_has_msgint,
|
||||
oo_has_abstract, { the object/class has an abstract method => no instances can be created }
|
||||
oo_can_have_published, { the class has rtti, i.e. you can publish properties }
|
||||
oo_cppvmt, { the object/class uses an C++ compatible }
|
||||
{ vmt, all members of the same class tree }
|
||||
{ must use then a C++ compatible vmt }
|
||||
);
|
||||
oooptions=set of oooption;
|
||||
|
||||
const
|
||||
def_alignment = 4;
|
||||
|
||||
{ flags for a definition }
|
||||
df_needsrtti = $1; { the definitions needs rtti }
|
||||
df_hasrtti = $2; { the rtti is generated }
|
||||
|
||||
{ relevant options for assigning a proc or a procvar to a procvar }
|
||||
po_compatibility_options = [
|
||||
po_classmethod,
|
||||
po_staticmethod,
|
||||
po_inline,
|
||||
po_methodpointer,
|
||||
po_containsself,
|
||||
po_interrupt,
|
||||
po_iocheck,
|
||||
po_exports,
|
||||
];
|
||||
|
||||
{ options for properties }
|
||||
ppo_indexed = $1;
|
||||
ppo_defaultproperty = $2;
|
||||
ppo_stored = $4;
|
||||
|
||||
{ options for variables }
|
||||
vo_regable = $1;
|
||||
vo_is_C_var = $2;
|
||||
vo_is_external = $4;
|
||||
vo_is_dll_var = $8;
|
||||
vo_is_thread_var = $10;
|
||||
|
||||
{
|
||||
$Log$
|
||||
Revision 1.13 1999-08-03 22:03:13 peter
|
||||
* moved bitmask constants to sets
|
||||
* some other type/const renamings
|
||||
|
||||
Revision 1.12 1999/07/06 21:48:26 florian
|
||||
* a lot bug fixes:
|
||||
- po_external isn't any longer necessary for procedure compatibility
|
||||
- m_tp_procvar is in -Sd now available
|
||||
- error messages of procedure variables improved
|
||||
- return values with init./finalization fixed
|
||||
- data types with init./finalization aren't any longer allowed in variant
|
||||
record
|
||||
|
||||
Revision 1.11 1999/06/03 09:34:11 peter
|
||||
* better methodpointer check for proc->procvar
|
||||
|
||||
Revision 1.10 1999/06/01 19:27:56 peter
|
||||
* better checks for procvar and methodpointer
|
||||
|
||||
Revision 1.9 1999/05/24 08:55:29 florian
|
||||
* non working safecall directiv implemented, I don't know if we
|
||||
need it
|
||||
|
||||
Revision 1.8 1999/05/20 22:22:42 pierre
|
||||
+ added synonym filed for ttypesym
|
||||
allows a clean disposal of tdefs and related ttypesyms
|
||||
|
||||
Revision 1.7 1999/05/12 22:36:13 florian
|
||||
* override isn't allowed in objects!
|
||||
|
||||
Revision 1.6 1999/04/28 06:02:10 florian
|
||||
* changes of Bruessel:
|
||||
+ message handler can now take an explicit self
|
||||
* typinfo fixed: sometimes the type names weren't written
|
||||
* the type checking for pointer comparisations and subtraction
|
||||
and are now more strict (was also buggy)
|
||||
* small bug fix to link.pas to support compiling on another
|
||||
drive
|
||||
* probable bug in popt386 fixed: call/jmp => push/jmp
|
||||
transformation didn't count correctly the jmp references
|
||||
+ threadvar support
|
||||
* warning if ln/sqrt gets an invalid constant argument
|
||||
|
||||
Revision 1.5 1999/04/26 13:31:46 peter
|
||||
* release storenumber,double_checksum
|
||||
|
||||
Revision 1.4 1999/04/16 10:28:26 pierre
|
||||
+ added posavestdregs used for cdecl AND stdcall functions
|
||||
(saves ESI EDI and EBX for i386)
|
||||
|
||||
Revision 1.3 1999/03/05 01:14:23 pierre
|
||||
* bug0198 : call conventions for methods
|
||||
not yet implemented is the control of same calling convention
|
||||
for virtual and child's virtual
|
||||
* msgstr and msgint only created if message was found
|
||||
who implemented this by the way ?
|
||||
it leaks lots of plabels !!!! (check with heaptrc !)
|
||||
|
||||
Revision 1.2 1999/02/22 20:13:37 florian
|
||||
+ first implementation of message keyword
|
||||
|
||||
Revision 1.1 1999/01/12 14:32:49 peter
|
||||
* splitted from symtable.pas
|
||||
|
||||
}
|
||||
|
||||
Loading…
Reference in New Issue
Block a user