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

* pointer typecast

Browse Source
This commit is contained in:
peter 2003-12-23 22:11:26 +00:00
parent f6e7bd5274
commit dd69b121a9
1 changed files with 5 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
tests/test/cg/traise6.pp
View File

@ -62,13 +62,16 @@ Begin
{$ifdef ver1_0} {$ifdef ver1_0}
raise TBobject.create(i) at longint(@MyRoutine); raise TBobject.create(i) at longint(@MyRoutine);
{$else} {$else}
raise TBobject.create(i) at @MyRoutine,$00000001; raise TBobject.create(i) at @MyRoutine,pointer($00000001);
{$endif} {$endif}
end. end.
{ {
$Log$ $Log$
Revision 1.2 2002-09-07 15:40:56 peter Revision 1.3 2003-12-23 22:11:26 peter
* pointer typecast
Revision 1.2 2002/09/07 15:40:56 peter
* old logs removed and tabs fixed * old logs removed and tabs fixed
Revision 1.1 2002/08/10 08:27:44 carl Revision 1.1 2002/08/10 08:27:44 carl