* non working safecall directiv implemented, I don't know if we

    need it

compiler/symconst.inc

@@ -72,6 +72,7 @@
        posavestdregs    = $20000000; { save std regs cdecl and stdcall need that ! }
        pocontainsself   = $40000000; { self is passed explicit to the compiler }
        { relevant options for assigning a proc or a procvar to a procvar }
+       posafecall       = $80000000; { safe call calling conventions }
        po_compatibility_options = $7FFFFFFF-
          (pomethodpointer+povirtualmethod+pooverridingmethod);
 
@@ -108,7 +109,11 @@
 
 {
   $Log$
-  Revision 1.8  1999-05-20 22:22:42  pierre
+  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
 

compiler/tokens.pas

@@ -177,6 +177,7 @@ type
     _PROPERTY,
     _REGISTER,
     _RESIDENT,
+    _SAFECALL,
     _ASSEMBLER,
     _INHERITED,
     _INTERFACE,
@@ -355,6 +356,7 @@ const
       (str:'PROPERTY'      ;special:false;keyword:m_class),
       (str:'REGISTER'      ;special:false;keyword:m_none),
       (str:'RESIDENT'      ;special:false;keyword:m_none),
+      (str:'SAFECALL'      ;special:false;keyword:m_none),
       (str:'ASSEMBLER'     ;special:false;keyword:m_none),
       (str:'INHERITED'     ;special:false;keyword:m_all),
       (str:'INTERFACE'     ;special:false;keyword:m_all),
@@ -381,7 +383,11 @@ implementation
 end.
 {
   $Log$
-  Revision 1.6  1999-04-28 06:02:19  florian
+  Revision 1.7  1999-05-24 08:55:30  florian
+    * non working safecall directiv implemented, I don't know if we
+      need it
+
+  Revision 1.6  1999/04/28 06:02:19  florian
     * changes of Bruessel:
        + message handler can now take an explicit self
        * typinfo fixed: sometimes the type names weren't written