paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-11-02 07:49:32 +01:00
Code Issues Packages Projects Releases Wiki Activity

* new procoptions

Browse Source
This commit is contained in:
peter 2003-06-05 20:06:11 +00:00
parent 28ebc69c8f
commit 457b3919bd
1 changed files with 11 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

17
compiler/utils/ppudump.pp
View File

@ -645,7 +645,6 @@ type
po_staticmethod, { static method }
po_overridingmethod, { method with override directive }
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 }
@ -659,7 +658,9 @@ type
po_varargs, { printf like arguments }
po_leftright, { push arguments from left to right }
po_clearstack, { caller clears the stack }
po_internconst { procedure has constant evaluator intern }
po_internconst, { procedure has constant evaluator intern }
po_addressonly, { flag that only the address of a method is returned and not a full methodpointer }
po_public { procedure is exported }
);
tprocoptions=set of tprocoption;
function read_abstract_proc_def:tproccalloption;
@ -701,7 +702,7 @@ const
(mask:potype_destructor; str:'Destructor'),
(mask:potype_operator; str:'Operator')
);
procopts=21;
procopts=22;
procopt : array[1..procopts] of tprocopt=(
(mask:po_classmethod; str:'ClassMethod'),
(mask:po_virtualmethod; str:'VirtualMethod'),
@ -709,7 +710,6 @@ const
(mask:po_staticmethod; str:'StaticMethod'),
(mask:po_overridingmethod;str:'OverridingMethod'),
(mask:po_methodpointer; str:'MethodPointer'),
(mask:po_containsself; str:'ContainsSelf'),
(mask:po_interrupt; str:'Interrupt'),
(mask:po_iocheck; str:'IOCheck'),
(mask:po_assembler; str:'Assembler'),
@ -723,7 +723,9 @@ const
(mask:po_varargs; str:'VarArgs'),
(mask:po_leftright; str:'LeftRight'),
(mask:po_clearstack; str:'ClearStack'),
(mask:po_internconst; str:'InternConst')
(mask:po_internconst; str:'InternConst'),
(mask:po_addressonly; str:'AddressOnly'),
(mask:po_public; str:'Public')
);
var
proctypeoption : tproctypeoption;
@ -1938,7 +1940,10 @@ begin
end.
{
$Log$
Revision 1.42 2003-05-09 17:47:03 peter
Revision 1.43 2003-06-05 20:06:11 peter
* new procoptions
Revision 1.42 2003/05/09 17:47:03 peter
* self moved to hidden parameter
* removed hdisposen,hnewn,selfn