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

* don't allow external in object declarations

Browse Source
This commit is contained in:
peter 2002-12-15 21:07:30 +00:00
parent 5ebf9afd63
commit 133dee3633
1 changed files with 13 additions and 11 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

22
compiler/pdecsub.pas
View File

@ -406,7 +406,6 @@ implementation
sym:tsym; sym:tsym;
st : tsymtable; st : tsymtable;
srsymtable : tsymtable; srsymtable : tsymtable;
pdl : pprocdeflist;
storepos,procstartfilepos : tfileposinfo; storepos,procstartfilepos : tfileposinfo;
i: longint; i: longint;
begin begin
@ -1142,7 +1141,7 @@ const
mutexclpo : [po_external,po_interrupt] mutexclpo : [po_external,po_interrupt]
),( ),(
idtok:_EXTERNAL; idtok:_EXTERNAL;
pd_flags : pd_implemen+pd_interface+pd_notobjintf; pd_flags : pd_implemen+pd_interface+pd_notobject+pd_notobjintf;
handler : {$ifdef FPCPROCVAR}@{$endif}pd_external; handler : {$ifdef FPCPROCVAR}@{$endif}pd_external;
pocall : pocall_none; pocall : pocall_none;
pooption : [po_external]; pooption : [po_external];
@ -1151,7 +1150,7 @@ const
mutexclpo : [po_exports,po_interrupt,po_assembler] mutexclpo : [po_exports,po_interrupt,po_assembler]
),( ),(
idtok:_FAR; idtok:_FAR;
pd_flags : pd_implemen+pd_body+pd_interface+pd_procvar+pd_notobjintf; pd_flags : pd_implemen+pd_body+pd_interface+pd_procvar+pd_notobject+pd_notobjintf;
handler : {$ifdef FPCPROCVAR}@{$endif}pd_far; handler : {$ifdef FPCPROCVAR}@{$endif}pd_far;
pocall : pocall_none; pocall : pocall_none;
pooption : []; pooption : [];
@ -1160,7 +1159,7 @@ const
mutexclpo : [] mutexclpo : []
),( ),(
idtok:_FAR16; idtok:_FAR16;
pd_flags : pd_interface+pd_implemen+pd_body+pd_procvar; pd_flags : pd_interface+pd_implemen+pd_body+pd_procvar+pd_notobject;
handler : nil; handler : nil;
pocall : pocall_far16; pocall : pocall_far16;
pooption : []; pooption : [];
@ -1169,7 +1168,7 @@ const
mutexclpo : [po_external,po_leftright] mutexclpo : [po_external,po_leftright]
),( ),(
idtok:_FORWARD; idtok:_FORWARD;
pd_flags : pd_implemen+pd_notobjintf; pd_flags : pd_implemen+pd_notobject+pd_notobjintf;
handler : {$ifdef FPCPROCVAR}@{$endif}pd_forward; handler : {$ifdef FPCPROCVAR}@{$endif}pd_forward;
pocall : pocall_none; pocall : pocall_none;
pooption : []; pooption : [];
@ -1196,7 +1195,7 @@ const
mutexclpo : [po_exports,po_external,po_interrupt] mutexclpo : [po_exports,po_external,po_interrupt]
),( ),(
idtok:_INTERNCONST; idtok:_INTERNCONST;
pd_flags : pd_implemen+pd_body+pd_notobjintf; pd_flags : pd_implemen+pd_body+pd_notobject+pd_notobjintf;
handler : {$ifdef FPCPROCVAR}@{$endif}pd_intern; handler : {$ifdef FPCPROCVAR}@{$endif}pd_intern;
pocall : pocall_none; pocall : pocall_none;
pooption : [po_internconst]; pooption : [po_internconst];
@ -1205,7 +1204,7 @@ const
mutexclpo : [] mutexclpo : []
),( ),(
idtok:_INTERNPROC; idtok:_INTERNPROC;
pd_flags : pd_implemen+pd_notobjintf; pd_flags : pd_implemen+pd_notobject+pd_notobjintf;
handler : {$ifdef FPCPROCVAR}@{$endif}pd_intern; handler : {$ifdef FPCPROCVAR}@{$endif}pd_intern;
pocall : pocall_internproc; pocall : pocall_internproc;
pooption : []; pooption : [];
@ -1214,7 +1213,7 @@ const
mutexclpo : [po_exports,po_external,po_interrupt,po_assembler,po_iocheck,po_leftright] mutexclpo : [po_exports,po_external,po_interrupt,po_assembler,po_iocheck,po_leftright]
),( ),(
idtok:_INTERRUPT; idtok:_INTERRUPT;
pd_flags : pd_implemen+pd_body+pd_notobjintf; pd_flags : pd_implemen+pd_body+pd_notobject+pd_notobjintf;
handler : {$ifdef FPCPROCVAR}@{$endif}pd_interrupt; handler : {$ifdef FPCPROCVAR}@{$endif}pd_interrupt;
pocall : pocall_none; pocall : pocall_none;
pooption : [po_interrupt]; pooption : [po_interrupt];
@ -1359,7 +1358,7 @@ const
mutexclpo : [po_external,po_assembler,po_interrupt,po_exports] mutexclpo : [po_external,po_assembler,po_interrupt,po_exports]
),( ),(
idtok:_SYSTEM; idtok:_SYSTEM;
pd_flags : pd_implemen+pd_notobjintf; pd_flags : pd_implemen+pd_notobject+pd_notobjintf;
handler : nil; handler : nil;
pocall : pocall_system; pocall : pocall_system;
pooption : []; pooption : [];
@ -2079,7 +2078,10 @@ const
end. end.
{ {
$Log$ $Log$
Revision 1.88 2002-12-15 19:34:31 florian Revision 1.89 2002-12-15 21:07:30 peter
* don't allow external in object declarations
Revision 1.88 2002/12/15 19:34:31 florian
+ some front end stuff for vs_hidden added + some front end stuff for vs_hidden added
Revision 1.87 2002/12/07 14:27:07 carl Revision 1.87 2002/12/07 14:27:07 carl