paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-06-22 17:00:24 +02:00
Code Issues Packages Projects Releases Wiki Activity

* compile fix

Browse Source
This commit is contained in:
peter 2003-04-27 08:50:45 +00:00
parent 80b1ccdd76
commit 3bda511c4a
1 changed files with 8 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

13
compiler/systems/t_macos.pas
View File

@ -27,12 +27,12 @@ unit t_macos;
interface interface
uses uses
import,symsym; import,symsym,symdef;
type type
timportlibmacos=class(timportlib) timportlibmacos=class(timportlib)
procedure preparelib(const s:string);override; procedure preparelib(const s:string);override;
procedure importprocedure(const func,module:string;index:longint;const name:string);override; procedure importprocedure(aprocdef:tprocdef;const module:string;index:longint;const name:string);override;
procedure importvariable(vs:tvarsym;const name,module:string);override; procedure importvariable(vs:tvarsym;const name,module:string);override;
procedure generatelib;override; procedure generatelib;override;
end; end;
@ -54,14 +54,14 @@ begin
end; end;
procedure timportlibmacos.importprocedure(const func,module : string;index : longint;const name : string); procedure timportliblinux.importprocedure(aprocdef:tprocdef;const module:string;index:longint;const name:string);
begin begin
{ insert sharedlibrary } { insert sharedlibrary }
current_module.linkothersharedlibs.add(SplitName(module),link_allways); current_module.linkothersharedlibs.add(SplitName(module),link_allways);
{ do nothing with the procedure, only set the mangledname } { do nothing with the procedure, only set the mangledname }
if name<>'' then if name<>'' then
begin begin
aktprocdef.setmangledname(name); aprocdef.setmangledname(name);
end end
else else
message(parser_e_empty_import_name); message(parser_e_empty_import_name);
@ -99,7 +99,10 @@ initialization
end. end.
{ {
$Log$ $Log$
Revision 1.4 2002-11-17 16:32:04 carl Revision 1.5 2003-04-27 08:50:45 peter
* compile fix
Revision 1.4 2002/11/17 16:32:04 carl
* memory optimization (3-4%) : cleanup of tai fields, * memory optimization (3-4%) : cleanup of tai fields,
cleanup of tdef and tsym fields. cleanup of tdef and tsym fields.
* make it work for m68k * make it work for m68k