mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-09-18 05:09:25 +02:00
* interface helpers for 1.1 compilers without interface support fixed
This commit is contained in:
parent
cb337a1481
commit
272865d6af
@ -36,19 +36,19 @@
|
|||||||
|
|
||||||
{$ifndef HASINTF}
|
{$ifndef HASINTF}
|
||||||
{ dummies for make cycle with 1.0.x }
|
{ dummies for make cycle with 1.0.x }
|
||||||
procedure intf_decr_ref(var i: pointer);saveregisters;[public,alias: 'FPC_INTF_DECR_REF'];
|
procedure fpc_intf_decr_ref(var i: pointer);saveregisters;[public,alias: 'FPC_INTF_DECR_REF']; {$ifdef hascompilerproc} compilerproc; {$endif}
|
||||||
begin
|
begin
|
||||||
end;
|
end;
|
||||||
|
|
||||||
procedure intf_incr_ref(const i: pointer);saveregisters;[public,alias: 'FPC_INTF_INCR_REF'];
|
procedure fpc_intf_incr_ref(const i: pointer);saveregisters;[public,alias: 'FPC_INTF_INCR_REF']; {$ifdef hascompilerproc} compilerproc; {$endif}
|
||||||
begin
|
begin
|
||||||
end;
|
end;
|
||||||
|
|
||||||
procedure intf_assign(var D: pointer; const S: pointer);[public,alias: 'FPC_INTF_ASSIGN'];
|
procedure fpc_intf_assign(var D: pointer; const S: pointer);[public,alias: 'FPC_INTF_ASSIGN']; {$ifdef hascompilerproc} compilerproc; {$endif}
|
||||||
begin
|
begin
|
||||||
end;
|
end;
|
||||||
|
|
||||||
procedure intf_as(var D: pointer; const S: pointer; const iid: TGUID);[public,alias: 'FPC_INTF_AS'];
|
procedure fpc_intf_as(var D: pointer; const S: pointer; const iid: TGUID);[public,alias: 'FPC_INTF_AS']; {$ifdef hascompilerproc} compilerproc; {$endif}
|
||||||
begin
|
begin
|
||||||
end;
|
end;
|
||||||
|
|
||||||
@ -715,7 +715,10 @@
|
|||||||
|
|
||||||
{
|
{
|
||||||
$Log$
|
$Log$
|
||||||
Revision 1.22 2002-07-01 16:29:05 peter
|
Revision 1.23 2002-07-30 17:29:19 florian
|
||||||
|
* interface helpers for 1.1 compilers without interface support fixed
|
||||||
|
|
||||||
|
Revision 1.22 2002/07/01 16:29:05 peter
|
||||||
* sLineBreak changed to normal constant like Kylix
|
* sLineBreak changed to normal constant like Kylix
|
||||||
|
|
||||||
Revision 1.21 2002/04/26 15:19:05 peter
|
Revision 1.21 2002/04/26 15:19:05 peter
|
||||||
|
Loading…
Reference in New Issue
Block a user