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

Naming scheme changed, FPC_ prefix added.

Browse Source
This commit is contained in:
michael 1998-09-17 13:01:15 +00:00
parent f296cf3117
commit 9eb24eda6f
1 changed files with 7 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
rtl/objpas/objpas.pp
View File

@ -115,17 +115,17 @@ unit objpas;
implementation
procedure finalize(data,typeinfo : pointer);external name 'FINALIZE';
procedure finalize(data,typeinfo : pointer);external name 'FPC_FINALIZE';
{ the reverse order of the parameters make code generation easier }
function _is(aclass : tclass;aobject : tobject) : boolean;[public,alias: 'DO_IS'];
function _is(aclass : tclass;aobject : tobject) : boolean;[public,alias: 'FPC_DO_IS'];
begin
_is:=aobject.inheritsfrom(aclass);
end;
{ the reverse order of the parameters make code generation easier }
procedure _as(aclass : tclass;aobject : tobject);[public,alias: 'DO_AS'];
procedure _as(aclass : tclass;aobject : tobject);[public,alias: 'FPC_DO_AS'];
begin
if assigned(aobject) and not(aobject.inheritsfrom(aclass)) then
@ -321,7 +321,10 @@ end.
{$endif VER0_99_5}
{
$Log$
Revision 1.9 1998-09-16 13:08:19 michael
Revision 1.10 1998-09-17 13:01:15 michael
Naming scheme changed, FPC_ prefix added.
Revision 1.9 1998/09/16 13:08:19 michael
Added AbstractErrorHandler
Revision 1.8 1998/09/06 21:27:31 florian