Browse Source

* tprocinfoflag moved to globtype

peter 21 years ago
parent
commit
b6e86be8de
2 changed files with 28 additions and 19 deletions
  1. 24 1
      compiler/globtype.pas
  2. 4 18
      compiler/symconst.pas

+ 24 - 1
compiler/globtype.pas

@@ -172,6 +172,26 @@ interface
        );
        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}
        Tstringbits=(sb_16,sb_32,sb_64);
 {$endif}
@@ -247,7 +267,10 @@ implementation
 end.
 {
   $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
 
   Revision 1.53  2004/04/29 19:56:36  daniel

+ 4 - 18
compiler/symconst.pas

@@ -345,23 +345,6 @@ type
     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}
 type
   tdefstabstatus = (
@@ -424,7 +407,10 @@ initialization
 end.
 {
   $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
 
   Revision 1.80  2004/04/28 15:19:03  florian