paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-13 05:40:20 +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 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 } { 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 begin
_is:=aobject.inheritsfrom(aclass); _is:=aobject.inheritsfrom(aclass);
end; end;
{ the reverse order of the parameters make code generation easier } { 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 begin
if assigned(aobject) and not(aobject.inheritsfrom(aclass)) then if assigned(aobject) and not(aobject.inheritsfrom(aclass)) then
@ -321,7 +321,10 @@ end.
{$endif VER0_99_5} {$endif VER0_99_5}
{ {
$Log$ $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 Added AbstractErrorHandler
Revision 1.8 1998/09/06 21:27:31 florian Revision 1.8 1998/09/06 21:27:31 florian