paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-15 16:29:12 +02:00
Code Issues Packages Projects Releases Wiki Activity

* fixed copy/past bugs

Browse Source
This commit is contained in:
Jonas Maebe 2001-01-03 13:12:50 +00:00
parent 128b6a9fa3
commit a60d4d969b
1 changed files with 7 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
compiler/pexports.pas
View File

@ -148,10 +148,10 @@ implementation
if (DefString<>'') and UseDeffileForExport then if (DefString<>'') and UseDeffileForExport then
DefFile.AddExport(DefString); DefFile.AddExport(DefString);
{ Default to generate a name entry with the provided name } { Default to generate a name entry with the provided name }
if not assigned(hp^.name) then if not assigned(hp.name) then
begin begin
hp^.name:=stringdup(orgs); hp.name:=stringdup(orgs);
hp^.options:=hp^.options or eo_name; hp.options:=hp.options or eo_name;
end; end;
if hp.sym^.typ=procsym then if hp.sym^.typ=procsym then
exportlib.exportprocedure(hp) exportlib.exportprocedure(hp)
@ -175,7 +175,10 @@ end.
{ {
$Log$ $Log$
Revision 1.10 2000-12-30 22:53:25 peter Revision 1.11 2001-01-03 13:12:50 jonas
* fixed copy/past bugs
Revision 1.10 2000/12/30 22:53:25 peter
* export with the case provided in the exports section * export with the case provided in the exports section
Revision 1.9 2000/12/25 00:07:27 peter Revision 1.9 2000/12/25 00:07:27 peter