equal
deleted
inserted
replaced
630 and the actual domain code in byte 2" |
630 and the actual domain code in byte 2" |
631 |
631 |
632 OperatingSystem isOSXlike ifTrue:[ |
632 OperatingSystem isOSXlike ifTrue:[ |
633 ^ self at:2 |
633 ^ self at:2 |
634 ]. |
634 ]. |
635 ^ self unsignedShortAt:1 |
635 ^ self unsignedInt16At:1 |
636 ! |
636 ! |
637 |
637 |
638 domainCode:anInteger |
638 domainCode:anInteger |
639 "this opaquely sets the first two bytes as a short integer; |
639 "this opaquely sets the first two bytes as a short integer; |
640 Notice: some systems store the domainCode in those 2 bytes, |
640 Notice: some systems store the domainCode in those 2 bytes, |
643 |
643 |
644 OperatingSystem isOSXlike ifTrue:[ |
644 OperatingSystem isOSXlike ifTrue:[ |
645 self at:1 put:self size. |
645 self at:1 put:self size. |
646 self at:2 put:anInteger. |
646 self at:2 put:anInteger. |
647 ] ifFalse:[ |
647 ] ifFalse:[ |
648 self unsignedShortAt:1 put:anInteger |
648 self unsignedInt16At:1 put:anInteger |
649 ]. |
649 ]. |
650 ! |
650 ! |
651 |
651 |
652 hostAddress:addressBytes |
652 hostAddress:addressBytes |
653 "generic method, subclasses usually redefine this" |
653 "generic method, subclasses usually redefine this" |