|
|
@@ -62,13 +62,16 @@ Begin
|
|
|
{$ifdef ver1_0}
|
|
|
raise TBobject.create(i) at longint(@MyRoutine);
|
|
|
{$else}
|
|
|
- raise TBobject.create(i) at @MyRoutine,$00000001;
|
|
|
+ raise TBobject.create(i) at @MyRoutine,pointer($00000001);
|
|
|
{$endif}
|
|
|
end.
|
|
|
|
|
|
{
|
|
|
$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
|
|
|
|
|
|
Revision 1.1 2002/08/10 08:27:44 carl
|
peter