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

* check validity of calling conventions specified using {$calling x}

Browse Source 
(previously, this was only checked for calling conventions specified
     as a procedure directive)

git-svn-id: trunk@12944 -
This commit is contained in:
Jonas Maebe 2009-03-21 21:21:45 +00:00
parent 0d219154f3
commit a7e02c7948
1 changed files with 11 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

13
compiler/switches.pas
View File

@ -304,12 +304,16 @@ procedure recordpendingcallingswitch(const str: shortstring);
procedure flushpendingswitchesstate;
var
tmpproccal: tproccalloption;
begin
{ process pending localswitches (range checking, etc) }
if pendingstate.localswitcheschanged then
begin
current_settings.localswitches:=pendingstate.nextlocalswitches;
pendingstate.localswitcheschanged:=false;
end;
{ process pending verbosity changes (warnings on, etc) }
if pendingstate.verbosityfullswitched then
begin
status.verbosity:=pendingstate.nextverbosityfullswitch;
@ -320,10 +324,15 @@ procedure flushpendingswitchesstate;
setverbosity(pendingstate.nextverbositystr);
pendingstate.nextverbositystr:='';
end;
{ process pending calling convention changes (calling x) }
if pendingstate.nextcallingstr<>'' then
begin
if not SetAktProcCall(pendingstate.nextcallingstr,current_settings.defproccall) then
Message1(parser_w_unknown_proc_directive_ignored,pendingstate.nextcallingstr);
if not SetAktProcCall(pendingstate.nextcallingstr,tmpproccal) then
Message1(parser_w_unknown_proc_directive_ignored,pendingstate.nextcallingstr)
else if not(tmpproccal in supported_calling_conventions) then
Message1(parser_e_illegal_calling_convention,pendingstate.nextcallingstr)
else
current_settings.defproccall:=tmpproccal;
pendingstate.nextcallingstr:='';
end;
end;