paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-21 15:29:25 +02:00
Code Issues Packages Projects Releases Wiki Activity

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

Browse Source 
need it
This commit is contained in:
florian 1999-05-24 08:55:29 +00:00
parent 98ce3acbfd
commit 1bcd891310
2 changed files with 13 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
compiler/symconst.inc
View File

@ -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

8
compiler/tokens.pas
View File

@ -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