paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-14 12:09:30 +02:00
Code Issues Packages Projects Releases Wiki Activity

fixed crash with error in default value

Browse Source 
allow assembler directive in interface
This commit is contained in:
peter 2004-08-29 11:28:41 +00:00
parent ade0fde929
commit e18eaddbfc
1 changed files with 10 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

14
compiler/pdecsub.pas
View File

@ -494,9 +494,11 @@ implementation
Message(parser_e_default_value_only_one_para); Message(parser_e_default_value_only_one_para);
{ prefix 'def' to the parameter name } { prefix 'def' to the parameter name }
defaultvalue:=ReadConstant('$def'+vs.name,vs.fileinfo); defaultvalue:=ReadConstant('$def'+vs.name,vs.fileinfo);
include(defaultvalue.symoptions,sp_internal);
if assigned(defaultvalue) then if assigned(defaultvalue) then
tprocdef(pd).parast.insert(defaultvalue); begin
include(defaultvalue.symoptions,sp_internal);
tprocdef(pd).parast.insert(defaultvalue);
end;
defaultrequired:=true; defaultrequired:=true;
end end
else else
@ -1309,7 +1311,7 @@ const
mutexclpo : [po_external] mutexclpo : [po_external]
),( ),(
idtok:_ASSEMBLER; idtok:_ASSEMBLER;
pd_flags : [pd_implemen,pd_body,pd_notobjintf]; pd_flags : [pd_interface,pd_implemen,pd_body,pd_notobjintf];
handler : nil; handler : nil;
pocall : pocall_none; pocall : pocall_none;
pooption : [po_assembler]; pooption : [po_assembler];
@ -2264,7 +2266,11 @@ const
end. end.
{ {
$Log$ $Log$
Revision 1.189 2004-08-25 15:57:19 peter Revision 1.190 2004-08-29 11:28:41 peter
fixed crash with error in default value
allow assembler directive in interface
Revision 1.189 2004/08/25 15:57:19 peter
* fix for tw3261 * fix for tw3261
Revision 1.188 2004/08/22 20:11:38 florian Revision 1.188 2004/08/22 20:11:38 florian