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

* Modification for new symtable

Browse Source
This commit is contained in:
daniel 2000-03-12 08:24:03 +00:00
parent 59cfa402c9
commit e72ff5f936
1 changed files with 10 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
compiler/t_linux.pas
View File

@ -80,15 +80,20 @@ begin
{$IFDEF NEWST} {$IFDEF NEWST}
current_module^.linkothersharedlibs. current_module^.linkothersharedlibs.
insert(new(Plinkitem,init(SplitName(module),link_allways))); insert(new(Plinkitem,init(SplitName(module),link_allways)));
{ do nothing with the procedure, only set the mangledname }
if name<>'' then
aktprocdef^.setmangledname(name)
else
message(parser_e_empty_import_name);
{$ELSE} {$ELSE}
current_module^.linkothersharedlibs. current_module^.linkothersharedlibs.
insert(SplitName(module),link_allways); insert(SplitName(module),link_allways);
{$ENDIF NEWST}
{ do nothing with the procedure, only set the mangledname } { do nothing with the procedure, only set the mangledname }
if name<>'' then if name<>'' then
aktprocsym^.definition^.setmangledname(name) aktprocsym^.definition^.setmangledname(name)
else else
message(parser_e_empty_import_name); message(parser_e_empty_import_name);
{$ENDIF NEWST}
end; end;
@ -467,7 +472,10 @@ end;
end. end.
{ {
$Log$ $Log$
Revision 1.12 2000-03-02 13:12:37 daniel Revision 1.13 2000-03-12 08:24:03 daniel
* Modification for new symtable
Revision 1.12 2000/03/02 13:12:37 daniel
* Removed a comment to fix gtk. * Removed a comment to fix gtk.
Revision 1.11 2000/02/28 17:23:57 daniel Revision 1.11 2000/02/28 17:23:57 daniel