ExternalLong.st
changeset 2330 2d8b961f62dc
parent 2329 63e0cb1a051e
child 2462 07457221fd73
equal deleted inserted replaced
2329:63e0cb1a051e 2330:2d8b961f62dc
    86     result = 1 ifTrue:[ ^ #SQL_NULLABLE ].
    86     result = 1 ifTrue:[ ^ #SQL_NULLABLE ].
    87     ^ #SQL_NULLABLE_UNKNOWN
    87     ^ #SQL_NULLABLE_UNKNOWN
    88 !
    88 !
    89 
    89 
    90 asPointer
    90 asPointer
    91     ^ ExternalBytes address:(self value)
    91     ^ ExternalAddress new setAddress:(self value)
    92 
    92 
    93     "
    93     "
    94      (ExternalLong new value:10) asPointer
    94      (ExternalLong new value:10) asPointer
    95     "
    95     "
    96 !
    96 !
   115 ! !
   115 ! !
   116 
   116 
   117 !ExternalLong class methodsFor:'documentation'!
   117 !ExternalLong class methodsFor:'documentation'!
   118 
   118 
   119 version
   119 version
   120     ^ '$Header: /cvs/stx/stx/libbasic2/ExternalLong.st,v 1.5 2009-11-04 16:10:18 cg Exp $'
   120     ^ '$Header: /cvs/stx/stx/libbasic2/ExternalLong.st,v 1.6 2009-11-04 23:08:23 cg Exp $'
   121 !
   121 !
   122 
   122 
   123 version_CVS
   123 version_CVS
   124     ^ '$Header: /cvs/stx/stx/libbasic2/ExternalLong.st,v 1.5 2009-11-04 16:10:18 cg Exp $'
   124     ^ '$Header: /cvs/stx/stx/libbasic2/ExternalLong.st,v 1.6 2009-11-04 23:08:23 cg Exp $'
   125 ! !
   125 ! !