tag:www.nabble.com,2006:forum-14149
Nabble - Slate
2007-07-09T21:25:09Z
<a href="http://slate.tunes.org/" target="_top" rel="nofollow">Slate</a> is a prototype-based object-oriented programming language based on Self, CLOS, and Smalltalk-80.
tag:www.nabble.com,2006:post-11527325
towards a 64 bit vm / image
2007-07-09T21:25:09Z
2007-07-09T21:25:09Z
Timmy Douglas-3
<br>I put together some patches that redo the pidgin type system to use
<br>traits instead of rules, use sizeof instead of hard coded
<br>bit/byte/word sizes, and write slate images based on a given bitsize
<br>instead of assuming 32 bits. I'm doing this because i want to run
<br>slate on my amd64 system. Unfortunately it's broken now and nothing
<br>works, but hopefully I'll fix that in the next few years if I'm lucky.
<br>It includes some other stuff I think.
<br><br><br /><hr align="left" width="300" /><tt><br>New patches:
<br><br>[use-applyTo-for-bootstrap
<br><a href="http://www.nabble.com/user/SendEmail.jtp?type=post&post=11527325&i=0" target="_top" rel="nofollow">lists@...</a>**20070424232352
<br>
<br> There was a case where we called applyWith:
<br> but that might not be in the bootstrap image
<br> yet so I changed it to applyTo:
<br>
<br>] {
<br>hunk ./src/lib/derivable.slate 172
<br>- [(#surroundings findOn: {x}) ifNil: [True] ifNotNilDo: [| :m | (m applyWith: proto) = x]]
<br>+ [(#surroundings findOn: {x}) ifNil: [True] ifNotNilDo: [| :m | (m applyTo: {proto}) = x]]
<br>}
<br><br>[Changed type declarations in some Pidgin code from LongInt to UnsignedLongInt for clarity (and reduced warnings).
<br>Brian T. Rice <<a href="http://www.nabble.com/user/SendEmail.jtp?type=post&post=11527325&i=1" target="_top" rel="nofollow">water@...</a>>**20060313213832] {
<br>hunk ./src/mobius/vm/base/layout.slate 50
<br>- (i bitXor: i << 1)!LongInt cast >= 0
<br>+ (i bitXor: i << 1)!UnsignedLongInt cast >= 0
<br>hunk ./src/mobius/vm/base/layout.slate 79
<br>- oop!LongInt cast >> 1
<br>-]!LongInt inline export.
<br>+ oop!UnsignedLongInt cast >> 1
<br>+]!UnsignedLongInt inline export.
<br>hunk ./src/mobius/vm/base/map.slate 41
<br>-[| n!LongInt tableSize requested |
<br>+[| n!UnsignedLongInt tableSize requested |
<br>hunk ./src/mobius/vm/base/map.slate 96
<br>-[| n!LongInt method!(MethodDefinition pointer) newRoles!(RoleTable pointer) oldSize newSize |
<br>+[| n!UnsignedLongInt method!(MethodDefinition pointer) newRoles!(RoleTable pointer) oldSize newSize |
<br>hunk ./src/mobius/vm/base/map.slate 101
<br>- (oldSize // 3)!LongInt cast - roles emptySpace + n).
<br>+ (oldSize // 3)!UnsignedLongInt cast - roles emptySpace + n).
<br>hunk ./src/mobius/vm/base/map.slate 196
<br>-[| n!LongInt tableSize requested |
<br>+[| n!UnsignedLongInt tableSize requested |
<br>hunk ./src/mobius/vm/base/map.slate 211
<br>-[| n!LongInt name!ObjectPointer newSlots!(SlotTable pointer) oldSize newSize |
<br>+[| n!UnsignedLongInt name!ObjectPointer newSlots!(SlotTable pointer) oldSize newSize |
<br>hunk ./src/mobius/vm/base/map.slate 216
<br>- (oldSize // 3)!LongInt cast - slots emptySpace + n).
<br>+ (oldSize // 3)!UnsignedLongInt cast - slots emptySpace + n).
<br>hunk ./src/mobius/vm/base/map.slate 233
<br>-[| amount!LongInt |
<br>+[| amount!UnsignedLongInt |
<br>hunk ./src/mobius/vm/base/vm.slate 121
<br>-]!LongInt inline export.
<br>+]!UnsignedLongInt inline export.
<br>hunk ./src/mobius/vm/base/vm.slate 484
<br>-[| offset!LongInt |
<br>+[| offset!UnsignedLongInt |
<br>hunk ./src/mobius/vm/base/vm.slate 490
<br>-[| offset!LongInt condition!ObjectPointer |
<br>+[| offset!UnsignedLongInt condition!ObjectPointer |
<br>hunk ./src/mobius/vm/base/vm.slate 504
<br>-[| offset!LongInt condition!ObjectPointer |
<br>+[| offset!UnsignedLongInt condition!ObjectPointer |
<br>}
<br><br>[Fixed the FFI VM module to work with the asObject type change in pidgin.
<br>Brian T. Rice <<a href="http://www.nabble.com/user/SendEmail.jtp?type=post&post=11527325&i=2" target="_top" rel="nofollow">water@...</a>>**20060314221253] {
<br>hunk ./src/mobius/vm/platform/extprim.c 299
<br>- return unsignedLongInt_asObject (result);
<br>+ return longInt_asObject (result);
<br>}
<br><br>[Use signedLongInt_asObject instead of longInt_asObject
<br>Tony Garnock-Jones <<a href="http://www.nabble.com/user/SendEmail.jtp?type=post&post=11527325&i=3" target="_top" rel="nofollow">tonyg@...</a>>**20060325121803] {
<br>hunk ./src/mobius/vm/platform/extprim.c 299
<br>- return longInt_asObject (result);
<br>+ return signedLongInt_asObject (result);
<br>}
<br><br>[pidgin detailed type specifiers
<br><a href="http://www.nabble.com/user/SendEmail.jtp?type=post&post=11527325&i=4" target="_top" rel="nofollow">lists@...</a>**20070618041451
<br>
<br> I went through the pidgin source and tried
<br> to name the types in a more slate-ish way
<br> so that it would be easier to modify certain
<br> types' word-size when porting to 64bit.
<br>
<br>] {
<br>hunk ./src/mobius/vm/base/layout.slate 6
<br>-addSynonymNamed: #Word of: UnsignedLongInt &export: True.
<br>+
<br>hunk ./src/mobius/vm/base/layout.slate 8
<br>-addSynonymNamed: #Bool of: UnsignedLongInt &export: True.
<br>+
<br>+"any pointer that's treated like an integer"
<br>+addSynonymNamed: #IntegerPointer of: UnsignedLongInt &export: True.
<br>+
<br>+"Any integer that's not a bignum"
<br>+addSynonymNamed: #SmallInteger of: LongInt &export: True.
<br>+addSynonymNamed: #UnsignedSmallInteger of: IntegerPointer &export: True.
<br>+
<br>+addSynonymNamed: #Bool of: UnsignedSmallInteger &export: True.
<br>+addSynonymNamed: #ObjectPointer of: IntegerPointer &export: True.
<br>+
<br>hunk ./src/mobius/vm/base/layout.slate 47
<br>-addSynonymNamed: #ObjectPointer of: Word &export: True.
<br>hunk ./src/mobius/vm/base/layout.slate 59
<br>- (i bitXor: i << 1)!UnsignedLongInt cast >= 0
<br>+ (i bitXor: i << 1)!SmallInteger cast >= 0
<br>hunk ./src/mobius/vm/base/layout.slate 74
<br>-[(p!UnsignedLongInt cast bitOr: ObjectTag)!ObjectPointer cast]!ObjectPointer inline export.
<br>+[(p!IntegerPointer cast bitOr: ObjectTag)!ObjectPointer cast]!ObjectPointer inline export.
<br>hunk ./src/mobius/vm/base/layout.slate 77
<br>-[(p!UnsignedLongInt cast bitOr: ObjectTag)!ObjectPointer cast]!ObjectPointer inline export.
<br>+[(p!IntegerPointer cast bitOr: ObjectTag)!ObjectPointer cast]!ObjectPointer inline export.
<br>hunk ./src/mobius/vm/base/layout.slate 79
<br>-i@UnsignedLongInt asObject
<br>+i@IntegerPointer asObject
<br>hunk ./src/mobius/vm/base/layout.slate 88
<br>- oop!UnsignedLongInt cast >> 1
<br>-]!UnsignedLongInt inline export.
<br>+ oop!IntegerPointer cast >> 1
<br>+]!SmallInteger inline export.
<br>hunk ./src/mobius/vm/base/map.slate 6
<br>-MethodDefinition addElementNamed: #dispatchPositions &type: UnsignedLongInt.
<br>-MethodDefinition addElementNamed: #foundPositions &type: UnsignedLongInt.
<br>-MethodDefinition addElementNamed: #dispatchRank &type: UnsignedLongInt.
<br>+MethodDefinition addElementNamed: #dispatchPositions &type: UnsignedSmallInteger.
<br>+MethodDefinition addElementNamed: #foundPositions &type: UnsignedSmallInteger.
<br>+MethodDefinition addElementNamed: #dispatchRank &type: UnsignedSmallInteger.
<br>hunk ./src/mobius/vm/base/map.slate 26
<br>-]!UnsignedLongInt inline.
<br>+]!UnsignedSmallInteger inline.
<br>hunk ./src/mobius/vm/base/map.slate 37
<br>-]!UnsignedLongInt.
<br>+]!UnsignedSmallInteger.
<br>hunk ./src/mobius/vm/base/map.slate 41
<br>-[| n!UnsignedLongInt tableSize requested |
<br>+[| n!UnsignedSmallInteger tableSize requested |
<br>hunk ./src/mobius/vm/base/map.slate 50
<br>-]!UnsignedLongInt.
<br>+]!UnsignedSmallInteger.
<br>hunk ./src/mobius/vm/base/map.slate 96
<br>-[| n!UnsignedLongInt method!(MethodDefinition pointer) newRoles!(RoleTable pointer) oldSize newSize |
<br>+[| n!UnsignedSmallInteger method!(MethodDefinition pointer) newRoles!(RoleTable pointer) oldSize newSize |
<br>hunk ./src/mobius/vm/base/map.slate 101
<br>- (oldSize // 3)!UnsignedLongInt cast - roles emptySpace + n).
<br>+ (oldSize // 3)!UnsignedSmallInteger cast - roles emptySpace + n).
<br>hunk ./src/mobius/vm/base/map.slate 132
<br>-addConstantNamed: #SlotOffsetMask &value: 16rFF_FF_FF_FE &export: True.
<br>+"addConstantNamed: #SlotOffsetMask &value: 16rFF_FF_FF_FE &export: True."
<br>+addConstantNamed: #SlotOffsetMask &value: -2 &export: True.
<br>hunk ./src/mobius/vm/base/map.slate 142
<br>-]!UnsignedLongInt inline.
<br>+]!UnsignedSmallInteger inline.
<br>hunk ./src/mobius/vm/base/map.slate 153
<br>-]!UnsignedLongInt.
<br>+]!UnsignedSmallInteger.
<br>hunk ./src/mobius/vm/base/map.slate 197
<br>-[| n!UnsignedLongInt tableSize requested |
<br>+[| n!UnsignedSmallInteger tableSize requested |
<br>hunk ./src/mobius/vm/base/map.slate 206
<br>-]!UnsignedLongInt.
<br>+]!UnsignedSmallInteger.
<br>hunk ./src/mobius/vm/base/map.slate 212
<br>-[| n!UnsignedLongInt name!ObjectPointer newSlots!(SlotTable pointer) oldSize newSize |
<br>+[| n!UnsignedSmallInteger name!ObjectPointer newSlots!(SlotTable pointer) oldSize newSize |
<br>hunk ./src/mobius/vm/base/map.slate 217
<br>- (oldSize // 3)!UnsignedLongInt cast - slots emptySpace + n).
<br>+ (oldSize // 3)!UnsignedSmallInteger cast - slots emptySpace + n).
<br>hunk ./src/mobius/vm/base/map.slate 234
<br>-[| amount!UnsignedLongInt |
<br>+[| amount!UnsignedSmallInteger |
<br>hunk ./src/mobius/vm/base/map.slate 258
<br>-Map addElementNamed: #visitedPositions &type: UnsignedLongInt.
<br>+Map addElementNamed: #visitedPositions &type: UnsignedSmallInteger.
<br>hunk ./src/mobius/vm/base/memory.slate 1
<br>-ObjectHeap addElementNamed: #memory &type: UnsignedLongInt pointer.
<br>-ObjectHeap addElementNamed: #memoryEnd &type: UnsignedLongInt.
<br>+ObjectHeap addElementNamed: #memory &type: IntegerPointer pointer. "pointer? fix? what?"
<br>+ObjectHeap addElementNamed: #memoryEnd &type: IntegerPointer.
<br>hunk ./src/mobius/vm/base/memory.slate 5
<br>-ObjectHeap addElementNamed: #totalObjectCount &type: UnsignedLongInt.
<br>+ObjectHeap addElementNamed: #totalObjectCount &type: UnsignedSmallInteger.
<br>hunk ./src/mobius/vm/base/memory.slate 63
<br>-[| oop!ObjectPointer ptr!(Object pointer) shiftAmountInBytes!LongInt fieldOop!ObjectPointer |
<br>+[| oop!ObjectPointer ptr!(Object pointer) shiftAmountInBytes!SmallInteger fieldOop!ObjectPointer |
<br>hunk ./src/mobius/vm/base/memory.slate 92
<br>-]!UnsignedLongInt export.
<br>+]!UnsignedSmallInteger export.
<br>hunk ./src/mobius/vm/base/memory.slate 131
<br>- h memory!UnsignedLongInt cast
<br>-]!UnsignedLongInt export.
<br>+ h memory!IntegerPointer cast
<br>+]!IntegerPointer export.
<br>hunk ./src/mobius/vm/base/memory.slate 288
<br>-]!UnsignedLongInt.
<br>+]!UnsignedSmallInteger.
<br>hunk ./src/mobius/vm/base/memory.slate 293
<br>- h memoryEnd!UnsignedLongInt cast - h memory!UnsignedLongInt cast
<br>-]!UnsignedLongInt inline export.
<br>+ h memoryEnd!IntegerPointer cast - h memory!IntegerPointer cast
<br>+]!UnsignedSmallInteger inline export.
<br>hunk ./src/mobius/vm/base/object.slate 4
<br>-]!UnsignedLongInt inline export.
<br>+]!UnsignedSmallInteger inline export.
<br>hunk ./src/mobius/vm/base/object.slate 9
<br>- ifTrue: [obj header objectSize * #[Word byteSize]]
<br>- ifFalse: [obj header objectSize * #[Word byteSize] + obj payloadSize + #[2 * Word byteSize - 1]
<br>- bitAnd: #[(Word byteSize - 1) bitNot]]
<br>-]!UnsignedLongInt inline export.
<br>+ ifTrue: [obj header objectSize * #[IntegerPointer byteSize]]
<br>+ ifFalse: [obj header objectSize * #[IntegerPointer byteSize] + obj payloadSize + #[2 * IntegerPointer byteSize - 1]
<br>+ bitAnd: #[(IntegerPointer byteSize - 1) bitNot]]
<br>+]!UnsignedSmallInteger inline export.
<br>hunk ./src/mobius/vm/base/object.slate 20
<br>- ifFalse: [obj header objectSize + ((obj payloadSize + #[Word byteSize - 1]) // #[Word byteSize])]
<br>-]!UnsignedLongInt inline export.
<br>+ ifFalse: [obj header objectSize + ((obj payloadSize + #[IntegerPointer byteSize - 1]) // #[IntegerPointer byteSize])]
<br>+]!UnsignedSmallInteger inline export.
<br>hunk ./src/mobius/vm/base/object.slate 26
<br>-]!UnsignedLongInt inline export.
<br>+]!UnsignedSmallInteger inline export.
<br>hunk ./src/mobius/vm/base/object.slate 31
<br>-]!UnsignedLongInt inline export.
<br>+]!UnsignedSmallInteger inline export.
<br>hunk ./src/mobius/vm/base/object.slate 38
<br>-]!UnsignedLongInt inline export.
<br>+]!UnsignedSmallInteger inline export.
<br>hunk ./src/mobius/vm/base/object.slate 42
<br>- obj header objectSize * #[Word byteSize] - #[ObjectPointer byteSize]
<br>-]!UnsignedLongInt inline export.
<br>+ obj header objectSize * #[IntegerPointer byteSize] - #[ObjectPointer byteSize]
<br>+]!IntegerPointer inline export.
<br>hunk ./src/mobius/vm/base/object.slate 52
<br>-]!UnsignedLongInt inline export.
<br>+]!IntegerPointer inline export.
<br>hunk ./src/mobius/vm/base/object.slate 56
<br>- obj header objectSize * #[Word byteSize]
<br>-]!UnsignedLongInt inline export.
<br>+ obj header objectSize * #[IntegerPointer byteSize]
<br>+]!IntegerPointer inline export.
<br>hunk ./src/mobius/vm/base/object.slate 68
<br>- ifFalse: [(obj payloadSize + #[Word byteSize - 1]) // #[Word byteSize]]
<br>-]!UnsignedLongInt inline export.
<br>+ ifFalse: [(obj payloadSize + #[IntegerPointer byteSize - 1]) // #[IntegerPointer byteSize]]
<br>+]!UnsignedSmallInteger inline export.
<br>hunk ./src/mobius/vm/base/object.slate 73
<br>- obj wordSize * #[Word byteSize]
<br>-]!UnsignedLongInt inline export.
<br>+ obj wordSize * #[IntegerPointer byteSize]
<br>+]!UnsignedSmallInteger inline export.
<br>hunk ./src/mobius/vm/base/object.slate 81
<br>-]!UnsignedLongInt inline export.
<br>+]!UnsignedSmallInteger inline export.
<br>hunk ./src/mobius/vm/base/object.slate 119
<br>-[| targetBuffer!(Byte pointer) bufferSize!UnsignedLongInt payloadSize |
<br>+[| targetBuffer!(Byte pointer) bufferSize!UnsignedSmallInteger payloadSize |
<br>hunk ./src/mobius/vm/base/object.slate 124
<br>-]!LongInt inline export.
<br>+]!SmallInteger inline export.
<br>hunk ./src/mobius/vm/base/object.slate 149
<br>- proto!(Word pointer) cast + #[ObjectHeader wordSize]
<br>+ proto!(IntegerPointer pointer) cast + #[ObjectHeader wordSize]
<br>hunk ./src/mobius/vm/base/object.slate 151
<br>- into: newObj!(Word pointer) cast + #[ObjectHeader wordSize].
<br>+ into: newObj!(IntegerPointer pointer) cast + #[ObjectHeader wordSize].
<br>hunk ./src/mobius/vm/base/object.slate 166
<br>- newObj: (oh allocateChunkSized: proto header objectSize withPayload: oops * #[Word byteSize]).
<br>+ newObj: (oh allocateChunkSized: proto header objectSize withPayload: oops * #[IntegerPointer byteSize]).
<br>hunk ./src/mobius/vm/base/object.slate 169
<br>- proto!(Word pointer) cast + #[ObjectHeader wordSize]
<br>+ proto!(IntegerPointer pointer) cast + #[ObjectHeader wordSize]
<br>hunk ./src/mobius/vm/base/object.slate 171
<br>- into: newObj!(Word pointer) cast + #[ObjectHeader wordSize].
<br>- newObj!(Word pointer) cast + proto header objectSize
<br>+ into: newObj!(IntegerPointer pointer) cast + #[ObjectHeader wordSize].
<br>+ newObj!(IntegerPointer pointer) cast + proto header objectSize
<br>hunk ./src/mobius/vm/base/object.slate 185
<br>- proto!(Word pointer) cast + #[ObjectHeader wordSize]
<br>+ proto!(IntegerPointer pointer) cast + #[ObjectHeader wordSize]
<br>hunk ./src/mobius/vm/base/object.slate 187
<br>- into: newObj!(Word pointer) cast + #[ObjectHeader wordSize].
<br>- newObj!(Word pointer) cast + proto header objectSize
<br>- fillWords: (bytes + #[Word byteSize - 1]) // #[Word byteSize]
<br>+ into: newObj!(IntegerPointer pointer) cast + #[ObjectHeader wordSize].
<br>+ newObj!(IntegerPointer pointer) cast + proto header objectSize
<br>+ fillWords: (bytes + #[IntegerPointer byteSize - 1]) // #[IntegerPointer byteSize]
<br>hunk ./src/mobius/vm/base/vm.slate 65
<br>-Interpreter addElementNamed: #framePointer &type: UnsignedLongInt.
<br>-Interpreter addElementNamed: #codePointer &type: UnsignedLongInt.
<br>-Interpreter addElementNamed: #codeSize &type: UnsignedLongInt.
<br>-Interpreter addElementNamed: #stackPointer &type: UnsignedLongInt.
<br>-Interpreter addElementNamed: #stackSize &type: UnsignedLongInt.
<br>+Interpreter addElementNamed: #framePointer &type: IntegerPointer.
<br>+Interpreter addElementNamed: #codePointer &type: IntegerPointer.
<br>+Interpreter addElementNamed: #codeSize &type: UnsignedSmallInteger.
<br>+Interpreter addElementNamed: #stackPointer &type: IntegerPointer.
<br>+Interpreter addElementNamed: #stackSize &type: UnsignedSmallInteger.
<br>hunk ./src/mobius/vm/base/vm.slate 121
<br>-]!UnsignedLongInt inline export.
<br>+]!UnsignedSmallInteger inline export.
<br>hunk ./src/mobius/vm/base/vm.slate 136
<br>-]!UnsignedLongInt inline export.
<br>+]!UnsignedSmallInteger inline export.
<br>hunk ./src/mobius/vm/base/vm.slate 209
<br>- '#ifdef DEBUG_MSG\n printSymbol(stderr, selector); fputc(\'\\n\', stderr);\n#endif\n' directly.
<br>+ '#ifdef DEBUG_MSG\n fprintf(stderr, "%d ", i->framePointer);\n printSymbol(stderr, selector); fputc(\'\\n\', stderr);\n#endif\n' directly.
<br>+
<br>+
<br>+"fix clean this up eventually"
<br>+
<br>+ '
<br>+
<br>+ unsigned long int ii=0;
<br>+ static char buffer[100];
<br>+
<br>+
<br>+ for (ii = 0; ii < n; ii++) {
<br>+ unsigned long int offset, slotNum;
<br>+ unsigned long int _limit_;
<br>+ if (ObjectPointer_isSmallInt(args[ii])) {
<br>+ fprintf(stderr, "arg %d: %d\n", ii, ObjectPointer_asSmallInt(args[ii]));
<br>+ continue;
<br>+ }
<br>+ struct Object* mytraitsWindow = ObjectPointer_pointer(ObjectPointer_pointer(args[ii])->map->delegates->elements[0]);
<br>+
<br>+ _limit_ = (PSObject_arraySize(ObjectPointer_pointer(args[ii])) - 1) + 1;
<br>+ unsigned long int numDelegates = PSObject_arraySize(mytraitsWindow->map->delegates);
<br>+
<br>+ //fprintf(stderr, "delegate count: %d\n", numDelegates);
<br>+
<br>+ for (offset = PSObject_firstSlotOffset(mytraitsWindow), slotNum=0;
<br>+ slotNum < PSObject_slotCount(mytraitsWindow);
<br>+ offset = offset + 4, slotNum++) {
<br>+
<br>+
<br>+
<br>+ struct Object* traitsWindowSlotName = ObjectPointer_pointer(mytraitsWindow->map->slotTable->slots[slotNum].name);
<br>+
<br>+ strncpy(buffer, PSObject_arrayElements(traitsWindowSlotName), PSObject_payloadSize(traitsWindowSlotName));
<br>+ buffer[PSObject_payloadSize(traitsWindowSlotName)] = 0;
<br>+ //fprintf(stderr, "slot arg[%d] slot[%d]: %s\n", ii, slotNum, buffer);
<br>+
<br>+
<br>+
<br>+ if (strncmp(PSObject_arrayElements(traitsWindowSlotName),
<br>+ "printName",
<br>+ PSObject_payloadSize(traitsWindowSlotName)) == 0
<br>+ || 1) { /*i dunno..*/
<br>+
<br>+ struct Object* oop = ObjectPointer_pointer(PSObject_slotValueAtOffset_(mytraitsWindow, offset));
<br>+ strncpy(buffer, PSObject_arrayElements(oop), PSObject_payloadSize(oop));
<br>+ buffer[PSObject_payloadSize(oop)] = 0;
<br>+ fprintf(stderr, "arg %d: %s\n", ii, buffer);
<br>+ if (strncmp(buffer, "Symbol", 7) == 0) {
<br>+ fprintf(stderr, "name: ");
<br>+ printSymbol(stderr, args[ii]);
<br>+ fprintf(stderr, "\n");
<br>+ }
<br>+ break;
<br>+ }
<br>+ }
<br>+ }
<br>+' directly.
<br>+
<br>hunk ./src/mobius/vm/base/vm.slate 542
<br>-[| offset!UnsignedLongInt |
<br>+[| offset!IntegerPointer |
<br>hunk ./src/mobius/vm/base/vm.slate 548
<br>-[| offset!UnsignedLongInt condition!ObjectPointer |
<br>+[| offset!IntegerPointer condition!ObjectPointer |
<br>hunk ./src/mobius/vm/base/vm.slate 562
<br>-[| offset!UnsignedLongInt condition!ObjectPointer |
<br>+[| offset!IntegerPointer condition!ObjectPointer |
<br>hunk ./src/mobius/vm/ext/console.slate 8
<br>-[| bytes!(Byte pointer) size!UnsignedLongInt |
<br>+[| bytes!(Byte pointer) size!UnsignedSmallInteger |
<br>hunk ./src/mobius/vm/ext/console.slate 11
<br>- interpreter stackPush: 'fread(bytes, 1, size, stdin)' directly!LongInt asObject.
<br>+ interpreter stackPush: 'fread(bytes, 1, size, stdin)' directly!SmallInteger asObject.
<br>hunk ./src/mobius/vm/ext/console.slate 16
<br>-[| bytes!(Byte pointer) size!UnsignedLongInt |
<br>+[| bytes!(Byte pointer) size!UnsignedSmallInteger |
<br>hunk ./src/mobius/vm/ext/console.slate 20
<br>- ifTrue: [interpreter stackPush: 'fwrite(bytes, 1, size, stdout)' directly!LongInt asObject]
<br>- ifFalse: [interpreter stackPush: 'fwrite(bytes, 1, size, stderr)' directly!LongInt asObject]
<br>+ ifTrue: [interpreter stackPush: 'fwrite(bytes, 1, size, stdout)' directly!SmallInteger asObject]
<br>+ ifFalse: [interpreter stackPush: 'fwrite(bytes, 1, size, stderr)' directly!SmallInteger asObject]
<br>hunk ./src/mobius/vm/ext/directory.slate 4
<br>-[| handle!LongInt |
<br>- handle: 'openDirectory((struct ByteArray *) dname)' directly!LongInt.
<br>+[| handle!SmallInteger |
<br>+ handle: 'openDirectory((struct ByteArray *) dname)' directly!SmallInteger.
<br>hunk ./src/mobius/vm/ext/directory.slate 10
<br>-[| result!LongInt |
<br>- result: 'closeDirectory(dirHandle >> 1)' directly!LongInt.
<br>+[| result!SmallInteger |
<br>+ result: 'closeDirectory(dirHandle >> 1)' directly!SmallInteger.
<br>hunk ./src/mobius/vm/ext/directory.slate 16
<br>-[| entryNameLen!LongInt |
<br>+[| entryNameLen!SmallInteger |
<br>hunk ./src/mobius/vm/ext/directory.slate 18
<br>- directly!LongInt.
<br>+ directly!SmallInteger.
<br>hunk ./src/mobius/vm/ext/directory.slate 23
<br>-[| len!LongInt |
<br>- len: 'getCurrentDirectory((struct ByteArray *) buffer)' directly!LongInt.
<br>+[| len!SmallInteger |
<br>+ len: 'getCurrentDirectory((struct ByteArray *) buffer)' directly!SmallInteger.
<br>hunk ./src/mobius/vm/ext/directory.slate 29
<br>-[| result!LongInt |
<br>- result: 'setCurrentDirectory((struct ByteArray *) wd)' directly!LongInt.
<br>+[| result!SmallInteger |
<br>+ result: 'setCurrentDirectory((struct ByteArray *) wd)' directly!SmallInteger.
<br>hunk ./src/mobius/vm/ext/extprim.slate 28
<br>- interpreter stackPush: 'readExternalLibraryError((struct ByteArray *) messageBuffer)' directly!UnsignedLongInt asObject.
<br>+ interpreter stackPush: 'readExternalLibraryError((struct ByteArray *) messageBuffer)' directly!UnsignedSmallInteger asObject.
<br>hunk ./src/mobius/vm/ext/file.slate 4
<br>-[| handle!LongInt |
<br>- handle: 'openFile ((struct ByteArray *) fname, SF_READ | SF_WRITE)' directly!LongInt.
<br>+[| handle!SmallInteger |
<br>+ handle: 'openFile ((struct ByteArray *) fname, SF_READ | SF_WRITE)' directly!SmallInteger.
<br>hunk ./src/mobius/vm/ext/file.slate 12
<br>-[| handle!LongInt |
<br>- handle: 'openFile ((struct ByteArray *) fname, SF_READ)' directly!LongInt.
<br>+[| handle!SmallInteger |
<br>+ handle: 'openFile ((struct ByteArray *) fname, SF_READ)' directly!SmallInteger.
<br>hunk ./src/mobius/vm/ext/file.slate 20
<br>-[| handle!LongInt |
<br>- handle: 'openFile ((struct ByteArray *) fname, SF_READ | SF_WRITE | SF_CREATE)' directly!LongInt.
<br>+[| handle!SmallInteger |
<br>+ handle: 'openFile ((struct ByteArray *) fname, SF_READ | SF_WRITE | SF_CREATE)' directly!SmallInteger.
<br>hunk ./src/mobius/vm/ext/file.slate 30
<br>-[| handle!LongInt |
<br>- handle: 'openFile ((struct ByteArray *) fname, SF_READ | SF_WRITE | SF_CREATE | SF_CLEAR)' directly!LongInt.
<br>+[| handle!SmallInteger |
<br>+ handle: 'openFile ((struct ByteArray *) fname, SF_READ | SF_WRITE | SF_CREATE | SF_CLEAR)' directly!SmallInteger.
<br>hunk ./src/mobius/vm/ext/file.slate 45
<br>- interpreter stackPush: 'readFile (handle >> 1, n >> 1, (char *)(((struct ByteArray *) bytes)->elements + (start >> 1)))' directly!LongInt asObject
<br>+ interpreter stackPush: 'readFile (handle >> 1, n >> 1, (char *)(((struct ByteArray *) bytes)->elements + (start >> 1)))' directly!SmallInteger asObject
<br>hunk ./src/mobius/vm/ext/file.slate 50
<br>- interpreter stackPush: 'writeFile (handle >> 1, n >> 1, (char *)(((struct ByteArray *) bytes)->elements + (start >> 1)))' directly!LongInt asObject
<br>+ interpreter stackPush: 'writeFile (handle >> 1, n >> 1, (char *)(((struct ByteArray *) bytes)->elements + (start >> 1)))' directly!SmallInteger asObject
<br>hunk ./src/mobius/vm/ext/file.slate 55
<br>- interpreter stackPush: 'seekFile (handle >> 1, n >> 1)' directly!LongInt asObject
<br>+ interpreter stackPush: 'seekFile (handle >> 1, n >> 1)' directly!SmallInteger asObject
<br>hunk ./src/mobius/vm/ext/file.slate 60
<br>- interpreter stackPush: 'tellFile (handle >> 1)' directly!LongInt asObject
<br>+ interpreter stackPush: 'tellFile (handle >> 1)' directly!SmallInteger asObject
<br>hunk ./src/mobius/vm/ext/file.slate 65
<br>- 'endOfFile (handle >> 1)' directly!LongInt = 0
<br>+ 'endOfFile (handle >> 1)' directly!SmallInteger = 0
<br>hunk ./src/mobius/vm/ext/file.slate 71
<br>- interpreter stackPush: 'sizeOfFile (handle >> 1)' directly!LongInt asObject
<br>+ interpreter stackPush: 'sizeOfFile (handle >> 1)' directly!SmallInteger asObject
<br>hunk ./src/mobius/vm/ext/file.slate 81
<br>- 'saveImageNamed ((struct ByteArray *) name)' directly!LongInt < 0
<br>+ 'saveImageNamed ((struct ByteArray *) name)' directly!SmallInteger < 0
<br>hunk ./src/mobius/vm/ext/float.slate 8
<br>- (x pointer arrayElements!(UnsignedLongInt pointer) cast load bitAnd: 16r7F_FF_FF) asObject
<br>+ (x pointer arrayElements!(IntegerPointer pointer) cast load bitAnd: 16r7F_FF_FF) asObject
<br>hunk ./src/mobius/vm/ext/float.slate 14
<br>- (x pointer arrayElements!(UnsignedLongInt pointer) cast load >> 23 bitAnd: 16rFF) asObject
<br>+ (x pointer arrayElements!(IntegerPointer pointer) cast load >> 23 bitAnd: 16rFF) asObject
<br>hunk ./src/mobius/vm/ext/float.slate 20
<br>- f arrayElements!(UnsignedLongInt pointer) cast
<br>+ f arrayElements!(IntegerPointer pointer) cast
<br>hunk ./src/mobius/vm/ext/malloc.slate 4
<br>-[| handle!LongInt |
<br>+[| handle!SmallInteger |
<br>hunk ./src/mobius/vm/ext/malloc.slate 32
<br>- ifTrue: [interpreter stackPush: 'readMemory (handle >> 1, start >> 1, n >> 1, (char *)(((struct ByteArray *) a)->elements + (start >> 1)))' directly!LongInt asObject]
<br>+ ifTrue: [interpreter stackPush: 'readMemory (handle >> 1, start >> 1, n >> 1, (char *)(((struct ByteArray *) a)->elements + (start >> 1)))' directly!SmallInteger asObject]
<br>hunk ./src/mobius/vm/ext/malloc.slate 42
<br>- ifTrue: [interpreter stackPush: 'writeMemory (handle >> 1, start >> 1, n >> 1, (char *)(((struct ByteArray *) a)->elements + (start >> 1)))' directly!LongInt asObject]
<br>+ ifTrue: [interpreter stackPush: 'writeMemory (handle >> 1, start >> 1, n >> 1, (char *)(((struct ByteArray *) a)->elements + (start >> 1)))' directly!SmallInteger asObject]
<br>hunk ./src/mobius/vm/ext/malloc.slate 49
<br>- ifTrue: [interpreter stackPush: 'sizeOfMemory (handle >> 1)' directly!LongInt asObject]
<br>+ ifTrue: [interpreter stackPush: 'sizeOfMemory (handle >> 1)' directly!SmallInteger asObject]
<br>hunk ./src/mobius/vm/ext/malloc.slate 56
<br>- ifTrue: [interpreter stackPush: 'resizeMemory (handle >> 1, size >> 1)' directly!LongInt asObject]
<br>+ ifTrue: [interpreter stackPush: 'resizeMemory (handle >> 1, size >> 1)' directly!SmallInteger asObject]
<br>hunk ./src/mobius/vm/ext/malloc.slate 63
<br>- ifTrue: [interpreter stackPush: 'addressOfMemory (handle >> 1, offset >> 1, ((struct ByteArray *) addressBuffer)->elements)' directly!LongInt asObject]
<br>+ ifTrue: [interpreter stackPush: 'addressOfMemory (handle >> 1, offset >> 1, ((struct ByteArray *) addressBuffer)->elements)' directly!SmallInteger asObject]
<br>hunk ./src/mobius/vm/ext/memory.slate 13
<br>- interpreter stackPush: 'sizeof(NULL)' directly!LongInt asObject
<br>+ interpreter stackPush: 'sizeof(NULL)' directly!SmallInteger asObject
<br>hunk ./src/mobius/vm/ext/prims.slate 274
<br>- [interpreter stackPush: (arr pointer arrayElements!(Byte pointer) cast at: index)!UnsignedLongInt cast asObject]
<br>+ [interpreter stackPush: (arr pointer arrayElements!(Byte pointer) cast at: index)!IntegerPointer cast asObject]
<br>hunk ./src/mobius/vm/ext/prims.slate 286
<br>- [interpreter stackPush: (arr pointer arrayElements!(Byte pointer) cast at: index put: val asSmallInt)!UnsignedLongInt cast asObject]
<br>+ [interpreter stackPush: (arr pointer arrayElements!(Byte pointer) cast at: index put: val asSmallInt)!IntegerPointer cast asObject]
<br>hunk ./src/mobius/vm/ext/smallint.slate 52
<br>-[| z!LongInt bits!LongInt shift!LongInt |
<br>+[| z!SmallInteger bits!SmallInteger shift!SmallInteger |
<br>hunk ./src/mobius/vm/ext/smallint.slate 71
<br>-[| z!LongInt |
<br>+[| z!SmallInteger |
<br>hunk ./src/mobius/vm/ext/smallint.slate 81
<br>-[| z!LongInt |
<br>+[| z!SmallInteger |
<br>hunk ./src/mobius/vm/ext/smallint.slate 97
<br>- [interpreter stackPush: z!LongInt cast asObject]
<br>+ [interpreter stackPush: z!SmallInteger cast asObject]
<br>hunk ./src/mobius/vm/gc/mark-compact.slate 19
<br>-BreakEntry addElementNamed: #oldAddress &type: UnsignedLongInt.
<br>-BreakEntry addElementNamed: #newAddress &type: UnsignedLongInt.
<br>+BreakEntry addElementNamed: #oldAddress &type: IntegerPointer.
<br>+BreakEntry addElementNamed: #newAddress &type: IntegerPointer.
<br>hunk ./src/mobius/vm/gc/mark-compact.slate 40
<br>-ObjectHeap addElementNamed: #rootStackPosition &type: UnsignedLongInt.
<br>+ObjectHeap addElementNamed: #rootStackPosition &type: IntegerPointer.
<br>hunk ./src/mobius/vm/gc/mark-compact.slate 43
<br>-ObjectHeap addElementNamed: #markStackPosition &type: UnsignedLongInt.
<br>+ObjectHeap addElementNamed: #markStackPosition &type: IntegerPointer.
<br>hunk ./src/mobius/vm/gc/mark-compact.slate 45
<br>-ObjectHeap addElementNamed: #markColor &type: UnsignedLongInt.
<br>+ObjectHeap addElementNamed: #markColor &type: SmallInteger.
<br>hunk ./src/mobius/vm/gc/mark-compact.slate 48
<br>-ObjectHeap addElementNamed: #pinnedCards &type: UnsignedLongInt pointer.
<br>+ObjectHeap addElementNamed: #pinnedCards &type: IntegerPointer pointer.
<br>hunk ./src/mobius/vm/gc/mark-compact.slate 52
<br>-ObjectHeap addElementNamed: #stackBottom &type: UnsignedLongInt pointer.
<br>+ObjectHeap addElementNamed: #stackBottom &type: IntegerPointer pointer.
<br>hunk ./src/mobius/vm/gc/mark-compact.slate 56
<br>-ObjectHeap addElementNamed: #breakTableSize &type: UnsignedLongInt.
<br>-ObjectHeap addElementNamed: #totalAllocated &type: UnsignedLongInt.
<br>+ObjectHeap addElementNamed: #breakTableSize &type: UnsignedSmallInteger.
<br>+ObjectHeap addElementNamed: #totalAllocated &type: UnsignedSmallInteger.
<br>hunk ./src/mobius/vm/gc/mark-compact.slate 59
<br>-ObjectHeap addElementNamed: #lastAllocated &type: UnsignedLongInt.
<br>+ObjectHeap addElementNamed: #lastAllocated &type: IntegerPointer.
<br>hunk ./src/mobius/vm/gc/mark-compact.slate 62
<br>-ObjectHeap addElementNamed: #nextLive &type: UnsignedLongInt.
<br>+ObjectHeap addElementNamed: #nextLive &type: IntegerPointer.
<br>hunk ./src/mobius/vm/gc/mark-compact.slate 272
<br>-]!UnsignedLongInt inline.
<br>+]!IntegerPointer inline.
<br>hunk ./src/mobius/vm/gc/mark-compact.slate 296
<br>- [obj header idHash ~= IdHashFree /\ (oh isPinned: obj!UnsignedLongInt cast)
<br>+ [obj header idHash ~= IdHashFree /\ (oh isPinned: obj!IntegerPointer cast)
<br>hunk ./src/mobius/vm/gc/mark-compact.slate 299
<br>- offset: (obj!(Byte pointer) cast + obj totalSize)!UnsignedLongInt cast.
<br>+ offset: (obj!(Byte pointer) cast + obj totalSize)!IntegerPointer cast.
<br>hunk ./src/mobius/vm/gc/mark-compact.slate 320
<br>- [obj header idHash ~= IdHashFree /\ (oh isPinned: obj!UnsignedLongInt cast)
<br>+ [obj header idHash ~= IdHashFree /\ (oh isPinned: obj!IntegerPointer cast)
<br>hunk ./src/mobius/vm/gc/mark-compact.slate 324
<br>- offset: (obj!(Byte pointer) cast + obj totalSize)!UnsignedLongInt cast.
<br>+ offset: (obj!(Byte pointer) cast + obj totalSize)!IntegerPointer cast.
<br>hunk ./src/mobius/vm/gc/mark-compact.slate 354
<br>- fillWords: (oh memorySize + (CardSize * #[UnsignedLongInt bitSize] - 1)) / (CardSize * #[UnsignedLongInt bitSize])
<br>+ fillWords: (oh memorySize + (CardSize * #[IntegerPointer bitSize] - 1)) / (CardSize * #[IntegerPointer bitSize])
<br>hunk ./src/mobius/vm/gc/mark-compact.slate 359
<br>-[| stackTop!UnsignedLongInt stack!(UnsignedLongInt pointer) memorySize |
<br>+[| stackTop!IntegerPointer stack!(IntegerPointer pointer) memorySize |
<br>hunk ./src/mobius/vm/gc/mark-compact.slate 365
<br>- offset: stack load - oh memory!UnsignedLongInt cast.
<br>+ offset: stack load - oh memory!IntegerPointer cast.
<br>hunk ./src/mobius/vm/gc/mark-compact.slate 370
<br>- at: offset / #[UnsignedLongInt bitSize]
<br>+ at: offset / #[IntegerPointer bitSize]
<br>hunk ./src/mobius/vm/gc/mark-compact.slate 372
<br>- ((oh pinnedCards at: offset / #[UnsignedLongInt bitSize])
<br>+ ((oh pinnedCards at: offset / #[IntegerPointer bitSize])
<br>hunk ./src/mobius/vm/gc/mark-compact.slate 374
<br>- 1 << (offset \\ #[UnsignedLongInt bitSize]))].
<br>+ 1 << (offset \\ #[IntegerPointer bitSize]))].
<br>hunk ./src/mobius/vm/gc/mark-compact.slate 382
<br>- oop: (oop - oh memory!UnsignedLongInt cast) / CardSize.
<br>- ((oh pinnedCards at: oop / #[UnsignedLongInt bitSize])
<br>- >> (oop \\ #[UnsignedLongInt bitSize]))
<br>+ oop: (oop - oh memory!IntegerPointer cast) / CardSize.
<br>+ ((oh pinnedCards at: oop / #[IntegerPointer bitSize])
<br>+ >> (oop \\ #[IntegerPointer bitSize]))
<br>hunk ./src/mobius/vm/gc/mark-compact.slate 457
<br>- (oh hasMarked: obj) \/ (oh isPinned: obj!UnsignedLongInt cast)
<br>+ (oh hasMarked: obj) \/ (oh isPinned: obj!IntegerPointer cast)
<br>hunk ./src/mobius/vm/gc/mark-compact.slate 461
<br>- [(oh isPinned: obj!UnsignedLongInt cast)
<br>+ [(oh isPinned: obj!IntegerPointer cast)
<br>}
<br><br>[64bit-c-changes
<br><a href="http://www.nabble.com/user/SendEmail.jtp?type=post&post=11527325&i=5" target="_top" rel="nofollow">lists@...</a>**20070623232744
<br>
<br> made some changes to extprim.c and image.h to support 64 bit
<br>] {
<br>hunk ./src/mobius/vm/platform/extprim.c 5
<br>+#include <bits/wordsize.h>
<br>+
<br>hunk ./src/mobius/vm/platform/extprim.c 49
<br>-/* (If there's some #define for endianness, now is a good time to use it.) */
<br>-/* TODO 32 bit dependency */
<br>-static unsigned int extractBigInteger(ObjectPointer bigInt) {
<br>+static unsigned long int extractBigInteger(ObjectPointer bigInt) {
<br>hunk ./src/mobius/vm/platform/extprim.c 51
<br>- return ((unsigned int) bytes[0]) |
<br>- (((unsigned int) bytes[1]) << 8) |
<br>- (((unsigned int) bytes[2]) << 16) |
<br>- (((unsigned int) bytes[3]) << 24);
<br>+#if __WORDSIZE == 64
<br>+ return ((unsigned long int) bytes[0]) |
<br>+ (((unsigned long int) bytes[1]) << 8) |
<br>+ (((unsigned long int) bytes[2]) << 16) |
<br>+ (((unsigned long int) bytes[3]) << 24) |
<br>+ (((unsigned long int) bytes[4]) << 32) |
<br>+ (((unsigned long int) bytes[5]) << 40) |
<br>+ (((unsigned long int) bytes[6]) << 48) |
<br>+ (((unsigned long int) bytes[7]) << 56);
<br>+
<br>+#else
<br>+ return ((unsigned long int) bytes[0]) |
<br>+ (((unsigned long int) bytes[1]) << 8) |
<br>+ (((unsigned long int) bytes[2]) << 16) |
<br>+ (((unsigned long int) bytes[3]) << 24);
<br>+
<br>+#endif
<br>hunk ./src/mobius/vm/platform/extprim.c 70
<br>-/* TODO 32 bit dependency */
<br>-static ObjectPointer injectBigInteger(unsigned int value) {
<br>+
<br>+static ObjectPointer injectBigInteger(unsigned long int value) {
<br>+#if __WORDSIZE == 64
<br>+ unsigned char bytes[8];
<br>+ bytes[0] = (unsigned char) (value & 0xFF);
<br>+ bytes[1] = (unsigned char) ((value >> 8) & 0xFF);
<br>+ bytes[2] = (unsigned char) ((value >> 16) & 0xFF);
<br>+ bytes[3] = (unsigned char) ((value >> 24) & 0xFF);
<br>+ bytes[4] = (unsigned char) ((value >> 32) & 0xFF);
<br>+ bytes[5] = (unsigned char) ((value >> 40) & 0xFF);
<br>+ bytes[6] = (unsigned char) ((value >> 48) & 0xFF);
<br>+ bytes[7] = (unsigned char) ((value >> 56) & 0xFF);
<br>+#else
<br>hunk ./src/mobius/vm/platform/extprim.c 88
<br>+#endif
<br>+
<br>hunk ./src/mobius/vm/platform/includes/image.h 9
<br>- unsigned int magicNumber;
<br>- unsigned int imageSize;
<br>- unsigned int nextHash;
<br>- unsigned int specialOops;
<br>+ unsigned long int magicNumber;
<br>+ unsigned long int imageSize;
<br>+ unsigned long int nextHash;
<br>+ unsigned long int specialOops;
<br>}
<br><br>[64 bit type changes for pidgin type inferencer and type inferencer changes
<br><a href="http://www.nabble.com/user/SendEmail.jtp?type=post&post=11527325&i=6" target="_top" rel="nofollow">lists@...</a>**20070706231946
<br>
<br> I went through and replaced all the type synonyms with actual types
<br> because the synonyms didn't seem to work. Then I made types use traits
<br> for inference instead of this extra rules delegate that was complicated.
<br> Next, I made vm sources use sizeof(type) instead of hardcoding the actual
<br> bitsize... which should eventually make it easier to convert to 64 bit.
<br>
<br>] {
<br>hunk ./src/lib/derivable.slate 172
<br>- [(#surroundings findOn: {x}) ifNil: [True] ifNotNilDo: [| :m | (m applyTo: {proto}) = x]]
<br>+ [(#surroundings findOn: {x}) ifNil: [True] ifNotNilDo: [| :m | (m applyTo: {proto}) == x]]
<br>hunk ./src/lib/types.slate 9
<br>-Types Type addSlot: #rules valued: Cloneable clone.
<br>-"A dispatching object on which inference rules for various method
<br>-signatures are defined."
<br>hunk ./src/lib/types.slate 10
<br>-type@(Types Type traits) clone
<br>+"Older versions of slate used some rules delegate slot
<br>+and overrode derive. It seemed broken and overly complicated.
<br>+I think we can just use traits here instead -- Timmy"
<br>+
<br>+
<br>+"
<br>+I can't bootstrap so i need to redefine this for now
<br>+
<br>+ type@(Types Type traits) clone
<br>hunk ./src/lib/types.slate 20
<br>- resend `>> [rules: type rules clone. ]
<br>-].
<br>+resend ].
<br>hunk ./src/lib/types.slate 23
<br>-"Arrange for and return a new subtype of the given types in left-to-right
<br>-order."
<br>-[| newType |
<br>- newType: resend.
<br>- "Use the canonical prototype to avoid dealing with the effects on rules."
<br>- newType rules: Cloneable clone.
<br>- newType rules rawAddDelegate: #parent1 valued: type rules.
<br>- types ifNotNil:
<br>- [types
<br>- doWithIndex:
<br>- [| :type :index |
<br>- newType rules
<br>- rawAddDelegate: (intern: 'parent' ; (index + 2) printString)
<br>- valued: type rules]].
<br>- newType
<br>-].
<br>+[ resend ].
<br>+"
<br>hunk ./src/lib/types.slate 35
<br>- (selector asInferenceRule findOn: (types collect: #rules `er))
<br>+"inform: (selector printString ; ' on:')."
<br>+"types do: [|:type| inform: (' ' ; type printString) ]."
<br>+ (selector asInferenceRule findOn: types)
<br>hunk ./src/lib/wordarray.slate 2
<br>- &slots: {#bytes -> ByteArray new}.
<br>+ &slots: {#bytes -> ByteArray new. #wordSize -> 4}.
<br>hunk ./src/lib/wordarray.slate 10
<br>-w@(WordArray traits) new &capacity: size
<br>+w@(WordArray traits) new &capacity: size &wordSize: wordSize
<br>hunk ./src/lib/wordarray.slate 15
<br>+ wordSize `defaultsTo: 4.
<br>hunk ./src/lib/wordarray.slate 17
<br>- ifTrue: [WordArray BigEndian newWordSize: size]
<br>- ifFalse: [w clone newWordSize: size]
<br>+ ifTrue: [WordArray BigEndian newSized: size wordSize: wordSize]
<br>+ ifFalse: [w clone newSized: size wordSize: wordSize]
<br>hunk ./src/lib/wordarray.slate 21
<br>-w@(WordArray traits) newFrom: a
<br>-[w cloneSettingSlots: #(bytes) to: {a}].
<br>+w@(WordArray traits) newFrom: a wordSize: wordSize
<br>+[w cloneSettingSlots: #(bytes wordSize) to: {a. wordSize}].
<br>hunk ./src/lib/wordarray.slate 24
<br>-w@(WordArray traits) newWordSize: size
<br>-[w cloneSettingSlots: #(bytes) to: {w bytes newSize: (size * 4) abs}].
<br>+w@(WordArray traits) newSized: size wordSize: wordSize
<br>+[w cloneSettingSlots: #(bytes wordSize) to: {w bytes newSize: (size * wordSize) abs. wordSize}].
<br>hunk ./src/lib/wordarray.slate 28
<br>-[w bytes size / 4].
<br>+[w bytes size / w wordSize].
<br>hunk ./src/lib/wordarray.slate 32
<br>-_@(WordArray traits) defaultElement [16r00000000].
<br>+_@(WordArray traits) defaultElement [0].
<br>hunk ./src/lib/wordarray.slate 34
<br>-_@(WordArray traits) accepts: i@(Integer traits) "Should be fixed 32bits"
<br>-[i between: 16r00000000 and: 16rFFFFFFFF].
<br>+w@(WordArray traits) accepts: i@(Integer traits) "Should be fixed 32bits"
<br>+[(0 below: (1 << (w wordSize * 8))) includes: i].
<br>hunk ./src/mobius/c/cr.slate 129
<br>- [| :_ | type] asMethod: name asInferenceRule on: {m rules}.
<br>+ [| :_ | type] asMethod: name asInferenceRule on: {m module traits}.
<br>+ "[| :_ | type] asMethod: name asInferenceRule on: {m rules}."
<br>hunk ./src/mobius/c/cr.slate 148
<br>- [| :_ | type] asMethod: name asInferenceRule on: {m rules}.
<br>+ [| :_ | type] asMethod: name asInferenceRule on: {m module traits}.
<br>+ "[| :_ | type] asMethod: name asInferenceRule on: {m rules}."
<br>hunk ./src/mobius/c/generator.slate 243
<br>+ "lobby inform: ('Role objects: ' ; roleObjects printString)."
<br>+
<br>hunk ./src/mobius/c/generator.slate 250
<br>- on: (roleObjects collect: [| :type | type == NoRole ifTrue: [NoRole] ifFalse: [type rules]]).
<br>+ on: (roleObjects collect: [| :type | type == NoRole ifTrue: [NoRole] ifFalse: [type]]).
<br>hunk ./src/mobius/c/generator.slate 373
<br>+g@(C SimpleGenerator traits) generateCFor: _@#cSize on: args
<br>+"The syntax for using C's sizeof special operator"
<br>+[ | arg |
<br>+ arg: (g module types at: args first selector
<br>+ ifPresent: [|:type| 'struct ' ; (type cName as: String)]
<br>+ ifAbsent: [(Types C atSlotNamed: args first selector) cName as: String]).
<br>+
<br>+ C Syntax SizeOf of: arg
<br>+].
<br>+
<br>+
<br>hunk ./src/mobius/c/generator.slate 707
<br>+
<br>hunk ./src/mobius/c/rules.slate 40
<br>+x@(Types C Type traits) cSize
<br>+[
<br>+ Types C UnsignedLongInt
<br>+] `inferenceRule.
<br>+
<br>+
<br>+
<br>hunk ./src/mobius/c/rules.slate 64
<br>-"Any unsigned 64-bit arithmetic with other unsigned types generates a 64-bit unsigned result."
<br>-u@(Types C UnsignedLongLongInt traits) union: _@(Types C Unsigned traits)
<br>-[
<br>- u
<br>-].
<br>-
<br>-_@(Types C Unsigned traits) union: u@(Types C UnsignedLongLongInt traits)
<br>-[
<br>- u
<br>-].
<br>-
<br>-"Any signed 64-bit arithmetic generates a 64-bit signed result."
<br>-s@(Types C LongLongInt traits) union: _@(Types C Integer traits)
<br>-[
<br>- s
<br>-].
<br>-
<br>-_@(Types C Integer traits) union: s@(Types C LongLongInt traits)
<br>-[
<br>- s
<br>-].
<br>hunk ./src/mobius/c/rules.slate 89
<br>-p@(Types C Pointer rules) + _@(Types C Integer rules)
<br>+p@(Types C Pointer traits) + _@(Types C Integer traits)
<br>hunk ./src/mobius/c/rules.slate 94
<br>-p@(Types C Pointer rules) - _@(Types C Integer rules)
<br>+p@(Types C Pointer traits) - _@(Types C Integer traits)
<br>hunk ./src/mobius/c/rules.slate 99
<br>-_@(Types C Integer rules) + p@(Types C Pointer rules)
<br>+_@(Types C Integer traits) + p@(Types C Pointer traits)
<br>hunk ./src/mobius/c/rules.slate 104
<br>-_@(Types C Pointer rules) - _@(Types C Pointer rules)
<br>+_@(Types C Pointer traits) - _@(Types C Pointer traits)
<br>hunk ./src/mobius/c/rules.slate 109
<br>-x@(Types C Type rules) + y@(Types C Type rules)
<br>+x@(Types C Type traits) + y@(Types C Type traits)
<br>hunk ./src/mobius/c/rules.slate 114
<br>-x@(Types C Type rules) - y@(Types C Type rules)
<br>+x@(Types C Type traits) - y@(Types C Type traits)
<br>hunk ./src/mobius/c/rules.slate 119
<br>-x@(Types C Type rules) * y@(Types C Type rules)
<br>+x@(Types C Type traits) * y@(Types C Type traits)
<br>hunk ./src/mobius/c/rules.slate 124
<br>-x@(Types C Type rules) / y@(Types C Type rules)
<br>+x@(Types C Type traits) / y@(Types C Type traits)
<br>hunk ./src/mobius/c/rules.slate 129
<br>-x@(Types C Type rules) // y@(Types C Type rules)
<br>+x@(Types C Type traits) // y@(Types C Type traits)
<br>hunk ./src/mobius/c/rules.slate 134
<br>-x@(Types C Type rules) max: y@(Types C Type rules)
<br>+x@(Types C Type traits) max: y@(Types C Type traits)
<br>hunk ./src/mobius/c/rules.slate 139
<br>-x@(Types C Type rules) min: y@(Types C Type rules)
<br>+x@(Types C Type traits) min: y@(Types C Type traits)
<br>hunk ./src/mobius/c/rules.slate 144
<br>-x@(Types C Type rules) mod: y@(Types C Type rules)
<br>+x@(Types C Type traits) mod: y@(Types C Type traits)
<br>hunk ./src/mobius/c/rules.slate 149
<br>-x@(Types C Type rules) bitOr: y@(Types C Type rules)
<br>+x@(Types C Type traits) bitOr: y@(Types C Type traits)
<br>hunk ./src/mobius/c/rules.slate 154
<br>-x@(Types C Type rules) bitAnd: y@(Types C Type rules)
<br>+x@(Types C Type traits) bitAnd: y@(Types C Type traits)
<br>hunk ./src/mobius/c/rules.slate 159
<br>-x@(Types C Type rules) bitXor: y@(Types C Type rules)
<br>+x@(Types C Type traits) bitXor: y@(Types C Type traits)
<br>hunk ./src/mobius/c/rules.slate 164
<br>-t@(Types C Type rules) << _@(Types C Type rules)
<br>+t@(Types C Type traits) << _@(Types C Type traits)
<br>hunk ./src/mobius/c/rules.slate 169
<br>-t@(Types C Type rules) >> _@(Types C Type rules)
<br>+t@(Types C Type traits) >> _@(Types C Type traits)
<br>hunk ./src/mobius/c/rules.slate 174
<br>-x@(Types C Type rules) /\ y@(Types C Type rules)
<br>+x@(Types C Type traits) /\ y@(Types C Type traits)
<br>hunk ./src/mobius/c/rules.slate 179
<br>-x@(Types C Type rules) \/ y@(Types C Type rules)
<br>+x@(Types C Type traits) \/ y@(Types C Type traits)
<br>hunk ./src/mobius/c/rules.slate 184
<br>-x@(Types C Type rules) = y@(Types C Type rules)
<br>+x@(Types C Type traits) = y@(Types C Type traits)
<br>hunk ./src/mobius/c/rules.slate 189
<br>-x@(Types C Type rules) < y@(Types C Type rules)
<br>+x@(Types C Type traits) < y@(Types C Type traits)
<br>hunk ./src/mobius/c/rules.slate 194
<br>-x@(Types C Type rules) <= y@(Types C Type rules)
<br>+x@(Types C Type traits) <= y@(Types C Type traits)
<br>hunk ./src/mobius/c/rules.slate 199
<br>-x@(Types C Type rules) > y@(Types C Type rules)
<br>+x@(Types C Type traits) > y@(Types C Type traits)
<br>hunk ./src/mobius/c/rules.slate 204
<br>-x@(Types C Type rules) >= y@(Types C Type rules)
<br>+x@(Types C Type traits) >= y@(Types C Type traits)
<br>hunk ./src/mobius/c/rules.slate 209
<br>-_@(Types C Type rules) not
<br>+_@(Types C Type traits) not
<br>hunk ./src/mobius/c/rules.slate 214
<br>-t@(Types C Type rules) bitNot
<br>+t@(Types C Type traits) bitNot
<br>hunk ./src/mobius/c/rules.slate 219
<br>-t@(Types C Type rules) negated
<br>+t@(Types C Type traits) negated
<br>hunk ./src/mobius/c/rules.slate 226
<br>-t@(Types C Type rules) address
<br>+t@(Types C Type traits) address
<br>hunk ./src/mobius/c/rules.slate 231
<br>-p@(Types C Pointer rules) load
<br>+p@(Types C Pointer traits) load
<br>hunk ./src/mobius/c/rules.slate 236
<br>-p@(Types C Pointer rules) store: _
<br>+p@(Types C Pointer traits) store: _
<br>hunk ./src/mobius/c/rules.slate 241
<br>-_@(Types C Integer rules) ifTrue: x ifFalse: y
<br>+_@(Types C Integer traits) ifTrue: x ifFalse: y
<br>hunk ./src/mobius/c/rules.slate 246
<br>-_@(Types C Integer rules) ifTrue: x
<br>+_@(Types C Integer traits) ifTrue: x
<br>hunk ./src/mobius/c/rules.slate 251
<br>-_@(Types C Integer rules) ifFalse: y
<br>+_@(Types C Integer traits) ifFalse: y
<br>hunk ./src/mobius/c/rules.slate 256
<br>-_@(Types C Integer rules) ifNil: x ifNotNil: y
<br>+_@(Types C Integer traits) ifNil: x ifNotNil: y
<br>hunk ./src/mobius/c/rules.slate 261
<br>-_@(Types C Integer rules) ifNil: x
<br>+_@(Types C Integer traits) ifNil: x
<br>hunk ./src/mobius/c/rules.slate 266
<br>-_@(Types C Integer rules) ifNotNil: y
<br>+_@(Types C Integer traits) ifNotNil: y
<br>hunk ./src/mobius/c/rules.slate 271
<br>-p@(Types C Array rules) at: _ put: _
<br>+p@(Types C Array traits) at: _ put: _
<br>hunk ./src/mobius/c/rules.slate 276
<br>-p@(Types C Array rules) at: _
<br>+p@(Types C Array traits) at: _
<br>hunk ./src/mobius/c/rules.slate 281
<br>-p@(Types C Pointer rules) at: _ put: _
<br>+p@(Types C Pointer traits) at: _ put: _
<br>hunk ./src/mobius/c/rules.slate 286
<br>-p@(Types C Pointer rules) at: _
<br>+p@(Types C Pointer traits) at: _
<br>hunk ./src/mobius/c/rules.slate 291
<br>-_@(Types C Type rules) longAt: _ put: _
<br>+_@(Types C Type traits) longAt: _ put: _
<br>hunk ./src/mobius/c/rules.slate 296
<br>-_@(Types C Type rules) longAt: _
<br>+_@(Types C Type traits) longAt: _
<br>hunk ./src/mobius/c/rules.slate 301
<br>-p@(Types C Pointer rules) at: _ put: _
<br>+p@(Types C Pointer traits) at: _ put: _
<br>hunk ./src/mobius/c/rules.slate 306
<br>-_@(Types C Pointer rules) isNil
<br>+_@(Types C Pointer traits) isNil
<br>hunk ./src/mobius/c/rules.slate 311
<br>-_@(Types C Pointer rules) isNotNil
<br>+_@(Types C Pointer traits) isNotNil
<br>hunk ./src/mobius/c/rules.slate 316
<br>-_@(Types C Pointer rules) ifNil: x ifNotNil: y
<br>+_@(Types C Pointer traits) ifNil: x ifNotNil: y
<br>hunk ./src/mobius/c/rules.slate 321
<br>-_@(Types C Pointer rules) ifNil: x
<br>+_@(Types C Pointer traits) ifNil: x
<br>hunk ./src/mobius/c/rules.slate 326
<br>-_@(Types C Pointer rules) ifNotNil: y
<br>+_@(Types C Pointer traits) ifNotNil: y
<br>hunk ./src/mobius/c/rules.slate 331
<br>-t@(Types C Type rules) cast
<br>+t@(Types C Type traits) cast
<br>hunk ./src/mobius/c/syntax.slate 338
<br>+C Syntax SizeOf define: #op -> #'sizeof '.
<br>hunk ./src/mobius/c/syntax.slate 340
<br>-size@(C Syntax SizeOf traits) of: exp
<br>-[size cloneSettingSlots: #(expression) to: {exp}].
<br>+node@(C Syntax SizeOf traits) of: exp
<br>+[node cloneSettingSlots: #(argument) to: {exp}].
<br>hunk ./src/mobius/c/syntax.slate 510
<br>+ "fix i don't know what this should be"
<br>+_@(Types C Type traits) precedence [16].
<br>+
<br>+
<br>hunk ./src/mobius/c/types.slate 30
<br>- (t bitSize + Types C Char bitSize - 1) // Types C Char bitSize
<br>+ "(t bitSize + Types C Char bitSize - 1) // Types C Char bitSize"
<br>+ 9999
<br>hunk ./src/mobius/c/types.slate 36
<br>- (t bitSize + Types C LongInt bitSize - 1) // Types C LongInt bitSize
<br>+ "(t bitSize + Types C LongInt bitSize - 1) // Types C LongInt bitSize"
<br>+ 999999
<br>hunk ./src/mobius/c/types.slate 52
<br>+p@(Types C Pointer traits) cName ['P' ; p targetType slateName].
<br>+p@(Types C Pointer traits) slateName ['UndefinedSlatePointer'].
<br>+
<br>+
<br>hunk ./src/mobius/c/types.slate 78
<br>-n@(Types C) define: slotName bitSize: size &parents: parents
<br>+n@(Types C) defineType: slotName &parents: parents
<br>hunk ./src/mobius/c/types.slate 85
<br>- _@(type traits) bitSize [size].
<br>+ _@(type traits) slateName [slotName].
<br>+"C Syntax SizeOf of: (g generateCFor: args first)"
<br>+ _@(type traits) bitSize [type byteSize * 8].
<br>hunk ./src/mobius/c/types.slate 92
<br>-Types C define: #Integer &parents: {Types C Type}.
<br>-Types C define: #Signed &parents: {Types C Integer}.
<br>-Types C define: #Unsigned &parents: {Types C Integer}.
<br>-Types C define: #Char bitSize: 8 &parents: {Types C Signed}.
<br>-Types C define: #UnsignedChar bitSize: 8 &parents: {Types C Unsigned}.
<br>-Types C define: #ShortInt bitSize: 16 &parents: {Types C Signed}.
<br>-Types C define: #UnsignedShortInt bitSize: 16 &parents: {Types C Unsigned}.
<br>-Types C define: #LongInt bitSize: 32 &parents: {Types C Signed}.
<br>-Types C define: #UnsignedLongInt bitSize: 32 &parents: {Types C Unsigned}.
<br>-Types C define: #LongLongInt bitSize: 64 &parents: {Types C Signed}.
<br>-Types C define: #UnsignedLongLongInt bitSize: 64 &parents: {Types C Unsigned}.
<br>-Types C define: #Float bitSize: 32 &parents: {Types C Type}.
<br>-Types C define: #Double bitSize: 64 &parents: {Types C Float}.
<br>-Types C define: #Void bitSize: 0 &parents: {Types C Type}.
<br>+Types C defineType: #Integer &parents: {Types C Type}.
<br>+Types C defineType: #Signed &parents: {Types C Integer}.
<br>+Types C defineType: #Unsigned &parents: {Types C Integer}.
<br>+Types C defineType: #Char &parents: {Types C Signed}.
<br>+Types C defineType: #UnsignedChar &parents: {Types C Unsigned}.
<br>+Types C defineType: #ShortInt &parents: {Types C Signed}.
<br>+Types C defineType: #UnsignedShortInt &parents: {Types C Unsigned}.
<br>+Types C defineType: #LongInt &parents: {Types C Signed}.
<br>+Types C defineType: #UnsignedLongInt &parents: {Types C Unsigned}.
<br>+Types C defineType: #Float &parents: {Types C Type}.
<br>+Types C defineType: #Double &parents: {Types C Float}.
<br>+Types C defineType: #Void &parents: {Types C Type}.
<br>hunk ./src/mobius/c/types.slate 200
<br>- pointer rules rawAddDelegate: #basisPointer valued: basis pointer rules.
<br>- pointer dispatcher rawAddDelegate: #basisPointer valued: basis pointer dispatcher.
<br>+ "pointer rules rawAddDelegate: #basisPointer valued: basis pointer rules.
<br>+ pointer dispatcher rawAddDelegate: #basisPointer valued: basis pointer dispatcher."
<br>hunk ./src/mobius/c/types.slate 205
<br>- on: {newT rules}]. ]
<br>+ on: {newT}]. ]
<br>hunk ./src/mobius/c/types.slate 330
<br>- [| :_ | se type] asMethod: se cName asInferenceRule on: {t rules}.
<br>- [| :_ | se type] asMethod: se cName asInferenceRule on: {t pointer rules}.
<br>+ [| :_ | se type] asMethod: se cName asInferenceRule on: {t}.
<br>+ [| :_ | se type] asMethod: se cName asInferenceRule on: {t pointer}.
<br>hunk ./src/mobius/c/writer.slate 335
<br>+
<br>hunk ./src/mobius/c/writer.slate 338
<br>- w ; 'sizeof '.
<br>- w print: n argument asChildOf: n.
<br>+ "inform: ('printing sizeof: ' ; n printString)."
<br>+ w ; 'sizeof('.
<br>+ w ; n argument.
<br>+ w ; ')'.
<br>hunk ./src/mobius/c/writer.slate 344
<br>+
<br>hunk ./src/mobius/syntax/inference.slate 31
<br>+"inform: ('inferTypes: ' ; message printString ; ' type: ' ; message type printString)."
<br>hunk ./src/mobius/syntax/inference.slate 139
<br>+ "inform: ('store ' ; store value type printString ; ' to ' ; store variable type printString)."
<br>hunk ./src/mobius/vm/base/dispatch.slate 3
<br>-addGlobalNamed: #currentDispatchID &value: 0 &type: UnsignedLongLongInt.
<br>+addGlobalNamed: #currentDispatchID &value: 0 &type: UnsignedLongInt.
<br>hunk ./src/mobius/vm/base/dispatch.slate 6
<br>-addGlobalNamed: #delegationStack &type: (Array of: ObjectPointer size: DelegationStackSize value).
<br>+addGlobalNamed: #delegationStack &type: (Array of: UnsignedLongInt size: DelegationStackSize value).
<br>hunk ./src/mobius/vm/base/dispatch.slate 17
<br>-MethodCacheEntry addElementNamed: #selector &type: ObjectPointer.
<br>+MethodCacheEntry addElementNamed: #selector &type: UnsignedLongInt.
<br>hunk ./src/mobius/vm/base/dispatch.slate 27
<br>-selector@ObjectPointer flushMethodCache
<br>+selector@UnsignedLongInt flushMethodCache
<br>hunk ./src/mobius/vm/base/dispatch.slate 33
<br>- [methodCache!(Word pointer) cast
<br>+ [methodCache!(UnsignedLongInt pointer) cast
<br>hunk ./src/mobius/vm/base/dispatch.slate 44
<br>-[| name!ObjectPointer arguments!(ObjectPointer pointer) hash cacheEntry!(MethodCacheEntry pointer) |
<br>+[| name!UnsignedLongInt arguments!(UnsignedLongInt pointer) hash cacheEntry!(MethodCacheEntry pointer) |
<br>hunk ./src/mobius/vm/base/dispatch.slate 55
<br>-name@ObjectPointer checkMethodCacheOn: arguments arity: n
<br>+name@UnsignedLongInt checkMethodCacheOn: arguments arity: n
<br>hunk ./src/mobius/vm/base/dispatch.slate 59
<br>-[| arguments!(ObjectPointer pointer) sym!(Symbol pointer) map!(Map pointer) cacheEntry!(MethodCacheEntry pointer) hash |
<br>+[| arguments!(UnsignedLongInt pointer) sym!(Symbol pointer) map!(Map pointer) cacheEntry!(MethodCacheEntry pointer) hash |
<br>hunk ./src/mobius/vm/base/dispatch.slate 102
<br>-name@ObjectPointer dispatchTo: arguments arity: n above: resendMethod
<br>+name@UnsignedLongInt dispatchTo: arguments arity: n above: resendMethod
<br>hunk ./src/mobius/vm/base/dispatch.slate 105
<br>-[| resendMethod!ObjectPointer arguments!(ObjectPointer pointer) depth delegationCount bestRank bestDef!(MethodDefinition pointer) dispatch!(MethodDefinition pointer) resendRank slotLocation!(Object pointer) restricted!LongInt |
<br>+[| resendMethod!UnsignedLongInt arguments!(UnsignedLongInt pointer) depth delegationCount bestRank bestDef!(MethodDefinition pointer) dispatch!(MethodDefinition pointer) resendRank slotLocation!(Object pointer) restricted!LongInt |
<br>hunk ./src/mobius/vm/base/dispatch.slate 118
<br>- [| :index arg!ObjectPointer |
<br>+ [| :index arg!UnsignedLongInt |
<br>hunk ./src/mobius/vm/base/dispatch.slate 229
<br>- map delegates arraySize > 0
<br>+ map delegates!(Object pointer) cast arraySize > 0
<br>hunk ./src/mobius/vm/base/dispatch.slate 233
<br>- delegates arrayOffset
<br>- to: delegates totalSize - #[ObjectPointer byteSize]
<br>- by: #[ObjectPointer byteSize]
<br>- do: [| :offset delegate!ObjectPointer |
<br>- delegate: (delegates slotValueAtOffset: offset).
<br>+ delegates!(Object pointer) cast arrayOffset
<br>+ to: delegates!(Object pointer) cast totalSize - UnsignedLongInt cSize
<br>+ by: UnsignedLongInt cSize
<br>+ do: [| :offset delegate!UnsignedLongInt |
<br>+ delegate: (delegates!(Object pointer) cast slotValueAtOffset: offset).
<br>hunk ./src/mobius/vm/base/layout.slate 7
<br>-addSynonymNamed: #Byte of: UnsignedChar &export: True.
<br>-
<br>-"any pointer that's treated like an integer"
<br>-addSynonymNamed: #IntegerPointer of: UnsignedLongInt &export: True.
<br>-
<br>-"Any integer that's not a bignum"
<br>-addSynonymNamed: #SmallInteger of: LongInt &export: True.
<br>-addSynonymNamed: #UnsignedSmallInteger of: IntegerPointer &export: True.
<br>-
<br>-addSynonymNamed: #Bool of: UnsignedSmallInteger &export: True.
<br>-addSynonymNamed: #ObjectPointer of: IntegerPointer &export: True.
<br>+"
<br>+don't use these--synonyms act weird
<br>hunk ./src/mobius/vm/base/layout.slate 10
<br>+addSynonymNamed: #Word of: UnsignedLongInt &export: True.
<br>+addSynonymNamed: #SignedWord of: LongInt &export: True.
<br>+addSynonymNamed: #Byte of: UnsignedChar &export: True.
<br>+addSynonymNamed: #Bool of: UnsignedLongInt &export: True.
<br>+addSynonymNamed: #ObjectPointer of: UnsignedLongInt &export: True.
<br>+"
<br>hunk ./src/mobius/vm/base/layout.slate 18
<br>-addConstantNamed: #True &value: 1 &type: Bool &export: True.
<br>-addConstantNamed: #False &value: 0 &type: Bool &export: True.
<br>+addConstantNamed: #True &value: 1 &type: UnsignedLongInt &export: True.
<br>+addConstantNamed: #False &value: 0 &type: UnsignedLongInt &export: True.
<br>hunk ./src/mobius/vm/base/layout.slate 56
<br>- (i bitXor: i << 1)!SmallInteger cast >= 0
<br>-]!Bool inline export.
<br>+ (i bitXor: i << 1)!UnsignedLongInt cast >= 0
<br>+]!UnsignedLongInt inline export.
<br>hunk ./src/mobius/vm/base/layout.slate 59
<br>-oop@ObjectPointer isSmallInt [(oop bitAnd: TagMask) = SmallIntTag]!Bool inline export.
<br>-oop@ObjectPointer isObject [(oop bitAnd: TagMask) = ObjectTag]!Bool inline export.
<br>+oop@UnsignedLongInt isSmallInt [(oop bitAnd: TagMask) = SmallIntTag]!UnsignedLongInt inline export.
<br>+oop@UnsignedLongInt isObject [(oop bitAnd: TagMask) = ObjectTag]!UnsignedLongInt inline export.
<br>hunk ./src/mobius/vm/base/layout.slate 62
<br>-oop@ObjectPointer pointer
<br>-"The memory address stored in the ObjectPointer; not shifted since objects are
<br>+oop@UnsignedLongInt pointer
<br>+"The memory address stored in the UnsignedLongInt; not shifted since objects are
<br>hunk ./src/mobius/vm/base/layout.slate 71
<br>-[(p!IntegerPointer cast bitOr: ObjectTag)!ObjectPointer cast]!ObjectPointer inline export.
<br>+[(p!UnsignedLongInt cast bitOr: ObjectTag)!UnsignedLongInt cast]!UnsignedLongInt inline export.
<br>hunk ./src/mobius/vm/base/layout.slate 74
<br>-[(p!IntegerPointer cast bitOr: ObjectTag)!ObjectPointer cast]!ObjectPointer inline export.
<br>+[(p!UnsignedLongInt cast bitOr: ObjectTag)!UnsignedLongInt cast]!UnsignedLongInt inline export.
<br>hunk ./src/mobius/vm/base/layout.slate 76
<br>-i@IntegerPointer asObject
<br>-[(i << 1 bitOr: SmallIntTag)!ObjectPointer cast]!ObjectPointer inline export.
<br>+i@UnsignedLongInt asObject
<br>+[(i << 1 bitOr: SmallIntTag)!UnsignedLongInt cast]!UnsignedLongInt inline export.
<br>hunk ./src/mobius/vm/base/layout.slate 80
<br>-[(i << 1 bitOr: SmallIntTag)!ObjectPointer cast]!ObjectPointer inline export.
<br>+[(i << 1 bitOr: SmallIntTag)!UnsignedLongInt cast]!UnsignedLongInt inline export.
<br>hunk ./src/mobius/vm/base/layout.slate 82
<br>-oop@ObjectPointer asSmallInt
<br>+oop@UnsignedLongInt asSmallInt
<br>hunk ./src/mobius/vm/base/layout.slate 85
<br>- oop!IntegerPointer cast >> 1
<br>-]!SmallInteger inline export.
<br>+ oop!UnsignedLongInt cast >> 1
<br>+]!LongInt inline export.
<br>hunk ./src/mobius/vm/base/layout.slate 88
<br>-arg@ObjectPointer checkMap
<br>+arg@UnsignedLongInt checkMap
<br>hunk ./src/mobius/vm/base/map.slate 3
<br>-MethodDefinition addElementNamed: #method &type: ObjectPointer.
<br>-MethodDefinition addElementNamed: #slotAccessor &type: ObjectPointer.
<br>-MethodDefinition addElementNamed: #dispatchID &type: UnsignedLongLongInt.
<br>-MethodDefinition addElementNamed: #dispatchPositions &type: UnsignedSmallInteger.
<br>-MethodDefinition addElementNamed: #foundPositions &type: UnsignedSmallInteger.
<br>-MethodDefinition addElementNamed: #dispatchRank &type: UnsignedSmallInteger.
<br>+MethodDefinition addElementNamed: #method &type: UnsignedLongInt.
<br>+MethodDefinition addElementNamed: #slotAccessor &type: UnsignedLongInt.
<br>+MethodDefinition addElementNamed: #dispatchID &type: UnsignedLongInt.
<br>+MethodDefinition addElementNamed: #dispatchPositions &type: UnsignedLongInt.
<br>+MethodDefinition addElementNamed: #foundPositions &type: UnsignedLongInt.
<br>+MethodDefinition addElementNamed: #dispatchRank &type: UnsignedLongInt.
<br>hunk ./src/mobius/vm/base/map.slate 11
<br>-RoleEntry addElementNamed: #name &type: ObjectPointer.
<br>+RoleEntry addElementNamed: #name &type: UnsignedLongInt.
<br>hunk ./src/mobius/vm/base/map.slate 13
<br>-RoleEntry addElementNamed: #rolePositions &type: ObjectPointer.
<br>+RoleEntry addElementNamed: #rolePositions &type: UnsignedLongInt.
<br>hunk ./src/mobius/vm/base/map.slate 17
<br>-RoleEntry addElementNamed: #nextRole &type: ObjectPointer.
<br>+RoleEntry addElementNamed: #nextRole &type: UnsignedLongInt.
<br>hunk ./src/mobius/vm/base/map.slate 25
<br>- roles arraySize // #[RoleEntry wordSize]
<br>-]!UnsignedSmallInteger inline.
<br>+ roles!(Object pointer) cast arraySize // #[RoleEntry wordSize]
<br>+]!UnsignedLongInt inline.
<br>hunk ./src/mobius/vm/base/map.slate 37
<br>-]!UnsignedSmallInteger.
<br>+]!UnsignedLongInt.
<br>hunk ./src/mobius/vm/base/map.slate 41
<br>-[| n!UnsignedSmallInteger tableSize requested |
<br>+[| n!UnsignedLongInt tableSize requested |
<br>hunk ./src/mobius/vm/base/map.slate 50
<br>-]!UnsignedSmallInteger.
<br>+]!UnsignedLongInt.
<br>hunk ./src/mobius/vm/base/map.slate 56
<br>-[| name!ObjectPointer tableSize hash role!(RoleEntry pointer) |
<br>+[| name!UnsignedLongInt tableSize hash role!(RoleEntry pointer) |
<br>hunk ./src/mobius/vm/base/map.slate 77
<br>-[| name!ObjectPointer tableSize hash role!(RoleEntry pointer) |
<br>+[| name!UnsignedLongInt tableSize hash role!(RoleEntry pointer) |
<br>hunk ./src/mobius/vm/base/map.slate 96
<br>-[| n!UnsignedSmallInteger method!(MethodDefinition pointer) newRoles!(RoleTable pointer) oldSize newSize |
<br>+[| n!UnsignedLongInt method!(MethodDefinition pointer) newRoles!(RoleTable pointer) oldSize newSize |
<br>hunk ./src/mobius/vm/base/map.slate 101
<br>- (oldSize // 3)!UnsignedSmallInteger cast - roles emptySpace + n).
<br>+ (oldSize // 3)!UnsignedLongInt cast - roles emptySpace + n).
<br>hunk ./src/mobius/vm/base/map.slate 104
<br>- [| :index roleName!ObjectPointer |
<br>+ [| :index roleName!UnsignedLongInt |
<br>hunk ./src/mobius/vm/base/map.slate 123
<br>-SlotEntry addElementNamed: #name &type: ObjectPointer.
<br>+SlotEntry addElementNamed: #name &type: UnsignedLongInt.
<br>hunk ./src/mobius/vm/base/map.slate 125
<br>-SlotEntry addElementNamed: #offset &type: ObjectPointer.
<br>+SlotEntry addElementNamed: #offset &type: UnsignedLongInt.
<br>hunk ./src/mobius/vm/base/map.slate 141
<br>- slots arraySize // #[SlotEntry wordSize]
<br>-]!UnsignedSmallInteger inline.
<br>+ slots!(Object pointer) cast arraySize // #[SlotEntry wordSize]
<br>+]!UnsignedLongInt inline.
<br>hunk ./src/mobius/vm/base/map.slate 153
<br>-]!UnsignedSmallInteger.
<br>+]!UnsignedLongInt.
<br>hunk ./src/mobius/vm/base/map.slate 159
<br>-[| name!ObjectPointer tableSize hash slot!(SlotEntry pointer) |
<br>+[| name!UnsignedLongInt tableSize hash slot!(SlotEntry pointer) |
<br>hunk ./src/mobius/vm/base/map.slate 180
<br>-[| name!ObjectPointer tableSize hash slot!(SlotEntry pointer) |
<br>+[| name!UnsignedLongInt tableSize hash slot!(SlotEntry pointer) |
<br>hunk ./src/mobius/vm/base/map.slate 197
<br>-[| n!UnsignedSmallInteger tableSize requested |
<br>+[| n!UnsignedLongInt tableSize requested |
<br>hunk ./src/mobius/vm/base/map.slate 206
<br>-]!UnsignedSmallInteger.
<br>+]!UnsignedLongInt.
<br>hunk ./src/mobius/vm/base/map.slate 212
<br>-[| n!UnsignedSmallInteger name!ObjectPointer newSlots!(SlotTable pointer) oldSize newSize |
<br>+[| n!UnsignedLongInt name!UnsignedLongInt newSlots!(SlotTable pointer) oldSize newSize |
<br>hunk ./src/mobius/vm/base/map.slate 217
<br>- (oldSize // 3)!UnsignedSmallInteger cast - slots emptySpace + n).
<br>+ (oldSize // 3)!UnsignedLongInt cast - slots emptySpace + n).
<br>hunk ./src/mobius/vm/base/map.slate 220
<br>- [| :index slotName!ObjectPointer |
<br>+ [| :index slotName!UnsignedLongInt |
<br>hunk ./src/mobius/vm/base/map.slate 234
<br>-[| amount!UnsignedSmallInteger |
<br>+[| amount!UnsignedLongInt |
<br>hunk ./src/mobius/vm/base/map.slate 249
<br>-Map addElementNamed: #flags &type: ObjectPointer.
<br>-Map addElementNamed: #representative &type: ObjectPointer.
<br>+Map addElementNamed: #flags &type: UnsignedLongInt.
<br>+Map addElementNamed: #representative &type: UnsignedLongInt.
<br>hunk ./src/mobius/vm/base/map.slate 252
<br>-Map addElementNamed: #slotCount &type: ObjectPointer.
<br>+Map addElementNamed: #slotCount &type: UnsignedLongInt.
<br>hunk ./src/mobius/vm/base/map.slate 256
<br>-Map addElementNamed: #dispatchID &type: UnsignedLongLongInt.
<br>+Map addElementNamed: #dispatchID &type: UnsignedLongInt.
<br>hunk ./src/mobius/vm/base/map.slate 258
<br>-Map addElementNamed: #visitedPositions &type: UnsignedSmallInteger.
<br>+Map addElementNamed: #visitedPositions &type: UnsignedLongInt.
<br>hunk ./src/mobius/vm/base/map.slate 288
<br>-[(obj map flags bitAnd: MapFlagImmutable) ~= 0]!Bool inline.
<br>+[(obj map flags bitAnd: MapFlagImmutable) ~= 0]!UnsignedLongInt inline.
<br>hunk ./src/mobius/vm/base/map.slate 291
<br>-[(obj map flags bitAnd: MapFlagRestrictDelegation) ~= 0]!Bool inline.
<br>+[(obj map flags bitAnd: MapFlagRestrictDelegation) ~= 0]!UnsignedLongInt inline.
<br>hunk ./src/mobius/vm/base/map.slate 294
<br>-[| name!ObjectPointer value!ObjectPointer map!(Map pointer) newObj!(Object pointer) entry!(SlotEntry pointer) |
<br>+[| name!UnsignedLongInt value!UnsignedLongInt offset!UnsignedLongInt map!(Map pointer) newObj!(Object pointer) entry!(SlotEntry pointer) |
<br>hunk ./src/mobius/vm/base/map.slate 301
<br>- map slotTable relocateAll: SlotTypeData above: offset by: #[ObjectPointer byteSize].
<br>+ map slotTable relocateAll: SlotTypeData above: offset by: UnsignedLongInt cSize.
<br>hunk ./src/mobius/vm/base/map.slate 311
<br>- ifTrue: [#[ObjectPointer byteSize]]
<br>- ifFalse: [obj payloadSize + #[ObjectPointer byteSize]])).
<br>+ ifTrue: [UnsignedLongInt cSize]
<br>+ ifFalse: [obj payloadSize + UnsignedLongInt cSize])).
<br>hunk ./src/mobius/vm/base/map.slate 325
<br>- obj!(Byte pointer) cast + obj firstSlotOffset
<br>+ obj!(UnsignedChar pointer) cast + obj firstSlotOffset
<br>hunk ./src/mobius/vm/base/map.slate 327
<br>- into: newObj!(Byte pointer) cast + newObj firstSlotOffset.
<br>+ into: newObj!(UnsignedChar pointer) cast + newObj firstSlotOffset.
<br>hunk ./src/mobius/vm/base/map.slate 329
<br>- obj!(Byte pointer) cast + offset
<br>+ obj!(UnsignedChar pointer) cast + offset
<br>hunk ./src/mobius/vm/base/map.slate 331
<br>- into: newObj!(Byte pointer) cast + offset + #[ObjectPointer byteSize].
<br>+ into: newObj!(UnsignedChar pointer) cast + offset + UnsignedLongInt cSize.
<br>hunk ./src/mobius/vm/base/map.slate 340
<br>-[| name!ObjectPointer value!ObjectPointer newObj!(Object pointer) |
<br>+[| name!UnsignedLongInt value!UnsignedLongInt newObj!(Object pointer) |
<br>hunk ./src/mobius/vm/base/map.slate 345
<br>- at: obj firstSlotOffset + (obj map slotCount asSmallInt * #[ObjectPointer byteSize])).
<br>+ at: obj firstSlotOffset + (obj map slotCount asSmallInt * UnsignedLongInt cSize)).
<br>hunk ./src/mobius/vm/base/map.slate 354
<br>-[| name!ObjectPointer value!ObjectPointer map!(Map pointer) delsSize oldDels!(OopArray pointer) newDels!(OopArray pointer) pos entry!(SlotEntry pointer) |
<br>+[| name!UnsignedLongInt value!UnsignedLongInt map!(Map pointer) delsSize oldDels!(OopArray pointer) newDels!(OopArray pointer) pos entry!(SlotEntry pointer) |
<br>hunk ./src/mobius/vm/base/map.slate 361
<br>- map slotTable relocateAll: SlotTypeDelegate above: offset by: #[ObjectPointer byteSize].
<br>+ map slotTable relocateAll: SlotTypeDelegate above: offset by: UnsignedLongInt cSize.
<br>hunk ./src/mobius/vm/base/map.slate 366
<br>- delsSize: oldDels arraySize.
<br>+ delsSize: oldDels!(Object pointer) cast arraySize.
<br>hunk ./src/mobius/vm/base/map.slate 369
<br>- pos: (offset - oldDels arrayOffset) / #[ObjectPointer byteSize].
<br>- oldDels elements!(Word pointer) cast
<br>+ pos: (offset - oldDels!(Object pointer) cast arrayOffset) / UnsignedLongInt cSize.
<br>+ oldDels elements!(UnsignedLongInt pointer) cast
<br>hunk ./src/mobius/vm/base/map.slate 372
<br>- into: newDels elements!(Word pointer) cast.
<br>- newDels slotValueAtOffset: offset put: value.
<br>- oldDels elements!(Word pointer) cast + pos
<br>+ into: newDels elements!(UnsignedLongInt pointer) cast.
<br>+ newDels!(Object pointer) cast slotValueAtOffset: offset put: value.
<br>+ oldDels elements!(UnsignedLongInt pointer) cast + pos
<br>hunk ./src/mobius/vm/base/map.slate 376
<br>- into: newDels elements!(Word pointer) cast + pos + 1.
<br>+ into: newDels elements!(UnsignedLongInt pointer) cast + pos + 1.
<br>hunk ./src/mobius/vm/base/map.slate 383
<br>-[| name!ObjectPointer value!ObjectPointer newObj!(Object pointer) |
<br>+[| name!UnsignedLongInt value!UnsignedLongInt newObj!(Object pointer) |
<br>hunk ./src/mobius/vm/base/map.slate 388
<br>- at: obj map delegates totalSize).
<br>+ at: (obj map delegates)!(Object pointer) cast totalSize).
<br>hunk ./src/mobius/vm/base/map.slate 395
<br>-[| name!ObjectPointer value!ObjectPointer succ!ObjectPointer newObj!(Object pointer) offset entry!(SlotEntry pointer) |
<br>+[| name!UnsignedLongInt value!UnsignedLongInt succ!UnsignedLongInt newObj!(Object pointer) offset entry!(SlotEntry pointer) |
<br>hunk ./src/mobius/vm/base/map.slate 413
<br>-[| name!ObjectPointer value!ObjectPointer pred!ObjectPointer newObj!(Object pointer) offset entry!(SlotEntry pointer) |
<br>+[| name!UnsignedLongInt value!UnsignedLongInt pred!UnsignedLongInt newObj!(Object pointer) offset entry!(SlotEntry pointer) |
<br>hunk ./src/mobius/vm/base/map.slate 424
<br>- at: (offset bitAnd: SlotOffsetMask) + #[ObjectPointer byteSize]).
<br>+ at: (offset bitAnd: SlotOffsetMask) + UnsignedLongInt cSize).
<br>hunk ./src/mobius/vm/base/map.slate 431
<br>-[| name!ObjectPointer entry!(SlotEntry pointer) |
<br>+[| name!UnsignedLongInt entry!(SlotEntry pointer) |
<br>hunk ./src/mobius/vm/base/map.slate 441
<br>-[| entry!(SlotEntry pointer) map!(Map pointer) newObj!(Object pointer) offset |
<br>+[| entry!(SlotEntry pointer) map!(Map pointer) newObj!(Object pointer) offset!LongInt |
<br>hunk ./src/mobius/vm/base/map.slate 447
<br>- map slotTable relocateAll: SlotTypeData above: offset by: #[ObjectPointer byteSize negated].
<br>+ map slotTable relocateAll: SlotTypeData above: offset by: 0 - UnsignedLongInt cSize.
<br>hunk ./src/mobius/vm/base/map.slate 455
<br>- [obj payloadSize = #[ObjectPointer byteSize]
<br>+ [obj payloadSize = UnsignedLongInt cSize
<br>hunk ./src/mobius/vm/base/map.slate 462
<br>- withPayload: obj payloadSize - #[ObjectPointer byteSize]).
<br>+ withPayload: obj payloadSize - UnsignedLongInt cSize).
<br>hunk ./src/mobius/vm/base/map.slate 472
<br>- obj!(Byte pointer) cast + obj firstSlotOffset
<br>+ obj!(UnsignedChar pointer) cast + obj firstSlotOffset
<br>hunk ./src/mobius/vm/base/map.slate 474
<br>- into: newObj!(Byte pointer) cast + newObj firstSlotOffset.
<br>- obj!(Byte pointer) cast + offset + #[ObjectPointer byteSize]
<br>- copyBytes: obj totalSize - offset - #[ObjectPointer byteSize]
<br>- into: newObj!(Byte pointer) cast + offset.
<br>+ into: newObj!(UnsignedChar pointer) cast + newObj firstSlotOffset.
<br>+ obj!(UnsignedChar pointer) cast + offset + UnsignedLongInt cSize!UnsignedLongInt
<br>+ copyBytes: obj totalSize - offset - UnsignedLongInt cSize
<br>+ into: newObj!(UnsignedChar pointer) cast + offset.
<br>hunk ./src/mobius/vm/base/map.slate 489
<br>- map slotTable relocateAll: SlotTypeDelegate above: offset by: #[ObjectPointer byteSize negated].
<br>+ map slotTable relocateAll: SlotTypeDelegate above: offset by: (0 - UnsignedLongInt cSize).
<br>hunk ./src/mobius/vm/base/map.slate 491
<br>- delsSize: oldDels arraySize.
<br>+ delsSize: oldDels!(Object pointer) cast arraySize.
<br>hunk ./src/mobius/vm/base/map.slate 494
<br>- pos: (offset - oldDels arrayOffset) / #[ObjectPointer byteSize].
<br>- oldDels elements!(Word pointer) cast
<br>+ pos: (offset - oldDels!(Object pointer) cast arrayOffset) / UnsignedLongInt cSize.
<br>+ oldDels elements!(UnsignedLongInt pointer) cast
<br>hunk ./src/mobius/vm/base/map.slate 497
<br>- into: newDels elements!(Word pointer) cast.
<br>- oldDels elements!(Word pointer) cast + pos + 1
<br>+ into: newDels elements!(UnsignedLongInt pointer) cast.
<br>+ oldDels elements!(UnsignedLongInt pointer) cast + pos + 1
<br>hunk ./src/mobius/vm/base/map.slate 500
<br>- into: newDels elements!(Word pointer) cast + pos.
<br>+ into: newDels elements!(UnsignedLongInt pointer) cast + pos.
<br>hunk ./src/mobius/vm/base/map.slate 507
<br>-[| name!ObjectPointer method!(MethodDefinition pointer) map!(Map pointer) chain!(RoleEntry pointer) entry!(RoleEntry pointer) |
<br>+[| name!UnsignedLongInt method!(MethodDefinition pointer) map!(Map pointer) chain!(RoleEntry pointer) entry!(RoleEntry pointer) |
<br>hunk ./src/mobius/vm/base/map.slate 549
<br>-]!Bool export.
<br>+]!UnsignedLongInt export.
<br>hunk ./src/mobius/vm/base/map.slate 554
<br>-[| name!ObjectPointer method!(MethodDefinition pointer) map!(Map pointer) roles!(RoleTable pointer) n |
<br>+[| name!UnsignedLongInt method!(MethodDefinition pointer) map!(Map pointer) roles!(RoleTable pointer) n |
<br>hunk ./src/mobius/vm/base/map.slate 568
<br>-]!Bool export.
<br>+]!UnsignedLongInt export.
<br>hunk ./src/mobius/vm/base/map.slate 574
<br>-[| method!ObjectPointer map!(Map pointer) |
<br>+[| method!UnsignedLongInt map!(Map pointer) |
<br>hunk ./src/mobius/vm/base/map.slate 586
<br>-method@ObjectPointer isMethod: selector on: args arity: n
<br>+method@UnsignedLongInt isMethod: selector on: args arity: n
<br>hunk ./src/mobius/vm/base/map.slate 590
<br>-[| selector!ObjectPointer args!(ObjectPointer pointer) positions def!(MethodDefinition pointer) |
<br>+[| selector!UnsignedLongInt args!(UnsignedLongInt pointer) positions def!(MethodDefinition pointer) |
<br>hunk ./src/mobius/vm/base/map.slate 596
<br>- [| :index role!ObjectPointer roleDef!(MethodDefinition pointer) |
<br>+ [| :index role!UnsignedLongInt roleDef!(MethodDefinition pointer) |
<br>hunk ./src/mobius/vm/base/map.slate 611
<br>-method@ObjectPointer asMethod: selector on: args arity: n
<br>+method@UnsignedLongInt asMethod: selector on: args arity: n
<br>hunk ./src/mobius/vm/base/map.slate 614
<br>-[| selector!ObjectPointer args!(ObjectPointer pointer) sym!(Symbol pointer) positions oldDef!(MethodDefinition pointer) def!(MethodDefinition pointer) argBuffer!(Array of: ObjectPointer size: 16) |
<br>+[| selector!UnsignedLongInt args!(UnsignedLongInt pointer) sym!(Symbol pointer) positions oldDef!(MethodDefinition pointer) def!(MethodDefinition pointer) argBuffer!(Array of: UnsignedLongInt size: 16) |
<br>hunk ./src/mobius/vm/base/map.slate 621
<br>- [| :index role!ObjectPointer |
<br>+ [| :index role!UnsignedLongInt |
<br>hunk ./src/mobius/vm/base/map.slate 629
<br>- args!(Word pointer) cast copyWords: n into: argBuffer!(Word pointer) cast.
<br>+ args!(UnsignedLongInt pointer) cast copyWords: n into: argBuffer!(UnsignedLongInt pointer) cast.
<br>hunk ./src/mobius/vm/base/map.slate 645
<br>- [| :index role!ObjectPointer |
<br>+ [| :index role!UnsignedLongInt |
<br>hunk ./src/mobius/vm/base/memory.slate 1
<br>-ObjectHeap addElementNamed: #memory &type: IntegerPointer pointer. "pointer? fix? what?"
<br>-ObjectHeap addElementNamed: #memoryEnd &type: IntegerPointer.
<br>+ObjectHeap addElementNamed: #memory &type: UnsignedLongInt pointer. "pointer? fix? what?"
<br>+ObjectHeap addElementNamed: #memoryEnd &type: UnsignedLongInt.
<br>hunk ./src/mobius/vm/base/memory.slate 5
<br>-ObjectHeap addElementNamed: #totalObjectCount &type: UnsignedSmallInteger.
<br>+ObjectHeap addElementNamed: #totalObjectCount &type: UnsignedLongInt.
<br>hunk ./src/mobius/vm/base/memory.slate 14
<br>-specialObjectsOop array at which ObjectPointers to the various objects
<br>+specialObjectsOop array at which UnsignedLongInts to the various objects
<br>hunk ./src/mobius/vm/base/memory.slate 41
<br>-addGlobalNamed: #InterruptFlag &type: Bool.
<br>+addGlobalNamed: #InterruptFlag &type: UnsignedLongInt.
<br>hunk ./src/mobius/vm/base/memory.slate 45
<br>-ObjectHeap addElementNamed: #TrueObject &type: ObjectPointer.
<br>-ObjectHeap addElementNamed: #FalseObject &type: ObjectPointer.
<br>-ObjectHeap addElementNamed: #NilObject &type: ObjectPointer.
<br>-ObjectHeap addElementNamed: #ClosureWindow &type: ObjectPointer.
<br>-ObjectHeap addElementNamed: #CompiledMethodWindow &type: ObjectPointer.
<br>-ObjectHeap addElementNamed: #PrimitiveMethodWindow &type: ObjectPointer.
<br>-ObjectHeap addElementNamed: #specialObjectsOop &type: ObjectPointer.
<br>+ObjectHeap addElementNamed: #TrueObject &type: UnsignedLongInt.
<br>+ObjectHeap addElementNamed: #FalseObject &type: UnsignedLongInt.
<br>+ObjectHeap addElementNamed: #NilObject &type: UnsignedLongInt.
<br>+ObjectHeap addElementNamed: #ClosureWindow &type: UnsignedLongInt.
<br>+ObjectHeap addElementNamed: #CompiledMethodWindow &type: UnsignedLongInt.
<br>+ObjectHeap addElementNamed: #PrimitiveMethodWindow &type: UnsignedLongInt.
<br>+ObjectHeap addElementNamed: #specialObjectsOop &type: UnsignedLongInt.
<br>hunk ./src/mobius/vm/base/memory.slate 60
<br>-]!ObjectPointer export.
<br>+]!UnsignedLongInt export.
<br>hunk ./src/mobius/vm/base/memory.slate 63
<br>-[| oop!ObjectPointer ptr!(Object pointer) shiftAmountInBytes!SmallInteger fieldOop!ObjectPointer |
<br>+[| oop!UnsignedLongInt ptr!(Object pointer) shiftAmountInBytes!LongInt fieldOop!UnsignedLongInt |
<br>hunk ./src/mobius/vm/base/memory.slate 66
<br>- ptr map: (ptr map!(Byte pointer) cast + shiftAmountInBytes)!(Map pointer) cast.
<br>+ ptr map: (ptr map!(UnsignedChar pointer) cast + shiftAmountInBytes)!(Map pointer) cast.
<br>hunk ./src/mobius/vm/base/memory.slate 69
<br>- by: #[ObjectPointer byteSize]
<br>+ by: UnsignedLongInt cSize
<br>hunk ./src/mobius/vm/base/memory.slate 81
<br>-[| shiftAmountInBytes oop!ObjectPointer total |
<br>+[| shiftAmountInBytes oop!UnsignedLongInt total |
<br>hunk ./src/mobius/vm/base/memory.slate 92
<br>-]!UnsignedSmallInteger export.
<br>+]!UnsignedLongInt export.
<br>hunk ./src/mobius/vm/base/memory.slate 131
<br>- h memory!IntegerPointer cast
<br>-]!IntegerPointer export.
<br>+ h memory!UnsignedLongInt cast
<br>+]!UnsignedLongInt export.
<br>hunk ./src/mobius/vm/base/memory.slate 138
<br>-]!Bool export.
<br>+]!UnsignedLongInt export.
<br>hunk ./src/mobius/vm/base/memory.slate 151
<br>-[| obj!ObjectPointer |
<br>+[| obj!UnsignedLongInt |
<br>hunk ./src/mobius/vm/base/memory.slate 159
<br>-]!ObjectPointer.
<br>+]!UnsignedLongInt.
<br>hunk ./src/mobius/vm/base/memory.slate 164
<br>-[| oop!ObjectPointer obj!ObjectPointer |
<br>+[| oop!UnsignedLongInt obj!UnsignedLongInt |
<br>hunk ./src/mobius/vm/base/memory.slate 174
<br>-]!ObjectPointer.
<br>+]!UnsignedLongInt.
<br>hunk ./src/mobius/vm/base/memory.slate 179
<br>-[| map!(Map pointer) thisObj!ObjectPointer |
<br>+[| map!(Map pointer) thisObj!UnsignedLongInt |
<br>hunk ./src/mobius/vm/base/memory.slate 188
<br>-]!ObjectPointer.
<br>+]!UnsignedLongInt.
<br>hunk ./src/mobius/vm/base/memory.slate 193
<br>-[| map!(Map pointer) oop!ObjectPointer thisObj!ObjectPointer |
<br>+[| map!(Map pointer) oop!UnsignedLongInt thisObj!UnsignedLongInt |
<br>hunk ./src/mobius/vm/base/memory.slate 202
<br>-]!ObjectPointer.
<br>+]!UnsignedLongInt.
<br>hunk ./src/mobius/vm/base/memory.slate 207
<br>-[| parentOop!ObjectPointer thisObj!ObjectPointer thisParent!ObjectPointer numDelegates |
<br>+[| parentOop!UnsignedLongInt thisObj!UnsignedLongInt thisParent!UnsignedLongInt numDelegates |
<br>hunk ./src/mobius/vm/base/memory.slate 212
<br>- [numDelegates: thisObj pointer map delegates arraySize.
<br>+ [numDelegates: (thisObj pointer map delegates)!(Object pointer) cast arraySize.
<br>hunk ./src/mobius/vm/base/memory.slate 219
<br>-]!ObjectPointer.
<br>+]!UnsignedLongInt.
<br>hunk ./src/mobius/vm/base/memory.slate 224
<br>-[| parentOop!ObjectPointer oop!ObjectPointer thisObj!ObjectPointer thisParent!ObjectPointer numDelegates |
<br>+[| parentOop!UnsignedLongInt oop!UnsignedLongInt thisObj!UnsignedLongInt thisParent!UnsignedLongInt numDelegates |
<br>hunk ./src/mobius/vm/base/memory.slate 230
<br>- [numDelegates: thisObj pointer map delegates arraySize.
<br>+ [numDelegates: (thisObj pointer map delegates)!(Object pointer) cast arraySize.
<br>hunk ./src/mobius/vm/base/memory.slate 238
<br>-]!ObjectPointer.
<br>+]!UnsignedLongInt.
<br>hunk ./src/mobius/vm/base/memory.slate 243
<br>-[| targetOop!ObjectPointer thisObj!ObjectPointer thisSlot!ObjectPointer slotCount |
<br>+[| targetOop!UnsignedLongInt thisObj!UnsignedLongInt thisSlot!UnsignedLongInt slotCount |
<br>hunk ./src/mobius/vm/base/memory.slate 255
<br>-]!ObjectPointer.
<br>+]!UnsignedLongInt.
<br>hunk ./src/mobius/vm/base/memory.slate 260
<br>-[| targetOop!ObjectPointer oop!ObjectPointer thisObj!ObjectPointer thisSlot!ObjectPointer slotCount |
<br>+[| targetOop!UnsignedLongInt oop!UnsignedLongInt thisObj!UnsignedLongInt thisSlot!UnsignedLongInt slotCount |
<br>hunk ./src/mobius/vm/base/memory.slate 274
<br>-]!ObjectPointer.
<br>+]!UnsignedLongInt.
<br>hunk ./src/mobius/vm/base/memory.slate 288
<br>-]!UnsignedSmallInteger.
<br>+]!UnsignedLongInt.
<br>hunk ./src/mobius/vm/base/memory.slate 293
<br>- h memoryEnd!IntegerPointer cast - h memory!IntegerPointer cast
<br>-]!UnsignedSmallInteger inline export.
<br>+ h memoryEnd!UnsignedLongInt cast - h memory!UnsignedLongInt cast
<br>+]!UnsignedLongInt inline export.
<br>hunk ./src/mobius/vm/base/memory.slate 317
<br>-src@(Word pointer) copyWords: n into: dst
<br>-[| dst!(Word pointer) |
<br>+src@(UnsignedLongInt pointer) copyWords: n into: dst
<br>+[| dst!(UnsignedLongInt pointer) |
<br>hunk ./src/mobius/vm/base/memory.slate 337
<br>-src@(Byte pointer) copyBytes: n into: dst
<br>-[| dst!(Byte pointer) |
<br>+src@(UnsignedChar pointer) copyBytes: n into: dst
<br>+[| dst!(UnsignedChar pointer) |
<br>hunk ./src/mobius/vm/base/memory.slate 357
<br>-dst@(Word pointer) fillWords: n with: value
<br>-[| value!Word |
<br>+dst@(UnsignedLongInt pointer) fillWords: n with: value
<br>+[| value!UnsignedLongInt |
<br>hunk ./src/mobius/vm/base/memory.slate 366
<br>-dst@(Byte pointer) fillBytes: n with: value
<br>-[| value!Byte |
<br>+dst@(UnsignedChar pointer) fillBytes: n with: value
<br>+[| value!UnsignedChar |
<br>hunk ./src/mobius/vm/base/object.slate 4
<br>-]!UnsignedSmallInteger inline export.
<br>+]!UnsignedLongInt inline export.
<br>hunk ./src/mobius/vm/base/object.slate 9
<br>- ifTrue: [obj header objectSize * #[IntegerPointer byteSize]]
<br>- ifFalse: [obj header objectSize * #[IntegerPointer byteSize] + obj payloadSize + #[2 * IntegerPointer byteSize - 1]
<br>- bitAnd: #[(IntegerPointer byteSize - 1) bitNot]]
<br>-]!UnsignedSmallInteger inline export.
<br>+ ifTrue: [obj header objectSize * UnsignedLongInt cSize]
<br>+ ifFalse: [obj header objectSize * UnsignedLongInt cSize + obj payloadSize + 2 * UnsignedLongInt cSize - 1
<br>+ bitAnd: (UnsignedLongInt cSize - 1) bitNot]
<br>+]!UnsignedLongInt inline export.
<br>hunk ./src/mobius/vm/base/object.slate 20
<br>- ifFalse: [obj header objectSize + ((obj payloadSize + #[IntegerPointer byteSize - 1]) // #[IntegerPointer byteSize])]
<br>-]!UnsignedSmallInteger inline export.
<br>+ ifFalse: [obj header objectSize + ((obj payloadSize + UnsignedLongInt cSize - 1) // UnsignedLongInt cSize)]
<br>+]!UnsignedLongInt inline export.
<br>hunk ./src/mobius/vm/base/object.slate 25
<br>- #[Object byteSize]
<br>-]!UnsignedSmallInteger inline export.
<br>+ Object cSize
<br>+]!UnsignedLongInt inline export.
<br>+
<br>hunk ./src/mobius/vm/base/object.slate 32
<br>-]!UnsignedSmallInteger inline export.
<br>+]!UnsignedLongInt inline export.
<br>hunk ./src/mobius/vm/base/object.slate 39
<br>-]!UnsignedSmallInteger inline export.
<br>+]!UnsignedLongInt inline export.
<br>hunk ./src/mobius/vm/base/object.slate 43
<br>- obj header objectSize * #[IntegerPointer byteSize] - #[ObjectPointer byteSize]
<br>-]!IntegerPointer inline export.
<br>+ obj header objectSize * UnsignedLongInt cSize - UnsignedLongInt cSize
<br>+]!UnsignedLongInt inline export.
<br>hunk ./src/mobius/vm/base/object.slate 53
<br>-]!IntegerPointer inline export.
<br>+]!UnsignedLongInt inline export.
<br>hunk ./src/mobius/vm/base/object.slate 57
<br>- obj header objectSize * #[IntegerPointer byteSize]
<br>-]!IntegerPointer inline export.
<br>+ obj header objectSize * UnsignedLongInt cSize
<br>+]!UnsignedLongInt inline export.
<br>hunk ./src/mobius/vm/base/object.slate 62
<br>- (obj!(Byte pointer) cast + obj arrayOffset)!(ObjectPointer pointer) cast
<br>-]!(ObjectPointer pointer) inline export.
<br>+ obj!(UnsignedChar pointer) cast + obj arrayOffset
<br>+]!(UnsignedLongInt pointer) inline export.
<br>hunk ./src/mobius/vm/base/object.slate 69
<br>- ifFalse: [(obj payloadSize + #[IntegerPointer byteSize - 1]) // #[IntegerPointer byteSize]]
<br>-]!UnsignedSmallInteger inline export.
<br>+ ifFalse: [(obj payloadSize + UnsignedLongInt cSize - 1) // UnsignedLongInt cSize]
<br>+]!UnsignedLongInt inline export.
<br>hunk ./src/mobius/vm/base/object.slate 74
<br>- obj wordSize * #[IntegerPointer byteSize]
<br>-]!UnsignedSmallInteger inline export.
<br>+ obj wordSize * UnsignedLongInt cSize
<br>+]!UnsignedLongInt inline export.
<br>hunk ./src/mobius/vm/base/object.slate 82
<br>-]!UnsignedSmallInteger inline export.
<br>+]!UnsignedLongInt inline export.
<br>hunk ./src/mobius/vm/base/object.slate 86
<br>- (obj + 1)!(ObjectPointer pointer) cast
<br>-]!(ObjectPointer pointer) inline export.
<br>+ (obj + 1)!(UnsignedLongInt pointer) cast
<br>+]!(UnsignedLongInt pointer) inline export.
<br>hunk ./src/mobius/vm/base/object.slate 92
<br>-]!ObjectPointer inline export.
<br>+]!UnsignedLongInt inline export.
<br>hunk ./src/mobius/vm/base/object.slate 97
<br>-]!ObjectPointer inline export.
<br>+]!UnsignedLongInt inline export.
<br>hunk ./src/mobius/vm/base/object.slate 101
<br>- (obj!(Byte pointer) cast + offset)!(ObjectPointer pointer) cast load
<br>-]!ObjectPointer inline export.
<br>+ (obj!(UnsignedChar pointer) cast + offset)!(UnsignedLongInt pointer) cast load
<br>+]!UnsignedLongInt inline export.
<br>hunk ./src/mobius/vm/base/object.slate 105
<br>-[| value!ObjectPointer |
<br>- (obj!(Byte pointer) cast + offset)!(ObjectPointer pointer) cast store: value
<br>-]!ObjectPointer inline export.
<br>+[| value!UnsignedLongInt |
<br>+ (obj!(UnsignedChar pointer) cast + offset)!(UnsignedLongInt pointer) cast store: value
<br>+]!UnsignedLongInt inline export.
<br>hunk ./src/mobius/vm/base/object.slate 112
<br>-OopArray addElementNamed: #elements &type: (Array of: ObjectPointer size: 0).
<br>+OopArray addElementNamed: #elements &type: (Array of: UnsignedLongInt size: 0).
<br>hunk ./src/mobius/vm/base/object.slate 116
<br>-ByteArray addElementNamed: #elements &type: (Array of: Byte size: 0).
<br>+ByteArray addElementNamed: #elements &type: (Array of: UnsignedChar size: 0).
<br>hunk ./src/mobius/vm/base/object.slate 120
<br>-[| targetBuffer!(Byte pointer) bufferSize!UnsignedSmallInteger payloadSize |
<br>- payloadSize: fromArray payloadSize.
<br>+[| targetBuffer!(UnsignedChar pointer) bufferSize!UnsignedLongInt payloadSize |
<br>+ payloadSize: fromArray!(Object pointer) cast payloadSize.
<br>hunk ./src/mobius/vm/base/object.slate 123
<br>- (fromArray elements)!(Byte pointer) cast copyBytes: bufferSize into: targetBuffer.
<br>+ (fromArray elements)!(UnsignedChar pointer) cast copyBytes: bufferSize into: targetBuffer.
<br>hunk ./src/mobius/vm/base/object.slate 125
<br>-]!SmallInteger inline export.
<br>+]!LongInt inline export.
<br>hunk ./src/mobius/vm/base/object.slate 130
<br>-Symbol addElementNamed: #cacheMask &type: ObjectPointer.
<br>+Symbol addElementNamed: #cacheMask &type: UnsignedLongInt.
<br>hunk ./src/mobius/vm/base/object.slate 133
<br>-Symbol addElementNamed: #elements &type: (Array of: Byte size: 0).
<br>+Symbol addElementNamed: #elements &type: (Array of: UnsignedChar size: 0).
<br>hunk ./src/mobius/vm/base/object.slate 150
<br>- proto!(IntegerPointer pointer) cast + #[ObjectHeader wordSize]
<br>+ proto!(UnsignedLongInt pointer) cast + #[ObjectHeader wordSize]
<br>hunk ./src/mobius/vm/base/object.slate 152
<br>- into: newObj!(IntegerPointer pointer) cast + #[ObjectHeader wordSize].
<br>+ into: newObj!(UnsignedLongInt pointer) cast + #[ObjectHeader wordSize].
<br>hunk ./src/mobius/vm/base/object.slate 167
<br>- newObj: (oh allocateChunkSized: proto header objectSize withPayload: oops * #[IntegerPointer byteSize]).
<br>+ newObj: (oh allocateChunkSized: proto header objectSize withPayload: oops * UnsignedLongInt cSize).
<br>hunk ./src/mobius/vm/base/object.slate 170
<br>- proto!(IntegerPointer pointer) cast + #[ObjectHeader wordSize]
<br>+ proto!(UnsignedLongInt pointer) cast + #[ObjectHeader wordSize]
<br>hunk ./src/mobius/vm/base/object.slate 172
<br>- into: newObj!(IntegerPointer pointer) cast + #[ObjectHeader wordSize].
<br>- newObj!(IntegerPointer pointer) cast + proto header objectSize
<br>+ into: newObj!(UnsignedLongInt pointer) cast + #[ObjectHeader wordSize].
<br>+ newObj!(UnsignedLongInt pointer) cast + proto header objectSize
<br>hunk ./src/mobius/vm/base/object.slate 186
<br>- proto!(IntegerPointer pointer) cast + #[ObjectHeader wordSize]
<br>+ proto!(UnsignedLongInt pointer) cast + #[ObjectHeader wordSize]
<br>hunk ./src/mobius/vm/base/object.slate 188
<br>- into: newObj!(IntegerPointer pointer) cast + #[ObjectHeader wordSize].
<br>- newObj!(IntegerPointer pointer) cast + proto header objectSize
<br>- fillWords: (bytes + #[IntegerPointer byteSize - 1]) // #[IntegerPointer byteSize]
<br>+ into: newObj!(UnsignedLongInt pointer) cast + #[ObjectHeader wordSize].
<br>+ newObj!(UnsignedLongInt pointer) cast + proto header objectSize
<br>+ fillWords: (bytes + UnsignedLongInt cSize - 1) // UnsignedLongInt cSize
<br>hunk ./src/mobius/vm/base/object.slate 210
<br>-[| result!(ByteArray pointer) buffer!(Byte pointer) |
<br>+[| result!(ByteArray pointer) buffer!(UnsignedChar pointer) |
<br>hunk ./src/mobius/vm/base/object.slate 212
<br>- buffer copyBytes: bytes into: (result elements)!(Byte pointer).
<br>+ buffer copyBytes: bytes into: (result elements)!(UnsignedChar pointer).
<br>hunk ./src/mobius/vm/base/vm.slate 32
<br>-CompiledMethod addElementNamed: #selector &type: ObjectPointer.
<br>-CompiledMethod addElementNamed: #inputVariables &type: ObjectPointer.
<br>-CompiledMethod addElementNamed: #localVariables &type: ObjectPointer.
<br>-CompiledMethod addElementNamed: #restVariable &type: ObjectPointer.
<br>+CompiledMethod addElementNamed: #selector &type: UnsignedLongInt.
<br>+CompiledMethod addElementNamed: #inputVariables &type: UnsignedLongInt.
<br>+CompiledMethod addElementNamed: #localVariables &type: UnsignedLongInt.
<br>+CompiledMethod addElementNamed: #restVariable &type: UnsignedLongInt.
<br>hunk ./src/mobius/vm/base/vm.slate 37
<br>-CompiledMethod addElementNamed: #heapAllocate &type: ObjectPointer.
<br>-CompiledMethod addElementNamed: #environment &type: ObjectPointer.
<br>+CompiledMethod addElementNamed: #heapAllocate &type: UnsignedLongInt.
<br>+CompiledMethod addElementNamed: #environment &type: UnsignedLongInt.
<br>hunk ./src/mobius/vm/base/vm.slate 42
<br>-CompiledMethod addElementNamed: #sourceTree &type: ObjectPointer.
<br>-CompiledMethod addElementNamed: #debugMap &type: ObjectPointer.
<br>+CompiledMethod addElementNamed: #sourceTree &type: UnsignedLongInt.
<br>+CompiledMethod addElementNamed: #debugMap &type: UnsignedLongInt.
<br>hunk ./src/mobius/vm/base/vm.slate 46
<br>-PrimitiveMethod addElementNamed: #index &type: ObjectPointer.
<br>-PrimitiveMethod addElementNamed: #selector &type: ObjectPointer.
<br>-PrimitiveMethod addElementNamed: #inputVariables &type: ObjectPointer.
<br>+PrimitiveMethod addElementNamed: #index &type: UnsignedLongInt.
<br>+PrimitiveMethod addElementNamed: #selector &type: UnsignedLongInt.
<br>+PrimitiveMethod addElementNamed: #inputVariables &type: UnsignedLongInt.
<br>hunk ./src/mobius/vm/base/vm.slate 51
<br>-LexicalContext addElementNamed: #framePointer &type: ObjectPointer.
<br>+LexicalContext addElementNamed: #framePointer &type: UnsignedLongInt.
<br>hunk ./src/mobius/vm/base/vm.slate 53
<br>-LexicalContext addElementNamed: #variables &type: (Array of: ObjectPointer size: 0).
<br>+LexicalContext addElementNamed: #variables &type: (Array of: UnsignedLongInt size: 0).
<br>hunk ./src/mobius/vm/base/vm.slate 64
<br>-Interpreter addElementNamed: #ensureHandlers &type: ObjectPointer.
<br>-Interpreter addElementNamed: #framePointer &type: IntegerPointer.
<br>-Interpreter addElementNamed: #codePointer &type: IntegerPointer.
<br>-Interpreter addElementNamed: #codeSize &type: UnsignedSmallInteger.
<br>-Interpreter addElementNamed: #stackPointer &type: IntegerPointer.
<br>-Interpreter addElementNamed: #stackSize &type: UnsignedSmallInteger.
<br>+Interpreter addElementNamed: #ensureHandlers &type: UnsignedLongInt.
<br>+Interpreter addElementNamed: #framePointer &type: UnsignedLongInt.
<br>+Interpreter addElementNamed: #codePointer &type: UnsignedLongInt.
<br>+Interpreter addElementNamed: #codeSize &type: UnsignedLongInt.
<br>+Interpreter addElementNamed: #stackPointer &type: UnsignedLongInt.
<br>+Interpreter addElementNamed: #stackSize &type: UnsignedLongInt.
<br>hunk ./src/mobius/vm/base/vm.slate 72
<br>- &type: (Array of: (FunctionPointer from: {Interpreter pointer. ObjectPointer pointer. UnsignedLongInt. OopArray pointer} to: Void)).
<br>+ &type: (Array of: (FunctionPointer from: {Interpreter pointer. UnsignedLongInt pointer. UnsignedLongInt. OopArray pointer} to: Void)).
<br>hunk ./src/mobius/vm/base/vm.slate 79
<br>- i stack elements!(Word pointer) cast
<br>+ i stack elements!(UnsignedLongInt pointer) cast
<br>hunk ./src/mobius/vm/base/vm.slate 81
<br>- into: newStack elements!(Word pointer) cast.
<br>+ into: newStack elements!(UnsignedLongInt pointer) cast.
<br>hunk ./src/mobius/vm/base/vm.slate 87
<br>-[| oop!ObjectPointer |
<br>+[| oop!UnsignedLongInt |
<br>hunk ./src/mobius/vm/base/vm.slate 112
<br>-]!ObjectPointer inline export.
<br>+]!UnsignedLongInt inline export.
<br>hunk ./src/mobius/vm/base/vm.slate 121
<br>-]!UnsignedSmallInteger inline export.
<br>+]!UnsignedLongInt inline export.
<br>hunk ./src/mobius/vm/base/vm.slate 136
<br>-]!UnsignedSmallInteger inline export.
<br>+]!UnsignedLongInt inline export.
<br>hunk ./src/mobius/vm/base/vm.slate 141
<br>-[| args!(ObjectPointer pointer) selector!ObjectPointer opts!(OopArray pointer) def!(MethodDefinition pointer) method!(Closure pointer) |
<br>+[| args!(UnsignedLongInt pointer) selector!UnsignedLongInt opts!(OopArray pointer) def!(MethodDefinition pointer) method!(Closure pointer) |
<br>hunk ./src/mobius/vm/base/vm.slate 151
<br>-[| args!(Array of: ObjectPointer size: 1) x!ObjectPointer |
<br>+[| args!(Array of: UnsignedLongInt size: 1) x!UnsignedLongInt |
<br>hunk ./src/mobius/vm/base/vm.slate 157
<br>-[| args!(Array of: ObjectPointer size: 2) x!ObjectPointer y!ObjectPointer |
<br>+[| args!(Array of: UnsignedLongInt size: 2) x!UnsignedLongInt y!UnsignedLongInt |
<br>hunk ./src/mobius/vm/base/vm.slate 164
<br>-[| args!(Array of: ObjectPointer size: 3) x!ObjectPointer y!ObjectPointer z!ObjectPointer |
<br>+[| args!(Array of: UnsignedLongInt size: 3) x!UnsignedLongInt y!UnsignedLongInt z!UnsignedLongInt |
<br>hunk ./src/mobius/vm/base/vm.slate 174
<br>-[| opts!(OopArray pointer) selector!ObjectPointer args!(ObjectPointer pointer) |
<br>+[| opts!(OopArray pointer) selector!UnsignedLongInt args!(UnsignedLongInt pointer) |
<br>hunk ./src/mobius/vm/base/vm.slate 194
<br>- optsSize: opts arraySize.
<br>+ optsSize: opts!(Object pointer) cast arraySize.
<br>hunk ./src/mobius/vm/base/vm.slate 203
<br>-[| opts!(OopArray pointer) selector!ObjectPointer args!(ObjectPointer pointer) |
<br>+[| opts!(OopArray pointer) selector!UnsignedLongInt args!(UnsignedLongInt pointer) |
<br>hunk ./src/mobius/vm/base/vm.slate 208
<br>-[| opts!(OopArray pointer) selector!ObjectPointer args!(ObjectPointer pointer) dispatchers!(ObjectPointer pointer) def!(MethodDefinition pointer) method!(Closure pointer) argsArray!(OopArray pointer) traitsWindow!ObjectPointer |
<br>+[| opts!(OopArray pointer) selector!UnsignedLongInt args!(UnsignedLongInt pointer) dispatchers!(UnsignedLongInt pointer) def!(MethodDefinition pointer) method!(Closure pointer) argsArray!(OopArray pointer) traitsWindow!UnsignedLongInt |
<br>hunk ./src/mobius/vm/base/vm.slate 223
<br>- if (ObjectPointer_isSmallInt(args[ii])) {
<br>- fprintf(stderr, "arg %d: %d\n", ii, ObjectPointer_asSmallInt(args[ii]));
<br>+ if (unsignedLongInt_isSmallInt(args[ii])) {
<br>+ fprintf(stderr, "arg %d: %d\\n", ii, unsignedLongInt_asSmallInt(args[ii]));
<br>hunk ./src/mobius/vm/base/vm.slate 227
<br>- struct Object* mytraitsWindow = ObjectPointer_pointer(ObjectPointer_pointer(args[ii])->map->delegates->elements[0]);
<br>+ struct Object* mytraitsWindow = unsignedLongInt_pointer(unsignedLongInt_pointer(args[ii])->map->delegates->elements[0]);
<br>hunk ./src/mobius/vm/base/vm.slate 229
<br>- _limit_ = (PSObject_arraySize(ObjectPointer_pointer(args[ii])) - 1) + 1;
<br>+ _limit_ = (PSObject_arraySize(unsignedLongInt_pointer(args[ii])) - 1) + 1;
<br>hunk ./src/mobius/vm/base/vm.slate 232
<br>- //fprintf(stderr, "delegate count: %d\n", numDelegates);
<br>+ //fprintf(stderr, "delegate count: %d\\n", numDelegates);
<br>hunk ./src/mobius/vm/base/vm.slate 240
<br>- struct Object* traitsWindowSlotName = ObjectPointer_pointer(mytraitsWindow->map->slotTable->slots[slotNum].name);
<br>+ struct Object* traitsWindowSlotName = unsignedLongInt_pointer(mytraitsWindow->map->slotTable->slots[slotNum].name);
<br>hunk ./src/mobius/vm/base/vm.slate 244
<br>- //fprintf(stderr, "slot arg[%d] slot[%d]: %s\n", ii, slotNum, buffer);
<br>+ //fprintf(stderr, "slot arg[%d] slot[%d]: %s\\n", ii, slotNum, buffer);
<br>hunk ./src/mobius/vm/base/vm.slate 253
<br>- struct Object* oop = ObjectPointer_pointer(PSObject_slotValueAtOffset_(mytraitsWindow, offset));
<br>+ struct Object* oop = unsignedLongInt_pointer(PSObject_slotValueAtOffset_(mytraitsWindow, offset));
<br>hunk ./src/mobius/vm/base/vm.slate 256
<br>- fprintf(stderr, "arg %d: %s\n", ii, buffer);
<br>+ fprintf(stderr, "arg %d: %s\\n", ii, buffer);
<br>hunk ./src/mobius/vm/base/vm.slate 260
<br>- fprintf(stderr, "\n");
<br>+ fprintf(stderr, "\\n");
<br>hunk ./src/mobius/vm/base/vm.slate 272
<br>- dispatchers!(Word pointer) cast
<br>+ dispatchers!(UnsignedLongInt pointer) cast
<br>hunk ./src/mobius/vm/base/vm.slate 274
<br>- into: argsArray elements!(Word pointer) cast.
<br>- ^ (i signal: NotFoundOnSymbol with: selector with: argsArray asObject)].
<br>+ into: argsArray elements!(UnsignedLongInt pointer) cast.
<br>+ ^ (i signal: NotFoundOnSymbol with: selector with: argsArray!(Object pointer) cast asObject)].
<br>hunk ./src/mobius/vm/base/vm.slate 277
<br>- traitsWindow: (method map delegates elements at: 0).
<br>+"fixme this cast shouldn't be necessary"
<br>+ traitsWindow: (method!(Object pointer) cast map delegates elements at: 0).
<br>hunk ./src/mobius/vm/base/vm.slate 287
<br>- [| signalArgs!(Array of: ObjectPointer size: 2) optsArray!(OopArray pointer) |
<br>+ [| signalArgs!(Array of: UnsignedLongInt size: 2) optsArray!(OopArray pointer) |
<br>hunk ./src/mobius/vm/base/vm.slate 289
<br>- args!(Word pointer) cast
<br>+