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

* handle exports with a name consisting of a single character correctly

Browse Source 
git-svn-id: trunk@21945 -
This commit is contained in:
florian 2012-07-22 14:23:09 +00:00
parent 06844fdb23
commit 9672f0537a
3 changed files with 14 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
.gitattributes vendored
View File

@ -9585,6 +9585,7 @@ tests/tbs/tb0578.pp svneol=native#text/pascal
tests/tbs/tb0579.pp svneol=native#text/pascal tests/tbs/tb0579.pp svneol=native#text/pascal
tests/tbs/tb0580.pp svneol=native#text/pascal tests/tbs/tb0580.pp svneol=native#text/pascal
tests/tbs/tb0581.pp svneol=native#text/plain tests/tbs/tb0581.pp svneol=native#text/plain
tests/tbs/tb0582.pp svneol=native#text/pascal
tests/tbs/tb205.pp svneol=native#text/plain tests/tbs/tb205.pp svneol=native#text/plain
tests/tbs/ub0060.pp svneol=native#text/plain tests/tbs/ub0060.pp svneol=native#text/plain
tests/tbs/ub0069.pp svneol=native#text/plain tests/tbs/ub0069.pp svneol=native#text/plain

2
compiler/pexports.pas
View File

@ -163,6 +163,8 @@ implementation
pt:=comp_expr(true,false); pt:=comp_expr(true,false);
if pt.nodetype=stringconstn then if pt.nodetype=stringconstn then
hpname:=strpas(tstringconstnode(pt).value_str) hpname:=strpas(tstringconstnode(pt).value_str)
else if is_constcharnode(pt) then
hpname:=chr(tordconstnode(pt).value.svalue and $ff)
else else
consume(_CSTRING); consume(_CSTRING);
options:=options or eo_name; options:=options or eo_name;

11
tests/tbs/tb0582.pp Normal file
View File

@ -0,0 +1,11 @@
{ %norun }
library liba;
function A : integer;
begin
end;
exports
A name 'c';
end.