312 ! !

   313 

   314 !UninterpretedBytes methodsFor:'Compatibility-V''Age'!

   315 

   316 uint32At:zeroBasedIndex

   317     "return the 4-bytes starting at index as (unsigned) Integer.

   318      The index is a C index (i.e. 0-based).

   319      The value is retrieved in the machines natural byte order.

   320      Similar to unsignedLongAt:, except for the index base"

   321 

   322     ^ self unsignedLongAt:zeroBasedIndex+1

   323 

   324     "

   325      |b|

   326 

   327      b := ByteArray withAll:#(0 0 0 0).

   328      b uint32At:0 put:16r12345678.

   329      b uint32At:0.

   330      b

   331     "

   332 !

   333 

   334 uint32At:zeroBasedIndex put:anInteger

   335     "set the 4-bytes starting at index to the value given by (unsigned) Integer.

   336      The index is a C index (i.e. 0-based).

   337      The value is stored in the machines natural byte order.

   338      Similar to unsignedLongAt:put:, except for the index base"

   339 

   340     ^ self unsignedLongAt:zeroBasedIndex+1 put:anInteger

   341 

   342     "

   343      |b|

   344 

   345      b := ByteArray withAll:#(0 0 0 0).

   346      b uint32At:0 put:16r12345678.

   347      b

   348     "