paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-28 22:20:25 +02:00
Code Issues Packages Projects Releases Wiki Activity

codetools: added proc modifier safecall

Browse Source 
git-svn-id: trunk@11522 -
This commit is contained in:
mattias 2007-07-16 06:17:00 +00:00
parent 73075d2d35
commit dcbce23a9c
2 changed files with 8 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
components/codetools/keywordfunclists.pas
View File

@ -714,6 +714,7 @@ begin
Add('REGISTER' ,{$ifdef FPC}@{$endif}AllwaysTrue); Add('REGISTER' ,{$ifdef FPC}@{$endif}AllwaysTrue);
Add('SAVEREGISTERS',{$ifdef FPC}@{$endif}AllwaysTrue); Add('SAVEREGISTERS',{$ifdef FPC}@{$endif}AllwaysTrue);
Add('STDCALL' ,{$ifdef FPC}@{$endif}AllwaysTrue); Add('STDCALL' ,{$ifdef FPC}@{$endif}AllwaysTrue);
Add('SAFECALL' ,{$ifdef FPC}@{$endif}AllwaysTrue);
Add('VARARGS' ,{$ifdef FPC}@{$endif}AllwaysTrue); // kylix Add('VARARGS' ,{$ifdef FPC}@{$endif}AllwaysTrue); // kylix
Add('[' ,{$ifdef FPC}@{$endif}AllwaysTrue); Add('[' ,{$ifdef FPC}@{$endif}AllwaysTrue);
end; end;
@ -733,6 +734,7 @@ begin
Add('NOSTACKFRAME',{$ifdef FPC}@{$endif}AllwaysTrue); Add('NOSTACKFRAME',{$ifdef FPC}@{$endif}AllwaysTrue);
Add('DEPRECATED' ,{$ifdef FPC}@{$endif}AllwaysTrue); Add('DEPRECATED' ,{$ifdef FPC}@{$endif}AllwaysTrue);
Add('PLATFORM' ,{$ifdef FPC}@{$endif}AllwaysTrue); Add('PLATFORM' ,{$ifdef FPC}@{$endif}AllwaysTrue);
Add('SAFECALL' ,{$ifdef FPC}@{$endif}AllwaysTrue);
end; end;
IsKeyWordProcedureBracketSpecifier:=TKeyWordFunctionList.Create; IsKeyWordProcedureBracketSpecifier:=TKeyWordFunctionList.Create;

6
components/tdbf/languages/registerdbf.po
View File

@ -1,3 +1,9 @@
msgid ""
msgstr ""
"MIME-Version: 1.0\n"
"Content-Type: text/plain; charset=UTF-8\n"
"Content-Transfer-Encoding: 8bit\n"
#: registerdbf:dbfsalldbasefiles #: registerdbf:dbfsalldbasefiles
msgid "DBase Files" msgid "DBase Files"
msgstr "" msgstr ""