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

* another patch from J. Peter Mugaas, fixes #7618 and #7615

Browse Source 
git-svn-id: trunk@4959 -
This commit is contained in:
florian 2006-10-18 18:38:19 +00:00
parent de27a80cc9
commit ec74887552
2 changed files with 12 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
utils/h2pas/h2pas.y
View File

@ -901,7 +901,7 @@ program h2pas;
end;
{ what can we do with void defs ? }
t_void :
write(outfile,'void');
write(outfile,'pointer');
t_pointerdef :
begin
pointerwritten:=false;

11
utils/h2pas/scan.l
View File

@ -695,11 +695,21 @@ D [0-9]
if not stripinfo then
writeln(outfile,'{ C++ extern C conditionnal removed }');
end;
"#ifdef cplusplus"[ \t]*\n"extern \"C\" {"\n"#endif"
begin
if not stripinfo then
writeln(outfile,'{ C++ extern C conditionnal removed }');
end;
"#ifdef __cplusplus"[ \t]*\n"}"\n"#endif"
begin
if not stripinfo then
writeln(outfile,'{ C++ end of extern C conditionnal removed }');
end;
"#ifdef cplusplus"[ \t]*\n"}"\n"#endif"
begin
if not stripinfo then
writeln(outfile,'{ C++ end of extern C conditionnal removed }');
end;
"#"[ \t]*"else" begin
writeln(outfile,'{$else}');
block_type:=bt_no;
@ -865,3 +875,4 @@ end;
end.