paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-14 19:49:09 +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 ! } posavestdregs = $20000000; { save std regs cdecl and stdcall need that ! }
pocontainsself = $40000000; { self is passed explicit to the compiler } pocontainsself = $40000000; { self is passed explicit to the compiler }
{ relevant options for assigning a proc or a procvar to a procvar } { relevant options for assigning a proc or a procvar to a procvar }
posafecall = $80000000; { safe call calling conventions }
po_compatibility_options = $7FFFFFFF- po_compatibility_options = $7FFFFFFF-
(pomethodpointer+povirtualmethod+pooverridingmethod); (pomethodpointer+povirtualmethod+pooverridingmethod);
@ -108,7 +109,11 @@
{ {
$Log$ $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 + added synonym filed for ttypesym
allows a clean disposal of tdefs and related ttypesyms allows a clean disposal of tdefs and related ttypesyms

8
compiler/tokens.pas
View File

@ -177,6 +177,7 @@ type
_PROPERTY, _PROPERTY,
_REGISTER, _REGISTER,
_RESIDENT, _RESIDENT,
_SAFECALL,
_ASSEMBLER, _ASSEMBLER,
_INHERITED, _INHERITED,
_INTERFACE, _INTERFACE,
@ -355,6 +356,7 @@ const
(str:'PROPERTY' ;special:false;keyword:m_class), (str:'PROPERTY' ;special:false;keyword:m_class),
(str:'REGISTER' ;special:false;keyword:m_none), (str:'REGISTER' ;special:false;keyword:m_none),
(str:'RESIDENT' ;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:'ASSEMBLER' ;special:false;keyword:m_none),
(str:'INHERITED' ;special:false;keyword:m_all), (str:'INHERITED' ;special:false;keyword:m_all),
(str:'INTERFACE' ;special:false;keyword:m_all), (str:'INTERFACE' ;special:false;keyword:m_all),
@ -381,7 +383,11 @@ implementation
end. end.
{ {
$Log$ $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: * changes of Bruessel:
+ message handler can now take an explicit self + message handler can now take an explicit self
* typinfo fixed: sometimes the type names weren't written * typinfo fixed: sometimes the type names weren't written