SmalltalkDesktop.st
author Jan Vrany <jan.vrany@fit.cvut.cz>
Wed, 17 Jun 2015 06:22:00 +0100
branchjv
changeset 18487 8735bd9eee2f
parent 18011 deb0c3355881
child 23107 40173e082cbc
permissions -rw-r--r--
Use inlined FNV1a hash for String ...and do not use __symbolHash(). Although currently the VM also uses FNV1a hash for Symbols, the __symbolHash() does not handle properly character with codepoint 0 (because '\0' is used as a string terminator). This causes problems with Unicode16/32Strigs whose version of FNV1a hash is using object size from header to determine string's end. Added Symbol>>hash that actually *uses* the __symbolHash() to make sure it's hash is the the same as used bu the VM. Symbols with zeroes are rare and there's no Unicode16/32Symbol. This commit fixes issue #65.

"
 COPYRIGHT (c) 2006 by eXept Software AG
              All Rights Reserved

 This software is furnished under a license and may be used
 only in accordance with the terms of that license and with the
 inclusion of the above copyright notice.   This software may not
 be provided or otherwise made available to, or used by, any
 other person.  No title to or ownership of the software is
 hereby transferred.
"
"{ Package: 'stx:libbasic' }"

AbstractDesktop subclass:#SmalltalkDesktop
	instanceVariableNames:''
	classVariableNames:''
	poolDictionaries:''
	category:'System-Desktop'
!

!SmalltalkDesktop class methodsFor:'documentation'!

copyright
"
 COPYRIGHT (c) 2006 by eXept Software AG
              All Rights Reserved

 This software is furnished under a license and may be used
 only in accordance with the terms of that license and with the
 inclusion of the above copyright notice.   This software may not
 be provided or otherwise made available to, or used by, any
 other person.  No title to or ownership of the software is
 hereby transferred.
"
! !

!SmalltalkDesktop class methodsFor:'accessing'!

priority

    ^0

    "Modified: / 12-08-2009 / 10:44:36 / Jan Vrany <vranyj1@fel.cvut.cz>"
! !

!SmalltalkDesktop class methodsFor:'testing'!

isAvailable

    "
        Smalltalk desktop is always available.
    "

    ^true

    "Modified: / 12-08-2009 / 10:45:25 / Jan Vrany <vranyj1@fel.cvut.cz>"
! !

!SmalltalkDesktop class methodsFor:'documentation'!

version_CVS
    ^ '$Header: /cvs/stx/stx/libbasic/SmalltalkDesktop.st,v 1.1 2011-06-28 10:09:43 vrany Exp $'
!

version_SVN
    ^ ' Id: SmalltalkDesktop.st 10524 2010-05-20 13:35:23Z vranyj1  '
! !