paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-14 09:09:19 +02:00
Code Issues Packages Projects Releases Wiki Activity

* tprocinfoflag moved to globtype

Browse Source
This commit is contained in:
peter 2004-05-23 14:32:17 +00:00
parent 0ce74fb1bc
commit b6e86be8de
2 changed files with 28 additions and 19 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

25
compiler/globtype.pas
View File

@ -172,6 +172,26 @@ interface
); );
tproccalloptions = set of tproccalloption; tproccalloptions = set of tproccalloption;
tprocinfoflag=(
{ procedure uses asm }
pi_uses_asm,
{ procedure does a call }
pi_do_call,
{ procedure has a try statement = no register optimization }
pi_uses_exceptions,
{ procedure is declared as @var(assembler), don't optimize}
pi_is_assembler,
{ procedure contains data which needs to be finalized }
pi_needs_implicit_finally,
{ procedure has the implicit try..finally generated }
pi_has_implicit_finally,
{ procedure uses fpu}
pi_uses_fpu,
{ procedure uses GOT for PIC code }
pi_needs_got
);
tprocinfoflags=set of tprocinfoflag;
{$ifdef ansistring_bits} {$ifdef ansistring_bits}
Tstringbits=(sb_16,sb_32,sb_64); Tstringbits=(sb_16,sb_32,sb_64);
{$endif} {$endif}
@ -247,7 +267,10 @@ implementation
end. end.
{ {
$Log$ $Log$
Revision 1.54 2004-05-02 11:48:46 peter Revision 1.55 2004-05-23 14:32:17 peter
* tprocinfoflag moved to globtype
Revision 1.54 2004/05/02 11:48:46 peter
* strlenint is replaced with sizeint * strlenint is replaced with sizeint
Revision 1.53 2004/04/29 19:56:36 daniel Revision 1.53 2004/04/29 19:56:36 daniel

22
compiler/symconst.pas
View File

@ -345,23 +345,6 @@ type
te_exact te_exact
); );
tprocinfoflag=(
{# procedure uses asm }
pi_uses_asm,
{# procedure does a call }
pi_do_call,
{# procedure has a try statement = no register optimization }
pi_uses_exceptions,
{# procedure is declared as @var(assembler), don't optimize}
pi_is_assembler,
{# procedure contains data which needs to be finalized }
pi_needs_implicit_finally,
{# procedure uses fpu}
pi_uses_fpu,
pi_needs_got
);
tprocinfoflags=set of tprocinfoflag;
{$ifdef GDB} {$ifdef GDB}
type type
tdefstabstatus = ( tdefstabstatus = (
@ -424,7 +407,10 @@ initialization
end. end.
{ {
$Log$ $Log$
Revision 1.81 2004-04-29 19:56:37 daniel Revision 1.82 2004-05-23 14:32:17 peter
* tprocinfoflag moved to globtype
Revision 1.81 2004/04/29 19:56:37 daniel
* Prepare compiler infrastructure for multiple ansistring types * Prepare compiler infrastructure for multiple ansistring types
Revision 1.80 2004/04/28 15:19:03 florian Revision 1.80 2004/04/28 15:19:03 florian