Mercurial Mercurial > hg > stx-libcomp / changeset
summary | shortlog | changelog | graph | tags | bookmarks | branches | files | changeset | raw | zip | gz | bz2 | help
Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
changed: #newWith:values:
authorStefan Vogel <sv@exept.de>
Sun, 18 Apr 2010 15:12:54 +0200
changeset 2351 4371af1faf81
parent 2350 16caba266df4
child 2352 f8310d0bb880
changed: #newWith:values: - fix for new Behavior layout (lookupObject)
Structure.st file | annotate | diff | comparison | revisions 
--- a/Structure.st	Fri Apr 16 19:36:24 2010 +0200
+++ b/Structure.st	Sun Apr 18 15:12:54 2010 +0200
@@ -12,14 +12,14 @@
 "{ Package: 'stx:libcomp' }"
 
 Object subclass:#Structure
-        instanceVariableNames:'superclass flags methodDictionary lookupFunction instSize i1 i2 i3 i4 i5 i6 i7
-                i8 i9 i10 i11 i12 i13 i14 i15 i16 i17 i18 i19 i20 i21 i22 i23 i24
-                i25 i26 i27 i28 i29 i30 i31 i32 i33 i34 i35 i36 i37 i38 i39 i40
-                i41 i42 i43 i44 i45 i46 i47 i48 i49 i50'
-        classVariableNames:'OneInstance DummyClass ReadAccessMethods WriteAccessMethods
-                OtherMethods OtherSelectors'
-        poolDictionaries:''
-        category:'Programming-Support'
+	instanceVariableNames:'superclass flags methodDictionary lookupFunction instSize i1 i2
+		i3 i4 i5 i6 i7 i8 i9 i10 i11 i12 i13 i14 i15 i16 i17 i18 i19 i20
+		i21 i22 i23 i24 i25 i26 i27 i28 i29 i30 i31 i32 i33 i34 i35 i36
+		i37 i38 i39 i40 i41 i42 i43 i44 i45 i46 i47 i48 i49 i50'
+	classVariableNames:'OneInstance DummyClass ReadAccessMethods WriteAccessMethods
+		OtherMethods OtherSelectors'
+	poolDictionaries:''
+	category:'Programming-Support'
 !
 
 !Structure class methodsFor:'documentation'!
@@ -225,10 +225,11 @@
     behviorsInstSize := Behavior instSize.
 
     arr := Array new:(behviorsInstSize + nInsts).
-    arr at:1 put:nil.                                                   "/ superclass
+"/    arr at:1 put:nil.                                                   "/ superclass
     arr at:2 put:(Behavior flagBehavior bitOr:Behavior flagPointers).   "/ flags
     arr at:3 put:(MethodDictionary withKeys:sels andValues:mthds).      "/ selectors & methods
-    arr at:4 put:behviorsInstSize.                                      "/ instSize
+"/    arr at:4 put:nil.                                                   "/ lookupObject
+    arr at:5 put:behviorsInstSize.                                      "/ instSize
 
     "/ now, the big trick ...
 
@@ -1435,11 +1436,11 @@
 !Structure class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libcomp/Structure.st,v 1.24 2010-04-07 14:53:33 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libcomp/Structure.st,v 1.25 2010-04-18 13:12:54 stefan Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libcomp/Structure.st,v 1.24 2010-04-07 14:53:33 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libcomp/Structure.st,v 1.25 2010-04-18 13:12:54 stefan Exp $'
 ! !
 
 Structure initialize!
hg/stx-libcomp