VM Maker: VMMaker-oscog-IgorStasenko.162.mcz

 
Igor Stasenko uploaded a new version of VMMaker to project VM Maker:
http://source.squeak.org/VMMaker/VMMaker-oscog-IgorStasenko.162.mcz

==================== Summary ====================

Name: VMMaker-oscog-IgorStasenko.162
Author: IgorStasenko
Time: 26 July 2012, 3:56:10 pm
UUID: e4554f9a-cc90-4826-a807-ac282b782fe4
Ancestors: VMMaker-oscog-EstebanLorenzano.161

- changed the
readImageFromFile: f HeapSize: desiredHeapSize StartingAt: imageOffset
to use sqImageFileReadEntireImage() function


=============== Diff against VMMaker-oscog-EstebanLorenzano.161 ===============

Item was changed:
  ----- Method: CoInterpreter>>readImageFromFile:HeapSize:StartingAt: (in category 'image save/restore') -----
  readImageFromFile: f HeapSize: desiredHeapSize StartingAt: imageOffset
  "Read an image from the given file stream, allocating the given amount of memory to its object heap. Fail if the image has an unknown format or requires more than the given amount of memory."
  "Details: This method detects when the image was stored on a machine with the opposite byte ordering from this machine and swaps the bytes automatically. Furthermore, it allows the header information to start 512 bytes into the file, since some file transfer programs for the Macintosh apparently prepend a Mac-specific header of this size. Note that this same 512 bytes of prefix area could also be used to store an exec command on Unix systems, allowing one to launch Smalltalk by invoking the image name as a command."
  "This code is based on C code by Ian Piumarta and Smalltalk code by Tim Rowledge. Many thanks to both of you!!!!"
 
  | swapBytes headerStart headerSize dataSize oldBaseAddr
   minimumMemory heapSize bytesRead bytesToShift
   hdrNumStackPages hdrEdenBytes hdrCogCodeSize headerFlags hdrMaxExtSemTabSize |
  <var: #f type: 'sqImageFile '>
  <var: #memStart type: 'usqInt'>
  <var: #desiredHeapSize type: 'usqInt'>
  <var: #headerStart type: 'squeakFileOffsetType '>
  <var: #dataSize type: 'size_t '>
  <var: #imageOffset type: 'squeakFileOffsetType '>
 
  metaclassSizeBytes := 6 * BytesPerWord. "guess (Metaclass instSize * BPW)"
  swapBytes := self checkImageVersionFrom: f startingAt: imageOffset.
  headerStart := (self sqImageFilePosition: f) - BytesPerWord.  "record header start position"
 
  headerSize := self getLongFromFile: f swap: swapBytes.
  dataSize := self getLongFromFile: f swap: swapBytes.
  oldBaseAddr := self getLongFromFile: f swap: swapBytes.
  objectMemory specialObjectsOop: (self getLongFromFile: f swap: swapBytes).
  objectMemory lastHash: (self getLongFromFile: f swap: swapBytes). "N.B.  not used."
  savedWindowSize := self getLongFromFile: f swap: swapBytes.
  headerFlags := self getLongFromFile: f swap: swapBytes.
  self setImageHeaderFlagsFrom: headerFlags.
  extraVMMemory := self getLongFromFile: f swap: swapBytes. "N.B.  not used."
  hdrNumStackPages := self getShortFromFile: f swap: swapBytes.
  "4 stack pages is small.  Should be able to run with as few as
  three. 4 should be comfortable but slow.  8 is a reasonable
  default.  Can be changed via vmParameterAt: 43 put: n.
  Can be set as a preference (Info.plist, VM.ini, command line etc).
  If desiredNumStackPages is already non-zero then it has been
  set as a preference.  Ignore (but preserve) the header's default."
  numStackPages := desiredNumStackPages ~= 0
  ifTrue: [desiredNumStackPages]
  ifFalse: [hdrNumStackPages = 0
  ifTrue: [self defaultNumStackPages]
  ifFalse: [hdrNumStackPages]].
  desiredNumStackPages := hdrNumStackPages.
  "This slot holds the size of the native method zone in 1k units. (pad to word boundary)."
  hdrCogCodeSize := (self getShortFromFile: f swap: swapBytes) * 1024.
  cogCodeSize := desiredCogCodeSize ~= 0
  ifTrue: [desiredCogCodeSize]
  ifFalse:
  [hdrCogCodeSize = 0
  ifTrue: [self defaultCogCodeSize]
  ifFalse: [hdrCogCodeSize]].
  hdrEdenBytes := self getLongFromFile: f swap: swapBytes.
  objectMemory edenBytes: (desiredEdenBytes ~= 0
  ifTrue: [desiredEdenBytes]
  ifFalse:
  [hdrEdenBytes = 0
  ifTrue: [objectMemory defaultEdenBytes]
  ifFalse: [hdrEdenBytes]]).
  desiredEdenBytes := hdrEdenBytes.
  hdrMaxExtSemTabSize := self getShortFromFile: f swap: swapBytes.
  hdrMaxExtSemTabSize ~= 0 ifTrue:
  [self setMaxExtSemSizeTo: hdrMaxExtSemTabSize].
 
  "compare memory requirements with availability"
  minimumMemory := cogCodeSize "no need to include the stackZone; this is alloca'ed"
  + dataSize
  + objectMemory edenBytes
  + self interpreterAllocationReserveBytes.
  heapSize             :=  cogCodeSize "no need to include the stackZone; this is alloca'ed"
  + desiredHeapSize
  "+ edenBytes" "don't include edenBytes; this is part of the heap and so part of desiredHeapSize"
  + self interpreterAllocationReserveBytes.
  heapSize < minimumMemory ifTrue:
  [self insufficientMemorySpecifiedError].
 
  "allocate a contiguous block of memory for the Squeak heap and ancilliary data structures"
  "N.B. If the platform needs to it will redefine this macro to make heapSize
  an in/out parameter and assign the ammount actually allocated into heapSize.
  See e.g. platforms/Mac OS/vm/sqPlatformSpecific.h.  (I *hate* this. eem 7/23/2009)"
  "objectMemory memory: (self cCode: 'sqAllocateMemory(minimumMemory, heapSize)').  "
  objectMemory memory: (self
  allocateMemory: heapSize
  minimum: minimumMemory
  imageFile: f
  headerSize: headerSize).
 
  objectMemory memory = nil ifTrue: [self insufficientMemoryAvailableError].
  heapBase := objectMemory memory + cogCodeSize.
  self assert: objectMemory startOfMemory = heapBase.
  objectMemory setMemoryLimit: objectMemory memory + heapSize - 24.  "decrease memoryLimit a tad for safety"
  objectMemory setEndOfMemory: heapBase + dataSize.
 
  "position file after the header"
  self sqImageFile: f Seek: headerStart + headerSize.
 
  "read in the image in bulk, then swap the bytes if necessary"
+ bytesRead := self cCode: 'sqImageFileReadEntireImage(pointerForOop(heapBase), sizeof(unsigned char), dataSize, f)'.
+
- bytesRead := self cCode: 'sqImageFileRead(pointerForOop(heapBase), sizeof(unsigned char), dataSize, f)'.
  bytesRead ~= dataSize ifTrue: [self unableToReadImageError].
 
  self ensureImageFormatIsUpToDate: swapBytes.
 
  "compute difference between old and new memory base addresses"
  bytesToShift := heapBase - oldBaseAddr.
  self initializeInterpreter: bytesToShift.  "adjusts all oops to new location"
  self initializeCodeGenerator.
  ^dataSize!

Item was changed:
  ----- Method: CogVMSimulator>>makeDirEntryName:size:createDate:modDate:isDir:fileSize:posixPermissions: (in category 'as yet unclassified') -----
  makeDirEntryName: entryName
  size: entryNameSize
  createDate: createDate
  modDate: modifiedDate
  isDir: dirFlag
  fileSize: posixPermissions
  posixPermissions: fileSize
 
  | modDateOop createDateOop nameString results |
  <var: 'entryName' type: 'char *'>
 
  results := objectMemory instantiateClass: (objectMemory splObj: ClassArray) indexableSize: 5.
  nameString := objectMemory instantiateClass: (objectMemory splObj: ClassString) indexableSize: entryNameSize.
  createDateOop := self positive32BitIntegerFor: createDate.
  modDateOop := self positive32BitIntegerFor: modifiedDate.
 
  1 to: entryNameSize do:
  [ :i |
  objectMemory storeByte: i-1 ofObject: nameString withValue: (entryName at: i) asciiValue].
 
  objectMemory storePointerUnchecked: 0 ofObject: results withValue: nameString.
  objectMemory storePointerUnchecked: 1 ofObject: results withValue: createDateOop.
  objectMemory storePointerUnchecked: 2 ofObject: results withValue: modDateOop.
  dirFlag
  ifTrue: [ objectMemory storePointerUnchecked: 3 ofObject: results withValue: objectMemory trueObject ]
  ifFalse: [ objectMemory storePointerUnchecked: 3 ofObject: results withValue: objectMemory falseObject ].
  objectMemory storePointerUnchecked: 4 ofObject: results withValue: (objectMemory integerObjectOf: fileSize).
  objectMemory storePointerUnchecked: 5 ofObject: results withValue: (objectMemory integerObjectOf: posixPermissions).
  ^ results!

Item was changed:
  ----- Method: FilePlugin>>makeDirEntryName:size:createDate:modDate:isDir:fileSize:posixPermissions: (in category 'directory primitives') -----
  makeDirEntryName: entryName
  size: entryNameSize
  createDate: createDate
  modDate: modifiedDate
  isDir: dirFlag
  fileSize: fileSize
  posixPermissions: posixPermissions
 
  | modDateOop createDateOop nameString results stringPtr posixPermissionsOop fileSizeOop |
  <var: 'entryName' type: 'char *'>
  <var: 'stringPtr' type: 'char *'>
  <var: 'fileSize' type: 'squeakFileOffsetType '>
 
  "allocate storage for results, remapping newly allocated
  oops in case GC happens during allocation"
  interpreterProxy pushRemappableOop:
  (interpreterProxy instantiateClass: (interpreterProxy classArray) indexableSize: 6).
  interpreterProxy pushRemappableOop:
  (interpreterProxy instantiateClass: (interpreterProxy classString) indexableSize: entryNameSize)..
  interpreterProxy pushRemappableOop:
  (interpreterProxy positive32BitIntegerFor: createDate).
  interpreterProxy pushRemappableOop:
  (interpreterProxy positive32BitIntegerFor: modifiedDate).
  interpreterProxy pushRemappableOop:
  (interpreterProxy positive64BitIntegerFor: fileSize).
  interpreterProxy pushRemappableOop:
  (interpreterProxy positive32BitIntegerFor: posixPermissions).
 
  posixPermissionsOop := interpreterProxy popRemappableOop.
  fileSizeOop := interpreterProxy popRemappableOop.
  modDateOop := interpreterProxy popRemappableOop.
  createDateOop := interpreterProxy popRemappableOop.
  nameString  := interpreterProxy popRemappableOop.
  results := interpreterProxy popRemappableOop.
 
  "copy name into Smalltalk string"
  stringPtr := interpreterProxy firstIndexableField: nameString.
  0 to: entryNameSize - 1 do: [ :i |
  stringPtr at: i put: (entryName at: i).
  ].
 
  interpreterProxy storePointer: 0 ofObject: results withValue: nameString.
  interpreterProxy storePointer: 1 ofObject: results withValue: createDateOop.
  interpreterProxy storePointer: 2 ofObject: results withValue: modDateOop.
  dirFlag
  ifTrue: [ interpreterProxy storePointer: 3 ofObject: results withValue: interpreterProxy trueObject ]
  ifFalse: [ interpreterProxy storePointer: 3 ofObject: results withValue: interpreterProxy falseObject ].
  interpreterProxy storePointer: 4 ofObject: results withValue: fileSizeOop.
  interpreterProxy storePointer: 5 ofObject: results withValue: posixPermissionsOop.
  ^ results!

Item was changed:
  ----- Method: FilePluginSimulator>>makeDirEntryName:size:createDate:modDate:isDir:fileSize:posixPermissions: (in category 'as yet unclassified') -----
  makeDirEntryName: entryName size: entryNameSize
  createDate: createDate modDate: modifiedDate
  isDir: dirFlag
  fileSize: fileSize
  posixPermissions: posixPermissions
 
  ^interpreterProxy
  makeDirEntryName: entryName
  size: entryNameSize
  createDate: createDate
  modDate: modifiedDate
  isDir: dirFlag
  fileSize: fileSize
  posixPermissions: posixPermissions
  !

Item was changed:
  ----- Method: InterpreterSimulator>>makeDirEntryName:size:createDate:modDate:isDir:fileSize:posixPermissions: (in category 'as yet unclassified') -----
  makeDirEntryName: entryName
  size: entryNameSize
  createDate: createDate
  modDate: modifiedDate
  isDir: dirFlag
  fileSize: posixPermissions
  posixPermissions: fileSize
 
  | modDateOop createDateOop nameString results |
  <var: 'entryName' type: 'char *'>
 
  "allocate storage for results, remapping newly allocated
  oops in case GC happens during allocation"
  self pushRemappableOop:
  (self instantiateClass: (self splObj: ClassArray) indexableSize: 5).
  self pushRemappableOop:
  (self instantiateClass: (self splObj: ClassString) indexableSize: entryNameSize)..
  self pushRemappableOop: (self positive32BitIntegerFor: createDate).
  self pushRemappableOop: (self positive32BitIntegerFor: modifiedDate).
 
  modDateOop   := self popRemappableOop.
  createDateOop := self popRemappableOop.
  nameString    := self popRemappableOop.
  results         := self popRemappableOop.
 
  1 to: entryNameSize do: [ :i |
  self storeByte: i-1 ofObject: nameString withValue: (entryName at: i) asciiValue.
  ].
 
  self storePointer: 0 ofObject: results withValue: nameString.
  self storePointer: 1 ofObject: results withValue: createDateOop.
  self storePointer: 2 ofObject: results withValue: modDateOop.
  dirFlag
  ifTrue: [ self storePointer: 3 ofObject: results withValue: trueObj ]
  ifFalse: [ self storePointer: 3 ofObject: results withValue: falseObj ].
  self storePointer: 4
  ofObject: results
  withValue: (self integerObjectOf: fileSize).
  self storePointer: 5
  ofObject: results
  withValue: (self integerObjectOf: posixPermissions).
 
  ^ results
  !

Item was changed:
  ----- Method: NewspeakInterpreterSimulator>>makeDirEntryName:size:createDate:modDate:isDir:fileSize:posixPermissions: (in category 'as yet unclassified') -----
  makeDirEntryName: entryName
  size: entryNameSize
  createDate: createDate
  modDate: modifiedDate
  isDir: dirFlag
  fileSize: posixPermissions
  posixPermissions: fileSize
 
  | modDateOop createDateOop nameString results |
  <var: 'entryName' type: 'char *'>
 
  "allocate storage for results, remapping newly allocated
  oops in case GC happens during allocation"
  self pushRemappableOop:
  (self instantiateClass: (self splObj: ClassArray) indexableSize: 5).
  self pushRemappableOop:
  (self instantiateClass: (self splObj: ClassString) indexableSize: entryNameSize).
  self pushRemappableOop: (self positive32BitIntegerFor: createDate).
  self pushRemappableOop: (self positive32BitIntegerFor: modifiedDate).
 
  modDateOop   := self popRemappableOop.
  createDateOop := self popRemappableOop.
  nameString    := self popRemappableOop.
  results         := self popRemappableOop.
 
  1 to: entryNameSize do: [ :i |
  self storeByte: i-1 ofObject: nameString withValue: (entryName at: i) asciiValue.
  ].
 
  self storePointer: 0 ofObject: results withValue: nameString.
  self storePointer: 1 ofObject: results withValue: createDateOop.
  self storePointer: 2 ofObject: results withValue: modDateOop.
  dirFlag
  ifTrue: [ self storePointer: 3 ofObject: results withValue: trueObj ]
  ifFalse: [ self storePointer: 3 ofObject: results withValue: falseObj ].
  self storePointer: 4 ofObject: results
  withValue: (self integerObjectOf: fileSize).
  self storePointer: 5 ofObject: results
  withValue: (self integerObjectOf: posixPermissions).
  ^ results
  !

Item was changed:
  ----- Method: SocketPlugin>>primitiveResolverGetAddressInfoFamily (in category 'ipv6 primitives') -----
  primitiveResolverGetAddressInfoFamily
 
  | family |
  self primitive: 'primitiveResolverGetAddressInfoFamily'
  parameters: #().
  interpreterProxy failed
  ifFalse:
  [family := self sqResolverGetAddressInfoFamily.
  ^family asSmallIntegerObj]!

Item was changed:
  ----- Method: SocketPlugin>>primitiveResolverGetAddressInfoHost:service:flags:family:type:protocol: (in category 'ipv6 primitives') -----
  primitiveResolverGetAddressInfoHost: hostName service: servName flags: flags family: family type: type protocol: protocol
 
  | hostSize servSize |
  self primitive: 'primitiveResolverGetAddressInfo'
  parameters: #(String String SmallInteger SmallInteger SmallInteger SmallInteger).
  interpreterProxy failed
  ifFalse:
  [hostSize := interpreterProxy byteSizeOf: hostName cPtrAsOop.
  servSize := interpreterProxy byteSizeOf: servName cPtrAsOop.
  self
  sqResolverGetAddressInfoHost: hostName Size: hostSize Service: servName Size: servSize
  Flags: flags Family: family Type: type Protocol: protocol]!

Item was changed:
  ----- Method: SocketPlugin>>primitiveResolverGetAddressInfoNext (in category 'ipv6 primitives') -----
  primitiveResolverGetAddressInfoNext
 
  | more |
  self primitive: 'primitiveResolverGetAddressInfoNext'
  parameters: #().
  more := self sqResolverGetAddressInfoNext.
  interpreterProxy failed ifTrue: [^nil].
  ^more asBooleanObj!

Item was changed:
  ----- Method: SocketPlugin>>primitiveResolverGetAddressInfoProtocol (in category 'ipv6 primitives') -----
  primitiveResolverGetAddressInfoProtocol
 
  | protocol |
  self primitive: 'primitiveResolverGetAddressInfoProtocol'
  parameters: #().
  interpreterProxy failed
  ifFalse:
  [protocol := self sqResolverGetAddressInfoProtocol.
  ^protocol asSmallIntegerObj]!

Item was changed:
  ----- Method: SocketPlugin>>primitiveResolverGetAddressInfoResult: (in category 'ipv6 primitives') -----
  primitiveResolverGetAddressInfoResult: socketAddress
 
  | addrSize |
  self primitive: 'primitiveResolverGetAddressInfoResult'
  parameters: #(ByteArray).
  interpreterProxy failed
  ifFalse:
  [addrSize := interpreterProxy byteSizeOf: socketAddress cPtrAsOop.
  self sqResolverGetAddressInfoResult: socketAddress Size: addrSize]!

Item was changed:
  ----- Method: SocketPlugin>>primitiveResolverGetAddressInfoSize (in category 'ipv6 primitives') -----
  primitiveResolverGetAddressInfoSize
 
  | size |
  self primitive: 'primitiveResolverGetAddressInfoSize'
  parameters: #().
  interpreterProxy failed
  ifFalse:
  [size := self sqResolverGetAddressInfoSize.
  ^size asSmallIntegerObj]!

Item was changed:
  ----- Method: SocketPlugin>>primitiveResolverGetAddressInfoType (in category 'ipv6 primitives') -----
  primitiveResolverGetAddressInfoType
 
  | type |
  self primitive: 'primitiveResolverGetAddressInfoType'
  parameters: #().
  interpreterProxy failed
  ifFalse:
  [type := self sqResolverGetAddressInfoType.
  ^type asSmallIntegerObj]!

Item was changed:
  ----- Method: SocketPlugin>>primitiveResolverGetNameInfo:flags: (in category 'ipv6 primitives') -----
  primitiveResolverGetNameInfo: socketAddress flags: flags
 
  | addrSize addrBase |
  <var: #addrBase type: 'char *'>
  self primitive: 'primitiveResolverGetNameInfo'
  parameters: #(Oop SmallInteger).
  interpreterProxy failed
  ifFalse:
  [addrSize := interpreterProxy byteSizeOf: socketAddress.
  addrBase := self cCoerce: (interpreterProxy firstIndexableField: socketAddress) to: 'char *'.
  self sqResolverGetNameInfo: addrBase Size: addrSize Flags: flags]!

Item was changed:
  ----- Method: SocketPlugin>>primitiveResolverGetNameInfoHostResult: (in category 'ipv6 primitives') -----
  primitiveResolverGetNameInfoHostResult: socketName
 
  | addrSize |
  self primitive: 'primitiveResolverGetNameInfoHostResult'
  parameters: #(String).
  interpreterProxy failed
  ifFalse:
  [addrSize := interpreterProxy byteSizeOf: socketName cPtrAsOop.
  self sqResolverGetNameInfoHostResult: socketName Size: addrSize]!

Item was changed:
  ----- Method: SocketPlugin>>primitiveResolverGetNameInfoHostSize (in category 'ipv6 primitives') -----
  primitiveResolverGetNameInfoHostSize
 
  | size |
  self primitive: 'primitiveResolverGetNameInfoHostSize'
  parameters: #().
  interpreterProxy failed
  ifFalse:
  [size := self sqResolverGetNameInfoHostSize.
  ^size asSmallIntegerObj]!

Item was changed:
  ----- Method: SocketPlugin>>primitiveResolverGetNameInfoServiceResult: (in category 'ipv6 primitives') -----
  primitiveResolverGetNameInfoServiceResult: socketName
 
  | addrSize |
  self primitive: 'primitiveResolverGetNameInfoServiceResult'
  parameters: #(String).
  interpreterProxy failed
  ifFalse:
  [addrSize := interpreterProxy byteSizeOf: socketName cPtrAsOop.
  self sqResolverGetNameInfoServiceResult: socketName Size: addrSize]!

Item was changed:
  ----- Method: SocketPlugin>>primitiveResolverGetNameInfoServiceSize (in category 'ipv6 primitives') -----
  primitiveResolverGetNameInfoServiceSize
 
  | size |
  self primitive: 'primitiveResolverGetNameInfoServiceSize'
  parameters: #().
  interpreterProxy failed
  ifFalse:
  [size := self sqResolverGetNameInfoServiceSize.
  ^size asSmallIntegerObj]!

Item was changed:
  ----- Method: SocketPlugin>>primitiveResolverHostNameResult: (in category 'ipv6 primitives') -----
  primitiveResolverHostNameResult: nameString
 
  | nameSize |
  self primitive: 'primitiveResolverHostNameResult'
  parameters: #(String).
  interpreterProxy failed
  ifFalse:
  [nameSize := interpreterProxy byteSizeOf: nameString cPtrAsOop.
  self sqResolverHostNameResult: nameString Size: nameSize]!

Item was changed:
  ----- Method: SocketPlugin>>primitiveResolverHostNameSize (in category 'ipv6 primitives') -----
  primitiveResolverHostNameSize
 
  | size |
  self primitive: 'primitiveResolverHostNameSize'
  parameters: #().
  interpreterProxy failed
  ifFalse:
  [size := self sqResolverHostNameSize.
  interpreterProxy failed ifFalse: [^size asSmallIntegerObj]]!

Item was changed:
  ----- Method: SocketPlugin>>primitiveSocket:bindTo: (in category 'ipv6 primitives') -----
  primitiveSocket: socket bindTo: socketAddress
 
  | addrSize addrBase s  |
  <var: #addrBase type: 'char *'>
  <var: #s type: 'SocketPtr'>
  self primitive: 'primitiveSocketBindTo' parameters: #(#Oop #Oop).
  s := self socketValueOf: socket.
  addrSize := interpreterProxy byteSizeOf: socketAddress.
  addrBase := self cCoerce: (interpreterProxy firstIndexableField: socketAddress) to: 'char *'.
  interpreterProxy failed ifFalse: [self sqSocket: s BindToAddress: addrBase Size: addrSize]!

Item was changed:
  ----- Method: SocketPlugin>>primitiveSocket:connectTo: (in category 'ipv6 primitives') -----
  primitiveSocket: socket connectTo: socketAddress
 
  | addrSize addrBase s  |
  <var: #addrBase type: 'char *'>
  <var: #s type: 'SocketPtr'>
  self primitive: 'primitiveSocketConnectTo' parameters: #(#Oop #Oop).
  s := self socketValueOf: socket.
  addrSize := interpreterProxy byteSizeOf: socketAddress.
  addrBase := self cCoerce: (interpreterProxy firstIndexableField: socketAddress) to: 'char *'.
  interpreterProxy failed ifFalse: [self sqSocket: s ConnectToAddress: addrBase Size: addrSize]!

Item was changed:
  ----- Method: SocketPlugin>>primitiveSocket:listenWithBacklog: (in category 'ipv6 primitives') -----
  primitiveSocket: socket listenWithBacklog: backlogSize
 
  | s  |
  <var: #s type: 'SocketPtr'>
  self primitive: 'primitiveSocketListenWithBacklog' parameters: #(#Oop #SmallInteger).
  s := self socketValueOf: socket.
  interpreterProxy failed ifFalse: [self sqSocket: s ListenBacklog: backlogSize]!

Item was changed:
  ----- Method: SocketPlugin>>primitiveSocket:localAddressResult: (in category 'ipv6 primitives') -----
  primitiveSocket: socket localAddressResult: socketAddress
 
  | addrSize addrBase s  |
  <var: #addrBase type: 'char *'>
  <var: #s type: 'SocketPtr'>
  self primitive: 'primitiveSocketLocalAddressResult' parameters: #(#Oop #Oop).
  s := self socketValueOf: socket.
  addrSize := interpreterProxy byteSizeOf: socketAddress.
  addrBase := self cCoerce: (interpreterProxy firstIndexableField: socketAddress) to: 'char *'.
  interpreterProxy failed ifFalse: [self sqSocket: s LocalAddressResult: addrBase Size: addrSize]!

Item was changed:
  ----- Method: SocketPlugin>>primitiveSocket:remoteAddressResult: (in category 'ipv6 primitives') -----
  primitiveSocket: socket remoteAddressResult: socketAddress
 
  | addrSize addrBase s  |
  <var: #addrBase type: 'char *'>
  <var: #s type: 'SocketPtr'>
  self primitive: 'primitiveSocketRemoteAddressResult' parameters: #(#Oop #Oop).
  s := self socketValueOf: socket.
  addrSize := interpreterProxy byteSizeOf: socketAddress.
  addrBase := self cCoerce: (interpreterProxy firstIndexableField: socketAddress) to: 'char *'.
  interpreterProxy failed ifFalse: [self sqSocket: s RemoteAddressResult: addrBase Size: addrSize]!

Item was changed:
  ----- Method: SocketPlugin>>primitiveSocketAddressGetPort (in category 'ipv6 primitives') -----
  primitiveSocketAddressGetPort
 
  | addr addrSize addrBase port |
  <var: #addrBase type: 'char *'>
  addr := self primitive: 'primitiveSocketAddressGetPort' parameters: #() receiver: #Oop.
  addrSize := interpreterProxy byteSizeOf: addr.
  addrBase := self cCoerce: (interpreterProxy firstIndexableField: addr) to: 'char *'.
  interpreterProxy failed
  ifFalse:
  [port := self sqSocketAddress: addrBase SizeGetPort: addrSize.
  interpreterProxy failed ifFalse: [^port asSmallIntegerObj]]!

Item was changed:
  ----- Method: SocketPlugin>>primitiveSocketAddressSetPort: (in category 'ipv6 primitives') -----
  primitiveSocketAddressSetPort: portNumber
 
  | addr addrSize addrBase |
  <var: #addrBase type: 'char *'>
  addr := self primitive: 'primitiveSocketAddressSetPort' parameters: #(SmallInteger) receiver: #Oop.
  addrSize := interpreterProxy byteSizeOf: addr.
  addrBase := self cCoerce: (interpreterProxy firstIndexableField: addr) to: 'char *'.
  interpreterProxy failed ifFalse: [self sqSocketAddress: addrBase Size: addrSize SetPort: portNumber]!

Item was changed:
  ----- Method: SocketPlugin>>primitiveSocketLocalAddressSize: (in category 'ipv6 primitives') -----
  primitiveSocketLocalAddressSize: socket
 
  | s size |
  <var: #s type: 'SocketPtr'>
  self primitive: 'primitiveSocketLocalAddressSize' parameters: #(#Oop).
  s := self socketValueOf: socket.
  interpreterProxy failed ifTrue: [^nil].
  size := self sqSocketLocalAddressSize: s.
  interpreterProxy failed ifTrue: [^nil].
  ^size asSmallIntegerObj!

Item was changed:
  ----- Method: SocketPlugin>>primitiveSocketRemoteAddressSize: (in category 'ipv6 primitives') -----
  primitiveSocketRemoteAddressSize: socket
 
  | s size |
  <var: #s type: 'SocketPtr'>
  self primitive: 'primitiveSocketRemoteAddressSize' parameters: #(#Oop).
  s := self socketValueOf: socket.
  interpreterProxy failed ifTrue: [^nil].
  size := self sqSocketRemoteAddressSize: s.
  interpreterProxy failed ifTrue: [^nil].
  ^size asSmallIntegerObj!

Item was changed:
  ----- Method: StackInterpreterSimulator>>makeDirEntryName:size:createDate:modDate:isDir:fileSize:posixPermissions: (in category 'as yet unclassified') -----
  makeDirEntryName: entryName
  size: entryNameSize
  createDate: createDate
  modDate: modifiedDate
  isDir: dirFlag
  fileSize: posixPermissions
  posixPermissions: fileSize
 
  | modDateOop createDateOop nameString results |
  <var: 'entryName' type: 'char *'>
 
  results := objectMemory instantiateClass: (objectMemory splObj: ClassArray) indexableSize: 5.
  nameString := objectMemory instantiateClass: (objectMemory splObj: ClassString) indexableSize: entryNameSize.
  createDateOop := self positive32BitIntegerFor: createDate.
  modDateOop := self positive32BitIntegerFor: modifiedDate.
 
  1 to: entryNameSize do:
  [ :i |
  objectMemory storeByte: i-1 ofObject: nameString withValue: (entryName at: i) asciiValue].
 
  objectMemory storePointerUnchecked: 0 ofObject: results withValue: nameString.
  objectMemory storePointerUnchecked: 1 ofObject: results withValue: createDateOop.
  objectMemory storePointerUnchecked: 2 ofObject: results withValue: modDateOop.
  dirFlag
  ifTrue: [ objectMemory storePointerUnchecked: 3 ofObject: results withValue: objectMemory trueObject ]
  ifFalse: [ objectMemory storePointerUnchecked: 3 ofObject: results withValue: objectMemory falseObject ].
  objectMemory storePointerUnchecked: 4 ofObject: results withValue: (objectMemory integerObjectOf: fileSize).
  objectMemory storePointerUnchecked: 5 ofObject: results withValue: (objectMemory integerObjectOf: posixPermissions).
  ^ results!