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

* external name 'C_var';

Browse Source 
export name 'intern_C_var';
    cdecl;
    cdecl;external;
    are now supported only with -Sv switch
This commit is contained in:
pierre 1998-06-12 16:15:34 +00:00
parent 12c40adc06
commit c248434392
2 changed files with 22 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

15
compiler/pdecl.pas
View File

@ -1668,7 +1668,7 @@ unit pdecl;
begin
if not(is_record) then
consume(token);
if do_absolute and (token=ID) and
if support_c_var and do_absolute and (token=ID) and
((pattern='EXPORT') or (pattern='EXTERNAL')
or (pattern='CDECL')) then
begin
@ -1695,6 +1695,10 @@ unit pdecl;
{ external and export need a name after }
if not is_cdecl then
begin
if (token=ID) and (pattern='NAME') then
consume(ID)
else
Comment(V_error,' name keyword expected here ');
if (token<>CCHAR) and (token<>CSTRING) then
consume(CSTRING);
C_name:=pattern;
@ -1877,9 +1881,12 @@ unit pdecl;
end.
{
$Log$
Revision 1.26 1998-06-12 10:32:30 pierre
* column problem hopefully solved
+ C vars declaration changed
Revision 1.27 1998-06-12 16:15:34 pierre
* external name 'C_var';
export name 'intern_C_var';
cdecl;
cdecl;external;
are now supported only with -Sv switch
Revision 1.25 1998/06/09 16:01:45 pierre
+ added procedure directive parsing for procvars

14
compiler/symsym.inc
View File

@ -1027,7 +1027,7 @@
{ the data filed is generated in parser.pas
with a tobject_FIELDNAME variable }
{ this symbol can't be loaded to a register }
var_options:=var_options or vo_regable;
var_options:=var_options and not vo_regable;
end
else if not(read_member) then
begin
@ -1070,7 +1070,8 @@
if cs_debuginfo in aktswitches then
concatstabto(bsssegment);
{$endif GDB}
if (cs_smartlink in aktswitches) then
if (cs_smartlink in aktswitches) or
((var_options and vo_is_c_var)<>0) then
bsssegment^.concat(new(pai_datablock,init_global(mangledname,l)))
else
bsssegment^.concat(new(pai_datablock,init(mangledname,l)));
@ -1741,7 +1742,14 @@
{
$Log$
Revision 1.8 1998-06-11 10:11:59 peter
Revision 1.9 1998-06-12 16:15:35 pierre
* external name 'C_var';
export name 'intern_C_var';
cdecl;
cdecl;external;
are now supported only with -Sv switch
Revision 1.8 1998/06/11 10:11:59 peter
* -gb works again
Revision 1.7 1998/06/09 16:01:51 pierre