paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-16 23:01:55 +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 begin
if not(is_record) then if not(is_record) then
consume(token); 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') ((pattern='EXPORT') or (pattern='EXTERNAL')
or (pattern='CDECL')) then or (pattern='CDECL')) then
begin begin
@ -1695,6 +1695,10 @@ unit pdecl;
{ external and export need a name after } { external and export need a name after }
if not is_cdecl then if not is_cdecl then
begin 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 if (token<>CCHAR) and (token<>CSTRING) then
consume(CSTRING); consume(CSTRING);
C_name:=pattern; C_name:=pattern;
@ -1877,9 +1881,12 @@ unit pdecl;
end. end.
{ {
$Log$ $Log$
Revision 1.26 1998-06-12 10:32:30 pierre Revision 1.27 1998-06-12 16:15:34 pierre
* column problem hopefully solved * external name 'C_var';
+ C vars declaration changed 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 Revision 1.25 1998/06/09 16:01:45 pierre
+ added procedure directive parsing for procvars + added procedure directive parsing for procvars

14
compiler/symsym.inc
View File

@ -1027,7 +1027,7 @@
{ the data filed is generated in parser.pas { the data filed is generated in parser.pas
with a tobject_FIELDNAME variable } with a tobject_FIELDNAME variable }
{ this symbol can't be loaded to a register } { 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 end
else if not(read_member) then else if not(read_member) then
begin begin
@ -1070,7 +1070,8 @@
if cs_debuginfo in aktswitches then if cs_debuginfo in aktswitches then
concatstabto(bsssegment); concatstabto(bsssegment);
{$endif GDB} {$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))) bsssegment^.concat(new(pai_datablock,init_global(mangledname,l)))
else else
bsssegment^.concat(new(pai_datablock,init(mangledname,l))); bsssegment^.concat(new(pai_datablock,init(mangledname,l)));
@ -1741,7 +1742,14 @@
{ {
$Log$ $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 * -gb works again
Revision 1.7 1998/06/09 16:01:51 pierre Revision 1.7 1998/06/09 16:01:51 pierre